;
;
;   utils_mb.txt
;
;
;----------------------------------------------
;
;
;
;----------------------------------------------
;
;  IRQ 
;   intwork_b52m.txt  b52m1
;
;        bottle  mason_2
;     RI   
;    step_ptr+1:step_ptr
;
; trs_ir:
;    jbc TI,step1 ;  TI=0,
;		    ;   
;		    ;    
;    mov tmp_rx,SBUF ;  
;    clr RI ; RI=0
;    mov a,step_ptr
;    push ACC
;    mov a,step_ptr+1 ;    step_ptr
;    push ACC ;   
;   reti ;   
; step1:
;    jb eof_txd,sstep1 ;    
;                ;   
;    acall proc_txd ;   
; sstep1:
;   reti ;     TI
;----------------------------------------------
;
;     
;  "  "
;
;
 wait_s:
  mov a,linc_port;murport
  jb ACC.Com_Key,wait_s
  acall tm_2 ; WAITT 2
  mov a,linc_port;murport
  jb ACC.Com_Key,wait_s
  acall tm_2 ; WAITT 2
 l_wait_s:
  mov a,linc_port;murport
  jnb ACC.Com_Key,l_wait_s
  acall tm_2 ; WAITT 2
  mov a,linc_port;murport
  jnb ACC.Com_Key,l_wait_s
 ret
;
 tm_2:
  WAITT 2
 ret
  
;
;----------------------------------------------
;
;      ASCII
;    ,   R5:R4 -
; ,     R5
; ,     R4
;
;
;
 binascii:
   mov r7,a
   acall tetras
   mov r4,a
   mov a,r7
   swap a
   acall tetras
   mov r5,a
  ret
 tetras:
   anl a,#0b00001111
   inc a
   movc a,@a+PC
  ret
 kodas:
  .db '0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'
;
;----------------------------------------------
;

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