1
2SECTION code_clib
3SECTION code_fp_math48
4
5PUBLIC cm48_sccz80p_dcallee1, cm48_sccz80p_dcallee1_0
6
7cm48_sccz80p_dcallee1:
8
9   ; collect one sccz80 double parameter from the stack.
10   ;
11   ; enter : stack = double x, return_0, return_1
12   ;
13   ; exit  :    AC'= x
14   ;         stack = return_0
15   ;
16   ; uses  : ix, af', bc', de', hl'
17
18   exx
19
20cm48_sccz80p_dcallee1_0:
21
22   pop ix
23   pop af
24
25   ex af,af'
26
27   dec sp                      ; AC'= x
28   pop hl
29   pop de
30   pop bc
31   dec sp
32   pop af
33   ld l,a
34
35   ex af,af'
36   exx
37
38   push af
39   jp (ix)
40