;
;      
;               hard_set8ul.txt
;
;
      ldi tmpd,0x80
      out acsr,tmpd  ;   (sbi acsr,acd)
      ;    , -   
      ;out mcucr,tmpd ;   
      clr zero
      clr mrak
      com mrak
      out portb,zero ;       
      out ddrb,mrak ;     ,   =0
      ldi tmpd,low (RAMEND)
      out spl,tmpd ;   
 ; (    spl  low (RAMEND)    )
      rcall WDT_off ;   WDT
      ldi tmpd,tim_div
      out ocr0a,tmpd ;   
      ldi tmpd,2
      out tccr0a,tmpd ;  0    / 1:N   ocf0a/
      clr tmpd
      sbr tmpd,1<<clkpce
      out clkpr,tmpd
      out clkpr,zero ;    
     in tmp3,timsk
     sbr tmp3,1<<ocie0a ;     (  )
     out timsk,tmp3
     sei ;   
 ;-----------------------------------------------------------------------------
     ldi xl,low (tmp_lev_0)
     ldi xh,high (tmp_lev_0)
     clr tmp3
     st x+,tmp3
     st x+,tmp3
     st x+,tmp3
     st x+,tmp3 ;  4- 
     st x+,tmp3
     st x+,tmp3
     st x+,tmp3
     st x+,tmp3 ;  8- 
     ldi tmp3,1 ; inc tmp0
     st x+,tmp3
     st x+,tmp3
     st x+,tmp3
     st x+,tmp3 ;  4- 
     st x+,tmp3
     st x+,tmp3
     st x+,tmp3
     st x+,tmp3 ;  8- 
     ldi tmp3,low (kanpak0<<1)
     st x+,tmp3
     ldi tmp3,low (kanpak1<<1)
     st x+,tmp3
     ldi tmp3,low (kanpak2<<1)
     st x+,tmp3
     ldi tmp3,low (kanpak3<<1)
     st x+,tmp3 ;  4- 
     ldi tmp3,low (kanpak4<<1)
     st x+,tmp3
     ldi tmp3,low (kanpak5<<1)
     st x+,tmp3
     ldi tmp3,low (kanpak6<<1)
     st x+,tmp3
     ldi tmp3,low (kanpak7<<1)
     st x+,tmp3 ;  8- 
     ldi tmp3,high (kanpak0<<1)
     st x+,tmp3
     ldi tmp3,high (kanpak1<<1)
     st x+,tmp3
     ldi tmp3,high (kanpak2<<1)
     st x+,tmp3
     ldi tmp3,high (kanpak3<<1)
     st x+,tmp3 ;  4- 
     ldi tmp3,high (kanpak4<<1)
     st x+,tmp3
     ldi tmp3,high (kanpak5<<1)
     st x+,tmp3
     ldi tmp3,high (kanpak6<<1)
     st x+,tmp3
     ldi tmp3,high (kanpak7<<1)
     st x+,tmp3 ;  8- 
 ;     -  =0,  1  (0,016S)
 ;    =   kanpak0 - kanpak7  
 ; progpak.txt
 ;-----------------------------------------------------------------------------
init_diskan:
   ldi tmpd,low (start)
   push tmpd
   ldi tmpd,high (start) ;       
   push tmpd
   clr dis_lev_0
   clr dis_lev_1
   clr dis_lev_2
   clr dis_lev_3
   clr dis_lev_4
   clr dis_lev_5
   clr dis_lev_6
   clr dis_lev_7 ;   " "      
  ;      shim_tm1l.txt