source: buchla-68k/alcyon/etadyn.s@ b28c09e

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 5.1 KB
Line 
1.globl _ebflag
2.globl _ebuf
3.globl _curfet
4.globl _cfetp
5.globl _infetp
6.globl _io_time
7.globl _io_lcd
8.globl _io_ser
9.globl _io_midi
10.globl _io_disk
11.globl _io_tone
12.globl _io_leds
13.globl _io_kbrd
14.globl _lcd_a0
15.globl _lcd_a1
16.globl _io_vreg
17.globl _io_vraw
18.globl _io_vram
19.globl _io_fpu
20.globl _v_regs
21.globl _v_odtab
22.globl _v_actab
23.globl _v_ct0
24.globl _v_gt1
25.globl _v_score
26.globl _v_cgtab
27.globl _v_curs0
28.globl _v_curs1
29.globl _v_curs2
30.globl _v_curs3
31.globl _v_curs4
32.globl _v_curs5
33.globl _v_curs6
34.globl _v_curs7
35.globl _v_tcur
36.globl _v_kbobj
37.globl _v_lnobj
38.globl _v_win0
39.globl _v_cur
40.globl _fc_sw
41.globl _fc_val
42.globl _asgob
43.globl _curintp
44.globl _stccol
45.globl _stcrow
46.globl _timemlt
47.globl _dspbuf
48.globl _vce2grp
49.globl _grpdyn
50.globl _dyntab
51.globl _expbit
52.globl _adbox
53.globl _vbufs
54.globl _et_adyn
55.text
56_et_adyn:
57~~et_adyn:
58~n=8
59link R14,#0
60movem.l R6-R7,-(sp)
61~grp=R7
62*line 57
63move 8(R14),R7
64asr #8,R7
65and #255,R7
66*line 59
67move R7,R8
68add.l R8,R8
69move.l #_grpdyn,R9
70move 0(R8,R9.l),R0
71add #48,R0
72move.b R0,_ebuf
73*line 60
74clr.b 1+_ebuf
75*line 62
76move #1,_ebflag
77*line 64
78clr R0
79bra L1
80L1:tst.l (sp)+
81movem.l (sp)+,R7-R7
82unlk R14
83rts
84.globl _setdyn
85.text
86_setdyn:
87~~setdyn:
88~grp=8
89~dyn=10
90link R14,#-8
91movem.l R3-R7/R12-R13,-(sp)
92~g=R7
93~i=R6
94~val=R5
95~ltmp=R4
96~fpu=R13
97~fp=R12
98~fpmant=-2
99~fpexp=-4
100~oldsr=-6
101~nop=-8
102*line 87
103move 8(R14),R8
104add.l R8,R8
105add.l #_grpdyn,R8
106move 10(R14),(R8)
107*line 88
108move 10(R14),R8
109add.l R8,R8
110add.l #_dyntab,R8
111move (R8),R5
112*line 89
113move 8(R14),R7
114add #1,R7
115*line 91
116*line 92
117move _timemlt,R0
118ext.l R0
119and.l #$ffff,R0
120move.l R0,-(sp)
121clr.l R0
122move _curintp,R0
123and.l #$fff0,R0
124move.l R0,-(sp)
125jsr lmul
126addq.l #8,sp
127move.l #$f,R1
128asr.l R1,R0
129move R0,-2(R14)
130*line 94
131clr R0
132move _curintp,R0
133and #15,R0
134lsl #1,R0
135swap R0
136clr R0
137swap R0
138add.l #_expbit,R0
139move.l R0,R8
140move (R8),-4(R14)
141*line 98
142clr R6
143bra L5
144L6:
145*line 99
146*line 99
147move R6,R8
148add.l R8,R8
149add.l #_vce2grp,R8
150cmp (R8),R7
151bne L7
152*line 100
153*line 101
154move R6,R0
155muls #3938,R0
156move.l R0,R12
157add.l #_vbufs,R12
158add.l #182,R12
159*line 102
160move R6,R0
161asl #8,R0
162asl #1,R0
163ext.l R0
164move.l R0,R13
165add.l #_io_fpu,R13
166add.l #$4100,R13
167*line 103
168*line 104
169move #8704,(sp)
170jsr _setsr
171move R0,-6(R14)
172*line 105
173*line 106
174*line 107
175*line 108
176eor.b #24,7(R12)
177*line 109
178move.l R13,R8
179add.l #$14,R8
180move -2(R14),(R8)
181*line 110
182add #1,-8(R14)
183*line 110
184add #1,-8(R14)
185*line 110
186add #1,-8(R14)
187*line 111
188move.l R13,R8
189add.l #$16,R8
190move -4(R14),(R8)
191*line 112
192add #1,-8(R14)
193*line 112
194add #1,-8(R14)
195*line 112
196add #1,-8(R14)
197*line 113
198*line 114
199*line 115
200btst #3,7(R12)
201beq L8
202*line 115
203move.l R13,R8
204add.l #$1c,R8
205move R5,(R8)
206*line 116
207bra L9
208L8:
209*line 117
210move.l R13,R8
211add.l #$2,R8
212move R5,(R8)
213L9:
214*line 118
215*line 119
216add #1,-8(R14)
217*line 119
218add #1,-8(R14)
219*line 119
220add #1,-8(R14)
221*line 120
222*line 121
223*line 122
224move.b 7(R12),R0
225ext.w R0
226and #28,R0
227or #1,R0
228move R0,(R13)
229*line 123
230*line 124
231move -6(R14),(sp)
232jsr _setsr
233*line 125
234*line 126
235*line 127
236*line 128
237L7:L4:
238*line 98
239add #1,R6
240L5:
241*line 98
242cmp #12,R6
243blt L6
244L3:L2:tst.l (sp)+
245movem.l (sp)+,R4-R7/R12-R13
246unlk R14
247rts
248.globl _ef_adyn
249.text
250_ef_adyn:
251~~ef_adyn:
252~n=8
253link R14,#0
254movem.l R5-R7,-(sp)
255~dyn=R7
256~grp=R6
257*line 146
258move 8(R14),R6
259asr #8,R6
260and #255,R6
261*line 148
262clr.b 1+_ebuf
263*line 149
264clr _ebflag
265*line 151
266move.b _ebuf,R7
267ext.w R7
268add #-48,R7
269*line 153
270move R7,(sp)
271move R6,-(sp)
272jsr _setdyn
273addq.l #2,sp
274*line 154
275jsr _modasg
276*line 155
277clr R0
278bra L10
279L10:tst.l (sp)+
280movem.l (sp)+,R6-R7
281unlk R14
282rts
283.globl _rd_adyn
284.text
285_rd_adyn:
286~~rd_adyn:
287~nn=8
288link R14,#0
289movem.l R5-R7,-(sp)
290~n=R7
291~grp=R6
292*line 173
293move 8(R14),R7
294and #255,R7
295*line 174
296move 8(R14),R6
297asr #8,R6
298and #255,R6
299*line 176
300move R6,R8
301add.l R8,R8
302move.l #_grpdyn,R9
303move 0(R8,R9.l),R0
304add #48,R0
305move.b R0,_dspbuf
306*line 177
307clr.b 1+_dspbuf
308*line 179
309clr (sp)
310jsr _vbank
311*line 180
312*line 181
313move #14,(sp)
314move.l #_dspbuf,-(sp)
315move.l _cfetp,R8
316move 2(R8),-(sp)
317move.l _cfetp,R8
318move (R8),-(sp)
319move R7,R0
320asl #4,R0
321ext.l R0
322move.l R0,R8
323move.l #_adbox,R9
324move 10(R8,R9.l),-(sp)
325move R7,R0
326asl #4,R0
327ext.l R0
328move.l R0,R8
329move.l #_adbox,R9
330move 8(R8,R9.l),-(sp)
331move #64,-(sp)
332move.l _asgob,-(sp)
333jsr _vcputsv
334adda.l #18,sp
335*line 183
336clr R0
337bra L11
338L11:tst.l (sp)+
339movem.l (sp)+,R6-R7
340unlk R14
341rts
342.globl _nd_adyn
343.text
344_nd_adyn:
345~~nd_adyn:
346~k=R7
347~nn=8
348link R14,#0
349movem.l R5-R7,-(sp)
350~n=R6
351*line 199
352move 10(R14),R7
353*line 199
354move 8(R14),R6
355and #255,R6
356*line 201
357move R7,R0
358add #48,R0
359move.b R0,_ebuf
360move.b R0,_dspbuf
361*line 202
362clr R0
363move.b R0,1+_ebuf
364move.b R0,1+_dspbuf
365*line 204
366clr (sp)
367jsr _vbank
368*line 205
369move #14,(sp)
370move.l #_dspbuf,-(sp)
371move _stccol,-(sp)
372move _stcrow,-(sp)
373move R6,R0
374asl #4,R0
375ext.l R0
376move.l R0,R8
377move.l #_adbox,R9
378move 10(R8,R9.l),-(sp)
379move #12,-(sp)
380move #64,-(sp)
381move.l _asgob,-(sp)
382jsr _vcputsv
383adda.l #18,sp
384*line 207
385clr R0
386bra L12
387L12:tst.l (sp)+
388movem.l (sp)+,R6-R7
389unlk R14
390rts
391.data
Note: See TracBrowser for help on using the repository browser.