!
!	DATE92.CMD - INIT.SYS patch for Y2K. Valid for INIT.SYS
!		     distributed with RSTS/E V9.2-10
!
!	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? 132
 Base	Offset  Old     New?
031376	000132	020027	? 4737		; jsr pc, @#patch+176
031376	000134	000124	? patch+176
031376	000136	103711	? nop
031376	000140	162700	? ^Z
Offset address? ^Z
Base address? patch
Offset address? 176
 Base	Offset  Old     New?
050566	000176	000000	? 20027		; cmp r0,#124
050566	000200	000000	? 124
050566	000202	000000	? 103002	; bhis ok
050566	000204	000000	? 62700		; add #100.,r0
050566	000206	000000	? 144
050566	000210	000000	? 207		; ok: rts pc
050566	000212	077777	? ^Z
Offset address? ^Z
Base address? datini
Offset address? 522
 Base	Offset  Old     New?
030432	000522	020027	? 4737		; jsr pc, @#patch+162
030432	000524	000035	? patch+162
030432	000526	101027	? nop
030432	000530	062700	? ^Z
Offset address? ^Z
Base address? patch
Offset address? 162
 Base	Offset  Old     New?
050566	000162	000000	? 20027		; cmp r0,#35
050566	000164	000000	? 35
050566	000166	000000	? 101402	; blos ok
050566	000170	000000	? 162700	; sub #100.,r0
050566	000172	000000	? 144
050566	000174	000000	? 207		; ok: rts pc
050566	000176	020027	? ^Z
Offset address? ^Z
Base address? ^Z
File to patch? ^C