fputc_cons.asm
bitfixer_bitfixer/dg/z88dk/libsrc/stdio/cpm/fputc_cons.asm
;
;       CPM Library
;
;       Fputc_cons
;
;	Stefano Bodrato - Apr. 2000
;
;
;	$Id: fputc_cons.asm,v 1.4 2015/01/19 01:33:20 pauloscustodio Exp $
;

          PUBLIC  fputc_cons

;
; Entry:        hl = points to char
;
.fputc_cons
	ld      hl,2
	add     hl,sp
	ld	a,(hl)
	cp	12	; FF (CLS) ?
	jr	z,docls
	cp	13	; CR ?
	jr	nz,nocrlf
	ld	de,10	; Add a LineFeed
	ld	c,2
	push	af
	call	5
	pop	af
.nocrlf
	ld	e,a	; Send the character
	ld	d,0
	ld      c,2
	jp	5
.docls
;	This is the ANSI CLS call
	ld	e,27
	ld	c,2
	call	5
	ld	e,'['
	ld	c,2
	call	5
	ld	e,'J'
	ld	c,2
	jp	5
