am48_dstore.asm
bitfixer_bitfixer/dg/z88dk/libsrc/_DEVELOPMENT/math/float/math48/z80/am48_dstore.asm

SECTION code_clib
SECTION code_fp_math48

PUBLIC am48_dstore

am48_dstore:

   ; store AC' to memory
   ;
   ; enter : hl = double *
   ;
   ; exit  : AC' written to address HL
   ;
   ; uses  : none
   
   push hl
   
   exx
   
   ex de,hl
   ex (sp),hl
   
   ld (hl),e
   inc hl
   ld (hl),d
   inc hl
   
   ex (sp),hl
   ex de,hl
   ex (sp),hl
   
   ld (hl),e
   inc hl
   ld (hl),d
   inc hl
   ld (hl),c
   inc hl
   ld (hl),b
   
   pop hl
   
   exx
   ret
