;
;          "sninp_m.txt"   
;    -    
;     
;       .
;     
; /.
;
;-------------------------------------------------------------------
;   - 
;     !!! (2K)
            ; (  "" -  
            ;       2
            ;     
            ;      
            ;     (   
            ;    egcprt=0  egsptr=0) )
;-------------------------------------------------------------------
;      ( )    
 sn_inp:
       sbrs vars,trig ;    C    trig
       rjmp sn_inp ;     0,04S
       cbr vars,(1<<trig) ; clr trig
 step1:
        in bi_l,PINC ;  
        andi bi_l,mask0 ;   
        rjmp out_stept
  ;-----------------------------------------------
; tp_snsel2     ( )
 step2:
      sbrs vars,trig ;    C    trig
       rjmp step2 ;     0,04S
       cbr vars,(1<<trig) ; clr trig -  
      in accl,PINC ;  
      andi accl,mask0 ;   
      cpse accl,bi_l ;    
      rjmp step1 ;    step1
        sbr bi_l,(1<<5) ;     
        ldi cntxh,45 ;    ""
        rjmp out_stept ;   out_stept
  ;-----------------------------------------------
;      " "
;       tp_snsel4
 step3:
      sbrs vars,trig ;    C    trig
       rjmp step3 ;     0,04S
       cbr vars,(1<<trig) ; clr trig -  
         in accl,PINC ;  
         andi accl,mask0 ;   
         sbr accl,(1<<5) ;     
         cpse accl,bi_l ;    
         rjmp step4 ;       
    ;         
      sbrs vars,fmnk ;      
			rjmp step4 ;      
	sn_mults:
	      sbrs vars,trig ;    C    trig
        rjmp sn_mults ;     0,04S
        cbr vars,(1<<trig) ; clr trig -  
        in accl,PINC ;  
         andi accl,mask0 ;   
         sbr accl,(1<<5) ;     
         cpse accl,bi_l ;    
         rjmp step4 ;       
        dec cntxh
        brne sn_mults
        ldi cntxh,6 ;   
        rjmp out_stept ;    ,   
                     ; 
  ;-----------------------------------------------
;      / -
;          tolloff
 step4:   
      ldi acch,mask0
  step4a:
       sbrs vars,trig ;    C    trig
       rjmp step4a ;     0,04S
       cbr vars,(1<<trig) ; clr trig -  
        in accl,PINC ;  
        and accl,acch
        cpse acch,accl ;      
        rjmp step4a ; ...
      rjmp sn_inp ;  !!!
;-------------------------------------------------------------------------
  out_stept:
        clr bi_h ;  bi_h
        movw zl,fsbl ;     FSB
        adiw zl,tabl_bp ;      
         lsl zl
         rol zh ;    
          lpm butl,z+
          lpm buth,z ;     buth:butl
         movw zl,bi_l
         add zl,butl
         adc zh,buth ;       
        lsl zl
        rol zh ;    
        lpm butl,z+
        lpm buth,z ;       buth:butl
        movw zl,butl ;    Z
        ijmp ;      
             ;   (   tabl_bph:tabl_bpl)
;-------------------------------------------------------------------------