| |
| |
|
| - Página 1 - |
|
Frank
Abbing | ¡Hola,
debería el una u otros una interessanten Profano-Ensamblador Code escribir, werd Yo, el natürlich gerne con el el XPIA Paket aufnehmen. |
|
| |
| |
| |
|
|
| |
| |
| - Página 1 - |
|
Michael
Dell | Expediente- Kopieren & Expediente- Anhängen
[box:057332201c]Achtung!!! - XPIA producido sólo el Source (LAST.ASM & LAST.DEF)
para erzeugen el DLL se MASM32v8.2 SP2 benötigt![/box:057332201c]
KompilierenMarcaSeparación {$Clq}
Declare FC_FileIn$,FC_FileOut$,FC_Erg&,FA_FileIn$,FA_FileOut$,FA_Erg&
FC_FileIn$ = "TEST1.DAT"
FC_FileOut$ = "TEST2.DAT"
FA_FileIn$ = FC_FileIn$
FA_FileOut$ = FC_FileOut$
Cls
Print ("Kopiere " + FC_FileIn$ + " nach " + FC_FileOut$ + ". Bitte Warten...")
ASMSTART fCopy
Parameters Addr(FC_FileIn$),Addr(FC_FileOut$)
Return FC_Erg&
Local fHndl1 :DWORD
Local fHndl2 :DWORD
Local InCnt :DWORD
Local OutCnt :DWORD
Local Count :DWORD
Local GesCnt :DWORD
Local BuffAdd :DWORD
Start:
mov Count, 983040
mov BuffAdd, alloc(Count)
invoke exist, para1
jz Ende
invoke exist, para2
jz Weiter1
invoke SetFileAttributesA, para2, 32
invoke SetFileAttributesA, para2, 128
invoke DeleteFileA, para2
Weiter1:
mov GesCnt, 0
mov fHndl1, fopen(para1)
mov fHndl2, fcreate(para2)
Weiter2:
mov GesCnt, fseek(fHndl1,GesCnt,0)
fseteof fHndl2
mov InCnt, fread(fHndl1, BuffAdd, Count)
mov OutCnt, fwrite(fHndl2, BuffAdd, InCnt)
mov eax, GesCnt
add eax, InCnt
mov GesCnt, eax
mov eax, OutCnt
sub eax, Count
jz Weiter2
fclose fHndl1
fclose fHndl2
Ende:
free BuffAdd
Xor eax, eax
ASMEnd
Print
Print "Taste..."
WaitKey
Print ("Füge " + FC_FileIn$ + " zu " + FC_FileOut$ + " hinzu. Bitte Warten...")
ASMSTART fApp
Parameters Addr(FA_FileIn$),Addr(FA_FileOut$)
Return FA_Erg&
Local fHndl1 :DWORD
Local fHndl2 :DWORD
Local InCnt :DWORD
Local OutCnt :DWORD
Local Count :DWORD
Local GesCnt :DWORD
Local GesCnt2 :DWORD
Local BuffAdd :DWORD
Start:
mov Count, 983040
mov BuffAdd, alloc(Count)
invoke exist, para1
jz Ende
invoke exist, para2
jz Ende
mov GesCnt, 0
mov GesCnt2, 0
mov fHndl1, fopen(para1)
mov fHndl2, fopen(para2)
;fseteof fHndl2
mov GesCnt2, fseek(fHndl2,0,FILE_END)
Weiter2:
mov GesCnt, fseek(fHndl1,GesCnt,0)
mov GesCnt2, fseek(fHndl2,GesCnt2,0)
mov InCnt, fread(fHndl1, BuffAdd, Count)
mov OutCnt, fwrite(fHndl2, BuffAdd, InCnt)
mov eax, GesCnt
add eax, InCnt
mov GesCnt, eax
mov eax, GesCnt2
add eax, OutCnt
mov GesCnt2, eax
mov eax, OutCnt
sub eax, Count
jz Weiter2
fclose fHndl1
fclose fHndl2
Ende:
free BuffAdd
Xor eax, eax
ASMEnd
Print
Print "Taste zum Beenden..."
WaitKey
End
include c:masm32macrosmacros.asm
includelib c:masm32libmsvcrt.lib[/box:057332201c]
Corrección al: 11.10.05 |
|
| |
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 09.10.2005 ▲ |
|
| |
|
|
| ¡Hola Michael,
sieht sí muy interessant de, dein letztes Ejemplo. El vorigen bestanden sí meist sólo API-Aufrufen por Makro (invoke). Como largo hast Usted gebraucht, ASM soweit a aprender, sería mich sí auchmal ransetzen ASM a aprender. Bisher tener Yo siempre antes el ersten Erfolgen abgebrochen  |
|
| |
| |
| |
|
|
 | ASM lernt uno eigendlich a una einzigen Tag. 
