Форум на Исходниках.RU

fasm & dll

potor — Tue, 27 Apr 2004 07:34:54 +0000

potor:

Цитата

Только что-то хреново, посылаю ноль на все три адреса, а лампочки горят...

схему подключения и кусок проги

здесь, что касается DOS и Win9x

Здесь под Windows

fasm & dll

Гость favst — Tue, 27 Apr 2004 07:03:27 +0000

Гость favst: Стандартные это 278, 378, 3BC? А как определить, какой из них использовать? Эта прога писалась под win98, под 2000 я юзал WinIo
WinIo
Только что-то хреново, посылаю ноль на все три адреса, а лампочки горят... Может, имеет значение, что куда заземлять (не успел проверить)? И как юзать через CreateFile?

fasm & dll

potor — Mon, 26 Apr 2004 07:53:21 +0000

potor:

Цитата

И еще, как в 2000/xp получить доступ к LPT порту, в частности, узнать его адрес? Не считайте оффтопиком, это все из той же программы

адреса у LPT стандартные
дело в том, что при попытке выполнить команды IN и OUT из 3-го ринга, будет вызвано исключение, поэтому нужно работать через WinAPI (CreateFile, ReadFile и WriteFile)

fasm & dll

Гость favst — Mon, 26 Apr 2004 06:38:36 +0000

Гость favst: Ладно, под win2000 все компилится... Вопрос в том, почему не работает под win98. И еще, как в 2000/xp получить доступ к LPT порту, в частности, узнать его адрес? Не считайте оффтопиком, это все из той же программы.

fasm & dll

johnfound — Mon, 19 Apr 2004 23:10:30 +0000

johnfound: Вот ето у меня компилиться без всяких проблем в Fresh. В FASM тоже должно быть так, только я изпользую stdcallEx.inc макросы для proc. Но с "enter" тоже должно работать.
В програме есть глюки, но она вполне работает.
Кстати, "equ" оператор имеет особое значение в FASM-е и лучше не изпользуйте его. В 99% от случаев, надо изпользовавть "=" а не "equ".

format pe console

entry lEntry

include '%finc%\win32\win32a.inc'

section '.data' data readable writeable

hInput dd ?

hOutput dd ?

dwInputLength dd ?

dwOutputLength dd ?

sCommand rb 0FFh

dwCommandLength dd ?

sPrompt db 'command>'

PROMPT_LENGTH = 08h

sOnFirst db '1+'

sOnSecond db '2+'

sOffFirst db '1-'

sOffSecond db '2-'

sQuit db 'quit'

ON_FIRST_LENGTH = 02h

ON_SECOND_LENGTH = 02h

OFF_FIRST_LENGTH = 02h

OFF_SECOND_LENGTH = 02h

QUIT_LENGTH = 04h

sUnknownCommand db 'Error: Unknown command', 13, 10

UNKNOWN_COMMAND_LENGTH = 18h

ON_FIRST_TIME = 3000

ON_SECOND_TIME = 3000

TIME_SINGLE = 00h

section '.code' code readable executable

lEntry:

invoke GetStdHandle, STD_OUTPUT_HANDLE

mov [hOutput], eax

invoke GetStdHandle, STD_INPUT_HANDLE

mov [hInput], eax

lCommandCycleBegin:

invoke WriteConsole, [hOutput], sPrompt, PROMPT_LENGTH, dwOutputLength, NULL

invoke ReadConsole, [hInput], sCommand, 0FFh, dwCommandLength, NULL

;compare command

mov ebx, [dwCommandLength]

sub ebx, 02h

;'onfirst'

cmp ebx, ON_FIRST_LENGTH

jne @f

stdcall CmpStr, sCommand, sOnFirst, ebx

cmp eax, TRUE

jne @f

;if 'onfirst' then

call OnFirst

invoke timeSetEvent, ON_FIRST_TIME, 00h, OffFirst, 00h, TIME_SINGLE

jmp lCommandCycleBegin

@@:

;'onsecond'

cmp ebx, ON_SECOND_LENGTH

jne @f

stdcall CmpStr, sCommand, sOnSecond, ebx

cmp eax, TRUE

jne @f

