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

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