'LED matrix psuedocode
DEFINE OSC 20

R VAR BYTE
C VAR BYTE
Cn VAR BYTE[5]
Ron VAR BYTE[7]

'D is for Columns
	TRISC = %11100000
	PORTC = 255
'C is for Rows
	TRISD = %10000000
	PORTD = 255

Cn[0] = %00000001
Cn[1] = %00000010
Cn[2] = %00000100
Cn[3] = %00001000
Cn[4] = %00010000

Ron[0] = %11111110
Ron[1] = %11111101
Ron[2] = %11111011
Ron[3] = %11110111
Ron[4] = %11101111
Ron[5] = %11011111
Ron[6] = %10111111


main:
	FOR R = 0 TO 6
		FOR C = 0 TO 4
    			'Display Element (R,C)
    				portC = Cn[C]
				    portD = Ron[R]
   				PAUSE 500
		NEXT
	NEXT
     
GOTO main