Code:
DEFINE OSC 20
DEFINE LOADER_USED 1
RCSTA = $90 ' Enable serial port & continuous receive
TXSTA = $20 ' Enable transmit, BRGH = 0
SPBRG = 64 ' 19200 Baud @ 0.16%
SPBRGH = 0
BAUDCON.3 = 1 ' Enable 16 bit baudrate generator
PORTB=0
TRISB=%11110000
i var byte
Temp var byte
Hserout ["***** Waiting PORTB.7 = 0 *****",13,10]
While PORTB.7=1 : wend
hserout ["------------------------Start",13,10]
for i = 0 to 15
PORTB=i
Temp=PORTB
hserout ["PORTB=",bin8 temp,13,10]
next
hserout ["------------------------Stop",13,10]
Spin: goto Spin
if i hold PORTB.7=0
<img src="http://www.picbasic.co.uk/forum/attachment.php?attachmentid=1137&stc=1&d=116117525 3">
Bookmarks