DISPLAY

LIST p=16F84
radix hex

#include "P16F84.INC"

;LIST C=132


#define banco1 bsf 0x03,5
#define banco0 bcf 0x03,5

;include

w equ 0
f equ 1
pc equ 0x02
tm0 equ 0x1
status equ 0x03
opcion equ 0x01
porta equ 0x05
portb equ 0x06
trisa equ 0x5
trisb equ 0x6
cont1 equ 0x0c
cont2 equ 0x0d
cuenta equ 0x0e

org 0
goto reset
org 5

reset banco1
clrf trisb
movlw 0x1f
movwf trisa
movlw 0xef
movwf opcion
banco0
clrf portb

princi clrf tm0

salto movf tm0,w
call tabla_1
movwf portb
;movlw 0x0a
;xorwf tm0,w
;btfss status,2
goto salto
;goto princi

tabla_1
addwf pc,f
retlw b'00000000';0
retlw b'00000001'
retlw b'00000010'
retlw b'00000011'
retlw b'00000100'
retlw b'00000101'
retlw b'00000110'
retlw b'00000111'
retlw b'00001000'
retlw b'00001001'
retlw b'00010000';10
retlw b'00010001'
retlw b'00010010'
retlw b'00010011'
retlw b'00010100'
retlw b'00010101'
retlw b'00010110'
retlw b'00010111'
retlw b'00011000'
retlw b'00011001'
retlw b'00100000';20
retlw b'00100001'
retlw b'00100010'
retlw b'00100011'
retlw b'00100100'
retlw b'00100101'
retlw b'00100110'
retlw b'00100111'
retlw b'00101000'
retlw b'00101001'
retlw b'00110000';30
retlw b'00110001'
retlw b'00110010'
retlw b'00110011'
retlw b'00110100'
retlw b'00110101'
retlw b'00110110'
retlw b'00110111'
retlw b'00111000'
retlw b'00111001'
retlw b'01000000';40
retlw b'01000001'
retlw b'01000010'
retlw b'01000011'
retlw b'01000100'
retlw b'01000101'
retlw b'01000110'
retlw b'01000111'
retlw b'01001000'
retlw b'01001001'
retlw b'01010000';50
retlw b'01010001'
retlw b'01010010'
retlw b'01010011'
retlw b'01010100'
retlw b'01010101'
retlw b'01010110'
retlw b'01010111'
retlw b'01011000'
retlw b'01011001'
retlw b'01100000';60
retlw b'01100001'
retlw b'01100010'
retlw b'01100011'
retlw b'01100100'
retlw b'01100101'
retlw b'01100110'
retlw b'01100111'
retlw b'01101000'
retlw b'01101001'
retlw b'01110000';70
retlw b'01110001'
retlw b'01110010'
retlw b'01110011'
retlw b'01110100'
retlw b'01110101'
retlw b'01110110'
retlw b'01110111'
retlw b'01111000'
retlw b'01111001'
retlw b'10000000';80
retlw b'10000001'
retlw b'10000010'
retlw b'10000011'
retlw b'10000100'
retlw b'10000101'
retlw b'10000110'
retlw b'10000111'
retlw b'10001000'
retlw b'10001001'
retlw b'10010000';90
retlw b'10010001'
retlw b'10010010'
retlw b'10010011'
retlw b'10010100'
retlw b'10010101'
retlw b'10010110'
retlw b'10010111'
retlw b'10011000'
retlw b'10011001'

end