source: buchla-68k/alcyon/etwoff.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: 5.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 _waveob
43.globl _stcrow
44.globl _stccol
45.globl _lstwoff
46.globl _curwoff
47.globl _curvce
48.globl _curwslt
49.globl _curwdth
50.globl _wsnmod
51.globl _wdbox
52.globl _dspbuf
53.globl _et_woff
54.text
55_et_woff:
56~~et_woff:
57~n=8
58link R14,#0
59movem.l R5-R7,-(sp)
60~hoff=R7
61~hosgn=R6
62*line 48
63move _curwoff,_lstwoff
64*line 50
65*line 50
66tst _curwoff
67bge L2
68*line 51
69*line 52
70move.b #45,R6
71*line 53
72move _curwoff,R0
73neg R0
74move R0,R7
75*line 54
76bra L3
77L2:
78*line 55
79*line 56
80*line 57
81move.b #43,R6
82*line 58
83move _curwoff,R7
84L3:
85*line 61
86move R7,(sp)
87move.b R6,R0
88ext.w R0
89move R0,-(sp)
90move.l #L4,-(sp)
91move.l #_ebuf,-(sp)
92jsr _sprintf
93adda.l #10,sp
94*line 62
95move #1,_ebflag
96*line 64
97clr R0
98bra L1
99L1:tst.l (sp)+
100movem.l (sp)+,R6-R7
101unlk R14
102rts
103.globl _ef_woff
104.text
105_ef_woff:
106~~ef_woff:
107~n=8
108link R14,#0
109movem.l R5-R7/R13-R13,-(sp)
110~ov=R13
111~i=R7
112~tmpval=R6
113*line 83
114clr.b 5+_ebuf
115*line 84
116clr _ebflag
117*line 86
118clr R6
119*line 88
120move #1,R7
121bra L8
122L9:
123*line 89
124muls #10,R6
125move.l #_ebuf,R8
126move.b 0(R8,R7),R0
127ext.w R0
128add R0,R6
129add #-48,R6
130L7:
131*line 88
132add #1,R7
133L8:
134*line 88
135cmp #5,R7
136blt L9
137L6:
138*line 91
139*line 92
140cmp #1023,R6
141ble L10
142*line 92
143move #-1,R0
144bra L5
145*line 93
146L10:
147*line 94
148*line 95
149cmp.b #45,_ebuf
150bne L11
151*line 95
152move R6,R0
153neg R0
154move R0,_curwoff
155*line 96
156bra L12
157L11:
158*line 97
159move R6,_curwoff
160L12:
161*line 99
162*line 100
163cmp #8,_curwdth
164bne L13
165*line 100
166jsr _wdintp
167*line 101
168bra L14
169L13:
170*line 102
171jsr _pntsup
172L14:
173*line 104
174clr (sp)
175jsr _wdswin
176*line 105
177move #2,(sp)
178jsr _wdswin
179*line 106
180move #4,(sp)
181jsr _wdswin
182*line 107
183clr R0
184bra L5
185L5:tst.l (sp)+
186movem.l (sp)+,R6-R7/R13-R13
187unlk R14
188rts
189.globl _rd_woff
190.text
191_rd_woff:
192~~rd_woff:
193~nn=8
194link R14,#0
195movem.l R4-R7,-(sp)
196~hoff=R7
197~n=R6
198~hosgn=R5
199*line 126
200move 8(R14),R6
201and #255,R6
202*line 127
203move _curwoff,_lstwoff
204*line 129
205*line 129
206tst _curwoff
207bge L16
208*line 130
209*line 131
210move.b #45,R5
211*line 132
212move _curwoff,R0
213neg R0
214move R0,R7
215*line 133
216bra L17
217L16:
218*line 134
219*line 135
220*line 136
221move.b #43,R5
222*line 137
223move _curwoff,R7
224L17:
225*line 140
226move R7,(sp)
227move.b R5,R0
228ext.w R0
229move R0,-(sp)
230move.l #L18,-(sp)
231move.l #_dspbuf,-(sp)
232jsr _sprintf
233adda.l #10,sp
234*line 144
235*line 145
236clr R0
237move 10+_v_regs,R0
238and #384,R0
239beq L19
240*line 145
241clr (sp)
242jsr _vbank
243*line 146
244L19:
245*line 147
246*line 148
247move #14,(sp)
248move.l #_dspbuf,-(sp)
249move R6,R0
250asl #4,R0
251ext.l R0
252move.l R0,R8
253move.l #_wdbox,R9
254move 14(R8,R9.l),-(sp)
255add #14,(sp)
256move R6,R0
257asl #4,R0
258ext.l R0
259move.l R0,R8
260move.l #_wdbox,R9
261move 12(R8,R9.l),-(sp)
262move R6,R0
263asl #4,R0
264ext.l R0
265move.l R0,R8
266move.l #_wdbox,R9
267move 10(R8,R9.l),-(sp)
268move R6,R0
269asl #4,R0
270ext.l R0
271move.l R0,R8
272move.l #_wdbox,R9
273move 8(R8,R9.l),-(sp)
274move #64,-(sp)
275move.l _waveob,-(sp)
276jsr _vcputsv
277adda.l #18,sp
278*line 150
279clr R0
280bra L15
281L15:tst.l (sp)+
282movem.l (sp)+,R5-R7
283unlk R14
284rts
285.globl _nd_woff
286.text
287_nd_woff:
288~~nd_woff:
289~k=R7
290~nn=8
291link R14,#0
292movem.l R4-R7,-(sp)
293~ec=R6
294~n=R5
295*line 169
296move 10(R14),R7
297*line 169
298move 8(R14),R5
299and #255,R5
300*line 170
301move _stccol,R6
302move.l _cfetp,R8
303move 2(R8),R0
304sub R0,R6
305*line 172
306*line 172
307tst R6
308bne L21
309*line 173
310*line 174
311*line 174
312cmp #8,R7
313bne L22
314*line 175
315*line 176
316move.b #45,_ebuf
317*line 177
318clr.b 5+_ebuf
319*line 178
320*line 179
321move.b #45,_dspbuf
322*line 180
323clr.b 1+_dspbuf
324*line 181
325bra L23
326L22:
327*line 182
328*line 182
329cmp #9,R7
330bne L24
331*line 183
332*line 184
333move.b #43,_ebuf
334*line 185
335clr.b 5+_ebuf
336*line 186
337*line 187
338move.b #43,_dspbuf
339*line 188
340clr.b 1+_dspbuf
341*line 189
342bra L25
343L24:
344*line 190
345*line 191
346*line 192
347move #-1,R0
348bra L20
349L25:L23:
350*line 193
351*line 194
352bra L26
353L21:
354*line 195
355*line 196
356*line 197
357move R7,R0
358add #48,R0
359move R6,R9
360add.l #_ebuf,R9
361move.b R0,(R9)
362*line 198
363clr.b 5+_ebuf
364*line 199
365*line 200
366move R7,R0
367add #48,R0
368move.b R0,_dspbuf
369*line 201
370clr.b 1+_dspbuf
371L26:
372*line 205
373*line 206
374clr R0
375move 10+_v_regs,R0
376and #384,R0
377beq L27
378*line 206
379clr (sp)
380jsr _vbank
381*line 207
382L27:
383*line 208
384*line 209
385move #14,(sp)
386move.l #_dspbuf,-(sp)
387move _stccol,-(sp)
388move _stcrow,-(sp)
389move R5,R0
390asl #4,R0
391ext.l R0
392move.l R0,R8
393move.l #_wdbox,R9
394move 10(R8,R9.l),-(sp)
395move #12,-(sp)
396move #64,-(sp)
397move.l _waveob,-(sp)
398jsr _vcputsv
399adda.l #18,sp
400*line 211
401jsr _advwcur
402*line 212
403clr R0
404bra L20
405L20:tst.l (sp)+
406movem.l (sp)+,R5-R7
407unlk R14
408rts
409.data
410L4:.dc.b $25,$63,$25,$30,$34,$64,$0
411L18:.dc.b $25,$63,$25,$30,$34,$64,$0
Note: See TracBrowser for help on using the repository browser.