rs232_get.asm
bitfixer_bitfixer/dg/z88dk/libsrc/rs232/cpc/booster/rs232_get.asm
;
;       z88dk RS232 Function
;
;       Amstrad CPC (CPC Booster+) version
;
;       unsigned char rs232_get(char *)
;
;       $Id: rs232_get.asm,v 1.2 2015/01/21 14:00:11 stefano Exp $

;       fastcall so implicit push


                PUBLIC   rs232_get
                
rs232_get:      ld bc, $FF1C
nowort:			in a, (c)
				or a
				jr z, nowort
				
				;read data word
				inc c				;&FF1D
				in a, (c)
				ld (hl), a			;put data into the pointer supplied
				
				ld hl, 0            ; RS_ERR_OK
				ret

