source: buchla-68k/alcyon/etiwsn.s@ 6099cac

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

Added Alcyon C reference output.

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