N16-TLT9

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

0500 * 0501 * 0502 * PRINTER/PUNCH OUTPUT 0503 * 0504 01227 0 10 01522 DERU JST OUTP OUTPUT A MESSAGE TO ASR 0505 01230 0 002142 DAC PPOT PRINTER/PUNCH OUTPUT MESSAGE 0506 * 0507 01231 000000 HLT 0508 * 0509 * ISO-CODE OUTPUT 0510 01232 0 10 01640 JST MOTO START PUNCH ROUTINE 0511 * 0512 01233 0 10 01450 JST PRTY ASR PRINT ROUTINE 0513 01234 -0 02 00224 LDA* CHRA 0514 01235 000334 DEC 220 0515 * 0516 * BINARY OUTPUT 0517 01236 0 02 02011 LDA =-20 SET INDEX TO 20 CHARACTERS 0518 01237 0 04 00000 STA 0 0519 * 0520 * DELAY NOMINAL 100 MS 0521 01240 0 02 00214 DELP LDA SORF SLOW OR FAST CYCLE TIME 0522 01241 101400 SMI MINUS, H316 BEING USED 0523 01242 0 01 01245 JMP *+3 PLUS, DDP-416/516 BEING USED 0524 * 0525 01243 0 02 02010 LDA =-18000 18000 = (108 * 1000 / 4 * 1.50) 0526 01244 100000 SKP SKIP 0527 * 0528 01245 0 02 02007 LDA =-31270 31270 = (108 * 1000 / 4 * 0.86) 0529 01246 0 04 00207 STA DELA 0530 01247 0 12 00207 IRS DELA DELAY NOMINAL 100 MS 0531 01250 0 01 01247 JMP *-1 0532 * 0533 01251 34 0004 SKS ASRR SKIP IF ASR READY 0534 01252 0 01 01660 JMP ERR1 READY SHOULD BE SET 0535 * 0536 01253 001001 INH INHIBIT INTERRUPTS 0537 01254 0 02 00227 LDA MSK 0538 01255 74 0020 SMK MASK SET MASK 0539 01256 0 02 00226 LDA RUPT 0540 01257 0 04 00063 STA '63 INTERRUPT LOCATION 0541 01260 000401 ENB ENABLE INTERRUPT 0542 01261 101000 NOP INTERRUPT SHOULD OCCUR HERE 0543 01262 001001 INH 0544 01263 0 01 01664 JMP ERR2 NO INTERRUPT 0545 * 0546 * ASR INTERRUPT ROUTINE 0547 01264 0 000000 INTR DAC ** ASR INTERRUPT ROUTINE 0548 01265 000011 OCT 11 DXA - DISABLE EXTENDED ADDRESSING 0549 01266 34 0404 SKS NOTI SKIP IF ASR NOT INTERRUPTING