Tutorial de ensamblador

cadena2 DB 2 DUP(0)
VARIABLES ENDS
CODIGO SEGMENT PARA PUBLIC 'code'
main PROC FAR
ASSUME CS:CODIGO,DS:VARIABLES,SS:PILA,ES:VARIABLES
mov ax,VARIABLES
mov ds,ax
mov es,ax
LIMPIAR MACRO
mov ax,0600h
mov bh,127
mov cx,0000h
mov dx,184fh
int 10h
ENDM
GOTOXY MACRO x,y
xor bh,bh
mov dl,x
mov dh,y
mov ah,02h
int 10h
ENDM
IMPRIME MACRO arg1
push ax
push dx
lea dx,arg1
mov ah,9
int 21h
pop dx
pop ax
ENDM
LEE MACRO arg1
push ax
push dx
lea dx,arg1
mov ah,10
int 21h
90