source: buchla-68k/alcyon/etdyn.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: 4.2 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 _ac_code
43.globl _scname
44.globl _se_chg
45.globl _curscor
46.globl _cursect
47.globl _se1_cnt
48.globl _se2_cnt
49.globl _se3_cnt
50.globl _spool
51.globl _pspool
52.globl _spcount
53.globl _frags
54.globl _t_bak
55.globl _t_cur
56.globl _t_ctr
57.globl _t_fwd
58.globl _size1
59.globl _size2
60.globl _size3
61.globl _scores
62.globl _scp
63.globl _seclist
64.globl _hplist
65.globl _p_bak
66.globl _p_cur
67.globl _p_ctr
68.globl _p_fwd
69.globl _obj8
70.globl _ctrsw
71.globl _recsw
72.globl _stccol
73.globl _grpdyn
74.globl _grpmode
75.globl _grpstat
76.globl _gdstbc
77.globl _et_dyn
78.text
79_et_dyn:
80~~et_dyn:
81~n=8
82link R14,#-4
83*line 39
84move 8(R14),R8
85add.l R8,R8
86move.l #_grpdyn,R9
87move 0(R8,R9.l),R0
88add #48,R0
89move.b R0,_ebuf
90*line 40
91clr.b 1+_ebuf
92*line 41
93move #1,_ebflag
94*line 42
95clr R0
96bra L1
97L1:unlk R14
98rts
99.globl _ef_dyn
100.text
101_ef_dyn:
102~~ef_dyn:
103~n=8
104link R14,#0
105movem.l R6-R7/R13-R13,-(sp)
106~ival=R7
107~ep=R13
108*line 61
109clr.b 1+_ebuf
110*line 62
111move.b _ebuf,R7
112ext.w R7
113add #-48,R7
114*line 63
115clr _ebflag
116*line 65
117move R7,(sp)
118move 8(R14),-(sp)
119jsr _setdyn
120addq.l #2,sp
121*line 67
122*line 67
123tst _recsw
124beq L3
125move 8(R14),R8
126add.l R8,R8
127move.l #_grpmode,R9
128tst 0(R8,R9.l)
129beq L3
130move 8(R14),R8
131add.l R8,R8
132add.l #_grpmode,R8
133cmp #2,(R8)
134bne L3
135*line 68
136*line 69
137*line 69
138move #-1,(sp)
139move 8(R14),-(sp)
140move #13,-(sp)
141move.l _t_cur,-(sp)
142move.l _p_cur,-(sp)
143jsr _findev
144adda.l #12,sp
145move.l R0,R13
146move.l R13,R0
147beq L4
148*line 70
149*line 71
150move.b R7,7(R13)
151*line 72
152bra L5
153L4:
154*line 73
155*line 73
156move #6,(sp)
157jsr _e_alc
158move.l R0,R13
159move.l R13,R0
160beq L6
161*line 74
162*line 75
163move.b #13,5(R13)
164*line 76
165move 8(R14),R0
166move.b R0,6(R13)
167*line 77
168move.b R7,7(R13)
169*line 78
170move.l _t_cur,(R13)
171*line 79
172move.l _t_cur,(sp)
173clr -(sp)
174move.l _p_cur,-(sp)
175jsr _ep_adj
176addq.l #6,sp
177move.l R0,(sp)
178move.l R13,-(sp)
179jsr _e_ins
180addq.l #4,sp
181move.l R0,R8
182move.l 12(R8),_p_cur
183*line 80
184move #3,(sp)
185move.l R13,-(sp)
186jsr _eh_ins
187addq.l #4,sp
188*line 81
189move #1,_ctrsw
190*line 82
191move #1,(sp)
192move.l #_gdstbc,-(sp)
193clr -(sp)
194move.l R13,-(sp)
195jsr _se_disp
196adda.l #10,sp
197*line 83
198jsr _scupd
199*line 84
200L6:L5:
201*line 85
202*line 86
203L3:
204*line 87
205clr R0
206bra L2
207L2:tst.l (sp)+
208movem.l (sp)+,R7-R7/R13-R13
209unlk R14
210rts
211.globl _rd_dyn
212.text
213_rd_dyn:
214~~rd_dyn:
215~n=8
216link R14,#-4
217*line 103
218*line 104
219clr R0
220move 10+_v_regs,R0
221and #384,R0
222beq L8
223*line 104
224clr (sp)
225jsr _vbank
226*line 105
227L8:
228*line 106
229move #18,(sp)
230move 8(R14),R8
231add.l R8,R8
232move.l #_grpdyn,R9
233move 0(R8,R9.l),-(sp)
234add #48,(sp)
235move 8(R14),R0
236muls #5,R0
237move R0,-(sp)
238add #6,(sp)
239move #4,-(sp)
240move.l _obj8,-(sp)
241jsr _vputc
242adda.l #10,sp
243*line 108
244clr R0
245bra L7
246L7:unlk R14
247rts
248.globl _ds_dyn
249.text
250_ds_dyn:
251~~ds_dyn:
252link R14,#0
253movem.l R6-R7,-(sp)
254~i=R7
255*line 121
256clr R7
257bra L12
258L13:
259*line 122
260move R7,(sp)
261jsr _rd_dyn
262L11:
263*line 121
264add #1,R7
265L12:
266*line 121
267cmp #12,R7
268blt L13
269L10:L9:tst.l (sp)+
270movem.l (sp)+,R7-R7
271unlk R14
272rts
273.globl _nd_dyn
274.text
275_nd_dyn:
276~~nd_dyn:
277~n=R7
278~k=R6
279link R14,#0
280movem.l R5-R7,-(sp)
281*line 138
282move 8(R14),R7
283*line 138
284move 10(R14),R6
285*line 138
286move R6,R0
287add #48,R0
288move.b R0,_ebuf
289*line 140
290*line 141
291clr R0
292move 10+_v_regs,R0
293and #384,R0
294beq L15
295*line 141
296clr (sp)
297jsr _vbank
298*line 142
299L15:
300*line 143
301move #98,(sp)
302move R6,-(sp)
303add #48,(sp)
304move _stccol,-(sp)
305move #4,-(sp)
306move.l _obj8,-(sp)
307jsr _vputc
308adda.l #10,sp
309*line 144
310jsr _advscur
311*line 146
312clr R0
313bra L14
314L14:tst.l (sp)+
315movem.l (sp)+,R6-R7
316unlk R14
317rts
318.data
Note: See TracBrowser for help on using the repository browser.