source: buchla-68k/alcyon/etavgr.s@ abd4109

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 3.5 KB
Line 
1.globl _ebflag
2.globl _ebuf
3.globl _curfet
4.globl _cfetp
5.globl _infetp
6.globl _asgob
7.globl _stcrow
8.globl _stccol
9.globl _adbox
10.globl _dspbuf
11.globl _vce2grp
12.globl _ins2grp
13.globl _et_avgr
14.text
15_et_avgr:
16~~et_avgr:
17~nn=8
18link R14,#-4
19movem.l R6-R7,-(sp)
20~grp=R7
21~buf=-4
22*line 52
23move 8(R14),R7
24asr #8,R7
25and #255,R7
26*line 54
27move R7,R8
28add.l R8,R8
29move.l #_vce2grp,R9
30move 0(R8,R9.l),(sp)
31move.l R14,-(sp)
32sub.l #4,(sp)
33jsr _numblk
34addq.l #4,sp
35move.l R0,(sp)
36move.l #L2,-(sp)
37move.l #_ebuf,-(sp)
38jsr _sprintf
39addq.l #8,sp
40*line 55
41move #1,_ebflag
42*line 62
43clr R0
44bra L1
45L1:tst.l (sp)+
46movem.l (sp)+,R7-R7
47unlk R14
48rts
49.globl _ef_avgr
50.text
51_ef_avgr:
52~~ef_avgr:
53~nn=8
54link R14,#0
55movem.l R4-R7,-(sp)
56~tmpval=R7
57~vce=R6
58~i=R5
59*line 80
60move 8(R14),R6
61asr #8,R6
62and #255,R6
63*line 82
64clr.b 2+_ebuf
65*line 83
66clr _ebflag
67*line 84
68clr R7
69*line 91
70*line 91
71cmp.b #32,_ebuf
72bne L4
73cmp.b #32,1+_ebuf
74bne L4
75*line 92
76*line 93
77move #-1,R7
78*line 94
79bra L5
80L4:
81*line 95
82*line 96
83*line 97
84clr R5
85bra L8
86L9:
87*line 98
88*line 99
89*line 100
90move R5,R8
91add.l #_ebuf,R8
92cmp.b #32,(R8)
93bne L10
94*line 100
95move R5,R8
96add.l #_ebuf,R8
97move.b #48,(R8)
98*line 101
99L10:
100*line 102
101muls #10,R7
102move.l #_ebuf,R8
103move.b 0(R8,R5),R0
104ext.w R0
105add R0,R7
106add #-48,R7
107L7:
108*line 97
109add #1,R5
110L8:
111*line 97
112cmp #2,R5
113blt L9
114L6:
115*line 103
116*line 104
117*line 105
118*line 106
119tst R7
120beq L10000
121cmp #12,R7
122ble L11
123L10000:*line 106
124move #-1,R0
125bra L3
126L11:L5:
127*line 109
128move R6,R8
129add.l R8,R8
130add.l #_vce2grp,R8
131move R7,(R8)
132*line 111
133*line 112
134tst R7
135ble L12
136*line 112
137move #1,(sp)
138move R7,R8
139sub #1,R8
140add.l R8,R8
141move.l #_ins2grp,R9
142move 0(R8,R9.l),-(sp)
143and #255,(sp)
144move R6,-(sp)
145jsr _execinst
146addq.l #4,sp
147*line 113
148L12:
149*line 114
150jsr _modasg
151*line 115
152clr R0
153bra L3
154L3:tst.l (sp)+
155movem.l (sp)+,R5-R7
156unlk R14
157rts
158.globl _rd_avgr
159.text
160_rd_avgr:
161~~rd_avgr:
162~nn=8
163link R14,#-4
164movem.l R5-R7,-(sp)
165~n=R7
166~grp=R6
167~buf=-4
168*line 134
169move 8(R14),R7
170and #255,R7
171*line 135
172move 8(R14),R6
173asr #8,R6
174and #255,R6
175*line 137
176clr (sp)
177jsr _vbank
178*line 138
179*line 139
180move #14,(sp)
181move R6,R8
182add.l R8,R8
183move.l #_vce2grp,R9
184move 0(R8,R9.l),-(sp)
185move.l R14,-(sp)
186sub.l #4,(sp)
187jsr _numblk
188addq.l #6,sp
189move.l R0,-(sp)
190move.l _cfetp,R8
191move 2(R8),-(sp)
192move.l _cfetp,R8
193move (R8),-(sp)
194move R7,R0
195asl #4,R0
196ext.l R0
197move.l R0,R8
198move.l #_adbox,R9
199move 10(R8,R9.l),-(sp)
200move R7,R0
201asl #4,R0
202ext.l R0
203move.l R0,R8
204move.l #_adbox,R9
205move 8(R8,R9.l),-(sp)
206move #64,-(sp)
207move.l _asgob,-(sp)
208jsr _vcputsv
209adda.l #18,sp
210*line 141
211clr R0
212bra L13
213L13:tst.l (sp)+
214movem.l (sp)+,R6-R7
215unlk R14
216rts
217.globl _nd_avgr
218.text
219_nd_avgr:
220~~nd_avgr:
221~k=R7
222~nn=8
223link R14,#0
224movem.l R4-R7,-(sp)
225~n=R6
226~col=R5
227*line 160
228move 10(R14),R7
229*line 160
230move 8(R14),R6
231and #255,R6
232*line 161
233move _stccol,R5
234move.l _cfetp,R8
235move 2(R8),R0
236sub R0,R5
237*line 163
238move R7,R0
239add #48,R0
240move R5,R9
241add.l #_ebuf,R9
242move.b R0,(R9)
243*line 164
244clr.b 2+_ebuf
245*line 172
246move R7,R0
247add #48,R0
248move.b R0,_dspbuf
249*line 173
250clr.b 1+_dspbuf
251*line 175
252clr (sp)
253jsr _vbank
254*line 176
255move #14,(sp)
256move.l #_dspbuf,-(sp)
257move _stccol,-(sp)
258move _stcrow,-(sp)
259move R6,R0
260asl #4,R0
261ext.l R0
262move.l R0,R8
263move.l #_adbox,R9
264move 10(R8,R9.l),-(sp)
265move #12,-(sp)
266move #64,-(sp)
267move.l _asgob,-(sp)
268jsr _vcputsv
269adda.l #18,sp
270*line 178
271jsr _advacur
272*line 179
273clr R0
274bra L14
275L14:tst.l (sp)+
276movem.l (sp)+,R5-R7
277unlk R14
278rts
279.data
280L2:.dc.b $25,$73,$0
Note: See TracBrowser for help on using the repository browser.