xch	a, pulse_l		; save A
	clr	a
	xch	a, th0			; read and clear  TH=01 TL=ff
	mov	period_l, a
	clr	a
	xch	a, tl0			; read and clear 01
	xch	a, pulse_l