O16-DPT9 rev A

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

2059 04111 -0 02 04345 LDA* TMPB LAST ANSWER 2060 04112 141050 CAL LS HALF OF LAST ANSWER 2061 04113 0 04 04316 STA CHR2 2062 04114 0 12 04050 I003 IRS IASR UPDATE RETURN ADDRESS 2063 04115 0 12 04050 IRS IASR UPDATE RETURN ADDRESS 2064 04116 -0 01 04050 JMP* IASR EXIT FROM SUBROUTINE 2065 * 2066 * TEST INPUT DECIMAL 00-99 2067 04117 0 000000 DCML DAC ** TEST INPUT DECIMAL 00-99 2068 04120 0 02 04430 LDA =-2 NUMBER OF CHARACTERS TO BE TESTED 2069 04121 0 04 04324 STA CNTR CHARACTER COUNTER 2070 04122 0 02 04313 LDA CHRL 2071 04123 0 04 04345 STA TMPB 2072 04124 -0 02 04345 TNC2 LDA* TMPB CHARACTER 2073 04125 0 12 04345 IRS TMPB NEXT CHARACTER 2074 04126 0 07 04427 SUB ='260 '260 = CHARACTER ZERO 2075 04127 100400 SPL TEST FOR VALIDITY OF CHARACTER 2076 04130 -0 01 04117 JMP* DCML EXIT 1 - INVALID CHAR, REPEAT THE QUESTION 2077 04131 0 07 04446 SUB =10 2078 04132 101400 SMI TEST FOR VALIDITY OF CHARACTER 2079 04133 -0 01 04117 JMP* DCML EXIT 1 - INVALID CHAR, REPEAT THE QUESTION 2080 04134 0 12 04324 IRS CNTR INCREMENT CHARACTER COUNTER 2081 04135 0 01 04124 JMP TNC2 TEST NEXT CHARACTER 2082 04136 0 02 04315 LDA CHR1 FIRST INPUT CHARACTER (TENS DIGIT) 2083 04137 0 05 04427 ERA ='260 2084 04140 0414 76 LGL 2 REGA = 4*(TENS DIGIT) 2085 04141 0 06 04315 ADD CHR1 REGA = 5*(TENS DIGIT) 2086 04142 0 07 04427 SUB ='260 2087 04143 0414 77 LGL 1 REGA = 10*(TENS DIGIT) 2088 04144 0 06 04316 ADD CHR2 REGA = 10*(TENS DIGIT) + UNITS DIGIT 2089 04145 0 07 04427 SUB ='260 2090 04146 0 12 04117 IRS DCML UPDATE RETURN ADDRESS 2091 04147 -0 01 04117 JMP* DCML EXIT 2 - CHARACTERS OK 2092 * 2093 * ERROR ROUTINE 2094 04150 0 000000 ERRR DAC ** ERROR ROUTINE 2095 04151 34 0127 DP65 SKS PLNB 2096 04152 0 01 04151 JMP *-1 DELAY UNTIL NOT BUSY 2097 04153 14 1627 DP68 OCP PENU 2098 04154 0 12 04150 IRS ERRR UPDATE TO ADDRESS OF ERROR MESSAGE 2099 04155 -0 02 04150 LDA* ERRR MS HALF OF ERROR MESSAGE 2100 04156 0 04 04170 STA EMSG 2101 04157 0 12 04150 IRS ERRR UPDATE TO ADDRESS OF ERROR MESSAGE + 1 2102 04160 -0 02 04150 LDA* ERRR LS HALF OF ERROR MESSAGE 2103 04161 0 04 04171 STA EMSG+1 2104 04162 0 02 04431 LDA =-8 NUMBER OF WORDS TO BE OUTPUT 2105 04163 0 10 04030 JST OASR 2106 04164 105212 OCT 105212 LF/LF 2107 04165 142722 BCI 3,ERROR 04166 151317