!   NAME: Z6061646  PRODUCT: BASE     CATEGORY: REQU    SYSTEM: VMS
!   DATE: 05DEC90   STATUS:  DZ+UT    USAGE-ID: V6-SYS.SYS-1646
!
!   Missing observation using the CDD and OSIRIS engines
!
!   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 VXOPEN = ^X0254D4
DEFINE VXPOS2R = ^X029604
DEFINE VXR2POS = ^X029764
DEFINE VXRREC = ^X029928
SET ECO ^X066
ALIGN/BYTE PATAREA
REPLACE/INSTRUCTION VXOPEN+^X0D99
'MOVL	B^-^D36(FP),R3'
'BBC	#5,W^^D480(R3),VXOPEN+^XDD8'
'CMPL	B^^D8(R3),#1'
'BNEQ	VXOPEN+^XDD8'
'MOVZBL	B^^D51(R3),R2'
'CMPL	R2,#1'
'BNEQ	VXOPEN+^XDD8'
'MOVB	#1,W^^D174(R3)'
'MOVL	B^-^D36(FP),R2'
'CLRL	W^^D514(R2)'
'MOVL	B^-^D36(FP),R2'
'MOVAB	W^^D514(R2),W^^D192(R2)'
'MOVL	B^-^D36(FP),R2'
'MOVB	#4,W^^D196(R2)'
'BRB	VXOPEN+^XDE0'
'TSTL	R0'
'NOP'
'MOVL	B^-^D36(FP),R2'
'CLRB	W^^D174(R2)'
EXIT
'NOP'
EXIT
REPLACE/INSTRUCTION VXOPEN+^X1420
'MOVL	B^^D8(R8),R2'
'MOVAB	B^^D8(R2),R3'
EXIT
'MOVL	B^-^D36(FP),R3'
'BBC	#5,W^^D480(R3),LAB174'
'CMPL	B^^D8(R3),#1'
'BNEQ	LAB174'
'MOVZBL	B^^D51(R3),R2'
'CMPL	R2,#1'
'BNEQ	LAB174'
'MOVB	#1,W^^D174(R3)'
'MOVL	B^-^D36(FP),R2'
'MOVL	#1,W^^D514(R2)'
'MOVL	B^-^D36(FP),R2'
'MOVAB	W^^D514(R2),W^^D192(R2)'
'MOVL	B^-^D36(FP),R2'
'MOVB	#4,W^^D196(R2)'
'BRB	LAB175'
'TSTL	R0'
'NOP'
'LAB174:MOVL	B^-^D36(FP),R2'
'CLRB	W^^D174(R2)'
'LAB175:MOVL	B^^D8(R8),R2'
'MOVAB	B^^D8(R2),R3'
EXIT
REPLACE/INSTRUCTION VXPOS2R+^X09
'BBC	#3,W^^D484(R1),VXPOS2R+^X015'
EXIT
'MOVZBL	B^^D51(R1),R0'
'CMPL	R0,#1'
'BEQL	LAB1'
'JMP	VXPOS2R+^X015'
'LAB1:	NOP'
EXIT
REPLACE/INSTRUCTION VXPOS2R+^X3E
'ADDL3	#1,B^^D8(R0),@B^^D8(AP)'
EXIT
'MOVL	B^^D8(R0),@B^^D8(AP)'
EXIT
REPLACE/INSTRUCTION VXR2POS+^X09
'BBC	#3,W^^D484(R1),VXR2POS+^X015'
EXIT
'MOVZBL	B^^D51(R1),R0'
'CMPL	R0,#1'
'BEQL	LAB2'
'JMP	VXR2POS+^X015'
'LAB2:	NOP'
EXIT
REPLACE/INSTRUCTION VXR2POS+^X2C
'SUBL3	#1,B^^D8(AP),B^^D8(R2)'
EXIT
'MOVL	B^^D8(AP),B^^D8(R2)'
EXIT
REPLACE/INSTRUCTION VXRREC+^X4F
'INCL	W^^D514(R9)'
EXIT
'NOP'
EXIT
REPLACE/INSTRUCTION VXRREC+^X64
'CALLS	#0,L^0001F3A4'
EXIT
'CALLS	#0,L^0001F3A4'
'INCL	W^^D514(R9)'
EXIT
UPDATE
EXIT