title	Module from library HILIB_2 : @TSTCH
	name	('@TSTCH')
	maclib	baselib.lib

; Language : ( BASIC )

; Test channel specifications

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0, August 1987

; ENTRY	Reg C holds channel in range 1 to 15

; EXIT	Carry rest on no error, set on error and with Accu
;	- 52 if channel out of range
;	- 55 if channel already open

	entry	@tstch

	extrn	@chacc

@tstch:
	push	hl
	call	@chacc		; Test channel
	pop	hl
	ld	a,52
	ret	c		; Out of range
	ret	nz		; Not open
	ld	a,55		; Set error
	scf
	ret

	end