Библиотеки интерфейсов для использования с FASM

;FASM
;Ѕ»ЅЋ»ќ“≈*ј, пока пустышка, ничего не делаем 
;TYPE.DLL
;вызов процедуры происходит из файла a.exe (a.asm)
 
format PE GUI 4.0 DLL
entry DllEntryPoint
 
include 'd:\fasmw\include\win32a.inc'
 
section '.data' data readable writable
 A1 dd 0
 B1 dd 0
 
section '.text' code readable executable
 
;»Ќ»÷»јЋ»«ј÷»я DLL
proc DllEntryPoint hinstDLL,fdwReason,lpvReserved
    mov eax,TRUE
    ret
endp
 
;собственна¤ процедура, пишем что хотим, при этом из программы 
;получаем параметры, естественно через стек, компил¤тор добавл¤ет свои команды,
;посмотрите в дебагере
 
proc Type A,B
 mov eax,[A]
 mov eax,[B]
 ret
endp
 
;section '.idata' import data readable writeable
;    library kernel32,'KERNEL32.DLL'
;    include 'd:\fasmw\include\api\kernel32.inc'
 
section '.edata' export data readable
    export 'Type.DLL',\
          Type,'Type'
 
section '.reloc' ;fixups data discardable
 data fixups
 end data
 rb 4

;FASM
;Программа ничего не выводит на экран, консольная
;программа работает совместно с DLL которая написана для эксперимента
 
 
format PE CONSOLE                    ;пишем консоль под Win32     
entry start                      ;укажем транслятору точку входа в код
include 'd:\fasm\include\win32a.inc'
 
section '.PUT' data readable writable            ;собственно секция данных      
            
                    DROB  DB  'qwerty',0     
                      asd DD 0
 
section '.code' code readable executable         ;начало секции кода
 
 
start:  
 
 mov [asd],1
 
;процедура вызывается из своей DLL, Type.DLL
;передаем параметры 
 
 invoke Type, DROB, [asd]
 
;Выход в Windows
 invoke ExitProcess, 0
 
 
 section '.idata' import data readable writeable
 
 library kernel32,'KERNEL32.DLL',\
       userl32,'USER32.DLL',\
       Type,'Type.DLL'     
 
 include 'd:\fasm\include\api\kernel32.inc'
 
 include 'd:\fasm\include\api\user32.inc'
 
 import Type,\
       Type,'Type'

CreateWindowExA PROTO :DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD,:DWORD
CreateWindowEx equ <CreateWindowExA>

format ELF
 
include 'cdecl.inc'
include 'gtk.inc'
 
public main
 
; extrn blah
 
extrn gtk_init
extrn gtk_window_new
extrn gtk_widget_show
extrn gtk_main
 
; section '.data' writeable
 
section '.bss' writeable
 
    hWindow         dd ?
 
section '.text' executable
 
proc main argc, argv
 
    lea eax, [argc]
    lea ebx, [argv]
 
    ccall gtk_init, eax, ebx
 
    ccall gtk_window_new, GTK_WINDOW_TOPLEVEL
    mov [hWindow], eax
 
    ccall gtk_widget_show, [hWindow]
 
    call gtk_main
 
    ret
 
endp