info-vax (12/24/82)
>From EPS@MIT-MC Fri Dec 24 08:10:31 1982
Mail-From: ARPANET host MIT-MC rcvd at 24-Dec-82 0429-PST
To: Info-VAX@SRI-CSL
Remailed-Date: 24 Dec 1982 0457-PST
Remailed-From: the tty of Geoffrey S. Goodfellow <Geoff5 at SRI-CSL>
Remailed-To: Info-VAX@SRI-CSL: ;
Enough already. For the benefit of all of you on brand-x network who
can't FTP this stuff from my home machine (JPL-VAX) anyway, I hereby
present...
My Favorite Patches, Volume I
for those sick of Vanilla VMS
No warranty is expressed or implied; caveat hacker!
More to come. Enjoy.
-=EPS=-
-------
AUTHORIZE.COM
-------
$![V3.0] Patch Authorize utility to allow /OWNER to be set in mixed case
$!Eric P. Scott, Caltech, December 1982
$ Set Default Sys$System
$ Patch Authorize
Check ECO 1
Check Not ECO 2
Set ECO 97
Replace/Instruction 35D6 ! Remove uppercasifier
'BICB2 #20,@B^08(AP)[R0]'
Exit
'BICB2 #00,@B^08(AP)[R0]'
Exit
Set Patch_Area/Initialize=120 7EE0 ! Fix Y or N routine
Insert/Instruction 19A5
'CALLS #3,W^357F'
'BICB2 #20,W^0F730(R3)'
Exit
Update
Exit
$ Rename/Log Authorize.Exe.-1 *.DEC.*
$ Type Sys$Input
*** WARNING *** Do NOT delete SYS$SYSTEM:AUTHORIZE.DEC. If DEC
distributes patches to the AUTHORIZE utility in the future you
will need to delete the new AUTHORIZE.EXE and RENAME AUTHORIZE.DEC
back to AUTHORIZE.EXE before applying the upgrade.
-------
FIXGETJPI.COM
-------
$![V3.0] Patch System Image to allow $GETJPI of any process w/o WORLD priv
$!Eric P. Scott, Caltech, December 1982
$ Patch SYS
Check ECO 1
Check ECO 2
Check Not ECO 3
Set ECO 97
Set Patch_Area 8000C452
Replace/I 8000A124
'CMPW W^8A(R2),W^8A(R4)'
Exit
'CMPL (SP),#80009FEC'
'BEQL 8000A132'
'CMPW W^8A(R2),W^8A(R4)'
Exit
Update
Exit
$ Rename Sys.Exe.-1 *.DEC.*
$ Type Sys$Input
*** WARNING *** Do NOT delete SYS$SYSTEM:SYS.DEC. If DEC
distributes patches to the system image in the future you will
need to delete the new SYS.EXE and RENAME SYS.DEC back to
SYS.EXE before applying the upgrade.
Type @SYS$SYSTEM:SHUTDOWN to shut down the system. The new
SYS.EXE will be used after you reboot.
-------
FIXPASALL.COM
-------
$![V3.0] Patch [R]TTDRIVER to allow $BRDCST to PASSALL terminal
$!Eric P. Scott, Caltech, December 1982
$ Set Default Sys$System
$ Patch TTDriver
Check Not ECO 1
Set ECO 97
Replace/Long 0B4A
00020001
Exit
00020000
Exit
Update
Exit
$ Rename TTDriver.Exe.-1 *.DEC.*
$ Patch RTTDriver
Check Not ECO 1
Set ECO 97
Replace/Long 039A
00020001
Exit
00020000
Exit
Update
Exit
$ Rename RTTDriver.Exe.-1 *.DEC.*
$ Type Sys$Input
*** WARNING *** Do NOT delete SYS$SYSTEM:TTDRIVER.DEC or
RTTDRIVER.DEC. If DEC distributes patches to the terminal class
driver or the remote terminal driver in the future you will need
to delete the new [R]TTDRIVER.EXE and RENAME [R]TTDRIVER.DEC back
to [R]TTDRIVER.EXE before applying the upgrade.
RTTDRIVER can be RELOADed (shut down the network!); the new
TTDRIVER will be used when VMS is next booted.
-------
FIXREPLY.COM
-------
$![V3.0] Allow REPLY to be INSTALLed with OPER to allow
$!nonprivileged users to do $BRDCSTs.
$!Eric P. Scott, Caltech, December 1982
$ SET DEFAULT SYS$SYSTEM
$ PATCH REPLY
CHECK NOT ECO 1
SET ECO 97
VERIFY/I 0B93
'RSB'
'HALT'
'HALT'
'HALT'
'HALT'
EXIT
DEPOSIT/I 0B76
'CLRL -(SP)'
'PUSHL #40000'
'CLRQ -(SP)'
'PUSHAQ B^8(SP)'
'PUSHL #1'
'CALLS #4,@#7FFEE100'
'ADDL2 #8,SP'
'PUSHL #20'
'PUSHL #0'
'PUSHAQ (R2)'
'PUSHAQ L^2C8'
'CALLS #4,@#7FFEE098'
'INSV #5,#10,#0C,R0'
'RSB'
'KLUDGE: BBS #12,@#7FFEFF10,SILLY'
'CLRL -(SP)'
'PUSHL #40000'
'CLRQ -(SP)'
'PUSHAQ B^8(SP)'
'CLRL -(SP)'
'CALLS #4,@#7FFEE100'
'ADDL2 #8,SP'
'SILLY: MOVZBL #5,R2'
'BRW 081A'
EXIT
REPLACE/I 0817
'MOVZBL #5,R2'
EXIT
'BRW KLUDGE'
EXIT
UPDATE
EXIT
$ Rename Reply.Exe.-1 *.DEC.*
$ Type Sys$Input
Remember to modify SYS$MANAGER:SYSTARTUP.COM to INSTALL REPLY with
OPER privilege.
$ MCR Install
SYS$SYSTEM:REPLY /PRIV=(OPER)
$ Type Sys$Input
*** WARNING *** Do NOT delete SYS$SYSTEM:REPLY.DEC. If DEC
distributes patches to the REPLY utility in the future you will
need to delete the new REPLY.EXE and RENAME REPLY.DEC back to
REPLY.EXE before applying the upgrade.
-------
FIXTYPE.COM
-------
$![V3.0] Patch TYPE to use null default file extension instead of '.LIS'
$!Eric P. Scott, Caltech, December 1982
$ Type Sys$Input
This procedure should NOT be executed in SYS$SYSTEM, but rather
in a [PUBLIC] directory since some .COM files *might* be broken.
Users who wish to use these should put assignments like
$ Assign Public:Type Type
$ Assign Public:Submit Submit
In their LOGIN.COMs. Note that SUBMIT must be INSTALLed with
TMPMBX privilege or the user must have TMPMBX enabled.
$Loop:
$ Inquire target "Target Directory"
$ On Warn Then GoTo Loop
$ If target.NES."" Then Set Default 'target'
$ On Warn Then Stop
$ PATCH SYS$SYSTEM:TYPE
CHECK NOT ECO 1
SET ECO 97
REPLACE/LONG 07E0
0284
EXIT
0000
EXIT
REPLACE/BYTE 07E5
04
EXIT
00
EXIT
UPDATE
EXIT
$!Similarly for PRINT command
$ PATCH SYS$SYSTEM:SUBMIT
CHECK NOT ECO 1
SET ECO 97
REPLACE/INST 013C5
'MOVL #53494C2E,W^380'
EXIT
'CLRB W^279'
'CLRL W^274'
EXIT
UPDATE
EXIT