
;--- LoadAccelerators

		.386
if ?FLAT
		.MODEL FLAT, stdcall
else
		.MODEL SMALL, stdcall
endif
		option casemap:none
ifndef __POASM__        
        option proc:private
endif

		include winbase.inc
		include winuser.inc
        include wingdi.inc
        include duser32.inc
        include macros.inc

		.CODE

LoadAcceleratorsA proc public uses ebx hInstance:HINSTANCE, lpName:ptr BYTE

        .if (!hInstance)
        	mov ecx, g_hInstance
            mov hInstance, ecx
        .endif
        invoke FindResource, hInstance, lpName, RT_ACCELERATOR
        .if (eax)
        	invoke LoadResource, hInstance, eax
        .endif
		@strace	<"LoadAcceleratorsA(", hInstance, ", ", lpName, ")=", eax>
		ret
        align 4
LoadAcceleratorsA endp

TranslateAcceleratorA proc public uses ebx hWnd:DWORD, hAccel:ptr, lpMsg:ptr MSG

		xor eax, eax
		@strace	<"TranslateAcceleratorA(", hWnd, ", ", hAccel, ", ", lpMsg, ")=", eax>
		ret
TranslateAcceleratorA endp

CopyAcceleratorTableA proc public hAccel:DWORD, lpAccelData:ptr, cEntries:DWORD

		xor eax, eax
		@strace	<"CopyAcceleratorTableA(", hAccel, ", ", lpAccelData, ", ", cEntries, ")=", eax>
		ret
CopyAcceleratorTableA endp


		end

