SysFloat/math3.macros at main · byteworksinc/SysFloat · GitHub

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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
 MACRO
&lab csubroutine &parms,&work
&lab anop
 aif c:&work,.a
 lclc &work
&work setc 0
.a
 gbla &totallen
 gbla &worklen
&worklen seta &work
&totallen seta 0
 aif c:&parms=0,.e
 lclc &len
 lclc &p
 lcla &i
&i seta 1
.b
&p setc &parms(&i)
&len amid &p,2,1
 aif "&len"=":",.c
&len amid &p,1,2
&p amid &p,4,l:&p-3
 ago .d
.c
&len amid &p,1,1
&p amid &p,3,l:&p-2
.d
&p equ &totallen+4+&work
&totallen seta &totallen+&len
&i seta &i+1
 aif &i<=c:&parms,^b
.e
 tsc
 aif &work=0,.f
 sec
 sbc #&work
 tcs
.f
 phd
 tcd
 mend
 MACRO
&lab creturn &r
&lab anop
 lclc &len
 aif c:&r,.a
 lclc &r
&r setc 0
&len setc 0
 ago .h
.a
&len amid &r,2,1
 aif "&len"=":",.b
&len amid &r,1,2
&r amid &r,4,l:&r-3
 ago .c
.b
&len amid &r,1,1
&r amid &r,3,l:&r-2
.c
 aif &len<>2,.d
 ldy &r
 ago .h
.d
 aif &len<>4,.e
 ldx &r+2
 ldy &r
 ago .h
.e
 aif &len<>10,.g
 ldy #&r
 ldx #^&r
 ago .h
.g
 mnote 'Not a valid return length',16
 mexit
.h
 aif &totallen=0,.i
 lda &worklen+2
 sta &worklen+&totallen+2
 lda &worklen+1
 sta &worklen+&totallen+1
.i
 pld
 tsc
 clc
 adc #&worklen+&totallen
 tcs
 aif &len=0,.j
 tya
.j
 rtl
 mend
 MACRO
&LAB FCLASSX
&LAB PEA $001C
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FLOGBX
&LAB PEA $001A
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FX2L
&LAB PEA $0310
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FGETENV
&LAB PEA $03
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FSETENV
&LAB PEA $01
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FPROCEXIT
&LAB PEA $0019
 LDX #$090A
 JSL $E10000
 MEND
 macro
&l ph4 &n1
&l anop
 aif "&n1"="*",.f
 lclc &c
&c amid &n1,1,1
 aif "&c"="#",.d
 aif s:longa=1,.a
 rep #%00100000
.a
 aif "&c"<>"{",.b
&c amid &n1,l:&n1,1
 aif "&c"<>"}",.g
&n1 amid &n1,2,l:&n1-2
 ldy #2
 lda (&n1),y
 pha
 lda (&n1)
 pha
 ago .e
.b
 aif "&c"<>"[",.c
 ldy #2
 lda &n1,y
 pha
 lda &n1
 pha
 ago .e
.c
 aif "&c"<>"<",.c1
&n1 amid &n1,2,l:&n1-1
 pei &n1+2
 pei &n1
 ago .e
.c1
 lda &n1+2
 pha
 lda &n1
 pha
 ago .e
.d
&n1 amid &n1,2,l:&n1-1
 pea +(&n1)|-16
 pea &n1
 ago .f
.e
 aif s:longa=1,.f
 sep #%00100000
.f
 mexit
.g
 mnote "Missing closing '}'",16
 mend
 MACRO
&lab _SANEFP816
&lab ldx #$090A
 jsl $E10000
 MEND
 MACRO
&LAB FSQRTX
&LAB PEA $0012
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FXPWRY
&LAB PEA $0012
 LDX #$0B0A
 JSL $E10000
 MEND
 MACRO
&LAB FC2X
&LAB PEA $050E
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FCOMPOUND
&LAB PEA $0014
 LDX #$0B0A
 JSL $E10000
 MEND
 MACRO
&LAB FLOG21X
&LAB PEA $0006
 LDX #$0B0A
 JSL $E10000
 MEND
 MACRO
&LAB FEXP21X
&LAB PEA $000E
 LDX #$0B0A
 JSL $E10000
 MEND
 MACRO
&LAB FMULX
&LAB PEA $0004
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FDIVX
&LAB PEA $0006
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FATANX
&LAB PEA $18
 LDX #$0B0A
 JSL $E10000
 MEND
 MACRO
&LAB FSINX
&LAB PEA $001A
 LDX #$0B0A
 JSL $E10000
 MEND
 MACRO
&LAB FREMI
&LAB PEA $040C
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FCOSX
&LAB PEA $1C
 LDX #$0B0A
 JSL $E10000
 MEND
 MACRO
&LAB FTANX
&LAB PEA $1E
 LDX #$0B0A
 JSL $E10000
 MEND
 MACRO
&LAB FRINTX
&LAB PEA $0014
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FPROCENTRY
&LAB PEA $0017
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FADDX
&LAB PEA $0000
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FX2D
&LAB PEA $0110
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FD2X
&LAB PEA $010E
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FX2S
&LAB PEA $0210
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FX2X
&LAB PEA $0010
 LDX #$090A
 JSL $E10000
 MEND
 MACRO
&LAB FS2X
&LAB PEA $020E
 LDX #$090A
 JSL $E10000
 MEND