نمونه برنامه های اسمبلی همراه با سورس کد

[xman_1365_x]

با سلام و احترام

طبق درخواست دوستان این تاپیک ایجاد شد تا برنامه های نوشته شده خودتون رو در این قسمت قرار بدین
تا به صورت اعلان همیشه در دسترس باشد.

نکات: هنگام قرار دادن برنامه، توضیحی خلاصه درباره آن، محیط قابل اجرا و تست شده ،نوع و ورژن اسمبلر ذکر شود.

توجه:

از دادن پست سوال،درخواست کد،تشکر و... که نامرتبط با عنوان میباشد خودداری کنید.
این بخش صرفا برای قرار دادن برنامه میباشد.
سوالات به صورت تاپیک مجزا پرسیده شود.
درخواست، نظرات و انتقاد ها پیام خصوصی شود.


لطفا سورس ها را با قالب زیر قرار دهید:

برنامه زیر را قبلا در سایت گذاشتم اما برای مثال اینجا مجدد ذکر میشه


توضیح کلی:
بخشی از اسمبلر که قابلیت تبدیل یک دستور به کد ماشین را دارا میباشد،توضیحات بیشتر در لینک زیر قرار دارد.
محیط اجرایی:
داس
نوع اسمبلر :
EMU8086(FASM),TASM

فکر میکنم با Masm هم سازگار باشد،الان حضور ذهن ندارم.

