Shiftout
leshea2
Posts: 83
Would this command work ?
' {$STAMP BS2sx}
' {$PBASIC 2.5}
AIB· DATA "Hello World", 0
KIB· VAR· Word
LIB· VAR· Byte
Main:
KIB = AIB
GOSUB Send_Msg
END
Send_Msg:
DO
READ KIB, LIB
LIB = LIB + 1
IF (LIB = 0) THEN EXIT
SHIFTOUT 3, 4, MSBFIRST, [noparse][[/noparse]LIB]····· ' send byte to device
LOOP
HIGH 3
PAUSE 1000
LOW 3
PAUSE 1000
RETURN
END
or
This one ?
' {$STAMP BS2sx}
' {$PBASIC 2.5}
AIB· DATA "Hello World", 0
Main:
SHIFTOUT 3, 4, MSBFIRST, [noparse][[/noparse]AIB]····· ' send byte to device
END
Thanks !
·
' {$STAMP BS2sx}
' {$PBASIC 2.5}
AIB· DATA "Hello World", 0
KIB· VAR· Word
LIB· VAR· Byte
Main:
KIB = AIB
GOSUB Send_Msg
END
Send_Msg:
DO
READ KIB, LIB
LIB = LIB + 1
IF (LIB = 0) THEN EXIT
SHIFTOUT 3, 4, MSBFIRST, [noparse][[/noparse]LIB]····· ' send byte to device
LOOP
HIGH 3
PAUSE 1000
LOW 3
PAUSE 1000
RETURN
END
or
This one ?
' {$STAMP BS2sx}
' {$PBASIC 2.5}
AIB· DATA "Hello World", 0
Main:
SHIFTOUT 3, 4, MSBFIRST, [noparse][[/noparse]AIB]····· ' send byte to device
END
Thanks !
·
Comments
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Jon Williams
Applications Engineer, Parallax
Thanks !
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Jon Williams
Applications Engineer, Parallax