Previous Page Single Page Next Page  

* FIG FORTH FOR SERIES-16 MACHINES PAGE 94

04266 144724 04267 144717 4080 04270 147123 VFD 8,'316,8,'123 ='NS' 4081 04271 0 004230 DAC LINK 4082 004263 LINK SET TLNK 4083 04272 0 10 00130 DFNS JST DOCL 4084 04273 0 002127 DAC CONT 4085 04274 0 001565 DAC AT 4086 04275 0 002136 DAC CURR 4087 04276 0 001577 DAC STOR 4088 04277 0 001361 DAC SMIS 4089 * 4090 * **** ( **** 4091 * HEAD FIMD,(,PARN,DOCL 4092 004300 TLNK SET * 4093 04300 040450 VFD 1,0,1,FIMD,6,1,8,'050 4094 * =<FIMD,1>,'(' 4095 04301 0 004263 DAC LINK 4096 004300 LINK SET TLNK 4097 04302 0 10 00130 PARN JST DOCL 4098 04303 0 000241 DAC LIT 4099 04304 000251 VFD 16,CRPR =')' 4100 04305 0 003363 DAC WORD 4101 04306 0 001361 DAC SMIS 4102 * 4103 * **** QUIT **** 4104 * HEAD FNUL,QUIT,QUIT,DOCL 4105 004307 TLNK SET * 4106 04307 002321 VFD 1,0,1,FNUL,6,4,8,'321 4107 * =<FNUL,4>,'Q' 4108 04310 152711 BCI 1,UI 4109 04311 052000 VFD 8,'124 ='T' 4110 04312 0 004300 DAC LINK 4111 004307 LINK SET TLNK 4112 04313 0 10 00130 QUIT JST DOCL 4113 04314 0 001716 DAC ZERO 4114 04315 0 002072 DAC BLK 4115 04316 0 001577 DAC STOR 4116 04317 0 002603 DAC LBRC 4117 04320 0 001345 QUT1 DAC RPST 4118 04321 0 000627 DAC CR 4119 04322 0 003211 QUT2 DAC QURY 4120 04323 0 004152 DAC ITRP 4121 IFN PTW 4122 04324 0 002072 DAC BLK 4123 04325 0 001565 DAC AT 4124 04326 0 002223 DAC ONEP PAPERTAPE? 4125 04327 0 000277 DAC ZBRA YES - LOOP 4126 04330 0 004322 DAC QUT2 4127 ENDC
  Previous Page Single Page Next Page