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

SECTION code_clib
SECTION code_l_sccz80

PUBLIC l_gcharsp

l_gcharsp:

   add hl,sp
   inc hl
   inc hl
   ld a,(hl)
   ld l,a
   rlca
   sbc a,a
   ld h,a
   ret
