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, gcc version
@


1.2
log
@First real RCS checkin
@
text
@| $Id$
| $Log$
	.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
@


1.1
log
@Initial revision
@
text
@d1 2
@