Перелопатил патчи для 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> .[свернуть]


Ответить с цитированием
Размещение рекламы на форуме способствует его дальнейшему развитию 

