/MACRO COMPILER / /PAGE 2400 *2400 HIGH, 0 0 0 ORIGT, 0 0 0 WORK, 0 0 0 / ALPHA, 0 JMS I NTEM+2 CLA CMA JMS I Z DECOUT JMS I FOUND+1 DCA ORIGT DCA ORIGT+1 DCA ORIGT+2 DCA FOUND TAD Z M3 TAD Z SEND DCA Z SADR TAD Z C1777 DCA HIGH CLA CMA DCA HIGH+1 CLA CMA DCA HIGH+2 TAD CORIGT JMS MOVE / TEM1 / AEND, TAD Z C4 TAD Z SADR DCA Z SADR TAD Z PERMA CIA TAD Z SADR SMA CLA JMP NTAB / JMS I FOUND+2 TAD Z TYPE TAD Z M1000 SZA CLA JMP AEND / TAD Z SADR JMS MOVE / CWORK, WORK / JMS TRIPLE SNL CLA JMP AEND / TAD CHIGH JMS MOVE / TEM1 / JMS TRIPLE SZL CLA JMP AEND-3 / TAD CWORK JMS MOVE / CHIGH, HIGH ISZ FOUND TAD Z SADR DCA NTEM JMP AEND-3 / FOUND, 0 TYCAR GETYPE / NTAB, TAD FOUND SNA CLA JMP CORIGT+2 / TAD NTEM JMS MOVE / TEM1A / TAD I Z AUT16 DCA Z VAL JMS I NTEM+1 TAD CHIGH JMS MOVE / CORIGT, ORIGT / JMP ALPHA+10 / TAD Z C4 JMS I Z DECOUT CLA CMA JMS I Z DECOUT JMS I NTEM+2 JMP I ALPHA / NTEM, 0 OSANDV LT2 / TRIPLE, 0 CLA CLL TAD Z TEM1 CMA TAD WORK DCA MOVE ISZ MOVE JMP I TRIPLE / TAD Z TEM1+1 CMA TAD WORK+1 DCA MOVE ISZ MOVE JMP I TRIPLE / TAD Z TEM1+2 CMA TAD WORK+2 CLA JMP I TRIPLE / MOVE, 0 TAD Z M1 DCA Z AUT16 CMA TAD I MOVE DCA Z AUT17 TAD I Z AUT16 AND Z C1777 DCA I Z AUT17 TAD I Z AUT16 AND Z C3777 DCA I Z AUT17 TAD I Z AUT16 DCA I Z AUT17 ISZ MOVE JMP I MOVE / ZEROT, 0 DCA Z TEM1A DCA Z VAL1A JMP I ZEROT / HLT HLT PAUSE