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