Previous Page Single Page Next Page  

* 0500-001-6612 (016-11T1) CCD NO. 70180294000 REV. D PAGE 17

0800 02114 0 01 02145 JMP END2 CHECK FOR HALT REQUEST 0801 02115 0 02 02707 LDA =-5000 RESTORE TIMED PRINTOUT 0802 02116 0 04 02157 STA CTR2 0803 02117 0 01 02121 JMP TYOT TYPE PASS COUNT 0804 02120 0 01 02145 JMP END2 RESET, SKIP TYPEOUT 0805 * 0806 * END-OF-PASS TYPEOUT ROUTINE 0807 * 0808 02121 34 0104 TYOT SKS '104 ASR BUSY 0809 02122 0 01 02121 JMP *-1 LOOP 0810 02123 14 0104 OCP '104 IF NOT BUSY, ENABLE ASR IN OUTPUT MODE 0811 02124 0 35 02631 LDX =-7 SET INDEX REG. FOR 7 COMPUTER WORDS 0812 02125 1 02 02157 TYO2 LDA TYOB+7,1 GET ONE WORD 0813 02126 0406 70 ARR 8 0814 02127 74 0004 OTA 4 OUTPUT LEFT HALF OF WORD 0815 02130 0 01 02127 JMP *-1 0816 02131 0416 70 ALR 8 0817 02132 74 0004 OTA 4 OUTPUT RIGHT HALF OF WORD 0818 02133 0 01 02132 JMP *-1 0819 02134 0 12 00000 IRS 0 INCREMENT INDEX REGISTER 0820 02135 0 01 02125 JMP TYO2 GO BACK FOR NEXT WORD 0821 02136 0 35 02711 LDX =-9 SET INDEX REGISTER FOR 9 DIGITS 0822 02137 1 02 02171 TYN2 LDA NPAS+9,1 GET ONE NUMBER 0823 02140 0 06 01576 ADD O272 CONVERT IT TO ASCII 0824 02141 74 0004 OTA 4 OUTPUT 0825 02142 0 01 02141 JMP *-1 IT 0826 02143 0 12 00000 IRS 0 INCREMENT INDEX REGISTER 0827 02144 0 01 02137 JMP TYN2 GO BACK FOR NEXT DIGIT 0828 * 0829 02145 100020 END2 SR1 IF SENSE SWITCH 1 IS - 0830 02146 000000 EOPH HLT SET, STOP AT END-OF-PASS HALT 0831 02147 0 01 01010 JMP MPY1 RESET, RESTART 0832 * 0833 02150 106612 TYOB OCT 106612 CARRIAGE RETURN + LINE FEED 0834 02151 142716 BCI 6,END OF PASS 02152 142240 02153 147706 02154 120320 02155 140723 02156 151640 0835 02157 166170 CTR2 DEC -5000 0836 * 0837 * 0838 02160 177766 NPAS DEC -10 NUMBER OF PASSES 0839 02161 177766 DEC -10 * 0840 02162 177766 DEC -10 * 0841 02163 177766 DEC -10 * 0842 02164 177766 DEC -10 * 0843 02165 177766 DEC -10 * 0844 02166 177766 DEC -10 *
  Previous Page Single Page Next Page