;
;          "sninp_m.txt"   
;    -    
;     
;       .
;     
; /.
;
;-------------------------------------------------------------------
;   - 
;     !!! (2K)
            ; (  "" -  
            ;       2
            ;     
            ;      
            ;     (   
            ;    egcprt=0  egsptr=0) )
   .USING 0 ;   "  RB0"
 sn_inp:
     mov dph,stabl+1 ;     ,
     mov dpl,stabl ;    stabl+1:stabl
  step1:    ; tp_snsel0
      jbc trig,tp_snsel1 ;    2    trig
      sjmp step1 ;     0,00025S
  tp_snsel1:
      acall lvk
      mov r7,a ;      (r7)
       jmp @a+DPTR ;     
                 ;   (   stabl_h:stabl_l)
       ;-----------------------------------------------
 step2:     ; tp_snsel2
    mov sensir,a ;     (sensir)   
     acall zvon
       cjne a,sensir,step1 ; falstart
       mov cntsys2,#100
        setb fns ;       
        mov a,sensir ;  
        mov cntsys1,#7 ;      ""
   repitsd:         ;       (fmnk=1)
         jmp @a+DPTR ;     
                 ;   (   stabl_h:stabl_l)
     ;------------------------------------------------------
         ;      " "
  step3:   ;  tp_snsel4
    acall zvon
       setb ACC.6 ;     sensir (fns=1)
      cjne a,sensir,step4 ;       
    ;         
         djnz cntsys1,step3 ;     
         jnb fmnk,step4 ;      tolloff
          mov cntsys1,#2 ;      
          djnz cntsys2,repitsd ;  (fmnk=1)   
          sjmp jmots ;    ""
    jmots:
      setb ersnn
;     ajmp error_snn ;   
     ajmp sn_inp ; 
;------------------------------------------
 step4:   ; tolloff
      mov cntsys1,#2
      acall zvon
			cjne a,#0b00111110,wolof
      ajmp sn_inp ;       
            ;    tbnmh:tbnml    
                        ;    
  wolof:
     djnz cntsys1,wolof
     djnz cntsys2,step4
     sjmp jmots ;  "" 
;------------------------------------------------------------------------
; esmpf -  " - /  
;      (ckleroz)  (0xFF)   
;   (2)
; smpf -     ckleroz
;-------------------------------------------------------------------------
 zvon:
      jbc trig,lvk ; -
       sjmp zvon
 lvk:
    mov a,P2 ;    
     rl a
    anl a,#mask0 ;       
   ret
;-------------------------------------------------------------------------