/MACRO COMPILER / /PAGE 4200 *4200 MACREF, CLA CMA TAD I Z GETSY1 DCA LATER-1 TAD Z M1000 DCA I EXIT2+4 TAD Z MACEND DCA LATER DCA LATER+1 TAD I LATER+2 DCA I LATER+3 JMP EXIT2-15 / RTURN, TAD I EXIT2+4 DCA PSWIT2 TAD Z MACEND DCA MCTEM JMS I Z IDX1 TAD Z CHARX TAD DEFPT+2 SNA JMP .+4 /; OR CR / TAD DEFPT+3 SZA CLA JMP RTURN / ISZ LATER+1 TAD PSWIT2 DCA I EXIT2+4 TAD MCTEM DCA Z MACEND TAD DEFPT+4 JMS I EXIT2+2 TAD Z CHARX2 TAD DEFPT+2 SZA CLA JMP RTURN / TAD Z M1000 DCA I LATER+3 DCA PSWIT2 TAD Z VAL DCA I WHERE2 TAD I EXIT2+3 DCA I EXIT2+5 TAD Z M1000 DCA I IDXMC EXIT2, JMS I Z IDX1 JMP I LATER-1 / PACK JMPOUT PACK+1 IDX+1 / ESCAPE, CLA CMA TAD I Z GETSY1 DCA LATER-1 JMS I Z RESTO1 TAD PSWIT2 SZA CLA JMP NDARGU / ISZ PSWIT2 JMS I Z IDX1 CLA IAC TAD Z CHARX CIA DCA MCTEM TAD MCTEM TAD LATER+1 SPA CLA JMP FINIS-2 / TAD I WHERE2 DCA DEFPT TAD I IDXMC DCA DEFPT+1 TAD LATER DCA I WHERE2 TAD Z M1000 DCA I IDXMC ISZ MCTEM SKP JMP EXIT2 / JMS I Z IDX1 TAD Z CHARX CIA TAD DEFPT+4 SZA CLA JMP .-5 / ISZ MCTEM JMP .-7 / JMP EXIT2 / NDARGU, DCA PSWIT2 TAD DEFPT DCA I WHERE2 TAD DEFPT+1 DCA I IDXMC JMP EXIT2 / TAD DEFPT+5 JMS I Z ERR1 FINIS, TAD LATER DCA Z MACEND TAD Z M1000 DCA I EXIT2+5 JMP I .+1 / G 0 LATER, 0 0 /PARAMETER COUNT CJMPHE SWITCH PSWIT2, 0 MCTEM, 0 WHERE2, GETIN IDXMC, IDXMAC DEFPT, 0 0 0-46 0-22 77 11 PAUSE