Code:
DEFINe CHAR_PACING 0
define OSC 4
baud con 2
ANSEL = %00000000
counter var word
RX var byte
Main:
pause 10000
serout GPIO.2, baud, [$55]
pause 500
'Displays James Richards! then holds for 2 seconds
serout GPIO.2, baud, [$73, 6, 3, 2, $f8, $00, "James", $00]
pause 100
serout GPIO.2, baud, [$73, 4, 4, 2, $f8, $00, "Richards!", $00]
pause 10000
'Clears screen
serout GPIO.2, baud, [$45]
pause 200
for counter = 0 to 99
serout GPIO.2, baud, [$53, 5, 5, 0, $ff, $ff, 5, 5, #counter, $00]
pause 1000
serout GPIO.2, baud, [$53, 5, 5, 0, $00, $00, 5, 5, #counter, $00]
pause 200
next counter
getack:
serin GPIO.0, baud, [RX]
if (RX = $06) then
RX = 0
return
else
end
endif
Bookmarks