DEFINE OSC 20
DEFINE ADC_BITS 10
DEFINE ADC_SAMPLEUS 25


INCLUDE "MODEDEFS.BAS"
INTCON.7 = 1
MEMCON.7 = 1
PSPCON.4 = 0

TRISD = %11111111

channel var byte
outputAB VAR BIT
ch_onoff VAR BIT
SYSEN VAR BIT

CHANNEL = 0
OUTPUTab = 0
CH_ONOFf = 0
SYSEN = 0

loop:

channel.bit0 = PORTD.0
channel.bit1 = PORTD.1
channel.bit2 = PORTD.2
channel.bit3 = PORTD.3
channel.bit4 = PORTD.4
channel.bit5 = 0
channel.bit6 = 0
channel.bit7 = 0

outputAB = PORTD.5
ch_onoff = PORTD.6
SYSEN = PORTB.7

pause 500

serout PORTB.4,N9600,["Channel = ",#channel,13]
serout PORTB.4,N9600,["Output AB ",#outputAB,13]
serout PORTB.4,N9600,["Channel ON/OFF = ",#ch_onoff,13]
serout PORTB.4,N9600,["SYSEN = ",#SYSEN,13]


goto loop

end