l_gchar.asm
bitfixer_bitfixer/dg/z88dk/libsrc/z80_crt0s/crt0/l_gchar.asm
;       Z88 Small C+ Run time Library
;       Moved functions over to proper libdefs
;       To make startup code smaller and neater!
;
;       6/9/98  djm

                PUBLIC    l_gchar

; fetch char from (HL) and sign extend into HL
.l_gchar  ld a,(hl)
.l_sxt    ld l,a
          rlca
          sbc   a,a
          ld h,a
          ret


