summaryrefslogtreecommitdiff
path: root/device/lib/stm8/_fs2ulong.asm
diff options
context:
space:
mode:
Diffstat (limited to 'device/lib/stm8/_fs2ulong.asm')
-rw-r--r--device/lib/stm8/_fs2ulong.asm126
1 files changed, 0 insertions, 126 deletions
diff --git a/device/lib/stm8/_fs2ulong.asm b/device/lib/stm8/_fs2ulong.asm
deleted file mode 100644
index a671454..0000000
--- a/device/lib/stm8/_fs2ulong.asm
+++ /dev/null
@@ -1,126 +0,0 @@
-;--------------------------------------------------------
-; File Created by SDCC : free open source ANSI-C Compiler
-; Version 3.9.3 #11345 (Linux)
-;--------------------------------------------------------
- .module _fs2ulong
- .optsdcc -mstm8
-
-;--------------------------------------------------------
-; Public variables in this module
-;--------------------------------------------------------
- .globl ___fs2ulong
-;--------------------------------------------------------
-; ram data
-;--------------------------------------------------------
- .area DATA
-;--------------------------------------------------------
-; ram data
-;--------------------------------------------------------
- .area INITIALIZED
-;--------------------------------------------------------
-; absolute external ram data
-;--------------------------------------------------------
- .area DABS (ABS)
-
-; default segment ordering for linker
- .area HOME
- .area GSINIT
- .area GSFINAL
- .area CONST
- .area INITIALIZER
- .area CODE
-
-;--------------------------------------------------------
-; global & static initialisations
-;--------------------------------------------------------
- .area HOME
- .area GSINIT
- .area GSFINAL
- .area GSINIT
-;--------------------------------------------------------
-; Home
-;--------------------------------------------------------
- .area HOME
- .area HOME
-;--------------------------------------------------------
-; code
-;--------------------------------------------------------
- .area CODE
-; ../_fs2ulong.c: 103: __fs2ulong (float a1)
-; -----------------------------------------
-; function __fs2ulong
-; -----------------------------------------
-___fs2ulong:
- sub sp, #14
-; ../_fs2ulong.c: 109: fl1.f = a1;
- ldw y, (0x13, sp)
- ldw (0x03, sp), y
- ldw y, (0x11, sp)
- ldw (0x01, sp), y
-; ../_fs2ulong.c: 111: if (!fl1.l || SIGN(fl1.l))
- ldw x, (0x03, sp)
- ldw y, (0x01, sp)
- tnzw x
- jrne 00111$
- tnzw y
- jreq 00101$
-00111$:
- ld a, (0x04, sp)
- ld a, (0x03, sp)
- ldw y, (0x01, sp)
- jrpl 00102$
-00101$:
-; ../_fs2ulong.c: 112: return (0);
- clrw x
- clrw y
- jra 00104$
-00102$:
-; ../_fs2ulong.c: 114: exp = EXP (fl1.l) - EXCESS - 24;
- ldw x, (0x01, sp)
- ld a, #0x80
- div x, a
- clr a
- ld xh, a
- subw x, #0x0096
- ldw (0x05, sp), x
-; ../_fs2ulong.c: 115: l = MANT (fl1.l);
- ldw y, (0x03, sp)
- ldw x, (0x01, sp)
- ld a, xl
- and a, #0x7f
- ld xl, a
- clr a
- rrwa x
- or a, #0x80
- ld xl, a
- ldw (0x09, sp), y
- ldw (0x07, sp), x
-; ../_fs2ulong.c: 117: l >>= -exp;
- ld a, (0x06, sp)
- neg a
- ldw y, (0x09, sp)
- ldw (0x0d, sp), y
- ldw x, (0x07, sp)
- tnz a
- jreq 00114$
-00113$:
- sraw x
- rrc (0x0d, sp)
- rrc (0x0e, sp)
- dec a
- jrne 00113$
-00114$:
- ldw (0x07, sp), x
- ldw y, (0x0d, sp)
-; ../_fs2ulong.c: 119: return l;
- ldw (0x09, sp), y
- ldw x, y
- ldw y, (0x07, sp)
-00104$:
-; ../_fs2ulong.c: 120: }
- addw sp, #14
- ret
- .area CODE
- .area CONST
- .area INITIALIZER
- .area CABS (ABS)