F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 116

5008 DAC STOR 5009 DAC BSCR 5010 DAC STAR 5011 DAC BLK 5012 DAC STOR 5013 DAC ITRP 5014 DAC FRMR 5015 DAC IN 5016 DAC STOR 5017 DAC FRMR 5018 DAC BLK 5019 DAC STOR 5020 DAC SMIS 5021 * 5022 * **** --> **** 5023 * HEAD FNUL,-->,AROW,DOCL 5024 TLNK SET * 5025 VFD 1,0,1,FNUL,6,3,8,'255 5026 * =<FNUL,3>,'-' 5027 VFD 8,'255,8,'076 ='->' 5028 DAC LINK 5029 LINK SET TLNK 5030 AROW JST DOCL 5031 DAC QLDG 5032 DAC ZERO 5033 DAC IN 5034 DAC STOR 5035 DAC BSCR 5036 DAC BLK 5037 DAC AT 5038 DAC OVER 5039 DAC MOD 5040 DAC SUB 5041 DAC BLK 5042 DAC PSTR 5043 DAC SMIS 5044 * 5045 * **** R/W **** ( ADDRESS SCREEN# FLAG ==> ) 5046 * HEAD FNUL,R/W,RW,DOCL 5047 TLNK SET * 5048 VFD 1,0,1,FNUL,6,3,8,'322 5049 * =<FNUL,3>,'R' 5050 VFD 8,'257,8,'127 ='/W' 5051 DAC LINK 5052 LINK SET TLNK 5053 RW JST DOCL 5054 DAC DROP 5055 DAC DROP 5056 DAC DROP 5057 DAC SMIS