hua ge zi.asm

这是一个简单的汇编程序

.model small
.stack 200h
.data
wrow db ?
wcolumn db ?
nr db ?
nc db ?
messg1 db 0ah,0dh,'Input the number of columns:','$'
messg2 db 0ah,0dh,'Input the number of rows:','$'

.code
main proc far
.startup
call input
dec ch
dec cl
mov nr,ch
mov nc,cl
mov ax,300
div ch
mov wrow,al
mov ax,400
div cl
mov wcolumn,al
call wait1
call box
call wait1
mov ah,00h
mov al,03h
int 10h
mov ah,4ch
int 21h
main endp

input proc near
mov ah,09h
lea dx,messg1
int 21h
mov ah,01h
int 21h
sub al,30h
mov ch,al
mov ah,09h
lea dx,messg2
int 21h
mov ah,01h
int 21h
sub al,30h
mov cl,al
ret
input endp

box proc near
mov ax,0600h
mov bh,07
mov cx,0
mov dx,184fh
int 10h

mov ah,0
mov al,12h
int 10h
mov cx,120
mov dx,90
boxtop:
mov ah,0ch
mov al,01
mov bh,0
int 10h
inc cx
cmp cx,520
jnz boxtop

box1:
add dl,wrow
adc dh,0
mov cx,120
box2:
mov ah,0ch
mov al,01
mov bh,0
int 10h
inc cx
cmp cx,520
jnz box2
sub nr,1
jnz box1

mov cx,120
mov dx,90
boxcl:
int 10h
inc dx
cmp dx,390
jnz boxcl

box3:
add cl,wcolumn
adc ch,0
mov dx,90
box4:
int 10h
inc dx
cmp dx,390
jnz box4
sub nc,1
jnz box3
ret
box endp

wait1 proc near
mov ah,07h
int 21h
ret
wait1 endp

end