'
1)Loading and running this short program indicates that OUT() doesn't work UNTIL IO() has run !!!
Code: Select all
dim x, p
'
'' I/O RUNS thru (28)
'These are the AD0 - AD7 (add/data) pins
OUTPUT(16) 'GREEN LED
OUTPUT(17) 'BLUE LED
'
Main:
'
PRINT "TESTING pins with OUT() command"
for x =5 downto p
OUT(16)= 1 'GREEN LED
OUT(17)=1 'BLUE LED
wait(400)
OUT(16)= 0 'GREEN LED
OUT(17)=0 'BLUE LED
wait(400)
print x
next
'
print "alternate flashing with IO() command"
p = 0
for x =5 downto p
IO(16)= 1 'GREEN LED
IO(17)=1 'BLUE LED
wait(400)
IO(16)= 0 'GREEN LED
IO(17)=0 'BLUE LED
wait(400)
print x
next
'
PRINT "TESTING pins with OUT() command after IO()command"
for x =5 downto p
OUT(16)= 1 'GREEN LED
OUT(17)=1 'BLUE LED
wait(400)
OUT(16)= 0 'GREEN LED
OUT(17)=0 'BLUE LED
wait(400)
print x
next
end