N16-TLT9

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

1000 * CHECK IF CHANGE REQUIRED ROUTINE 1001 * 1002 01743 0 000000 CHNG DAC ** CHECK IF CHANGE REQUIRED ROUTINE 1003 01744 0 02 00205 LDA IND INTERRUPT INDICATOR 1004 01745 101040 SNZ NZ, SKIP 1005 01746 -0 01 01743 JMP* CHNG Z, EXIT 1006 * 1007 01747 140040 CRA 1008 01750 0 04 00205 STA IND RESET INTERRUPT INDICATOR 1009 * 1010 01751 0 10 01522 JST OUTP OUTPUT A MESSAGE TO ASR 1011 01752 0 002066 DAC ENTA ENTER A-REG SETTING MESSAGE 1012 * 1013 01753 140040 CRA CLEAR SWITCHES 1014 01754 000000 HLT HALT FOR OPERATOR INTERVENTION 1015 * 1016 01755 0 04 00200 STA SSW STORE SENSE SWITCHES 1017 01756 000401 ENB ENABLE INTERRUPTS 1018 01757 -0 01 01743 JMP* CHNG EXIT 1019 * 1020 * 1021 * BUFFER CHARACTER DELAY ROUTINE 1022 * 1023 01760 0 000000 BCHD DAC ** BUFFER CHARACTER DELAY ROUTINE 1024 01761 0 02 00214 LDA SORF SLOW OR FAST CYCLE TIME 1025 01762 101400 SMI MINUS, H316 BEING USED 1026 01763 0 01 01766 JMP *+3 PLUS, DDP-416/516 BEING USED 1027 * 1028 01764 0 02 01774 LDA ='76713 33333 = (200 * 1000 / 4 * 1.50) 1029 01765 100000 SKP SKIP 1030 * 1031 01766 0 02 01773 LDA ='30000 53248 = (200 * 1000 / 4 * 0.86) 1032 01767 0 04 00215 STA LEGN DELAY COUNT 1033 01770 0 12 00215 IRS LEGN TALLY DELAY COUNT 1034 01771 0 01 01770 JMP *-1 LOOP AGAIN 1035 01772 -0 01 01760 JMP* BCHD EXIT 1036 * 1037 * 1038 * LITERALS 1039 * 1040 01773 030000 FIN LITERALS 01774 076713 01775 000007 01776 000260 01777 000003 02000 040164 02001 010000 02002 000777 02003 020000 02004 077777