!!
!! Message-ID: <4064EEA4.5615@yahoo.com>
!! From: "Roßert G. Schaffrath" <rschaffrath@yahoo.com>
!! Organization: Total Disorganized
!! X-Mailer: Mozilla 3.04 (Win95; I)
!! MIME-Version: 1.0
!! Newsgroups: comp.os.rsts
!! Subject: RSTS/E V9.6 Date Patch
!! Content-Type: text/plain; charset=us-ascii
!! Content-Transfer-Encoding: 7bit
!! Lines: 56
!! Date: Sat, 27 Mar 2004 03:01:59 GMT
!! NNTP-Posting-Host: 24.46.12.197
!! X-Complaints-To: abuse@cv.net
!! X-Trace: news4.srv.hcvlny.cv.net 1080356519 24.46.12.197 (Fri, 26 Mar 2004 22:01:59 EST)
!! NNTP-Posting-Date: Fri, 26 Mar 2004 22:01:59 EST
!! 
!! 
!! I have been looking a for a Y2K patch for RSTS/E V9.6 that worked the
!! same way DATE92.CMD did for V9.2.  Since I had no luck, I came up with
!! the following patch based on the DATE92.CMD.  The major differences are
!! the base and offset addresses.  Unfortunately, DCL will not accept a Y2K
!! date with the "SET DATE" command:
! 
! 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