iexpress ile denedinmi?

Al bakalım bunu kendine göre düzenlersin: Kod: ;masm mpg. asm >> link mpg. asm >> mpg. exe end error:29.4.2000 stackseg segment stack db 5 dup stackseg ends bilgiseg segment dosadi db '14 dup ' ;k ‡ k dosya ad n asc z yap yedosadi db 14 dup ;b y k dosya ad n asc z yap. hata01 db 'Uncurrent fonction number.$';ge‡ersiz fonksiyon numaras hata02 db 'File not found.$' hata03 db 'Directory not found.$' hata04 db 'Many files open same times.$' hata05 db 'Access denied.$' hata06 db 'Uncurrent Handle number.$' hata07 db 'Memory Control Block.$' hata08 db 'Memory not enough.$' hata09 db 'Uncurrent Memory Control Block.$' hata10 db 'Uncurrent environment.$' hata11 db 'Uncurrent Format.$' hata12 db 'Uncurrent Access code.$' hata13 db 'Uncurrent Data.$' hata15 db 'Driver number not found your system.$' hata16 db 'It want to erase in doroctery.$' hata17 db 'Different Device$' hata18 db 'not another file.$' hata20 db 'K ‡ k Dosyalar n birleŸece§i b y k dosya zaten var. Farkl bir dosya ad giriniz.$' hata99 db 'Not known ERROR.$' buf db 10000 dup ;bilgiler. onbiner olarak oku ve yaz. dep29 dw? ;ds yi tutar mes4 db 'Mpg BirleŸtirici ver.0.1 10.9.2000 Yazan: Nihat Yorganc ',0dh,0ah db 0dh,0ah db 'Bu program . mpg uzant l film klibi dosyalar n birleŸtirir.',0dh,0ah db 'MPG uzant l dosyalar birbirleriyle birleŸtirdi§imizde tek bir klip',0dh,0ah db 'gibi iŸlem g"r yor ve seyredebiliyorsunuz. "rnegin 50 mb. l k iki adet',0dh,0ah db ' . mpg uzant l dosyay rahatl kla birleŸtiriyor. BirleŸtirmeyi son',0dh,0ah db 'dosyan n bitti§i yerden itibaren ikinci dosyay eklemek suretiyle',0dh,0ah db 'yap yor. BaŸka bir de§iŸiklik yapm yor. . mov, . dat vs. dosyalar ',0dh,0ah db 'denemedim. Zannederim bu dosyalar birleŸtiremez. nk ‡o§u film',0dh,0ah db 'dosyas n n ilk bir ka‡ y z bayt nda filmle ilgili teknik bilgiler',0dh,0ah db 'yer al yor. TMrne§in: Yazar , ka‡ fremadan oluŸtu§u, filmin uzunlu§u',0dh,0ah db 'ekran boyutu vs. Fakat . mpg uzant l dosyalarda bu b"l m olmad § ',0dh,0ah db 'i‡in analog filmler gibi kolayl kla birleŸtirilebiliyor.',0dh,0ah db ' Windows alt nda ‡al Ÿan hexedit, ultra edit gibi programlarla da',0dh,0ah db 'ayn birleŸtirme yap labilir fakat uzun dosyalar birleŸtirirken ',0dh,0ah db 'bu programlar RAM yetersizli§i nedeniyle hata vermektedir.' db 0dh,0ah db 0dh,0ah db 0dh,0ah db 'Devam etmek i‡in bir tuŸa bas n z... Esc k Ÿ',0dh,0ah db '$' satir db 0dh,0ah,'$' ;bir alt sat ra ge?. ses db 7,'$' handle dw? ; dosya handlesi. handle1 dw? ;yedek dosya handlesi dep5 db? ;1 ise hata var. k r lacak dosya yok. dep1 dw? ;okunan dosyan n ka‡ bayt okunmuŸ. dep3 dw? ;1 ise bak uzant l dosya var. yeniden yaratma mebuyuk db 'Dosya ismi 8 harfi ge‡meyen BirleŸilecek dosyay yaz n z.',0dh,0ah db 'Sonra Entere Bas n z. kmak i‡in tuŸlar na bas n z.',0dh,0ah db ' : ' db '$' mekucuk db 'Dosya ismi 8 harfi ge‡meyen birleŸecek dosyay yaz n z.',0dh,0ah db 'Sonra Entere Bas n z. kmak i‡in tuŸlar na bas n z.',0dh,0ah db '$' mekuc1 db 0dh,0ah db '("rn:bolum1. mpg) : ' db '$' medevam db 'BirleŸtirilecek baŸka dosya varsa herhangi bir tuŸa bas n z. Yoksa', 0dh,0ah db '‡ kmak i‡in ESC tuŸuna bas n z.',0dh,0ah db '$' bilgiseg ends progseg segment anap proc far assume cs:progseg assume ds:bilgiseg assume ss:stackseg basla: push ds mov ax,0 push ax mov ax, bilgiseg mov ds, ax mov dep29, es mov es, ax ;renamede laz m oluyor. call cls ; call isim ;ilk a‡ klamalar yaz. ekrana yaz. call kabek ;bir tuŸa bas lmas n bekle cmp ah,1 ;esc ye bas lm Ÿsa ‡ k je cik call dosyaal ;klavyeden dosya ad al. call buyukdos ;b y k dosyay yarat. cmp dep5,1 je cik; hata var dosa d"n. dongu: call kosyaal ;klavyeden k ‡ k dosya ad n al. call kucukac ;k ‡ k dosyay a‡. b y §e yaz ve k ‡ § kapat. cmp dep5,1 je cik1;hata var dosa d"n. b y k dosyay kapat. call varmi ;birleŸecek baŸka dosya varm call kabek ;bir tuŸa bas lmas n bekle cmp ah,1 ;esc ye bas lm Ÿ ‡ k je cik1; dosa d"n birleŸtirecek dosya kalmam Ÿ. jmp dongu ;birleŸtirmeye devam cik1: call yekapat ;b y k dosyay kapat. cik: ret ;dosa d"n anap endp ;bunu dosya sonuna yazma acik proc near ;a‡ klamalar call cls lea dx, mebuyuk call metin ret acik endp cls proc near ;ekran? sil. ;int 10'u cls de kullanma. push es mov ax,0b800h ;renkli ekran adresini al mov es, ax mov bx,0 ;ekran n sol st kenar xor ax, ax mov cx,2000 ;ekrandaki bayt say s .4000 ̃n yar s hoppa1: mov byte ptr es: , al inc bx ;renklere dokunma inc bx loop hoppa1 pop es ret cls endp metin proc near ;lea dx ile y?klenen metni yazar. ctrl+break kon. yapmaz. mov di, dx mebi1: mov al, cmp al,'$' je mebit mov dl, al mov ah,6 int 21h inc di jmp mebi1 mebit: ret metin endp isim proc near ; lea dx, mes4 call metin mov cx,2 isim1: lea dx, satir ;on adet boŸ sat r alttan itibaren ekle. push cx call metin pop cx ;belki de§iŸir. loop isim1 ret isim endp yeyarat proc near ;yedek dosyay yarat. mov cx,0 ;atrip normal lea dx, yedosadi ;yedek dosya ad ascii add dx,2 ;klavyeden girdi§inden ilk iki bayt maksimum karekteri tutuyor. mov ah,03ch ;dosya yarat int 21h jc yyhata mov handle1, ax ;handleyi sakla. yyhata: ret yeyarat endp yedekac proc near ;dosyay okuma modunda a‡. mov al,0 ;dosyay okuma modunda a‡.1=yazma 2=oku-yaz.1 yaparsan okurken acces denied mesaj n veriyor. lea dx, dosadi add dx,2 ;ilk iki bayt maksimum karekteri tutuyordu. mov ah,03dh ;dosya a‡ int 21h jc yehata mov handle, ax ;'handleyi sakla yehata: ret yedekac endp dosoku proc near ;dosyay oku mov ah,03fh ;oku mov bx, handle mov cx,10000 lea dx, buf ;yaz lacak yer. int 21h ret dosoku endp yeyaz proc near ;yedek dosyay yaz. mov cx, dep1 ;yaz lacak bayt adedi mov ah,40h ;yaz mov bx, handle1 ;yede§e yaz. lea dx, buf ;bilgilerin bulundu"u segment int 21h ret yeyaz endp dokapat proc near ;as l dosyay kapat mov ah,03eh ;k ‡ k dosyay kapat mov bx, handle int 21h ret dokapat endp yekapat proc near ;yedek dosyay kapat mov ah,03eh ;a‡ k dosyay kapat mov bx, handle1 int 21h ret yekapat endp uyses proc near ;uyar sesi lea dx, ses ;7 rakam n uyar sesi olarak alg l yor. call metin ret uyses endp dosyok proc near ;K r lacak dosya yok hatas . AX de. push ax ;hata numaras ax lea dx, satir ;boŸ sat r call metin pop ax cmp ax,01 jne hat2 lea dx, hata01 jmp habit hat2: cmp ax,02 jne hat3 lea dx, hata02 jmp habit hat3: cmp ax,03 jne hat4 lea dx, hata03 jmp habit hat4: cmp ax,04 jne hat5 lea dx, hata04 jmp habit hat5: cmp ax,05 jne hat6 lea dx, hata05 jmp habit hat6: cmp ax,06 jne hat7 lea dx, hata06 jmp habit hat7: cmp ax,07 jne hat8 lea dx, hata07 jmp habit hat8: cmp ax,08 jne hat9 lea dx, hata08 jmp habit hat9: cmp ax,09 jne hat10 lea dx, hata09 jmp habit hat10: cmp ax,10 jne hat11 lea dx, hata10 jmp habit hat11: cmp ax,11 jne hat12 lea dx, hata11 jmp habit hat12: cmp ax,12 jne hat13 lea dx, hata12 jmp habit hat13: cmp ax,13 jne hat15 lea dx, hata13 jmp habit hat15: cmp ax,15 jne hat16 lea dx, hata15 jmp habit hat16: cmp ax,16 jne hat17 lea dx, hata16 jmp habit hat17: cmp ax,17 jne hat18 lea dx, hata17 jmp habit hat18: cmp ax,18 jne hat20 lea dx, hata18 jmp habit hat20: cmp ax,20 jne hat99 lea dx, hata20 jmp habit hat99: ; cmp ax,99 ; jne hason ;yaz lmayan hata var. lea dx, hata99 habit: call metin call uyses mov dep5,1 ;hatay bildir. ;hason: ret dosyok endp kabek proc near ;karekter bekle mov ah,0 int 16h ret ;karekter ah de. kabek endp bakkon proc near ;yedek dosya varm . varsa dep3,1. mov al,0 lea dx, yedosadi add dx,2 ;ilk iki bayt klavyeden girdi§inden maksimim karekteri g"steriyor. mov ah,03dh ;a‡maya ‡al Ÿ. int 21h jc yokmus ;yeni dosya yaratabilirsin. mov dep3,1 ;zaten b"yle bir dosya var. de§iŸtirme mov bx, ax ;file handleyi ver mov ah,03eh ;dosyay kapat int 21h ret yokmus: mov dep3,0 ;b y k dosya yok. ret bakkon endp ; burdan itibaren dosyaad yaz. dosyaal proc near ;klavyeden b y k dosya ad n al. call acik ;ekrana a‡ klamay yaz. lea bx, yedosadi mov al,13 mov , al ;azami karekter say s n ilk bayta koy lea dx, yedosadi ;1. bayt girilecek azami harf,2. harf ger‡ekte girilen harf mov ah,0ah int 21h inc bx ;girilen ger‡ek karektere gel. xor ax, ax mov al, ;ger‡ek karekteri al. inc bx;girilen ilk karektere gel. add bx, ax ;0d nin oldu§u karektere gel. Enter iŸareti mov , ah ;s f r koy. asc z yapmak i‡in. ret dosyaal endp buyukdos proc near ;b y k dosyay yarat. call bakkon ;b y k dosya varm . dep3 e koy.1 ise var. cmp dep3,1 je hatam ;varda hatali call yeyarat ;b y k dosyay yarat. jc hatali ;dosya yarat lamad . hatal . ret hatam: mov ax,20 ;hata numaras n bildir. hatali: call dosyok ;dosya yok hatas . ax te hata numaras var. ret buyukdos endp kosyaal proc near ;klavyeden k ‡ k dosya ad n al. call kacik ;ekrana a‡ klamay yaz. lea bx, dosadi ;k ‡ k dosya ad . mov al,13 ;azami karekter. mov , al ;azami karekter say s n ilk bayta koy lea dx, dosadi ;1. bayt girilecek azami harf,2. harf ger‡ekte girilen harf mov ah,0ah int 21h inc bx ;girilen ger‡ek karektere gel. xor ax, ax mov al, ;ger‡ek karekteri al. inc bx;girilen ilk karektere gel. add bx, ax ;0d nin oldu§u karektere gel. Enter iŸareti mov , ah ;s f r koy. asc z yapmak i‡in. ret kosyaal endp kacik proc near ;k ‡ k dosya a‡ klamas call cls lea dx, mekucuk call metin lea dx, mekuc1 call metin lea bx, mekuc1 add bx,12 ;1 yazan yere gel. mov al, ;bir artt r.0-9 aras arts n cmp al,39h je kac1 inc al kac2: mov , al ret kac1: mov al,30h ;9 dan sonra 0 yap. jmp kac2 kacik endp kucukac proc near;k ‡ k dosyay a‡ call yedekac ;k ‡ k dosyay a‡. jc hatalim ;hata var okudevam: call dosoku ;k ‡ k dosyay oku jc hatalim ;hata var. mov dep1, ax ;Okunan bayt adedi Ax. te. sakla. call yeyaz ;b y k dosyaya yaz. jc hatalim cmp ax,10000 ;okunan bayt adedi ax te jb okuson ;dosya sonuna gelmiŸmi 10 binden k ‡ kse sonuna gelmiŸ. jmp okudevam okuson: call dokapat ;k ‡ k dosyay kapat. jc hatalim ;hata varsa xor ax, ax;ileride kullan laca§ i‡in mov dep1, ax ; lea bx, dosadi ;s f rlamak i‡in mov cx,14 sif1: mov , al inc bx loop sif1 ret hatalim: call dosyok ;dosya yok hatas . ax te hata numaras var. ret kucukac endp varmi proc near; birleŸecek dosya varm mesaj call cls lea dx, medevam call metin ret varmi endp progseg ends end basla

S. a Arkadaşlar acil asm ile 2 exeyi birleştirmem gerekiyor, virüs vs. değil amacım yaz ödevim var mesela 1 exeyi açınca 2. exede açılıcak binderler olmaz çünkü virüs oluyor. lütfen yardım.

aynen... istersen yardımcı olalım "iexpress" konusunda...

iexpress kullanıorum ben gayet basit kullanışlı ^^