O16-DPT9 rev B

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

2059 * INPUT FROM AUTOMATIC SEND-RECEIVE SET 2060 04076 0 000000 IASR DAC ** INPUT FROM ASR 2061 04077 0 04 04352 STA CNTR CHARACTER COUNTER 2062 04100 0 02 04341 LDA CHRL 2063 04101 0 04 04373 STA TMPB START ADDRESS FOR INPUT 2064 04102 140040 CRA 2065 04103 0 04 04343 STA CHR1 2066 04104 0 04 04344 STA CHR2 2067 04105 14 0004 OCP ASRN 2068 04106 0 02 04420 I001 LDA ='200 ENSURE BIT 8 OF CHARACTER IS SET 2069 04107 54 0004 INA ASRI 2070 04110 0 01 04107 JMP *-1 DELAY IF ASR NOT READY 2071 04111 -0 04 04373 STA* TMPB STORE INPUT CHARACTER 2072 04112 0 12 04373 IRS TMPB UPDATE TO ADDR OF NEXT CHARACTER 2073 04113 0 11 04417 CAS ='215 '215 = CARRIAGE RETURN CHARACTER 2074 04114 100000 SKP INPUT CHAR OTHER THAN CR 2075 04115 0 01 04125 JMP I002 INPUT CHARACTER IS CARRIAGE RETURN 2076 04116 0 11 04416 CAS ='244 '244 = DOLLAR SIGN CHARACTER 2077 04117 100000 SKP INPUT CHAR OTHER THAN $ 2078 04120 0 01 01044 JMP CHNG INPUT CHAR IS $, REPEAT FROM THE FIRST QSTN 2079 04121 0 12 04352 IRS CNTR INCREMENT CHARACTER COUNTER 2080 04122 0 01 04106 JMP I001 INPUT NEXT CHARACTER FROM ASR 2081 04123 0 12 04076 IRS IASR UPDATE RETURN ADDRESS 2082 04124 -0 01 04076 JMP* IASR EXIT 1 - CR NOT TYPED, REPEAT THE QUESTION 2083 * 2084 04125 0 02 04343 I002 LDA CHR1 FIRST INPUT CHARACTER 2085 04126 0 11 04417 CAS ='215 '215 = CR CHARACTER 2086 04127 0 01 04142 JMP I003 FIRST INPUT CHAR OTHER THAN CR 2087 04130 100000 SKP FIRST INPUT CHARACTER IS CARRIAGE RETURN 2088 04131 0 01 04142 JMP I003 FIRST INPUT CHAR OTHER THAN CR 2089 04132 -0 02 04076 LDA* IASR ADDRESS OF LAST ANSWER 2090 04133 0 04 04373 STA TMPB 2091 04134 -0 02 04373 LDA* TMPB LAST ANSWER 2092 04135 141140 ICL MS HALF OF LAST ANSWER 2093 04136 0 04 04343 STA CHR1 2094 04137 -0 02 04373 LDA* TMPB LAST ANSWER 2095 04140 141050 CAL LS HALF OF LAST ANSWER 2096 04141 0 04 04344 STA CHR2 2097 04142 0 12 04076 I003 IRS IASR UPDATE RETURN ADDRESS 2098 04143 0 12 04076 IRS IASR UPDATE RETURN ADDRESS 2099 04144 -0 01 04076 JMP* IASR EXIT FROM SUBROUTINE 2100 * 2101 * TEST INPUT DECIMAL 00-99 2102 04145 0 000000 DCML DAC ** TEST INPUT DECIMAL 00-99 2103 04146 0 02 04460 LDA =-2 NUMBER OF CHARACTERS TO BE TESTED 2104 04147 0 04 04352 STA CNTR CHARACTER COUNTER 2105 04150 0 02 04341 LDA CHRL 2106 04151 0 04 04373 STA TMPB 2107 04152 -0 02 04373 TNC2 LDA* TMPB CHARACTER 2108 04153 0 12 04373 IRS TMPB NEXT CHARACTER