Alright here is an updated code as of 10:12 last night
Code:
'---------- FRONT TWO PICS' CODE
X VAR BYTE
ADCON1 = 7 'sets all as digital
PORTB = 0 'clears port pins
TRISB = 0 'sets as outputs
Main: 'turns each LED on
FOR X = 0 TO 7
HIGH X
PAUSE 200
NEXT X
PAUSE 7000 'waits for sequence to finish
GOTO Off
Off: 'turns each LED off
FOR X = 0 TO 7
LOW X
PAUSE 200
NEXT X
PAUSE 6000
GOTO Main
Code:
'---------- SIDE TWO PICS' CODE
X VAR BYTE
ADCON1 = 7 'sets all as digital
PORTB = 0 'clears all port pins
PORTC = 0
TRISB = 0 'sets all as outputs
TRISC = 0
TRISA.0 = 1 'set as input
Wait: 'wait for high signal
INPUT PORTA.0
IF PORTA.0 = 1 THEN GOTO Main
GOTO Wait
Main: 'turns each LED on
FOR X = 0 TO 15
HIGH X
PAUSE 200
NEXT X
GOTO Wait_Again
Wait_Again: 'waits for low signal
INPUT PORTA.0
IF PORTA.0 = 0 THEN GOTO Off
GOTO Wait_Again
Off: 'turns each LED off
FOR X = 0 to 15
LOW X
PAUSE 200
NEXT X
GOTO Wait 'restarts
Code:
'---------- BACK TWO PICS' CODE
X VAR BYTE
ADCON1 = 7 'sets all as digital
PORTB = 0 'clears all port pins
TRISB = 0 'sets all as outputs
TRISA.0 = 1 'set as input
Wait: 'wait for high signal
INPUT PORTA.0
IF PORTA.0 = 1 THEN GOTO Main
GOTO Wait
Main: 'turns each LED on
FOR X = 0 TO 7
HIGH X
PAUSE 200
NEXT X
GOTO Wait_Again
Wait_Again: 'waits for low signal
INPUT PORTA.0
IF PORTA.0 = 0 THEN GOTO Off
GOTO Wait_Again
Off: 'turns each LED off
FOR X = 0 to 7
LOW X
PAUSE 200
NEXT X
GOTO Wait 'restarts
How does that look? I went and double checked everything so I think it is near completion. Are there any mistakes or better ways to code it?
Bookmarks