head	1.2;
access;
symbols
	OCT93:1.2;
locks;
comment	@;; @;


1.2
date	93.06.11.16.33.37;	author Rhialto;	state Exp;
branches;
next	1.1;

1.1
date	93.06.11.14.53.53;	author Rhialto;	state Exp;
branches;
next	;


desc
@Callback stub, standard version
@


1.2
log
@First real RCS checkin
@
text
@;; $Id$
;; $Log$
	XDEF	_HookEntry

	section text,code
h_SubEntry EQU	12

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

	end
@


1.1
log
@Initial revision
@
text
@d1 2
@