;;;file hr3 high res graphics to draw a box
.stack 100h
.386

.data
color db ?
back dw 50
front dw 150
cstart dw 50
cstop dw 150
rstart dw 50
rstop dw 150
red equ 12
grey equ 7

.code
main proc near

 mov ax,@data
 mov ds,ax
 mov es,ax

 mov ah,0fh
 int 10h
 push ax
 call b10mode
 
 
 mov color,red
 call putblock
 
down:
 mov ah,10h
 int 16h
 pop ax
 mov ah,0
 int 10h
 mov ax,4c00h
 int 21h
main endp

b10mode proc near
 mov ax,12h
 int 10h
 mov ah,0bh
 mov bx,7
 int 10h
 ret
b10mode endp

pause proc near
 pusha
 mov cx,10
@@cont: pusha
 popa
 loop @@cont
 popa
 ret
pause endp

putblock proc near
 pusha
 mov bx,0
 mov al,color
 mov cx,cstart
 mov dx,rstart
@@20:
        mov ah,0ch;;;write dot
 
        int 10h
        inc cx
        cmp cx, cstop
        jne @@20
        mov cx,cstart
        inc dx
        cmp dx,rstop
        jne @@20
        popa
        ret
putblock  endp
end main