*DECK     XSFW    - SPACE FILL WORD.
          IDENT  XSFW 
          B1=1
          LIST   F,X
          TITLE  XSFW - SPACE FILL WORD.
          COMMENT  SPACE FILL WORD. 
 XSFW     SPACE  4,8
**        XSFW  -  SPACE FILL WORD. 
* 
*         R. H. GOODELL.     76/06/29.
* 
*         SYMPL-CALLABLE ENTRY POINT FOR INTERFACING TO THE 
*         STANDARD COMPASS-CALLABLE ROUTINE, TO REPLACE ALL 
*         00 CODES IN A WORD WITH 55B (SPACE) CODES.
* 
*         FUNC XSFW (A) C (10). 
* 
*         ITEM A C (10).     WORD TO BE FILLED. 
  
  
 XSFW     SUBR   =           ENTRY/EXIT 
          SB1    1           (B1) = 1 
          SA1    X1+         FETCH ARGUMENT VALUE 
          RJ     =XSFW       SPACE FILL WORD
          JP     EXIT.       RETURN, RESULT IN X6 
 SFW      SPACE  4,8
**        SFW  -  COMPASS-CALLABLE ROUTINE. 
  
  
*CALL     COMCSFW            SPACE FILL WORD. 
  
  
          ENTRY  SFW
  
  
          END 
