*DECK REPZERO 
          IDENT  REPZERO
          ENTRY  REPZERO
          BASE   D
          TITLE  REPZERO - REPLACE TRAILING ZEROES WITH BLANKS. 
          COMMENT  SYMPL INTERFACE TO ZTB=
          COMMENT  COPYRIGHT CONTROL DATA CORPORATION,  1982. 
 REPZERO  SPACE  4,10 
**        REPZERO - REPLACE TRAILING ZEROES WITH BLANKS.
* 
*         SYMPL CALLING SEQUENCE  -  X = REPZERO(Y);
* 
*         ENTRY  X1 = ADDR OF WORD. 
* 
*         EXIT   X6 = WORD WITH ZERO CHARACTERS REPLACED BY BLANKS. 
* 
*         CALLS  ZTB=.
  
  
 REPZERO  SUBR                     ENTRY/EXIT 
          SB1    1                 CONSTANT 1 
          SA1    X1                GET WORD 
          RJ     =XZTB=            CONVERT
          EQ     REPZEROX          RETURN 
          END 
