With all serin/outs at 84 no luck,
but did add fix to display ie.

FOR C = 0 TO 3
READ TRC[C] DIG 0, PORTB
LOOKUP C,[$7F,$BF,$DF,$EF],PORTC 'SET DIGIT
PAUSE f
PORTC = $FF
NEXT C

thanks, still no change