Quote Originally Posted by Darrel Taylor View Post
Pimentel,

You could try something like this ...Assuming you have PBP 2.60
Code:
DEFINE OSC 8

BuffLength   CON 32
Buff         VAR BYTE[BuffLength]
Idx          VAR BYTE
SerPin       VAR PORTC.6

HIGH SerPin
PAUSE 100

Main:
    ARRAYWRITE Buff,["Hello World!",13,10,0]
    GOSUB SendBuff
    PAUSE 1000
GOTO Main

;----------------------------------------------------
SendBuff:
    FOR Idx = 0 TO BuffLength -1
        IF Buff(Idx) = 0 THEN EXIT
        SEROUT2  SerPin,188,[Buff(Idx)]
        PAUSEUS 220
    NEXT Idx
RETURN

Thanks Darrel,

I am using 2.46 version!
I will test it idea today on job. I do not know if go work because I already tested it:
SEROUT2 TX,188,[$00,$50,$42,$01,$0A] 'ex: 14.2500 MHz

and other mode:
SEROUT2 TX,188,[$00]: PAUSEUS 208 '1/4800 ~208us
SEROUT2 TX,188,[$50]:PAUSEUS 208
SEROUT2 TX,188,[$42]:PAUSEUS 208
SEROUT2 TX,188,[$01]:PAUSEUS 208
SEROUT2 TX,188,[$0A]:PAUSEUS 208

but without sucess!

Why do you used a pauseus of 220us?
I used a 4MHz cristal as osc

Thanks again

Pimentel