F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 85

3646 03542 0 002266 DAC SUB 3647 03543 0 001716 DAC ZERO 3648 03544 0 002455 DAC QERR 3649 03545 0 001716 DAC ZERO 3650 03546 0 000263 DAC BRAN 3651 03547 0 003527 DAC NUM1 3652 03550 0 001526 NUM2 DAC DROP 3653 03551 0 001412 DAC FRMR 3654 03552 0 000277 DAC ZBRA 3655 03553 0 003555 DAC NUM3 3656 03554 0 001502 DAC DMNS 3657 03555 0 001361 NUM3 DAC SMIS 3658 * 3659 * **** -FIND **** 3660 * ( --- PFA B TF ) (FOUND) 3661 * ( --- FF ) (NOT FOUND) 3662 * 3663 * ACCEPTS THE NEXT TEXT WORD (DELIMITED BY BLANKS) IN THE 3664 * INPUT STREAM TO HERE, AND SEARCHES THE CONTEXT AND THEN 3665 * CURRENT VOCABULARIES FOR A MATCHING ENTRY. IF FOUND, THE 3666 * DICTIONARY ENTRY'S PARAMETER FIELD ADDRESS, ITS LENGTH 3667 * BYTE, AND A BOOLEAN TRUE IS LEFT. OTHERWISE, ONLY A 3668 * BOOLEAN FALSE IS LEFT. 3669 * 3670 * HEAD FNUL,-FIND,DFND,DOCL 3671 003556 TLNK SET * 3672 03556 002655 VFD 1,0,1,FNUL,6,5,8,'255 3673 * =<FNUL,5>,'-' 3674 03557 143311 BCI 1,FI 3675 03560 147104 VFD 8,'316,8,'104 ='ND' 3676 03561 0 003503 DAC LINK 3677 003556 LINK SET TLNK 3678 03562 0 10 00130 DFND JST DOCL 3679 03563 0 001737 DAC BL 3680 03564 0 003363 DAC WORD 3681 03565 0 002240 DAC HERE 3682 03566 0 002735 DAC CNT 3683 03567 0 003612 DAC UPPR 3684 03570 0 002240 DAC HERE 3685 03571 0 002127 DAC CONT 3686 03572 0 001565 DAC AT 3687 03573 0 001565 DAC AT 3688 03574 0 000440 DAC PFND 3689 03575 0 001541 DAC DUP 3690 03576 0 001423 DAC ZEQU 3691 03577 0 000277 DAC ZBRA 3692 03600 0 003605 DAC DFN1 3693 03601 0 001526 DAC DROP 3694 03602 0 002240 DAC HERE 3695 03603 0 002357 DAC LTST