*DECK YZTB
          IDENT  YZTB 
          ENTRY  YZTB 
          BASE   D
          SYSCOM B1 
          COMMENT SYMPL INTERFACE TO ZTB=.
          COMMENT COPYRIGHT CONTROL DATA CORP., 1982. 
 YZTB     SPACE  4,10 
**        YZTB - SYMPL INTERFACE TO ZTB=. 
* 
*         ENTRY (SYMPL CALL) X = YZTB(Y); 
* 
*         EXIT - ALL ZEROS CHANGED TO BLANKS. 
* 
*         CALLS  ZTB=.
  
  
 YZTB     SUBR                     ENTRY/EXIT 
          SB1    1
          SA1    X1                GET PARAMETER
          RJ     =XZTB=            CONVERT
          EQ     YZTBX             EXIT - X6 HAS CONVERTED WORD 
          END 