El wichtigsten Finessen ha una continuación así después de uno Semana en él.
Danach feilt uno sólo todavía al Stil.
ASM es absolut el einfachste Lingua - uno muß sólo sólo Jonglieren puede. 
Salve. |
|
| |
| |
| |
|
|
Michael
Dell | Richtig,
is no soo kompliuiert wies aussieht. Mein Problema es más, no el oft logischer wirkende Syntax de Hochsprachen con el direkteren de Ensamblador a verwechseln. Am meisten lern Hice Macros y el Sourcen para el Libs.
Hier gibts Base- Beispiele: [...] 
Und hier el berühmte Interrupt- Liste de Ralf Brown: [...] |
|
| |
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 09.10.2005 ▲ |
|
| |
|
|
| @M.Dell
No ya otra vez  , tener me ya una Assemblerbuch gekauft, el sólo en DOS y Interrupts eingeht. Yo habe kein DOS y yo möchte sólo ASM para 32-Bit, also FLAT erlernen. Kann el Beispiele para DOS sí todavía no veces testen.
Gibts el nichts para 32-Bit only. Nur ne Anleitung para el Adressierungsarten y el ganzen otro Befehle  |
|
| |
| |
| |
|
|
Michael
Wodrich | Ensamblador-Anleitung vom Guru Iczelion (simplemente googlen). Como es auch irgendwo una Übersetzung de ihm en Alemán en el Netz (ICZTUTES).
Oft helfen auch el Ensamblador-Foren más.
Schöne Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 10.10.2005 ▲ |
|
| |
|
|
| @TS:
32-Bit Asm heist doch eigendlich nix más como el Handling de:
a) Registern
b) Speicherbereichen
b) Stack
c) Apis
Für el Registermanipulation son Befehle como mov add inc dec xor etc. zuständig, para el Manipulation de Speicherbereichen weist uno primero el Adresse des Mems una Register a y manipuliert esta anschließend en [seekpos] Schreibweise, para el Stack gibts Push & Pop, y el Apis voluntad por Call aufgerufen después de uno el Parámetro en umgekehrter Reinfolge en el Stack gepackt ha. (Der BackVal cada Api landet en eax].
Das wars auch en el Großen y Ganzen.
Dann gibts natürlich todavía el Labels (para gotos/ jmp & Compareanweisungen) y luego kommt auch ya el highlevel-Krahm. (Macros / ifs y whiles en lugar de cmp & cmp)
Como gibts nix groß a aprender.
Salve. |
|
| |
| |
| |
|
| |
| |
| - Página 2 - |
|
|
| Exactamente darüber, qué IF schrieb, brauche Yo Dokus, sin 16-Bit Ballast. Werde trotzdem veces el dt. tuts durcharbeiten. Gibt de paso bajo: [...]
ASM voluntad Yo ya schaffen |
|
| |
| |
| |
|
|
Michael
Dell | Hi,
entonces schau mal en el MASM32 Ordner FPULIB & M32LIB hay gibts viele kleine Sourcen de el Libs, Beispiele de el Leben sozusagen y sin el ganzen 8/16-Bit Balast. |
|
| |
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 10.10.2005 ▲ |
|
| |
|
|
Frank
Abbing | Hi.
Und les dir en el XPIA-Anleitrung media Crash-Kurs por. Como lernste ya el wichtigste. |
|
| |
| |
| |
|
|
Michael
Dell | LowWord, HighWord, LowByte & HighByte para Profano antes v7.x
Hier se sólo el DLL producido!
KompilierenMarcaSeparación {$q}
Declare IN&,ERG&
ASMSTART lWord
Parameters IN&
Return ERG&
mov ebx,para1
and ebx,65535
xor eax,eax
mov eax,ebx
ASMEND
ASMSTART lByte
Parameters IN&
Return ERG&
mov ebx,para1
and ebx,255
xor eax,eax
mov eax,ebx
jnz ENDE
add eax,1
ENDE:
ASMEND
ASMSTART hWord
Parameters IN&
Return ERG&
mov ebx,para1
shr ebx,16
xor eax,eax
mov eax,ebx
jnz ENDE2
sub eax,1
ENDE2:
ASMEND
ASMSTART hByte
Parameters IN&
Return ERG&
mov ebx,para1
shr ebx,8
xor eax,eax
mov eax,ebx
ASMEND
|
|
| |
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 22.10.2005 ▲ |
|
| |
|
|
Michael
Dell | Profano- Programas erkennen! (16/32Bit)
KompilierenMarcaSeparación***** Start: ISPROFANPROG.DLL *****
{$q}
Returnwerte: -2 = Dateiformat wird nicht unterstützt.
-1 = Datei nicht gefunden.
0 = ist kein Profan- Programm.
1 = ist ein Profan- Programm(32Bit).
2 = ist ein Profan- Programm(16Bit).
AsmStart IsProfanProg (Addr(File1$))
Local IPP_fH1 :DWORD
Local IPP_Dummy :DWORD
Local IPP_Haddr0 :DWORD
Local IPP_Haddr1 :DWORD
Local IPP_Buff1 :DWORD
Local IPP_Erg :DWORD
Start:
mov IPP_Haddr0, 0
mov IPP_Erg, 0
invoke exist,para1
jnz IPP_Weit
mov IPP_Erg, -1
jmp Ende
IPP_Weit:
invoke SHGetFileInfoA,para1,0,0,0,8192
.IF eax==51004750 ; Win16
mov IPP_Haddr1,112
.ELSEIF eax==67126608 ; Win32
mov IPP_Haddr1,128
.ELSE
mov IPP_Erg, -2
jmp Ende
.ENDIF
mov IPP_Buff1, alloc(11)
mov IPP_fH1, fopen(para1)
mov IPP_Dummy, fseek(IPP_fH1,IPP_Haddr1,FILE_BEGIN)
mov IPP_Dummy, fread(IPP_fH1,addr IPP_Haddr0,4)
mov IPP_Dummy, fseek(IPP_fH1,IPP_Haddr0,FILE_BEGIN)
mov IPP_Dummy, fread(IPP_fH1,IPP_Buff1,11)
invoke lstrcmpiA,SADD(" RGH-PROFAN"),IPP_Buff1
mov IPP_Dummy, eax
fclose IPP_fH1
free IPP_Buff1
.if IPP_Dummy==0
mov IPP_Erg, 1
cmp IPP_Haddr1,112
jne Ende
mov IPP_Erg, 2
.endif
Ende:
mov eax, IPP_Erg
AsmEnd (ERG&)
End
***** Ende: ISPROFANPROG.DLL *****
***** Start: Test Programm *****
Def IsProfanProg(1) ! "ISPROFANPROG.DLL","IsProfanProg" <-- Bitte Anpassen
Declare fName$,Erg1&
Cls
fName$ = "C:\IRGENDWAT\TEST.EXE" <-- Bitte Anpassen
Erg1& = IsProfanProg(Addr(fName$))
Print
Print ("Returnwert: -2 = Dateiformat wird nicht unterstützt.
-1 = Datei nicht gefunden.
0 = ist kein Profan- Programm.
1 = ist ein Profan- Programm(32Bit).
2 = ist ein Profan- Programm(16Bit).
--> " + Str$(Erg1&) + " <--")
waitinput
End
***** Ende: Test Programm *****
|
|
| |
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 01.06.2006 ▲ |
|
| |
|
(1.173)
Deutsch
English
Français
Español
Italia