X16-08T1

* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 19

0790 02062 -0 01 02216 JMP* ASTR GO TO BEGINNING OF PROGRAM. 0791 02063 0 02 02061 STG LDA EOPH+1 GET CRA INSTRUCTION 0792 02064 0 04 02060 STA EOPH AND REPLACE HLT WITH IT. 0793 02065 0 01 02060 JMP EOPH RETURN. 0794 * 0795 * TYPE-OUT ROUTINE 0796 * 0797 02066 34 0104 TYPO SKS '104 BUSY 0798 02067 0 01 02066 JMP *-1 LOOP. 0799 02070 14 0104 OCP '104 ENABLE ASR IN OUTPUT MODE. 0800 02071 0 02 02222 LDA =-8 SET COUNTER FOR 8 WORDS. 0801 02072 0 04 00774 STA T0 * 0802 02073 0 02 02142 LDA MA1 GET MESSAGE ADDRESS. 0803 02074 0 04 00775 STA T2 0804 02075 0 10 02115 JST OUTL OUTPUT MESSAGE (2 CHARACTERS/WORD). 0805 02076 0 02 02232 LDA =-9 SET COUNTER FOR 9 DIGITS. 0806 02077 0 04 00774 STA T0 * 0807 02100 0 02 02153 LDA NA1 GET MESSAGE ADDRESS. 0808 02101 0 04 00775 STA T2 0809 02102 0 10 02131 JST OUTN OUTPUT DECIMAL DIGITS 0810 02103 0 02 02221 LDA =-6 FOLLOWED 0811 02104 0 04 00774 STA T0 BY 0812 02105 0 02 02220 LDA ='240 6 0813 02106 74 0004 CHTO OTA 4 SPACES. 0814 02107 0 01 02106 JMP *-1 * 0815 02110 0 12 00774 IRS T0 * 0816 02111 0 01 02106 JMP CHTO * 0817 02112 34 0104 SKS '104 WAIT 0818 02113 0 01 02112 JMP *-1 WHILE ASR IS BUSY. 0819 02114 0 01 02057 JMP EOPH-1 RETURN. 0820 * 0821 * BCI OUTPUT SUBROUTINE 0822 * 0823 02115 0 000000 OUTL DAC ** ENTRY. 0824 02116 -0 02 00775 LDA* T2 GET 2 CHARACTERS. 0825 02117 0406 70 ARR 8 TYPE 0826 02120 74 0004 OTA 4 OUT 0827 02121 0 01 02120 JMP *-1 1ST CHARACTER (BITS 1-8). 0828 02122 0416 70 ALR 8 TYPE 0829 02123 74 0004 OTA 4 OUT 0830 02124 0 01 02123 JMP *-1 2ND CHARACTER (BITS 9-16). 0831 02125 0 12 00775 IRS T2 INCREMENT ADDRESS. 0832 02126 0 12 00774 IRS T0 INCREMENT COUNTER. 0833 02127 0 01 02116 JMP OUTL+1 GO BACK UNTIL ALL OUT. 0834 02130 -0 01 02115 JMP* OUTL EXIT. 0835 * 0836 * NUMBER OUTPUT SUBROUTINE 0837 * 0838 02131 0 000000 OUTN DAC ** ENTRY. 0839 02132 -0 02 00775 LDA* T2 GET NUMBER.