stkequ.asm
bitfixer_bitfixer/dg/z88dk/libsrc/math/z88math/stkequ.asm
;
;	Z88dk Z88 Maths Library
;
;
;	$Id: stkequ.asm,v 1.2 2015/01/19 01:32:56 pauloscustodio Exp $

		PUBLIC	stkequ

		EXTERN	fa

;Equalise the stack, and put the calculated value into FA

.stkequ
        ld      (fa+3),hl
        ld      a,c
        ld      (fa+5),a
        exx
        ld      (fa+1),hl
;        xor     a
;        ld      (fa),a
        pop     hl      ;ret to program
        pop     bc      ;get rid of fp number
        pop     bc
        pop     bc
        jp      (hl)    ;outa here back to program

