O16-DECL

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

0589 00615 0 07 00557 SUB Q1 X 0590 00616 101040 SNZ X 0591 00617 0 04 00000 STA NUM1 X 0592 00620 140040 CRA X 0593 00621 0 04 00000 STA NUM2 X 0594 00622 0 02 00000 LDA SIGN TEST FOR NEGATIVE 0595 00623 100040 SZE X 0596 00624 0 10 00700 JST TCA COMPLEMENT THE RESULT 0597 00625 0 02 00541 LDA BCNT TEST FOR SCALING ERROR 0598 00626 100040 SZE X 0599 00627 0 04 00000 STA ERD MARK THE ERROR 0600 00630 0 01 00523 JMP END AND EXIT 0601 * 0602 00631 101040 FIX2 SNZ TEST FOR ZERO NET SCALE 0603 00632 0 01 00614 JMP FIX1 OK - ZERO NET SCALE 0604 00633 0 06 00000 ADD SIGN TEST FOR -1.0B0 0605 00634 0 06 00000 ADD NUM2 X 0606 00635 101040 SNZ X 0607 00636 0 06 00000 ADD NUM1 X 0608 00637 100040 SZE X 0609 00640 0 01 00614 JMP FIX1 NOT -1.0 B0 0610 00641 0 02 00000 LDA NUM TEST THE MAGNITUDE 0611 00642 0414 76 LGL 2 FOR A HALF 0612 00643 100040 SZE X 0613 00644 0 01 00614 JMP FIX1 NOT -1.0B0 0614 00645 0 04 00541 STA BCNT FORCE A VALID SCALE 0615 00646 0 02 00422 LDA SKP SET THE 0616 00647 0 04 00000 STA NUM DATA SIGN BIT 0617 00650 0 01 00614 JMP FIX1 ENTER THE MAIN PATH 0618 * 0619 00651 0 02 00000 INT LDA NUM TEST FOR A 0620 00652 0 06 00000 ADD NUM1 VALID INTEGER 0621 00653 100040 SZE X 0622 00654 0 01 00666 JMP INTX TEST FOR -32768 CASE 0623 00655 0 02 00000 LDA NUM2 MOVE THE LOW BITS 0624 00656 0 04 00000 INTY STA NUM TO THE FIRST WORD 0625 00657 140040 CRA AND CLEAR THE LOW ORDER WORDS 0626 00660 0 04 00000 STA NUM1 X 0627 00661 0 04 00000 STA NUM2 X 0628 00662 0 02 00000 LDA SIGN TEST FOR NEGATIVE RESULT 0629 00663 100040 SZE X 0630 00664 0 10 00700 JST TCA COMPLEMENT THE RESULT 0631 00665 0 01 00123 JMP OCT1 AND EXIT 0632 * 0633 00666 0 02 00000 INTX LDA NUM TEST FOR POSSIBLE 0634 00667 0 06 00000 ADD NUM2 -32768 0635 00670 100040 SZE X 0636 00671 0 04 00000 STA ERD IMPOSSIBLE - MARK THE ERROR 0637 00672 0 06 00000 ADD SIGN MAYBE -32768 PERFORM 0638 00673 0 06 00000 ADD NUM1 FINAL TEST