Lenguajes de bajo nivel macros
Enviado por Luis Quiroz • 2 de Mayo de 2018 • Práctica o problema • 664 Palabras (3 Páginas) • 502 Visitas
cuadros macro color,x,y
mov ah,06
mov bh,color
mov cx,x
mov dx,y
int 10h
endm
curs macro c,x,y
mov ah,02
mov bh,c
mov dh,x ;fila
mov dl,y ;columna
int 10h
endm
ingresa macro p
mov ah, 01
int 21h
endm
lad1 macro p
mov ah, 01
int 21h
endm
lad2 macro p
mov ah, 01
int 21h
endm
lad3 macro p
mov ah, 01
int 21h
endm
lad4 macro p
mov ah, 01
int 21h
endm
posi macro a
mov ah,02
mov bh,0
mov dx,0
int 10h
endm
impri macro var
mov ah,02
mov dl,var
int 21h
endm
color macro color,x,y
mov ah,06
mov bh,color
mov cx,x
mov dx,y
int 10h
endm
cadena macro chain
mov ax, data ;con @ no funciona la macro en este emulador
mov ds,ax
mov dx, offset chain
mov ah,09
int 21h
endm
.model small
.data
ti db 10,13,' AREA',10,13,'$'
p1 db ' 1.- CUADRADO ',10,13,'$'
p2 db ' 2.- RECTANGULO ',10,13,'$'
p3 db ' 3.- TRIANGULO ',10,13,'$'
p4 db ' 4.- ROMBO ',10,13,'$'
sali db ' 0.-Salir',10,13,'$'
opc db ' INGRESE UN NUMERO; ',10,13,'$'
adios db ' ADIOS',10,13,'$'
H db ' H:','$'
L2 db ' Lado dos: ','$'
L3 db ' Lado tres :','$'
L4 db ' Lado cuatro: ','$'
RES db ' A:','$'
.code
cadena ti
cadena p1
cadena p2
cadena p3
cadena p4
cadena sali
cadena opc
ingresa
cmp al, 31h
je cuadrado
cmp al, 32h
je rectangulo
cmp al, 33h
je triangulo
cmp al,34h
je rombo
cmp al, 30h
je salida
cuadrado:
color 00fh,0000h,184fh
posi 0000h
cadena ti
cadena p1
cuadros 0AAh,0703h,0908h
curs 00h,08h,01h
Lad1
sub al,30h
endm
MUL AL
aam
add ax,3030h
mov cx,ax
curs 00h,06h,01h
cadena RES
mov ah,02
mov dl,ch
int 21h
mov
...