/MACRO COMPILER / /PAGE 2000 *2000 ENTS, 0 TAD Z VAL DCA I Z SEND TAD Z SEND DCA Z VADR JMS SENDP TAD Z TEM3 DCA I Z SEND JMS SENDP TAD Z TEM2 DCA I Z SEND JMS SENDP TAD Z TEM1 DCA I Z SEND TAD Z SEND DCA Z SADR TAD I ENTS ISZ ENTS DCA .+2 JMS I Z TYPAD1 / 0 / JMS SENDP TAD Z MACEND CIA TAD Z SEND SMA CLA JMP I ENTS / SYMEX, TAD Z C3 JMS I Z ERR1 TAD Z M1000 DCA SWITCH TAD Z M1000 DCA IDX+1 HLT CLA JMP .-1 / IDX, 0 NOP /OR JMP IDXMAC JMS GETIN TAD M257 /SLASH? SNA CLA JMP COMMEN / JMS I SENDP-1 /BIT6 SR DCA Z CHARX TAD Z CHARX DCA Z CHARX2 TAD Z CHARX SWITCH, NOP /MACRO STORE CLA JMP I IDX / IDXMAC, NOP TAD JMPOUT+1 DCA IDXMAC TAD I GETIN RTR RTR RTR AND CT77 JMP IDX+7 / RIGHT, TAD Z M1000 DCA IDXMAC TAD I GETIN ISZ GETIN JMP RIGHT-2 / JMPOUT, JMP IDXMAC / JMP RIGHT HSGET / GETIN, 0 JMS I GETIN-1 DCA Z ITEM TAD Z NOW3 SZA CLA JMS I Z SYMLST TAD Z ITEM JMP I GETIN / COMMEN, JMS GETIN TAD M215 SNA CLA JMP IDX+6 / JMP COMMEN / BIT6 / SENDP, 0 CLA CMA TAD Z SEND DCA Z SEND JMP I SENDP / SAVE, 0 TAD Z SADR DCA REPUN TAD Z TYPE DCA RESTOR-1 TAD Z VADR DCA Z VADR1 JMP I SAVE / REPUN, 0 TAD Z M1000 DCA I .+2 JMP I REPUN / PUN+1 0 / RESTOR, 0 TAD REPUN DCA Z SADR TAD RESTOR-1 DCA Z TYPE TAD Z VADR1 DCA Z VADR JMP I RESTOR / MSTOR1, PACK / EXMEM, JMS I Z EXPR1 TAD Z PASS SMA CLA JMP I Z MAIN1 / TAD Z NOW3 SZA CLA JMP I Z MAIN1 / TAD Z EVAL AND Z C7 CLL RTL RAL TAD CT300 JMS I Z BINOUT JMP I Z MAIN1 / 2000 7777 CT300, 300 M215, 0-215 CT77, 77 M257, 0-257 PAUSE