1
2SECTION code_clib
3SECTION code_fp_math48
4
5PUBLIC cm48_sccz80p_dlt
6
7EXTERN cm48_sccz80p_dcallee1_0, am48_dlt
8
9cm48_sccz80p_dlt:
10
11   ; sccz80 float primitive
12   ; left_op < right_op ?
13   ;
14   ; enter : AC'(BCDEHL') = right_op (math48)
15   ;              stack   = left_op (sccz80), ret
16   ;
17   ; exit  : if true
18   ;
19   ;            HL = 1
20   ;            carry set
21   ;
22   ;         if false
23   ;
24   ;            HL = 0
25   ;            carry reset
26   ;
27   ; uses  : all except iy
28
29   call cm48_sccz80p_dcallee1_0
30   exx
31
32   ; AC'= right_op
33   ; AC = left_op
34
35   jp am48_dlt
36