;
;
;          "semetr.txt" 
;     
;      
;     : 
;      +/-1 
;
;---------------------------------------------------------------
;                 
; ( ""   "?"   "?   ")
 secmetr:
      ldwi acch,accl,secmetr_fsb
		 movw fsbl,accl
    ldwi acch,accl,secmetr
   movw retterl,accl
  prints str8,frame0 ;   frame0+refram   str8
                  ; '      '
       cbr vars,(1<<fmnk) ; ""   
       ;       /1 !!!
;   /1    OCF1A
      rcall zeroid ;   
      rcall confint2 ;    /
      lo_sbuf sp_buf1 ;     
      rjmp open_cor ; in file "datclock.txt"
;---------------------------------------------------------------
;   ( ""   
;      0(?) frame1   )
 baksp_s:
        lds accl,ts_flags
        sbrc accl,tiksef ;     
         rjmp step4 ;      
       in acch,TIMSK
      cbr acch,(1<<OCIE1A)
     out TIMSK,acch ;   OCF1A 
     cbr vars,(1<<fmnk) ; ""   
   rjmp re_baksp ; in file "datclock.txt"
;---------------------------------------------------------------
;  /
; ( ""   0 (?) frame1   )
;       
;   tiksef    TR2
;       
;     
;
 restart_s:
      lds accl,ts_flags
      sbrc accl,tiksef
      rjmp secstop
      sbr accl,(1<<tiksef)
      sts ts_flags,accl ;     ""
                   ;     OCF1A
      in accl,TCCR1B
      sbr accl,(1<<0)
      out TCCR1B,accl ;   (  )
     rjmp step4 ;      
  secstop:
      in accl,TCCR1B
      cbr accl,(1<<0)
      out TCCR1B,accl ;   (  )
      lds accl,ts_flags
      cbr accl,(1<<tiksef)
      sts ts_flags,accl ; tiksef=0
      rcall print_tms ; (in file "sektim.txt")      
            ;   sektims (  )
     rjmp step4 ;      
;---------------------------------------------------------------
;      =""( downf=0)
;    
;  ="" ( downf=1)
;       
; .  tiksef=0
;   
 resecs:
    lds accl,ts_flags
    sbrc accl,tiksef ;    tiksef=0
    rjmp step4 ;      
 reseter:
     sbrc vars,downf
     rjmp lo_resec
     ldwi yh,yl,bufust
     lds accl,ts_cnts
     st y+,accl
     lds accl,ts_cntm
     st y+,accl
     lds accl,ts_cnth
     st y,accl
  lo_resec:
      cbr vars,(1<<downf) ; downf=0
      rcall zeroid
      rcall confint2
      rcall print_tms ; (in file "sektim.txt")      
            ;   sektims (  )
      rjmp step4 ;      
;---------------------------------------------------------------
 zeroid:
   clr accl
   ldwi yh,yl,ts_cnts
   st y,accl ;   
   std y+2,accl
   std y+4,accl
  ret
;---------------------------------------------------------------
;   /1    OCF1A
;         
;
; /1     
              ;  OCR1AH:OCR1AL
;      "hard_t7d.txt"
 confint2:
     in acch,TIMSK
     cbr acch,(1<<OCIE1A)
     out TIMSK,acch ;   OCF1A 
     clr accl
     out TCNT1H,accl
     out TCNT1L,accl ;   
     lds accl,lot1_2
     sts cnt1_2,accl ;    
		               ;  / 
     in accl,TIFR
     cbr accl,(1<<OCF1A)
     out TIFR,accl ;    OCF1A
     sbr acch,(1<<OCIE1A)
		 out TIMSK,acch ;   OCF1A 
    ret
;---------------------------------------------------------------