/MACRO COMPILER / /PAGE 1400 *1400 MAIN, JMP PASS1 / CLA PASS1, TAD Z PERMA DCA Z SEND LAS RTR SPA CLA JMP .+4 / SNL TAD Z C400 TAD Z C364 TAD Z MACBOT DCA Z MACEND JMS I OCTS1+2 DCA Z PASS DCA Z NOW3 TAD Z M1000 DCA I OCTS1+5 JMS SETORG TAD CJMP1+1 PASS1P, DCA MAIN JMS I OCTS1 JMS I CJMP1-1 MAINSE, JMS I Z IDX1 TAD Z LIST1 /3331 DCA Z POINT DCA Z ANY DCA Z IND JMS I Z EXPR1 TAD Z ANY SNA CLA JMP MAINSE / TAD Z EVAL JMS ONEREG JMP MAINSE / ONEREG, 0 DCA Z EVAL TAD Z STUP JMS I Z FIND2 DCA SETORG TAD Z AADR AND Z C177 DCA SETORG-1 TAD I SETORG CIA TAD SETORG-1 SMA CLA JMP GETPAG / TAD Z STUP2 JMS I Z FIND2 DCA SETORG ISZ SETORG-1 TAD SETORG-1 CIA TAD I SETORG SMA CLA JMP .+3 / TAD SETORG-1 DCA I SETORG JMS I Z PUNON1 ISZ Z AADR TAD SETORG-1 AND Z C177 SZA CLA JMP I ONEREG / JMS I Z PAGE1 JMS I CJMP1-1 JMP I ONEREG / GETPAG, TAD Z APAGE SNA CLA IAC IAC JMS I Z ERR1 JMP MAINSE / 0 / SETORG, 0 TAD Z C200 DCA Z AADR TAD Z C200 DCA Z APAGE TAD Z CBUFE DCA Z PCON TAD Z ZBUFE DCA Z ZCON TAD Z NOW3 SNA CLA /SKIP IF PASS 3 JMS I OCTS1+1 TAD Z C200 DCA Z EVAL TAD M40 DCA Z CON CLA CMA TAD Z STUP DCA Z AUT17 CLA CMA TAD Z STUP2 DCA Z AUT16 TAD Z C200 DCA I Z AUT17 DCA I Z AUT16 ISZ Z CON JMP .-4 / JMS I Z PUNOR1 JMP I SETORG / OCTS1, OCTS LT UNPUN REPUN TYCAR PUNONE+1 JMP OPASS-1400 / PASS3, TAD .-1 DCA I OCTS1+5 ISZ Z NOW3 JMS I OCTS1+4 PASS2, CLA CMA DCA Z PASS DCA Z CKSUM JMS I OCTS1+3 JMS SETORG TAD CJMP1 JMP PASS1P / ZEROT CJMP1, JMP PASS1 JMP PASS2 HLT HLT M40, 0-40 PAUSE