Maybe something like this? Not very swanky, but should work.

Code:
 
LED VAR WORD
 
Main:
LED = %XXXXX111111111 'ALL LEDS ON 
GOSUB LED_OUT
LED = %XXXXX000000000 'ALL LEDS OFF
GOSUB LED_OUT
 
Goto Main
 
LED_OUT:
PORTC.6 = LED.0
PORTB.6 = LED.1
PORTB.5 = LED.2
PORTB.4 = LED.3
PORTC.2 = LED.4
PORTC.1 = LED.5
PORTC.0 = LED.6
PORTA.2 = LED.7
PORTA.1 = LED.8
RETURN