O16-DPT9 rev B

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

2009 04023 000201 IAB REGA = JUNK + REGB = 53M 2010 04024 140040 CRA REGAB = 53M 2011 04025 0411 72 LLS 6 REGAB = 3392M 2012 04026 000201 IAB REGA = LS HALF OF 3392M 2013 04027 0 06 04364 ADD MRKR REGA = LS HALF OF 3393M 2014 04030 140320 CSA CARRY TO C 2015 04031 000201 IAB REGA = MS HALF OF 3392M 2016 04032 141216 ACA REGA = MS HALF OF 3393M 2017 04033 000201 IAB REGA = LS HALF OF 3393M 2018 * 2019 04034 0 07 04414 SUB SSLO REGA = LS HALF OF [(0.4142*M) - SSTP]*(2**13) 2020 04035 140320 CSA BORROW TO C 2021 04036 000201 IAB REGA = MS HALF OF 3393M 2022 04037 100001 SRC BORROW? 2023 04040 0 07 04446 SUB =1 YES 2024 04041 0 07 04413 SUB SSHI REGA = MS HALF OF [(0.4142*M) - SSTP]*(2**13) 2025 * 2026 04042 100400 SPL POSITIVE ? 2027 04043 0 01 04051 JMP CAL0 NO, RETURN ZERO 2028 04044 000201 IAB RECOVER LS HALF 2029 04045 0 11 04427 CAS ='10000 '10000 = 0.5*(2**13) 2030 04046 0 01 04054 JMP CAL2 >0.5 2031 04047 0 01 04053 JMP CAL1 =0.5 2032 04050 -0 01 04004 JMP* CALC EXIT FROM SUBROUTINE 2033 * 2034 04051 140040 CAL0 CRA RETURN ZERO 2035 04052 -0 01 04004 JMP* CALC EXIT FROM SUBROUTINE 2036 * 2037 04053 141206 CAL1 AOA NEVER RETURN EXACTLY 0.5 2038 04054 0 12 04412 CAL2 IRS SSTP STEP COUNT OF SIDE-STEPS 2039 04055 -0 01 04004 JMP* CALC EXIT FROM SUBROUTINE 2040 * 2041 * OUTPUT TO AUTOMATIC SEND-RECEIVE SET 2042 04056 0 000000 OASR DAC ** OUTPUT TO ASR 2043 04057 0 04 04352 STA CNTR WORD COUNTER 2044 04060 14 0104 OCP ASRT ENABLE ASR IN OUTPUT MODE 2045 04061 -0 02 04056 O001 LDA* OASR FETCH NEXT WORD TO OUTPUT 2046 04062 141340 ICA 2047 04063 74 0004 OTA ASRO OUTPUT MS CHARACTER TO ASR 2048 04064 0 01 04063 JMP *-1 DELAY IF ASR NOT READY 2049 04065 141140 ICL 2050 04066 74 0004 OTA ASRO OUTPUT LS CHARACTER T0 ASR 2051 04067 0 01 04066 JMP *-1 DELAY IF ASR NOT READY 2052 04070 0 12 04056 IRS OASR UPDATE RETURN ADDRESS 2053 04071 0 12 04352 IRS CNTR INCREMENT WORD COUNTER 2054 04072 0 01 04061 JMP O001 OUTPUT NEXT WORD TO ASR 2055 04073 34 0104 SKS ASRB SKIP IF ASR NOT BUSY 2056 04074 0 01 04073 JMP *-1 DELAY UNTIL NOT BUSY 2057 04075 -0 01 04056 JMP* OASR EXIT FROM SUBROUTINE 2058 *