/MACRO COMPILER / /PAGE 400 *400 SEARCH, 0 JMS I Z SAVE1 TAD Z M3 TAD Z STAB DCA Z SADR CLA CMA TAD Z SADR DCA Z AUT16 TAD I Z AUT16 AND Z C1777 CIA TAD Z TEM1 SZA CLA JMP IND1 / TAD I Z AUT16 AND Z C3777 CIA TAD Z TEM2 SZA CLA JMP IND1 / TAD I Z AUT16 CIA TAD Z TEM3 SZA CLA JMP IND1 /NO MATCH / TAD IND1-1 /TOP CIA TAD Z SADR SMA CLA JMP .+7 / TAD Z SADR CIA TAD Z PERMA SPA DCA Z INST /- IF INSTRUCTION CLA TAD I Z AUT16 DCA Z VAL TAD Z AUT16 DCA Z VADR JMS I GTYPE ISZ SEARCH JMS I .+2 JMP I SEARCH / ANYY TOP / IND1, TAD GETSYM-1 TAD Z SADR DCA Z SADR TAD Z SADR CIA TAD Z SEND SPA CLA JMP SEARCH+5 ISZ Z ANY JMP I SEARCH / 0-4 / GETSYM, 0 TAD Z CHARX SNA JMP SPECIAL / TAD Z M33 SPA JMP GETLET TAD Z M12 SMA CLA JMP SPECIAL / JMS I .+2 JMP I B11 / DPCV / SPECIAL, TAD Z CHARX2 DCA Z TEM3 DCA Z TEM2 DCA Z TEM1 JMS SEARCH JMP B11+1 / TAD Z TYPE SPA CLA JMP I Z VAL / TAD Z VAL DCA Z TYPE JMP GSTART / B11, B1 / TAD Z C10 JMS I Z ERR1 JMS I Z IDX1 JMP GETSYM+1 / GETLET, JMS I Z GETAS1 TAD Z TYPE SNA JMP I Z DECOUT+2 / TAD Z C4000 SNA CLA JMP I Z VAL /PSEUDO OP / GSTART, TAD I GETSYM AND Z C177 DCA Z CURR TAD GETSYM AND Z C7600 TAD Z CURR DCA Z CURR TAD I GETSYM AND Z C7600 SZA JMP GTYPE+1 / TAD Z CURR DCA GETSYM JMP GSTART / FIXED, TAD Z SEND SKP ERASE, TAD IND1-1 JMS I Z DECOUT+1 DCA Z PERMA TAD Z PERMA DCA Z SEND JMP I Z MAIN1 / GTYPE, GETYPE / CIA TAD Z TYPE SNA CLA JMP I Z CURR / TAD I GETSYM AND Z C7600 TAD Z C200 SNA CLA JMP I Z CURR / ISZ I Z GETSY1 JMP GSTART PAUSE