Previous Page Single Page Next Page  

* FIG FORTH FOR SERIES-16 MACHINES PAGE 86

3696 03604 0 000440 DAC PFND 3697 03605 0 001361 DFN1 DAC SMIS 3698 * 3699 * **** UPPER **** SETS STRINGS TO UPPER CASE - TO ALLOW 3700 * LOWER AS WELL AS UPPER CASE FROM TERMINAL. 3701 * ( COUNT CADDR --- ) 3702 * HEAD FNUL,UPPER,UPPR,DOCL 3703 003606 TLNK SET * 3704 03606 002725 VFD 1,0,1,FNUL,6,5,8,'325 3705 * =<FNUL,5>,'U' 3706 03607 150320 BCI 1,PP 3707 03610 142522 VFD 8,'305,8,'122 ='ER' 3708 03611 0 003556 DAC LINK 3709 003606 LINK SET TLNK 3710 03612 0 10 00130 UPPR JST DOCL 3711 03613 0 001520 DAC OVER 3712 03614 0 001443 DAC PLUS 3713 03615 0 001533 DAC SWAP 3714 03616 0 000372 DAC XDO 3715 03617 0 000401 UPR1 DAC I 3716 03620 0 001572 DAC CAT 3717 03621 0 000241 DAC LIT 3718 03622 000340 OCT 340 =LOWERCASE-A-1 3719 03623 0 002315 DAC GRTR 3720 03624 0 000401 DAC I 3721 03625 0 001572 DAC CAT 3722 03626 0 000241 DAC LIT 3723 03627 000373 OCT 373 =LOWERCASE-Z+1 3724 03630 0 002303 DAC LESS 3725 03631 0 001300 DAC AND 3726 03632 0 000277 DAC ZBRA 3727 03633 0 003643 DAC UPR2 3728 03634 0 000401 DAC I 3729 03635 0 001572 DAC CAT 3730 03636 0 000241 DAC LIT 3731 03637 000040 OCT 40 3732 03640 0 001316 DAC XOR 3733 03641 0 000401 DAC I 3734 03642 0 001605 DAC CSTR 3735 03643 0 000322 UPR2 DAC XLOP 3736 03644 0 003617 DAC UPR1 3737 03645 0 001361 DAC SMIS 3738 * 3739 * **** (ABORT) **** 3740 * HEAD FNUL,(ABORT),PABT,DOCL 3741 003646 TLNK SET * 3742 03646 003650 VFD 1,0,1,FNUL,6,7,8,'250 3743 * =<FNUL,7>,'(' 3744 03647 140702 BCI 2,ABOR 03650 147722
  Previous Page Single Page Next Page