	.globl _gdos_there

_gdos_there:
	move.w	#-2, d0		; VDI function -2 seems to test if GDOS is there.
	trap	#2			; It returns -2 if it is NOT there
	cmp.w	#-2, d0
	sne		d0		; set d0.b to $FF if the cmp turned out equal.
	ext.w	d0
	rts