;if 'onsecond' then

call OnSecond

jmp lCommandCycleBegin

@@:

;'offfirst'

cmp ebx, OFF_FIRST_LENGTH

jne @f

stdcall CmpStr, sCommand, sOffFirst, ebx

cmp eax, TRUE

jne @f

;if 'offfirst' then

call OffFirst

jmp lCommandCycleBegin

@@:

;'offsecond'

cmp ebx, OFF_SECOND_LENGTH

jne @f

stdcall CmpStr, sCommand, sOffSecond, ebx

cmp eax, TRUE

jne @f

;if 'offsecond' then

call OffSecond

jmp lCommandCycleBegin

@@:

;'quit'

cmp ebx, QUIT_LENGTH

jne @f

stdcall CmpStr, sCommand, sQuit, ebx

cmp eax, TRUE

jne @f

;if 'quit' then

jmp lCommandCycleEnd

@@:

invoke WriteConsole, [hOutput], sUnknownCommand, UNKNOWN_COMMAND_LENGTH, dwOutputLength, NULL

jmp lCommandCycleBegin

lCommandCycleEnd:

invoke ExitProcess, 00h

proc CmpStr, lpsStr1, lpsStr2, dwLength

begin

push ebx

push ecx

push esi

push edi

mov esi, [lpsStr1]

mov edi, [lpsStr2]

mov ecx, [dwLength]

@@:

mov al, byte [esi]

mov bl, byte [edi]

cmp al, bl

jne lNotEqual

inc esi

inc edi

loop @b

lEqual:

mov eax, TRUE

jmp @f

lNotEqual:

mov eax, FALSE

@@:

pop ebx

pop ecx

pop esi

pop edi

return

endp

proc OnFirst

begin

mov dx, 378h

in al, dx

or al, 10000000b

out dx, al

return

endp

proc OnSecond

begin

mov dx, 378h

in al, dx

or al, 01000000b

out dx, al

return

endp

proc OffFirst

begin

mov dx, 378h

in al, dx

and al, 01111111b

out dx, al

return

endp

proc OffSecond

begin

mov dx, 378h

in al, dx

and al, 10111111b

out dx, al

return

endp

section '.idata' import data readable

library kernel32, 'kerneL32.dll', \

user32, 'user32.dll', \

winmm, 'WINMM.DLL'

include '%finc%\win32\apia\kernel32.inc'

include '%finc%\win32\apia\user32.inc'

include '%finc%\win32\apia\winmm.inc'

fasm & dll

Jin X — Mon, 19 Apr 2004 18:41:47 +0000

Jin X:

Цитата

Favst, 19.04.04, 17:24
Undefined symbol это ON_FIRST_TIME. Это у меня константа такая.

Ни фига, он не на неё ругается (да и убирал я её).

fasm & dll

johnfound — Mon, 19 Apr 2004 15:02:18 +0000

johnfound: Попробуй так:

section '.idata' import data readable

library \

kernel32, 'kerneL32.dll', \

user32, 'user32.dll', \

winmm, 'WINMM.DLL'

include '%include%\apia\kernel32.inc'

include '%include%\apia\user32.inc'

include '%include%\apia\winmm.inc'

Ето кажеться связанно с форматом import секции. В начале должны быть описание библиотек а потом таблицы функции.

Всего доброго.

fasm & dll

Favst — Mon, 19 Apr 2004 12:24:03 +0000

Favst: 2 Jin X.
Undefined symbol это ON_FIRST_TIME. Это у меня константа такая.
2 500mhz
Все равно не работает.

Добавлено в 19.04.04, 12:28:
Вот вся прога:

format pe console

entry lEntry

include '%include%\win32a.inc'

section '.data' data readable writeable

hInput dd ?

hOutput dd ?

dwInputLength dd ?

dwOutputLength dd ?

sCommand rb 0FFh

dwCommandLength dd ?

sPrompt db 'command>'

PROMPT_LENGTH equ 08h

sOnFirst db '1+'

sOnSecond db '2+'

sOffFirst db '1-'

sOffSecond db '2-'

sQuit db 'quit'

ON_FIRST_LENGTH equ 02h

