INCLUDE "modedefs.bas"
Throttle Var PortA.0
ClutchIn var PortA.1
LineLockIn var PortA.2
'MCLR var PortA.3
'DEBUG var PortA.4
Arming var PortA.5
ClutchOut var PortC.0
LineLockOut var PortC.1
Aux1Out var PortC.2
Aux2Out var PortC.3
Jumper1 var PortC.4
Jumper2 var PortC.5
Marker var bit
Counter var byte
Timer var byte
Option_Reg.7=0 'Pull-Ups Enabled
TRISA=%111111
TRISC=%110000
ANSEL=%00000000 'D/A turned off on all pins
ADCON0.0=0 'ADCON turned off
VRCON.7=0 'VRef Off
'INTCON.7=1
'IOCA.5 = 0
'IOCA.4 = 0
'IOCA.3 = 0
'IOCA.2 = 0
'IOCA.1 = 0
'IOCA.0 = 1 'Throttle Interrupt On
define OSC 4
DEFINE DEBUG_REG PortA
DEFINE DEBUG_BIT 4
DEFINE DEBUG_BAUD 9600
DEFINE DEBUG_MODE 1
loop:
high LineLockOut 'Yellow LED PortC.1
high ClutchOut 'Green LED PortC.0
high Aux1Out 'White LED PortC.2
pause 1000
low LineLockOut 'Yellow LED PortC.1
low ClutchOut 'Green LED PortC.0
low Aux1Out 'White LED PortC.2
pause 1000
goto loop
Bookmarks