/MACRO COMPILER / /PAGE 600 *600 TYPO2, 0 IOF PLS PSF JMP .-I ION CLA JMP I TYPO2 / PAGEC, JMS I Z EXPR1 TAD Z ANY SZA CLA JMP PAGEM / CMA TAD Z AADR TAD Z C200 AND Z C7600 DCA Z AADR PAGHER, JMS I Z PAGE1 TAD Z AADR DCA Z EVAL JMS I Z PUNOR1 JMP I .+1 / MAINSE-1 / PAGEM, TAD Z EVAL RTR RTR RTR JMP PAGHER-2 / PAGEX, 0 JMS I .+3 JMS I Z RESET1 JMP I PAGEX / PUNCON PERIOD, TAD Z AADR JMS I Z SGN JMS I Z IDX1 JMP I Z B21 / TYPADD, 0 CLA TAD I TYPADD DCA Z TYPE TAD I Z SADR AND Z C1777 DCA I Z SADR TAD Z TYPE AND Z C6000 TAD I Z SADR DCA I Z SADR ISZ Z SADR TAD I Z SADR AND Z C3777 DCA I Z SADR TAD Z TYPE RTL AND Z C4000 TAD I Z SADR DCA I Z SADR CLA CMA TAD Z SADR DCA Z SADR ISZ TYPADD JMP I TYPADD / RESET, 0 TAD Z CBUFE DCA Z PCON TAD Z AADR AND Z C7600 DCA Z APAGE JMP I RESET / DANDF, 0 JMS I FINAL TAD I FINAL+1 SNA CLA JMP .+3 / ISZ DANDF JMP I DANDF / TAD Z CHARX2 TAD Z M33 SPA CLA JMP .+3 / JMS I Z IDX1 JMP DANDF+1 / JMS I .+2 JMP I DANDF / RET FINAL, FINALL DPN / ANYY, 0 TAD Z TYPE TAD Z M1000 SNA ISZ Z ANY TAD Z M1000 SNA CLA ISZ Z ANY JMP I ANYY / TPINST, 0 PAUSE