section	text,code

	xref	_ArpBase
	xdef	_Toupper

_Toupper:
	pea	(a6)
	move.l	_ArpBase,a6
	IF	INT16
	move.w	8(sp),d0
	ELSE
	move.l	8(sp),d0
	ENDC
	jsr	-534(a6)
	move.l	(sp)+,a6
	rts

	end