O16-DECL

* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 7

0289 00160 0 12 00533 IRS PNT MARK A DECIMAL POINT 0290 00161 0 02 00533 LDA PNT TEST FOR A SINGLE POINT 0291 00162 0 07 00557 SUB Q1 X 0292 00163 100040 SZE X 0293 00164 0 01 00032 JMP LETR TREAT EXTRA POINTS AS LETTERS 0294 00165 -0 01 00000 JMP* DECC RETURN 0295 * 0296 00166 0 02 00534 DEC2 LDA OA TEST FOR OVERFLOW 0297 00167 100040 SZE X 0298 00170 0 01 00354 JMP OA2 PRIOR OVERFLOW 0299 00171 0 10 01022 JST M10 MULTIPLY BY TEN 0300 00172 100040 SZE TEST FOR OVERFLOW 0301 00173 0 01 00346 JMP OA1 RECORD THE OVERFLOW 0302 00174 0 04 01036 STA WORK PREPARE TO ADD 0303 00175 0 04 01037 STA WORK+1 THIS DIGIT INTO 0304 00176 0 02 00532 LDA CH THE SUM 0305 00177 0 04 01040 STA WORK+2 X 0306 00200 0 10 01044 JST TADD PERFORM THE TRIPLE ADD 0307 00201 100040 SZE TEST FOR OVERFLOW 0308 00202 0 01 00346 JMP OA1 ADD CAUSED OVERFLOW 0309 00203 0 02 00533 LDA PNT TEST FOR DECIMAL POINT YET 0310 00204 100040 SZE X 0311 00205 0 12 00535 IRS PCNT COUNT THE PLACES AFTER THE POINT 0312 00206 -0 01 00000 JMP* DECC AND RETURN 0313 * 0314 00207 0406 77 DEC3 ARR 1 TEST FOR E OR B 0315 00210 101400 SMI X 0316 00211 0 01 00230 JMP DEC4 IT IS LETTER B 0317 00212 0 02 00545 DEC5 LDA EFLG TEST FOR PRIOR E 0318 00213 100040 SZE X 0319 00214 0 01 00032 JMP LETR 0320 00215 0 02 00244 LDA ESW SET SWITCH TO E PROCESSOR 0321 00216 0 04 00227 STA SW X 0322 00217 0 12 00537 IRS E1S SET THE E ONE SHOT 0323 00220 0 12 00545 EXIT IRS EFLG COUNT AN E 0324 00221 0 02 00545 LDA EFLG TEST FOR NO MORE 0325 00222 0 07 00226 SUB Q3 THAN TWO E'S 0326 00223 100400 SPL 0327 00224 -0 01 00000 JMP* DECC AND RETURN 0328 00225 0 01 00032 JMP LETR 0329 * 0330 00226 000003 Q3 OCT 3 0331 00227 0 000151 SW DAC DEC1 NORMAL POSITION OF SWITCH 0332 * 0333 00230 0 02 00551 DEC4 LDA BFLG TEST FOR A PRIOR B 0334 00231 100040 SZE X 0335 00232 0 01 00032 JMP LETR X 0336 00233 0 02 00257 LDA BSW SET SWITCH TO B PROCESSOR 0337 00234 0 04 00227 STA SW X 0338 00235 0 12 00540 IRS B1S SET THE B ONE SHOT