N16-TLT9

* N520-001-H005 (N16-TLT9) DRAWING NO. 41285786-001-01 PAGE 9

0400 01112 0 02 00217 LSW1 LDA RTY2 RE-INITIALIZE SECOND BUFFER POINTER 0401 01113 0 04 00216 STA STRA 0402 01114 0 02 00243 LDA M72 MINUS 72 0403 01115 0 04 00244 STA COUN 0404 01116 0 10 01743 JST CHNG CHECK IF CHANGE REQUIRED ROUTINE 0405 01117 0 02 00200 LDA SSW SENSE SWITCHES 0406 01120 0414 75 LGL 3 MOVE BIT & TO BIT 1 0407 01121 100400 SPL PLUS, SKIP 0408 01122 0 01 01130 JMP PROM MINUS, GO TO PRINTER OUT 0409 * 0410 01123 0 02 00200 LDA SSW SR1 0411 01124 100400 SPL 0412 01125 0 01 01034 JMP KYIN NEW INPUT IF SW1 ON 0413 * 0414 01126 0 10 01730 JST SR2 0415 01127 0 01 01072 JMP OUT2 LOOP OUTPUT IF SW2 ON 0416 * 0417 * 0418 * PRINTER OUT 0419 * 0420 01130 0 10 01522 PROM JST OUTP OUTPUT A MESSAGE TO ASR 0421 01131 0 002127 DAC POUT PRINTER OUT MESSAGE 0422 * 0423 * ROTATING PATTERN 0424 01132 0 02 00243 RT1 LDA M72 SET INDEX TO 72 CHARACTERS/LINE 0425 01133 0 04 00000 STA 0 0426 01134 0 02 00231 LDA CHRT 0427 01135 0 10 01704 RT2 JST NDX1 STA* BLOC 0428 01136 0 06 02015 ADD =1 0429 01137 0 04 00210 STA TSTB 0430 01140 0 05 02014 ERA ='340 TEST FOR END OF PATTERN 0431 01141 100040 SZE 0432 01142 0 01 01145 JMP RT3 0433 * 0434 01143 0 02 02013 LDA ='240 SPACE CHARACTER 0435 01144 0 01 01146 JMP *+2 0436 * 0437 01145 0 02 00210 RT3 LDA TSTB GET NEXT CHARACTER CODE 0438 01146 0 12 00000 IRS 0 TALLY CHARACTER COUNT 0439 01147 0 01 01135 JMP RT2 0440 * 0441 01150 0 10 01450 JST PRTY ASR PRINT ROUTINE 0442 01151 -0 02 00220 LDA* BLCB 0443 01152 000113 DEC 75 0444 * 0445 01153 0 10 01743 JST CHNG CHECK IF CHANGE REQUIRED ROUTINE 0446 01154 0 02 00200 LDA SSW SR4 0447 01155 0414 75 LGL 3 0448 01156 100400 SPL 0449 01157 0 01 01166 JMP RT4 END OUTPUT IF SW4 ON