Source to jet/pascal.c


Enter a symbol's name here to quickly find it.

#include <Dialogs.h>
#include <AppleEvents.h>

void ES(void);
void dummy_ES(void)
{
asm("
	.globl _pES
_pES:
	jsr	_ES
	rts
");	
}

OSErr AEHandler(AppleEvent *theAppleEvent, AppleEvent *reply,
		long handlerRefcon);
void dummy_AEHandler(void)
{
asm("
	.globl _pAEHandler
_pAEHandler:
	link	a6,#0
	movel	a6@(0x08),sp@-
	movel	a6@(0x0c),sp@-
	movel	a6@(0x10),sp@-
	jsr	_AEHandler
	movew	d0,a6@(0x14)
	unlk	a6
	movel	a7@+,a0
	lea	a7@(0x0c),a7
	jmp	a0@
");
}

void ScrollText(ControlHandle cntl, short part);

void dummy_pScrollText(void)
{
asm("
	.globl _pScrollText
_pScrollText:
	link	a6,#0
	movew	a6@(0x08),sp@-
	movel	a6@(0x0a),sp@-
	jsr	_ScrollText
	unlk	a6
	movel	a7@+,a0
	addl	#0x06,a7
	jmp a0@
");
}