[[Template core/front/global/updateWarning is throwing an error. This theme may be out of date. Run the support tool in the AdminCP to restore the default theme.]]
إليكم مثالا واضحا لكيفية إنشاء العديد من المجلدات بالاعتماد على المقاطعة 21، أتمنى أن يكون الكود مفهوما.
;Hello guys :);I have created a little application with assembly language 16-bit, in order to enter ;to the Assembly language's door, So it just an application that creates a lot of folders ;using the path you put it . :P Let's see the code:;***********************************************************************************; This is a simple program in Assembly language which create a lot of folders. *;It is just for learning purposes, I want always to create an application in such *;language in order to jump this massive hurdle, well, I think a have just do it *;the job, there's no matter to be in the last part of the Stack, because it has *;a concept named LIFO( Last In First Out ), So you must be serious and happy :) * ; *; Coded by: The Hidden Ghost *;***********************************************************************************org 100h ;It's a COM mov ax,0013h ;Set Video Mode int 10h ;Bios interruptmov al,03h ;Set Text Modeint 10h ;Bios interruptmov ax,09000 ;Print a string on Screen [ah = 09h]mov dx,offset szBuff ;Print that string [szBuff]int 21h ;DOS interrupt mov ax,0A00h ;Input a string here please mov dx,offset szBuffIn ;Store the string or the folder path into [szBuffIn]int 21h ;DOS interruptxor bx,bx ;BX = 0mov bl,byte ptr szBuffIn[1] ;strlen(szBuffIn)push bx ;Save the lengthmov byte ptr szBuffIn[bx + 02h],00h ;Jump the extra 2 bytes and put the zero terminatedmov al,bl ;Store the length in al registerxor bx,bx ;BX = 0add bl,02h ;We want start from szBuffIn[2]xor cx,cx ;CX = 00hmov cl,al ;Make a loop like that: for(;length>=0;length--)copy_str:mov dl,byte ptr szBuffIn[bx] ;We copy szBuffIn[bl++] in dl, by the way [bl] equal 02h until nowmov byte ptr szBuffSwf[bx],dl ;szBuffSwf[bl++] = dlinc bl ;Increase bl by one [bl = bl + 01h] loop copy_str ;While(cx-- != 0) mov byte ptr szBuffSwf[bx],'$' ;Put the '$' in the end of the stringmov ax,0900h ;Print a string on Screen [ah = 09h]lea dx,szNewl ;New lineint 21h ;DOS interrupt lea dx,szNewl ;New lineint 21h ;DOS interrupt mov cx,0FFh ;We will create 255 folder [CX = 255]:)pop bx ;Restore the valute of BX which is the length of the string that we put it previouslymov si,bx ;SI = the lengthmov bl,21h; '!' ;We must add a character in the end of the folder name in order to ignore the existence of the created onecreate_folder: mov byte ptr szBuffIn[si+02h],bl ;Add the character stored in [bl] in the endmov byte ptr szBuffIn[si+03h],00h ;Zero terminated mov ax,3900h ;Function to create a folderlea dx,szBuffIn + 02h ;Folder nameint 21h ;DOS interruptmov ah,09h ;Print a string on Screen [ah = 09h]lea dx,szBuffShw ;Print that string [szBuffShw]int 21h ;DOS interrupt mov byte ptr szBuffIn[si+03h],'$' ;Put the '$' in the end of the string mov dx,offset szBuffIn[02h] ;The Folder nameint 21h ;DOS interrupt lea dx,szNewl ;New line makes me happy :)int 21h ;DOS interrupt inc bl ;Increase [bl] by one, so it will add another character to the folder nameloop create_folder ;While(cx-- != 0)xor ah,ah ;AH = 00hadd ah,01h ;Pause screenint 21h ;DOS interruptxor ax,ax ;AX = 00hint 10h ;Return to text moderet ;Return to Operating System szBuffSwf db 100 dup(' ') ;char szBuffSwf[100]szNewl db 0Ah,0Dh,"$" ;("\n\r")szBuff db "Enter your Folder's name here #> ","$" szBuffShw db "Creating folder: ","$"szBuffOut db "XXXXXXXXXXXX",0Ah,0Dh,"$"szBuffIn db 100 dup(' ') ;char szBuffIn[100]
تم النشر منذ (معدل)
السلام عليكم ورحمة الله تعالى وبركاته.
إليكم مثالا واضحا لكيفية إنشاء العديد من المجلدات بالاعتماد على المقاطعة 21، أتمنى أن يكون الكود مفهوما.
;Hello guys :);I have created a little application with assembly language 16-bit, in order to enter ;to the Assembly language's door, So it just an application that creates a lot of folders ;using the path you put it . :P Let's see the code:;***********************************************************************************; This is a simple program in Assembly language which create a lot of folders. *;It is just for learning purposes, I want always to create an application in such *;language in order to jump this massive hurdle, well, I think a have just do it *;the job, there's no matter to be in the last part of the Stack, because it has *;a concept named LIFO( Last In First Out ), So you must be serious and happy :) * ; *; Coded by: The Hidden Ghost *;***********************************************************************************org 100h ;It's a COM mov ax,0013h ;Set Video Mode int 10h ;Bios interruptmov al,03h ;Set Text Modeint 10h ;Bios interruptmov ax,09000 ;Print a string on Screen [ah = 09h]mov dx,offset szBuff ;Print that string [szBuff]int 21h ;DOS interrupt mov ax,0A00h ;Input a string here please mov dx,offset szBuffIn ;Store the string or the folder path into [szBuffIn]int 21h ;DOS interruptxor bx,bx ;BX = 0mov bl,byte ptr szBuffIn[1] ;strlen(szBuffIn)push bx ;Save the lengthmov byte ptr szBuffIn[bx + 02h],00h ;Jump the extra 2 bytes and put the zero terminatedmov al,bl ;Store the length in al registerxor bx,bx ;BX = 0add bl,02h ;We want start from szBuffIn[2]xor cx,cx ;CX = 00hmov cl,al ;Make a loop like that: for(;length>=0;length--)copy_str:mov dl,byte ptr szBuffIn[bx] ;We copy szBuffIn[bl++] in dl, by the way [bl] equal 02h until nowmov byte ptr szBuffSwf[bx],dl ;szBuffSwf[bl++] = dlinc bl ;Increase bl by one [bl = bl + 01h] loop copy_str ;While(cx-- != 0) mov byte ptr szBuffSwf[bx],'$' ;Put the '$' in the end of the stringmov ax,0900h ;Print a string on Screen [ah = 09h]lea dx,szNewl ;New lineint 21h ;DOS interrupt lea dx,szNewl ;New lineint 21h ;DOS interrupt mov cx,0FFh ;We will create 255 folder [CX = 255]:)pop bx ;Restore the valute of BX which is the length of the string that we put it previouslymov si,bx ;SI = the lengthmov bl,21h; '!' ;We must add a character in the end of the folder name in order to ignore the existence of the created onecreate_folder: mov byte ptr szBuffIn[si+02h],bl ;Add the character stored in [bl] in the endmov byte ptr szBuffIn[si+03h],00h ;Zero terminated mov ax,3900h ;Function to create a folderlea dx,szBuffIn + 02h ;Folder nameint 21h ;DOS interruptmov ah,09h ;Print a string on Screen [ah = 09h]lea dx,szBuffShw ;Print that string [szBuffShw]int 21h ;DOS interrupt mov byte ptr szBuffIn[si+03h],'$' ;Put the '$' in the end of the string mov dx,offset szBuffIn[02h] ;The Folder nameint 21h ;DOS interrupt lea dx,szNewl ;New line makes me happy :)int 21h ;DOS interrupt inc bl ;Increase [bl] by one, so it will add another character to the folder nameloop create_folder ;While(cx-- != 0)xor ah,ah ;AH = 00hadd ah,01h ;Pause screenint 21h ;DOS interruptxor ax,ax ;AX = 00hint 10h ;Return to text moderet ;Return to Operating System szBuffSwf db 100 dup(' ') ;char szBuffSwf[100]szNewl db 0Ah,0Dh,"$" ;("\n\r")szBuff db "Enter your Folder's name here #> ","$" szBuffShw db "Creating folder: ","$"szBuffOut db "XXXXXXXXXXXX",0Ah,0Dh,"$"szBuffIn db 100 dup(' ') ;char szBuffIn[100]إلى اللقاء :)
fcreator.zip
تم تعديل بواسطه Hamza+C+ASMشارك هذا الرد
رابط المشاركة
شارك الرد من خلال المواقع ادناه