با سلام،
.model small
.stack 256h
.code
main proc far
call set_video_mode
main_loop:
mov ax, 3h ; Get Mouse Position and Button Status
int 33h ; CX = X, DX = Y, BX = status
call putpixel
mov ah, 1h ; 0h = wait for keypress; 1h = Get Keyboard Status
int 16h ; AL = ASCII (F# = 0), AH = keyboard scancode
jz main_loop
mov ah, 4Ch ; default output of the .com format
int 21h
main endp
putpixel proc
mov ah,0Ch ; use in int 10 for writing pixel on screen
mov al,15 ; pixel color : 15 means white ... for other colors see en.wikipedia.org/wiki/BIOS_Color_Attributes
int 10h
ret
putpixel endp
set_video_mode proc ; this part of code set video mode to 640x350 color graphic
mov ah, 0h ; Means we want to set video mode ( interrupt 10 )
mov al, 15 ; 640x350 256 color graphics (MCGA,VGA)
int 10h ; For graphic mode
mov ax, 1h ; show mouse cursor ( interrupt 33h )
int 33h ; mouse functions
ret
set_video_mode endp
end mainبا سلام،
[LEFT].model small
.stack 64h
.data
Array db 3 dup(3 dup(0))
msg0 db "Enter 9 number without space:",'$'
msg1 db 0ah,0dh,"Enter a search number:",'$'
found db 0ah,0dh,"Key found in ",'$'
nfound db 0ah,0dh,"Key not found!",'$'
pkey db 0ah,0dh,"Press any key...",'$'
.code
main proc far
mov ax, @data
mov ds, ax
mov es, ax
mov ah,09h
lea dx,msg0
int 21h
lea SI,Array
mov bx,0h mov cx,9
continue:
mov ah,01h
int 21h
sub al,'0'
mov [si][bx],al
inc bx
loop continue
mov ah,09h
lea dx,msg1
int 21h
mov ah,01h
int 21h
sub al,'0'
lea SI,Array
mov bx,0h mov cx,9
finder:
cmp al,[si][bx]
je F
inc bx
loop finder
mov ah,09h
lea dx,nfound
int 21h
jmp End_
F:
mov ah,09h
lea dx,found
int 21h
mov ax,bx
inc ax
mov bl,3
div bl
mov bx,ax mov ah,02h
mov dl,bl
inc dl
add dl,'0'
int 21h
mov ah,02h
mov dl,','
int 21h mov ah,02h
mov dl,bh
add dl,'0'
int 21h End_:
lea dx, pkey
mov ah, 9h
int 21h
mov ah, 8h
int 21h
mov ax, 4c00h
int 21h
main endp
end main [/LEFT]stseg segment stack 'stack'
dw 256 dup ('?')
stseg ends
;----------------------------------
codseg segment 'code'
assume cs:codseg,ss:stseg
main proc far
; setmode
; --------------
mov ah,00h
mov al,12h
int 10h
; setcurser
; --------------
mov ah,02h
mov bh,00h
mov dh,15
mov dl,40
int 10h
; --------------
mov dx,240
mov cx,320
continue:
mov ah,10h
int 16h
cmp ah,48h
je up
cmp ah,50h
je down
cmp ah,4bh
je left
cmp ah,4dh
je right
jmp p1
; --------------
up:
dec dx
mov ah,0ch
mov al,07h
int 10h
jmp continue
; --------------
down:
inc dx
mov ah,0ch
mov al,07h
int 10h
jmp continue
; --------------
left:
dec cx
mov ah,0ch
mov al,07h
int 10h
jmp continue
; --------------
right:
inc cx
mov ah,0ch
mov al,07h
int 10h
jmp continue
; --------------
p1:
mov ax,4c00h
int 21h
main endp
codseg ends
end main
با سلام،سلام خسته نباشید .دوتا برنامه دارم اگه ممکنه کمک کنید ممنون میشم
برنامه ای بنویسد که یک رشته از ورودی دریافت کرده سپس اعداد زوج موجود در رشته را چاپ کند
برنامه ای بنویسد که یک رشته از ورودی دریافت کرده سپس مجموع ارقام موجود در رشته را محاسبه و چاپ کند
| Thread starter | عنوان | تالار | پاسخ ها | تاریخ |
|---|---|---|---|---|
| M | برنامه جمع دو ماتریس | زبان اسمبلی | 1 | |
|
دانلود کتاب هاي برنامه نویسی به زبان اسمبلی | زبان اسمبلی | 6 | |
| E | زیر برنامه ماشین حساب | زبان اسمبلی | 2 | |
| A | ساخت فایل اجرایی از کد برنامه اسمبلی | زبان اسمبلی | 0 | |
|
برنامه تبدیل کد اسمبلی به کد ماشین | زبان اسمبلی | 0 |