ON_SECOND_LENGTH equ 02h

OFF_FIRST_LENGTH equ 02h

OFF_SECOND_LENGTH equ 02h

QUIT_LENGTH equ 04h

sUnknownCommand db 'Error: Unknown command', 13, 10

UNKNOWN_COMMAND_LENGTH equ 18h

ON_FIRST_TIME equ 3000

ON_SECOND_TIME equ 3000

TIME_SINGLE equ 00h

section '.code' code readable executable

lEntry:

invoke GetStdHandle, STD_OUTPUT_HANDLE

mov [hOutput], eax

invoke GetStdHandle, STD_INPUT_HANDLE

mov [hInput], eax

lCommandCycleBegin:

invoke WriteConsole, [hOutput], sPrompt, PROMPT_LENGTH, dwOutputLength, NULL

invoke ReadConsole, [hInput], sCommand, 0FFh, dwCommandLength, NULL

;compare command

mov ebx, [dwCommandLength]

sub ebx, 02h

;'onfirst'

cmp ebx, ON_FIRST_LENGTH

jne @f

stdcall CmpStr, sCommand, sOnFirst, ebx

cmp eax, TRUE

jne @f

;if 'onfirst' then

call OnFirst

invoke timeSetEvent, ON_FIRST_TIME, 00h, OffFirst, 00h, TIME_SINGLE

jmp lCommandCycleBegin

@@:

;'onsecond'

cmp ebx, ON_SECOND_LENGTH

jne @f

stdcall CmpStr, sCommand, sOnSecond, ebx

cmp eax, TRUE

jne @f

;if 'onsecond' then

call OnSecond

jmp lCommandCycleBegin

@@:

;'offfirst'

cmp ebx, OFF_FIRST_LENGTH

jne @f

stdcall CmpStr, sCommand, sOffFirst, ebx

cmp eax, TRUE

jne @f

;if 'offfirst' then

call OffFirst

jmp lCommandCycleBegin

@@:

;'offsecond'

cmp ebx, OFF_SECOND_LENGTH

jne @f

stdcall CmpStr, sCommand, sOffSecond, ebx

cmp eax, TRUE

jne @f

;if 'offsecond' then

call OffSecond

jmp lCommandCycleBegin

@@:

;'quit'

cmp ebx, QUIT_LENGTH

jne @f

stdcall CmpStr, sCommand, sQuit, ebx

cmp eax, TRUE

jne @f

;if 'quit' then

jmp lCommandCycleEnd

@@:

invoke WriteConsole, [hOutput], sUnknownCommand, UNKNOWN_COMMAND_LENGTH, dwOutputLength, NULL

jmp lCommandCycleBegin

lCommandCycleEnd:

invoke ExitProcess, 00h

proc CmpStr, lpsStr1, lpsStr2, dwLength

enter

push ebx

push ecx

push esi

push edi

mov esi, [lpsStr1]

mov edi, [lpsStr2]

mov ecx, [dwLength]

@@:

mov al, byte [esi]

mov bl, byte [edi]

cmp al, bl

jne lNotEqual

inc esi

inc edi

loop @b

lEqual:

mov eax, TRUE

jmp @f

lNotEqual:

mov eax, FALSE

@@:

pop ebx

pop ecx

pop esi

pop edi

return

proc OnFirst

enter

mov dx, 378h

in al, dx

or al, 10000000b

out dx, al

return

proc OnSecond

enter

mov dx, 378h

in al, dx

or al, 01000000b

out dx, al

return

proc OffFirst

enter

mov dx, 378h

in al, dx

and al, 01111111b

out dx, al

return

proc OffSecond

enter

mov dx, 378h

in al, dx

and al, 10111111b

out dx, al

return

section '.idata' import data readable

library kernel32, 'kerneL32.dll'

include '%include%\apia\kernel32.inc'

library user32, 'user32.dll'

include '%include%\apia\user32.inc'

library winmm, 'WINMM.DLL'

include '%include%\apia\winmm.inc'

winmm.inc - от 500mhz

fasm & dll

[500mhz] — Fri, 16 Apr 2004 20:41:38 +0000

