Код:
>@PATCHMP46/LB:PATCH
>INS $LBR
>INS $MAC
>INS $SLP
>INS $TKB
>* Patch HELP files? [Y/N]:
>;
>; The following files will be patched:
>; [1,2]EXECUTIVE.HLP
>; - fix DLON$ directive description
>; - fix GTSK$ buffer size
>; [1,2]MCRTAS.HLP
>; - fix typo
>; [1,2]SYSLIB.HLP
>; - fix HELP SYSLIB DAT
>; - fix $CDDMG example
>; [1,2]VCP.HLP
>; - fix file name for HELP VCP CONNECT TAPE
>;
>* Patch HELP files? [Y/N]: Y
>SET /UIC=[1,2]
>LBR EXECUTIVE.SLP=DU2:[200,200]PATCHMP46.CLB/EX:EXECUT
>SLP @EXECUTIVE.SLP
>PIP EXECUTIVE.SLP;/DE
>LBR MCRTAS.SLP=DU2:[200,200]PATCHMP46.CLB/EX:MCRTAS
>SLP @MCRTAS.SLP
>PIP MCRTAS.SLP;/DE
>LBR SYSLIB.SLP=DU2:[200,200]PATCHMP46.CLB/EX:SYSLIB
>SLP @SYSLIB.SLP
>PIP SYSLIB.SLP;/DE
>LBR VCP.SLP=DU2:[200,200]PATCHMP46.CLB/EX:VCP
>SLP @VCP.SLP
>PIP VCP.SLP;/DE
>* Fix MCR commands? [Y/N]:
>;
>; The following files will be patched:
>; [12,10]CLIOV.MAC
>; - make /LOG switch work
>; [12,10]DEVOV.MAC
>; - fix date formatting for DEV /LOG
>;
>* Fix MCR commands? [Y/N]: Y
>SET /UIC=[12,10]
>LBR CLIOV.SLP=DU2:[200,200]PATCHMP46.CLB/EX:CLIOV
>SLP @CLIOV.SLP
>PIP CLIOV.SLP;/DE
>LBR DEVOV.SLP=DU2:[200,200]PATCHMP46.CLB/EX:DEVOV
>SLP @DEVOV.SLP
>PIP DEVOV.SLP;/DE
>SET /UIC=[1,24]
>MAC CLIOV=[2,54]RSXMC/PA:1,[1,1]EXEMC/ML,[12,10]CLIOV
>MAC DEVOV=[2,54]RSXMC/PA:1,[1,1]EXEMC/ML,[12,10]DEVOV
>LBR MCR/RP/-EP=CLIOV,DEVOV
Module "CLIOV " replaced
Module "DEVOV " replaced
>PIP CLIOV.OBJ;,DEVOV.OBJ;/DE
>* Fix utilities? [Y/N]:
>;
>; The following files will be patched:
>; [14,10]V52MDM.MAC
>; - fix display the number of free blocks on large disks on VT52
>; [200,200]SYSGEN.CLB/LB:SGNEXC
>; - fix generation of system without I&D space
>;
>* Fix utilities? [Y/N]: Y
>SET /UIC=[14,10]
>LBR V52MDM.SLP=DU2:[200,200]PATCHMP46.CLB/EX:V52MDM
>SLP @V52MDM.SLP
>PIP V52MDM.SLP;/DE
>SET /UIC=[1,24]
>MAC V52MDM=[14,10]RMDMAC/PA:1,V52MDM
>LBR RMD/RP/-EP=V52MDM
Module "V52MDM" replaced
>PIP V52MDM.OBJ;/DE
>SET /UIC=[200,200]
>LBR SGNEXC=SYSGEN.CLB/EX:SGNEXC
>LBR SGNEXC.SLP=DU2:[200,200]PATCHMP46.CLB/EX:SGNEXC
>SLP @SGNEXC.SLP
>LBR SYSGEN.CLB/RP=SGNEXC.CMD
Module "SGNEXC" replaced
>PIP SGNEXC.CMD;,SGNEXC.CMD;,SGNEXC.SLP;/DE
>* Prevent UIC groups 340-377 from changing passwords? [Y/N]:
>;
>; The following files will be patched:
>; [16,10]PSW.MAC
>; - prevent groups 340-377 from changing passwords
>;
>* Prevent UIC groups 340-377 from changing passwords? [Y/N]: Y
>SET /UIC=[16,10]
>LBR PSW.SLP=DU2:[200,200]PATCHMP46.CLB/EX:PSW
>SLP @PSW.SLP
>PIP PSW.SLP;/DE
>SET /UIC=[1,24]
>MAC PSW=[2,54]RSXMC/PA:1,[1,1]EXEMC/ML,[16,10]PSW
>LBR MLTUSR/RP/-EP=PSW
Module "PSW " replaced
>PIP PSW.OBJ;/DE
>* Allocate terminals to themselves by default? [Y/N]:
>;
>; The following files will be patched:
>; [12,10]ALLSUB.MAC
>; - allow to allocate logged on terminal to itself
>; [16,10]BYE.MAC
>; - allocate terminal to itself at logoff
>; [16,10]HELLO1.MAC
>; - allow to log on terminal allocated to itself
>; [12,10]SAVE.MAC
>; - allocate all terminals to themselves on startup
>;
>* Allocate terminals to themselves by default? [Y/N]: Y
>SET /UIC=[12,10]
>LBR ALLSUB.SLP=DU2:[200,200]PATCHMP46.CLB/EX:ALLSUB
>SLP @ALLSUB.SLP
>PIP ALLSUB.SLP;/DE
>LBR SAVE.SLP=DU2:[200,200]PATCHMP46.CLB/EX:SAVE
>SLP @SAVE.SLP
>PIP SAVE.SLP;/DE
>SET /UIC=[16,10]
>LBR BYE.SLP=DU2:[200,200]PATCHMP46.CLB/EX:BYE
>SLP @BYE.SLP
>PIP BYE.SLP;/DE
>LBR HELLO1.SLP=DU2:[200,200]PATCHMP46.CLB/EX:HELLO1
>SLP @HELLO1.SLP
>PIP HELLO1.SLP;/DE
>SET /UIC=[1,24]
>MAC ALLSUB=[2,54]RSXMC/PA:1,[1,1]EXEMC/ML,[12,10]ALLSUB
>LBR MCR/RP/-EP=ALLSUB
Module "ALLSUB" replaced
>PIP ALLSUB.OBJ;/DE
>MAC BYE=[2,54]RSXMC/PA:1,[1,1]EXEMC/ML,[16,10]BYE
>MAC HELLO1=[2,54]RSXMC/PA:1,[1,1]EXEMC/ML,[16,10]HELPRE,HELLO1
>MAC SAVE=[2,54]RSXMC/PA:1,[1,1]EXEMC/ML,[12,10]SAVE
>LBR MLTUSR/RP/-EP=BYE,HELLO1
Module "BYE " replaced
Module "HELLO1" replaced
>LBR SAV/RP/-EP=SAVE
Module "SAVE " replaced
>PIP BYE.OBJ;,HELLO1.OBJ;,SAVE.OBJ;/DE
>SET /UIC=[200,200]
>@ <EOF>
>