1
2; int islessgreater(double x, double y)
3
4SECTION code_clib
5SECTION code_fp_math48
6
7PUBLIC cm48_sccz80_islessgreater
8
9EXTERN am48_islessgreater, cm48_sccz80p_dread2
10
11cm48_sccz80_islessgreater:
12
13   call cm48_sccz80p_dread2
14
15   ; AC'= y
16   ; AC = x
17
18   jp am48_islessgreater
19