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