برنامه چاپ و حرکت ستاره
برنامه چاپ و حرکت ستاره
* ->*->*->* *
* *
*
* *
* ->*->*->* *
.stack 64
.data
i db 0
j db 4
n db 5
.code
main proc far
mov ax , @data
mov DS , ax
;l15:
; for khate aval
mov i , 0
l1:
cmp i , 5
jae l2
;gotoxy
mov ah , 2
mov dl , i
;mov dh , i
mov bh , 0
int 10h
;printf
mov ah , 2
mov dl , "*"
int 21h
;delay
mov cx , 100
l5:
loop l5
;gotoxy
mov ah , 2
mov dl , i
;mov dh , i
mov bh , 0
int 10h
;printf
mov ah , 2
mov dl , " "
int 21h
;end for
inc i
jmp l1
l2:
; for khate dovom
mov i , 0
l3:
cmp i , 5
jae l4
;gotoxy
mov ah , 2
mov dl , j
mov dh , i
mov bh , 0
int 10h
;printf
mov ah , 2
mov dl , "*"
int 21h
;delay
mov cx , 100
l6:
loop l6
;gotoxy
mov ah , 2
mov dl , j
mov dh , i
mov bh , 0
int 10h
;printf
mov ah , 2
mov dl , " "
int 21h
;end for
inc i
dec j
jmp l3
l4:
; for khate Sevom
mov i , 0
l7:
cmp i , 5
jae l8
;gotoxy
mov ah , 2
mov dl , i
;mov dh , i
mov bh , 0
int 10h
;printf
mov ah , 2
mov dl , "*"
int 21h
;delay
mov cx , 100
l9:
loop l9
;gotoxy
mov ah , 2
mov dl , i
;mov dh , i
mov bh , 0
int 10h
;printf
mov ah , 2
mov dl , " "
int 21h
;end for
inc i
jmp l7
l8:
; for khate chaharom
mov i , 4
mov j , 4
l10:
cmp i , 0
jb l11
;gotoxy
mov ah , 2
mov dl , j
mov dh , i
mov bh , 0
int 10h
;printf
mov ah , 2
mov dl , "*"
int 21h
;delay
mov cx , 100
l12:
loop l12
;gotoxy
mov ah , 2
mov dl , j
mov dh , i
mov bh , 0
int 10h
;printf
mov ah , 2
mov dl , " "
int 21h
;end for
dec i
dec j
jmp l10
l11:
;jmp l15
main endp
end main