source: buchla-68k/alcyon/etidin.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: 6.0 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 _instob
43.globl _vtcrow
44.globl _vtccol
45.globl _stccol
46.globl _curinst
47.globl _curvce
48.globl _idcfsw
49.globl _idintmp
50.globl _editsw
51.globl _curfunc
52.globl _submenu
53.globl _idbox
54.globl _instmod
55.globl _vce2grp
56.globl _dspbuf
57.globl _idefs
58.globl _vbufs
59.globl _et_idin
60.text
61_et_idin:
62~~et_idin:
63~n=8
64link R14,#-4
65*line 47
66move _curinst,(sp)
67move.l #L2,-(sp)
68move.l #_ebuf,-(sp)
69jsr _sprintf
70addq.l #8,sp
71*line 48
72move #1,_ebflag
73*line 50
74clr R0
75bra L1
76L1:unlk R14
77rts
78.globl _ef_idin
79.text
80_ef_idin:
81~~ef_idin:
82~n=8
83link R14,#0
84movem.l R4-R7/R13-R13,-(sp)
85~i=R7
86~tmpval=R6
87~j=R5
88~ip=R13
89*line 67
90*line 67
91tst _idcfsw
92beq L4
93*line 68
94*line 69
95*line 69
96cmp #22,_vtcrow
97bne L5
98*line 70
99*line 71
100*line 71
101cmp #35,_vtccol
102bge L6
103*line 72
104*line 73
105move _idintmp,(sp)
106jsr _newinst
107*line 74
108move #1,(sp)
109move _curinst,-(sp)
110move _curvce,-(sp)
111jsr _execins
112addq.l #4,sp
113*line 75
114*line 76
115*line 76
116tst _editsw
117bne L7
118*line 77
119*line 78
120*line 78
121move _curvce,R8
122add.l R8,R8
123add.l #_vce2grp,R8
124move (R8),R7
125ble L8
126*line 79
127*line 80
128clr R5
129bra L11
130L12:
131*line 81
132*line 82
133move R5,R8
134add.l R8,R8
135add.l #_vce2grp,R8
136cmp (R8),R7
137bne L13
138*line 82
139move #1,(sp)
140move _curinst,-(sp)
141move R5,-(sp)
142jsr _execins
143addq.l #4,sp
144L13:L10:
145*line 80
146add #1,R5
147L11:
148*line 80
149cmp #12,R5
150blt L12
151L9:
152*line 83
153L8:
154*line 84
155L7:
156*line 85
157*line 86
158L6:
159*line 87
160move #14,(sp)
161jsr _objclr
162*line 88
163jsr _idvlblc
164*line 89
165clr _idcfsw
166*line 90
167clr _submenu
168*line 91
169*line 92
170*line 92
171cmp #35,_vtccol
172bge L14
173*line 93
174*line 94
175jsr _allwins
176*line 95
177bra L15
178L14:
179*line 96
180*line 97
181*line 98
182move #22,(sp)
183jsr _dswin
184*line 99
185move #19,(sp)
186jsr _dswin
187L15:
188*line 100
189*line 101
190*line 102
191bra L16
192L5:
193*line 103
194*line 103
195cmp #23,_vtcrow
196bne L17
197*line 104
198*line 105
199*line 105
200tst _idintmp
201beq L18
202*line 106
203*line 107
204*line 108
205move #1969,(sp)
206move _curvce,R0
207muls #3938,R0
208add.l #_vbufs,R0
209move.l R0,-(sp)
210move _idintmp,R0
211muls #3938,R0
212add.l #_idefs,R0
213move.l R0,-(sp)
214jsr _memcpyw
215addq.l #8,sp
216*line 109
217*line 110
218move _idintmp,_curinst
219*line 111
220move _curvce,R8
221add.l R8,R8
222add.l #_instmod,R8
223clr (R8)
224*line 112
225*line 113
226L18:
227*line 114
228move #14,(sp)
229jsr _objclr
230*line 115
231jsr _idvlblc
232*line 116
233clr _idcfsw
234*line 117
235clr _submenu
236*line 118
237move #22,(sp)
238jsr _dswin
239*line 119
240move #19,(sp)
241jsr _dswin
242*line 120
243*line 121
244*line 122
245tst _idintmp
246bne L19
247*line 122
248move #-1,R0
249bra L3
250*line 123
251L19:
252*line 124
253bra L20
254L17:
255*line 125
256move #-1,R0
257bra L3
258L20:L16:
259*line 126
260*line 127
261clr R0
262bra L3
263*line 128
264*line 129
265bra L21
266L4:
267*line 130
268*line 131
269*line 132
270clr.b 2+_ebuf
271*line 133
272clr _ebflag
273*line 134
274*line 135
275clr R6
276*line 136
277*line 137
278clr R7
279bra L24
280L25:
281*line 138
282muls #10,R6
283move.l #_ebuf,R8
284move.b 0(R8,R7),R0
285ext.w R0
286add R0,R6
287add #-48,R6
288L23:
289*line 137
290add #1,R7
291L24:
292*line 137
293cmp #2,R7
294blt L25
295L22:
296*line 138
297*line 139
298*line 140
299*line 141
300cmp #41,R6
301blt L26
302*line 141
303move #-1,R0
304bra L3
305*line 142
306L26:
307*line 143
308move R6,_idintmp
309*line 144
310jsr _idcpfch
311*line 145
312move #22,(sp)
313jsr _dswin
314*line 146
315move #14,(sp)
316move #2,-(sp)
317jsr _SetPri
318addq.l #2,sp
319*line 147
320move #17,(sp)
321move #22,-(sp)
322jsr _ttcpos
323addq.l #2,sp
324*line 148
325move #1,_idcfsw
326*line 149
327move #1,_submenu
328*line 150
329clr R0
330bra L3
331L21:L3:tst.l (sp)+
332movem.l (sp)+,R5-R7/R13-R13
333unlk R14
334rts
335.globl _rd_idin
336.text
337_rd_idin:
338~~rd_idin:
339~n=8
340link R14,#-4
341*line 167
342*line 168
343tst _idcfsw
344beq L28
345*line 168
346move #-1,R0
347bra L27
348*line 169
349*line 170
350*line 171
351L28:
352*line 172
353move _curinst,(sp)
354move.l #L29,-(sp)
355move.l #_dspbuf,-(sp)
356jsr _sprintf
357addq.l #8,sp
358*line 174
359clr (sp)
360jsr _vbank
361*line 176
362*line 177
363move #14,(sp)
364move.l #_dspbuf,-(sp)
365move 8(R14),R0
366asl #4,R0
367ext.l R0
368move.l R0,R8
369move.l #_idbox,R9
370move 14(R8,R9.l),-(sp)
371add #14,(sp)
372move 8(R14),R0
373asl #4,R0
374ext.l R0
375move.l R0,R8
376move.l #_idbox,R9
377move 12(R8,R9.l),-(sp)
378move 8(R14),R0
379asl #4,R0
380ext.l R0
381move.l R0,R8
382move.l #_idbox,R9
383move 10(R8,R9.l),-(sp)
384move _curvce,R8
385add.l R8,R8
386move.l #_instmod,R9
387tst 0(R8,R9.l)
388beq L10000
389move #3,-(sp)
390bra L10002
391L10000:move 8(R14),R0
392asl #4,R0
393ext.l R0
394move.l R0,R8
395move.l #_idbox,R9
396move 8(R8,R9.l),-(sp)
397L10002:move #64,-(sp)
398move.l _instob,-(sp)
399jsr _vcputsv
400adda.l #18,sp
401*line 179
402clr R0
403bra L27
404L27:unlk R14
405rts
406.globl _nd_idin
407.text
408_nd_idin:
409~~nd_idin:
410~k=R7
411~n=8
412link R14,#0
413movem.l R4-R7,-(sp)
414~ec=R6
415~c=R5
416*line 198
417move 10(R14),R7
418*line 198
419move _stccol,R6
420move.l _cfetp,R8
421move 2(R8),R0
422sub R0,R6
423*line 199
424move R7,R0
425add #48,R0
426move R6,R9
427add.l #_ebuf,R9
428move.b R0,(R9)
429*line 200
430clr.b 2+_ebuf
431*line 202
432move R7,R0
433add #48,R0
434move.b R0,_dspbuf
435*line 203
436clr.b 1+_dspbuf
437*line 205
438clr (sp)
439jsr _vbank
440*line 207
441*line 208
442move #14,(sp)
443move.l #_dspbuf,-(sp)
444move _stccol,-(sp)
445move 8(R14),R0
446asl #4,R0
447ext.l R0
448move.l R0,R8
449move.l #_idbox,R9
450move 12(R8,R9.l),-(sp)
451move 8(R14),R0
452asl #4,R0
453ext.l R0
454move.l R0,R8
455move.l #_idbox,R9
456move 10(R8,R9.l),-(sp)
457move #10,-(sp)
458move #64,-(sp)
459move.l _instob,-(sp)
460jsr _vcputsv
461adda.l #18,sp
462*line 210
463jsr _advicur
464*line 212
465clr R0
466bra L30
467L30:tst.l (sp)+
468movem.l (sp)+,R5-R7
469unlk R14
470rts
471.data
472L2:.dc.b $25,$30,$32,$64,$0
473L29:.dc.b $25,$30,$32,$64,$0
Note: See TracBrowser for help on using the repository browser.