--- fasm\SOURCE\DLL\FASM.ASM Wed Oct 27 20:55:56 2010 UTC +++ fasm\SOURCE\DLL\FASM_DLL_OBJ.ASM Fri Dec 17 16:57:35 2010 UTC @@ -3,8 +3,15 @@ ; Copyright (c) 1999-2006, Tomasz Grysztar. ; All rights reserved. -format PE DLL GUI 4.0 -entry DLLEntryPoint +format MS COFF + +extrn '_CreateFileA@28' as CreateFile:dword +extrn '_ReadFile@20' as ReadFile:dword +extrn '_SetFilePointer@16' as SetFilePointer:dword +extrn '_CloseHandle@4' as CloseHandle:dword +extrn '_WriteFile@20' as WriteFile:dword +extrn '_GetSystemTime@4' as GetSystemTime:dword +extrn '_GetEnvironmentVariableA@12' as GetEnvironmentVariable:dword include 'win32a.inc' include 'fasm.ash' @@ -30,10 +37,6 @@ section '.code' code readable executable -DLLEntryPoint: - mov eax,TRUE - ret 12 - fasm_GetVersion: mov eax,VERSION_MAJOR + VERSION_MINOR shl 16 ret @@ -46,7 +49,8 @@ jmp setup_assembler -fasm_Assemble: +public _fasm_Assemble +_fasm_Assemble: virtual at esp+4 lpSource dd ? @@ -425,32 +429,3 @@ copyright db 'Copyright (c) 1999-2010, Tomasz Grysztar',0Dh,0Ah null_byte db 0 - -section '.idata' import data readable writeable - - library kernel32,'KERNEL32.DLL' - - include 'api\kernel32.inc' - -section '.edata' export data readable - - export 'FASM.DLL',\ - fasm_GetVersion,'fasm_GetVersion',\ - fasm_Assemble,'fasm_Assemble',\ - fasm_AssembleFile,'fasm_AssembleFile' - -section '.reloc' fixups data discardable - -section '.rsrc' resource data readable - - directory RT_VERSION,versions - - resource versions,\ - 1,LANG_NEUTRAL,version - - versioninfo version,VOS__WINDOWS32,VFT_APP,VFT2_UNKNOWN,LANG_ENGLISH+SUBLANG_DEFAULT,0,\ - 'FileDescription','flat assembler',\ - 'LegalCopyright',<'Copyright ',0A9h,' 2001-2010 Tomasz Grysztar.'>,\ - 'FileVersion',VERSION_STRING,\ - 'ProductVersion',VERSION_STRING,\ - 'OriginalFilename','FASM.DLL'