;
;
;          "kalendar.txt" 
;     
;      
;     :    
;
;---------------------------------------------------------------
;
;      
;   E
;
kedda:
    mov left_bp+1,#high(kaled)
    mov left_bp,#low(kaled)
    mov right_bp+1,#high(glokinp)
    mov right_bp,#low(glokinp)
    mov main_bp+1,#high(kedda)
    mov main_bp,#low(kedda)
    mov stabl+1,#high(subrus) ; 
    mov stabl,#low(subrus) ;
    mov target+1,#high(re_kald) ;     
    mov target,#low(re_kald) ; 
    mov retter+1,#high(re_baksp) ;      
    mov retter,#low(re_baksp) ;   
    mov prefekt,#(0xE<<4) ;    0x00-0x0F (  masktbl)
                 ;       
                 ;        masktbl5
    ptints str18,frame0 ;   frame0+refram   str6
                  ; ' /./'
;     RTC    mlans
    lcall rd_hdr ; in "lan_i2c.txt" ( "" RTC)
   lo_sbuf sp_buf4 ;     
    mov a,(mlans+rtc_day)
    anl a,#0x0F
    orl a,#0x30
    mov bufos_3,a ;   1/7, ...   0.
    mov a,(mlans+rtc_date)
    anl a,#0x0F
    orl a,#0x30
    mov bufos_6,a ;    1/9, ...   0.
    mov a,(mlans+rtc_date)
    swap a
    anl a,#0x0F
    orl a,#0x30
    mov bufos_5,a ;    0/3
    mov a,(mlans+rtc_mons)
    anl a,#0x0F
    orl a,#0x30
    mov bufos_9,a ;    0/9.
    mov a,(mlans+rtc_mons)
    swap a
    anl a,#0x0F
    orl a,#0x30
    mov bufos_8,a ;    0/1
    mov a,(mlans+rtc_year)
    anl a,#0x0F
    orl a,#0x30
    mov bufos_e,a ;    0/9.
    mov a,(mlans+rtc_year)
    swap a
    anl a,#0x0F
    orl a,#0x30
    mov bufos_d,a ;    0/9
;         bufos
   ljmp open_cor
;---------------------------------------------------------------
;
;                     
;                   
;
 re_kald:
     mov a,bufos_3
     anl a,#0x0F
     mov (mlans+rtc_day),a
     mov a,bufos_5
     anl a,#0x0F
     swap a
     mov (mlans+rtc_date),a
     mov a,bufos_6
     anl a,#0x0F
     orl (mlans+rtc_date),a
     mov a,bufos_8
     anl a,#0x0F
     swap a
     mov (mlans+rtc_mons),a
     mov a,bufos_9
     anl a,#0x0F
     orl (mlans+rtc_mons),a
     mov a,bufos_d
     anl a,#0x0F
     swap a
     mov (mlans+rtc_year),a
     mov a,bufos_e
     anl a,#0x0F
     orl (mlans+rtc_year),a
     lcall wre_kald ; in "lan_i2c.txt"
;  ""/    bufos    mlans
;     RTC     mlans
   ljmp re_baksp
;---------------------------------------------------------------------
;
;      = ljmp re_baksp