Will Do. Also updated the program to not need hardware to see...
Code:
ENABLEHSERIAL
sethserial H62500, H8DATABITS,HNOPARITY,H1STOPBITS
b1 var byte
DT var word
ROK var byte
TMRW = 0x80 ; start timer
TCRW = 0x30 ; increment on 8 clocks
Main:
ROK = 0
TCNT = 0 ; clear counter
hserin 50000, MTO1, [b1]
ROK = 1
MTO1:
DT = TCNT
serout s_out, i9600, ["HS ", dec ROK, " ", dec DT, 13]
ROK = 0
TCNT = 0 ; clear counter
hserin2 50000, MTO2, [b1]
ROK = 1
MTO2:
DT = TCNT
serout s_out, i9600, ["HS2 ", dec ROK, " ", dec DT, 13]
pause 500
goto Main
I changed the timeout so it would fit in TimerW counter...
Output was:
Code:
HS 0 52129
HS2 0 2660
HS 0 52129
HS2 0 2661
Will send you simple program in email as well.
Kurt