List p=16F88
include <p16F88.inc>
__CONFIG _CONFIG1, 0x3FB8
cblock 0x20
count
count1
counta
countb
endc
bsf STATUS, RP0
movlw b'00000000'
movwf TRISB
bcf STATUS, RP0
Start clrf count
Read movf count, w
call Table
movwf PORTB
call Delay
incf count, w
xorlw d'31'
btfsc STATUS, Z
goto Start
incf count, w
goto Read
Table addwf PCL, f
retlw b'11111111'
retlw b'11111111'
retlw b'01111111'
retlw b'10111111'
retlw b'11011111'
retlw b'11101111'
retlw b'11110111'
retlw b'11111011'
retlw b'11111101'
retlw b'11111110'
retlw b'11111101'
retlw b'11111011'
retlw b'11110111'
retlw b'11101111'
retlw b'11011111'
retlw b'10111111'
retlw b'01111110'
retlw b'10111101'
retlw b'11011011'
retlw b'11100111'
retlw b'11100111'
retlw b'11011011'
retlw b'10111101'
retlw b'01111110'
retlw b'10111101'
retlw b'11011011'
retlw b'11100111'
retlw b'11100111'
retlw b'11011011'
retlw b'10111101'
retlw b'01111110'
Delay movlw d'250'
movwf count1
d1 movlw 0xC7
movwf counta
movlw 0x01
movwf countb
Delay_0
decfsz counta, f
goto $+2
decfsz countb, f
goto Delay_0
decfsz count1 ,f
goto d1
retlw 0x00
end