stkequ.asm
bitfixer_bitfixer/dg/z88dk/libsrc/math/cpcmath/stkequ.asm
;
;	CPC Maths Routines
;
;	August 2003 **_|warp6|_** <kbaccam /at/ free.fr>
;
;	$Id: stkequ.asm,v 1.3 2015/01/19 01:32:56 pauloscustodio Exp $
;

		INCLUDE		"cpcfp.def"

		PUBLIC		stkequ

		EXTERN		fa

.stkequ							
		ld      de,fa+1			; (fa+1)<-(sp+3)
		ld      hl,3
		add     hl,sp
		ld      bc,5
		ldir		
	    pop     hl			;ret to program
	    pop     bc			;get rid of fp number
        pop     bc
        pop     bc
       	jp      (hl)		;outa here back to program


