*COMDECK XSFW 
          IDENT  XSFW 
          ENTRY  XSFW 
          SYSCOM B1 
          TITLE  XSFW - SPACE FILL WORD.
          COMMENT SPACE FILL WORD.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 XSFW     SPACE  4,10 
***       XSFW - SPACE FILL WORD. 
* 
*         HOLLERITH = XSFW (WORD) 
* 
*         XX = XSFW(WORD);    (*SYMPL* CALL)
* 
*         ENTRY  WORD, AN ITEM CONTAINING THE WORD TO CHANGE ZEROES TO
*                      BLANKS.
* 
*         EXIT   XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT.
* 
*         USES   X - 1. 
*                A - 1. 
*                B - 1. 
* 
*         CALLS  ZTB=.
  
  
 XSFW     SUBR               ENTRY/EXIT 
          SB1    1
          SA1    X1+
          RJ     =XZTB=      SPACE FILL WORD
          EQ     XSFWX       RETURN, RESULT IN X6 
  
          END 
