اینم جوابش بعد از چند روز تمرین نوشتمش
codesg segment
main proc far
assume cs:codesg
mov ah,6
mov al,25
mov ch,0
mov cl,0
mov dh,24
mov dl,79
mov bh,07h
int 10h
mov cx,1
mov bl,9
mov dh,5
for:
mov ah,2
mov dl,bl
mov bh,0
int 10h
mov dl,'*'
mov ah,2
int 21h
inc bl
loop for
cmp dh,5
je satr6
cmp dh,6
je satr7
cmp dh,7
je satr8
cmp dh,8
je satr9
jmp endif
satr6:
mov cx,3
mov bl,8
mov dh,6
jmp for
satr7:
mov cx,5
mov bl,7
mov dh,7
jmp for
satr8:
mov cx,7
mov bl,6
mov dh,8
jmp for
satr9:
mov cx,9
mov bl,5
mov dh,9
jmp for
endif:
main endp
codesg ends
end main