You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
649 B
35 lines
649 B
15 years ago
|
#include <basic\PIC16F877.bas>
|
||
|
|
'
|
||
|
|
' Basic sample for BoostBasic compiler.
|
||
|
|
' Use the "Led Block" plugin to see
|
||
|
|
' changing value on port B.
|
||
|
|
'
|
||
|
|
|
||
|
|
' Set configuration word (sample only, ajust for your particular case)
|
||
|
|
#pragma DATA _CONFIG, _HS_OSC & _WDT_OFF
|
||
|
|
|
||
|
|
Sub interrupt()
|
||
|
|
|
||
|
|
portb = portb + 1
|
||
|
|
|
||
|
|
intcon = intcon & ~(1 << T0IF) 'clear TMR0 overflow flag
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Sub main()
|
||
|
|
|
||
|
|
trisb = 0 'configure port B
|
||
|
|
portb = 0 'clear port B
|
||
|
|
|
||
|
|
option_reg = 7 'set prescaler
|
||
|
|
|
||
|
|
' enable interrupts
|
||
|
|
intcon = intcon | (1 << T0IE) 'enable TMR0 overflow bit
|
||
|
|
intcon = intcon | (1 << GIE) 'set global interrupt bit
|
||
|
|
|
||
|
|
' endless loop
|
||
|
|
Do while 1
|
||
|
|
Loop
|
||
|
|
|
||
|
|
End Sub
|