.text
	.globl	_HookEntry
h_SubEntry =  12

_HookEntry:
	movl	a6,sp@-
	movl	a1,sp@- 	       | ; push message packet pointer
	movl	a2,sp@- 	       | ; push object pointer
	movl	a0,sp@- 	       | ; push hook pointer
	movl	a0@(h_SubEntry),a0     | ; fetch C entry point ...
	jsr	a0@		       | ; ... and call it
	lea	sp@(12),sp             | ; fix stack
	movl	sp@+,a6
	rts