typedef struct lineinitializeexparams_tag {
 DWORD dwTotalSize;
 DWORD dwNeededSize;
 DWORD dwUsedSize;
 DWORD dwOptions;
 Union {
 HANDLE hEvent;
 HANDLE hCompletionPort;
 } Handles;
 DWORD dwCompletionKey;
 } LINEINITIALIZEEXPARAMS, FAR *LPLINEINITIALIZEEXPARAMS;

VOID FAR PASCAL lineCallbackFunc(
 DWORD hDevice, 
 DWORD dwMsg, 
 DWORD dwCallbackInstance, 
 DWORD dwParam1, 
 DWORD dwParam2, 
 DWORD dwParam3 
);

; TAPItest.inc

include windows.inc ;подключение 
include user32.inc ;заголовочных
include kernel32.inc ;файлов
include shell32.inc
include comctl32.inc
include comdlg32.inc
include tapi32.inc
include masm32.inc
includelib user32.lib ;подключение 
includelib kernel32.lib ;библиотек
includelib shell32.lib
includelib comctl32.lib
includelib comdlg32.lib
includelib tapi32.lib
includelib masm32.lib

WinMain PROTO :DWORD,:DWORD,:DWORD,:DWORD ;прототипы
WndProc PROTO :DWORD,:DWORD,:DWORD,:DWORD
lineCallbackFunc PROTO :DWORD,
:DWORD,:DWORD,:DWORD,:DWORD,:DWORD
.data
AppName db 'TAPItest',0 ;имя программы
dwHighVer dd 00020002h ;наивысшая поддерживаемая версия
dwDeviceID dd 00000000h ;идентификатор девайса
szDeviceClass db 'comm/datamodem',0 ;класс девайса
.data?
hInstance dd ? ;хэндл приложения
CommandLine dd ? ;командная строка
hWnd dd ? ;хэндл окна
hLineApp HLINEAPP ? ;хэндл линии
hLine HLINE ? ;хэндл TAPI 
dwNumDevs dd ? ;количество доступных девайсов

; TAPItest.asm

.386
.model flat,stdcall
option casemap:none

include TAPItest.inc

.code
start:
invoke GetModuleHandle,NULL ;получаем хэндл приложения
mov hInstance,eax
invoke GetCommandLine ;
здесь получаем хэндл командной строки
mov CommandLine,eax
invoke InitCommonControls
invoke WinMain,hInstance,NULL,CommandLine,SW_SHOWDEFAULT
invoke ExitProcess,eax
 
WinMain proc \ hInst:HINSTANCE,hPrevInst:
HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
;---стандартная «начинка» WinMain---
WinMain endp

WndProc proc hWin:HWND,
uMsg:UINT,wParam:WPARAM,lParam:LPARAM
LOCAL LineInitExParam:LINEINITIALIZEEXPARAMS
mov LineInitExParam.dwTotalSize, 
SIZEOF LINEINITIALIZEEXPARAMS 
mov lineInitExParam.dwOptions, \
LINEINITIALIZEEXOPTION_USEHIDDENWINDOW 
;---здесь обработчики разных событий---
;---Бла-бла-бла------------------------
;---потом где-то в коде----------------
invoke lineInitializeEx,addr hLineApp,
hInstance,addr lineCallbackFunc,addr AppName,\
addr dwNumDevs,addr dwHighVer,addr LineInitExParam
.if eax==0
;---здесь то, о чем мы ещё поговорим---
.endif
WndProc endp 

lineCallbackFunc proc hDevice:DWORD,dwMsg:DWORD,
 dwCallbackInstance:DWORD,
dwParam1:DWORD,dwParam2:DWORD,dwParam3:DWORD
.if dwMsg==LINE_CREATE
;---перехват сообщения (LINE_CREATE)---
.endif
ret
lineCallbackFunc endp

end start