Programa 11(16) Imprimir numeros Decimal y Hexadecimal

CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
TAB EQU 09H
BELL EQU 07H

DATOS SEGMENT
    ENCABEZADO  DB 13,10,13,TAB,TAB,"===================================="

DB 13,10,13,TAB,TAB," PROGRAMA QUE IMPRIME VALORES NUMERICOS DEC Y HEXA"
                DB 13,10,13,TAB,TAB,"===================================",13,10,"$"
    VALOR_1     DW 41D,"$"
    VALOR_2     DW 42D,"$"
    VALOR_3     DW 43D,"$"
    VALOR_4     DW 44D,"$"
    VALOR_5     DW 45D,"$"
    VALOR_6     DW 46,"$"
    VALOR_7     DW 47,"$"
    VALOR_8     DW 48,"$"
    VALOR_9     DW 49,"$"
    VALOR_10    DW 50,"$"
    VALOR_11    DW 31H,"$"
    VALOR_12    DW 32H,"$"
    VALOR_13    DW 33H,"$"
    VALOR_14    DW 34H,"$"
    VALOR_15    DW 35H,"$"
    VALOR_16    DW 36H,"$"
    VALOR_17    DW 37H,"$"
    VALOR_18    DW 38H,"$"
    VALOR_19    DW 39H,"$"
    VALOR_20    DW 40H,"$"
DATOS ENDS

PILA SEGMENT STACK
    DB 64 DUP('0')
PILA ENDS

CODIGO SEGMENT
    EJ10 PROC NEAR
    ASSUME CS:CODIGO,DS:DATOS,SS:PILA
   
    MOV AX,DATOS
    MOV DS,AX
   
    LEA DX,ENCABEZADO
    CALL ESCRIBE
   
    LEA DX, VALOR_1
    CALL ESCRIBE
   
    LEA DX, VALOR_2
    CALL ESCRIBE
   
    LEA DX, VALOR_3
    CALL ESCRIBE
   
    LEA DX, VALOR_4
    CALL ESCRIBE
   
    LEA DX, VALOR_5
    CALL ESCRIBE
   
    LEA DX, VALOR_6
    CALL ESCRIBE
   
    LEA DX, VALOR_7
    CALL ESCRIBE
   
    LEA DX, VALOR_8
    CALL ESCRIBE
   
    LEA DX, VALOR_9
    CALL ESCRIBE
   
    LEA DX, VALOR_10
    CALL ESCRIBE
   
    LEA DX, VALOR_11
    CALL ESCRIBE
   
    LEA DX, VALOR_12
    CALL ESCRIBE
   
    LEA DX, VALOR_13
    CALL ESCRIBE
   
    LEA DX, VALOR_14
    CALL ESCRIBE
   
    LEA DX, VALOR_15
    CALL ESCRIBE
   
    LEA DX, VALOR_16
    CALL ESCRIBE
   
    LEA DX, VALOR_17
    CALL ESCRIBE
   
    LEA DX, VALOR_18
    CALL ESCRIBE
   
    LEA DX, VALOR_19
    CALL ESCRIBE
   
    LEA DX, VALOR_20
    CALL ESCRIBE
   
    CALL SALIR
    EJ10 ENDP
   
    ESCRIBE PROC
    MOV AH,9
    INT 21H
    RET
    ESCRIBE ENDP
   
    SALIR PROC NEAR
    MOV AX,FIN
    INT 21H
    RET
    SALIR ENDP
CODIGO ENDS
END EJ10