Progrma4.asm

title programa que imprime un marco
.model small
.stack 64
.data
car db '*','$'
col db 0
ren db 0
.code
begin proc far
mov ax,@data
mov ds,ax
;limpiar pantalla
mov ax,0600h
mov bh,71h
mov cx,0000h
mov dx,184fh
int 10h
;imprimir lineas horizontales
mov cx,80
a10:
;colocar cursor
mov ah,02h
mov bh,00
mov dh,0 ;renglon 0
mov dl,col ;columna
int 10h
;imprimir *
mov ah,09h
lea dx,car
int 21h
;colocar cursor
mov ah,02h
mov bh,00
mov dh,22
mov dl,col
int 10h
;imprimir *
mov ah,09h
lea dx,car
int 21h
inc col
loop a10
;imprimir lineas verticales
mov cx,23
a20:
;colocar cursor
mov ah,02h
mov bh,00
mov dh,ren
mov dl,0
int 10h
;imprimir
mov ah,09h 
lea dx,car
int 21h
;colocar cursor
mov ah,02h
mov bh,00
mov dh,ren
mov dl,79
int 10h
;imprimir
mov ah,09h
lea dx,car
int 21h
inc ren
loop a20
mov ax,4c00h
int 21h
begin endp
end begin