Micro Relatorio 4

#include <xc.inc>

    CONFIG FOSC=HS
    CONFIG WDTE=OFF


    psect   prog,local,delta=2,class=CODE


_org:BSF STATUS, 0x5
    BCF STATUS, 0x6
    CLRF PORTA ;Os pinos da PORTA A devem ser saídas digitais
    CLRF PORTD ;Os pinos da PORTA D devem ser saídas digitais
    BCF STATUS, 0x5
    BCF STATUS, 0x6
    BSF STATUS, 0x4 ;Habilitar o Display 4
    GOTO Inicio
L0: MOVLW 0x00 ; Carregar o reg. W com o valor que resultará em "0" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
L1: MOVLW 0x01 ; Carregar o reg. W com o valor que resultará em "1" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
L2: MOVLW 0x02 ; Carregar o reg. W com o valor que resultará em "2" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
L3: MOVLW 0x03 ; Carregar o reg. W com o valor que resultará em "3" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
L4: MOVLW 0x04 ; Carregar o reg. W com o valor que resultará em "4" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
L5: MOVLW 0x05 ; Carregar o reg. W com o valor que resultará em "5" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
L6: MOVLW 0x06 ; Carregar o reg. W com o valor que resultará em "6" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
L7: MOVLW 0x07 ; Carregar o reg. W com o valor que resultará em "7" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
L8: MOVLW 0x08 ; Carregar o reg. W com o valor que resultará em "8" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
L9: MOVLW 0x09 ; Carregar o reg. W com o valor que resultará em "9" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
L10: MOVLW 0x0A ; Carregar o reg. W com o valor que resultará em "A" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
L11: MOVLW 0x0B ; Carregar o reg. W com o valor que resultará em "B" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
L12: MOVLW 0x0C ; Carregar o reg. W com o valor que resultará em "C" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
L13: MOVLW 0x0D ; Carregar o reg. W com o valor que resultará em "D" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
L14: MOVLW 0x0E ; Carregar o reg. W com o valor que resultará em "E" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
L15: MOVLW 0x0F ; Carregar o reg. W com o valor que resultará em "F" no disp4
    MOVWF TRISD ; Enviar o contéudo de W para o disp4
    GOTO Fim
Inicio: MOVLW 0x0
    XORLW 0x0
    BTFSC STATUS, 0x2
    GOTO Entrada
    GOTO Fim
Entrada:MOVLW 0x02  ; Carregar em W o caractere que você deseja exibir no disp4
    XORLW 0x0
    BTFSC STATUS, 0x2
    GOTO L0
    XORLW 0x1
    BTFSC STATUS, 0x2
    GOTO L1
    XORLW 0x3
    BTFSC STATUS, 0x2
    GOTO L2
    XORLW 0x1
    BTFSC STATUS, 0x2
    GOTO L3
    XORLW 0x7
    BTFSC STATUS, 0x2
    GOTO L4
    XORLW 0x1
    BTFSC STATUS, 0x2
    GOTO L5
    XORLW 0x3
    BTFSC STATUS, 0x2
    GOTO L6
    XORLW 0x1
    BTFSC STATUS, 0x2
    GOTO L7
    XORLW 0xF
    BTFSC STATUS, 0x2
    GOTO L8
    XORLW 0x1
    BTFSC STATUS, 0x2
    GOTO L9
    XORLW 0x3
    BTFSC STATUS, 0x2
    GOTO L10
    XORLW 0x1
    BTFSC STATUS, 0x2
    GOTO L11
    XORLW 0x7
    BTFSC STATUS, 0x2
    GOTO L12
    XORLW 0x1
    BTFSC STATUS, 0x2
    GOTO L13
    XORLW 0x3
    BTFSC STATUS, 0x2
    GOTO L14
    XORLW 0x1
    BTFSC STATUS, 0x2
    GOTO L15
    GOTO Fim
Fim: BCF PCLATH, 0x4
    BCF PCLATH, 0x3
    GOTO _org
END _org