F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 132

5757 05632 042673 VFD 1,0,1,FIMD,6,5,8,'273 5758 * =<FIMD,5>,';' 5759 05633 141717 BCI 1,CO 5760 05634 142105 VFD 8,'304,8,'105 ='DE' 5761 05635 0 005626 DAC LINK 5762 005632 LINK SET TLNK 5763 05636 0 10 00130 SEMC JST DOCL 5764 05637 0 002534 DAC QCSP 5765 05640 0 002570 DAC COMP 5766 05641 0 002603 DAC LBRC 5767 05642 0 002625 DAC SMDG 5768 05643 0 001361 DAC SMIS 5769 05644 0 002675 DAC PSCD WON'T WORK... 5770 05645 000000 HLT STOP EXECUTION 5771 * NOTE: LATER, THE ASSEMBLER WILL PATCH THIS DEFINITION. 5772 * 5773 * **** FORTH **** 5774 * HEAD FIMD,FORTH,FRTH,DODS 5775 005646 TLNK SET * 5776 05646 042706 VFD 1,0,1,FIMD,6,5,8,'306 5777 * =<FIMD,5>,'F' 5778 05647 147722 BCI 1,OR 5779 05650 152110 VFD 8,'324,8,'110 ='TH' 5780 05651 0 005632 DAC LINK 5781 005646 LINK SET TLNK 5782 05652 0 10 00152 FRTH JST DODS 5783 05653 0 004257 DAC DOVC 5784 * 5785 * 5786 05654 120201 OCT 120201 DUMMY HEADER AT INTERSECTION 5787 05655 0 005657 DAC XTSK 5788 05656 000000 XXVC OCT 0 THE VOCABULARY LINK (FOR FUTURE USE) 5789 * 5790 * **** TASK **** 5791 *TSK HEAD FIMD,TASK,TASK,DOCL 5792 005657 TLNK SET * 5793 05657 042324 XTSK VFD 1,0,1,FIMD,6,4,8,'324 5794 * =<FIMD,4>,'T' 5795 05660 140723 BCI 1,AS 5796 05661 045400 VFD 8,'113 ='K' 5797 05662 0 005646 DAC LINK 5798 005657 LINK SET TLNK 5799 05663 0 10 00130 TASK JST DOCL 5800 05664 0 001361 DAC SMIS 5801 * 5802 ****************************************************************** 5803 * TERMINAL I/O 5804 ****************************************************************** 5805 * 5806 * **** EMIT ****