source: buchla-68k/alcyon/midas.s@ 4810254

Last change on this file since 4810254 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 5.5 KB
Line 
1.globl _io_time
2.globl _io_lcd
3.globl _io_ser
4.globl _io_midi
5.globl _io_disk
6.globl _io_tone
7.globl _io_leds
8.globl _io_kbrd
9.globl _lcd_a0
10.globl _lcd_a1
11.globl _io_vreg
12.globl _io_vraw
13.globl _io_vram
14.globl _io_fpu
15.globl _v_regs
16.globl _v_odtab
17.globl _v_actab
18.globl _v_ct0
19.globl _v_gt1
20.globl _v_score
21.globl _v_cgtab
22.globl _v_curs0
23.globl _v_curs1
24.globl _v_curs2
25.globl _v_curs3
26.globl _v_curs4
27.globl _v_curs5
28.globl _v_curs6
29.globl _v_curs7
30.globl _v_tcur
31.globl _v_kbobj
32.globl _v_lnobj
33.globl _v_win0
34.globl _v_cur
35.globl _fc_sw
36.globl _fc_val
37.globl _foot1
38.globl _foot2
39.globl _pulse1
40.globl _pulse2
41.globl _end
42.globl _etext
43.globl _edata
44.globl _clkrun
45.globl _clksrc
46.globl _initcfg
47.globl _ndisp
48.globl _verbose
49.globl _lcdontm
50.globl _lcdtime
51.globl _fp_resv
52.globl _script0
53.globl _VerDate
54.globl _ptefifo
55.globl _m7verms
56.comm _m7verms,32
57.globl _clkdiv
58.comm _clkdiv,2
59.globl _dopls1
60.text
61_dopls1:
62~~dopls1:
63link R14,#-4
64*line 61
65move #4480,(sp)
66move.l #_ptefifo,-(sp)
67jsr _putwq
68addq.l #4,sp
69*line 63
70*line 64
71tst _clkrun
72beq L1
73*line 65
74*line 66
75*line 66
76cmp #3,_clksrc
77bne L2
78*line 67
79*line 68
80add.l #$2,_fc_val
81*line 69
82*line 70
83*line 71
84move.l _fc_val,R0
85cmp.l #$ffffff,R0
86ble L3
87*line 71
88move.l #$ffffff,_fc_val
89*line 72
90L3:bra L4
91L2:
92*line 73
93*line 73
94cmp #4,_clksrc
95bne L5
96*line 74
97*line 75
98add.l #$1,_fc_val
99*line 76
100*line 77
101*line 78
102move.l _fc_val,R0
103cmp.l #$ffffff,R0
104ble L6
105*line 78
106move.l #$ffffff,_fc_val
107*line 79
108L6:bra L7
109L5:
110*line 80
111*line 80
112cmp #5,_clksrc
113bne L8
114*line 81
115*line 82
116*line 82
117move _clkdiv,R0
118add #1,_clkdiv
119tst R0
120beq L9
121*line 83
122*line 84
123clr _clkdiv
124*line 85
125add.l #$1,_fc_val
126*line 86
127*line 87
128*line 88
129move.l _fc_val,R0
130cmp.l #$ffffff,R0
131ble L10
132*line 88
133move.l #$ffffff,_fc_val
134L10:
135*line 89
136L9:
137*line 90
138L8:L7:L4:L1:unlk R14
139rts
140.globl _dopls2
141.text
142_dopls2:
143~~dopls2:
144link R14,#-4
145*line 101
146move #4481,(sp)
147move.l #_ptefifo,-(sp)
148jsr _putwq
149addq.l #4,sp
150L11:unlk R14
151rts
152.globl _mpcupd
153.text
154_mpcupd:
155~~mpcupd:
156link R14,#-4
157*line 115
158move _ndisp,R0
159bra L14
160*line 116
161L15:
162*line 117
163*line 118
164bra L13
165*line 119
166*line 120
167L16:
168*line 121
169*line 122
170bra L13
171*line 123
172*line 124
173L17:
174*line 125
175*line 126
176*line 127
177jsr _sdwins
178bra L13
179*line 128
180*line 129
181L18:
182*line 130
183*line 131
184bra L13
185*line 132
186*line 133
187L19:
188*line 134
189*line 135
190*line 136
191jsr _setinst
192*line 137
193jsr _allwins
194bra L13
195*line 138
196*line 139
197L20:
198*line 140
199*line 141
200bra L13
201*line 142
202*line 143
203L21:
204*line 144
205*line 145
206*line 146
207jsr _newws
208*line 147
209jsr _wwins
210bra L13
211*line 148
212*line 149
213L22:
214*line 150
215*line 151
216bra L13
217*line 152
218*line 153
219L23:
220*line 154
221*line 155
222*line 156
223jsr _twins
224bra L13
225*line 157
226*line 158
227L24:
228*line 159
229*line 160
230bra L13
231*line 161
232*line 162
233L25:
234*line 163
235*line 164
236*line 165
237jsr _awins
238bra L13
239*line 166
240bra L13
241L14:cmp #10,R0
242bhi L13
243asl #2,R0
244move R0,R8
245add.l #L26,R8
246move.l (R8),R8
247jmp (R8)
248.data
249L26:.dc.l L15
250.dc.l L16
251.dc.l L17
252.dc.l L18
253.dc.l L19
254.dc.l L20
255.dc.l L21
256.dc.l L22
257.dc.l L23
258.dc.l L24
259.dc.l L25
260.text
261L13:L12:unlk R14
262rts
263.globl _main
264.text
265_main:
266~~main:
267link R14,#-4
268*line 181
269move #2,(sp)
270jsr _setipl
271*line 185
272move.l #_fpuint,(sp)
273move #26,-(sp)
274move #5,-(sp)
275jsr _trap13
276addq.l #4,sp
277*line 187
278clr _initcfg
279*line 188
280move #-32000,_fp_resv
281*line 190
282jsr _fpuclr
283*line 192
284jsr _tsetup
285*line 193
286jsr _setsio
287*line 195
288move.l #_clk_ped,_foot1
289*line 196
290move.l #_pch_ped,_foot2
291*line 198
292move.l #_dopls1,_pulse1
293*line 199
294move.l #_dopls2,_pulse2
295*line 201
296move.l #$2ee00,_lcdontm
297*line 202
298jsr _lcd_on
299*line 204
300move.l #2+_VerDate,(sp)
301move.l #_m7verms,-(sp)
302jsr _strcpy
303addq.l #4,sp
304*line 206
305jsr _im700
306*line 207
307jsr _settune
308*line 209
309move #-1,_ndisp
310*line 210
311clr _verbose
312*line 211
313move.l #_script0,(sp)
314jsr _rscript
315*line 212
316clr.l (sp)
317jsr _sc_goto
318*line 214
319jsr _MouseWK
320bra L28
321L29:
322*line 221
323*line 222
324*line 223
325jsr _msl
326L28:
327*line 225
328*line 226
329*line 230
330*line 231
331*line 232
332jsr _m7menu
333*line 233
334jsr _msl
335*line 240
336move _ndisp,R0
337bra L31
338*line 241
339L32:
340*line 242
341*line 243
342*line 244
343jsr _ldfield
344*line 245
345jsr _libdsp
346bra L30
347*line 246
348*line 247
349L33:
350*line 248
351*line 249
352*line 250
353jsr _ptfield
354*line 251
355jsr _ptdisp
356bra L30
357*line 252
358*line 253
359L34:
360*line 254
361*line 255
362*line 256
363jsr _scfield
364*line 257
365jsr _sdsetup
366bra L30
367*line 258
368*line 259
369L35:
370*line 260
371*line 261
372*line 262
373jsr _sqfield
374*line 263
375jsr _sqdisp
376bra L30
377*line 264
378*line 265
379*line 266
380L36:
381*line 267
382*line 268
383*line 269
384jsr _idfield
385*line 270
386jsr _instdsp
387bra L30
388*line 271
389*line 272
390L37:
391*line 273
392*line 274
393*line 275
394jsr _wdfield
395*line 276
396jsr _wsdsp
397bra L30
398*line 277
399*line 278
400L38:
401*line 279
402*line 280
403*line 281
404jsr _tdfield
405*line 282
406jsr _tundsp
407bra L30
408*line 283
409*line 284
410L39:
411*line 285
412*line 286
413*line 287
414jsr _adfield
415*line 288
416jsr _asgdsp
417bra L30
418*line 289
419*line 290
420L40:
421*line 291
422*line 292
423*line 293
424jsr _scopeon
425bra L30
426*line 294
427*line 295
428L41:
429*line 296
430*line 297
431*line 301
432*line 302
433*line 303
434move #-1,_ndisp
435bra L28
436*line 304
437bra L30
438L31:cmp #11,R0
439bhi L41
440asl #2,R0
441move R0,R8
442add.l #L42,R8
443move.l (R8),R8
444jmp (R8)
445.data
446L42:.dc.l L32
447.dc.l L33
448.dc.l L34
449.dc.l L35
450.dc.l L36
451.dc.l L41
452.dc.l L37
453.dc.l L41
454.dc.l L38
455.dc.l L41
456.dc.l L39
457.dc.l L40
458.text
459L30:bra L29
460L27:unlk R14
461rts
462.data
Note: See TracBrowser for help on using the repository browser.