gluk_RTC

    PUBLIC get_fattime
minmes:
    ld d,a
    xor a
    srl d
    rr a
    srl d
    rr a
    srl d
    rr a
    add a,l     //add a,(hl)
    ld l,a      //ld (hl),a
    //inc hl
    ld h,d      //ld (hl),d
    ret
bcd2bin:
    ld b,0xde
    out (c),a
    ld b,0xbe
    in a,(c)
    ret

get_fattime:
    push de
    ld a,0x0b
    ld bc,0xdef7
    out (c),a
    ld b,0xbe
    in a,(c)
    or 0x04
    out (c),a
    xor a       //sec
    call bcd2bin
    srl a
    ld l,a      //ld (hl),a

    ld a,2      //min
    call bcd2bin
    call minmes

    ld a,4      //h
    call bcd2bin
    sla a
    sla a
    sla a
    add a,h     //add a,(hl)
    ld h,a      //ld (hl),a

    ld a,7      //day
    call bcd2bin
    push hl//inc hl
    ld l,a      //ld (hl),a

    ld a,8      //mes
    call bcd2bin
    call minmes

    ld a,9      //god
    call bcd2bin
    add a,20
    sla a
    add a,h     //add a,(hl)
    ld h,a      //ld (hl),a
    push hl
    pop bc
    pop hl
    pop de
    ret