N16-TLT9

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

0450 * 0451 01160 0 02 00231 LDA CHRT ROTATE PAITERN 0452 01161 0 06 02015 ADD =1 0453 01162 0 04 00231 STA CHRT 0454 01163 0 05 02014 ERA ='340 0455 01164 100040 SZE 0456 01165 0 01 01132 JMP RT1 SET UP NEAT LINE 0457 * 0458 01166 0 02 02013 RT4 LDA ='240 RE-INITIALIZE CHARACTER 0459 01167 0 04 00231 STA CHRT 0460 01170 0 10 01722 JST SS4 SS4 0461 01171 0 01 01132 JMP RT1 0462 * 0463 01172 140040 CRA 0464 01173 0 04 00200 STA SSW RESET SENSE SWITCHES 0465 * 0466 * ALL CHARACTERS IN ALL PRINT POSITIONS 0467 01174 0 02 00243 LOAD LDA M72 MINUS 72 COUNT FOR 0468 01175 0 04 00000 STA 0 CHARACTERS/LINE 0469 01176 0 02 00231 LDA CHRT 0470 01177 0 10 01704 JST NDX1 STA* BLOC 0471 01200 0 12 00000 IRS 0 TALLY INDEX REGISTER 0472 01201 0 01 01177 JMP *-2 LOOP AGAIN 0473 * 0474 01202 0 10 01450 JST PRTY PRINT BLOCK - 1 LINE 0475 01203 -0 02 00220 LDA* BLCB 0476 01204 000113 DEC 75 0477 * 0478 01205 0 10 01743 JST CHNG CHECK IF CHANGE REQUIRED ROUTINE 0479 01206 0 10 01722 JST SS4 0480 01207 0 01 01211 JMP *+2 BIT 4 NOT SET 0481 01210 0 01 01227 JMP DERU BIT 4 SET 0482 * 0483 01211 0 10 01730 JST SR2 0484 01212 0 01 01223 JMP LOOP BIT 2 SET 0485 * 0486 01213 0 02 00231 LDA CHRT CHARACTER 0487 01214 0 05 02012 ERA ='337 TST FOR END OF PATTERN 0488 01215 101040 SNZ 0489 01216 0 01 01223 JMP LOOP JUMP IF ALL PRINTED 0490 * 0491 01217 0 02 00231 LDA CHRT 0492 01220 0 06 02015 ADD =1 SET UP NEXT CHARACTER 0493 01221 0 04 00231 STA CHRT 0494 01222 0 01 01174 JMP LOAD 0495 * 0496 01223 0 02 02013 LOOP LDA ='240 RE-INITIALIZE CHARACTER 0497 01224 0 04 00231 STA CHRT 0498 01225 0 10 01730 JST SR2 0499 01226 0 01 01174 JMP LOAD LOOP OUTPUT IF SW2 ON