;:ts=8

	xref	_ToolBase
	xdef	_DeletePort
_DeletePort:
	move.l	a6,-(sp)
	move.l	_ToolBase,a6
	move.l	8(sp),a0
	jsr	-36(a6)
	move.l	(sp)+,a6
	rts