Previous File Previous Page Single Page Next Page Next File

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

0339 00236 0 12 00551 BXIT IRS BFLG COUNT A B 0340 00237 0 02 00551 LDA BFLG TEST FOR NO MORE 0341 00240 0 07 00226 SUB Q3 THAN TWO B'S 0342 00241 101400 SMI X 0343 00242 0 01 00032 JMP LETR X 0344 00243 -0 01 00000 JMP* DECC AND RETURN 0345 * 0346 00244 0 000245 ESW DAC *+1 POINTER FOR SWITCH 0347 00245 100040 SZE TEST FOR NUMERIC 0348 00246 0 01 00272 JMP E1 NOT NUMERIC 0349 00247 0 04 00537 STA E1S RESET E ONE SHOT 0350 00250 0 02 00536 LDA ECNT MULTIPLY THE PARTIAL 0351 00251 0414 76 LGL 2 SUM BY UQ 0352 00252 0 06 00536 ADD ECNT X 0353 00253 0414 77 LGL 1 X 0354 00254 0 06 00532 ADD CH ADD IN THE CURRENT DIGIT 0355 00255 0 04 00536 STA ECNT SAVE THE NEW PARTIAL SUM 0356 00256 -0 01 00000 JMP* DECC AND RETURN 0357 * 0358 00257 0 000260 BSW DAC *+1 POINTER FUR SWITCH 0359 00260 100040 SZE TEST FOR NUMERIC 0360 00261 0 01 00320 JMP B1 NOT NUMERIC 0361 00262 0 04 00540 STA B1S RESET B ONE SHOT 0362 00263 0 02 00541 LDA BCNT MULTIPLY THE PARTIAL 0363 00264 0414 76 LGL 2 SUM BY 10 0364 00265 0 06 00541 ADD BCNT X 0365 00266 0414 77 LGL 1 0366 00267 0 06 00532 ADD CH ADD IN THE CURRENT DIGIT 0367 00270 0 04 00541 STA BCNT SAVE THE NEW PARTIAL SUM 0368 00271 -0 01 00000 JMP* DECC AND RETURN 0369 * 0370 00272 100400 E1 SPL TEST FOR B OR E 0371 00273 0 01 00303 JMP E2 IT IS (+), (-), (.) 0372 00274 0406 77 ARR 1 TEST FOR B 0373 00275 101400 SMI X 0374 00276 0 01 00230 JMP DEC4 IT IS B 0375 00277 0 02 00537 LDA E1S IS E ONE SHOT STILL SET 0376 00300 101040 SNZ X 0377 00301 0 01 00032 JMP LETR X 0378 00302 0 01 00220 JMP EXIT RECORD AN E 0379 00303 0406 77 E2 ARR 1 TEST FOR DECIMAL POINT 0380 00304 100400 SPL X 0381 00305 0 01 00032 JMP LETR DECIMAL POINT - TREAT AS LETTER 0382 00306 0 02 00537 LDA E1S IS E ONE SHOT STILL SET 0383 00307 101040 SNZ X 0384 00310 0 01 00370 JMP CVR1 NO - PLUS OR MINUS TERMINATES 0385 00311 0 02 00532 LDA CH RECOVER THE CODE WORD 0386 00312 0406 76 ARR 2 TEST FOR PLUS OR MINUS 0387 00313 100400 SPL X 0388 00314 0 04 00542 STA ESGN MARK E FIELD MINUS
Previous File Previous Page Single Page Next Page Next File