F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 79

3350 003205 TLNK SET * 3351 03205 002721 VFD 1,0,1,FNUL,6,5,8,'321 3352 * =<FNUL,5>,'Q' 3353 03206 152705 BCI 1,UE 3354 03207 151131 VFD 8,'322,8,'131 ='RY' 3355 03210 0 003076 DAC LINK 3356 003205 LINK SET TLNK 3357 03211 0 10 00130 QURY JST DOCL 3358 03212 0 002011 DAC TIB 3359 03213 0 001565 DAC AT 3360 03214 0 000241 DAC LIT 3361 03215 000120 OCT 120 3362 03216 0 003103 DAC EXPC 3363 03217 0 001716 DAC ZERO 3364 03220 0 002077 DAC IN 3365 03221 0 001577 DAC STOR 3366 03222 0 001361 DAC SMIS 3367 * 3368 * **** THE NULL **** 3369 003223 TLNK SET * 3370 03223 040400 VFD 1,0,1,FIMD,6,1,1,0,7,0 3371 * =<FIMD,1>,NULL 3372 03224 0 003205 DAC LINK 3373 003223 LINK SET TLNK 3374 03225 0 10 00130 NULL JST DOCL 3375 * THE NULL OPERATION (ASCII 0) STOPS INTERPRETATION/COMPILATION 3376 * AT END OF A TERMINAL INPUT LINE, OR A DISK SCREEN. ALL DISK 3377 * BUFFERS MUST TERMINATE WITH NULLS, AND 'EXPECT' PLACES NULLS 3378 * AFTER EACH TERMINAL INPUT LINE. 3379 03226 0 002072 DAC BLK 3380 03227 0 001565 DAC AT 3381 IFN PTW 3382 03230 0 002223 DAC ONEP -1 -> 0, 0 -> 1 3383 03231 0 000241 DAC LIT 3384 03232 177776 OCT 177776 3385 03233 0 001300 DAC AND ASR OR PTR -> ZERO 3386 ENDC 3387 03234 0 000277 DAC ZBRA 3388 03235 0 003260 DAC NUL2 3389 03236 0 001722 DAC ONE 3390 03237 0 002072 DAC BLK 3391 03240 0 001546 DAC PSTR 3392 03241 0 001716 DAC ZERO 3393 03242 0 002077 DAC IN 3394 03243 0 001577 DAC STOR 3395 03244 0 002072 DAC BLK 3396 03245 0 001565 DAC AT 3397 03246 0 001760 DAC BSCR 3398 03247 0 004705 DAC MOD 3399 03250 0 001423 DAC ZEQU