F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 138

6057 06027 0 04 00104 STA T1 6058 06030 101000 NOP 6059 06031 0 02 06030 LDA *-1 6060 06032 -0 04 00104 STA* T1 6061 06033 -0 01 05762 JMP* MSZ 6062 * 6063 06034 010000 MS4K DEC 4096 6064 06035 000000 MSRV VFD 16,RSRV 6065 06036 0 006316 MXDB DAC XDP+'100 MINIMUM DICTIONARY SPACE 6066 * 6067 ORG NXTY FOR CONSTANT POOL 6068 00711 000021 FIN 00712 000040 00713 100000 00714 000004 00715 177777 00716 177760 00717 040000 00720 000002 00721 077400 00722 077577 00723 000077 00724 000200 00725 037577 00726 000007 00727 000011 00730 000003 00731 177773 00732 177764 00733 000177 00734 177400 00735 000377 00736 000001 6069 000737 NXTZ EQU * 6070 END ORGN ABRT 004347A ABS 004446A ABS1 004454A AGAN 005253A ALOT 002250A AND 001300A AT 001565A BACK 005125A BASE 002152A BBUF 001752A BCMP 004032A BDGS 005371A BGIN 005134A BINA 000124A BL 001737A BLK 002072A BLKS 003320A BRAN 000263A BSCR 001760A BULD 002712A BYE 005631A BYTE 001616A CADR 000111A CAT 001572A CBS 000210A CCR 000215A CDEL 000377A CDOT 000256A CDQT 000242A CELL 001625A CENT 001025A CEOT 000204A CFA 002376A CHGT 000166A CHP1 000207A CHPT 000176A CHPU 000212A CL 001744A CLF 000212A CMNS 000255A CMOV 000641A CMVL 000652A CMVX 000663A CNT 002735A CNT1 001042A CNT2 001046A COLD 004427A COLN 001632A COMA 002256A COMP 002570A CON 001664A CONT 002127A