METAFORTH: A Meta-compiler for Fig-FORTH.

00 CONSTANT 00 VARIABLE 02 BYTE 0A OB OC 15 Screen 1980 J J CASSADY 2DUP 6A OA 6D El D1 A H MOV ASSEMBLER BASE-ADDR BB 6C BL WORD CASSADY 81MAR08 JJC COLON comma'd COMMENTS 1 CODE COMPILE-ADDR constant containing COPYRIGHT 1980 J J CREATE-NEW CREATE-OLD CREATENEW creates creates a head DC 6D DCOM DELTA DF 6B DPOLD DROP ENDIF emplaced EQUATE EXECUTE FIG-FORTH MODEL fig-FORTH source FO 6D GAP GAP H DCX H INX M D H LXI head at DPNEW IMMEDIATE J J CASSADY 81MAR08 L A MOV load screen META-SYS-2 COPYRIGHT 1980 METACOMPILED BY SYS-1 METAFORTH MODEL FOR COMMENTS MOV H INX MOV NEXT JMP name field NF*LIT nl A constant NUMBER object code OBJECT METACOMPILED OC OD OE PCHL POP H POP RETP LHLD SETNEW COMPILE SETOLD SHLD SYS-1 cont USER VOCAB XCHG