/MACRO COMPILER / /PAGE 2200 *2200 DPCV, 0 ISZ Z ANY DCA Z HIC DCA Z LWC DCA RTD16 DCA SIGN DCA DPN TAD Z CHARX2 TAD M67 SNA JMP DPCS / TAD Z M2 SZA CLA JMP DPCS+1 / CLA CMA DCA SIGN / DPCS, JMS I Z IDX1 TAD Z CHARX2 TAD Z M45 SMA JMP I DPCV / TAD Z C12 SPA JMP I DPCV / DCA MTD6 TAD Z HIC AND M400 SZA CLA JMP DPCS ISZ DPN ISZ RTD16 JMS MT10 JMP DPCS / DECIM, JMS DECIMS JMP I Z B21 / OCT, JMS OCTS JMP I Z B21 / DECIMS, 0 TAD MTSW+5 DCA MTSW JMP I DECIMS / OCTS, 0 TAD Z M1000 DCA MTSW JMP I OCTS / MT10, 0 TAD Z LWC DCA TIC+1 TAD Z HIC DCA TIC JMS MTRL JMS MTRL / MTSW, JMS MTAD /NOP(OCT); JMS MTAD(DEC) / JMS MTRL TAD MTD6 DCA TIC+1 DCA TIC JMS MTAD JMP I MT10 / MTRL, 0 CLA CLL TAD Z LWC RAL DCA Z LWC TAD Z HIC RAL DCA Z HIC JMP I MTRL / MTAD, 0 CLA CLL TAD Z LWC TAD TIC+1 DCA Z LWC RAL TAD Z HIC TAD TIC DCA Z HIC JMP I MTAD / RTD16, 0 ZUNCON ENDOP, JMS I Z PAGE1 JMS I .-2 JMP I Z FINEND / PASS1-1 PASS2 PASS1+2 / INITL, LAS SPA JMP I INITL-3 / RAL SPA JMP I INITL-2 / RAL SPA JMP I INITL-1 / RAL SMA CLA JMP I Z MAINEX / DCA Z CHARAC JMP I .+1 / PASS3 SIGN, 0 DPN, 0 MTD6, 0 TIC, 0 0 / ERR7, 0 TAD Z TYPE TAD Z C6000 SNA CLA JMP I ERR7 / TAD Z AADR CIA TAD I Z VADR SNA CLA JMP I ERR7 / TAD Z C7 JMS I Z ERR1 JMP I Z MAIN1 / UNDERR, 0 ISZ Z PASS JMP I UNDERR / JMS I Z ERR1 CLA CMA DCA Z PASS JMP I UNDERR / M400, 0-400 M67, 0-67 PAUSE