Код:
	; read and save the value in R0
	ld	bc, #FFFD
	xor	a
	out	(c), a
	in	a, (c)
	; put something different into R0
	xor	%00000001
	ld	l, a
	ld	b, #BF
	out	(c), a
	; read R0 to see if AY is actually available
	ld	b, #FF
	in	a, (c)
	cp	l
	jr	z, AYIsPresent
Примерно вот так я проверяю в своих бордерных просмотрщиках.