*DECK C$R1U06 
          IDENT  C$R1U06
          TITLE  C.R1U06 -  COMP-1 TO 3-6 DIGIT UNSIGNED NUMERIC DISPLAY
  
          MACHINE  ANY,I
          COMMENT  COMP-1 TO 6-DIGIT UNSIGNED NUM. DISPLAY
          SPACE  4
**        C.R1U06 -  COMP-1 TO 3-6 DIGIT UNSIGNED NUMERIC DISPLAY 
* 
*         X1 = POSITIVE COMP-1 VALUE
*         RJ     C.R1U06
* 
*         SETS X1 = 10 DIGIT NUMERIC DISPLAY ITEM.
*           (MOST SIGNIFICANT 4 DIGITS ARE ZERO.) 
* 
*         METHOD BY R. E. JAMES.
* 
*         CODING PRIORITIES ARE-
*                1)  BE FAST. 
*                2)  USE FEW X-REGISTERS. 
*                3)  BE SMALL IN SIZE.
* 
*         USES   X  0 1 2 3 - - - - 
*                A  - - 2 - - - - - 
*                B    - - - - - - 7 
  
  
          ENTRY  C.R1U06
 C.R1U06  DATA   0
          MX0    12          77770000000000000000B
          SA2    DIVISOR     (10.0'-6)*(2'19) ROUNDED UP
          IX2    X2*X1
          LX2    2
          BX3    X2          (0.NNNNNN*2'48) * 2
          LX2    2           (0.NNNNNN*2'48) * 8
          IX2    X2+X3       N.NNNNN*2'48 
          BX1    X0*X2       00N60000000000000000B
          BX2    -X0*X2      0.NNNNN*2'48 
          IX3    X2+X2       (0.NNNNN*2'48) * 2 
          LX2    3           (0.NNNNN*2'48) * 8 
          IX2    X2+X3       N.NNNN*2'48
          LX1    6           N6000000000000000000B
          BX3    X0*X2       00N50000000000000000B
          IX1    X1+X3       N6N50000000000000000B
          BX2    -X0*X2      0.NNNN*2'48
          IX3    X2+X2       (0.NNNN*2'48) * 2
          LX2    3           (0.NNNN*2'48) * 8
          IX2    X2+X3       N.NNN*2'48 
          LX1    6           N50000000000000000N6B
          BX3    X0*X2       00N40000000000000000B
          IX1    X1+X3       N5N400000000000000N6B
          BX2    -X0*X2      0.NNN*2'48 
          IX3    X2+X2       (0.NNN*2'48) * 2 
          LX2    3           (0.NNN*2'48) * 8 
          IX2    X2+X3       N.NN*2'48
          LX1    6           N400000000000000N6N5B
          BX3    X0*X2       00N30000000000000000B
          IX1    X1+X3       N4N3000000000000N6N5B
          BX2    -X0*X2      0.NN*2'48
          IX3    X2+X2       (0.NN*2'48) * 2
          LX2    3           (0.NN*2'48) * 8
          IX2    X2+X3       N.N*2'48 
          LX1    6           N3000000000000N6N5N4B
          BX3    X0*X2       00N20000000000000000B
          IX1    X1+X3       N3N20000000000N6N5N4B
          BX2    -X0*X2      0.N*2'48 
          IX3    X2+X2       (0.N*2'48) * 2 
          LX2    3           (0.N*2'48) * 8 
          IX2    X2+X3       N.0*2'48 
          LX1    6           N20000000000N6N5N4N3B
          BX3    X0*X2       00N10000000000000000B
          IX1    X1+X3       N2N100000000N6N5N4N3B
          SA2    =XC.ZEROS   10H0000000000
          LX1    12          00000000N6N5N4N3N2N1B
          IX1    X1+X2       0000654321 
          EQ     C.R1U06     EXIT 
  
 DIVISOR  CON    1030675721B
  
          END 
