O16-DECL

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

0489 00455 0414 71 LGL 7 X 0490 00456 0 04 00550 STA EXP SAVE THE EXPONENT 0491 00457 0 02 00000 LDA NUM2 TRUNCATE 0492 00460 0 03 00556 ANA KX LOW SIX 0493 00461 0 04 00000 STA NUM2 BITS 0494 00462 0 02 00000 LDA WCNT TEST FOR SINGLE PRECISION 0495 00463 0 07 00127 SUB Q2 X 0496 00464 100040 SZE X 0497 00465 0 01 00472 JMP *+5 IT IS DOUBLE PRECISION 0498 00466 0 04 00000 STA NUM2 TRUNCATE TO 23 BITS 0499 00467 0 02 00000 LDA NUM1 SO THAT 0500 00470 0 03 00553 ANA MBR7 A+(-A)=0 0501 00471 0 04 00000 STA NUM1 X 0502 00472 0 02 00000 LDA SIGN TEST THE SIGN 0503 00473 100040 SZE IS IT NEGATIVE 0504 00474 0 10 00700 JST TCA COMPLEMENT THE FRACTION 0505 00475 0 02 00000 LDA NUM2 MAKE ROOM 0506 00476 0414 77 LGL 1 FOR THE EXPONENT 0507 00477 0 04 00000 STA NUM2 X 0508 00500 0 02 00000 LDA NUM1 X 0509 00501 0 05 00000 ERA NUM2 X 0510 00502 0 03 00553 ANA MBR7 X 0511 00503 0 05 00000 ERA NUM1 X 0512 00504 0406 71 ARR 7 X 0513 00505 0 04 00000 STA NUM2 X 0514 00506 0 02 00000 LDA NUM1 X 0515 00507 0414 77 LGL 1 X 0516 00510 0 04 00000 STA NUM1 X 0517 00511 0 02 00000 LDA NUM X 0518 00512 0 05 00000 ERA NUM1 X 0519 00513 0 03 00554 ANA MBR8 X 0520 00514 0 05 00000 ERA NUM X 0521 00515 0406 70 ARR 8 X 0522 00516 0 04 00000 STA NUM1 X 0523 00517 0 02 00000 LDA NUM X 0524 00520 0405 70 ARS 8 SHIFT OVER TO RIGHT POSITION 0525 00521 0 05 00550 ERA EXP INSERT THE EXPONENT 0526 00522 0 04 00000 STA NUM STORE THE FIRST WORD 0527 00523 0 02 00000 END LDA ALFA CHECK FOR NUMBER 0528 00524 101040 SNZ 0529 00525 0 01 00530 JMP *+3 0530 00526 140040 CRA CLEAR SIGN 0531 00527 0 04 00000 STA SIGN 0532 00530 0 12 00000 IRS DECC STEP TO TERMINAL RETURN 0533 00531 0 01 00032 JMP LETR AND EXIT 0534 * 0535 00532 0 000000 CH DAC 0 WORKING STORAGE 0536 00533 0 000000 PNT DAC 0 THESE CELLS MUST BE ZERO ON ENTRY 0537 00534 0 000000 OA DAC 0 X 0538 00535 0 000000 PCNT DAC 0 X