1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
;--------------------------------------------------------
; File Created by SDCC : free open source ANSI-C Compiler
; Version 3.9.3 #11345 (Linux)
;--------------------------------------------------------
.module cotf
.optsdcc -mstm8
;--------------------------------------------------------
; Public variables in this module
;--------------------------------------------------------
.globl _tancotf
.globl _fabsf
.globl _cotf
;--------------------------------------------------------
; 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
; ../cotf.c: 37: float cotf(float x) _FLOAT_FUNC_REENTRANT
; -----------------------------------------
; function cotf
; -----------------------------------------
_cotf:
; ../cotf.c: 41: y=fabsf(x);
ldw x, (0x06, sp)
pushw x
ldw x, (0x06, sp)
pushw x
callf _fabsf
addw sp, #4
; ../cotf.c: 42: if (y<1.0E-30) //This one requires more thinking...
push #0x60
push #0x42
push #0xa2
push #0x0d
pushw x
pushw y
callf ___fslt
addw sp, #8
tnz a
jreq 00105$
; ../cotf.c: 44: errno = ERANGE;
ldw x, #0x0022
ldw _errno+0, x
; ../cotf.c: 45: if (x<0.0)
clrw x
pushw x
clrw x
pushw x
ldw x, (0x0a, sp)
pushw x
ldw x, (0x0a, sp)
pushw x
callf ___fslt
addw sp, #8
tnz a
jreq 00102$
; ../cotf.c: 46: return -HUGE_VALF;
clrw x
decw x
ldw y, #0xff7f
jra 00106$
00102$:
; ../cotf.c: 48: return +HUGE_VALF;
clrw x
decw x
ldw y, #0x7f7f
jra 00106$
00105$:
; ../cotf.c: 50: return tancotf(x, 1);
push #0x01
ldw x, (0x07, sp)
pushw x
ldw x, (0x07, sp)
pushw x
callf _tancotf
addw sp, #5
00106$:
; ../cotf.c: 51: }
retf
.area CODE
.area CONST
.area INITIALIZER
.area CABS (ABS)
|
