flos_get_input_string.asm
bitfixer_bitfixer/dg/z88dk/libsrc/osca/flos_get_input_string.asm
;
;	Old School Computer Architecture - interfacing FLOS
;	Stefano Bodrato, 2012
;
;	Get line from console
;
;	$Id: flos_get_input_string.asm,v 1.2 2015/01/19 01:33:00 pauloscustodio Exp $
;

    INCLUDE "flos.def"

	PUBLIC  flos_get_input_string
	
flos_get_input_string:
	pop de
	pop bc
	ld	a,c
	pop hl
	push hl
	push bc
	push de
	
	push bc
	push hl
	call	kjt_get_input_string
	pop de
	pop bc
	and a
	jr	nz,copystr
	ld (de),a
	ret
	
copystr:
	ld b,0
	ldir
	xor a
	ld (de),a
	ret
