[Simh] RSTS/E V9.6 Date Patch

[Robert G. Schaffrath]

Just as an FYI for those running RSTS/E V9.6 or planning to, I created a 
patch several years ago to support Y2K+ dates based on Thord Nilson's 
V9.2 patch.  I am posting it here and it can also be found by doing a 
groups.google.com search for "date96.cmd".

Robert

-- Begin --

! DATE96.CMD - INIT.SYS patch for Y2K. Valid for INIT.SYS
!                    distributed with RSTS/E V9.6-11
!
!       First part is to be able to accept dates after 31-DEC-99,
!       Second part is to be able to print these dates.
!
!       Robert G. Schaffrath 26-MAR-04
!       Based on DATE92.CMD by Thord Nilson 22-MAY-00
!
File to patch?  [0,1]init.sys
Base address? ckdate
Offset address? 160
 Base   Offset  Old     New?
021764  000160  020027  ? 4737          ; jsr pc, @#patch+176
021764  000162  000126  ? patch+176
021764  000164  103667  ? nop
021764  000166  162700  ? ^Z
Offset address? ^Z
Base address? patch
Offset address? 176
 Base   Offset  Old     New?
044050  000176  000000  ? 20027         ; cmp r0,#124
044050  000200  000000  ? 126
044050  000202  000000  ? 103002        ; bhis ok
044050  000204  000000  ? 62700         ; add #100.,r0
044050  000206  000000  ? 144
044050  000210  000000  ? 207           ; ok: rts pc
044050  000212  000000  ? ^Z
Offset address? ^Z
Base address? datini
Offset address? 556
 Base   Offset  Old     New?
020762  000556  020027  ? 4737          ; jsr pc, @#patch+162
020762  000560  000035  ? patch+162
020762  000562  101027  ? nop
020762  000564  062700  ? ^Z
Offset address? ^Z
Base address? patch
Offset address? 162
 Base   Offset  Old     New?
044050  000162  000000  ? 20027         ; cmp r0,#35
044050  000164  000000  ? 35
044050  000166  000000  ? 101402        ; blos ok
044050  000170  000000  ? 162700        ; sub #100.,r0
044050  000172  000000  ? 144
044050  000174  000000  ? 207           ; ok: rts pc
044050  000176  020027  ? ^Z
Offset address? ^Z
Base address? ^Z
File to patch? ^C