title	GTLINE
	subttl	Module from library C_5 : GTLINE
	maclib	SYSEQU.LIB

; FILE:	GTLINE.MAC
; DATE: 820820:1458
; FOR:	Get line from std input

; Read one line (LF is delim) from STDIN
; EXIT	: Reg HL points to input buffer
;	  Accu contains length of input
;	  Zero flag set indicates emty line
;

	entry	gtline

	ext	stdin,gtlinf

gtline:
	push	bc
	ld	a,(stdin)	; Get channel
	ld	c,a
	call	gtlinf		; .. and line
	pop	bc
	ret

	end