O16-DPT9 rev B

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

2109 04154 0 07 04457 SUB ='260 '260 = CHARACTER ZERO 2110 04155 100400 SPL TEST FOR VALIDITY OF CHARACTER 2111 04156 -0 01 04145 JMP* DCML EXIT 1 - INVALID CHAR, REPEAT THE QUESTION 2112 04157 0 07 04476 SUB =10 2113 04160 101400 SMI TEST FOR VALIDITY OF CHARACTER 2114 04161 -0 01 04145 JMP* DCML EXIT 1 - INVALID CHAR, REPEAT THE QUESTION 2115 04162 0 12 04352 IRS CNTR INCREMENT CHARACTER COUNTER 2116 04163 0 01 04152 JMP TNC2 TEST NEXT CHARACTER 2117 04164 0 02 04343 LDA CHR1 FIRST INPUT CHARACTER (TENS DIGIT) 2118 04165 0 05 04457 ERA ='260 2119 04166 0414 76 LGL 2 REGA = 4*(TENS DIGIT) 2120 04167 0 06 04343 ADD CHR1 REGA = 5*(TENS DIGIT) 2121 04170 0 07 04457 SUB ='260 2122 04171 0414 77 LGL 1 REGA = 10*(TENS DIGIT) 2123 04172 0 06 04344 ADD CHR2 REGA = 10*(TENS DIGIT) + UNITS DIGIT 2124 04173 0 07 04457 SUB ='260 2125 04174 0 12 04145 IRS DCML UPDATE RETURN ADDRESS 2126 04175 -0 01 04145 JMP* DCML EXIT 2 - CHARACTERS OK 2127 * 2128 * ERROR ROUTINE 2129 04176 0 000000 ERRR DAC ** ERROR ROUTINE 2130 04177 34 0127 DP65 SKS PLNB 2131 04200 0 01 04177 JMP *-1 DELAY UNTIL NOT BUSY 2132 04201 14 1627 DP68 OCP PENU 2133 04202 0 12 04176 IRS ERRR UPDATE TO ADDRESS OF ERROR MESSAGE 2134 04203 -0 02 04176 LDA* ERRR MS HALF OF ERROR MESSAGE 2135 04204 0 04 04216 STA EMSG 2136 04205 0 12 04176 IRS ERRR UPDATE TO ADDRESS OF ERROR MESSAGE + 1 2137 04206 -0 02 04176 LDA* ERRR LS HALF OF ERROR MESSAGE 2138 04207 0 04 04217 STA EMSG+1 2139 04210 0 02 04461 LDA =-8 NUMBER OF WORDS TO BE OUTPUT 2140 04211 0 10 04056 JST OASR 2141 04212 105212 OCT 105212 LF/LF 2142 04213 142722 BCI 3,ERROR 04214 151317 04215 151240 2143 04216 EMSG BSS 2 ERROR MESSAGE 2144 04220 103607 OCT 103607,103607 BELL/BELL/BELL/BELL 04221 103607 2145 04222 0 35 04376 LDX 20NU STEP COUNTER 2146 04223 34 0127 DP66 SKS PLNB 2147 04224 0 01 04223 JMP *-1 DELAY UNTIL NOT BUSY 2148 04225 14 0427 DP67 OCP PLNI 2149 04226 0 12 00000 IRS 0 INCREMENT STEP COUNTER 2150 04227 0 01 04223 JMP *-4 MOVE PLOTTER NEXT STEP 2151 04230 0 01 01722 JMP AQTN ASK QUESTION: TEST NO? 2152 * 2153 * 2154 * CONSTANTS 2155 *