diff options
Diffstat (limited to 'device/lib/stm8/_modslonglong.asm')
| -rw-r--r-- | device/lib/stm8/_modslonglong.asm | 243 |
1 files changed, 0 insertions, 243 deletions
diff --git a/device/lib/stm8/_modslonglong.asm b/device/lib/stm8/_modslonglong.asm deleted file mode 100644 index 6e5839c..0000000 --- a/device/lib/stm8/_modslonglong.asm +++ /dev/null @@ -1,243 +0,0 @@ -;-------------------------------------------------------- -; File Created by SDCC : free open source ANSI-C Compiler -; Version 3.9.3 #11345 (Linux) -;-------------------------------------------------------- - .module _modslonglong - .optsdcc -mstm8 - -;-------------------------------------------------------- -; Public variables in this module -;-------------------------------------------------------- - .globl __modslonglong -;-------------------------------------------------------- -; 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 -; ../_modslonglong.c: 36: _modslonglong (long long numerator, long long denominator) -; ----------------------------------------- -; function _modslonglong -; ----------------------------------------- -__modslonglong: - sub sp, #17 -; ../_modslonglong.c: 38: bool numeratorneg = (numerator < 0); - tnz (0x16, sp) - jrmi 00124$ - clr (0x11, sp) - jra 00125$ -00124$: - ld a, #0x01 - ld (0x11, sp), a -00125$: -; ../_modslonglong.c: 39: bool denominatorneg = (denominator < 0); - tnz (0x1e, sp) - jrmi 00126$ - clr a - .byte 0xc5 -00126$: - ld a, #0x01 -00127$: -; ../_modslonglong.c: 42: if (numeratorneg) - tnz (0x11, sp) - jreq 00102$ -; ../_modslonglong.c: 43: numerator = -numerator; - push a - ld a, (0x1e, sp) - neg a - ld (0x11, sp), a - clr a - sbc a, (0x1d, sp) - ld (0x10, sp), a - clr a - sbc a, (0x1c, sp) - ld (0x0f, sp), a - clr a - sbc a, (0x1b, sp) - ld (0x0e, sp), a - clr a - sbc a, (0x1a, sp) - ld (0x0d, sp), a - clr a - sbc a, (0x19, sp) - ld (0x0c, sp), a - ldw x, (0x17, sp) - jrnc 00129$ - incw x -00129$: - negw x - pop a - ldw (0x16, sp), x - ldw y, (0x0f, sp) - ldw (0x1c, sp), y - ldw y, (0x0d, sp) - ldw (0x1a, sp), y - ldw y, (0x0b, sp) - ldw (0x18, sp), y -00102$: -; ../_modslonglong.c: 44: if (denominatorneg) - tnz a - jreq 00104$ -; ../_modslonglong.c: 45: denominator = -denominator; - ld a, (0x25, sp) - neg a - ld (0x10, sp), a - clr a - sbc a, (0x24, sp) - ld (0x0f, sp), a - clr a - sbc a, (0x23, sp) - ld (0x0e, sp), a - clr a - sbc a, (0x22, sp) - ld (0x0d, sp), a - clr a - sbc a, (0x21, sp) - ld (0x0c, sp), a - clr a - sbc a, (0x20, sp) - ldw x, (0x1e, sp) - jrnc 00131$ - incw x -00131$: - negw x - ld (0x20, sp), a - ldw (0x1e, sp), x - ldw y, (0x0f, sp) - ldw (0x24, sp), y - ldw y, (0x0d, sp) - ldw (0x22, sp), y - ld a, (0x0c, sp) - ld (0x21, sp), a -00104$: -; ../_modslonglong.c: 47: r = (unsigned long long)numerator % (unsigned long long)denominator; - ldw y, (0x1c, sp) - ldw (0x07, sp), y - ldw y, (0x1a, sp) - ldw (0x05, sp), y - ldw y, (0x18, sp) - ldw (0x03, sp), y - ldw y, (0x16, sp) - ldw (0x01, sp), y - ldw x, (0x24, sp) - ldw (0x0f, sp), x - ldw x, (0x22, sp) - ldw (0x0d, sp), x - ldw x, (0x20, sp) - ldw (0x0b, sp), x - ldw x, (0x1e, sp) - ldw (0x09, sp), x - ldw x, (0x0f, sp) - pushw x - ldw x, (0x0f, sp) - pushw x - ldw x, (0x0f, sp) - pushw x - ldw x, (0x0f, sp) - pushw x - ldw x, (0x0f, sp) - pushw x - ldw x, (0x0f, sp) - pushw x - ldw x, (0x0f, sp) - pushw x - ldw x, (0x0f, sp) - pushw x - ldw x, sp - addw x, #25 - pushw x - call __modulonglong - addw sp, #18 - ldw y, (0x0f, sp) - ldw (0x07, sp), y - ldw y, (0x0d, sp) - ldw (0x05, sp), y - ldw y, (0x0b, sp) - ldw (0x03, sp), y - ldw y, (0x09, sp) - ldw (0x01, sp), y -; ../_modslonglong.c: 49: return (numeratorneg ? -r : r); - tnz (0x11, sp) - jreq 00107$ - ld a, (0x08, sp) - neg a - ld (0x11, sp), a - clr a - sbc a, (0x07, sp) - ld (0x10, sp), a - clr a - sbc a, (0x06, sp) - ld (0x0f, sp), a - clr a - sbc a, (0x05, sp) - ld (0x0e, sp), a - clr a - sbc a, (0x04, sp) - ld (0x0d, sp), a - clr a - sbc a, (0x03, sp) - ld (0x0c, sp), a - clr a - sbc a, (0x02, sp) - ld (0x0b, sp), a - clr a - sbc a, (0x01, sp) - ld (0x0a, sp), a - jra 00108$ -00107$: - ldw y, (0x07, sp) - ldw (0x10, sp), y - ldw y, (0x05, sp) - ldw (0x0e, sp), y - ldw y, (0x03, sp) - ldw (0x0c, sp), y - ldw y, (0x01, sp) - ldw (0x0a, sp), y -00108$: - ldw x, (0x14, sp) - ldw y, (0x10, sp) - ldw (#6, x), y - ldw y, (0x0e, sp) - ldw (#4, x), y - ldw y, (0x0c, sp) - ldw (#2, x), y - ldw y, (0x0a, sp) - ldw (x), y -; ../_modslonglong.c: 50: } - addw sp, #17 - ret - .area CODE - .area CONST - .area INITIALIZER - .area CABS (ABS) |