*DECK C$R1U02 
          IDENT  C$R1U02
          TITLE  C.R1U02 -  COMP-1 TO 2 DIGIT UNSIGNED NUMERIC DISPLAY
  
          MACHINE  ANY,I
          COMMENT  COMP-1 TO 2-DIGIT UNSIGNED NUM. DISPLAY
          SPACE  4
**        C.R1U02 -  COMP-1 TO 2 DIGIT UNSIGNED NUMERIC DISPLAY 
* 
*         X1 = POSITIVE COMP-1 VALUE
*         RJ     C.R1U02
* 
*         SETS X1 = 10 DIGIT NUMERIC DISPLAY VALUE. 
*           (MOST SIGNIFICANT 8 DIGITS ARE ZERO.) 
* 
*         CODING PRIORITIES ARE-
*                1)  BE FAST. 
*                2)  USE FEW X-REGISTERS. 
*                3)  BE SMALL IN SIZE.
* 
*         USES-  X  0 1 2 - - - - - 
*                A  - - 2 - - - - - 
*                B    - - - - - - - 
  
  
          ENTRY  C.R1U02
 C.R1U02  DATA   0
          SX0    1S20/10+1
          IX0    X1*X0       M.N*2'20 
          AX0    20          M
          IX2    X0+X0       2*M
          LX0    3           8*M
          IX1    X1-X2       (10*M+N) - 2*M 
          IX1    X1-X0       N
          SA2    =XC.ZEROS   10H0000000000
          LX0    3           0000000000000000MM00B
          BX1    X0+X1       0000000000000000MMNNB
          IX1    X1+X2       00000000NN 
          EQ     C.R1U02
  
          END 
