tape_load_block_callee.asm
bitfixer_bitfixer/dg/z88dk/libsrc/ace/tape/tape_load_block_callee.asm
;
;      Tape load routine
;
;      Stefano 31/5/2010
;
;      int __CALLEE__ tape_load_block_callee(void *addr, size_t len, unsigned char type)
;

PUBLIC tape_load_block_callee
PUBLIC ASMDISP_TAPE_LOAD_BLOCK_CALLEE

.tape_load_block_callee

	pop ix
	pop bc
	pop de
	pop hl
	push ix

.asmentry

; enter : hl = addr
;         de = len
;          c = type

	scf
	call $18a7
        ld      hl,-1
	ret	nc		;error
	inc	hl		;okay
	ret

DEFC ASMDISP_TAPE_LOAD_BLOCK_CALLEE = # asmentry - tape_load_block_callee
