*COMDECK     COMXZFN    - ZERO FILL NAME. 
          B1=1
          LIST   F,X
          TITLE  XZFN - ZERO FILL NAME. 
          COMMENT  ZERO FILL NAME.
 XZFN     SPACE  4,8
**        XZFN  -  ZERO FILL NAME.
* 
*         R. H. GOODELL.     76/08/30.
* 
*         SYMPL-CALLABLE ENTRY POINT FOR INTERFACING TO THE 
*         STANDARD COMPASS-CALLABLE ROUTINE, TO REPLACE THE 
*         TRAILING 55B (SPACE) CODES IN A WORD WITH 00 CODES. 
* 
*         FUNC XZFN (A) C (10). 
* 
*         ITEM A C (10).     WORD TO BE FILLED. 
  
  
 XZFN     SUBR   =           ENTRY/EXIT 
          SB1    1           (B1) = 1 
          SA1    X1+         FETCH ARGUMENT VALUE 
          RJ     =XZFN       ZERO FILL WORD 
          JP     EXIT.       RETURN, RESULT IN X6 
 ZFN      SPACE  4,8
**        ZFN  -  COMPASS-CALLABLE ROUTINE. 
  
  
*CALL     COMCZFN            ZERO FILL NAME.
  
  
          ENTRY  ZFN
  
  
          END 
