PC-8001 RTC(Date/TIme) Set Test

PC8001RTC.ASM

;
; PC-8001 DATE/TIME Set Test
; ex. 06/05/04 03:02:01

    org 9000h
;
DATE_TIME_WK    EQU 0EA76h
RTC_CMD_SET     EQU 01675h
RTC_SET         EQU 01663h
GOTO_MON        EQU 05C66h
;
    LD HL,DATE_DATA
    LD DE,DATE_TIME_WK
    LD BC,DATE_LEN
    LDIR
;
    LD A,2
    CALL RTC_CMD_SET
    CALL RTC_SET
    JP GOTO_MON
;
DATE_DATA:
;          sec,min,hour,date,month,year (BCD)
        DB 01h,02h,03h,04h,05h,06h
DATE_LEN    EQU $-DATE_DATA 
;