Previous File Previous Page Single Page Next Page Next File

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

0389 00315 140040 CRA RESET THE E ONE SHOT 0390 00316 0 04 00537 STA E1S X 0391 00317 -0 01 00000 JMP* DECC AND RETURN 0392 * 0393 00320 100400 B1 SPL TEST FOR E OR B 0394 00321 0 01 00331 JMP B2 IT IS (+1), (-1), OR (.) 0395 00322 0406 77 ARR 1 X 0396 00323 100400 SPL X 0397 00324 0 01 00212 JMP DEC5 IT IS E 0398 00325 0 02 00540 LDA B1S IS B ONE SHOT STILL ON 0399 00326 101040 SNZ X 0400 00327 0 01 00032 JMP LETR X 0401 00330 0 01 00236 JMP BXIT RECORD THE B 0402 00331 0406 77 B2 ARR 1 TEST FOR A DECIMAL POINT 0403 00332 100400 SPL X 0404 00333 0 01 00032 JMP LETR TREAT DECIMAL POINT AS LETTER 0405 00334 0 02 00540 LDA B1S IS B ONE SHOT ON 0406 00335 101040 SNZ X 0407 00336 0 01 00370 JMP CVR1 NO - PLUS OR MINUS TERMINATES 0408 00337 0 02 00532 LDA CH RECOVER THE CODE WORD 0409 00340 0406 76 ARR 2 TEST FOR MINUS 0410 00341 100400 SPL X 0411 00342 0 04 00543 STA BSGN MARK B FIELD NEGATIVE 0412 00343 140040 CRA RESET THE B ONE SHOT 0413 00344 0 04 00540 STA B1S X 0414 00345 -0 01 00000 JMP* DECC AND RETURN 0415 * 0416 00346 0 12 00534 OA1 IRS OA MARK THE OVERFLOW 0417 00347 0 35 01117 LDX =-3 RESTORE THE PARTIAL SUM 0418 00350 1 02 01044 LDA KEEP+3,1 X 0419 00351 1 04 00000 STA NUM3,1 X 0420 00352 0 12 00000 IRS 0 X 0421 00353 0 01 00350 JMP *-3 X 0422 00354 0 02 00533 OA2 LDA PNT ANY DECIMAL POINT YET 0423 00355 101040 SNZ X 0424 00356 0 12 00544 IRS OCNT NO - COUNT THE OVERFLOWS 0425 00357 -0 01 00000 JMP* DECC AND RETURN 0426 * 0427 00360 000014 K14 OCT 14 X 0428 00361 000255 K255 OCT 255 EXPONENT 0429 * 0430 00362 0 06 00360 BTST ADD K14 TEST FOR A BLANK 0431 00363 100040 SZE X 0432 00364 0 01 00032 JMP LETR NOT A BLANK 0433 00365 0 02 00000 CVRT LDA DOCT TEST CONVERSION MODE 0434 00366 101400 SMI X 0435 00367 0 01 00115 JMP OCT CONVERSION MODE IS OCTAL 0436 00370 0 02 00533 CVR1 LDA PNT TEST FOR INTEGER 0437 00371 101040 SNZ X 0438 00372 0 01 00651 JMP INT IT IS INTEGER
Previous File Previous Page Single Page Next Page Next File