9 replies to this topic

[Ward]

This UDF is similar to my previous Inline Assembly UDF, but only better. Because this one uses flat assembler, a open source and powerful assembler. See http://flatassembler.net/. Thanks to XDa from http://www.opensc.ws/ provide a "fasm.dll". So my job is just easy, warp it using my MemoryDll UDF.

The usage is also similar to previously, but a kind of different. FasmGetFuncPtr() will compile the source and return the address ready to be call. And FasmGetBasePtr() only return the base address without compiling and error handling. FasmGetBasePtr() is added for "org" directive.

Have fun. Maybe also take a look at AndyG's Fractals script.

FASM.zip (55.47K)
Number of downloads: 127

2010/03/19 Update Note:
# Embedded FASM version update to v1.68
# Add OOP version using AutoItObject, thanks to AutoItObject-Team
# New examples
# Better error handling, can handle errors in macro now
FASM.zip (141.76K)
Number of downloads: 601

2011/06/14 Update Note:
# Embedded FASM version update to v1.69
# AutoItObject UDF version update to v1.2.8.0
# MemoryDLL UDF update to X64 supported version
# New BinaryCall UDF to run a machine code in "Binary" format
# Add FASMServer and FASMServerDemo, demonstrate embedded assembly in AutoIt X64
# Add fast BinaryXOR function (Both X86/X64) as an example (in FASMServerDemo2)
 FASM.zip   119.63K   780 downloads

Edited by Ward, 03 June 2011 - 10:24 PM.

[AndyG]

Hi.....

what can i say other than THANK YOU!

Andy

[Beege]

Thanks a lot for this sharing this ward. Great little examples too. Very helpful. 5*.

[Beege]

Do you know if there is a way I can pass parameters to the autoit functions?

[monoceres]

Do you know if there is a way I can pass parameters to the autoit functions?

Check out DllCallbackRegister.

[Ward]

Do you know if there is a way I can pass parameters to the autoit functions?

It is easy:

Plain Text        expandcollapse  popup

#include "FASM.au3"
Dim $Fasm = FasmInit()
Demo7()

Func Demo7()
    ; Demo 7: Call AutoIt Func From Assembly And Pass Parameters
    $AutoItFunc = DllCallbackRegister("AutoItFunc2", "int", "str;uint;uint")
    FasmReset($Fasm)
    FasmAdd($Fasm, "use32") 
    FasmAdd($Fasm, "org " & FasmGetBasePtr($Fasm))
    FasmAdd($Fasm, "rdtsc")
    FasmAdd($Fasm, "push eax")
    FasmAdd($Fasm, "push edx")
    FasmAdd($Fasm, "push s1")
    FasmAdd($Fasm, "call " & DllCallbackGetPtr($AutoItFunc))
    FasmAdd($Fasm, "ret")
    FasmAdd($Fasm, "s1: db 'RDTSC = %08X%08X', 0")
    ConsoleWrite(String(FasmGetBinary($Fasm)) & @CRLF)
    $Ret = MemoryFuncCall("int", FasmGetFuncPtr($Fasm))
    DllCallbackFree($AutoItFunc)
EndFunc

Func AutoItFunc2($String, $Edx, $Eax)
    MsgBox(0, "AutoItFunc", StringFormat($String, $Edx, $Eax))
EndFunc

[Beege]

Thanks ward. That helped a lot.
But now I'm confused on why the data in s1 gets set after the 'ret'. I figured it would be the other way around.

FasmAdd($Fasm, "s1: db 'RDTSC = %08X%08X', 0")
FasmAdd($Fasm, "ret")

Anyway, just another item on the list of "things to read and learn about." Thanks again.

Edited by Beege, 17 March 2010 - 06:00 PM.

[trancexx]

Object version is refreshing.

Thanks Ward.

[Ascend4nt]

Excellent job again Ward.

Out of curiosity, since FASM supports x64 code ('use64'), what would you say the chances are of someday compiling & integrating a 64-bit DLL. I'm getting well versed in x64 code so I'd be able to provide 64-bit versions of the Examples for ya.

Thanks again for all your work
Ascend4nt

[Ward]

This UDF is updated to support AutoIt X86/X64.