summaryrefslogtreecommitdiff
path: root/device/lib/stm8/_ulong2fs.asm
diff options
context:
space:
mode:
authorXavier ASUS <xavi92psx@gmail.com>2019-10-23 03:38:32 +0200
committerXavier ASUS <xavi92psx@gmail.com>2019-10-23 03:38:32 +0200
commit2cece67cb5af0339e4ab1f18b0bce2f0b4e6ebdd (patch)
treeb2fbf4e99f194213527304c9189abe65c163ac0b /device/lib/stm8/_ulong2fs.asm
parented26eb00026800d1d2ff6289627216c7d1f0d459 (diff)
downloadsdcc-gas-2cece67cb5af0339e4ab1f18b0bce2f0b4e6ebdd.tar.gz
Removed intermediate files
Diffstat (limited to 'device/lib/stm8/_ulong2fs.asm')
-rw-r--r--device/lib/stm8/_ulong2fs.asm152
1 files changed, 0 insertions, 152 deletions
diff --git a/device/lib/stm8/_ulong2fs.asm b/device/lib/stm8/_ulong2fs.asm
deleted file mode 100644
index 917e9ba..0000000
--- a/device/lib/stm8/_ulong2fs.asm
+++ /dev/null
@@ -1,152 +0,0 @@
-;--------------------------------------------------------
-; File Created by SDCC : free open source ANSI-C Compiler
-; Version 3.9.3 #11345 (Linux)
-;--------------------------------------------------------
- .module _ulong2fs
- .optsdcc -mstm8
-
-;--------------------------------------------------------
-; Public variables in this module
-;--------------------------------------------------------
- .globl ___ulong2fs
-;--------------------------------------------------------
-; 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
-; ../_ulong2fs.c: 83: float __ulong2fs (unsigned long a )
-; -----------------------------------------
-; function __ulong2fs
-; -----------------------------------------
-___ulong2fs:
- sub sp, #8
-; ../_ulong2fs.c: 88: if (!a)
- ldw x, (0x0d, sp)
- jrne 00115$
-; ../_ulong2fs.c: 90: return 0.0;
- ldw x, (0x0b, sp)
- jrne 00115$
- clrw y
- jra 00111$
-; ../_ulong2fs.c: 93: while (a < HIDDEN)
-00115$:
- ld a, #0x96
-00103$:
- ldw x, (0x0b, sp)
- cpw x, #0x0080
- jrnc 00118$
-; ../_ulong2fs.c: 95: a <<= 1;
- sll (0x0e, sp)
- rlc (0x0d, sp)
- rlc (0x0c, sp)
- rlc (0x0b, sp)
-; ../_ulong2fs.c: 96: exp--;
- dec a
- jra 00103$
-; ../_ulong2fs.c: 99: while (a & NORM)
-00118$:
-00108$:
- tnz (0x0b, sp)
- jreq 00110$
-; ../_ulong2fs.c: 102: if (a & 1)
- push a
- ld a, (0x0f, sp)
- srl a
- pop a
- jrnc 00107$
-; ../_ulong2fs.c: 103: a += 2;
- ldw x, (0x0d, sp)
- addw x, #0x0002
- ldw y, (0x0b, sp)
- jrnc 00150$
- incw y
-00150$:
- ldw (0x0d, sp), x
- ldw (0x0b, sp), y
-00107$:
-; ../_ulong2fs.c: 104: a >>= 1;
- srl (0x0b, sp)
- rrc (0x0c, sp)
- rrc (0x0d, sp)
- rrc (0x0e, sp)
-; ../_ulong2fs.c: 105: exp++;
- inc a
- jra 00108$
-00110$:
-; ../_ulong2fs.c: 108: a &= ~HIDDEN ;
- push a
- ldw y, (0x0e, sp)
- ld a, (0x0d, sp)
- and a, #0x7f
- ld xl, a
- ld a, (0x0c, sp)
- ld xh, a
- pop a
- ldw (0x0d, sp), y
- ldw (0x0b, sp), x
-; ../_ulong2fs.c: 110: fl.l = PACK(0,(unsigned long)exp, a);
- clrw x
- ld xl, a
- clr (0x08, sp)
- clr (0x07, sp)
- ld a, #0x07
-00151$:
- sllw x
- dec a
- jrne 00151$
- ld a, (0x08, sp)
- or a, (0x0e, sp)
- ld yl, a
- ld a, (0x07, sp)
- or a, (0x0d, sp)
- ld yh, a
- ld a, xl
- or a, (0x0c, sp)
- rlwa x
- or a, (0x0b, sp)
- ld xh, a
- ldw (0x03, sp), y
- ldw (0x01, sp), x
-; ../_ulong2fs.c: 112: return (fl.f);
- ldw x, (0x03, sp)
- ldw y, (0x01, sp)
-00111$:
-; ../_ulong2fs.c: 113: }
- addw sp, #8
- ret
- .area CODE
- .area CONST
- .area INITIALIZER
- .area CABS (ABS)