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