Zaps to allow Model I LDOS v5.3.1 To Accept Dates after 2012
This patch takes the form of an installer JCL file and six patch files.
These files can either be typed in on a TRS-80 or transferred to a TRS-80 using a null modem cable or other means. If you do type them in, remember that the files are rather long and every byte must be correct for them to work. If you use a null-modem transfer, be aware that the LDOS and LS-DOS patch utilities are quite picky about file contents. They will refuse to install any patch files that had extraneous data added to the end by the transfer process.
After all the files are transferred, installing the patches is as simple as invoking the JCL file. For example, typing DO INSTALL1 will install the Model I patches on drive 0. Rebooting will be necessary to enable the patches after installation.
Note: as with any patch, install on a copy of your operating system disk, never on the original.
INSTALL1/JCL
. Date extension patches for Model I LDOS 5.3.1 . Created by Matthew Reed - www.trs-80.org - 05/24/2011 . These patches extend LDOS 5.3.1 dating to 2079 PATCH SYS3/SYS.RS0LT0FF LD1PAT1 PATCH SYS0/SYS.RS0LT0FF LD1PAT2 PATCH SYS7/SYS.RS0LT0FF LD1PAT3 PATCH SYS6/SYS.RS0LT0FF LD1PAT4 PATCH BACKUP/CMD.UTILITY LD1PAT5 PATCH SYS7/SYS.RS0LT0FF LD1PAT6 . Reboot your Model I to enable the patches.
LD1PAT1/FIX
. Patches to extend LDOS 5.3.1 dating to 2079 . This is #1 of 6 patch files . Store extended date in directory (Model I) . Created by Matthew Reed - www.trs-80.org - 05/24/2011 . PATCH SYS3/SYS.RS0LT0FF LD1PAT1 D00,C7=3A 5D 47 0F 10 FD 38 04 C1 F1 18 32 ED 4B 42 40 F00,C7=3E 3F C6 08 10 FC 32 9D 4E 3A 5D 47 CB 47 20 04 D00,D7=EB 69 29 29 60 29 29 29 EB C1 F1 B7 28 19 FE 50 F00,D7=C1 F1 18 2A 7D C6 11 6F ED 5B 42 40 7A 53 1E 00 D00,E7=30 02 C6 64 D6 50 F5 E6 1F B3 5F F1 07 07 07 E6 F00,E7=06 03 CB 3A CB 1B 10 FA 07 07 07 B2 57 C1 F1 FE D00,F7=07 23 AE EE 04 77 2B 7D C6 11 6F F00,F7=0C 30 02 C6 64 D6 50 E6 1F B3 5F . EOP
LD1PAT2/FIX
. Patches to extend LDOS 5.3.1 dating to 2079 . This is #2 of 6 patch files . Extend startup date and fix day of week (Model I) . Created by Matthew Reed - www.trs-80.org - 05/24/2011 . PATCH SYS0/SYS.RS0LT0FF LD1PAT2 D0D,9B=50 F0D,9B=0C D0D,A3=64 F0D,A3=20 D0E,1E=3F F0E,1E=0F D0E,62=50 F0E,62=0C . EOP
LD1PAT3/FIX
. Patches to extend LDOS 5.3.1 dating to 2079 . This is #3 of 6 patch files . Extend DATE and fix day of week calculation (Model I) . Created by Matthew Reed - www.trs-80.org - 05/24/2011 . PATCH SYS7/SYS.RS0LT0FF LD1PAT3 D03,70=50 F03,70=0C D03,7D=3F F03,7D=0F D02,5E=50 F02,5E=0C D02,66=64 F02,66=20 D03,CF=50 F03,CF=0C . EOP
LD1PAT4/FIX
. Patches to extend LDOS 5.3.1 dating to 2079 . This is #4 of 6 patch files . Extend DIR date filters and display (Model I) . Created by Matthew Reed - www.trs-80.org - 05/24/2011 . PATCH SYS6/SYS.RS0LT0FF LD1PAT4 D09,A5=CD F4 57 E3 CB B5 38 02 CB F5 E3 0E 37 FE 14 38 F09,A5=20 05 7E E6 07 18 16 7D C6 11 6F 7E E6 1F FE 14 D09,B5=04 D6 14 0E 2F D6 0A 0C 30 FB C6 0A 00 F09,B5=38 04 D6 14 0E 30 FE 0A 38 03 0C D6 0A D0A,DA=47 23 7E 0F 0F 0F E6 1F 4F C5 CD F4 57 F0A,DA=1E 00 CB 3F CB 1B 57 23 7E E6 F8 0F B3 D0A,E7=C1 CD 76 5B 50 59 C9 7E E6 07 47 3A AC 56 B7 28 F0A,E7=5F 3A AC 56 B7 20 09 7E E6 07 07 07 07 B2 57 C9 D0A,F7=46 7D C6 F0A,F7=7D C6 11 D0A,FE=11 6F 18 28 F0A,FE=6F 7E E6 1F D0B,0D=13 1A 3D FE 1F 30 05 F0B,0D=1A FE 0C 30 03 C6 64 D0B,14=4F 0C 13 1A 3D D2 2D 5A 47 04 1B 1B 1A D6 50 30 F0B,14=12 EB E6 03 21 77 5B 20 01 34 3A EB 5B 3D FE 0C D0B,24=02 C6 64 C3 76 5B 7E E6 1F 4F 78 A9 E6 07 28 19 F0B,24=30 0B 2B 85 6F 30 01 24 3A EA 5B 3D BE D2 2D 5A D0B,34=F5 3E 96 BE 20 0B 23 3E 42 BE 2B 20 04 F1 78 B7 F0B,34=21 EB 5B 46 0E 00 CB 38 CB 19 2B 7E 2B 07 07 B1 D0B,44=C9 F1 0F 0F 0F B1 FE 64 D8 79 37 C9 F0B,44=4F 7E D6 50 FE 70 38 01 AF 07 07 07 D0D,30=8A F0D,30=82 D0E,80=E5 6F 29 29 29 29 78 B5 6F 29 29 29 29 29 79 B5 F0E,80=1F 1C 1F 1E 1F 1E 1F 1F 1E 1F 1E 1F 49 6E 73 75 D0E,90=4F 44 E1 C9 49 6E 73 75 66 66 69 63 69 65 6E 74 F0E,90=66 66 69 63 69 65 6E 74 20 6D 65 6D 6F 72 79 20 D0E,A0=20 6D 65 6D 6F 72 79 20 74 6F 20 73 6F 72 74 F0E,A0=66 6F 72 20 53 4F 52 54 20 62 75 66 66 65 72 . EOP
LD1PAT5/FIX
. Patches to extend LDOS 5.3.1 dating to 2079 . This is #5 of 6 patch files . Extend BACKUP date filters and display (Model I) . Created by Matthew Reed - www.trs-80.org - 05/24/2011 . PATCH BACKUP/CMD.UTILITY LD1PAT5 D06,B7=13 1A 3D FE 1F 30 05 4F F06,B7=1A FE 0C 30 03 C6 64 12 D06,BF=0C 13 1A 3D 30 38 47 04 1B 1B 1A D6 50 C3 08 6A F06,BF=EB E6 03 21 07 70 20 01 34 3A 5F 52 3D FE 0C 30 D0D,C6=1A B7 28 4E EB F0D,C6=EB 7E B7 28 5F D0D,FD=CD 61 5F 0E 37 FE 14 38 04 D6 14 0E 2F D6 0A 0C F0D,FD=0E 38 3A 5D 47 CB 47 20 05 7E E6 07 18 16 7D C6 D0E,0D=30 FB C6 0A EB 71 23 C6 30 77 23 36 03 18 11 F1 F0E,0D=11 6F 7E E6 1F FE 14 38 04 D6 14 0E 30 FE 0A 38 D0E,1D=0F 0F 0F B1 FE 64 D8 79 37 C9 3E C9 32 98 69 C9 F0E,1D=03 0C D6 0A 47 79 12 13 78 C6 30 12 13 3E 03 12 D10,BB=47 23 7E 0F 0F 0F E6 1F 4F C5 CD 61 5F F10,BB=1E 00 CB 3F CB 1B 57 23 7E E6 F8 0F B3 D10,C8=C1 CD 0C 61 50 59 C9 7E E6 07 47 3E 01 CB 77 CA F10,C8=5F 3A 5D 47 CB 47 20 09 7E E6 07 07 07 07 B2 57 D10,D8=6F 61 7D C6 11 6F 7E C3 56 61 F10,D8=C9 7D C6 11 6F 7E E6 1F 18 F1 D12,7E=30 02 C6 64 E5 6F 29 29 29 29 18 34 F12,7E=1F 1C 1F 1E 1F 1E 1F 1F 1E 1F 1E 1F D05,E0=EE F05,E0=02 D06,CF=01 2C 48 6A F06,CF=2D 2B 85 6F D06,D3=78 B5 6F 29 29 29 29 29 79 B5 4F 44 E1 C9 E6 1F F06,D3=30 01 24 3A 5E 52 3D BE 30 20 21 5F 52 46 0E 00 D06,E3=4F 78 A9 E6 07 CA C2 5C F5 3E 96 BE 20 05 23 3E F06,E3=01 54 00 5D CB 38 CB 19 2B 7E 2B 07 07 B1 4F 7E D06,F3=42 BE 2B C2 BA 5C F1 78 B7 C9 F06,F3=D6 50 FE 70 38 01 AF 07 07 07 D06,FD=01 3A 1A 5D F06,FD=B0 47 EB C9 D13,E4=CD 95 69 F13,E4=32 25 6D D11,F2=2D 20 62 61 63 6B 75 70 20 69 73 20 62 79 70 61 F11,F2=63 61 70 61 63 69 74 79 20 2D 20 62 61 63 6B 75 D12,02=73 73 65 64 0D 32 25 6D 32 66 68 C3 C5 65 F12,02=70 20 69 73 20 62 79 70 61 73 73 65 64 0D . EOP
LD1PAT6/FIX
. Patches to extend LDOS 5.3.1 dating to 2079 . This is #6 of 6 patch files . Extend PURGE date filters and display (Model I) . Created by Matthew Reed - www.trs-80.org - 05/24/2011 . PATCH SYS7/SYS.RS0LT0FF LD1PAT6 D24,F9=96 55 00 00 00 F24,F9=8C 55 32 23 54 D26,D6=CD 8E 55 0E 37 FE 14 38 04 D6 14 0E 2F D6 0A 0C F26,D6=0E 38 3A 5D 47 CB 47 20 05 7E E6 07 18 16 7D C6 D26,E6=30 FB C6 0A EB 71 23 C6 30 77 23 36 03 EB 18 10 F26,E6=11 6F 7E E6 1F FE 14 38 04 D6 14 0E 30 FE 0A 38 D26,F6=29 29 29 29 29 79 B5 4F 44 E1 C9 F26,F6=03 0C D6 0A 47 79 12 13 78 C6 30 D28,37=47 23 7E 0F 0F 0F E6 1F 4F C5 CD 8E 55 F28,37=1E 00 CB 3F CB 1B 57 23 7E E6 F8 0F B3 D28,44=C1 CD A8 56 50 59 C9 7E E6 07 47 3A 5D 47 CB 47 F28,44=5F 3A 5D 47 CB 47 20 09 7E E6 07 07 07 07 B2 57 D28,54=CA 30 56 7D C6 11 6F 18 78 F28,54=C9 7D C6 11 6F 7E E6 1F 18 D28,B9=13 1A 3D FE F28,B9=1A FE 0C 30 D28,C1=1F 30 05 4F F28,C1=03 C6 64 12 D28,C5=0C 13 1A 3D 30 DE 47 04 1B 1B 1A D6 50 30 02 C6 F28,C5=EB E6 03 21 A9 56 20 01 34 3A 17 57 3D FE 0C 30 D28,D5=64 C3 A8 56 7E E6 1F 4F 78 A9 E6 07 28 19 F5 3E F28,D5=D3 2B 85 6F 30 01 24 3A 16 57 3D BE 30 C6 21 17 D28,E5=96 BE 20 0B 23 3E 42 BE 2B 20 04 F1 78 B7 C9 F1 F28,E5=57 46 0E 00 CB 38 CB 19 2B 7E 2B 07 07 B1 4F 7E D28,F5=0F 0F 0F B1 FE 64 D8 79 37 C9 F28,F5=D6 50 FE 70 38 01 AF 07 07 07 D29,69=E5 6F 29 29 29 29 78 B5 6F C3 3D 54 F29,69=1F 1C 1F 1E 1F 1E 1F 1F 1E 1F 1E 1F . EOP