; CONS.LIB
;   COUT,COUT7,CIN,CST
;   Link before SYSLIB
;by Rob Friefeld

	public	cout,cout7,cin,cst

pushm	macro
	push	hl
	push	de
	push	bc
	endm
	
popm	macro
	pop	bc
	pop	de
	pop	hl
	endm

cout7:
	push	af
	and	7fh
	jr	cout1

cout:				; Print char in A
	push	af
cout1:
	pushm
	ld	e,a
	ld	c,6		; BIOS console output
	call	5
	popm
	pop	af
	ret


cin:	pushm
cin1:	ld	c,6		; BIOS console input
	ld	e,-1
	call	5
	or	a
	jr	z,cin1
	popm
	ret

; Return A = 0 if char ready
;        A = 1 if no char ready

cst:	pushm
	ld	c,11	; CONST
	call	5
	cpl
	and	1
	popm
	ret
	
	end

; END CIO.LIB