O16-DECL

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

0739 01026 1 04 01041 STA WORK+3,1 SAVE AREA 0740 01027 0 12 00000 IRS 0 X 0741 01030 0 01 01024 JMP *-4 X 0742 01031 0 10 00765 JST LLS1 FORM 2X 0743 01032 0 10 00765 JST LLS1 FORM 4X 0744 01033 0 10 01044 JST TADD FORM 5X 0745 01034 0 10 00765 JST LLS1 FORM 10X 0746 01035 -0 01 01022 JMP* M10 AND RETURN 0747 * 0748 01036 000000 WORK OCT 0,0,0 X 01037 000000 01040 000000 0749 01041 000000 KEEP OCT 0,0,0 X 01042 000000 01043 000000 0750 01044 0 000000 TADD DAC *-* TRIPLE ADD ROUTINE 0751 01045 0 02 00000 LDA NUM2 ADD THE LOWEST TERMS 0752 01046 0 06 01040 ADD WORK+2 X 0753 01047 0 10 01011 JST CSA FORM THE CARRY 0754 01050 0 04 00000 STA NUM2 STORE THE LOW ORDER TERM 0755 01051 0 02 00000 LDA NUM1 PROCESS THE MIDDLE TERM 0756 01052 0 06 01037 ADD WORK+1 X 0757 01053 0 10 01011 JST CSA X 0758 01054 0 04 00000 STA NUM1 X 0759 01055 0 02 00000 LDA NUM PROCESS THE HIGH TERM 0760 01056 0 06 01036 ADD WORK X 0761 01057 0 10 01011 JST CSA X 0762 01060 0 04 00000 STA NUM X 0763 01061 0 02 00546 LDA PROD GENERATE AN OVERFLOW 0764 01062 0 10 01011 JST CSA BIT IF REQUIRED 0765 01063 0 04 00546 STA PROD X 0766 01064 -0 01 01044 JMP* TADD AND RETURN 0767 * 0768 01065 0 000000 LRS1 DAC *-* 0769 01066 0 02 00000 LDA NUM1 ISOLATE THE BIT 0770 01067 0 03 00557 ANA Q1 TO CROSS WORD BOUNDARY 0771 01070 0406 77 ARR 1 POSITION IT 0772 01071 0 05 00000 ERA NUM2 INSERT INTO LOWER WORD 0773 01072 0404 77 LGR 1 SHIFT RIGHT 1 POSITION 0774 01073 0 04 00000 STA NUM2 AND STORE BACK 0775 01074 0 02 00000 LDA NUM REPEAT FOR 0776 01075 0 03 00557 ANA Q1 THE REST 0777 01076 0406 77 ARR 1 OF THE 0778 01077 0 05 00000 ERA NUM1 DATA WORDS 0779 01100 0404 77 LGR 1 X 0780 01101 0 04 00000 STA NUM1 X 0781 01102 0 02 00546 LDA PROD X 0782 01103 0 03 00557 ANA Q1 X 0783 01104 0406 77 ARR 1 X 0784 01105 0 05 00000 ERA NUM X