;
;
;  filtered.txt
;
;     
;
;
;-------------------------

 filtre0:
    clr REN
;   tmp_rx    N n Y y
  mov a,#'0'
  cjne a,tmp_rx,ktcp1
  sjmp nou
 ktcp1:
  mov a,#'1'
  cjne a,tmp_rx,ktcp3 ;ktcp2
  sjmp yes
 ktcp3:
  mov step_ptr,#low wait_fl0 ;     
  mov step_ptr+1,#high wait_fl0 ;  wait_fl0
 rerts:
  clr EA ; DI
  dec SP
  dec SP
  push step_ptr
  push step_ptr+1
  setb EA ; EI
 ret
;
 nou:
  mov step_ptr,#low soft_reset ;  0   soft_reset
  mov step_ptr+1,#high soft_reset
 sjmp rerts
 yes:
  mov step_ptr,#low go_fl0 ;  1   go_fl0
  mov step_ptr+1,#high go_fl0
 sjmp rerts
;-------------------------

 filtre1:
   clr REN
;   tmp_rx    1  0
  mov a,#'1'
  cjne a,tmp_rx,ktcp2_0
  sjmp vpp_on0
 ktcp2_0:
  mov a,#'0'
  cjne a,tmp_rx,ktcp2_1
  mov step_ptr,#low go_fl1 ;   
  mov step_ptr+1,#high go_fl1 ;  go_fl1
  ajmp rerts
 ktcp2_1:
  mov step_ptr,#low wait_fl1 ;     
  mov step_ptr+1,#high wait_fl1 ;  wait_fl1
  ajmp rerts
 vpp_on0:
  mov step_ptr,#low vpp_on1 ;   vpp_on1
  mov step_ptr+1,#high vpp_on1
  ajmp rerts
;-------------------------

 vpp_on1:
  clr linc_port.Pg_EVpp
  LLPRINT str4 ; +Vpp , for off and exit enter 1
 wt_vppon:
  Rx_BYTE vpp_off ;     
  sjmp wt_vppon
;
 vpp_off:
   clr REN
;   tmp_rx    1
  mov a,#'1'
  cjne a,tmp_rx,vpp_off_1
  setb linc_port.Pg_EVpp
  mov step_ptr,#low go_fl1 ;   go_fl1
  mov step_ptr+1,#high go_fl1
  ajmp rerts
 vpp_off_1:
  mov step_ptr,#low wt_vppon ;     
  mov step_ptr+1,#high wt_vppon ;  wt_vppon
  ajmp rerts

;-------------------------

 filtre2:
   clr REN
  ;   tmp_rx    1
  mov a,#'1'
  cjne a,tmp_rx,ktcp4_0
  mov step_ptr,#low go_fl2 ;   
  mov step_ptr+1,#high go_fl2 ;   go_fl2
  ajmp rerts
 ktcp4_0:
  mov step_ptr,#low wait_fl2 ; 
  mov step_ptr+1,#high wait_fl2 ;   wait_fl2
  ajmp rerts
;-------------------------









;-------------------------