N16-TLT9

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

0800 01550 0 000000 CONF DAC ** CONFIGURATION ROUTINE 0801 01551 140040 CRA CLEAR A-REGISTER (ZERO) 0802 01552 0 06 02015 ADD =1 ADD 1 0803 01553 34 0104 SKS ASRB SKIP IF ASR NOT BUSY 0804 01554 0 01 01552 JMP *-2 LOOP AGAIN 0805 * 0806 01555 0 07 02000 SUB =16500 TIME CONSTANT 0807 01556 101400 SMI MINUS, H316 0808 01557 0 02 02015 LDA =1 PLUS, DDP-416 OR DDP-516 0809 01560 0 04 00214 STA SORF SLOW OR FAST CYCLE TIME 0810 01561 -0 01 01550 JMP* CONF EXIT 0811 * 0812 * 0813 * ERROR ROUTINE 0814 * 0815 01562 0 000000 ERR DAC ** ERROR ROUTINE 0816 * 0817 * CONVERT INPUT CHARACTER TO ISO-CODE 0818 01563 -0 02 00216 LDA* STRA GET A CHARACTER FROM INPUT BUFFER 0819 01564 0405 72 ARS 6 RIGHT SHIFT 6 BITS 0820 01565 0 03 01777 ANA =3 BITS 15 - 16 0821 01566 0 06 01776 ADD ='260 CHARACTER 0 0822 01567 0 04 02455 STA ONE FIRST CHARACTER 0823 * 0824 01570 -0 02 00216 LDA* STRA GET A CHARACTER FROM INPUT BUFFER 0825 01571 0405 75 ARS 3 RIGHT SHIFT 3 BITS 0826 01572 0 03 01775 ANA =7 BITS 14 - 16 0827 01573 0 06 01776 ADD ='260 CHARACTER 0 0828 01574 0 04 02456 STA TWO SECOND CHARACTER 0829 * 0830 01575 -0 02 00216 LDA* STRA GET A CHARACTER FROM INPUT BUFFER 0831 01576 0 03 01775 ANA =7 BITS 14 - 16 0832 01577 0 06 01776 ADD ='260 CHARACTER 0 0833 01600 0 04 02457 STA THR THIRD CHARACTER 0834 * 0835 * CONVERT KNOWN CHARACTER TO ISO-CODE 0836 01601 -0 02 00224 LDA* CHRA GET A CHARACTER FROM DATA BUFFER 0837 01602 0405 72 ARS 6 RIGHT SHIFT 6 BITS 0838 01603 0 03 01777 ANA =3 BITS 15 - 16 0839 01604 0 06 01776 ADD ='260 CHARACTER 0 0840 01605 0 04 02466 STA FOR FOURTH CHARACTER 0841 * 0842 01606 -0 02 00224 LDA* CHRA GET A CHARACTER FROM DATA BUFFER 0843 01607 0405 75 ARS 3 RIGHT SHIFT 3 BITS 0844 01610 0 03 01775 ANA =7 BITS 14 - 16 0845 01611 0 06 01776 ADD ='260 CHARACTER 0 0846 01612 0 04 02467 STA FIV FIFTH CHARACTER 0847 * 0848 01613 -0 02 00224 LDA* CHRA GET A CHARACTER FROM DATA BUFFER 0849 01614 0 03 01775 ANA =7 BITS 14 - 16