مشکل توی برنامه ای با استفاده از حلقه!

[Narges-s]

سلام

من توی برنامه ام با مشکل رو به رو شدم . ممنون میشم اگه اشکالم رو بگید :لبخندساده:

این برنامه باید چنین شکلی رو ایجاد کنه :


A
AA
AAA
AAAA
AAAAA
AAAAAA




.MODEL SMALL
.STACK 200H
.DATA
.CODE
START: MOV AX,@DATA
MOV DS,AX
MOV CX,1
MOV DH,2
MOV BH,0
L1:
MOV DL,'A'
MOV AH,02H
INT 21H
LOOP L1
INC CX
CMP CX,06
JA EXIT
MOV AH,02H
INT 10H
INC DH
JMP L1
EXIT:
MOV AX,4C00H
INT 21H
END START

[tdkhakpur]

.MODEL SMALL
.STACK 200H
.DATA
.CODE
START:
MOV AX,cs
MOV DS,AX

MOV AH,02H
MOV DL, 1
MOV Dh, 2
INT 10H

MOV CX,1
mov bx, cx

again:
push dx
L1:
push cx
MOV DL,'A'
MOV AH,02H
INT 21H
pop cx
LOOP L1
pop dx
INC bx
mov cx, bx
CMP CX,06
JA EXIT
MOV AH,02H
INC DH
INT 10H
JMP again
EXIT:
MOV AX,4C00H
INT 21H
END START

[Narges-s]

خیلی خیلی ممنون . فقط ببخشید شما میدونید چطوری میشه صفحه رو پاک کرد واسه اجرای اون برنامه . چون اجرا میوفته روی نوشته ها !

[tdkhakpur]

ClrScr proc
push cx
push bx
push es
mov cx, 2000
mov BX, 0b800h
push bx
pop es
mov bx, 0
loop1:
MOV byte PTR ES:[BX] ,32
add bx, 2
loop loop1
pop es
pop bx
pop cx
ret
ClrScr endp