!   NAME: Z6061078  PRODUCT: BASE     CATEGORY: SPEC    SYSTEM: VMS
!   DATE: 04JAN91   STATUS:  DZ+UT    USAGE-ID: V6-SYS.SYS-1078
!
!   Special Consideration Patch required to enable the /VECTOR option
!
!   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 VZINIT=^X02D4A8
DEFINE VILOADV=^X01A0E4
DEFINE VITTERM=^X01BC3C
DEFINE VIPURGE=^X01AAA0
DEFINE WZGLOBAL=^X0D184
DEFINE VTTCH=^X01F470
DEFINE DATAAREA1=0
DEFINE DATAAREA2=0
DEFINE DATAAREA3=0
DEFINE DATAAREA4=0
DEFINE CODEAREA=0
SET ECO ^X56
ALIGN/BYTE DATAAREA1
DEPOSIT/LONG/PATCH DATAAREA1
00000000
EXIT
ALIGN/BYTE DATAAREA2
DEPOSIT/LONG/PATCH DATAAREA2
00000000
EXIT
ALIGN/LONG DATAAREA3
DEPOSIT/LONG/PATCH DATAAREA3
10010004
0000A074
00000000
20000004
0000A078
00000000
10000008
0000A07C
00000000
11090002
0000A0A4
00000000
110A001F
0000A084
00000000
113B0004   ! SYI$_VP_NUMBER
0000A0A8
00000000
11390004   ! SYI$_VECTOR_EMULATOR
DATAAREA1
00000000
11350004   ! SYI$_VECTOR_PROC
DATAAREA2
00000000
00000000
EXIT
ALIGN/BYTE DATAAREA4
DEPOSIT/LONG/PATCH DATAAREA4
00000000
EXIT
ALIGN/BYTE CODEARA
REPLACE/I VZINIT+^X074
'PUSHAB W^^X01D4(R8)'
'CLRQ -(SP)'
EXIT
'PUSHAB DATAAREA3'
'CLRQ -(SP)'
EXIT
REPLACE/I VZINIT+^X0E1
'MOVL W^^X01D0(R8),W^^X0180(R7)'
EXIT
'CLRL W^^X0180(R7)'
'MOVL L^^X0D14C,R0'
'TSTW W^^X045A(R0)'
'BEQL LBL2'
'TSTL DATAAREA2'
'BLEQ LBL2'
'TSTL W^^X01D0(R8)'
'BLEQ LBL1'
'MOVL #^X01,W^^X0180(R7)'
'BRB LBL2'
'LBL1: TSTL DATAAREA1'
'BEQL LBL2'
'MOVL #^X01,W^^X0180(R7)'
'LBL2: NOP'
EXIT
REPLACE/I VILOADV+^X0130
'BNEQ VILOADV+^X014C'
EXIT
'BNEQ VILOADV+^X0174'
EXIT
REPLACE/I VILOADV+^X0174
'MOVC3 #8,^X05746,(R3)'
EXIT
'MOVC3 #8,^X05746,(R3)'
'MOVL R9,^X0D304'
EXIT
REPLACE/I VITTERM+^X027
'PUSHL #0'
'CALLS #1,VIPURGE'
EXIT
'MOVAL WZGLOBAL,R3'
'MOVL W^^X0180(R3),R2'
'BEQL LBL6'
'CMPL R2,#1'
'BEQL LBL6'
'CMPL W^^X0AE(R2),DATAAREA4'
'BGEQ LBL4'
'MOVL W^^X0AE(R2),DATAAREA4'
'LBL4: TSTL B^^X010(R2)'
'BNEQ LBL5'
'CMPL W^^X0AE(R2),DATAAREA4'
'BLEQ LBL5'
'PUSHL #1'
'CALLS #1,@#^X7FFEE7A0'
'CALLS #0,@#^X7FFEE7C0'
'LBL5: MOVL W^^X0AE(R2),DATAAREA4'
'LBL6: PUSHL #0'
'CALLS #1,VIPURGE'
EXIT
REPLACE/I VTTCH+^X048
'CMPL (R4),#^X0484'
EXIT
'MOVAL WZGLOBAL,R0'
'CMPL W^^X0180(R0),#0'
'BEQL LBL7'
'CMPL W^^X0180(R0),#1'
'BEQL LBL7'
'CALLS #0,@#^X7FFEE7F0'
'LBL7: CMPL (R4),#^X0484'
EXIT
UPDATE
EXIT