vz_midstr_callee.asm
bitfixer_bitfixer/dg/z88dk/libsrc/vz/vz_midstr_callee.asm
;*****************************************************
;
;	Video Technology library for small C compiler
;
;		Juergen Buchmueller
;
;*****************************************************

; ----- char __CALLEE__ *vz_midstr_callee(char *str, int pos)

PUBLIC vz_midstr_callee
PUBLIC ASMDISP_VZ_MIDSTR_CALLEE

.vz_midstr_callee

   pop af
   pop de
   pop hl
   push af

   ; de = int pos
   ; hl = char *str
   
.asmentry

   add hl,de
   ld l,(hl)
   ld h,0
   ret

DEFC ASMDISP_VZ_MIDSTR_CALLEE = # asmentry - vz_midstr_callee
