fputc_cons.asm
bitfixer_bitfixer/dg/z88dk/libsrc/stdio/aquarius/fputc_cons.asm
;
;	Mattel Aquarius Routines
;
;	Print character to the screen
;
;       We can corrupt any register
;
;
;	$Id: fputc_cons.asm,v 1.2 2015/01/19 01:33:20 pauloscustodio Exp $
;

	PUBLIC  fputc_cons

;
; Entry:   char to print
;


.fputc_cons

	ld	hl,2
	add	hl,sp
	ld	a,(hl); Now A contains the char
	cp	13
	jr	nz,nocrlf
	call	$1d72
	ld	a,10
	jp	$1d72
.nocrlf
	cp	12
	jr	nz,nocls
	ld	a,$b
.nocls	
	;rst	$18
	;ret
	jp	$1d72
