F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 72

3006 02623 042400 VFD 8,'105 ='E' 3007 02624 0 002610 DAC LINK 3008 002620 LINK SET TLNK 3009 02625 0 10 00130 SMDG JST DOCL 3010 02626 0 002357 DAC LTST 3011 02627 0 000241 DAC LIT 3012 02630 020000 OCT 020000 3013 02631 0 001557 DAC TOGL 3014 02632 0 001361 DAC SMIS 3015 * 3016 * **** HEX **** 3017 * HEAD FNUL,HEX,HEX,DOCL 3018 002633 TLNK SET * 3019 02633 001710 VFD 1,0,1,FNUL,6,3,8,'310 3020 * =<FNUL,3>,'H' 3021 02634 142530 VFD 8,'305,8,'130 ='EX' 3022 02635 0 002620 DAC LINK 3023 002633 LINK SET TLNK 3024 02636 0 10 00130 HEX JST DOCL 3025 02637 0 000241 DAC LIT 3026 02640 000020 DEC 16 3027 02641 0 002152 DAC BASE 3028 02642 0 001577 DAC STOR 3029 02643 0 001361 DAC SMIS 3030 * 3031 * **** DECIMAL **** 3032 * HEAD FNUL,DECIMAL,DEC,DOCL 3033 002644 TLNK SET * 3034 02644 003704 VFD 1,0,1,FNUL,6,7,8,'304 3035 * =<FNUL,7>,'D' 3036 02645 142703 BCI 2,ECIM 02646 144715 3037 02647 140514 VFD 8,'301,8,'114 ='AL' 3038 02650 0 002633 DAC LINK 3039 002644 LINK SET TLNK 3040 02651 0 10 00130 DEC JST DOCL 3041 02652 0 000241 DAC LIT 3042 02653 000012 DEC 10 3043 02654 0 002152 DAC BASE 3044 02655 0 001577 DAC STOR 3045 02656 0 001361 DAC SMIS 3046 * 3047 * **** OCT **** 3048 * HEAD FNUL,OCT,OCT,DOCL 3049 002657 TLNK SET * 3050 02657 001717 VFD 1,0,1,FNUL,6,3,8,'317 3051 * =<FNUL,3>,'O' 3052 02660 141524 VFD 8,'303,8,'124 ='CT' 3053 02661 0 002644 DAC LINK 3054 002657 LINK SET TLNK