l_pint_pop.asm
bitfixer_bitfixer/dg/z88dk/libsrc/_DEVELOPMENT/l/sccz80/crt0/l_pint_pop.asm
;       Z88 Small C+ Run time Library
;       Moved functions over to proper libdefs
;       To make startup code smaller and neater!
;
;       23/1/2001  djm

SECTION code_clib
SECTION code_l_sccz80

PUBLIC l_pint_pop, l_pint_pop_pint

l_pint_pop:

   pop bc                      ; return address
   pop de                      ; where to put it
   push bc

l_pint_pop_pint:

   ; store int from HL into (DE)

   ld a,l
   
   ld (de),a
   inc de

   ld a,h
   ld (de),a
   
   ret
