I HAVE SOME PROBLEM....
I DONT KNOW WHY MY SEVEN SEGMENT COUNT 1,3,5,7,9

MY CODE:

SEROUT:

I VAR BYTE
TRISD = 0
PORTD = 0

LOOP1:
GOSUB SEND
I = I + 1
PAUSE 200
IF I > 9 THEN
I = 0
ENDIF
GOTO LOOP1
SEND :
SEROUT2 PORTD.1,16468,["A",DEC I]
RETURN
END


SERIN:

INCLUDE "modedefs.bas"

PATTERN VAR BYTE
I VAR BYTE
DIGIT VAR BYTE
TRISC = 255
PORTC = 0
TRISB = 0
PORTB = 0

MAIN:
DIGIT = I
GOSUB CONVERT
PORTB = PATTERN

SERIN2 PORTC.3,16468,[WAIT("A"),DEC I]

GOTO MAIN

CONVERT:

LOOKUP DIGIT, [$C0, $F9, $A4, $B0, $99, $92, $82, $F8, $80, $90], Pattern
RETURN

END