ONVERSION DE UN NUMERO BCD EN SU RESPECTIVO CODIGO 7 SEG

TITLE:CONVERSION DE UN NUMERO BCD EN SU RESPECTIVO CODIGO 7 SEG

BCD EQU 80H
7SEG EQU 81H
INICIO EQU 0000H

ORG INICIO

CICLO: MOV R0, #BCD
MOV A,@R0
CALL BCD_7SEG
INC R0
MOV @RO,A

BCD_7SEG: MOV DPTR,#TABLA_7S
MOVC A,@A+DPTR
RET

TABLA_7S: DB 3FH,06H,5BH,4FH,66H
DB 6DH,3CH,07H,7FH,67H

END