1 2SECTION code_clib 3SECTION code_fp_math48 4 5PUBLIC cm48_sccz80p_dloadb 6 7cm48_sccz80p_dloadb: 8 9 ; sccz80 float primitive 10 ; Load float given pointer in HL pointing to last byte into AC'. 11 ; 12 ; enter : HL = double * (sccz80 format) + 5 bytes 13 ; 14 ; exit : AC'= double (math48 format) 15 ; (exx set is swapped) 16 ; 17 ; uses : a, bc, de, hl, bc', de', hl' 18 19 ld a,(hl) 20 dec hl 21 ld b,(hl) 22 dec hl 23 ld c,(hl) 24 dec hl 25 ld d,(hl) 26 dec hl 27 ld e,(hl) 28 dec hl 29 ld h,(hl) 30 ld l,a 31 32 exx 33 ret 34