*COMDECK /CHWRDRM/
          TITLE     CHWR$RM 
 CHWR$RM  BSS       0 
          SX3       9              MULTIPLY RL(CHARS)+9 BY .1 TO GET
          SA1       TENTH          ROUNDED NO. OF WORDS 
          IX3       X3+X7 
          FX1       X1*X3          THEN CONVERT WHOLE WORDS BACK TO 
          IX3       X1+X1          CHARS (WDS*10) 
          LX1       3 
          IX3       X1+X3 
          AX1       3 
          IX7       X3-X7          AND SUBTRACT ORIGINAL RL (CHARS) 
          LX3       B1,X7          TO GET UNUSED CHARS
          IX7       X7+X3          THEN MULTIPLY THAT BY 6 TO GET 
          LX7       1+18           UNUSED BITS IN BITS 18-23 AND
          BX7       X7+X1          OR IN RL (WORDS) 
          JP        B5             RETURN                                V2TEMP 
 TENTH    CON       1S48/10+1 
* END /CHWRDRM/ 
