' 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