assembly برنامه ای بنویسید که در سطر اول یک ستاره در سطر دوم 2 ستاره و .... در سطر 25، 25 ستاره قرار گیرد ... doostam sare jalasas

[karimeslami]

assembly برنامه ای بنویسید که در سطر اول یک ستاره در سطر دوم 2 ستاره و .... در سطر 25، 25 ستاره قرار گیرد ...
doostam sare jalasast age kasi mitune sari komak kone

 

[pedarkhande2]

data segment 'data'
two db 2
tkhat db 0
fase db 1
star db 1
x db 8
j db ?
data ends
cod segment 'cod'
assume cs:cod , dsata
main proc far
mov ax,data
mov ds,ax
mov ah,06h
mov al,25
mov ch,0
mov cl,0
mov dh,24
mov dl,79
mov bh,0fh
int 10h


mov ah,0
inc x
mov al,x
div two
mov j,al


mov star,1
l0:
mov bl,0
l1:
mov dl,' '
mov ah,02h
int 21h
inc bl
cmp bl,x
jb l1
dec x


mov cx,0
l2:
mov dl,'*'
mov ah,02h
int 21h
inc cl
cmp cl,star
jb l2
add star,2


inc tkhat
mov dl,13
mov ah,02h
int 21h
mov dl,10
mov ah,02h
int 21h
mov al,j
cmp tkhat,al
jb l0




add x,2
sub star,4
l5:
mov bl,0
l6:
mov dl,' '
mov ah,02h
int 21h
inc bl
cmp bl,x
jb l6
inc x




mov cx,0
l7:
mov dl,'*'
mov ah,02h
int 21h
inc cl
cmp cl,star
jl l7
sub star,2


dec tkhat
mov dl,13
mov ah,02h
int 21h
mov dl,10
mov ah,02h
int 21h
cmp tkhat,1
ja l5






mov ah,4ch
int 21


main endp
cod ends
end main
end main​