ADCON1 = 000111
TRISA = %111111
TRISB = %00000000
TRISC = %00000000
PORTC = %00000000
PORTB = %00000000
PORTA = %0000000
'***********************************************
#CONFIG
__CONFIG _XT_OSC & _WDT_OFF & _PWRTE_OFF & _BODEN_OFF
#ENDCONFIG
'***********************************************
Symbol PBUP = PORTA.0
SYMBOL PBDN = PORTA.1
symbol MCB = PORTA.2
SYMBOL S1 = PORTA.3
'***************************
SEQ VAR BYTE
LED1 VAR PORTC.0
LED2 VAR PORTC.1
LED3 VAR PORTC.2
LED4 VAR PORTC.3
LED5 VAR PORTC.4
LED6 VAR PORTC.5
LED7 VAR PORTC.6
LED8 VAR PORTC.7
b1 var byte
'********************
SEQ = 0
'CMCON = 7
'ADCON1 = %0
'***************************************




' MCB=1
'LOOP4:
' WHILE(mcb!=0)
' PBUP=0
' PBDN=0
' WEND

'AGAIN:
'IF MCB=0 THEN PORTA=0 : PORTB=0: PORTC=0
'IF MCB=1 THEN PORTA=1 : PORTB=1 : PORTC=1


'GOTO MAINLOOP
'GOTO LOOP4

FOR MCB=0 TO 1 STEP 1
PORTB=0
PORTC=0
MCB=MCB-1
NEXT

FOR MCB= 1 TO 0 STEP -1
PORTB=1
PORTC=1
MCB=MCB+1
NEXT





MAINLOOP:

IF PBUP = 0 THEN GOSUB UPP
IF PBDN = 0 THEN GOSUB DNN
PAUSE 200
GOSUB ACTIONS
GOTO MAINLOOP

'**************************
UPP:
IF SEQ = 9 THEN RRT
SEQ = SEQ + 1
PAUSE 10
GOTO RRT
DNN:
IF SEQ = 0 THEN RRT
SEQ = SEQ -1
PAUSE 20
RRT : RETURN

'****************************************
ACTIONS:
IF seq =0 THEN
LED1=0:LED2=0:LED3=0:LED4=0:LED5=0:LED6=0:LED7=0
PORTB=%01111110
ENDIF


IF SEQ = 1 THEN
LED1 = 1 : LED2 = 0 : LED3 = 0 : LED4 = 0 : LED5 = 0 : LED6 = 0 :
LED7 = 0
PORTB=%00001100
ENDIF


IF SEQ = 2 THEN
LED1 =0 : LED2 = 1 : LED3 = 0 : LED4 = 0 : LED5 = 0 : LED6 = 0 :
LED7 = 0
PORTB=%10110110
ENDIF

IF SEQ = 3 THEN
LED1 = 0 : LED2 = 0 : LED3 = 1 : LED4 = 0 : LED5 = 0 : LED6 = 0 :
LED7 = 0
PORTB=%10011111
ENDIF


IF SEQ = 4 THEN
LED1 = 0 :LED2 = 0 :LED3 = 0 :LED4 = 1 :LED5 = 0 :LED6 = 0 :
LED7 = 0
PORTB=%11001100
ENDIF


IF SEQ = 5 THEN
LED1 = 0 :LED2 = 0 :LED3 = 0 :LED4 = 0 :LED5 = 1 :LED6 = 0 :
LED7 = 0
PORTB=%11011010
ENDIF

IF SEQ = 6 THEN
LED1 = 0 :LED2 = 0 :LED3 = 0 :LED4 = 0 :LED5 = 0 :LED6 = 1 :
LED7 = 0
PORTB=%11111010
ENDIF

IF SEQ = 7 THEN
LED1 = 0 :LED2 = 0 :LED3 = 0 :LED4 = 0 :LED5 = 0 :LED6 = 0 :
LED7 = 1
PORTB=%00001110
ENDIF

IF SEQ = 8 THEN
LED1 = 1 :LED2 = 0 :LED3 = 0 :LED4 = 0 :LED5 = 1 :LED6 = 0 :
LED7 = 1
PORTB=%11111111
ENDIF

IF SEQ = 9 THEN
LED1 = 0:LED2 = 1 :LED3 = 0 :LED4 = 0 :LED5 = 0 :LED6 = 1 :
LED7 = 0
PORTB=%11011110

ENDIF
PAUSE 100
return

HOW TO USE MCB AS ENABLE AS WELL AS DISABLE?