F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 77

3251 * (AND TERMINATE WITH NULLS). 3252 * ( ADDR N --- ) WORD ADDRESS! 3253 * HEAD FNUL,EXPECT,EXPC,DOCL 3254 003076 TLNK SET * 3255 03076 003305 VFD 1,0,1,FNUL,6,6,8,'305 3256 * =<FNUL,6>,'E' 3257 03077 154320 BCI 2,XPEC 03100 142703 3258 03101 052000 VFD 8,'124 ='T' 3259 03102 0 003044 DAC LINK 3260 003076 LINK SET TLNK 3261 03103 0 10 00130 EXPC JST DOCL 3262 03104 0 001533 DAC SWAP 3263 03105 0 001616 DAC BYTE 3264 03106 0 001533 DAC SWAP 3265 03107 0 001520 DAC OVER 3266 03110 0 001443 DAC PLUS 3267 03111 0 001520 DAC OVER 3268 03112 0 000372 DAC XDO 3269 003113 EXP1 EQU * 3270 IFN PTW 3271 03113 0 002072 DAC BLK 3272 03114 0 001565 DAC AT 3273 03115 0 001435 DAC ZLES -VE INDICATES PAPERTAPE 3274 03116 0 000277 DAC ZBRA 3275 03117 0 003123 DAC EXP2 3276 03120 0 004767 DAC PTRK 3277 03121 0 000263 DAC BRAN 3278 03122 0 003124 DAC EXP3 3279 ENDC 3280 03123 0 000614 EXP2 DAC KEY 3281 03124 0 001541 EXP3 DAC DUP 3282 03125 0 000241 DAC LIT 3283 03126 000377 VFD 16,CDEL 3284 03127 0 002273 DAC EQAL 3285 03130 0 000277 DAC ZBRA 3286 03131 0 003151 DAC EXP4 3287 03132 0 001526 DAC DROP 3288 03133 0 000241 DAC LIT 3289 03134 000210 VFD 16,CBS 3290 03135 0 001520 DAC OVER 3291 03136 0 000401 DAC I 3292 03137 0 002273 DAC EQAL 3293 03140 0 001541 DAC DUP 3294 03141 0 001412 DAC FRMR 3295 03142 0 001726 DAC TWO 3296 03143 0 002266 DAC SUB 3297 03144 0 001443 DAC PLUS 3298 03145 0 001402 DAC TOR 3299 03146 0 002266 DAC SUB