!   NAME: Z5186644  PRODUCT: SAS      CATEGORY: RECO    SYSTEM: VMS
!   DATE: 31AUG89   STATUS:  DZ+UT    USAGE-ID: SYS.SYS-V56644
!
!   The external file interface will not accept records greater than 256
!
!   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=^X0A6CC8
DEFINE PATAREA=0
SET ECO ^X064
ALIGN/BYTE PATAREA
REPLACE/INST BASE+^X06B
'MOVL    W^^X0212(R3),B^^X0F4(FP)'
'MOVL    B^^X0F4(FP),R0'
'BEQL    000A6D78'
'MOVL    #^X0A,W^^X0106(R0)'
EXIT
'MOVL    W^^X0212(R3),B^^X0F4(FP)'
'MOVL    B^^X0F4(FP),R0'
'BNEQ    P1LB1'
'JMP     BASE+^X0B0'
'P1LB1:  TSTB  W^^X02B2(R3)'
'BEQL    P1LB2'
'JMP     BASE+^X0B0'
'P1LB2:  MOVL    #^X0A,W^^X0106(R0)'
EXIT
REPLACE/INST BASE+^X0170
'MOVZWL  W^^X028C(R3),R2'
'CMPL    R2,B^^X0C(R5)'
'BLEQU   000A6E58'
'MOVL    B^^X0F8(FP),R0'
'MOVL    R2,B^^X28(R0)'
'MOVB    #^X01,W^^X02B2(R3)'
EXIT
'MOVL    B^^X0F4(FP),R0'
'BEQL    P2LB1'
'CVTLW   W^^X010E(R0),R1'
'BRB     P2LB2'
'TSTL    R0'
'NOP'
'P2LB1:  MOVW    W^^X028C(R3),R1'
'P2LB2:  CVTWL   R1,R2'
'CMPL    R2,B^^X0C(R5)'
'BGTR    P2LB3'
'JMP     BASE+^X0190'
'P2LB3:  MOVL    B^^X0F8(FP),R0'
'MOVL    R2,B^^X028(R0)'
'MOVB    #^X01,W^^X02B2(R3)'
EXIT
REPLACE/INST BASE+^X01AA
'BRB     00A6E90'
'TSTB    R6'
'BEQL    00A6E90'
EXIT
'BRB     00A6E8C'
'TSTB    R6'
'BEQL    00A6E8C'
EXIT
UPDATE
EXIT