MOVF PORTB,W ;cojemos el numero introducido en el PORTB
ANDLW B'00001111' ;Hago una AND para coger solo los 4 bits más bajos del PORTB
CALL NUMERO ;Buscamos que numero le corresponde
MOVWF PORTA ;Ponemos en el PORTA lo que hay en W
NUMERO:
ADDWF PCL,F ;Buscamos en la tabla el numero
RETLW 'NUMERO_0' ;Retornamos de subrutina y le devolvemos el NUMERO_0 a W
RETLW 'NUMERO_1' ;...
RETLW 'NUMERO_2' ;... mas de lo mismo
RETLW 'NUMERO_3'
RETLW 'NUMERO_4'
RETLW 'NUMERO_5'
RETLW 'NUMERO_6'
RETLW 'NUMERO_7'
RETLW 'NUMERO_8'
RETLW 'NUMERO_9'
RETLW 'NUMERO_10'
RETLW 'NUMERO_11'
RETLW 'NUMERO_12'
RETLW 'NUMERO_13'
RETLW 'NUMERO_14'
RETLW 'NUMERO_15'