;
;
;          "stepcor.txt" 
;     
;      
;     :  
;            
;   6
;
;---------------------------------------------------------------
;  
;
 coropen:
    mov left_bp+1,#high(corekti)
    mov left_bp,#low(corekti)
    mov right_bp+1,#high(stwatch)
    mov right_bp,#low(stwatch)
    mov main_bp+1,#high(coropen)
    mov main_bp,#low(coropen)
    mov stabl+1,#high(subrus) ;      
    mov stabl,#low(subrus) ;       
    mov target+1,#high(re_newcor)
    mov target,#low(re_newcor)
    mov retter+1,#high(cor_baksp)
    mov retter,#low(cor_baksp)
    mov prefekt,#(6<<4) ;    0x00-0x0F (  masktbl)
                 ;       
                 ;        masktbl6
    ptints str7,frame0 ;   frame0+refram   str7
                  ;        '   '
    mov r6,corsek+1
    mov r5,corsek
    mov r0,#bufos_0
    mov r2,#16
    mov a,#0x20
  lcor0:
    mov @r0,a
    inc r0
    djnz r2,lcor0 ;  
    acall derek ;      
            ;   6:7:8:9 
    mov bufos_0,#0x3F ;   '?'   bufos_0
    mov bufos_e,#0x25 ;   '%'   bufos_e
                   ;    = '%'
    ljmp open_cor ; in file "datclock.txt"
;---------------------------------------------------------------
;
;                     
;                   
;
 re_newcor:
     mov r2,#2
     mov a,r5
     cjne a,corsek,rene1
     dec r2
  rene1:
     mov a,r6
     cjne a,corsek+1,rene2
     dec r2
  rene2:
     mov a,r2
     jz cor_baksp ;    ,    cor_baksp
    mov corsek+1,r6
    mov corsek,r5
    setb fnvs ;     
    jnb rtce,cor_baksp
   lcall wr_newcor ;      DS1307
              ;  in lan_i2c.txt
;---------------------------------------------------------------
;
;                     
;                  
;
 cor_baksp:
      ljmp re_baksp ; in file "datclock.txt"
;---------------------------------------------------------------
 derek:
    mov a,r5
    anl a,#0x0f
    lcall binsim
    mov bufos_9,a ;    smarkl  bufos_9
    mov a,r5
    swap a
    anl a,#0x0f
    lcall binsim
    mov bufos_8,a ;    smarkl  bufos_8
    mov a,r6
    anl a,#0x0f
    lcall binsim
    mov bufos_7,a ;    smarkh  bufos_7
    mov a,r6
    swap a
    anl a,#0x0f
    lcall binsim
    mov bufos_6,a ;    smarkl  bufos_6
    ret
;-------------------------------------------------------------
;
;  /   
;
 corsinp:
  jbc downf,cor_dn
   inc r5
   cjne r5,#0,pcr0
    inc r6
  pcr0:
   acall derek
   printb frame1
  ljmp step3
 cor_dn:
  dec r5
   cjne r5,#0xFF,pcr0
    dec r6
   sjmp pcr0