l_g2intspsp.asm
bitfixer_bitfixer/dg/z88dk/libsrc/z80_crt0s/crt0/l_g2intspsp.asm
;       Z88 Small C+ Run time Library
;       l_gint variant to be used sometimes by the peephole optimizer
;

PUBLIC l_g2intspsp
.l_g2intspsp
	add	hl,sp
	ld	b,h
	ld	c,l
	inc hl
	inc hl
	ld a,(hl)
	inc     hl
	ld h,(hl)
	ld l,a
	ex	(sp),hl
	push hl
	ld	h,b
	ld	l,c
	ld a,(hl)
	inc     hl
	ld h,(hl)
	ld l,a
	ex	(sp),hl	
	jp (hl)
	