вывести звёздочки прямоугольником

[designer]

нужно переделать эту прогу так чтобы "*"звёздочки выводило прямоугольником например
****
****(4х4)
****
****
(эта прога выдает прямоугольным триугольником
*
**
***
****)

кто-то сможет мне помоч?

аська 415-135-989

sseg segment stack
	db 64 dup(?)
sseg ends
code segment
	assume cs:code,ss:sseg
start    proc far
 	push ds
	mov ax,0
	push ax
	call READ
	push ax
	call PSBK
	pop ax
	mov bl,al
	mov cl,1
m1:	mov dl,'*'
	call zirk
	inc cl
	cmp cl,bl
	jle m1
	ret
start 	endp
zirk 	proc
	mov ch,cl
m2:	call putchar
	dec ch
	jnz m2
	call PSBK
	ret
zirk 	endp
PUTCHAR proc
	mov ah,2
	int 21h
	ret
PUTCHAR endp
PSBK	proc
	mov dl,10
        call PUTCHAR
	mov dl,13
	call PUTCHAR
	ret
PSBK 	endp
READ 	proc
	mov ah,1
	int 21h
	sub al,60q
	ret
READ    endp
CODE 	ends
	end start

[Somebody]

mov cl,1 ; тут начальное количество звёздочек в строке
m1: mov dl,'*'
call zirk
inc cl ; тут увеличение кол-ва звёздочек для каждой следующей строки
cmp cl,bl
jle m1
ret

[designer]

"mov cl,1 ; тут начальное количество звёздочек в строке"
и чем вы мне помогли? я это понимаю... я прошу изменить программу так чтобы выводило прямоугольником а не триугольником....

[Somebody]

zirk proc
mov ch,cl → mov ch,bl

[Min]

очень нерационально.... много лишнего.... проще заново переписать....

sseg segment stack
	db 64 dup(?)
sseg ends
code segment
	assume cs:code,ss:sseg
start:
mov ah,1
int 21h
sub al,'0'
mov bl,al
xor bh,bh
mov ah,2

mov cx,bx
loopY:
push cx

mov cx,bx
mov dl,13
int 21h
mov dl,10
int 21h

loopX:
mov dl,'*'
int 21h
loop loopX

pop cx
loop loopY

mov ah,8
int 21h

CODE 	ends
	end start

[designer]

спс всё работает, но я увы уже переделал сам свой исходник!

Сообщение от Somebody

zirk proc
mov ch,cl → mov ch,bl

спс-всё гудд)