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

; FILE:	PUTC.MAC
; DATE: 820820:1352
; FOR:	Write char to std output

; Put character on STDOUT
; ENTRY	: Accu contains char to write

	entry	putc

	ext	stdout,putcf

putc:
	push	bc
	ld	b,a
	ld	a,(stdout)	; Fetch channel
	ld	c,a
	ld	a,b
	call	putcf
	pop	bc
	ret

	end