NOTE => NOTES
[AROS.git] / arch / m68k-all / libgcc1 / _lesf2.s
blob3bf8f62c9e1b1b7c68db247547b61531f7ff29ba
1 .text
2 .even
3 .globl __lesf2
5 __lesf2:
6 moveml %sp@(4),%d0-%d1 | get u and v
7 tstl %d1 | check sign bit
8 bpl L_1
9 negl %d1 | negate
10 eorl #0x80000000,%d1 | toggle sign bit
11 L_1:
12 tstl %d0 | check sign bit
13 bpl L_2
14 negl %d0 | negate
15 eorl #0x80000000,%d0 | toggle sign bit
16 L_2:
17 cmpl %d1,%d0
18 sle %d0
19 andl #1,%d0
20 negl %d0
21 addql #1,%d0
22 rts