این برنامه لوزی در مد گرافیکی(پیکسل) با ماکرو
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;
print macro x,y
mov ah,0ch
mov al,00001010b
mov cx,x
mov dx,y
int 10h
endm
data segment
x dw 50
y dw 50
ends
stack segment
dw 128 dup(0)
ends
code segment
start:
; set segment registers:
mov ax, data
mov ds, ax
mov es, ax
mov al, 13h
mov ah, 0
int 10h
mov cx,20
l:
push cx
print x,y
inc x
dec y
pop cx
loop l
;''''''''''''''''''''''
mov cx,20
l1:
push cx
print x,y
inc x
inc y
pop cx
loop l1
;''''''''''''''''''''''
mov cx,20
l2:
push cx
print x,y
dec x
inc y
pop cx
loop l2
;''''''''''''''''''
mov cx,20
l3:
push cx
print x,y
dec x
dec y
pop cx
loop l3
mov ax, 4c00h ; exit to operating system.
int 21h
ends
end start ; set entry point and stop the assembler.
پاسخ با نقل قول