title	Module from library BASE_5 : GETEOF
	name	('GETEOF')
	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)

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

;		Version 1.0 August 1986

; ENTRY	As described in module DSKGET

; EXIT	Accu holds character if cassy reset
;	On error or end of file carry will be set

	entry	geteof

	extrn	dskget

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

	end