' Test I/O Ports Input and Output
SW1 var PORTB.0
SW2 var PORTB.1
SW3 var PORTB.2
SW4 var PORTB.3
LED1 VAR PORTD.0
LED2 VAR PORTD.1
LED3 VAR PORTD.2
LED4 VAR PORTD.3
i var byte
DEFINE OSC 48
'------- Initial IO Ports -------
TRISB = $FF
TRISD = 0
CMCON = 0
ADCON1 = 7
'------- Main Function -------
main:
LED1 = SW1
LED2 = SW2
LED3 = SW3
LED4 = SW4
goto main
Bookmarks