fputc_cons.asm
bitfixer_bitfixer/dg/z88dk/libsrc/stdio/nascom/fputc_cons.asm
;
;	ROM Console routine for the NASCOM1/2
;	By Stefano Bodrato - 19/6/2003
;
;	$Id: fputc_cons.asm,v 1.3 2015/01/19 01:33:20 pauloscustodio Exp $
;

	PUBLIC	fputc_cons
	EXTERN	montest

.fputc_cons
	ld	hl,2
	add	hl,sp
	ld	a,(hl)
	push	af
	call	montest
	jr	nz,nassys
	
; T monitor
	pop	af
	cp	12
	jr	nz,notcls
	ld	a,1eh
.notcls
	cp	13
	jr	nz,notcr
	ld	a,1fh
.notcr
	jp	0c4ah

.nassys
; NASSYS monitor
	pop	af
	cp	12
	jr	nz,nocls
	ld	a,0ch
.nocls
	defb	0f7h
	ret
