section APURIFY,code

	xdef	_geta4
	xref	__ABSOLUTE_BAS
_geta4: move.l	#__ABSOLUTE_BAS+$7ffe,a4
	rts

	xdef	_StdAlloc
_StdAlloc:
	movem.l 4(sp),D0-D1
	move.l	A6,-(sp)
	move.l	4.W,A6
	jsr	$00ffffff
	move.l	(sp)+,A6
	rts

	xref	_PubAllocMem
	xdef	_AsmAllocMem
_AsmAllocMem:
	movem.l D1-D7/A0-A6,-(sp)
	movem.l D0-D1,-(sp)
	jsr	_PubAllocMem
	addq.l	#8,sp
	movem.l (sp)+,D1-D7/A0-A6
	rts

	xdef	_StdFree
_StdFree:
	move.l	4(sp),A1
	move.l	8(sp),D0
	move.l	A6,-(sp)
	move.l	4.W,A6
	jsr	$00ffffff
	move.l	(sp)+,A6
	rts

	xref	_PubFreeMem
	xdef	_AsmFreeMem
_AsmFreeMem:
	movem.l D1-D7/A0-A6,-(sp)
	move.l	D0,-(sp)
	move.l	A1,-(sp)
	jsr	_PubFreeMem
	addq.l	#8,sp
	movem.l (sp)+,D1-D7/A0-A6
	rts

	xref	_AP_protect
	xdef	AP_protect
AP_protect:
	movem.l D0-D7/A0-A6,-(sp)
	jsr	_AP_protect
	movem.l (sp)+,D0-D7/A0-A6
	rts

	xref	_AP_unprotect
	xdef	AP_unprotect
AP_unprotect:
	movem.l D0-D7/A0-A6,-(sp)
	jsr	_AP_unprotect
	movem.l (sp)+,D0-D7/A0-A6
	rts

	xref	_AP_rd
	xdef	AP_rd
AP_rd:	movem.l D0-D7/A0-A6,-(sp)
	movem.l 64(sp),D0/D1
	movem.l D0/D1,-(sp)
	jsr	_AP_rd
	addq.l	#8,sp
	movem.l (sp)+,D0-D7/A0-A6
	move.l	(sp),8(sp)
	addq.l	#8,sp
	rts

	xref	_AP_wr
	xdef	AP_wr
AP_wr:	movem.l D0-D7/A0-A6,-(sp)
	movem.l 64(sp),D0/D1
	movem.l D0/D1,-(sp)
	jsr	_AP_wr
	addq.l	#8,sp
	movem.l (sp)+,D0-D7/A0-A6
	move.l	(sp),8(sp)
	addq.l	#8,sp
	rts

	end