*COMDECK ZFN
*     GET CAPSULE NAME FROM PARAMETER LIST
  
          SA2    X1          X2 HAS CAPSULE NAME
  
*     THIS SECTION CONVERTS A CAPSULE NAME FROM LEFT-JUSTIFIED
*         BLANK FILLED TO LEFT-JUSTIFIED ZERO FILLED. 
  
          MX0    -6          MASK FOR 1 CHAR POSITION 
          SB4    1R          BLANK CHARACTER
  
          DUP    10 
          BX4    -X0*X2 
          SB2    X4 
          IFTHEN B2=B4
            SX0   55B           USE X0,WE ARE SHORT ON REGISTERS
            BX2   X2-X0 
            MX0    -6          RESTORE X0 TO ONE-BYTE MASK
            ENDIF.
          LX2    -6 
          ENDD
