1
2SECTION code_clib
3SECTION code_fp_math48
4
5PUBLIC cm48_sccz80p_dne
6
7EXTERN cm48_sccz80p_dcallee1_0, am48_dne
8
9cm48_sccz80p_dne:
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
31   ; AC = right_op
32   ; AC'= left_op
33
34   jp am48_dne
35