*DECK C$AD112 
          IDENT  C$AD112
          TITLE  CBAD112 - DISPLAY CODE ADD, DOUBLE PRECISION RESULT
  
          MACHINE  ANY,I
          COMMENT  DISPLAY CODE ADD, DOUBLE PREC. RESULT
 CBAD112  SPACE  4
**        CBAD112- DISPLAY CODE ADD, SINGLE PRECISION UNSIGNED INPUT, 
*                  DOUBLE PRECISION OUTPUT
* 
*         INPUT 
*                X2  OPERAND 1
*                X4  OPERAND 2
* 
*         OUTPUT
*                X0  SUM UPPER HALF 
*                X5  SUM LOWER HALF 
* 
*         SAVED REGISTERS 
*                A0,A2,A4,A6,A7 
*                B1,B2,B3,B4,B5,B6,B7 
*                X2 
  
          ENTRY  C.AD112
 C.AD112  DATA   0
          SA3    =XC.ZEROS   33333333333333333333B
          SA5    =XC.SIXES   60606060606060606060B
          LX1    X3,B1       66666666666666666666B
          IX4    X2+X4
          BX0    X3          MOST SIGNIFICANT PART OF RESULT
          BX6    X1*X4       COMPATIBLE CARRY TESTER
          NZ     X6,CHEK2 
          NZ     X4,CHEK2 
          BX4    -X4
          EQ     POSTADD
 CHEK2    NG     X4,POSTADD  NO CARRY 
          SX6    1
          IX0    X6+X0
          IX4    X4-X6
 POSTADD  BX7    -X4*X5 
          IX4    X7+X4
          LX7    57          SHIFT SUMLO CARRIES
          IX4    X7+X4       COMPLETE THESE CARRIES 
          IX5    X4-X3
          EQ     C.AD112
          END 
