;
;
;   
;     listener.txt
;
;
;
;----------------------------------------
;
 init:
;     -
  mov TL0,#250
  mov TH0,#250
  mov TMOD,#2
  setb ET0
;   -
  mov a,#0xff
  mov p0,a
  mov p1,a
  mov p2,a
  mov p3,a
  mov r0,#ramend
  clr a
 cleen:
	mov @r0,a
	djnz r0,cleen
	mov auxr,#(1<<dps) ;  
	      ;  ALE ( MOVX/MOVC )
  mov SP,#steck_start ;   
  mov tik_cnt,#40 ;   
	          ;  
	clr sys_tik
  setb EA
  setb TR0
 sek_time:
  mov r2,#100 ;   1 
 wt_sek:
  jnb sys_tik,wt_sek
  clr sys_tik
  djnz r2,wt_sek

;
 wait_com:
  mov a,txd_port ;    
  jb ACC.bus_clc,wait_com ;  
             ;    bus_clc
  mov dptr,#smart_vectors ;   DPTR
       ;     smart_vectors
;
  acall bspi_rxd ;   
  jnb data_key,wait_com ;   
                ;   - 
  mov a,data_t
  jmp @a+dptr ;     
         ;  - 
         ;  
;
;----------------------------------------
;