NOTE => NOTES
[AROS.git] / arch / m68k-all / libgcc1 / _ltdf2.s
blobe9cb1e67890e67bac4f34e3f0cc24bace27c8380
1 .text
2 .even
3 .globl __ltdf2
5 __ltdf2:
6 moveml %sp@(4),%d0-%d1/%a0-%a1 | get u and v
7 tstl %d0 | check sign bit
8 bpl L_1
9 negl %d1 | negate
10 negxl %d0
11 eorl #0x80000000,%d0 | toggle sign bit
12 L_1:
13 exg %a0,%d0
14 exg %a1,%d1
15 tstl %d0 | check sign bit
16 bpl L_2
17 negl %d1 | negate
18 negxl %d0
19 eorl #0x80000000,%d0 | toggle sign bit
20 L_2:
21 cmpl %d0,%a0
22 bgt ge
23 blt lt
24 cmpl %d1,%a1
25 bcc ge
26 lt:
27 moveq #-1,%d0
28 rts
29 ge:
30 clrl %d0
31 rts