/MACRO COMPILER / /PAGE 200 *200 JMS I .+3 JMP I .+1 / INITL / FIRST CONC, 0 TAD Z APAGE SZA CLA JMP NONO / TAD Z ZBUFE DCA CONP TAD CONP+2 DCA GETYPE TAD Z STUP DCA RADD TAD CERR DCA CERR+1 TAD Z STUP2 JMP COND-1 / NONO, TAD Z CBUFE DCA CONP TAD CONP+1 DCA GETYPE TAD Z M1000 DCA CERR+1 TAD Z STUP JMS FIND DCA RADD TAD Z STUP2 JMS FIND DCA CURREN COND, CLA CMA TAD CONP DCA CONP TAD I GETYPE CIA TAD CONP SPA CLA JMP CONE / TAD I CONP CIA TAD Z EVAL SZA CLA JMP COND / TAD I GETYPE CIA TAD CONP TAD I RADD DCA Z CCON JMP I CONC / CONE, CLA CMA TAD I RADD DCA I RADD TAD I RADD CIA TAD I CURREN SMA CLA JMP CERR / CLA CMA TAD I GETYPE DCA I GETYPE TAD I GETYPE DCA CURREN TAD Z POINT CIA TAD CURREN SPA CLA JMP .+4 / TAD Z EVAL DCA I CURREN JMP CONE-3 / ISZ I GETYPE ISZ I RADD JMS I Z MKROOM JMP NONO / CERR, IAC IAC /OR NOP ISZ I RADD JMS I Z ERR1 JMP I Z MAIN1 / CONZ, 0 TAD CONZ DCA CONC JMP CONC+4 / FIND, 0 /ADD PAGE NNO. TO CONTNTS OF AC DCA CURREN TAD Z APAGE RTL CLL RTL RTL TAD CURREN JMP I FIND / CURREN, 0 JMS I Z RESTO1 JMS I MOVE1-I TAD Z SADR JMS I MOVE1 TEM1A JMS I Z TYPAD1 1000 TAD Z AADR DCA I Z VADR TAD Z AADR DCA Z VAL1A JMP I Z MAIN1 / RADD, 0 TAD Z CON DCA Z CON JMP I RADD CONP, 0 PCON ZCON / GETYPE, 0 TAD I Z SADR AND Z C6000 DCA Z TYPE ISZ Z SADR TAD I Z SADR RTR AND Z C1000 TAD Z TYPE DCA Z TYPE CLA CMA TAD Z SADR DCA Z SADR JMP I GETYPE / ERR7 MOVE1, MOVE HLT PAUSE x