;
;
;          "datclock.txt" 
;     
;      
;     :    
;
;---------------------------------------------------------------
;
;      
;   5
;
 glokdir:
    mov left_bp+1,#high(glokinp)
    mov left_bp,#low(glokinp)
    mov right_bp+1,#high(corekti)
    mov right_bp,#low(corekti)
    mov main_bp+1,#high(glokdir)
    mov main_bp,#low(glokdir)
    mov stabl+1,#high(subrus) ; 
    mov stabl,#low(subrus) ;
    mov target+1,#high(re_newtime) ;     
    mov target,#low(re_newtime) ; 
    mov retter+1,#high(re_baksp) ;      
    mov retter,#low(re_baksp) ;   
    mov prefekt,#(5<<4) ;    0x00-0x0F (  masktbl)
                 ;       
                 ;        masktbl5
    ptints str6,frame0 ;   frame0+refram   str6
                  ; '  : '
    ;
    mov r5,min
    mov a,hors
    lcall binodec
    mov r6,a
    swap a
    anl a,#0x0F
    orl a,#0x30
    xch a,r6 ;        glokdir!!!
    anl a,#0x0F
    orl a,#0x30
    xch a,r5 ;        glokdir!!!
    lcall binodec
    mov r4,a
    swap a
    anl a,#0x0F
    orl a,#0x30
    xch a,r4 ;        glokdir!!!
    anl a,#0x0F
    orl a,#0x30
    mov r3,a ;        glokdir!!!
   lo_sbuf sp_buf0 ;     
    mov bufos_6,r6
    mov bufos_7,r5
    mov bufos_D,r4
    mov bufos_E,r3 ;       
  open_cor:
      lcall pks1  ;    frame1+refram,    kursadr
        ;          !!!
        ;      :
        ; kursadr-(frameN+refram)
      setb ACC.7 ;     "?"
      lcall wrslus ; /  / 
      lcall wait_wrt ; =  0   
      mov a,#0b00001111
      lcall wrslus
      lcall wait_wrt ;   =    
                   ;  
    printb frame1
    clr warom ;      << & >>
    ljmp step4 ;       (tolloff)
             ;        ""
;---------------------------------------------------------------
;
;                     
;                   
;
;        
 re_newtime:
        mov r0,#4 ;    
        mov a,r6
        cjne a,bufos_6,litp0
        dec r0
    litp0:
        mov a,r5
        cjne a,bufos_7,litp1
        dec r0
    litp1:
        mov a,r4
        cjne a,bufos_d,litp2
        dec r0
    litp2:
        mov a,r3
        cjne a,bufos_e,litp3
        dec r0
    litp3:
         mov a,r0 ;     
         jnz lbaks ;       
         ajmp re_baksp ;     
   lbaks:     
      mov a,bufos_6
      anl a,#0x0F
      swap a
      mov r6,a
      mov a,bufos_7
      anl a,#0x0F
      orl a,r6
    mov (mlans+rtc_hours),a ;  -    mlans+rtc_hours
      lcall decobin
      mov bufos_1,a ;      bufos_1
      mov a,bufos_d
      anl a,#0x0F
      swap a
      mov r6,a
      mov a,bufos_e
      anl a,#0x0F
      orl a,r6
    mov (mlans+rtc_min),a ;  -    mlans+rtc_min
      lcall decobin
      mov bufos_0,a ;      bufos_0
  ;       
   clr TR2 ; /2
   push PSW
   setb RS0
   setb RS1 ;  RB3
     .using 3
   mov RCAP2L,r2
   mov TL2,r2 ;  /2
   mov RCAP2H,r3
   mov TH2,r3
   mov too_clk2,#mark_r ;    
   setb TR2 ;  /2
   setb gclkrl ;     
              ;   (gclkrl=1)
   mov r4,#1 ;   r4,r5  r6   (r4=1 +1)
   mov r5,bufos_0 ;     
   mov r6,bufos_1  ;  1      
     .using 0
     pop PSW ;   RB (RB0)
; ----------------------------------------
;    1307   rtce = 1
  jnb rtce,re_baksp ; reclok     RTC
   lcall reclok ; ( in lan_i2c.txt )
; ----------------------------------------
;  ajmp re_baksp ;      
            ;     
;
;---------------------------------------------------------------------
;
;                     
;                  
;
;        
 re_baksp:
        ptints str1,frame0 ;      
  re_baksp2:
       setb warom ;       << & >>
     clr a
       mov DPL,left_bp
      mov DPH,left_bp+1 ;    left_bp+1:left_bp  dptr, =0
     jmp @a+dptr ;   jmp @a+dptr ( = jmp left_bp+1:left_bp)
;---------------------------------------------------------------------