!
!       DATE80.CMD - INIT.SYS patch for Y2K. Valid for INIT.SYS
!                    distributed with RSTS/E V8.0-06
!
!       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?
026324	000130	020027	? 4737		; jsr pc, @#patch+534
026324	000132	000114	? patch+534
026324	000134	103720	? nop
026324	000136	162700	? ^Z
Offset address? ^Z
Base address? patch
Offset address? 534
 Base	Offset  Old     New?
043230	000534	000000	? 20027		; cmp r0,#124
043230	000536	000000	? 124
043230	000540	000000	? 103002        ; bhis ok
043230	000542	000000	? 62700         ; add #100.,r0
043230	000544	000000	? 144
043230	000546	000000	? 207           ; ok: rts pc
043230	000550	051522	? ^Z
Offset address? ^Z
Base address? prtdat
Offset address? 20
 Base	Offset  Old     New?
027140	000020	020027	? 4737          ; jsr pc, @#patch+520
027140	000022	000035	? patch+520
027140	000024	101132	? nop
027140	000026	062700	? ^Z
Offset address? ^Z
Base address? patch
Offset address? 520
 Base	Offset  Old     New?
043230	000520	000000	? 20027         ; cmp r0,#35
043230	000522	000000	? 35
043230	000524	000000	? 101402        ; blos ok
043230	000526	000000	? 162700        ; sub #100.,r0
043230	000530	000000	? 144
043230	000532	000000	? 207           ; ok: rts pc
043230	000534	020027	? ^Z
Offset address? ^Z
Base address? ^Z
File to patch? ^C