!   NAME: Z5186589  PRODUCT: SAS      CATEGORY: RECO    SYSTEM: VMS
!   DATE: 31JUL89   STATUS:  DZ+UT    USAGE-ID: FORMATS-V56589
!
!   The PD format will cause an overflow for numbers that are too large
!
!   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 BASE=0CF880
DEFINE PATAREA=0
SET ECO ^X06B
ALIGN/BYTE PATAREA
REPLACE/INSTRUCTION BASE+0083
'MOVL @B^04(AP),R2'
EXIT
'SUBL3 #14,W^0FDD4(FP),SP'
'MOVL SP,W^0FDD4(FP)'
'CLRL B^0C(SP)'
'MOVL #001E8044,B^4(SP)'
'MOVAB B^RTN1,B^8(SP)'
'MOVL B^0F4(FP),(SP)'
'MOVL SP,B^0F4(FP)'
'JMP L^LBL1'
'RTN1: .WORD 0C004'
'MOVL R1,R2'
'MOVAQ W^000CFA9F, R0'
'MOVL R2,R1'
'JMP 000CF8FD'
'LBL1: MOVL @B^4(AP),R2'
EXIT
UPDATE
EXIT