Sorry, I didnt know how to use the Code: boxes but here is the "non-working" code:
Code:
DEFINE OSC 4 'Define for 4MHz crystal
DEFINE LOADER_USED 1 ' Boot loader for ICSP
'
' ***** Configure I/O ************************************************
PORTC = %00000000
TRISC = %00000000
Rel1 var PORTC.0 ' Relay1 Transistor input
Rel2 var PORTC.1 ' Relay2 Transistor input
Rel3 var PORTC.2 ' Relay3 Transistor input
Rel4 var PORTC.3 ' Relay4 Transistor input
'
Startup:
Gosub TestRelay1
END
'
TestRelay1:
High Rel1
Pause 1000
High Rel2
Pause 1000
High Rel3
Pause 1000
High Rel4
Pause 1000
Low Rel1
Pause 1000
Low Rel2
Pause 1000
Low Rel3
Pause 1000
Low Rel4
Pause 1000
End
Bookmarks