Nice effort. However there seems to be no inter-digit blanking thereby giving the display a washed out appearance.
I suggest you modify this routine to create the blanking
and remember to turn PORTB back to 0FFH to be able to read your keysCode:DELAY MOVWF PORTB DECFSZ DEL,1 GOTO $-.1 MOVLW 0FFH MOVWF PORTB CALL CLOCK RETURN
Cheers
Jerson
Bookmarks