#include "rom.h"

	xdef	_sys_coreleft

_sys_coreleft

	clr.wp	c
	exg.a	d1,c
	move.a	c,r0	; save frame pointer
	jsr	restore_regs

	move.a	r0,c
	move.a	c,d1	; frame pointer restored

	sub.a	b,c	; return (Stack Ptr) - (RETTOP)
	rtn