!   NAME: Z6060887  PRODUCT: BASE     CATEGORY: RECO    SYSTEM: VMS
!   DATE: 20AUG90   STATUS:  DZ+UT    USAGE-ID: V6-FORMATS-0887
!
!   The ZD format pads with leading blanks instead of leading zeros
!
!   NOTE: THE ^ CHARACTER IS THE ASCII 'HAT' CHARACTER (X'5E')
!   NOTE: THE { CHARACTER IS THE ASCII LEFT SQUARE BRACKET (X'5B')
!   NOTE: THE } CHARACTER IS THE ASCII RIGHT SQUARE BRACKET (X'5D')
!
!   IMAGE: SAS$ROOT:{IMAGE}SAS606.EXE
!
!   NOTE: Use SAS$ROOT:{USAGE.PATCH}APPLY_PATCH.COM to apply this patch
!-----------------------------------------------------------------------
!   END
SAS606.EXE
DEFINE PATAREA=0
DEFINE VZFMZD=^X0330DC
SET ECO ^X071
ALIGN/BYTE PATAREA
REPLACE/INSTRUCTION VZFMZD+^X0CC
'SUBL2  R10,R8'
'MOVAL  B^^D16(AP),R9'
'ADDL2  (R9),R8'
'MOVC3  R10,B^-^D50(FP),(R8)'
'MOVL   #1,R6'
'BRB    VZFMZD+^X0ED'
'MOVB   #^D48,(R3){R6}'
'MOVL   R6,R2'
'INCL   R6'
'TSTL   R2'
'BNEQ   VZFMZD+^X0E0'
EXIT
'SUBL3  R10,R8,R7'
'MOVAL  B^^D16(AP),R8'
'ADDL3  (R8),R7,R2'
'MOVC3  R10,W^-^D50(FP),(R2)'
'CLRL   R6'
'TSTL   R7'
'BLEQ   LAB11'
'MOVL   B^0(R8),R2'
'LAB10: MOVB    #^D48,(R2){R6}'
'INCL   R6'
'CMPL   R6,R7'
'BLSS   LAB10'
'LAB11: NOP'
EXIT
UPDATE
EXIT