سورس:
بخشی از یک اسمبلر با اسمبلی 8086 (http://barnamenevis.org/showthread.php?330886)
مراجع:
در لینک بالا ذکر شده است.

موفق باشید.

[mazaher5723]

سلام دوستان
توضییح:اولین برنامه که گذاشتم اینه که پیغام شما رو نمایش میده
محیط اجرایی:
داس
نوع اسمبلر :
EMU8086(FASM),TASM
تشکر یادتون نره

[mazaher5723]

توضییح:مرتب سازی حبابی
محیط اجرایی:
داس
نوع اسمبلر :
EMU8086(FASM),TASM
فکر میکنم با Masm هم سازگار باشد،الان حضور ذهن ندارم.

تشکر یادتون نره

[mazaher5723]

سلام دوستان
توضییح: تبدل رشته یه عدد واستون گذاشتم
البته کنارشم یک فایل html گذاشتم که بدردتون می خوره
محیط اجرایی:
داس
نوع اسمبلر :
EMU8086(FASM),TASM

تشکر یادتون نره

[mazaher5723]

سلام دوستان چندتا سورس کد اسمبلی گذاشتم بدردتون می خوره.
اینو از سایت

www.dlbook.net
---------------------------------------
خاموش کردم numlock
کار با کیبورد
فرستادن فایل
و.....
تشکر یادتون نره

[mazaher5723]

سلام دوستان توی همین روزا یک سورس الگوریتم FCFSمیگذارم دگه اخرا مرحله کد نویسیشم.که 4 تا برنامه می گیره و هرکدوم زودتر بیاد اونو اجرا میکنه

[mazaher5723]

یکی درمیان توی رشته جا خالی میندازه

محیط اجرایی:
داس
نوع اسمبلر :
EMU8086(FASM),TASM

تشکر یادتون نره دوستان


موفق و پیرورز باشید

[mazaher5723]

توضییح:یک رشته ------->یکی در میان حذف میکنه
محیط اجرایی:
داس
نوع اسمبلر :
EMU8086(FASM),TASM
تشکر یادتون نره

[mazaher5723]

توضییح «پاک کردن صفحه نمایش و رفتن به سطر 0 و ستون 0
محیط اجرایی:
داس
نوع اسمبلر :
EMU8086(FASM),TASM
تشکر یادتون نره

[mazaher5723]

سلام دوستان
توضییح:مخفی کردن کرسر کیبرد( چشمک زن کیبرد)
محیط اجرایی:
داس
نوع اسمبلر :
EMU8086(FASM),TASM
تشکر یادتون نره

[mazaher5723]

توضییح:کار با پیکسل
تشکر یادتون نره دوستان
محیط اجرایی:
داس
نوع اسمبلر :
EMU8086(FASM),TASM

تشکر یادتون نره

[mazaher5723]

توضیح :سورس پیدا کردن کوچکترین کارکتر درون رشته و چاپ کردن آن
برنامه نوشتن کد:emu8086
اجرا :محیط Dos
نکته:کوچکترین کارکتر درون ch

تشکر یادتون نره
موفق باشید

[mazaher5723]

توضیح :یک رشته را از ورودی میگره و کوچکترین کارکترو نشون میده
برنامه نوشتن کد:emu8086
اجرا :محیط Dos
نکته:کوچکترین کارکتر درون ch

تشکر یادتون نره

موفق باشید

[mazaher5723]

توضییح:گرفتن موقعیت موس.
if left button is down: BX=1
if right button is down: BX=2
if both buttons are down: BX=3
CX = x
DX = y
محیط اجرایی:
داس
نوع اسمبلر :
EMU8086(FASM),TASM

تشکر یادتون نره دوستان

[mr.nice]

تفریق دو عددرقمی10 بدون علامت و نشان دادن آن به صورت علامتدار و قدر مطلق
محیط اجرایی : داس
نوع اسمبلر: emu8086

[mazaher5723]

سلام دوستان
توضییح:دریافت 15 ورودی به صورت زیر
نام فامیلی رشته رتبه
محیط اجرا:
داس
برنامه:emu8086

[mazaher5723]

سلام دوستان
توضییح:فعال کردن موس
محیط اجرا:
داس
برنامه:emu8086

تشکر یادتون نره

[mazaher5723]

سلام دوستان
توضییح:فعال کردن موس و مدگرافیکی
محیط اجرا:
داس
برنامه:emu8086

تشکر یادتون نره

[xman_1365_x]

توضیح کلی:
حرکت موس با کلید های جهت دار-سورس به همراه کد اجرایی
این برنامه با گرفتن موقعیت موس سطر یا ستون را بسته به کلید فشار داده شده افزایش یا کاهش میدهد.
توجه:تمام صفحه شدن در ویندوز ایکس پیشتیبانی شده و در ویندوز 7 به بعد پشتیبانی نمیشود.
محیط اجرایی:
داس
اسمبلرهای سازگار:
EMU8086(FASM), TASM,MASM
سورس:
98776

[mazaher5723]

سلام دوستان
توضییح:اسکرین سیور
محیط اجرا:.
داس
برنامه:emu8086
تشکر یادتون نره

[mazaher5723]

سلام دوستان
توضییح:یک رشته رو از ورودی میگیره و از راست به چپ حرکت میکنه(سکرین سیور)
محیط اجرایی:
داس
نوع اسمبلر :
EMU8086(FASM),TASM
تشکر یادتون نره

[mazaher5723]

سلام دوستان
توضییح:برنامه بزرگترین عنصر آرایه را مشخص می کن
محیط اجرایی:
داس
نوع اسمبلر :
EMU8086(FASM),TASM
تشکر یادتون نره

[mazaher5723]

سلام دوستان
برنامه شبیه ساز داس که خیلی بدردتون میی خوره مخصوص توی ویندوز 7 یا 8.
از لینک زیر دانلودش کنید
اینجا (http://www.dosbox.com/download.php?main=1)
اول فایلی که قرار اجرا شه بریزین توی دراو مثلا Cپوشه 1
بعد وارد نرم ازفزار ِ dos box بشین دستور زیر رو وارد کنید
Mount U c:\1
بعد اونجا درایو U تون همون درایو C:\1 هست

[mazaher5723]

سلام دوستان
توضییح:یک رشته رو از ورودی میگیره و از راست به چپ حرکت میکنه از پایین صفحه به بالا میاد(سکرین سیور)
محیط اجرایی:
داس
نوع اسمبلر :
EMU8086(FASM),TASM
تشکر یادتون نره

[arash691]

برنامه ای که در سطر 4 و 16 ستاره چاپ میکند و در سطر 10 رشته ی

"welcome" را نمایش میدهد ...

[hessam2003]

سلام.
رنامه جستجو کارکتری درون رشته ای و جایگزین کردن آن به خرف بزرگ یا کوچک، به وسیله زبان ماشین (اسمبلی) ;که با emu 8086 نوشته شده است.
پروژه مورد نیاز برای دانشجویان.

در این برنامه رشته را از کاربر می گیرد و درون آرایه ذخیره می کند و کارکترهای مورد نیاز را از کاربر جهت جستجو می گیرد، که در این جا ما به دو روش یک کاراکتری و کاراکتر به کاراکتر جستجو می کنیم.

رشته ورودی:Hessam کاراکتر جهت جستجو: S خروجی: HeSSam

رمز: Faratechnology.blogfa.com
دانلود برنامه (http://pajoheshgar.persiangig.com/www.faratechnology.blogfa.com/Search%20into%20string%20array%205.rar)

[hessam2003]

سلام.
یک سری از برنامه های مفید اسمبلی در این وبلاگ وجود داره در صورت نیاز بهش یک سری بزنید.
http://www.faratechnology.blogfa.com/

[darknes666]

یه LINE EDITOR خیلی ساده.:لبخندساده:

DATA SEGMENT
KEYS DB 20H,12H
OFFSET1 DW ?
MSG1 DB " DO U WANT TO EXIT? 1-YES 2-NO $"
NE_L DB 0AH,"$"
ENDS
STACK SEGMENT
DW 128H DUP(0)
ENDS
CODE SEGMENT
START:
MOV AX,DATA
MOV DS,AX
MOV ES,AX
;BEGIN
LEA SI,KEYS ;SET THE OFFSET OF STRING _1
MOV OFFSET1,SI ; END OF PART _1
;LOOOOOOP _2
LABEL1:
MOV AX,0
MOV AH,1
INT 21H
CMP AL,8
JE LABEL5
CMP AL,0DH
JE LABEL4
CMP AL,31H
JE LABEL2
MOV [OFFSET1],AX
INC OFFSET1
JMP LABEL1
LABEL2:
LEA DX,MSG1
MOV AH,9
INT 21H
MOV AH,1
INT 21H
CMP AL,31H
JE LABEL3
JNE LABEL1
LABEL3:
JMP FINISH
LABEL4:
LEA DX,NE_L
MOV AH,9
INT 21H
JMP LABEL1
LABEL5:
MOV AH,3
MOV BH,0
INT 10H
MOV AH,2
MOV BH,0
INT 10H
MOV AH,0AH
MOV BH,0
MOV AL,20H
MOV CX,1
INT 10H
JMP LABEL1
FINISH:
;END OF PART _2
;END
MOV AX, 4C00H ; EXIT OS
INT 21H
END
END START

[darknes666]

رسم خط با w,s,a,d :لبخندساده:


DATA SEGMENT

ENDS

STACK SEGMENT
DW 128H DUP(0)
ENDS

CODE SEGMENT
START:
MOV AX,DATA
MOV DS,AX
MOV ES,AX
MOV AH,0
MOV AL,13H
INT 10H
MOV BH,0
MOV AL,0CH
MOV CX,1
MOV DX,1
MOV AH,0CH
INT 10H
LABEL1:
MOV AH,0
INT 16H
CMP AL,41H
JE LABEL2
CMP AL,44H
JE LABEL3
CMP AL,53H
JE LABEL4
CMP AL,57H
JE LABEL5
JMP LABEL1
LABEL2:
MOV BH,0
MOV AL,0CH
DEC CX
MOV AH,0CH
INT 10H
JMP LABEL1
LABEL3:
MOV BH,0
MOV AL,0CH
INC CX
MOV AH,0CH
INT 10H
JMP LABEL1
LABEL4:
MOV BH,0
MOV AL,0CH
INC DX
MOV AH,0CH
INT 10H
JMP LABEL1
LABEL5:
MOV BH,0
MOV AL,0CH
DEC DX
MOV AH,0CH
INT 10H
JMP LABEL1
MOV AX, 4c00H
int 21h
ENDS
END START

[darknes666]

رشته ی شما رو میگیره در خط بعدی چاپش میکنه .

DATA SEGMENT
NUM1 DB 1000 DUP(0)
NEL DB 0AH,"$"
ENDS
STACK SEGMENT
DW 128H DUP(0)
ENDS
CODE SEGMENT
START:
MOV AX,DATA
MOV DS,AX
MOV ES,AX
LEA SI,NUM1
LABEL1:
MOV AH,1
INT 21H
CMP AL,0DH
JE LABEL2
MOV [SI],AL
INC SI
JMP LABEL1
LABEL2:
INC SI
MOV [SI],"$"
MOV AH,9H
LEA DX,NEL
INT 21H
MOV AH,9H
LEA DX,NUM1
INT 21H
MOV AX, 4c00H
INT 21H
ENDS
END START

[darknes666]

این برنامه دوتا عدد بزرگ میگیره به صورت اسکی جمع میکنه بعد تو یه ارایه قرار میده.:چشمک:

DATA SEGMENT
H_1 DB 0H
H_2 DB 0H
NUM DB 100 DUP(0)
NUM2 DB 100 DUP(0)
NEL DB 0AH,"$"
CR1 DB 101 DUP(0);CARRY NUMBER
CP2 DB 101 DUP(0);CARRY NUMBER
D_1 DB ?
D_2 DB ?
FIN DB DUP 151 DUP(0)
ENDS
STACK SEGMENT
DW 128H DUP(0)
ENDS
CODE SEGMENT
START:
MOV AX,DATA
MOV DS,AX
MOV ES,AX
LEA SI,NUM
LABEL1:
MOV AH,1
INT 21H
CMP AL,8
JE LABEL2
CMP AL,20H
JE LABEL1
CMP AL,0DH
JE LABEL3
INC H_1
MOV CL,H_1
MOV [SI],AL
INC SI
JMP LABEL1
LABEL2:
CMP H_1,0
JE LABEL1
DEC H_1
JMP LABEL1
LABEL3:
LEA DX,NEL
MOV AH,9
INT 21H
LEA SI,NUM2
LABEL4:
MOV AH,1
INT 21H
CMP AL,8
JE LABEL5
CMP AL,20H
JE LABEL4
CMP AL,0DH
JE LABEL6
INC H_2
MOV CL,H_2
MOV [SI],AL
INC SI
JMP LABEL4
LABEL5:
CMP H_2,0
JE LABEL4
DEC H_2
JMP LABEL4
LABEL6:
LEA DX,NEL
MOV AH,9
INT 21H
DARK1:
MOV DL,H_1
MOV D_1,DL
LEA SI,CR1
ADD SI,100
LEA DI,NUM
MOV BX,0
MOV BL,H_1
ADD DI,BX
DEC DI
DARK2:
MOV AL,[DI]
MOV [SI],AL
DEC SI
DEC DI
DEC D_1
CMP D_1,0
JNE DARK2
DARK3:
MOV DL,H_2
MOV D_2,DL
LEA SI,CP2
ADD SI,100
LEA DI,NUM2
MOV BX,0
MOV BL,H_2
ADD DI,BX
DEC DI
DARK4:
MOV AL,[DI]
MOV [SI],AL
DEC SI
DEC DI
DEC D_2
CMP D_2,0
JNE DARK4
MOV AL,H_1
MOV CL,H_2
CMP AL,CL
JE CHAOS1
JA CHAOS2
JL CHAOS3
CHAOS1:
MOV D_1,AL
LEA SI,CR1
LEA DI,CP2
ADD SI,100
ADD DI,100
LEA BP,FIN
ADD BP,150
CHAOS1_1:
MOV DX,0
ADD DX,[SI]
ADD DX,[DI]
MOV [BP],DL
DEC SI
DEC DI
DEC BP
DEC D_1
CMP D_1,0
JE FINISHEM
JMP CHAOS1_1
CHAOS2:
MOV D_1,AL
LEA SI,CR1
LEA DI,CP2
ADD SI,100
ADD DI,100
LEA BP,FIN
ADD BP,150
CHAOS1_2:
MOV DX,0
ADD DX,[SI]
ADD DX,[DI]
MOV [BP],DL
DEC SI
DEC DI
DEC BP
DEC D_1
CMP D_1,0
JE FINISHEM
JMP CHAOS1_2
CHAOS3:
MOV D_1,CL
LEA SI,CR1
LEA DI,CP2
ADD SI,100
ADD DI,100
LEA BP,FIN
ADD BP,150
CHAOS1_3:
MOV DX,0
ADD DX,[SI]
ADD DX,[DI]
MOV [BP],DL
DEC SI
DEC DI
DEC BP
DEC D_1
CMP D_1,0
JE FINISHEM
JMP CHAOS1_3
FINISHEM:
MOV AX, 4c00H
INT 21H
ENDS
END START

[darknes666]

یکی یه سوال پرسیده بود که چجوری از 0 تا 18446744073709551616 بشماریم.
یا همون از 0 تا 2به توان 64.
من با کمی کمک گرفتن و تفکر نوشتمش.
گفتم بزارم اینجا شاید به دردتون خورد.
:چشمک:

STACKSG SEGMENT STACK 'STACK'

DB 64H DUP(0)

STACKSG ENDS

DATASG SEGMENT 'DATA'


DATASG ENDS

CODESG SEGMENT 'CODE'
ASSUME SS:STACKSG,DS:DATASG,CS:CODESG
MAIN PROC NEAR
MOV AX,DATASG
MOV DS,AX
XOR EAX,EAX
XOR EBX,EBX
XOR ECX,ECX
LABEL1:
ADC EAX,1
ADC EBX,0
ADC ECX,0
CMP ECX,1
JNE LABEL1
MOV AX,4C00H
INT 21H
MAIN ENDP
CODESG ENDS
END MAIN

[sahar sargazi]

این برنامه یک رشته می گیره بعد حروف صدادار (O,U,I,E) رو چاپ میکنه... امیدوارم خوشتون بیاد.



data segment

ends

stack segment
dw 128 dup(0)
temp db 20 dup('$')
str label byte
max db 20
len db ?
buffer db 20 dup('$')
ends

code segment
start:

mov ax, data
mov ds, ax
mov es, ax

mov ah,0ah
lea dx,str
int 21h

mov di,0
mov si,0
mov cx,0
mov cl,len

l3:
cmp buffer[si],'a'
je l1
cmp buffer[si],'o'
je l1
cmp buffer[si],'i'
je l1
cmp buffer[si],'u'
je l1
jne l2

l1:
mov al,buffer[si]
mov temp[di],al
inc di
l2:
inc si
loop l3
mov ah,02h
mov bh,0
mov dl,15
mov dh,15
int 10h

mov ah,09h
lea dx,temp
int 21h


mov ah, 1
int 21h

mov ax, 4c00h
int 21h
ends

end start

[Delphi Coder]

توضیح کلی:
برنامه ای که اعداد اول دوبایتی (0 تا 65535) را نمایش میدهد. (به همراه کامنت و توضیحات در سورس کد)

نکات:
نوشتن اعداد در خروجی در این برنامه از طریق دسترسی مستقیم به VIDEO RAM انجام میشود.

محیط اجرایی:
MS-DOS

نوع اسمبلر :
EMU8086(FASM),TASM

[Delphi Coder]

توضیح کلی:
برنامه رکوردر صدا با استفاده از توابع WinMM

نکات و محدودیتها:
برنامه با فرض اینکه صدای ورودی رو با فرمت 22050 هرتز و Mono و 8 بیت در هر Sample به صورت فایل wave رکورد کند نوشته شده بنابراین تغییر فرمت رکورد قطعا با تغییر یک constant و یا عدد امکانپذیر نیست و باید با دقت در چند جا اعمال تغییر کرد.

این برنامه اصولا باید در تمامی ویندوزهای 32 و 64 بیتی جواب دهد اما فقط در ویندوز XP 32 bit تست شده است. در صورتی که کار نکرد لطفا از طریق پیغام خصوصی اطلاع دهید.

محیط اجرایی:
Windows 98/ME/2000
Windows XP/2003/ Vista / 7 / 8 --- 32 & 64 bit

نوع اسمبلر:
Masm32

[xman_1365_x]

با سلام و احترام
دوستان لطفا قوانین سایت و این تاپیک را رعایت کنید،
عدم رعایت قوانین ذکر شده در اولین پست منجر به حذف پست شما و جریمه کاربر خاطی می شود!
با تشکر

[Starless Sky]

توضیح کلی :
بازی نیم (http://fa.wikipedia.org/wiki/%D9%86%DB%8C%D9%85_(%D8%A8%D8%A7%D8%B2%DB%8C))

نکته :
دو تا فایل موجوده . یک نسخه برای اجرا شدن روی DosBox یا محیط مشابه ـه . یکی هم برای اینکه emu8086 شبیه سازی (Emulate) ـش کنین . تنها فرقشون هم Video Mode ـشونه .

برنامه به اسمبلی 8086 ـه و با emu8086 اسمبل میشه . با MASM ، TASM و ... امتحان نکردم متاسفانه .
کد بهینه ای نیست ، ولی کار میکنه دیگه ... :D

[فاطمه_زارع]

سلام میشه سورس کد این سوال رو هم بذارید؟ممنون میشم.
برنامه ای که 5 اسم را گرفته سپس چاپ کند با استفاده از فایل سیستم

[fariba-2]

این چه تاپیک خوبی بوده خوابیده.
دنبال ب. م. بودم. همه جا چهار خط کدو پول مینویسن!!!!

[Shervinmp]

سلام خسته نباشی دوست عزیز
کد برنامه ای که روی 2تا عدد سه رقمی رو 4عمل ضرب و تقسیم و منفی و جمع رو انجام بده
لطفا جواب و به ادرس ایمیلم بفرسین
Shervinmoradpour1378.sh@gmail.com
Id tel:@shervin.mp

[hosseinman]

سلام
میشه یه توضیحی درباره کدش بنویسید.!؟
ممنون میشم

[aboli-ap]

برنامه ای بنویسید که 20عدد را بصورت یک رشته متغیردر ورودی گرفته، آنها را به ترتیب بزرگتر به کوچکتر
مرتب کرده و در آدرس موثری که متغیر به آن اشاره میکند، به ترتیب ذخیره کند

[oboinatali2]

Батуты для детей.Интернет-магазин Lamama предлагает широкий ассортимент спорт комплексов в детскую комнату. У нас можно купить детский спорткомплекс для дома по хорошей цене и лучшего качества. уличные тренажеры для инвалидов колясочников (http://www.sporthappy.com.ua/Trenazheryi_dlya_ulitsyi/Ulichnyie_trenazheryi) супер распродажа от с 10 летней историей завода игровых для дома детские уличные брусья . Производитель игровых комплексов Kiddishop.com.ua доставку осуществляет к Вам домой по всей Украине : Днепр , Запорожье , Львов , Одесса , Ровно , Ужгород , Хмельницкий курьерской компанией Новая почта или транспортом завода без предоплаты в течении 1-3 дней после заказа. Стоимость доставки 1425 грн.