F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 131

5707 05611 0 002335 DAC SPCE 5708 05612 0 002335 DAC SPCE 5709 05613 0 002423 DAC PFA 5710 05614 0 002367 DAC LFA 5711 05615 0 001565 DAC AT 5712 05616 0 001541 DAC DUP 5713 05617 0 001423 DAC ZEQU 5714 05620 0 000623 DAC QTRM 5715 05621 0 001306 DAC OR 5716 05622 0 000277 DAC ZBRA 5717 05623 0 005574 DAC VLS1 5718 05624 0 001526 DAC DROP 5719 05625 0 001361 DAC SMIS 5720 * 5721 * **** BYE **** 5722 * HEAD FNUL,BYE,BYE 5723 005626 TLNK SET * 5724 05626 001702 VFD 1,0,1,FNUL,6,3,8,'302 5725 * =<FNUL,3>,'B' 5726 05627 154505 VFD 8,'331,8,'105 ='YE' 5727 05630 0 005560 DAC LINK 5728 005626 LINK SET TLNK 5729 005631 BYE EQU * 5730 05631 0 01 01056 JMP STOP 5731 * 5732 IFN DBGW 5733 * 5734 * **** DEBUG **** 5735 * HEAD FNUL,DEBUG,DBUG 5736 TLNK SET * 5737 VFD 1,0,1,FNUL,6,5,8,'304 5738 * =<FNUL,5>,'D' 5739 BCI 1,EB 5740 VFD 8,'325,8,'107 ='UG' 5741 DAC LINK 5742 LINK SET TLNK 5743 DBUG EQU * 5744 JMP PDBG 5745 ENDC 5746 ****************************************************************** 5747 * 5748 * THE FOLLOWING TWO DEFINITIONS ARE NOT PURE CODE, SO THEY WERE 5749 * MOVED HERE, NEAR THE END OF THE DICTIONARY. 5750 * 5751 ****************************************************************** 5752 * 5753 * **** ;CODE **** CREATE NEW DATA TYPE WITH CODE ROUTINE WRITTEN 5754 * IN ASSEMBLY. 5755 * HEAD FIMD,;CODE,SEMC,DOCL 5756 005632 TLNK SET *