O$AH, O$AL

* ????-???-???? (O$AL) 3C NO. 189005000 REV. B PAGE 6

0188 00050 0 12 00000 IRS 0 STEP INDEX 0189 00051 0 01 00046 JMP P3 LOOP 0190 * 0191 00052 0 12 00173 IRS O$LN STEP LINE COUNT 0192 00053 0 02 00173 LDA O$LN 0193 00054 0 11 00174 CAS O$LC COMPARE TO LINES PER PAGE 0194 00055 0 01 00060 JMP P2 0195 00056 0 01 00060 JMP P2 0196 00057 0 01 00101 JMP EXIT < MAX, READY 0197 00060 0 02 00200 P2 LDA =-10 HERE TO MOVE TO NEXT PAGE 0198 00061 0 04 00000 STA 0 X 20 BLANK 0199 00062 0 02 00177 P5 LDA ='105212 SKIP TO NEW PAGE 0200 00063 0 10 00070 JST SHFT 0201 00064 0 12 00000 IRS 0 0202 00065 0 01 00062 JMP P5 LOOP UNTIL NEW PAGE 0203 * 0204 00066 0 10 00105 JST PHDR PRINT THE HEADER 0205 00067 0 01 00100 JMP PX GO TO NEW PAGE AND EXIT 0206 * 0207 * 0208 00070 0 000000 SHFT DAC ** SHIFT AND OUTPUT TWO CHARACTER ROUTINE 0209 00071 0400 70 LRL 8 BRING IN FIRST CHARACTER 0210 00072 74 0004 OTA 4 OUTPUT IT 0211 00073 0 01 00072 JMP *-1 WAIT UNTIL DONE OUTPUTTING 0212 00074 0410 70 LLL 8 BRING IN SECOND CHARACTER 0213 00075 74 0004 OTA 4 OUTPUT IT 0214 00076 0 01 00075 JMP *-1 WAIT UNTIL ASR DONE 0215 00077 -0 01 00070 JMP* SHFT RETURN TO CALLER 0216 * 0217 * 0218 00100 0 10 00124 PX JST PAGE SKIP TO NEW PAGE 0219 00101 0 02 00141 EXIT LDA SVX RESTORE SAVED INDEX 0220 00102 0 04 00000 STA 0 0221 00103 0 12 00023 IRS O$AL TALLY RETURN ADDRESS 0222 00104 -0 01 00023 JMP* O$AL RETURN 0223 * 0224 * 0225 00105 0 000000 PHDR DAC ** PRINT THE HEADER ON ASR 0226 00106 140040 CRA 0227 00107 0 04 00173 STA O$LN RESET LINE NUMBER 0228 00110 0 02 00176 LDA =-23 HEADER LENGTH 0229 00111 0 04 00000 STA 0 0230 00112 1 02 00173 LDA HH,1 FETCH WORD FROM BUFFER 0231 00113 0 10 00070 JST SHFT TYPE TWO CHARACTERS 0232 00114 0 12 00000 IRS 0 STEP INDEX 0233 00115 0 01 00112 JMP *-3 LOOP UNTIL DONE 0234 00116 -0 01 00105 JMP* PHDR RETURN 0235 * 0236 * 0237 00117 0 000000 ASR DAC ** CHECK ASR BUSY ROUTINE