title	GETC
	subttl	Module from library C_4 : GETC
	maclib	SYSEQU.LIB

; FILE:	GETC.MAC
; DATE: 820820:1352
; FOR:	Get char from std input

; Read one char from STDIN
; EXIT	: Accu contains char input

	entry	getc

	ext	stdin,getcf

getc:
	push	bc
	ld	a,(stdin)	; Load channel
	ld	c,a
	call	getcf		; .. get character
	pop	bc
	ret

	end