Previous Page Single Page Next Page  

* FIG FORTH FOR SERIES-16 MACHINES PAGE 82

3499 03354 000042 VFD 16,KPAD 3500 03355 0 001443 DAC PLUS 3501 03356 0 001361 DAC SMIS 3502 * 3503 * **** WORD **** READ NEXT WORD FROM INPUT STREAM USING CHAR 3504 * AS DELIMITER 3505 * ( CHAR --- ) 3506 * HEAD FNUL,WORD,WORD,DOCL 3507 003357 TLNK SET * 3508 03357 002327 VFD 1,0,1,FNUL,6,4,8,'327 3509 * =<FNUL,4>,'W' 3510 03360 147722 BCI 1,OR 3511 03361 042000 VFD 8,'104 ='D' 3512 03362 0 003346 DAC LINK 3513 003357 LINK SET TLNK 3514 03363 0 10 00130 WORD JST DOCL 3515 03364 0 002072 DAC BLK DISK BLOCK 3516 03365 0 001565 DAC AT 3517 IFN PTW 3518 03366 0 002223 DAC ONEP -1 -> 0, 0 -> 1 3519 03367 0 000241 DAC LIT 3520 03370 177776 OCT 177776 3521 03371 0 001300 DAC AND ASR OR PTR -> ZERO 3522 ENDC 3523 03372 0 000277 DAC ZBRA ZERO IS TERMINAL 3524 03373 0 003400 DAC WRD1 3525 IFN DISK 3526 DAC BLK 3527 DAC AT 3528 DAC BLCK 3529 DAC BRAN 3530 DAC WRD2 3531 ELSE 3532 03374 0 001722 DAC ONE TRUE - ALWAYS 3533 03375 0 000241 DAC LIT 3534 03376 000006 OCT 6 DISK RANGE 3535 03377 0 003662 DAC EROR 3536 ENDC 3537 03400 0 002011 WRD1 DAC TIB 3538 03401 0 001565 DAC AT 3539 03402 0 001616 WRD2 DAC BYTE 3540 03403 0 002077 DAC IN OFFSET IN INPUT BUFFER 3541 03404 0 001565 DAC AT 3542 03405 0 001443 DAC PLUS ADD TO BASE ADDRESS 3543 03406 0 001533 DAC SWAP 3544 03407 0 000534 DAC ENCL 3545 03410 0 002240 DAC HERE 3546 03411 0 000241 DAC LIT 3547 03412 000021 DEC 17 34 BYTES 3548 03413 0 003307 DAC ERAS
  Previous Page Single Page Next Page