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