source: buchla-68k/alcyon/sendval.s@ 73dd55f

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 6.7 KB
Line 
1.globl _v_obtab
2.globl _v_curob
3.globl _v_nobj
4.globl _v_obpri
5.globl _io_time
6.globl _io_lcd
7.globl _io_ser
8.globl _io_midi
9.globl _io_disk
10.globl _io_tone
11.globl _io_leds
12.globl _io_kbrd
13.globl _lcd_a0
14.globl _lcd_a1
15.globl _io_vreg
16.globl _io_vraw
17.globl _io_vram
18.globl _io_fpu
19.globl _v_regs
20.globl _v_odtab
21.globl _v_actab
22.globl _v_ct0
23.globl _v_gt1
24.globl _v_score
25.globl _v_cgtab
26.globl _v_curs0
27.globl _v_curs1
28.globl _v_curs2
29.globl _v_curs3
30.globl _v_curs4
31.globl _v_curs5
32.globl _v_curs6
33.globl _v_curs7
34.globl _v_tcur
35.globl _v_kbobj
36.globl _v_lnobj
37.globl _v_win0
38.globl _v_cur
39.globl _fc_sw
40.globl _fc_val
41.globl _ac_code
42.globl _scname
43.globl _se_chg
44.globl _curscor
45.globl _cursect
46.globl _se1_cnt
47.globl _se2_cnt
48.globl _se3_cnt
49.globl _spool
50.globl _pspool
51.globl _spcount
52.globl _frags
53.globl _t_bak
54.globl _t_cur
55.globl _t_ctr
56.globl _t_fwd
57.globl _size1
58.globl _size2
59.globl _size3
60.globl _scores
61.globl _scp
62.globl _seclist
63.globl _hplist
64.globl _p_bak
65.globl _p_cur
66.globl _p_ctr
67.globl _p_fwd
68.globl _amplval
69.globl _ext_cv1
70.globl _ext_cv2
71.globl _ext_cv3
72.globl _ext_cv4
73.globl _ext_mod
74.globl _lstbgnc
75.globl _lstendc
76.globl _ps_intn
77.globl _ps_rate
78.globl _ps_dpth
79.globl _sliders
80.globl _lastart
81.globl _dyntab
82.globl _expbit
83.globl _fnoff
84.globl _fp_resv
85.globl _grpdyn
86.globl _grploc
87.globl _lastvce
88.globl _prstab
89.globl _vce2grp
90.globl _vce2trg
91.globl _veltab
92.globl _sigtab
93.globl _keystat
94.globl _mpsust
95.globl _trgtab
96.globl _lstbgns
97.globl _lstends
98.globl _sendval
99.text
100_sendval:
101~~sendval:
102~voice=8
103~par=10
104~ival=12
105link R14,#-2
106movem.l R4-R7/R13-R13,-(sp)
107~fpu=R13
108~oldi=R7
109~val=R6
110~ltmp=R5
111~nop=-2
112*line 74
113move 8(R14),R0
114asl #8,R0
115asl #1,R0
116ext.l R0
117move.l R0,R13
118move 10(R14),R0
119asl #4,R0
120asl #1,R0
121ext.l R0
122add.l R0,R13
123add.l #_io_fpu,R13
124add.l #$4000,R13
125*line 76
126move 10(R14),R0
127bra L3
128*line 77
129L4:
130*line 78
131L5:
132*line 79
133L6:
134*line 80
135L7:
136*line 81
137*line 82
138*line 83
139clr (sp)
140move 12(R14),-(sp)
141jsr _addpch
142addq.l #2,sp
143move R0,R6
144bra L2
145*line 84
146*line 85
147L8:
148*line 86
149*line 87
150*line 88
151move 12(R14),R6
152asl R6
153eor #-32768,R6
154bra L2
155*line 89
156*line 90
157L9:
158*line 91
159*line 92
160*line 93
161move 12(R14),R5
162ext.l R5
163asr.l #$1,R5
164move 12(R14),R0
165ext.l R0
166asr.l #$2,R0
167add.l R0,R5
168*line 94
169*line 95
170*line 96
171cmp.l #$7d00,R5
172ble L10
173*line 96
174move.l #$7d00,R5
175bra L11
176L10:
177*line 97
178*line 98
179cmp.l #$ffff8300,R5
180bge L12
181*line 98
182move.l #$ffff8300,R5
183*line 99
184L12:L11:
185*line 100
186move R5,R6
187bra L2
188*line 101
189*line 102
190*line 103
191L13:
192*line 104
193*line 105
194*line 106
195move 12(R14),R6
196asr #5,R6
197add #-500,R6
198asl #6,R6
199bra L2
200*line 107
201*line 108
202L14:
203*line 109
204*line 110
205*line 111
206move 12(R14),R6
207bra L2
208L3:sub #1,R0
209cmp #9,R0
210bhi L14
211asl #2,R0
212move R0,R8
213add.l #L15,R8
214move.l (R8),R8
215jmp (R8)
216.data
217L15:.dc.l L4
218.dc.l L13
219.dc.l L5
220.dc.l L8
221.dc.l L6
222.dc.l L14
223.dc.l L7
224.dc.l L14
225.dc.l L14
226.dc.l L9
227.text
228L2:
229*line 114
230move #2,(sp)
231jsr _setipl
232move R0,R7
233*line 118
234move.l R13,R8
235add.l #$2,R8
236move R6,(R8)
237*line 119
238add #1,-2(R14)
239*line 119
240add #1,-2(R14)
241*line 119
242add #1,-2(R14)
243*line 120
244move.l R13,R8
245add.l #$1c,R8
246move R6,(R8)
247*line 121
248add #1,-2(R14)
249*line 121
250add #1,-2(R14)
251*line 121
252add #1,-2(R14)
253*line 122
254move #21,(R13)
255*line 124
256move R7,(sp)
257jsr _setipl
258L1:tst.l (sp)+
259movem.l (sp)+,R5-R7/R13-R13
260unlk R14
261rts
262.globl _clearer
263.text
264_clearer:
265~~clearer:
266~stat=8
267~sig=10
268link R14,#-4
269movem.l R2-R7/R13-R13,-(sp)
270~fpu=R13
271~fpexp=R7
272~fpmant=R6
273~fptime=R5
274~oldi=R4
275~i=R3
276~nop=-2
277~olds=-4
278*line 147
279*line 147
280tst 8(R14)
281beq L17
282*line 148
283*line 149
284move #-32000,_fp_resv
285*line 150
286move _ps_intn,R0
287muls #10,R0
288asl #5,R0
289move R0,2+_fp_resv
290*line 151
291move _ps_rate,R0
292muls #10,R0
293asl #5,R0
294move R0,4+_fp_resv
295*line 152
296move _ps_dpth,R0
297muls #10,R0
298asl #5,R0
299move R0,6+_fp_resv
300*line 153
301clr 8+_fp_resv
302*line 154
303clr 10+_fp_resv
304*line 155
305move _ext_cv3,12+_fp_resv
306*line 156
307clr 14+_fp_resv
308*line 157
309move _ext_cv4,16+_fp_resv
310*line 158
311move _ext_mod,18+_fp_resv
312*line 159
313move _ext_cv2,20+_fp_resv
314*line 160
315move _ext_cv1,22+_fp_resv
316*line 161
317*line 162
318move.l #16384+_io_fpu,R13
319*line 163
320move #200,(sp)
321jsr _tofpu
322move R0,R5
323*line 164
324clr R0
325move R5,R0
326and #15,R0
327lsl #1,R0
328swap R0
329clr R0
330swap R0
331add.l #_expbit,R0
332move.l R0,R8
333move (R8),R7
334*line 165
335move R5,R6
336and #-16,R6
337*line 166
338*line 167
339*line 168
340move #2,(sp)
341jsr _setipl
342move R0,R4
343*line 169
344*line 170
345*line 171
346*line 172
347jsr _fpuclr
348*line 173
349*line 174
350move R6,20(R13)
351*line 175
352add #1,-2(R14)
353*line 175
354add #1,-2(R14)
355*line 176
356move R7,22(R13)
357*line 177
358*line 178
359*line 179
360*line 180
361move #6144,(sp)
362clr -(sp)
363move.l #_trgtab,-(sp)
364jsr _memset
365addq.l #6,sp
366*line 181
367move #24,(sp)
368clr -(sp)
369move.l #_keystat,-(sp)
370jsr _memset
371addq.l #6,sp
372*line 182
373*line 183
374move #6144,(sp)
375clr -(sp)
376move.l #_prstab,-(sp)
377jsr _memsetw
378addq.l #6,sp
379*line 184
380move #6144,(sp)
381move #16128,-(sp)
382move.l #_veltab,-(sp)
383jsr _memsetw
384addq.l #6,sp
385*line 185
386*line 186
387jsr _clrpfl
388*line 187
389*line 188
390clr R3
391bra L20
392L21:
393*line 189
394move R3,R8
395add.l #_mpsust,R8
396clr.b (R8)
397L19:
398*line 188
399add #1,R3
400L20:
401*line 188
402cmp #48,R3
403blt L21
404L18:
405*line 189
406*line 190
407*line 191
408clr R3
409bra L24
410L25:
411*line 192
412*line 193
413move R3,R8
414add.l R8,R8
415add.l #_vce2trg,R8
416move #-1,(R8)
417*line 194
418move R3,R8
419add.l R8,R8
420add.l #_lastvce,R8
421clr (R8)
422L23:
423*line 191
424add #1,R3
425L24:
426*line 191
427cmp #12,R3
428blt L25
429L22:
430*line 195
431*line 196
432*line 197
433move _sliders,-4(R14)
434*line 198
435clr _sliders
436*line 199
437clr (sp)
438move #1,-(sp)
439jsr _l_init
440addq.l #2,sp
441*line 200
442move #2,_sliders
443*line 201
444clr (sp)
445move #1,-(sp)
446jsr _l_init
447addq.l #2,sp
448*line 202
449move -4(R14),_sliders
450*line 203
451*line 204
452move R4,(sp)
453jsr _setipl
454*line 205
455*line 206
456*line 207
457*line 208
458*line 209
459*line 210
460clr _lstbgnc
461*line 211
462clr _lstendc
463*line 212
464*line 213
465move #96,(sp)
466clr -(sp)
467move.l #_lstbgns,-(sp)
468jsr _memsetw
469addq.l #6,sp
470*line 214
471move #96,(sp)
472clr -(sp)
473move.l #_lstends,-(sp)
474jsr _memsetw
475addq.l #6,sp
476*line 215
477*line 216
478*line 217
479*line 218
480clr R3
481bra L28
482L29:
483*line 219
484*line 220
485move R3,R8
486add.l R8,R8
487move.l #_grpdyn,R9
488move 0(R8,R9.l),(sp)
489move R3,-(sp)
490jsr _setdyn
491addq.l #2,sp
492*line 221
493move R3,R8
494add.l R8,R8
495move.l #_grploc,R9
496move 0(R8,R9.l),(sp)
497move R3,-(sp)
498jsr _setloc
499addq.l #2,sp
500L27:
501*line 218
502add #1,R3
503L28:
504*line 218
505cmp #12,R3
506blt L29
507L26:
508*line 222
509*line 223
510*line 224
511jsr _settune
512*line 225
513move _amplval,(sp)
514clr -(sp)
515clr -(sp)
516jsr _sendval
517addq.l #4,sp
518*line 226
519L17:L16:tst.l (sp)+
520movem.l (sp)+,R3-R7/R13-R13
521unlk R14
522rts
523.data
Note: See TracBrowser for help on using the repository browser.