source: buchla-68k/alcyon/sqwrite.s@ ca867c1

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

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 5.0 KB
RevLine 
[7bf3856]1.globl _Cbuffs
2.globl _Stdbufs
3.globl _Stdbuf
4.globl _io_time
5.globl _io_lcd
6.globl _io_ser
7.globl _io_midi
8.globl _io_disk
9.globl _io_tone
10.globl _io_leds
11.globl _io_kbrd
12.globl _lcd_a0
13.globl _lcd_a1
14.globl _io_vreg
15.globl _io_vraw
16.globl _io_vram
17.globl _io_fpu
18.globl _v_regs
19.globl _v_odtab
20.globl _v_actab
21.globl _v_ct0
22.globl _v_gt1
23.globl _v_score
24.globl _v_cgtab
25.globl _v_curs0
26.globl _v_curs1
27.globl _v_curs2
28.globl _v_curs3
29.globl _v_curs4
30.globl _v_curs5
31.globl _v_curs6
32.globl _v_curs7
33.globl _v_tcur
34.globl _v_kbobj
35.globl _v_lnobj
36.globl _v_win0
37.globl _v_cur
38.globl _fc_sw
39.globl _fc_val
40.globl _stmptr
41.globl _defptr
42.globl _patches
43.globl _defents
44.globl _seqtab
45.globl _seqflag
46.globl _seqline
47.globl _seqstim
48.globl _seqtime
49.globl _sregval
50.globl _trstate
51.globl _filecat
52.globl _sqsizer
53.text
54_sqsizer:
55~~sqsizer:
56link R14,#0
57movem.l R4-R7,-(sp)
58~i=R7
59~na=R6
60~nb=R5
61*line 42
62clr.l R5
63*line 44
64clr R7
65bra L4
66L5:
67*line 45
68*line 46
69clr R6
70*line 47
71*line 48
72*line 49
73move R7,R0
74muls #14,R0
75move.l R0,R8
76move.l #_seqtab,R9
77tst 0(R8,R9.l)
78beq L6
79*line 49
80add #2,R6
81*line 50
82L6:
83*line 51
84*line 52
85move R7,R0
86muls #14,R0
87move.l R0,R8
88move.l #_seqtab,R9
89tst 2(R8,R9.l)
90beq L7
91*line 52
92add #4,R6
93*line 53
94L7:
95*line 54
96*line 55
97move R7,R0
98muls #14,R0
99move.l R0,R8
100move.l #_seqtab,R9
101tst 6(R8,R9.l)
102beq L8
103*line 55
104add #4,R6
105*line 56
106L8:
107*line 57
108*line 58
109move R7,R0
110muls #14,R0
111move.l R0,R8
112move.l #_seqtab,R9
113tst 10(R8,R9.l)
114beq L9
115*line 58
116add #4,R6
117*line 59
118L9:
119*line 60
120*line 61
121tst R6
122beq L10
123*line 61
124move R6,R0
125add #3,R0
126ext.l R0
127add.l R0,R5
128L10:L3:
129*line 44
130add #1,R7
131L4:
132*line 44
133cmp #1000,R7
134blt L5
135L2:
136*line 64
137*line 65
138tst.l R5
139beq L11
140*line 65
141add.l #$1,R5
142*line 66
143*line 70
144*line 71
145L11:
146*line 72
147move.l R5,R0
148bra L1
149L1:tst.l (sp)+
150movem.l (sp)+,R5-R7
151unlk R14
152rts
153.globl _sqwrite
154.text
155_sqwrite:
156~~sqwrite:
157~fp=R13
158link R14,#-54
159movem.l R7-R7/R13-R13,-(sp)
160~seq=-2
161~cb=-4
162~zero=-6
163~scid=-54
164*line 97
165move.l 8(R14),R13
166*line 97
167clr.b -6(R14)
168*line 99
169*line 100
170move #9,(sp)
171move #12,-(sp)
172move.l #L14,-(sp)
173clr.l -(sp)
174move.l #L13,-(sp)
175jsr _ldwmsg
176adda.l #14,sp
177*line 102
178clr -2(R14)
179bra L17
180L18:
181*line 103
182*line 104
183clr.b -4(R14)
184*line 105
185*line 106
186*line 107
187move -2(R14),R0
188muls #14,R0
189move.l R0,R8
190move.l #_seqtab,R9
191tst 0(R8,R9.l)
192beq L19
193*line 107
194or.b #8,-4(R14)
195*line 108
196L19:
197*line 109
198*line 110
199move -2(R14),R0
200muls #14,R0
201move.l R0,R8
202move.l #_seqtab,R9
203tst 2(R8,R9.l)
204beq L20
205*line 110
206or.b #4,-4(R14)
207*line 111
208L20:
209*line 112
210*line 113
211move -2(R14),R0
212muls #14,R0
213move.l R0,R8
214move.l #_seqtab,R9
215tst 6(R8,R9.l)
216beq L21
217*line 113
218or.b #2,-4(R14)
219*line 114
220L21:
221*line 115
222*line 116
223move -2(R14),R0
224muls #14,R0
225move.l R0,R8
226move.l #_seqtab,R9
227tst 10(R8,R9.l)
228beq L22
229*line 116
230or.b #1,-4(R14)
231*line 117
232L22:
233*line 118
234*line 119
235tst.b -4(R14)
236beq L16
237*line 120
238*line 121
239*line 122
240move.l #$1,(sp)
241move.l R14,-(sp)
242sub.l #4,(sp)
243move.l R13,-(sp)
244jsr _wr_ec
245addq.l #8,sp
246tst R0
247beq L23
248*line 122
249move #-1,R0
250bra L12
251*line 123
252L23:
253*line 124
254*line 125
255move.l #$2,(sp)
256move.l R14,-(sp)
257sub.l #2,(sp)
258move.l R13,-(sp)
259jsr _wr_ec
260addq.l #8,sp
261tst R0
262beq L24
263*line 125
264move #-1,R0
265bra L12
266*line 126
267L24:
268*line 127
269*line 128
270btst #3,-4(R14)
271beq L25
272*line 128
273*line 129
274move.l #$2,(sp)
275move -2(R14),R0
276muls #14,R0
277add.l #_seqtab,R0
278move.l R0,-(sp)
279move.l R13,-(sp)
280jsr _wr_ec
281addq.l #8,sp
282tst R0
283beq L26
284*line 129
285move #-1,R0
286bra L12
287*line 130
288L26:L25:
289*line 131
290*line 132
291btst #2,-4(R14)
292beq L27
293*line 132
294*line 133
295move.l #$4,(sp)
296move -2(R14),R0
297muls #14,R0
298add.l #_seqtab,R0
299move.l R0,-(sp)
300add.l #2,(sp)
301move.l R13,-(sp)
302jsr _wr_ec
303addq.l #8,sp
304tst R0
305beq L28
306*line 133
307move #-1,R0
308bra L12
309*line 134
310L28:L27:
311*line 135
312*line 136
313btst #1,-4(R14)
314beq L29
315*line 136
316*line 137
317move.l #$4,(sp)
318move -2(R14),R0
319muls #14,R0
320add.l #_seqtab,R0
321move.l R0,-(sp)
322add.l #6,(sp)
323move.l R13,-(sp)
324jsr _wr_ec
325addq.l #8,sp
326tst R0
327beq L30
328*line 137
329move #-1,R0
330bra L12
331*line 138
332L30:L29:
333*line 139
334*line 140
335btst #0,-4(R14)
336beq L31
337*line 140
338*line 141
339move.l #$4,(sp)
340move -2(R14),R0
341muls #14,R0
342add.l #_seqtab,R0
343move.l R0,-(sp)
344add.l #10,(sp)
345move.l R13,-(sp)
346jsr _wr_ec
347addq.l #8,sp
348tst R0
349beq L32
350*line 141
351move #-1,R0
352bra L12
353L32:L31:L16:
354*line 102
355add #1,-2(R14)
356L17:
357*line 102
358cmp #1000,-2(R14)
359blt L18
360L15:
361*line 144
362*line 145
363move.l #$1,(sp)
364move.l R14,-(sp)
365sub.l #6,(sp)
366move.l R13,-(sp)
367jsr _wr_ec
368addq.l #8,sp
369tst R0
370beq L33
371*line 145
372move #-1,R0
373bra L12
374*line 146
375*line 150
376*line 151
377L33:
378*line 152
379clr R0
380bra L12
381L12:tst.l (sp)+
382movem.l (sp)+,R13-R13
383unlk R14
384rts
385.data
386L13:.dc.b $42,$75,$73,$79,$20,$2D,$2D,$20,$50,$6C,$65,$61,$73,$65,$20,$73,$74,$61,$6E,$64,$20,$62,$79,$0
387L14:.dc.b $20,$20,$77,$72,$69,$74,$69,$6E,$67,$20,$73,$65,$71,$75,$65,$6E,$63,$65,$73,$0
Note: See TracBrowser for help on using the repository browser.