Alireza_k268
دوشنبه 12 دی 1390, 00:42 صبح
paygam macro str1
mov ah,09h
lea dx,str1
int 21h
endm
;.......................
clear macro
mov ax,0600h
mov bh,07h
mov cx,0
mov dx,184fh
int 21h
endm
;......................
cors macro row,col
mov ah,02
mov bh,00
mov dh,row
mov dl,col
int 10h
endm
;..........Parcham...........
iran macro
mov ah,06h
mov al,2
mov ch ,7
mov cl,35
mov dh,12
mov dl,50
mov bh,00100000b
int 10h
mov ah,06h
mov al,2
mov ch ,7
mov cl,35
mov dh,12
mov dl,50
mov bh,11111111b
int 10h
mov ah,06h
mov al,2
mov ch ,7
mov cl,35
mov dh,12
mov dl,50
mov bh,11000000b
int 10h
endm
;......................
.model small
.stack 512
.data
msg1 db 18h,'$'
msg2 db 19h,'$'
msg3 db 1ah,'$'
msg4 db 1bh,'$'
x db 12
y db 32
wx dd ?
.code
main proc far
mov ax,@data
mov ds,ax
;.......................
clear
cors 20,70
paygam msg1
cors 22,70
paygam msg2
cors 21,72
paygam msg3
cors 21,68
paygam msg4
mov si,0
mov di,0
z: cors 16+si,27+di
iran
;================
mov ax,1
int 33h
s:
mov ax,03
int 33h
cmp bx,1
jne s
cmp cx,0230h
jl a
mov wx,0237h
cmp wx,cx
jl a
cmp dx,00a0h
jl a
mov wx,00a7h
cmp wx,dx
jl a
inc di
inc di
jmp z
a:
cmp cx,0220h
jl b
mov wx,0227h
cmp wx,cx
jl b
cmp dx,00a8h
jl b
mov wx,00afh
cmp wx,dx
jl b
dec si
dec si
jmp z
b:
cmp cx,0240h
jl c
mov wx,0247h
cmp wx,cx
jl c
cmp dx,00a8h
jl c
mov wx,00afh
cmp wx,dx
jl c
inc si
inc si
jmp z
c:
cmp cx,0230h
jl s
mov wx,0237h
cmp wx,cx
jl s
cmp dx,00b0h
jl s
mov wx,00b7h
cmp wx,dx
jl s
dec di
dec di
jmp z
;================
mov ax,4c00h
int 21h
main endp
end main
سلام چه طور میشه با این برنامه پرچم را با جهت هایی که ایجاد کردیم هنگام کلیک کردن بر روی جهت ها پرچم حرکت کند
mov ah,09h
lea dx,str1
int 21h
endm
;.......................
clear macro
mov ax,0600h
mov bh,07h
mov cx,0
mov dx,184fh
int 21h
endm
;......................
cors macro row,col
mov ah,02
mov bh,00
mov dh,row
mov dl,col
int 10h
endm
;..........Parcham...........
iran macro
mov ah,06h
mov al,2
mov ch ,7
mov cl,35
mov dh,12
mov dl,50
mov bh,00100000b
int 10h
mov ah,06h
mov al,2
mov ch ,7
mov cl,35
mov dh,12
mov dl,50
mov bh,11111111b
int 10h
mov ah,06h
mov al,2
mov ch ,7
mov cl,35
mov dh,12
mov dl,50
mov bh,11000000b
int 10h
endm
;......................
.model small
.stack 512
.data
msg1 db 18h,'$'
msg2 db 19h,'$'
msg3 db 1ah,'$'
msg4 db 1bh,'$'
x db 12
y db 32
wx dd ?
.code
main proc far
mov ax,@data
mov ds,ax
;.......................
clear
cors 20,70
paygam msg1
cors 22,70
paygam msg2
cors 21,72
paygam msg3
cors 21,68
paygam msg4
mov si,0
mov di,0
z: cors 16+si,27+di
iran
;================
mov ax,1
int 33h
s:
mov ax,03
int 33h
cmp bx,1
jne s
cmp cx,0230h
jl a
mov wx,0237h
cmp wx,cx
jl a
cmp dx,00a0h
jl a
mov wx,00a7h
cmp wx,dx
jl a
inc di
inc di
jmp z
a:
cmp cx,0220h
jl b
mov wx,0227h
cmp wx,cx
jl b
cmp dx,00a8h
jl b
mov wx,00afh
cmp wx,dx
jl b
dec si
dec si
jmp z
b:
cmp cx,0240h
jl c
mov wx,0247h
cmp wx,cx
jl c
cmp dx,00a8h
jl c
mov wx,00afh
cmp wx,dx
jl c
inc si
inc si
jmp z
c:
cmp cx,0230h
jl s
mov wx,0237h
cmp wx,cx
jl s
cmp dx,00b0h
jl s
mov wx,00b7h
cmp wx,dx
jl s
dec di
dec di
jmp z
;================
mov ax,4c00h
int 21h
main endp
end main
سلام چه طور میشه با این برنامه پرچم را با جهت هایی که ایجاد کردیم هنگام کلیک کردن بر روی جهت ها پرچم حرکت کند