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 HEX 91.3 ;"
DB 13,10,13,TAB,TAB,"==============================================",13,10,"$"
VALOR1 DW 41D,"$"
VALOR2 DW 42D,"$"
VALOR3 DW 43D,"$"
VALOR4 DW 44D,"$"
VALOR5 DW 45D,"$"
VALOR6 DW 46,"$"
VALOR7 DW 47,"$"
VALOR8 DW 48,"$"
VALOR9 DW 49,"$"
VALOR10 DW 50,"$"
VALOR11 DW 31H,"$"
VALOR12 DW 32H,"$"
VALOR13 DW 33H,"$"
VALOR14 DW 34H,"$"
VALOR15 DW 35H,"$"
VALOR16 DW 36H,"$"
VALOR17 DW 37H,"$"
VALOR18 DW 38H,"$"
VALOR19 DW 39H,"$"
VALOR20 DW 40H,"$"
DATOS ENDS
PILA SEGMENT STACK
DB 64 DUP("0")
PILA ENDS
CODIGO SEGMENT
EXA PROC NEAR
ASSUME CS:CODIGO, DS:DATOS, SS:PILA
MOV AX,DATOS
MOV DS,AX
LEA DX,ENCABEZADO
CALL ESCRIBE
LEA DX,VALOR1
CALL ESCRIBE
LEA DX,VALOR2
CALL ESCRIBE
LEA DX,VALOR3
CALL ESCRIBE
LEA DX,VALOR4
CALL ESCRIBE
LEA DX,VALOR5
CALL ESCRIBE
LEA DX,VALOR6
CALL ESCRIBE
LEA DX,VALOR7
CALL ESCRIBE
LEA DX,VALOR8
CALL ESCRIBE
LEA DX,VALOR9
CALL ESCRIBE
LEA DX,VALOR10
CALL ESCRIBE
LEA DX,VALOR11
CALL ESCRIBE
LEA DX,VALOR12
CALL ESCRIBE
LEA DX,VALOR13
CALL ESCRIBE
LEA DX,VALOR14
CALL ESCRIBE
LEA DX,VALOR15
CALL ESCRIBE
LEA DX,VALOR16
CALL ESCRIBE
LEA DX,VALOR17
CALL ESCRIBE
LEA DX,VALOR18
CALL ESCRIBE
LEA DX,VALOR19
CALL ESCRIBE
LEA DX,VALOR20
CALL ESCRIBE
CALL SALIR
EXA ENDP
ESCRIBE PROC
MOV AH,09
INT 21H
RET
ESCRIBE ENDP
SALIR PROC NEAR
MOV AX,FIN
INT DOS
RET
SALIR ENDP
CODIGO ENDS
END EXA
No hay comentarios:
Publicar un comentario