MuestraDigito
movwf Digito ;Carga el valor de W en Dígito
movlw .0 ;Compara con 0
xorwf Digito,W
btfsc STATUS,Z ;Cuenta = 0?
goto Envia0 ;Sí: Envia Dígito
movlw .1 ;No: Compara con 1
xorwf Digito,W
btfsc STATUS,Z ;Cuenta = 1?
goto Envia1 ;Sí: Envia Dígito
movlw .2 ;No: Compara con 2
xorwf Digito,W
btfsc STATUS,Z ;Cuenta = 2?
goto Envia2 ;Sí: Envia Dígito
movlw .3 ;No: Compara con 3
xorwf Digito,W
btfsc STATUS,Z ;Cuenta = 3?
goto Envia3 ;Sí: Envia Dígito
movlw .4 ;No: Compara con 4
xorwf Digito,W
btfsc STATUS,Z ;Cuenta = 4?
goto Envia4 ;Sí: Envia Dígito
movlw .5 ;No: Compara con 5
xorwf Digito,W
btfsc STATUS,Z ;Cuenta = 5?
goto Envia5 ;Sí: Envia Dígito
movlw .6 ;No: Compara con 6
xorwf Digito,W
btfsc STATUS,Z ;Cuenta = 6?
goto Envia6 ;Sí: Envia Dígito
movlw .7 ;No: Compara con 7
xorwf Digito,W
btfsc STATUS,Z ;Cuenta = 7?
goto Envia7 ;Sí: Envia Dígito
movlw .8 ;No: Compara con 8
xorwf Digito,W
btfsc STATUS,Z ;Cuenta = 8?
goto Envia8 ;Sí: Envia Dígito
movlw .9 ;No: Compara con 9
xorwf Digito,W
btfsc STATUS,Z ;Cuenta = 9?
goto Envia9 ;Sí: Envia Dígito
Envia0
movlw b'10000001'
movwf PORTA
return
Envia1
movlw b'11110011'
movwf PORTA
return
Envia2
movlw b'01001001'
movwf PORTA
return
Envia3
movlw b'01100001'
movwf PORTA
return
Envia4
movlw b'00110011'
movwf PORTA
return
Envia5
movlw b'00100101'
movwf PORTA
return
Envia6
movlw b'00000101'
movwf PORTA
return
Envia7
movlw b'11110001'
movwf PORTA
return
Envia8
movlw b'00000001'
movwf PORTA
return
Envia9
movlw b'00100001'
movwf PORTA
return