zx_setfloat.asm
bitfixer_bitfixer/dg/z88dk/libsrc/zx81/basic/zx_setfloat.asm
; int zx_setfloat(char *variable, int value)
; CALLER linkage for function pointers

PUBLIC zx_setfloat

EXTERN zx_setfloat_callee
EXTERN ASMDISP_zx_setfloat_CALLEE
EXTERN fa

.zx_setfloat

; enter : (FA) = float value
;         hl = char *variable

	ld	hl,8
	add	hl,sp

	ld	a,(hl)
	inc	hl
	ld	h,(hl)
	ld	l,a		;  var name


   jp zx_setfloat_callee + ASMDISP_zx_setfloat_CALLEE

