Decodificador 4 bits a hexadecimal display 7 segmentos

;Programa que muestra un numero de 4 bits en
;un display en hexadecimal
.include “m16def.inc”
.def rat = r16
.org 0×00
;Definimos entradas y Salidas
ldi rat,0×00
out ddra,rat
ldi rat,0×7f
out ddrb,rat
;Inicio
main:
ldi zl,low(tabla<<1 br="">ldi zh,high(tabla<<1 br="">in rat,pina
andi rat,0×0f
add zl,rat
clr rat
adc zh,rat
lpm rat,z
out portb,rat
rjmp main
tabla:; display anodo común
.dw 0×7940;1,0
.dw 0×3024;3,2
.dw 0×1219;5,4
.dw 0×7802;7,6
.dw 0×1000;9,8
.dw 0×0308;b,a
.dw 0×2146;d,c
.dw 0×0e06;f,e