[500mhz]: все работает
на тебе winmm.inc длдя фасма (сам делал)
для импорта сделай к примеру файлик api.inc

Цитата

section '.idata' import data readable
library kernel32,'KERNEL32.DLL',\
crtdll,'crtdll.dll',\
USER32,'user32.dll',\
gdi32,'gdi32.dll',\
comctl32,'comctl32.dll',\
comdlg32,'comdlg32.dll',\
shell32,'shell32.dll',\
wsock32,'wsock32.dll',\
ddraw,'ddraw.dll',\
mapi,'mapi32.dll',\
opengl,'opengl32.dll',\
glu,'glu32.dll',\
advapi32,'advapi32',\
bass,'bass.dll',\
sdl,'sdl.dll',\
winmm,'winmm.dll'

include '%fasminc%/apia/kernel32.inc'
include '%fasminc%/apia/advapi32.inc'
include '%fasminc%/apia/user32.inc'
include '%fasminc%/apia/gdi32.inc'
include '%fasminc%/apia/comctl32.inc'
include '%fasminc%/apia/comdlg32.inc'
include '%fasminc%/apia/shell32.inc'
include '%fasminc%/apia/wsock32.inc'
include '%fasminc%/apia/crtdll.inc'
include '%fasminc%/apia/ddraw.inc'
include '%fasminc%/apia/mapi.inc'
include '%fasminc%/apia/opengl.inc'
include '%fasminc%/apia/glu.inc'
include '%fasminc%/apia/bass.inc'
include '%fasminc%/apia/sdl.inc'
include '%fasminc%/apia/winmm.inc'

исходник будет так выглядеть

Цитата

format PE GUI
entry start
include '%fasminc%\win32a.inc'
section '.code' code readable executable
start:
тут наш всякий код

include 'api.inc'

а тут автоматом импорт сгенерится без всякого гемороя

fasm & dll

Jin X — Wed, 14 Apr 2004 16:58:06 +0000

Jin X: Давай всю прогу (или напиши другую, с более безобидной функцией) и кинь сюда.
У меня вообще какая-то хрень выходит при компиляции:

invoke timeSetEvent, ON_FIRST_TIME, 00h, OffFirst, 00h, 1

macro/stdcall.inc [50] invoke [2]:

stdcall [proc],arg

macro/stdcall.inc [43] stdcall [1]:

pushd arg

error: undefined symbol.

fasm & dll

Favst — Wed, 14 Apr 2004 14:47:39 +0000

Favst: Нет, дело не в этом. Я же говорю, так со всеми длл-ками. На фасме твой вариант все равно не работает.

fasm & dll

Bjarne Stroustrup — Wed, 14 Apr 2004 13:08:25 +0000

Bjarne Stroustrup: Скорее всего у тебя ошибка в функции OffFirst.
Вот это работает на MASM'e:

OffFirst proc arg1 :DWORD, arg2:DWORD, arg3 :DWORD, arg4 :DWORD, arg5 :DWORD

jmp N

Msg db "Hello from OffFirst!", 0

invoke MessageBox, 0, ADDR Msg, ADDR Msg, MB_OK

ret 20

OffFirst endp

...

invoke timeSetEvent, 3000, 00h, OffFirst, 00h, TIME_PERIODIC

P.S. OffFirst у меня stdcall

fasm & dll

Guest — Wed, 14 Apr 2004 09:55:02 +0000

Guest: Я надеюсь, есть знатоки fasm'a...

Пишу:

...

invoke timeSetEvent, ON_FIRST_TIME, 00h, OffFirst, 00h, 1

...

section '.idata' import data readable

library kernel32, 'kernel32.dll'

include '%include%\apia\kernel32.inc'

library user32, 'user32.dll'

include '%include%\apia\user32.inc'

library winmm, 'winmm.dll'

import winmm, timeSetEvent, 'timeSetEvent'

При выполнении прога вылетает:

Цитата

Программа FAU01C вызвала сбой при обращении к странице памяти
в модуле <нет данных> по адресу 0000:000030e5.

И так с любой длл-кой, кроме kernel32.inc user32.inc gdi32.inc comctl32.inc comdlg32.inc shell32.inc wsock32.inc...

Что делать?