!   NAME: Z5186583  PRODUCT: SAS      CATEGORY: RECO    SYSTEM: VMS
!   DATE: 31JUL89   STATUS:  DZ+UT    USAGE-ID: FORMATS-V56583
!
!   The Ew. format does not reserve a leading blank for the sign
!
!   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}SAS518.EXE
!
!   NOTE: Use SAS$ROOT:{USAGE}APPLY_PATCH.COM to apply this patch
!-----------------------------------------------------------------------
!   END
SAS518.EXE
DEFINE PATAREA=0
SET ECO ^X05F
ALIGN/BYTE PATAREA
REPLACE/INS 0C81AB
'MOVW B^0DE(FP),R2'
'CLRL B^0A8(FP)'
EXIT
'MOVL @B^04(AP),R11'
'TSTD (R11)'
'BLSS  LBL1'
'ADDW3 #1,B^0DE(FP),R7'
'MOVZWL R7,R6'
'SUBL3 R6,W^0FFA4(FP),SP'
'MOVAL (SP),R6'
'MOVAB (R6),R3'
'MOVB  #20,(R3)+'
'MOVC3 B^0DE(FP),B^0E0(FP),(R3)+'
'MOVAB B^0DE(FP),R2'
'MOVW R7,(R2)'
'CMPW #20,(R2)'
'BGEQ LBL2'
'MOVW #20,(R2)'
'LBL2: MOVC3 (R2),(R6),B^02(R2)'
'LBL1: MOVW B^0DE(FP),R2'
'CLRL B^0A8(FP)'
EXIT
UPDATE
EXIT