O16-DPT9 rev A

* 0520-001-H002 (O16-DPT9) DRAWING NO. 41285751-001-01 PAGE 44

2009 04032 14 0104 OCP ASRT ENABLE ASR IN OUTPUT MODE 2010 04033 -0 02 04030 O001 LDA* OASR FETCH NEXT WORD TO OUTPUT 2011 04034 141340 ICA 2012 04035 74 0004 OTA ASRO OUTPUT MS CHARACTER TO ASR 2013 04036 0 01 04035 JMP *-1 DELAY IF ASR NOT READY 2014 04037 141140 ICL 2015 04040 74 0004 OTA ASRO OUTPUT LS CHARACTER T0 ASR 2016 04041 0 01 04040 JMP *-1 DELAY IF ASR NOT READY 2017 04042 0 12 04030 IRS OASR UPDATE RETURN ADDRESS 2018 04043 0 12 04324 IRS CNTR INCREMENT WORD COUNTER 2019 04044 0 01 04033 JMP O001 OUTPUT NEXT WORD TO ASR 2020 04045 34 0104 SKS ASRB SKIP IF ASR NOT BUSY 2021 04046 0 01 04045 JMP *-1 DELAY UNTIL NOT BUSY 2022 04047 -0 01 04030 JMP* OASR EXIT FROM SUBROUTINE 2023 * 2024 * INPUT FROM AUTOMATIC SEND-RECEIVE SET 2025 04050 0 000000 IASR DAC ** INPUT FROM ASR 2026 04051 0 04 04324 STA CNTR CHARACTER COUNTER 2027 04052 0 02 04313 LDA CHRL 2028 04053 0 04 04345 STA TMPB START ADDRESS FOR INPUT 2029 04054 140040 CRA 2030 04055 0 04 04315 STA CHR1 2031 04056 0 04 04316 STA CHR2 2032 04057 14 0004 OCP ASRN 2033 04060 0 02 04367 I001 LDA ='200 ENSURE BIT 8 OF CHARACTER IS SET 2034 04061 54 0004 INA ASRI 2035 04062 0 01 04061 JMP *-1 DELAY IF ASR NOT READY 2036 04063 -0 04 04345 STA* TMPB STORE INPUT CHARACTER 2037 04064 0 12 04345 IRS TMPB UPDATE TO ADDR OF NEXT CHARACTER 2038 04065 0 11 04366 CAS ='215 '215 = CARRIAGE RETURN CHARACTER 2039 04066 100000 SKP INPUT CHAR OTHER THAN CR 2040 04067 0 01 04077 JMP I002 INPUT CHARACTER IS CARRIAGE RETURN 2041 04070 0 11 04365 CAS ='244 '244 = DOLLAR SIGN CHARACTER 2042 04071 100000 SKP INPUT CHAR OTHER THAN $ 2043 04072 0 01 01044 JMP CHNG INPUT CHAR IS $, REPEAT FROM THE FIRST QSTN 2044 04073 0 12 04324 IRS CNTR INCREMENT CHARACTER COUNTER 2045 04074 0 01 04060 JMP I001 INPUT NEXT CHARACTER FROM ASR 2046 04075 0 12 04050 IRS IASR UPDATE RETURN ADDRESS 2047 04076 -0 01 04050 JMP* IASR EXIT 1 - CR NOT TYPED, REPEAT THE QUESTION 2048 * 2049 04077 0 02 04315 I002 LDA CHR1 FIRST INPUT CHARACTER 2050 04100 0 11 04366 CAS ='215 '215 = CR CHARACTER 2051 04101 0 01 04114 JMP I003 FIRST INPUT CHAR OTHER THAN CR 2052 04102 100000 SKP FIRST INPUT CHARACTER IS CARRIAGE RETURN 2053 04103 0 01 04114 JMP I003 FIRST INPUT CHAR OTHER THAN CR 2054 04104 -0 02 04050 LDA* IASR ADDRESS OF LAST ANSWER 2055 04105 0 04 04345 STA TMPB 2056 04106 -0 02 04345 LDA* TMPB LAST ANSWER 2057 04107 141140 ICL MS HALF OF LAST ANSWER 2058 04110 0 04 04315 STA CHR1