Софт для ДВК/PDP11

[form]

Перелопатил патчи для 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>

.

[свернуть]