/MACRO COMPILER / /PAGE 1200 *1200 GETADR, 0 JMS I Z IDX1 TAD GETADR JMS I Z PUSH1 JMS I Z EXPR1 TAD Z MICRO SMA CLA JMP .+3 / TAD Z EVAL JMP LEAVE-1 / TAD Z EVAL AND Z C7600 SNA JMP AWAY+1 / CIA TAD Z APAGE SNA CLA JMP AWAY / TAD Z IND SNA CLA JMP .+4 / TAD Z C5 JMS I NUPAGE+1 JMP LEAVE / TAD Z PASS SPA CLA JMS I Z CONC1 TAD Z C6 JMS I NUPAGE+1 TAD Z CCON TAD Z C600 DCA Z ADR LEAVE, JMS I Z POPU1 DCA GETADR JMP I GETADR / AWAY, TAD Z C200 DCA NUPAGE TAD Z EVAL AND Z C177 TAD NUPAGE TAD Z IND JMP LEAVE-1 / II, TAD Z CLIT JMS I Z PUSH1 TAD Z CHARX TAD Z M64 DCA Z CLIT JMS I Z IDX1 JMS I Z EXPR1 TAD Z CLIT SZA CLA JMP .+4 / JMS I Z CONC1 TAD Z APAGE SKP / JMS I Z CONZ1 TAD Z CCON DCA Z ADR JMS I Z POPU1 DCA Z CLIT JMP I .+1 / GET+1 / LDT, 0 TAD Z CHARX SNA JMP I LDT / DCA NUPAGE TAD NUPAGE TAD Z M45 SMA CLA JMP .+5 / ISZ Z IN /LETTER JMS I Z IDX1 TAD NUPAGE JMP I LDT / DCA Z CHARX JMP I LDT / A1W, 0 JMS LDT DCA NUPAGE TAD NUPAGE CLL RTL DCA Z VAL TAD Z VAL RTL RAL TAD Z VAL TAD NUPAGE DCA Z VAL JMS LDT TAD Z VAL JMP I A1W / AAS, 0 JMS A1W DCA Z TEM1 JMS A1W DCA Z TEM2 JMS A1W DCA Z TEM3 JMS LDT SNA CLA JMP I AAS / JMP .-3 / POPUP1, 0 CLA CMA TAD Z POINT DCA Z POINT TAD I Z POINT JMP I POPUP1 / ORGIC, JMS I Z IDX1 JMS I Z EXPR1 TAD Z EVAL DCA Z AADR TAD Z EVAL AND Z C7600 CIA TAD Z APAGE SNA CLA JMP .+4 / JMS I Z PAGE1 TAD Z AADR DCA Z EVAL JMS I NUPAGE+2 JMS I Z PUNOR1 JMP I Z MAIN1 / NUPAGE, 0 UNDERR ZEROT PAUSE