title	Module from library BASE_5 : UGTEOF
	name	('UGTEOF')
	maclib	baselib.lib

; Get character from disk, indicate end of file
; (Should only be used in ASCII transfer because CTRL-Z
;  will be used as end of file indicator)
; Enhanced version for multiple channel I/O

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

;		Version 1.0 February 1986

; ENTRY	As described in module UDSKGT, location
;	must be set up properly

; EXIT	On normal return the carry flag is reset
;	On error the carry will be set

	entry	ugteof

	extrn	udskgt

ugteof:
	call	udskgt		; Get a character
	ret	c		; Test physical end
	cp	eof		; Test logical end
	scf
	ret	z
	ccf			; Set ok
	ret

	end