!
!       DAT807.CMD - INIT.SYS patch for Y2K. Valid for INIT.SYS
!                    distributed with RSTS/E V8.0-07
!
!       First part is to be able to accept dates after 31-dec-99,
!       second part is to be able to print theese dates.
! 
!	/Thord Nilson 22-MAY-00 
! 
File to patch? [0,1]init.sys
Base address? ckdate
Offset address? 130
 Base	Offset  Old     New?
026330	000130	020027	? 4737		; jsr pc, @#patch+544
026330	000132	000114	? patch+544
026330	000134	103720	? nop
026330	000136	162700	? ^Z
Offset address? ^Z
Base address? patch
Offset address? 544
 Base	Offset  Old     New?
043220	000544	000000	? 20027		; cmp r0,#124
043220	000546	000000	? 124
043220	000550	000000	? 103002        ; bhis ok
043220	000552	000000	? 62700         ; add #100.,r0
043220	000554	000000	? 144
043220	000556	000000	? 207           ; ok: rts pc
043220	000560	051522	? ^Z
Offset address? ^Z
Base address? prtdat
Offset address? 20
 Base	Offset  Old     New?
027144	000020	020027	? 4737          ; jsr pc, @#patch+530
027144	000022	000035	? patch+530
027144	000024	101132	? nop
027144	000026	062700	? ^Z
Offset address? ^Z
Base address? patch
Offset address? 530
 Base	Offset  Old     New?
043220	000530	000000	? 20027         ; cmp r0,#35
043220	000532	000000	? 35
043220	000534	000000	? 101402        ; blos ok
043220	000536	000000	? 162700        ; sub #100.,r0
043220	000540	000000	? 144
043220	000542	000000	? 207           ; ok: rts pc
043220	000544	020027	? ^Z
Offset address? ^Z
Base address? ^Z
File to patch? ^C