;
;         "hs_pavr.txt"     
;
                    ;   
;   -     =   Z ,
;    (    
;  )
;        " "
;    WDT / BOR  ( )
;
   .org (irq_res+int_vectors_size) ;    
init:
  clr tmp0
  out DDRA,tmp0
  out DDRB,tmp0
  out DDRD,tmp0
  out PORTA,tmp0
  out PORTB,tmp0
  out PORTD,tmp0
  out GPIOR0,tmp0 ;   
 bloc_ptr_clc:
;        cbi PORTD,ptr_clc
        sbi DDRD,ptr_clc ;    
                   ; ZIF 
;
	  ldi tmp0,0x80
    out acsr,tmp0  ;   (sbi acsr,acd)
    out mcucr,tmp0 ;    
     ;    , -   

   ldi tmp0,low(RAMEND)
  out spl,tmp0 ;   
;   rcall WDT_off ;   WDT
;
;
