diff options
| author | Xavier ASUS <xavi92psx@gmail.com> | 2019-10-18 00:31:54 +0200 |
|---|---|---|
| committer | Xavier ASUS <xavi92psx@gmail.com> | 2019-10-18 00:31:54 +0200 |
| commit | 268a53de823a6750d6256ee1fb1e7707b4b45740 (patch) | |
| tree | 42c1799a9a82b2f7d9790ee9fe181d72a7274751 /device/lib/stm8/_fs2sint.asm | |
| download | sdcc-gas-268a53de823a6750d6256ee1fb1e7707b4b45740.tar.gz | |
sdcc-3.9.0 fork implementing GNU assembler syntax
This fork aims to provide better support for stm8-binutils
Diffstat (limited to 'device/lib/stm8/_fs2sint.asm')
| -rw-r--r-- | device/lib/stm8/_fs2sint.asm | 98 |
1 files changed, 98 insertions, 0 deletions
diff --git a/device/lib/stm8/_fs2sint.asm b/device/lib/stm8/_fs2sint.asm new file mode 100644 index 0000000..c9e207a --- /dev/null +++ b/device/lib/stm8/_fs2sint.asm @@ -0,0 +1,98 @@ +;-------------------------------------------------------- +; File Created by SDCC : free open source ANSI-C Compiler +; Version 3.9.3 #11345 (Linux) +;-------------------------------------------------------- + .module _fs2sint + .optsdcc -mstm8 + +;-------------------------------------------------------- +; Public variables in this module +;-------------------------------------------------------- + .globl ___fs2slong + .globl ___fs2sint +;-------------------------------------------------------- +; 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 +; ../_fs2sint.c: 81: signed int __fs2sint (float f) +; ----------------------------------------- +; function __fs2sint +; ----------------------------------------- +___fs2sint: + sub sp, #4 +; ../_fs2sint.c: 83: signed long sl=__fs2slong(f); + ldw x, (0x09, sp) + pushw x + ldw x, (0x09, sp) + pushw x + call ___fs2slong + addw sp, #4 + ldw (0x03, sp), x + ldw (0x01, sp), y +; ../_fs2sint.c: 84: if (sl>=INT_MAX) + ldw x, (0x03, sp) + cpw x, #0x7fff + ld a, (0x02, sp) + sbc a, #0x00 + ld a, (0x01, sp) + sbc a, #0x00 + jrslt 00102$ +; ../_fs2sint.c: 85: return INT_MAX; + ldw x, #0x7fff + jra 00105$ +00102$: +; ../_fs2sint.c: 86: if (sl<=INT_MIN) + ldw x, #0x8000 + cpw x, (0x03, sp) + ld a, #0xff + sbc a, (0x02, sp) + ld a, #0xff + sbc a, (0x01, sp) + jrslt 00104$ +; ../_fs2sint.c: 87: return -INT_MIN; + ldw x, #0x8000 +; ../_fs2sint.c: 88: return sl; + .byte 0xc5 +00104$: + ldw x, (0x03, sp) +00105$: +; ../_fs2sint.c: 89: } + addw sp, #4 + ret + .area CODE + .area CONST + .area INITIALIZER + .area CABS (ABS) |