;
;         "hard_t7d.txt" ;   
;
;
 hd_init:
    sbi ACSR,ACD ;    (acsr acd=1)
;    (PUD=0 sfior) -    
; WDT     (   )
;              
    ;        Z- =   
    ;        Z- = 
    ;  D      Z-   
  ser accl
  out PORTC,accl ; ""   // 
  clr accl
	out PORTE,accl ;   PORTE 
	com accl
	out DDRE,accl ; PORTE   ,    0
	sbi PORTB,outline ;   1  outline
	sbi DDRB,outline ;   outline     1
   ldwi acch,accl,ramend
	 out spl,accl
	 out sph,acch;      
 ;           
   ldi accl,mark0
   out OCR0,accl ;  
   ldi accl,1<<WGM01
   out TCCR0,accl ; set mode CTC for T/C0
   ldwi acch,accl,mark1
   out OCR1AH,acch
   out OCR1AL,accl
 ; TCCR1A    ,     
   clr accl
   out TCNT1H,accl
   out TCNT1L,accl
   out TCCR1A,accl
   ldi accl,1<<WGM12
   out TCCR1B,accl ; set mode CTC for T/C1
   ldi accl,(1<<OCIE0 | 1<<OCIE1A)
   out TIMSK,accl ;    
   ;-------------------------------------------------------------------------
;     :
;      CLKio    256   /0   
;       250,      (cnt0_2)   5
;           cnt0_3   25
;      CLKio=0,000000125,   OCR0IF=0,008,  cnt0_2=0,04
;            cnt0_2=1
;    /  :
;      CLKio    /1   
;       50000,      (cnt1_2)   160
;      CLKio=0,000000125,   OCR1IF=0,00625,  cnt0_2=1
	 ;-------------------------------------------------------------------------
   ;        
   ;   
   ldwi xh,xl,lot0_2
   clr acch
   ldi accl,5
   st x+,accl ; lot0_2=5
   st x+,accl ; cnt0_2=5
   ldi accl,25
   st x+,accl ; lot0_3=25
   st x+,accl ; cnt0_3=25
   ldi tmpl,(1<<egcprt | 1<<egsptr) ;   
   st x+,tmpl ;     
   ldi accl,mask60
   st x+,accl ; max_sg=60
   st x+,acch ; second=0
   st x+,accl ; max_mg=60
   st x+,acch ; minuts=0
   ldi tmpl,mask24
   st x+,tmpl ; max_hg=24
   st x+,acch ; hours=0
   ldi tmpl,wh_secp
   st x+,tmpl ; asgclk=0x4B     " "
   ldi tmpl,160
   st x+,tmpl ; lot1_2=160
   st x+,tmpl ; cnt1_2=160
   st x+,acch ; ts_flags=0
   st x+,accl ; max_sts=60
   st x+,acch ; ts_cnts=0
   st x+,accl ; max_mts=60
   st x+,acch ; ts_cntm=0
   ldi tmpl,mask100
   st x+,tmpl ; max_hts=100
   st x+,acch ; ts_cnth=0
   ldi accl,255
  loopc:
   st x+,acch ; ram=0
   dec accl
   brne loopc ;    255  
   ldi accl,10
   ldi acch,30
   sts bodun1,accl
   sts bodun2,acch
;-----------------------------------------------------------------------
;           
  b_pause 250 ;  ~15 mS
   ldi accl,0b00111000 ; 
   rcall wr_wus
  b_pause 50 ;  ~4 mS
   ldi accl,0b00111000 ;  
   rcall wr_wus
  pause 250 ;  ~40 uS
   ldi accl,0b00001000 ;   " "
   rcall wr_wus
  pause 250 ;  ~40 uS
   ldi accl,1 ;  " "
   rcall wr_wus
  b_pause 30 ;  ~2 mS
   ldi accl,0b00000110 ;   " /  "
   rcall wr_wus
  pause 250 ;  ~40 uS
   ldi accl,0b00111000 ;  "8- ,  5*8 "
   rcall wr_wus
   rcall wait_wrt
  ;  -  
  ; " == "
    prints str0,frame0
     ldi accl,0b00001100 ;  " , ,"
     rcall wr_wus
     rcall wait_wrt
   ;-------------------------------------------------------------------
    ldwi zh,zl,wait_fsb
    movw fsbl,zl ;    FSB "" (wait_fsb)
    ldwi acch,accl,stwatch ;    begusta = stwatch
    movw retterl,accl
    sbr vars,fmnk ;    
             ;   
     in accl,SFIOR
		 sbr accl,(1<<PSR10)
		 out SFIOR,accl ;   /0
      in accl,TCCR0
      sbr accl,(1<<CS02) ;     256
      out TCCR0,accl ;  /0
    sei
   ;   /    
   rjmp sn_inp ;   