;
;         "libr_t7d.txt" ;     
;
;-------------------------------------------------------------------------
;      0,000032S (max~32uS)
;      cntxl   (1-255)
;   ~ cntxl*2*0,000000125
;
 paus:
   dec cntxl
   brne paus
  ret
;-------------------------------------------------------------------------
;      0,0162S (max~16mS)
;      cntxl   (1-255)
;   ~ cntxl*2*0,000000125
;
 b_paus:
   dec accl
   brne b_paus
   dec cntxl
   brne b_paus
  ret
;-------------------------------------------------------------------------
 l40:
     push yl
     push yh
     ldi cntxl,16
		 ldwi yh,yl,bufos_0
	l40_1:
	   lpm accl,z+
	   st y+,accl
	   dec cntxl
	   brne l40_1
     pop yh
     pop yl
	ret
;-------------------------------------------------------------------------
;           
 outru:
     sbrc vars,bodsf ;     bodsf
     rjmp step4 ;     
     in accl,PORTB
     ror accl
     rol acch
     com acch
     ror acch
     rol accl ;   PORTB.0
     out PORTB,accl ;     
     rjmp step4 ;     
;-------------------------------------------------------------------------