fputc_cons.asm
bitfixer_bitfixer/dg/z88dk/libsrc/stdio/sc3000/fputc_cons.asm
;
;   SEGA SC-3000 C Library
;
;	Print character to the screen
;
;	$Id: fputc_cons.asm,v 1.2 2015/01/19 01:33:21 pauloscustodio Exp $
;

          PUBLIC  fputc_cons

;
; Entry:        a= char to print
;


.fputc_cons
	ld	hl,2
	add	hl,sp
	ld	a,(hl)
	cp	13
	jr	nz,nocr
	call	$2400
	ld	a,10
.nocr
	jp	$2400
