*COMDECK NETXWHD
          SB1    1           B1=1 
          SA4    XCHDB       10H    00000 
          SB5    A1          SAVE (A1)
          SA1    X1          (X1) = HEXIDECIMAL INTEGER IN BINARY 
          SB3    6           (B3) = SHIFT COUNT FOR EACH CHARACTER
          SB2    24          INITIALIZE SHIFT COUNT 
          RJ     XCHD        CONVERT LOWER 5 DIGITS 
          SA3    B5+B1       FETCH LOCATION OF RETURN PARAMETER 
          SA6    X3+B1       STORE LOWER 5 CHARACTERS 
  
          SB2    -B3         INITIALIZE COUNT FOR LEFT 10 DIGITS
          SA4    XCHDA       10H0000000000
          RJ     XCHD        CONVERT UPPER 10 DIGITS
          SA6    X3          STORE UPPER 10 CHARACTERS
          JP     EXIT.       RETURN 
  
 XCHD     BSSZ   1
 XCHD1    BSS    0
          MX2    -4          (X2) = DIGIT MASK
          BX7    -X2*X1      EXTRACT DIGIT
          LX4     -6         SHIFT ASSEMBLY 
          AX1    4           SHIFT OFF DIGIT FROM INPUT WORD
          SX5     X7-9       SEE IF CHARACTER GREATER THAT NINE 
          NG   X5,XCHD2      IF LESS THAN NINE
          ZR   X5,XCHD2      IF EQUAL TO NINE 
          SX7    X5-1R0      BIAS DIGIT BY CHAR. ZERO INVERSE 
 XCHD2    BSS     0 
          IX4     X4+X7      ADD DIGIT TO ASSEMBLY
          SB2     B2+B3      BUMP JUSTIFY COUNT 
          SB4    B2-54
          NZ     B4,XCHD1    NOT END OF WORD
          LX6    X4,B2       RIGHT JUSTIFY WORD 
          EQ     XCHD 
  
 XCHDA    CON    10H0000000000
 XCHDB    CON    10H    00000 
