چاپ ستاره در صفحه

[X7337X]

* ** ** ** ** ** *

[tdkhakpur]

برای اعمال تغییر در طول فقط مقدار count را افزایش دهید.


.MODEL SMALL
.STACK 100
.DATA
actions db 1, 0, 1
sw dw 0
Count dw 12
.CODE
push @data
pop ds
mov ax, Count
mov cl, 3
mul cl
mov cx, ax
lp1:
lea bx, actions
add bx, sw
mov dl, byte ptr [bx]
cmp dl, 1
je jmp1
mov dl, ' '
jmp jmp2
jmp1:
mov dl, '*'
jmp2:
mov ah, 2
int 21h ; put char in cur pos of cursor
add sw, 1
cmp sw, 3
jl jmp3
mov sw, 0
jmp3:
loop lp1
mov ax, 4c00h ; exit to operating system.
int 21h
END