Code: Select all
program subtest
'P16f18313
dim testData as byte
' Declarations section
sub procedure test1 (dim test1Data as byte)
PORTA = test1Data 'Just dummy codes
end sub
sub procedure test2 (dim test2Data as byte)
test1(test2Data)
end sub
sub procedure interrupt
test1(testData)
end sub
main:
' Main program
testData = PORTA
clearbit(INTCON,GIE) 'Disable interrupt
test1(testData)
clearbit(PIR0,INTF)
setbit(INTCON,GIE) 'Enable interrupt
setbit(PIE0,IOCIE)
while TRUE
sleep
nop
nop
wend
end.