trdos_installed.asm
bitfixer_bitfixer/dg/z88dk/libsrc/spectrum/diagnostic/trdos_installed.asm
;
;	ZX Spectrum specific routines
;
;	int trdos_installed();
;
;	The result is:
;	- 0 (false) if the TRDOS system variables are not installed
;	- 1 (true) if the Betadisk interface is connected and activated.
;
;	$Id:
;

	PUBLIC	trdos_installed
	
trdos_installed:
	ld	hl,(23635)
	ld	de,23867
	sbc	hl,de
	ld	a,h
	or	l
	ld	hl,0
	ret	nz
	inc	hl
	ret
