programa con macro

gotoxy macro fila,col ;macro con parametros fila - columna
    mov ah,02h       ;cursor en pantalla
    mov dh,fila      ;x
    mov dl,col       ;y
    mov bh,0h        ;posicion en coordenadas pedidas
    int 10h
endm
pantalla macro que     ;macro pantalla
    mov ah,02h         ;posiciona cursor
    mov dl,que         ;almacena el valor del caracter
    int 21h
endm
imprime macro eztryng       ;macro para imprimir las lineas
    mov dx,offset eztryng   ;coloca el mensaje
    mov ah,9                ;funcion para imprimir el mensaje
    int 21h                 ;int en pantalla
endm
DATOS SEGMENT PARA PUBLIC
    mensaje DB "INGRESE UN CARACTER: ",13,10,"$"     ;lineas de codigo para los mensajes
    mensaje2 DB "INGRESE X del 0 al 9: ",13,10,"$"
    mensaje3 DB "INGRESE Y del 0 al 9: ",13,10,"$"
    caracter DB 40                                     ;variable para el caracter a mostrar
    varx DB ?                                          ;variable de coordenada x
    vary DB ?                                          ;variable de coordenada y
    vtext db 100 dup('$')
DATOS ENDS
CODIGO SEGMENT PARA PUBLIC 'code'
ASSUME CS:CODIGO,DS:DATOS
startup:
    mov ax,DATOS                                       ;referencia al segmento codigo
    mov ds,ax
imprime mensaje  ;macro imprime la variable mensaje                                       ;registro SI en 0
    mov si,00h   ;se limpia el registro
    leer:
        mov ax,0000 ;limpia ax
        mov ah,01h  ;funcion que ingresa el caracter y lo imprime
        int 21h
        mov caracter[si],al  ;caracter dentro del arreglo
        inc si               ;incremento
        cmp al,0dh           ;comparamos AL con el salto de linea
        ja leer              ;repite la funcion leer en caso de no ser igual
        jb leer              ;al dar salto de linea sigue el programa
        mov dx,offset caracter ;funcion imprimir el caracter
        mov ah,0ah           ;imprimir salto de linea
        int 21h
imprime caracter             ;llamamos al macro imprime y le enviamos la variable caracter
imprime mensaje2             ;se llama al macro y se le manda el msj2
        mov ah,01h
        int 21h
        sub al,30h           ;se le resta 30h para convertir en numero
        mov bl,al            ;se pasa a BL
        mov varx,al          ;se guarda en varx
imprime mensaje3
        mov ah,01h
        int 21h
        sub al,30h
        mov bl,al
        mov vary,al
        mov ax,0003h          ;limpia pantalla
        int 10h
gotoxy vary,varx             
    pantalla caracter[0]     ;llama al macro y manda el caracter a la posicion
        mov ah,01h           ;funcion para ingresar un caracter e imprimir en pantalla.
        int 21h
        mov ax,4c00h         ;funcion para terminar el programa.
        int 21h
        
CODIGO ENDS
end startup

Comentarios

Publicar un comentario

Entradas populares de este blog

Ejercicios con funciones emu8086

Imagen
call inicializar call sumaraxbx hlt inicializar: mov ax, 8 mov bx, 9 ret sumaraxbx: add ax, bx ret mov ax, 8 mov bx, 9 add ax, bx hlt mov ax, 203 mov bl, 4 div bl call inicializar call divaxbx hlt inicializar: mov ax, 203 mov bx, 4 ret divaxbx: div bx ret call inicializar call multaxbx hlt inicializar: mov ax, 8 mov bx, 9 ret multaxbx: mul bx ret call inicializar call restaxbx hlt inicializar: mov ax, 10h mov bx, 12h ret restaxbx: sub ax, bx ret mov dl, 5 mov al, 10 mul dl  hlt mov ax, 10h mov bx, 12h sub ax, bx  hlt
Leer más

Uso de INT 21h en ej. Limpiar Pantalla.

Imagen
FIN EQU 4C00H DOS EQU 21H MONITOR EQU 10H PILA SEGMENT  STACK     DW 100 DUP('0') PILA ENDS CODIGO SEGMENT    CLS PROC FAR        ASSUME CS:CODIGO, SS:PILA        CALL LIMP_PANT        MOV AX, FIN        INT DOS    CLS ENDP   LIMP_PANT PROC NEAR     MOV AX, 0600H     MOV BH, 71H     MOV CX, 000H     MOV DX, 484FH     INT 10H     RET   LIMP_PANT ENDP CODIGO ENDS END CLS
Leer más

Sintaxis del lenguaje ensamblador

La sintaxis es la siguiente Nombre de la instrucción Operando 1, Operando 2, Operando 3, Operando 4, ... El nombre de la instrucción está formada por 2 o 3 letras, los operandos pueden ser registros, constantes o direcciones de memoria. La cantidad de operandos dependerá de la instrucción. Por ejemplo: MOV AL, [1000] Esta instrucción indica que se copie el valor de la porción de la memoria que esté en la ubicación 1000 (En hexadecimal) a la parte baja del registro AX (AL). Cuando un operando es un valor de una dirección de memoria, ésta dirección se escribe entre corchetes, recordar que el operando 1 es el destino y el operando 2 es el origen. Y cuando es una constante dependerá del ensamblador, en el caso del debug (Un programa que sirve para crear y editar aplicaciones que viene con el DOS) se interpretarán como hexadecimales, en los siguientes ejemplos se interpretará que las constantes son números hexadecimales. También se puede tomar un valor de la memoria apuntado po...
Leer más