| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 1267.1 | Kernel Patch to fix ACCVIO problem | TOOK::MERRIFIELD | | Thu Jul 18 1991 18:43 | 8 |
| The V1.1 DECmcc Kernel has a bug which can cause an ACCVIO. When the
Iconic Map starts up notifications, the MCC_DNA4_EVL process crashes
with an ACCVIO. The next replies will contain
MCCBMS011_PATCH_KERNEL_1.COM, the actual patch, and
KERNEL_PATCH_DCL_1.COM, a DCL command procedure to apply that patch.
Bob Merrifield
|
| 1267.2 | MCCBMS011_PATCH_KERNEL_1.COM | TOOK::MERRIFIELD | | Thu Jul 18 1991 18:45 | 65 |
| $!=====================================================================================
$!
$! APPENDIX A
$!
$! Please copy the following into SYS$LOGIN directory in the file
$! MCCBMS011_PATCH_KERNEL_1.COM
$!
$!=====================================================================================
MCC_KERNEL_SHR.EXE
SET ECO 1
ALIGN/PAG NEW_CODE
DEP/INST/PATCH
NEW_CODE
'NOP'
'CMPL R4, #^X03268009'
'BNEQ LBL2'
'TSTL R2'
'BNEQ LBL2'
'LBL1: PUSHL B^^XC(AP)'
'PUSHL #0'
'PUSHL B^^X4(AP)'
'CALLS #3, L^^X0009273C'
'MOVL R0, R4'
'LBL2: JMP L^^X00092AE2'
EXIT
REPL/INST
00092A8C
'BEQL 092AE2'
EXIT
'BEQL 092AD8'
EXIT
REPL/INST
00092A97
'BEQL 092AE2'
EXIT
'BEQL 092AD8'
EXIT
REPL/INST
00092AC1
'BEQL 092AE2'
EXIT
'BEQL 092AD8'
EXIT
REPL/INST
00092ACE
'BRB 092AE2'
EXIT
'BRB 092AD8'
EXIT
REPL/INST
00092AD0
'PUSHL B^^XC(AP)'
'PUSHL #0'
'PUSHL B^^X4(AP)'
'CALLS #3, L^^X0009273C'
'MOVL R0, R4'
EXIT
'JMP L^LBL1'
'TSTL R0'
'JMP L^NEW_CODE'
'TSTL R0'
'TSTL R0'
EXIT
UPDATE
EXIT
|
| 1267.3 | KERNEL_PATCH_DCL_1.COM | TOOK::MERRIFIELD | | Thu Jul 18 1991 18:47 | 131 |
| $!==================================================================
$! KERNEL_PATCH_DCL_1.COM 10-JUL-1991 15:10 Page 1
$!++
$!
$! KERNEL_PATCH_DCL_1.COM
$! 10-JUL-1991 15:10
$!
$!===================================================================
$!Background:
$!==========
$!
$! In V1.1 DECmcc Kernel software has a bug which will cause
$! any one of the following symptoms:
$!
$! 1. ACCVIO occurs when an mcc_event_put call examines Event Manager
$! structures created by an mcc_event_get call having as a parameter
$! an event list with a first element having a value of 0 (for
$! wildcarding event codes). This can usually be seen when the Iconic
$! Map starts up notifications and the MCC_DNA4_EVL process crashes
$! with an ACCVIO.
$!
$! Note
$! ----
$! We strongly recommend that you apply the following patch,
$! regardless of whether you have experienced the above behavior.
$!
$!
$!How to Apply the patch:
$!======================
$!
$! Step 1:
$! ------
$! We recommend that the
$! Patch be applied from the system account. Please copy it in your
$! SYS$LOGIN directory as MCCBMS011_PATCH_KERNEL_1.COM.
$!
$! Step 2:
$! ------
$! Run this command procedure (i.e. KERNEL_PATCH_DCL_1.COM).
$! It will apply the required patch.
$!
$!Side effects:
$!============
$!
$! Files renamed by patch
$! ----------------------
$!
$! Please note that the Patch will rename the following existing
$! files:
$!
$! SYS$LIBRARY:MCC_KERNEL_SHR.EXE;-1 =>
$! SYS$LIBRARY:MCC_KERNEL_SHR.EXE_OLD_V1_1
$!
$!
$!=============================================================================
$ !
$ verify = F$VERIFY(0)
$ any_file_name := ""
$ any_file_name = f$parse(any_file_name,"*.*;*")
$ file_spec = f$search("''any_file_name'")
$ current_dir = f$parse(file_spec,,,"device") + f$parse(file_spec,,,"directory")
$ !
$ On error then goto all_done
$ Assign sys$scratch:mcc_kernel_patch.tmp sys$output
$ Install list sys$library:mcc_kernel_shr
$ Deass sys$output
$ !
$ Open/read/err=file_read_error temp_file sys$scratch:mcc_kernel_patch.tmp
$ !
$ !------------------
$ get_new_line:
$ !------------------
$ Read/error=file_read_error/end_of_file=all_done temp_file data_line
$ If f$edit(data_line,"collapse") .eqs. "" then goto get_new_line
$ !
$ line_1 = data_line
$ read/error=file_read_error/end_of_file=go_ahead temp_file line_2
$ close temp_file
$ !
$ line_2 = f$edit(line_2,"COMPRESS,TRIM")
$ line_2 = F$ELEMENT(0," ",line_2)
$ EXTN = F$EXTRACT(f$length(line_1)-4, 4, line_1)
$ line_1 = F$EXTRACT(0,f$length(line_1) - 4, line_1)
$ line_2 = f$parse(line_2,,,"NAME")
$ image_dir = line_1
$ line_2 = line_1+line_2+EXTN
$ !
$ set message/nofacility/noseveri/notext/noident
$ !
$ analyze/image/out=sys$scratch:mcc_kernel_patch.tmp 'line_2
$ search/out=nl: sys$scratch:mcc_kernel_patch.tmp "There are no patches at this time"
$ !
$ if f$integer('$status') .eq. 1 then -
search/out=nl: sys$scratch:mcc_kernel_patch.tmp "link date/time: 24-FEB-1991 13:12"
$ !
$ stat = $STATUS
$ set message/facility/severi/text/ident
$ if f$integer('stat') .eq. 1
$ then
$ set def 'image_dir'
$ if f$search("sys$login:MCCBMS011_PATCH_KERNEL_1.COM") .nes. ""
$ then
$ Copy/nolog sys$login:MCCBMS011_PATCH_KERNEL_1.COM []
$ Patch @MCCBMS011_PATCH_KERNEL_1
$ Install replace 'image_dir'mcc_kernel_shr.exe
$ Write sys$output " **************************************************************"
$ Write sys$output " * Image patched and replaced *"
$ Write sys$output " **************************************************************"
$ Delete/noconf/nolog MCCBMS011_PATCH_KERNEL_1.COM;*
$ Rename/nolog 'image_dir'MCC_KERNEL_SHR.EXE;-1 'image_dir'*.EXE_OLD_V1_1
$ else
$ write sys$output " Patch was required and MCCBMS011_PATCH_KERNEL_1.COM was *not* found"
$ endif
$ else
$ write sys$output " Patch is *not* required"
$ endif
$ goto all_done
$ !------------------
$ file_read_error:
$ !------------------
$ write sys$output "Error reading ''temp_file'"
$!--------------------
$ all_done:
$!--------------------
$ delete/noconf/nolog sys$scratch:mcc_kernel_patch.tmp;*
$ set message/facility/severi/text/ident
$ set def 'current_dir
$ if verify .eq. 1 then Set Verify
$!==================================================================================
$ exit
$!==================================================================================
|
| 1267.4 | ALARMS bug | TOOK::MERRIFIELD | | Thu Jul 18 1991 19:02 | 53 |
| Problem:
--------
A bug in V1.1 DECmcc Alarms may exhibit one or more of the
following symptoms;
- EXTRACT RULE does not extract some or all of the Alarms Rules
from the MIR
- A rule can not be enabled
- A rule can be enabled, but becomes disabled after a single
evaluation.
- A rule is successfully enabled, but notification never occurs.
Action Required.
----------------
If you have experienced the behavior as noted above and can still
see the rules in the alarms MIR, issuing the following command will
recover the rule information.
MCC> SHOW DOMAIN * RULE * ALL CHAR, TO FILE saved_rules.com
The rules can then later be restored by converting SAVED_RULES.COM
to an MCC command procedure by editing it. Do this only if you want to
save the existing rules in the Alarms MIR.
- MCCBMS011_PATCH_ALARMS_1.COM is the actual patch. We recommend
that the patch be applied from the system account.
- Run the command procedure, ALARMS_PATCH_DCL_1.COM. It will apply
the required patch.
@ALARMS_PATCH_DCL_1.COM
- Please note that the patch will rename the following existing
files:
MCC_COMMON:MCC_ALARMS_INSTANCE_MIR.DAT =>
MCC_COMMON:MCC_ALARMS_INSTANCE_MIR.DAT_OLD_V1_1
MCC_COMMON:MCC_ALARMS_ATTRIBUTE_MIR.DAT =>
MCC_COMMON:MCC_ALARMS_ATTRIBUTE_MIR.DAT_OLD_V1_1
SYS$LIBRARY:MCC_ALARMS_FM.EXE;-1
SYS$LIBRARY:MCC_ALARMS_FM.EXE_OLD_V1_1
After the patch is applied, Alarms will create a set of new MIR
files, hence you will not be able to see your old rules in the
repository.
|
| 1267.5 | MCCBMS011_PATCH_ALARMS_1.COM | TOOK::MERRIFIELD | | Thu Jul 18 1991 19:04 | 120 |
| $!=====================================================================================
$!
$!
$! Please copy the following into SYS$LOGIN directory in the file
$! MCCBMS011_PATCH_ALARMS_1.COM
$!
$!=====================================================================================
MCC_ALARMS_FM.EXE
SE EC
^X00000001
SE M
I
EXI
SE M
I
EXI
SE M
NOSY
EXI
RE /I
^X0000DA68
'MOVL @B^^X00000000(R4),R0'
EXIT
'NOP'
EXI
AL /PAG
NEW_CALL
INSE /I
^X0000DA68
'NOP'
'PUSHL B^^X00000008(AP)'
'CALLS #^X00000001,NEW_CALL'
'MOVL R0,R8'
'JMP L^^X0000DA73'
'NEW_CALL :NOP'
'NOP'
'SUBL2 #^X00000018,SP'
'CLRL R3'
'CLRL B^^X000000F8(FP)'
'CLRL R4'
'CLRL B^^X000000F4(FP)'
'MOVZWL #^X000001F8,-(SP)'
'PUSHL #^X00000001'
'CALLS #^X00000002,@L^^X00047F80'
'MOVL R0,R3'
'BEQL LBL1'
'PUSHAL B^^X000000F8(FP)'
'MOVL @B^^X00000004(AP),R0'
'MOVZWL (R0),-(SP)'
'PUSHL R3'
'PUSHL R0'
'CALLS #^X00000004,L^^X00025F90'
'MOVL R0,R4'
'BRB LBL2'
'LBL1 :MOVL #^X0326D162,R0'
'RET'
'LBL2 :CLRL B^^X000000F4(FP)'
'TSTL B^^X000000F8(FP)'
'BEQL LBL3'
'TSTL R0'
'NOP'
'LBL4 :MOVL B^^X000000F4(FP),R2'
'CVTBL (R3)[R2],-(SP)'
'CALLS #^X00000001,@L^^X000480A8'
'CVTLB R0,(R3)[R2]'
'INCL B^^X000000F4(FP)'
'CMPL B^^X000000F4(FP),B^^X000000F8(FP)'
'BLSSU LBL4'
'LBL3 :CMPL R4,#^X03268009'
'BNEQ LBL5'
'MOVL B^^X00000004(AP),R2'
'MOVW #^X00000192,@B^^X00000000(R2)'
'PUSHAL B^^X000000F4(FP)'
'PUSHL B^^X000000F8(FP)'
'PUSHL R3'
'PUSHL (R2)'
'CALLS #^X00000004,L^^X00037650'
'MOVL R0,R4'
'LBL5 :PUSHL R3'
'CALLS #^X00000001,@L^^X00047F70'
'MOVL R4,R0'
'RET'
EXI
RE /I
PAA+^X00000004
'CALLS #^X00000001,L^PAA'
EXIT
'CALLS #^X00000001,L^NEW_CALL'
EXI
SE M
NOI
EXI
D /W
NEW_CALL+^X00000000
^X0000001C
EXI
RE /I
^X00009F06
'BEQL ^X00009F20'
EXIT
'NOP'
EXI
INSE /I
^X00009F06
'NOP'
'CMPL B^^X000000F8(FP),#^X00000005'
'BNEQ P2LB1'
'MOVZWL #^X000001F8,B^^X000000F4(FP)'
'P2LB1 :TSTL B^^X000000F4(FP)'
'BEQL ^X00009F20'
EXI
RE /I
^X0000DA73
'MOVZWL B^^X00000008(R0),R2'
EXIT
'BRB ^X0000DAAD'
EXI
U
EXI
|
| 1267.6 | ALARMS_PATCH_DCL_1.COM | TOOK::MERRIFIELD | | Thu Jul 18 1991 19:04 | 182 |
| $!==================================================================
$! ALARMS_PATCH.COM 24-APR-1991 15:10 Page 1
$!++
$!
$! ALARMS_PATCH.COM
$! 24-APR-1991 15:10
$!
$!===================================================================
$!Background:
$!==========
$!
$! In V1.1 DECmcc Alarms software has a bug which will cause
$! any one of the following symptoms:
$!
$! 1. Extract Rule does not extract all/some of the Alarms rule
$! from Alarms MIR. Following log indicates how a typical failure
$! looks:
$!
$! MCC_ALARMS_EXTRACT_RULES
$! - Generating a Procedure to Rebuild the Alarms MIR
$! - Output File: MCC_ALARMS_RULES.COM
$! WRITE-PROCEDURE failed on step 2
$!
$! [ 0 ] (
$! [ 4 ] (
$! [ 3 ] (
$! [ 1 ] 03
$! [ 2 ] 54 68 65 20 76 61 6c 75 65 20 20 66
$!
$! :
$! :
$! :
$! )
$! )WRITE-PROCEDURE failed on step 2
$!
$! >>> EXIT - Alarms MIR extraction error ... MCC Status Code = 52875202
$!
$!
$! 2. A rule can be created but can not be Enabled successfully.
$!
$! 3. A rule can be enabled but does not stay enabled.
$! After one evaluation the rule is disabled.
$! 4. Rules are enabled but no notification takes place.
$!
$! Note
$! ----
$! We strongly recommend that you apply the following patch,
$! regardless of whether you have experienced the above behavior.
$!
$!
$!Saving old rules:
$!================
$!
$! If you have experienced the behavior as noted in 1. above, and
$! can still see the rules in alarms MIR, by issuing the following
$! command,
$!
$! MCC> SHOW DOMAIN * RULE * ALL CHAR, TO FILE saved_rules.com.
$!
$! The rules can later be restored converting SAVED_RULES.COM to
$! a MCC command procedure by editing it. You may want to do
$! this only if you want to save the existing rules in the Alarms MIR.
$!
$!How to Apply the patch:
$!======================
$!
$! Step 1:
$! ------
$! Appendix A has the actual patch. We recommend that the
$! Patch be applied from the system account. Please copy it in your
$! SYS$LOGIN directory as MCCBMS011_PATCH_ALARMS_1.COM.
$!
$! Step 2:
$! ------
$! Run this command procedure (i.e. PATCH.COM).
$! It will apply the required patch.
$!
$!Side effects:
$!============
$!
$! Files renamed by patch
$! ----------------------
$!
$! Please note that the Patch will rename the following existing
$! files:
$!
$! MCC_COMMON:MCC_ALARMS_INSTANCE_MIR.DAT =>
$! MCC_COMMON:MCC_ALARMS_INSTANCE_MIR.DAT_OLD_V1_1
$!
$! MCC_COMMON:MCC_ALARMS_ATTRIBUTE_MIR.DAT =>
$! MCC_COMMON:MCC_ALARMS_ATTRIBUTE_MIR.DAT_OLD_V1_1
$!
$! SYS$LIBRARY:MCC_ALARMS_FM.EXE;-1 =>
$! SYS$LIBRARY:MCC_ALARMS_FM.EXE_OLD_V1_1
$!
$!
$! New MIR files for Alarms MIR
$! ----------------------------
$!
$! After the patch is applied Alarms will create a set of new MIR files
$! hence you will not be able to see you old rules in the repository.
$!
$!=============================================================================
$ !
$ verify = F$VERIFY(0)
$ any_file_name := ""
$ any_file_name = f$parse(any_file_name,"*.*;*")
$ file_spec = f$search("''any_file_name'")
$ current_dir = f$parse(file_spec,,,"device") + f$parse(file_spec,,,"directory")
$ !
$ On error then goto all_done
$ Assign sys$scratch:mcc_alarms_patch.tmp sys$output
$ Install list sys$library:mcc_alarms_fm
$ Deass sys$output
$ !
$ Open/read/err=file_read_error temp_file sys$scratch:mcc_alarms_patch.tmp
$ !
$ !------------------
$ get_new_line:
$ !------------------
$ Read/error=file_read_error/end_of_file=all_done temp_file data_line
$ If f$edit(data_line,"collapse") .eqs. "" then goto get_new_line
$ !
$ line_1 = data_line
$ read/error=file_read_error/end_of_file=go_ahead temp_file line_2
$ close temp_file
$ !
$ line_2 = f$edit(line_2,"COMPRESS,TRIM")
$ line_2 = F$ELEMENT(0," ",line_2)
$ EXTN = F$EXTRACT(f$length(line_1)-4, 4, line_1)
$ line_1 = F$EXTRACT(0,f$length(line_1) - 4, line_1)
$ line_2 = f$parse(line_2,,,"NAME")
$ image_dir = line_1
$ line_2 = line_1+line_2+EXTN
$ !
$ set message/nofacility/noseveri/notext/noident
$ !
$ analyze/image/out=sys$scratch:mcc_alarms_patch.tmp 'line_2
$ search/out=nl: sys$scratch:mcc_alarms_patch.tmp "There are no patches at this time"
$ !
$ if f$integer('$status') .eq. 1 then -
search/out=nl: sys$scratch:mcc_alarms_patch.tmp "link date/time: 28-FEB-1991 09:58"
$ !
$ stat = $STATUS
$ set message/facility/severi/text/ident
$ if f$integer('stat') .eq. 1
$ then
$ set def 'image_dir'
$ if f$search("sys$login:MCCBMS011_PATCH_ALARMS_1.COM") .nes. ""
$ then
$ Copy/nolog sys$login:MCCBMS011_PATCH_ALARMS_1.COM []
$ Patch @MCCBMS011_PATCH_ALARMS_1
$ Install replace 'image_dir'mcc_alarms_fm.exe
$ Write sys$output " **************************************************************"
$ Write sys$output " * Image patched and replaced *"
$ Write sys$output " **************************************************************"
$ Delete/noconf/nolog MCCBMS011_PATCH_ALARMS_1.COM;*
$ Rename/nolog MCC_COMMON:MCC_ALARMS_INSTANCE_MIR.DAT MCC_COMMON:*.DAT_OLD_V1_1
$ Rename/nolog MCC_COMMON:MCC_ALARMS_ATTRIBUTE_MIR.DAT MCC_COMMON:*.DAT_OLD_V1_1
$ Rename/nolog 'image_dir'MCC_ALARMS_FM.EXE;-1 'image_dir'*.EXE_OLD_V1_1
$ else
$ write sys$output " Patch was required and MCCBMS011_PATCH_ALARMS_1.COM was *not* found"
$ endif
$ else
$ write sys$output " Patch is *not* required"
$ endif
$ goto all_done
$ !------------------
$ file_read_error:
$ !------------------
$ write sys$output "Error reading ''temp_file'"
$!--------------------
$ all_done:
$!--------------------
$ delete/noconf/nolog sys$scratch:mcc_alarms_patch.tmp;*
$ set message/facility/severi/text/ident
$ set def 'current_dir
$ if verify .eq. 1 then Set Verify
$!==================================================================================
$ exit
$!==================================================================================
|
| 1267.7 | DECmcc Performance Analyzer patch (for LANbridge 200) | TOOK::MERRIFIELD | | Fri Jul 19 1991 12:56 | 22 |
| Problem:
--------
The utilization and throughput statistics displayed for the
LANbridge 200 are incorrect.
Action Required:
----------------
Apply patch MCCBMS011_PATCH_PA_1.COM
$ PATCH @MCCBMS011_PATCH_PA_1.COM
this will create a new version of the image MCC_PA_FM.EXE
Install the new immage;
$ INSTALL
INSTAL> REPLACE/OPEN/HEADER/SHARE SYS$LIBRARY:MCC_PA_FM.EXE
INSTAL> EXIT
$
|
| 1267.8 | :MCCBMS011_PATCH_PA_1.COM | TOOK::MERRIFIELD | | Fri Jul 19 1991 12:58 | 87 |
| ! ------------------------------------------------------------------------------
! MCCBMS011_PATCH_PA_1.COM
! ------------------------------------------------------------------------------
mcc_pa_fm.exe
set module/all
set eco 1
set mode instruction
ex 6176
insert 6176 = 'TSTL R0'
'CMPL @B^00(R5)[R2],#01'
'BNEQ PA_1'
'MOVL B^0F0(FP),R0'
'MOVL #01,@B^04(R0)'
'BRB 061C3'
'PA_1: NOP'
exit
ex 60e1
replace 60e1='BRW 6178'
'BRW 6176'
exit
ex 60f0
replace 60f0='BRW 6178'
'BRW 6176'
exit
ex 610d
replace 610d = 'BRB 6178'
'BRB 6176'
exit
ex 62ef
replace 62ef = 'PUSHL #05'
'PUSHL #06'
exit
ex 67b9
insert 67b9 = 'MOVL I^#03268009,R3'
'MULG2 W^5a44, (R0)'
exit
cancel mode
ex/long 15438
replace/long 15438 = 0fffffff5
0fffffff6
exit
ex/byte 15450
replace/byte 15450 = 22
1e
exit
ex/long 154a4
replace/long/hex 154a4 = 0fffffff5
0fffffff6
exit
ex/byte 154bc
replace/byte/hex 154bc = 2d
29
exit
ex/byte 1552c
replace/byte/hex 1552c = 22
1e
exit
ex/byte 15530
replace/byte 15530 = 2d
29
exit
ex/byte 15580
replace/byte 15580 = 22
1d
exit
ex/byte 15584
replace/byte 15584 = 2d
28
exit
ex/byte 155c0
replace/byte 155c0 = 2b
28
exit
ex/long 16010
replace 16010=6224
5e5c
exit
ex/long 16014
replace 16014=6224
5e5c
exit
ex/long 16020
replace 16020=5a6c
5bf8
exit
update
|
| 1267.9 | DECmcc Domain patch | TOOK::MERRIFIELD | | Fri Jul 19 1991 13:03 | 20 |
| Problem:
--------
When the user tries to add a member to a domain, and that domain
does not exist, the FCL will ACC-VIO. For example, the user issues the
following command:
MCC> CREATE DOMAIN FOO MEMBER NODE4 BAR
If domain FOO does not exist prior to this command, the FCL ACC-VIOs.
Action Required:
----------------
Apply patch MCC011_PATCH_DOMAIN_1.COM
$ PATCH @MCCBMS011_PATCH_DOMAIN_1.COM
|
| 1267.10 | MCCBMS011_PATCH_DOMAIN_1.COM | TOOK::MERRIFIELD | | Fri Jul 19 1991 13:05 | 29 |
| MCC_DOMAIN_FM.EXE
SE EC
^X00000001
D /I
^X00002BA0
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
'NOP'
EXI
U
EXI
|
| 1267.11 | Ethernet AM patch | TOOK::MERRIFIELD | | Tue Jul 23 1991 12:16 | 54 |
|
Problem
-------
1. Ethernet AM will ACCVIO when the SHOW STATION <id> ALL COUNTERS
command is issued to the FDDI-side of a DECbridge 500 (DEFEB).
PATCHED ETHERNET_AM WILL RETURN:
The requested operation cannot be completed
MCC Routine Error = %MCC-E-INSUFBUFFER, data not
returned due to lack of return data
buffer space
2. Stations that are IEEE802_ONLY, and that won't successfully
loop 32 bytes of data on a IEEE802.2 TEST, cannot be registered
(e.g. Macintosh running PATHWORKS).
PATCHED ETHERNET_AM WILL ALLOW REGISTER TO WORK.
3. The TEST command currently defaults to 32 bytes, which exceeds
the capacity of many target Stations.
PATCHED ETHERNET_AM DEFAULTS TO ZERO BYTES OF DATA.
Action Required:
-----------------
1. Set default to SYS$COMMON:[SYSLIB]. Copy/apply patch
MCCBMS011_PATCH_ENET_1.COM in the SYS$COMMON:[SYSLIB] directory:
$PATCH @MCCBMS011_PATCH_ENET_1.COM
this will create a new version of the image MCC_ENET_AM.EXE.
2. Install the new image:
$INSTALL
INSTALL> LIST SYS$COMMON:[SYSLIB]MCC_ENET_AM.EXE
INSTALL> REPLACE/OPEN/HEADER/SHARE SYS$COMMON:[SYSLIB]MCC_ENET_AM.EXE
INSTALL> LIST SYS$COMMON:[SYSLIB]MCC_ENET_AM.EXE
INSTALL> EXIT
$
Verifying the patch:
--------------------
The command SHOW MCC 0 ETHERNET_AM COMPONENT VERSION should return
a Component Version of V1.1.1 if the patch has installed successfully.
|
| 1267.12 | MCCBMS011_PATCH_1.COM | TOOK::MERRIFIELD | | Tue Jul 23 1991 12:17 | 27 |
| !-----------------------------------------------------
! MCCBMS011_PATCH_ENET_1.COM
!-----------------------------------------------------
mcc_enet_am
set eco 1
examine/symbol 0330
replace/symbol 0330 = 00010156
01010156
exit
examine/symbol 0330
set mode instruction
examine/instr 3617
replace/instr 3617 = 'MOVW #0200,B^0E8(FP)'
'MOVW #0CB,B^0E8(FP)'
exit
examine/instr 3617
examine/instr 4748
replace/instr 4748 = 'MOVL #20,B^0C(R0)'
'MOVL #0,B^0C(R0)'
exit
examine/instr 4748
examine/instr 50cd
replace/instr 50cd = 'MOVL #20,W^0FD00(FP)'
'MOVL #0,W^0FD00(FP)'
exit
examine/instr 50cd
update
|
| 1267.13 | DECgraph V1.6 Patch | BSYBEE::EGOLF | John C. Egolf LKG2-2/T02 x226-7874 | Wed Oct 02 1991 10:32 | 101 |
| $ !++ DECgraph V1.6 Patch
$ !
$ ! Patch to correct the DECgraph batch problem, where executing DECgraph
$ ! in batch mode returns File Not Accessed on Channel.
$ !--
$ OLD_DEFAULT = F$ENVIRONMENT("DEFAULT")
$ ON WARNING THEN GOTO EXIT
$ ON CONTROL_Y THEN GOTO EXIT
$ TYPE SYS$INPUT/PAGE
$ DECK
This procedure applies a patch to the GRAPHSHR.EXE image. It
should only be used on DECgraph V1.6 images. The problem this
patch addresses will be corrected in the next release of DECgraph.
There must be no users running DECgraph during this patching
procedure.
PROBLEM ADDRESSED:
When running DECgraph in batch mode, the error message
%SYSTEM-F-FILNOTACC, file not accessed on channel
is received.
PATCHED FUNCTIONALITY:
DECgraph V1.6 will work as documented.
RESTRICTIONS/NOTES
There is one restriction. In an attempt to run DECgraph from a
command file, and do not have SYS$INPUT redefined to SYS$COMMAND,
you will receive the error:
%SYSTEM-F-FILNOTACC, file not accessed on channel.
In order to resolve this, enter the following in you command
procedure:
$DEFINE SYS$INPUT SYS$COMMAND
If you have installed the GRAPHSHR.EXE image via the VMS INSTALL
utility, you must replace the image before the patch will take
effect:
$ INSTALL
INSTALL> REPLACE SYS$SHARE:GRAPHSHR.EXE
INSTALL> EXIT
$
$ EOD
$ INQUIRE CONT "Press return to apply the patch"
$ SET DEFAULT SYS$COMMON:[SYSLIB]
$ WRITE SYS$OUTPUT "Patching GRAPHSHR.EXE image"
$ PATCH GRAPHSHR.EXE
SET ECO 1
REPLACE/INSTRUCTION 000057DA
'PUSHAB B^00005774'
EXIT
'BRB PB.1'
'PAT.1: .LONG 4'
'PAT.4: .LONG 5'
'PAT.2: .WORD 4'
'.WORD 322'
'PAT.3: .LONG 0'
'PAT.5: .LONG 0'
'.LONG 0'
'PB.1: MOVAL PAT.1, PAT.3'
'MOVAL PAT.4, PAT.5'
'CLRQ -(SP)'
'CLRL -(SP)'
'PUSHAB L^PAT.2'
'CLRQ -(SP)'
'CLRL -(SP)'
'CALLS #7, @#7FFEE0D8'
'MOVL R0,R7'
'BLBS R7, PB.2'
'PUSHL R7'
'CALLS #1, @00060754'
'PB.2: CMPL PAT.1, #3'
'BEQL PB.3'
'JMP 59B4'
'PB.3: PUSHAB L^00005774'
EXIT
UPDATE
EXIT
$ WRITE SYS$OUTPUT "All done..."
$ EXIT:
$ ON CONTROL_Y THEN EXIT
$ ON WARNING THEN EXIT
$ SET DEFAULT 'OLD_DEFAULT'
$ EXIT
|
| 1267.14 | | F18::ROBERT | | Wed Oct 16 1991 13:05 | 6 |
| re. 8
The blank line is causing this patch not to work. I took out the blank
line and the patch installed ok.
Thanks Dave
|
| 1267.15 | multi processor patch | TOOK::CALLANDER | MCC = My Constant Companion | Wed Nov 06 1991 18:34 | 2 |
| see note 1692 for additional patch
|
| 1267.16 | MCCBMS011_PATCH_KERNEL_3.README | CUJO::HILL | Dan Hill-Net.Mgt.-Customer Resident | Fri Dec 06 1991 02:58 | 16 |
|
1. Kernel Patch to fix problems due to Multiple DNS Clearinghouses
------------------------------------------------------------------
The V1.1 DECmcc Kernel has a bug which can sometimes result in unsuccessful
registration in DNS when the DNS Namespace contains Read-Only replica
of the directories used in the registration.
The next replies will contain MCCBMS011_PATCH_KERNEL_3.COM, the actual
patch, and KERNEL_PATCH_DCL_3.COM, a DCL command procedure to apply that
patch.
This patch need not to be applied if the namespace does not contain
Read-Only replicas of the directories used by MCC.
|
| 1267.17 | KERNEL_PATCH_DCL_3.COM | CUJO::HILL | Dan Hill-Net.Mgt.-Customer Resident | Fri Dec 06 1991 02:59 | 135 |
| $!==================================================================
$! KERNEL_PATCH_DCL_3.COM 13-AUG-1991 10:35
$!++
$!
$! KERNEL_PATCH_DCL_3.COM
$! 13-AUG-1991 10:35
$!
$!===================================================================
$!Background:
$!==========
$!
$! The V1.1 DECmcc Kernel has a bug which can result in unsuccessful
$! registration in DNS when the DNS Namespace contains Read-Only replica
$! of the directories used in the registration.
$! The unsuccessful registration happens intermittently due to the
$! inconsistencies between information in a Master replica and Read-Only
$! replica. The inconsistencies may happen depending on the following
$! factors:
$! 1. the system load of DNS server node which has the Master replica
$! of directories,
$! 2. the system load of the DNS server nodes which have Read-Only replica
$! of the directories, and
$! 3. the network link delay between the Master replica DNS server and the
$! Read-Only replica DNS servers.
$!
$! NOTE
$! ----
$! We strongly recommend that you apply the following patch if your
$! DNS Namespace contains Read-Only replicas of directories.
$!
$!
$!How to Apply the patch:
$!======================
$!
$! Step 1:
$! ------
$! We recommend that the
$! Patch be applied from the system account. Please copy it in your
$! SYS$LOGIN directory as MCCBMS011_PATCH_KERNEL_3.COM.
$!
$! Step 2:
$! ------
$! Run this command procedure (i.e. KERNEL_PATCH_DCL_3.COM).
$! It will apply the required patch.
$!
$!Side effects:
$!============
$!
$! Files renamed by patch
$! ----------------------
$!
$! Please note that the Patch will rename the following existing
$! files:
$!
$! SYS$LIBRARY:MCC_KERNEL_SHR.EXE;-1 =>
$! SYS$LIBRARY:MCC_KERNEL_SHR.EXE_OLD_V1_1
$!
$!
$!=============================================================================
$ !
$ verify = F$VERIFY(0)
$ any_file_name := ""
$ any_file_name = f$parse(any_file_name,"*.*;*")
$ file_spec = f$search("''any_file_name'")
$ current_dir = f$parse(file_spec,,,"device") + f$parse(file_spec,,,"directory")
$ !
$ On error then goto all_done
$ Assign sys$scratch:mcc_kernel_patch.tmp sys$output
$ Install list sys$library:mcc_kernel_shr
$ Deass sys$output
$ !
$ Open/read/err=file_read_error temp_file sys$scratch:mcc_kernel_patch.tmp
$ !
$ !------------------
$ get_new_line:
$ !------------------
$ Read/error=file_read_error/end_of_file=all_done temp_file data_line
$ If f$edit(data_line,"collapse") .eqs. "" then goto get_new_line
$ !
$ line_1 = data_line
$ read/error=file_read_error/end_of_file=go_ahead temp_file line_2
$ close temp_file
$ !
$ line_2 = f$edit(line_2,"COMPRESS,TRIM")
$ line_2 = F$ELEMENT(0," ",line_2)
$ EXTN = F$EXTRACT(f$length(line_1)-4, 4, line_1)
$ line_1 = F$EXTRACT(0,f$length(line_1) - 4, line_1)
$ line_2 = f$parse(line_2,,,"NAME")
$ image_dir = line_1
$ line_2 = line_1+line_2+EXTN
$ !
$ set message/nofacility/noseveri/notext/noident
$ !
$ analyze/image/out=sys$scratch:mcc_kernel_patch.tmp 'line_2
$! search/out=nl: sys$scratch:mcc_kernel_patch.tmp "There are no patches at this time"
$ !
$! if f$integer('$status') .eq. 1 then -
$ search/out=nl: sys$scratch:mcc_kernel_patch.tmp "link date/time: 24-FEB-1991 13:12"
$ !
$ stat = $STATUS
$ set message/facility/severi/text/ident
$ if f$integer('stat') .eq. 1
$ then
$ set def 'image_dir'
$ if f$search("sys$login:MCCBMS011_PATCH_KERNEL_3.COM") .nes. ""
$ then
$ Copy/nolog sys$login:MCCBMS011_PATCH_KERNEL_3.COM []
$ Patch @MCCBMS011_PATCH_KERNEL_3
$ Install replace 'image_dir'mcc_kernel_shr.exe
$ Write sys$output " **************************************************************"
$ Write sys$output " * Image patched and replaced *"
$ Write sys$output " **************************************************************"
$ Delete/noconf/nolog MCCBMS011_PATCH_KERNEL_3.COM;*
$ Rename/nolog 'image_dir'MCC_KERNEL_SHR.EXE;-1 'image_dir'*.EXE_OLD_V1_1
$ else
$ write sys$output " Patch was required and MCCBMS011_PATCH_KERNEL_3.COM was *not* found"
$ endif
$ else
$ write sys$output " Patch is *not* required"
$ endif
$ goto all_done
$ !------------------
$ file_read_error:
$ !------------------
$ write sys$output "Error reading ''temp_file'"
$!--------------------
$ all_done:
$!--------------------
$ delete/noconf/nolog sys$scratch:mcc_kernel_patch.tmp;*
$ set message/facility/severi/text/ident
$ set def 'current_dir
$ if verify .eq. 1 then Set Verify
$!==================================================================================
$ exit
$!==================================================================================
|
| 1267.18 | MCCBMS011_PATCH_KERNEL_3.COM | CUJO::HILL | Dan Hill-Net.Mgt.-Customer Resident | Fri Dec 06 1991 03:00 | 36 |
| $!=====================================================================================
$!
$!
$! Please copy the following into SYS$LOGIN directory in the file
$! MCCBMS011_PATCH_KERNEL_3.COM
$!
$!=====================================================================================
MCC_KERNEL_SHR.EXE
SE EC
^X00000003
RE /I
^X0004990A
'MOVB #^X00000002,W^^X0000DF81(FP)'
EXIT
'MOVB #^X00000003,W^^X0000DF81(FP)'
EXI
RE /I
^X00049ABF
'ADDL2 #^X00000002,R6'
EXIT
'ADDL2 #^X00000005,R6'
EXI
RE /I
^X0004A08D
'MOVB #^X00000002,W^^X0000E013(FP)'
EXIT
'MOVB #^X00000003,W^^X0000E013(FP)'
EXI
RE /I
^X0004A20D
'MOVL #^X00000005,R5'
EXIT
'MOVL #^X00000001,R5'
EXI
U
EXI
|
| 1267.19 | ALARMS_PATCH_DCL_2.COM | TOOK::MERRIFIELD | | Fri Jan 17 1992 16:28 | 151 |
| $!==================================================================
$! ALARMS_PATCH_DCL_2.COM 15-JAN-1992 12:00 Page 1
$!++
$!
$! ALARMS_PATCH_DCL_2.COM
$! 15-JAN-1992 12:00
$!
$!===================================================================
$!Background:
$!==========
$!
$! If you are running DECmcc ALARMS V1.1 on a VMS 5.5 system,
$! you will find that your procedure and exception handler will
$! not be queued to your batch queue. You will also find that
$! rules that attempt command file notification will become
$! disabled with the error:
$!
$! "%JBC-I-ITMREMOVED, meaningless items were removed from request"
$!
$!===================================================================
$!How to Apply the patch:
$!======================
$!
$! Step 1:
$! ------
$! MCCBMS011_PATCH_ALARMS_2.COM has the actual patch. We recommend that the
$! Patch be applied from the system account. Please copy it in your
$! SYS$LOGIN directory as MCCBMS011_PATCH_ALARMS_2.COM.
$!
$! Step 2:
$! ------
$! Run this command procedure (i.e. ALARMS_PATCH_DCL_2.COM).
$! It will apply the required patch.
$!
$!Side effects:
$!============
$!
$! Files renamed by patch
$! ----------------------
$!
$! SYS$LIBRARY:MCC_ALARMS_FM.EXE;-1 =>
$! SYS$LIBRARY:MCC_ALARMS_FM.EXE_OLD_V1_1
$!
$!=============================================================================
$ !
$ verify = F$VERIFY(0)
$ any_file_name := ""
$ any_file_name = f$parse(any_file_name,"*.*;*")
$ file_spec = f$search("''any_file_name'")
$ current_dir = f$parse(file_spec,,,"device") + f$parse(file_spec,,,"directory")
$ !
$ On error then goto all_done
$ Assign sys$scratch:mcc_alarms_patch2.tmp sys$output
$ Install list sys$library:mcc_alarms_fm
$ Deass sys$output
$ !
$ Open/read/err=file_read_error temp_file sys$scratch:mcc_alarms_patch2.tmp
$ !
$ !------------------
$ get_new_line:
$ !------------------
$ Read/error=file_read_error/end_of_file=all_done temp_file data_line
$ If f$edit(data_line,"collapse") .eqs. "" then goto get_new_line
$ !
$ line_1 = data_line
$ read/error=file_read_error/end_of_file=go_ahead temp_file line_2
$ close temp_file
$ !
$ line_2 = f$edit(line_2,"COMPRESS,TRIM")
$ line_2 = F$ELEMENT(0," ",line_2)
$ EXTN = F$EXTRACT(f$length(line_1)-4, 4, line_1)
$ line_1 = F$EXTRACT(0,f$length(line_1) - 4, line_1)
$ line_2 = f$parse(line_2,,,"NAME")
$ image_dir = line_1
$ line_2 = line_1+line_2+EXTN
$ !
$ set message/nofacility/noseveri/notext/noident
$ !
$ analyze/image/out=sys$scratch:mcc_alarms_patch2.tmp 'line_2
$ search/out=nl: sys$scratch:mcc_alarms_patch2.tmp "There are no patches at this time"
$ !
$ if f$integer('$status') .eq. 1
$ then
Write sys$output " "
Write sys$output " "
Write sys$output " "
Write sys$output " MCCBMS011_PATCH_ALARMS_1 has not yet been installed"
Write sys$output " This patch must be installed first"
Write sys$output " Please run ALARMS_PATCH_DCL_1.COM to install the first patch"
Write sys$output " "
goto all_done
$ endif
$ !
$ search/match=(AND)/out=nl: sys$scratch:mcc_alarms_patch2.tmp "00048B23", "length: 221"
$ !
$ if f$integer('$status') .eq. 1
$ then
Write sys$output " "
Write sys$output " "
Write sys$output " "
Write sys$output " MCCBMS011_PATCH_ALARMS_2 has already been installed"
Write sys$output " "
goto all_done
$ endif
$ !
$ search/out=nl: sys$scratch:mcc_alarms_patch2.tmp "link date/time: 28-FEB-1991 09:58"
$ !
$ if f$integer('$status') .ne. 1
$ then
Write sys$output " This is the wrong version of MCC_ALARMS_FM.EXE to patch"
Write sys$output " Please verify"
goto all_done
$ endif
$ stat = $STATUS
$ set message/facility/severi/text/ident
$ if f$integer('stat') .eq. 1
$ then
$ set def 'image_dir'
$ if f$search("sys$login:MCCBMS011_PATCH_ALARMS_2.COM") .nes. ""
$ then
$ Copy/nolog sys$login:MCCBMS011_PATCH_ALARMS_2.COM []
$ Patch @MCCBMS011_PATCH_ALARMS_2
$ Install replace 'image_dir'mcc_alarms_fm.exe
$ Write sys$output " "
$ Write sys$output " "
$ Write sys$output " "
$ Write sys$output " **************************************************************"
$ Write sys$output " * Image patched and replaced *"
$ Write sys$output " **************************************************************"
$ Write sys$output " "
$ Delete/noconf/nolog MCCBMS011_PATCH_ALARMS_2.COM;*
$ Rename/nolog 'image_dir'MCC_ALARMS_FM.EXE;-1 'image_dir'*.EXE_OLD_V1_1
$ else
$ write sys$output " Patch was required and MCCBMS011_PATCH_ALARMS_2.COM was *not* found"
$ endif
$ endif
$ goto all_done
$ !------------------
$ file_read_error:
$ !------------------
$ write sys$output "Error reading ''temp_file'"
$!--------------------
$ all_done:
$!--------------------
$ delete/noconf/nolog sys$scratch:mcc_alarms_patch2.tmp;*
$ set message/facility/severi/text/ident
$ set def 'current_dir
$ if verify .eq. 1 then Set Verify
$!==================================================================================
$ exit
$!==================================================================================
|
| 1267.20 | MCCBMS011_PATCH_ALARMS_2.COM | TOOK::MERRIFIELD | | Fri Jan 17 1992 16:29 | 38 |
| $!=====================================================================================
$!
$!
$! Please copy the following into SYS$LOGIN directory in the file
$! MCCBMS011_PATCH_ALARMS_2.COM
$!
$!=====================================================================================
MCC_ALARMS_FM.EXE
SE EC
^X00000002
RE /I
^X00014B4B
'CMPL R0,#^X00000001'
EXIT
'NOP'
EXI
DEF
LABEL1
^X00014B92
EXI
RE /I
^X00014B90
'MOVL (R5),R6'
EXIT
'NOP'
EXI
INSE /I
^X00014B4B
'NOP'
'MOVL R0,R6'
'BLBC R0, label1'
'MOVL #^X03268009,R6'
'BBS #^X00000000,(R5), label1'
'MOVL (R5),R6'
'JMP label1'
EXI
update
EXI
|
| 1267.21 | KERNEL_PATCH_DCL_2.COM | TOOK::MERRIFIELD | | Fri Jan 17 1992 16:30 | 165 |
| $!==================================================================
$!++
$!
$! KERNEL_PATCH_DCL_2.COM
$! 30-JUL-1991 11:03
$!
$!===================================================================
$!Background:
$!==========
$!
$! In V1.1 DECmcc Kernel software has a limitation which will cause
$! any one of the following symptoms:
$!
$! 1. When many alarm rules are started up when the Iconic Map PM
$! enables notification, the capacity of the Event Manager
$! memory pool may be exceeded due to the large number of
$! MCC_EVENT_GET routine calls, causing the enables to fail.
$!
$! 2. If an event sink is receiving the CVR MCC_S_INSEVTPOOLMEM
$! when calling the MCC_EVENT_PUT routine, AND the event load
$! does not ALWAYS exceed the capacity of DECmcc to handle it,
$! the capacity of the Event Manager memory pool may still be
$! exceeded due to the large burst of events received by DECmcc.
$!
$! This patch increases the size of the Event Manager memory pool by a
$! factor of 5 (to 1000000 bytes). It will increase the number of
$! notifications that can be enabled, and will increase the size of a
$! burst of events that be buffered by DECmcc before they are fully
$! processed, reducing the number of lost events received.
$!
$!
$! Note
$! ----
$! THIS PATCH CANNOT SOLVE THE PROBLEM OF EVENTS ARRIVING TOO FAST
$! (ON A SUSTAINED BASIS) FOR DECMCC TO HANDLE. THERE IS STILL ONLY
$! A LIMITED CAPACITY FOR BUFFERING EVENTS UNTIL THEY ARE PROCESSED.
$! THIS PATCH ONLY INCREASES THE SIZE OF THE BUFFER, THUS ALLOWING
$! FOR MORE NOTIFICATIONS TO BE REQUESTED AND A LARGER BURST OF
$! EVENTS TO BE HANDLED BY DECMCC.
$!
$!
$!
$!How to Apply the patch:
$!======================
$!
$! Step 1:
$! ------
$! Ensure that patch ECO1 has been applied using patch file
$! MCCBMS011_PATCH_KERNEL_1.COM
$!
$! Step 2:
$! ------
$! We recommend that the
$! Patch be applied from the system account. Please copy it in your
$! SYS$LOGIN directory as MCCBMS011_PATCH_KERNEL_2.COM.
$!
$! Step 3:
$! ------
$! Run this command procedure.
$! It will apply the required patch.
$!
$!Side effects:
$!============
$!
$! Files renamed by patch
$! ----------------------
$!
$! Please note that the Patch will rename the following existing
$! files:
$!
$! SYS$LIBRARY:MCC_KERNEL_SHR.EXE;-1 =>
$! SYS$LIBRARY:MCC_KERNEL_SHR.EXE_OLD_V1_1
$!
$!
$!=============================================================================
$ !
$ verify = F$VERIFY(0)
$ any_file_name := ""
$ any_file_name = f$parse(any_file_name,"*.*;*")
$ file_spec = f$search("''any_file_name'")
$ current_dir = f$parse(file_spec,,,"device") + f$parse(file_spec,,,"directory")
$ !
$ On error then goto all_done
$ Assign sys$scratch:mcc_kernel_patch.tmp sys$output
$ Install list sys$library:mcc_kernel_shr
$ Deass sys$output
$ !
$ Open/read/err=file_read_error temp_file sys$scratch:mcc_kernel_patch.tmp
$ !
$ !------------------
$ get_new_line:
$ !------------------
$ Read/error=file_read_error/end_of_file=all_done temp_file data_line
$ If f$edit(data_line,"collapse") .eqs. "" then goto get_new_line
$ !
$ line_1 = data_line
$ read/error=file_read_error/end_of_file=go_ahead temp_file line_2
$ close temp_file
$ !
$ line_2 = f$edit(line_2,"COMPRESS,TRIM")
$ line_2 = F$ELEMENT(0," ",line_2)
$ EXTN = F$EXTRACT(f$length(line_1)-4, 4, line_1)
$ line_1 = F$EXTRACT(0,f$length(line_1) - 4, line_1)
$ line_2 = f$parse(line_2,,,"NAME")
$ image_dir = line_1
$ line_2 = line_1+line_2+EXTN
$ !
$ set message/nofacility/noseveri/notext/noident
$ !
$ analyze/image/out=sys$scratch:mcc_kernel_patch.tmp 'line_2
$ search/out=nl: sys$scratch:mcc_kernel_patch.tmp "DEC eco levels 1- 96: %X'00000001', %X'00000000', %X'00000000'"
$ !
$ if f$integer('$status') .eq. 1 then -
search/out=nl: sys$scratch:mcc_kernel_patch.tmp "read/write patch area address: %X'000F9026', length: 474"
$ if f$integer('$status') .eq. 1
$ then
$ goto continue_patch
$ else
$ write sys$output " Patch ECO1 is *not* installed."
$ write sys$output " Please install patch ECO1 from MCCBMS011_PATCH_KERNEL_1.COM"
$ write sys$output " before installing this patch."
$ goto all_done
$ endif
$
$ continue_patch:
$ !
$ if f$integer('$status') .eq. 1 then -
search/out=nl: sys$scratch:mcc_kernel_patch.tmp "link date/time: 24-FEB-1991 13:12"
$ !
$ stat = $STATUS
$ set message/facility/severi/text/ident
$ if f$integer('stat') .eq. 1
$ then
$ set def 'image_dir'
$ if f$search("sys$login:MCCBMS011_PATCH_KERNEL_2.COM") .nes. ""
$ then
$ Copy/nolog sys$login:MCCBMS011_PATCH_KERNEL_2.COM []
$ Patch @MCCBMS011_PATCH_KERNEL_2
$ Install replace 'image_dir'mcc_kernel_shr.exe
$ Write sys$output " **************************************************************"
$ Write sys$output " * Image patched and replaced *"
$ Write sys$output " **************************************************************"
$ Delete/noconf/nolog MCCBMS011_PATCH_KERNEL_2.COM;*
$ Rename/nolog 'image_dir'MCC_KERNEL_SHR.EXE;-1 'image_dir'*.EXE_OLD_V1_1
$ else
$ write sys$output " Patch was required and MCCBMS011_PATCH_KERNEL_2.COM was *not* found"
$ endif
$ else
$ write sys$output " Patch is *not* required"
$ endif
$ goto all_done
$ !------------------
$ file_read_error:
$ !------------------
$ write sys$output "Error reading ''temp_file'"
$!--------------------
$ all_done:
$!--------------------
$ delete/noconf/nolog sys$scratch:mcc_kernel_patch.tmp;*
$ set message/facility/severi/text/ident
$ set def 'current_dir
$ if verify .eq. 1 then Set Verify
$!==================================================================================
$ exit
$!==================================================================================
|
| 1267.22 | MCCBMS011_PATCH_KERNEL_2.COM | TOOK::MERRIFIELD | | Fri Jan 17 1992 16:30 | 60 |
| $!=====================================================================================
$!
$!
$! Please copy the following into SYS$LOGIN directory in the file
$! MCCBMS011_PATCH_KERNEL_2.COM
$!
$!=====================================================================================
MCC_KERNEL_SHR.EXE
SET ECO 2
SET MODE NOSYM
REPL/INST
00088211
'MOVZWL #018E,B^44(AP)'
EXIT
'MOVZWL #07A9,B^44(AP)'
EXIT
REPL/INST
00088223
'MOVZWL #018E,-(SP)'
EXIT
'MOVZWL #07A9,-(SP)'
EXIT
REPL/INST
00088250
'MOVZWL #018E,-(SP)'
EXIT
'MOVZWL #07A9,-(SP)'
EXIT
REPL/INST
000882EE
'MOVAB L^0003139F(R2),R2'
EXIT
'MOVAB L^000F489F(R2),R2'
EXIT
REPL/INST
000883D7
'MOVL #00030D40,W^064C(R2)'
EXIT
'MOVL #000F4240,W^064C(R2)'
EXIT
REPL/INST
0008842F
'MOVAB L^000313A0(R3),R2'
EXIT
'MOVAB L^000F48A0(R3),R2'
EXIT
REPL/INST
0008844F
'PUSHL #00030D40'
EXIT
'PUSHL #000F4240'
EXIT
REPL/INST
00089CB3
'MOVL #00030D40,R5'
EXIT
'MOVL #000F4240,R5'
EXIT
UPDATE
EXIT
|