Перелопатил патчи для TSX-Plus V6.50.
Добавил немного информации, сделал командный файл IND который применяет патчи с проверкой и откатывает изменения назад если что.
Скрытый текст
Код:.AS DA2 DK
.MOU LD1 DA7:TSX65P
.IND LD1:PATCH
;
;TSX-Plus V6.50 patch kit.
;
;Press <ESC><RET> to get more information.
;
* Patch FILTIM.SAV? [Y/N D:Y]: $
;
;FILTIM.SAV incorrectly displays the dates after 1999.
;Answer Y to fix it.
;
* Patch FILTIM.SAV? [Y/N D:Y]:
* Patch SYSMON.SAV? [Y/N D:Y]: $
;
;SYSMON.SAV incorrectly displays the dates after 1999.
;Answer Y to fix it.
;
* Patch SYSMON.SAV? [Y/N D:Y]:
* Disable looking for COM files on DK? [Y/N D:Y]: $
;
;When you type an unrecognized command, TSX-Plus looks for
;a command file on DK: first, and executes it if the file
;exists.
;Answer Y to disable this behaviour.
;
* Disable looking for COM files on DK? [Y/N D:Y]:
* Enable booting of non-RT systems? [Y/N D:Y]: $
;
;TSX-Plus can boot only RT-11 system via BOOT or $STOP command.
;Answer Y if you want to enable booting of other systems.
;
* Enable booting of non-RT systems? [Y/N D:Y]:
;
;Patching FILTIM.SAV...
;
.UNPROTECT FILTIM.SAV
.COPY/PREDELETE FILTIM.SAV FILTIM.OLD
.$@LD1:FILTIM.SIP
.!+
.!THIS PATCH ADDS SUPPORT FOR DATES AFTER 1999 FOR THE FILTIM.SAV
.!FROM TSX-PLUS V6.50.
.!
.!COPY THIS FILE TO TSX-PLUS V6.50 DISTRIBUTION KIT, THEN RUN:
.! .$@FILTIM.SIP
.!-
.R SIPP
*FILTIM.SAV/A/C
Base? 0
Offset? 50
Base Offset Old New?
000000 000050 002440 2522
000000 000052 000000 ^Z
Offset? 2162
Base Offset Old New?
000000 002162 005305 4767
000000 002164 010546 254
000000 002166 012702 ^Z
Offset? 2250
Base Offset Old New?
000000 002250 062705 4767
000000 002252 000110 204
000000 002254 004737 ^Z
Offset? 2442
Base Offset Old New?
000000 002442 000000 42705
000000 002444 000000 177760
000000 002446 000000 5305
000000 002450 000000 11646
000000 002452 000000 10566
000000 002454 000000 2
000000 002456 000000 207
000000 002460 000000 16601
000000 002462 000000 2
000000 002464 000000 6201
000000 002466 000000 301
000000 002470 000000 42701
000000 002472 000000 177637
000000 002474 000000 60501
000000 002476 000000 62701
000000 002500 000000 3664
000000 002502 000000 5000
000000 002504 000000 71027
000000 002506 000000 144
000000 002510 000000 10005
000000 002512 000000 10146
000000 002514 000000 4737
000000 002516 000000 2022
000000 002520 000000 12605
000000 002522 000000 207
000000 002524 000000
Checksum? 30306
*^C
.
;
;Patching SYMAIN.OBJ for SYSMON.SAV...
;
.UNPROTECT SYMAIN.OBJ
.COPY/PREDELETE SYMAIN.OBJ SYMAIN.OLD
.MACRO/OBJECT:PATCH LD1:SYMAIN.PAT
.PAT SYMAIN/C:170502,PATCH SYMAIN
.DELETE PATCH.OBJ
;
;Patching TSX2.OBJ for TSKMON.SAV...
;
.UNPROTECT TSX2.OBJ
.COPY/PREDELETE TSX2.OBJ TSX2.OLD
.MACRO/OBJECT:PATCH LD1:TSKMN1.PAT
.PAT TSX2/C:176612,PATCH TSX2
.DELETE PATCH.OBJ
.MACRO/OBJECT:PATCH LD1:TSKMN3.PAT
.PAT TSX2/C:54550,PATCH TSX2
.DELETE PATCH.OBJ
@ <EOF>
.
[свернуть]
