!   NAME: Z6060601  PRODUCT: BASE     CATEGORY: RECO    SYSTEM: VMS
!   DATE: 08MAY90   STATUS:  DZ+UT    USAGE-ID: V6-SYS.FILE-0601
!
!   Use of the wildcard in a file specification causes Invalid physical name
!
!   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 VXASGN=^X0222B8
DEFINE VXOPEN=^X0254D4
SET ECO ^X077
ALIGN/BYTE PATAREA
REPLACE/INSTRUCTION VXASGN+^X1B4
'CMPB	(R3),#^D42'
'BEQL	VXASGN+^X1C3'
'CMPB	(R3),#^D37'
'BEQL	VXASGN+^X1C3'
'CMPB	(R3)+,#^D44'
'BNEQ	VXASGN+^X1D0'
'MOVL	#1,R7'
'CMPB	-(R3),#^D44'
'BNEQ	VXASGN+^X1D4'
'MOVL	#1,R9'
'BRB	VXASGN+^X1D4'
'TSTB	(R3)'
'BNEQ	VXASGN+^X1B4'
EXIT
'LAB1:	MOVB	(R3),R2'
'CMPB	R2,#^D42'
'BEQL	LAB2'
'CMPB	R2,#^D37'
'BEQL	LAB2'
'CMPB	R2,#^D44'
'BNEQ	LAB3'
'LAB2:	MOVL	#1,R7'
'CMPB	(R3),#^D44'
'BNEQ	LAB3'
'MOVL	#1,R9'
'LAB3:	INCL	R3'
'TSTB	(R3)'
'BNEQ	LAB1'
EXIT
REPLACE/INSTRUCTION VXASGN+^X292
'TSTL	R7'
'BNEQ	VXASGN+^X2D4'
'MNEGL	#1,R7'
EXIT
'TSTL	R7'
'BEQL	LAB4'
'JMP	L^VXASGN+^X2D4'
'LAB4:	MNEGL	#1,R7'
'MOVL	#1,R9'
EXIT
REPLACE/INSTRUCTION VXASGN+^X2B4
'CMPB	(R3),#^D42'
'BEQL	VXASGN+^X2C3'
'CMPB	(R3),#^D37'
'BEQL	VXASGN+^X2C3'
'CMPB	(R3)+,#^D44'
'BNEQ	VXASGN+^X2D0'
'MOVL	#1,R7'
'CMPB	-(R3),#^D44'
'BNEQ	VXASGN+^X2D4'
'MOVL	#1,R9'
'BRB	VXASGN+^X2D4'
'TSTB	(R3)'
'BNEQ	VXASGN+^X2B4'
EXIT
'LAB5:	MOVB	(R3),R2'
'CMPB	R2,#^D42'
'BEQL	LAB6'
'CMPB	R2,#^D37'
'BEQL	LAB6'
'CMPB	R2,#^D44'
'BNEQ	LAB7'
'LAB6:	MOVL	#1,R7'
'CMPB	(R3),#^D44'
'BNEQ	LAB7'
'MOVL	#1,R9'
'LAB7:	INCL	R3'
'TSTB	(R3)'
'BNEQ	LAB5'
EXIT
REPLACE/INSTRUCTION VXOPEN+^X121F
'CMPL	R4,#^D114956'
EXIT
'CMPL	R4,#^D100164'
'BGEQ	LAB8'
'JMP	L^VXOPEN+^X1230'
'LAB8:	BNEQ	LAB9'
'JMP	L^VXOPEN+^X1228'
'LAB9:	CMPL	R4,#^D114956'
EXIT
UPDATE
EXIT