;
;
;          "kitchen.txt" 
;     
;      
;     :   
;
;
;   " .  " (prefekt,#(8<<4)
;  " :  " (prefekt,#(9<<4)
;   ,   
;    bufust2:bufust0,
;    setibu2:setibu0
;  tionn "  '' " ("  ")
;  talarm "   "
;   = 0xD6
;  "" = 0xED
;---------------------------------------------------------------
;   "  " - " .  "
; ( ""   "?"   '?         ')
 kitchen1:
      ldwi acch,accl,kitchen1_fsb
		 movw fsbl,accl
    ldwi acch,accl,kitchen1
   movw retterl,accl
  prints str9,frame0 ;   frame1+refram   str9
                  ; " .  "
     sbr vars,(1<<fmnk) ; "" 
    lo_sbuf sp_buf2
     ldwi yh,yl,bufust
     ld accl,y+
     sts ts_cnts,accl
     ld accl,y+
     sts ts_cntm,accl
     ld accl,y
     sts ts_cnth,accl ;     
      rcall print_tms ; in file "sektim.txt"
      rjmp open_cor ; in file "datclock.txt"
;---------------------------------------------------------------
;   "  "( ""   
;      0(?) frame1   )
;     bufust2:bufust0  
;
 kit1_cls:
       rjmp re_baksp ; in file "datclock.txt"    
;---------------------------------------------------------------
;   "  " - " :  "
; ( ""   "?"   ' .  ')
;
 kitchen2:
      ldwi acch,accl,kitchen2_fsb
		 movw fsbl,accl
    ldwi acch,accl,kitchen2
   movw retterl,accl
  prints str10,frame0 ;   frame1+refram   str10
                  ; " :  "
     cbr vars,(1<<fmnk) ; ""   
     rcall confint2 ; (in file "semetr.txt")
		              ;    /1
     rcall re_kodes ;      
 hast8:
     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 ;    
     ldi accl,0xD6
     sts bufos_1,accl ;   ""   1 frame1
     rjmp open_cor ; in file "datclock.txt"
;---------------------------------------------------------------
;   "  "
;  ""   
;      0(?) frame1   
;  tionn=1 
;  talarm=1 
;
 u_kits2:
     lds flags,ts_flags
     sbrc flags,tionn ;     
     rjmp step4 ;      
     sbrc flags,talarm ;    talarm=0
     rjmp step4
    prints str9,frame0 ;   frame1+refram   str9
                  ; ' .  '
     rjmp re_baksp2 ; in file "datclock.txt"
;---------------------------------------------------------------
;   / (  TR2)
;  ""   
;      0(?) frame1   
;  tionn=0   
;  tionn=1   
;  talarm=1 
;
 u_kits1:
     lds flags,ts_flags
     sbrc flags,talarm ;    talarm=0
     rjmp step4 ;     ...?
     sbrc flags,tionn
     rjmp kit_off
      sbr flags,(1<<tionn) ; tionn=1
      sts ts_flags,flags
      in accl,TCCR1B
      sbr accl,(1<<0)
      out TCCR1B,accl ;   (  )
      rjmp step4
  kit_off:
       cbr flags,(1<<tionn) ; tionn=0
       sts ts_flags,flags
       in accl,TCCR1B
       cbr accl,(1<<0)
       out TCCR1B,accl ;   (  )
       rjmp step4
;---------------------------------------------------------------
;
 funkit2:
     sbi PORTB,outline ;    
     cbr flags,(1<<talarm)
     sts ts_flags,flags ;   talarm
  funkit3:
      ldwi yh,yl,bufust
      ld accl,y+
      sts ts_cnts,accl
      ld accl,y+
      sts ts_cntm,accl
      ld accl,y
      sts ts_cnth,accl
     rcall print_tms ; in file "sektim.txt"    
    rjmp open_cor ; in file "datclock.txt"    
                 ;    0('?')
;---------------------------------------------------------------
;    1 (/)
;
;  ""     
;    =-,  tionn=1 
;  bufust2:bufust0  setibu2:setibu0   
;
;  ""  +   bufust2:bufust0
;  tionn=1 
; 
;         0,    1
;   bufos_1    
 fnukit:
    lds flags,ts_flags
    sbrc flags,tionn
    rjmp step4
     sbrs vars,downf
     rjmp funkit1
     cbr vars,(1<<downf)
     rjmp funkit2 ;   ""
  funkit1:
     sbrc flags,talarm
     rjmp funkit2 ; /  ""  talarm=1
  ;---------------------------------------------------
  ;           
	;       
  ;    
  ;
     lds tmpl,ts_cnts
     lds tmph,ts_cntm
     lds acch,ts_cnth ;      
     ldwi yh,yl,bufust
 zero_test:
       clr accl
       clt
       cpse tmpl,accl
       set
       cpse tmph,accl
       set
       cpse acch,accl
       set
       brtc funkit2 ;     ""(s=m=h=0)
       clt ;   
 sek_test:
       ld accl,y
       sub accl,tmpl
       brbs SREG_Z,wr_si
       brbc SREG_C,wr_si
        subi accl,-60 ; = adi accl,60
        inc tmph
    wr_si:
         st y+,accl
         sts ts_cnts,accl
     ld accl,y
     sub accl,tmph
     brbs SREG_Z,wr_mi
     brbc SREG_C,wr_mi
     subi accl,-60 ; = adi accl,60
     inc acch
   wr_mi:
       st y+,accl
       sts ts_cntm,accl
      ld accl,y
      sub accl,acch
       st y+,accl
       sts ts_cnth,accl
     rcall print_tms ; in file "sektim.txt"    
      rjmp open_cor ; in file "datclock.txt"
;---------------------------------------------------------------
;
;       
;
 re_kodes:
    ldwi yh,yl,bufos_b
    ld accl,y ;    accl
    ld acch,-y ;    acch
    rcall rekorep
    sts ts_cnts,accl ;    ts_cnts
    ld accl,-y ;   = dec Y
    ld accl,-y ;    accl
    ld acch,-y ;    acch
    rcall rekorep
    sts ts_cntm,accl ;    ts_cntm
    ld accl,-y ;   = dec Y
    ld accl,-y ;    accl
    ld acch,-y ;    acch
    rcall rekorep
    sts ts_cnth,accl ;    ts_cnth
   ret
  rekorep:
    andi accl,0x0F
    andi acch,0x0F
    swap acch
    or accl,acch ;  -  accl
    rcall decobin ;    
   ret
;---------------------------------------------------------------