source: buchla-68k/alcyon/etinst.s@ f806726

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 4.8 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 _grpmode
74.globl _grpstat
75.globl _ins2grp
76.globl _gdstbc
77.globl _et_inst
78.text
79_et_inst:
80~~et_inst:
81~n=8
82link R14,#-4
83*line 43
84move 8(R14),R8
85add.l R8,R8
86move.l #_ins2grp,R9
87move 0(R8,R9.l),(sp)
88and #255,(sp)
89move.l #L2,-(sp)
90move.l #_ebuf,-(sp)
91jsr _sprintf
92addq.l #8,sp
93*line 44
94move #1,_ebflag
95*line 46
96clr R0
97bra L1
98L1:unlk R14
99rts
100.globl _ef_inst
101.text
102_ef_inst:
103~~ef_inst:
104~n=8
105link R14,#0
106movem.l R6-R7/R13-R13,-(sp)
107~ival=R7
108~ep=R13
109*line 65
110clr.b 2+_ebuf
111*line 66
112move.b _ebuf,R7
113ext.w R7
114add #-48,R7
115muls #10,R7
116move.b 1+_ebuf,R0
117ext.w R0
118add R0,R7
119add #-48,R7
120*line 67
121clr _ebflag
122*line 69
123*line 70
124cmp #41,R7
125blt L4
126*line 70
127move #-1,R0
128bra L3
129*line 71
130L4:
131*line 72
132move R7,R0
133move 8(R14),R9
134add.l R9,R9
135add.l #_ins2grp,R9
136move (R9),R1
137and #-256,R1
138or R1,R0
139move 8(R14),R9
140add.l R9,R9
141add.l #_ins2grp,R9
142move R0,(R9)
143*line 73
144move 8(R14),(sp)
145jsr _setv2gi
146*line 74
147jsr _setinst
148*line 76
149*line 76
150tst _recsw
151beq L5
152move 8(R14),R8
153add.l R8,R8
154move.l #_grpstat,R9
155tst 0(R8,R9.l)
156beq L5
157move 8(R14),R8
158add.l R8,R8
159add.l #_grpmode,R8
160cmp #2,(R8)
161bne L5
162*line 77
163*line 78
164*line 78
165move #-1,(sp)
166move 8(R14),-(sp)
167move #4,-(sp)
168move.l _t_cur,-(sp)
169move.l _p_cur,-(sp)
170jsr _findev
171adda.l #12,sp
172move.l R0,R13
173move.l R13,R0
174beq L6
175*line 79
176*line 80
177move.b R7,7(R13)
178*line 81
179bra L7
180L6:
181*line 82
182*line 82
183move #6,(sp)
184jsr _e_alc
185move.l R0,R13
186move.l R13,R0
187beq L8
188*line 83
189*line 84
190move.b #4,5(R13)
191*line 85
192move 8(R14),R0
193move.b R0,6(R13)
194*line 86
195move.b R7,7(R13)
196*line 87
197move.l _t_cur,(R13)
198*line 88
199move.l _t_cur,(sp)
200clr -(sp)
201move.l _p_cur,-(sp)
202jsr _ep_adj
203addq.l #6,sp
204move.l R0,(sp)
205move.l R13,-(sp)
206jsr _e_ins
207addq.l #4,sp
208move.l R0,R8
209move.l 12(R8),_p_cur
210*line 89
211clr (sp)
212move.l R13,-(sp)
213jsr _eh_ins
214addq.l #4,sp
215*line 90
216move #1,_ctrsw
217*line 91
218move #1,(sp)
219move.l #_gdstbc,-(sp)
220clr -(sp)
221move.l R13,-(sp)
222jsr _se_disp
223adda.l #10,sp
224*line 92
225jsr _scupd
226*line 93
227L8:L7:
228*line 94
229*line 95
230L5:
231*line 96
232clr R0
233bra L3
234L3:tst.l (sp)+
235movem.l (sp)+,R7-R7/R13-R13
236unlk R14
237rts
238.globl _rd_inst
239.text
240_rd_inst:
241~~rd_inst:
242~n=8
243link R14,#-8
244~buf=-4
245*line 114
246move 8(R14),R8
247add.l R8,R8
248move.l #_ins2grp,R9
249move 0(R8,R9.l),(sp)
250and #255,(sp)
251move.l #L10,-(sp)
252move.l R14,-(sp)
253sub.l #4,(sp)
254jsr _sprintf
255addq.l #8,sp
256*line 116
257*line 117
258clr R0
259move 10+_v_regs,R0
260and #384,R0
261beq L11
262*line 117
263clr (sp)
264jsr _vbank
265*line 118
266L11:
267*line 119
268move #18,(sp)
269move.l R14,-(sp)
270sub.l #4,(sp)
271move 8(R14),R0
272muls #5,R0
273move R0,-(sp)
274add #7,(sp)
275move #2,-(sp)
276move.l _obj8,-(sp)
277jsr _vputs
278adda.l #12,sp
279*line 121
280clr R0
281bra L9
282L9:unlk R14
283rts
284.globl _ds_inst
285.text
286_ds_inst:
287~~ds_inst:
288link R14,#0
289movem.l R6-R7,-(sp)
290~i=R7
291*line 134
292clr R7
293bra L15
294L16:
295*line 135
296move R7,(sp)
297jsr _rd_inst
298L14:
299*line 134
300add #1,R7
301L15:
302*line 134
303cmp #12,R7
304blt L16
305L13:L12:tst.l (sp)+
306movem.l (sp)+,R7-R7
307unlk R14
308rts
309.globl _nd_inst
310.text
311_nd_inst:
312~~nd_inst:
313~n=R7
314~k=R6
315link R14,#0
316movem.l R4-R7,-(sp)
317~ec=R5
318*line 153
319move 8(R14),R7
320*line 153
321move 10(R14),R6
322*line 153
323move _stccol,R5
324move.l _cfetp,R8
325move 2(R8),R0
326sub R0,R5
327*line 154
328move R6,R0
329add #48,R0
330move R5,R9
331add.l #_ebuf,R9
332move.b R0,(R9)
333*line 156
334*line 157
335clr R0
336move 10+_v_regs,R0
337and #384,R0
338beq L18
339*line 157
340clr (sp)
341jsr _vbank
342*line 158
343L18:
344*line 159
345move #98,(sp)
346move R6,-(sp)
347add #48,(sp)
348move _stccol,-(sp)
349move #2,-(sp)
350move.l _obj8,-(sp)
351jsr _vputc
352adda.l #10,sp
353*line 160
354jsr _advscur
355*line 162
356clr R0
357bra L17
358L17:tst.l (sp)+
359movem.l (sp)+,R5-R7
360unlk R14
361rts
362.data
363L2:.dc.b $25,$30,$32,$2E,$32,$64,$0
364L10:.dc.b $25,$30,$32,$2E,$32,$64,$0
Note: See TracBrowser for help on using the repository browser.