rtc_status_c equ #0c ;Status C
rtc_memtest equ #0f ;ram test
rtc_mil equ #32 ;millenium millennium (19-20)
timadr db rtc_status_b,rtc_sec,rtc_hour,rtc_min,rtc_month,rtc_day,rtc_year,rtc_mil,rtc_status_b
add hl,bc
ld a,19
timset2 ld h,a ;L=year, H=milleniummillennium
ld (timreg+5),hl
ld bc,timrtcadr