Cuadrado ensambler

gotoxy macro fil,col
mov ah,02h
mov bh,0h
mov dh,fil
mov dl,col
int 10h
endm

poncar macro car
mov ah,02h
mov dl,car
int 21h
endmponcar2 macro car2,cuanto
mov ah,0Ah
mov al,car2
mov bh,0h
mov bl,07h
mov CX,cuanto
int 10h
endm

color macro fondo,lineas,ffi,cci,fff,ccfmov ah,06h
mov al,lineas
mov bh,fondo
mov ch,ffi
mov cl,cci
mov dh,fff
mov dl,ccf
int 10h
endm

cuadro macrofi,ci,ff,cf,colores
local vertical
mov cl,ff
sub cl,fi
color colores,cl,fi,ci,ff,cf
; pone las lineas horizontalesmov dl,cf
sub dl,ci
push DX
gotoxy fi,ci
pop DX
mov dh,0
poncar2 205,DX
mov dl,cf
sub dl,ci
push DXgotoxy ff,ci
pop DX
mov dh,0h
poncar2 205,DX

; pone las lineas verticales
mov cl,ff
sub cl,fi
mov ch,0mov ah,fi
mov var2,ah
vertical:
gotoxy var2,ci
poncar 186
gotoxy var2,cf
poncar 186
inc var2loop vertical

gotoxy fi,ci
poncar 201
gotoxy fi,cf
poncar 187
gotoxy ff,ci
poncar 200
gotoxy ff,cf
poncar188

endm

espera macro
mov ah,07h
int 21h
endm

clrscr macro
mov ah,00h
mov al,03h
int 10h
endm

.model small
.stack
.datavar db ?
var2 db ?
.code
;.startup
clrscr
cuadro 1,1,24,79,07
cuadro 5,5,20,70,27
cuadro 10,10,15,55,07
cuadro 12,30,14,35,12
espera
;.exit
end