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	[email protected](0x08),[email protected]
	movel	[email protected](0x0c),[email protected]
	movel	[email protected](0x10),[email protected]
	jsr	_AEHandler
	movew	d0,[email protected](0x14)
	unlk	a6
	movel	[email protected]+,a0
	lea	[email protected](0x0c),a7
	jmp	[email protected]
");
}

void ScrollText(ControlHandle cntl, short part);

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