source: buchla-68k/alcyon/pix2mid.s

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 4.0 KB
Line 
1.globl _ac_code
2.globl _scname
3.globl _se_chg
4.globl _curscor
5.globl _cursect
6.globl _se1_cnt
7.globl _se2_cnt
8.globl _se3_cnt
9.globl _spool
10.globl _pspool
11.globl _spcount
12.globl _frags
13.globl _t_bak
14.globl _t_cur
15.globl _t_ctr
16.globl _t_fwd
17.globl _size1
18.globl _size2
19.globl _size3
20.globl _scores
21.globl _scp
22.globl _seclist
23.globl _hplist
24.globl _p_bak
25.globl _p_cur
26.globl _p_ctr
27.globl _p_fwd
28.globl _cflag
29.globl _cnote
30.globl _cyval
31.globl _cxval
32.globl _ctime
33.globl _t_cur
34.globl _mpixtab
35.data
36_mpixtab:
37.dc.w $1
38.dc.w $6C
39.dc.w $0
40.dc.w $0
41.dc.w $5
42.dc.w $6B
43.dc.w $0
44.dc.w $1
45.dc.w $9
46.dc.w $69
47.dc.w $1
48.dc.w $1
49.dc.w $D
50.dc.w $67
51.dc.w $1
52.dc.w $1
53.dc.w $11
54.dc.w $65
55.dc.w $1
56.dc.w $0
57.dc.w $15
58.dc.w $64
59.dc.w $0
60.dc.w $1
61.dc.w $19
62.dc.w $62
63.dc.w $1
64.dc.w $1
65.dc.w $1D
66.dc.w $60
67.dc.w $1
68.dc.w $0
69.dc.w $21
70.dc.w $5F
71.dc.w $0
72.dc.w $1
73.dc.w $25
74.dc.w $5D
75.dc.w $1
76.dc.w $1
77.dc.w $29
78.dc.w $5B
79.dc.w $1
80.dc.w $1
81.dc.w $2D
82.dc.w $59
83.dc.w $1
84.dc.w $0
85.dc.w $31
86.dc.w $58
87.dc.w $0
88.dc.w $1
89.dc.w $35
90.dc.w $56
91.dc.w $1
92.dc.w $1
93.dc.w $39
94.dc.w $54
95.dc.w $1
96.dc.w $0
97.dc.w $3D
98.dc.w $53
99.dc.w $0
100.dc.w $1
101.dc.w $41
102.dc.w $51
103.dc.w $1
104.dc.w $1
105.dc.w $45
106.dc.w $4F
107.dc.w $1
108.dc.w $1
109.dc.w $49
110.dc.w $4D
111.dc.w $1
112.dc.w $0
113.dc.w $4D
114.dc.w $4C
115.dc.w $0
116.dc.w $1
117.dc.w $51
118.dc.w $4A
119.dc.w $1
120.dc.w $1
121.dc.w $55
122.dc.w $48
123.dc.w $1
124.dc.w $0
125.dc.w $59
126.dc.w $47
127.dc.w $0
128.dc.w $1
129.dc.w $5D
130.dc.w $45
131.dc.w $1
132.dc.w $1
133.dc.w $61
134.dc.w $43
135.dc.w $1
136.dc.w $1
137.dc.w $65
138.dc.w $41
139.dc.w $1
140.dc.w $0
141.dc.w $69
142.dc.w $40
143.dc.w $0
144.dc.w $1
145.dc.w $6D
146.dc.w $3E
147.dc.w $1
148.dc.w $1
149.dc.w $71
150.dc.w $3C
151.dc.w $1
152.dc.w $0
153.dc.w $75
154.dc.w $3B
155.dc.w $0
156.dc.w $1
157.dc.w $79
158.dc.w $39
159.dc.w $1
160.dc.w $1
161.dc.w $7D
162.dc.w $37
163.dc.w $1
164.dc.w $1
165.dc.w $81
166.dc.w $35
167.dc.w $1
168.dc.w $0
169.dc.w $85
170.dc.w $34
171.dc.w $0
172.dc.w $1
173.dc.w $89
174.dc.w $32
175.dc.w $1
176.dc.w $1
177.dc.w $8D
178.dc.w $30
179.dc.w $1
180.dc.w $0
181.dc.w $91
182.dc.w $2F
183.dc.w $0
184.dc.w $1
185.dc.w $95
186.dc.w $2D
187.dc.w $1
188.dc.w $1
189.dc.w $99
190.dc.w $2B
191.dc.w $1
192.dc.w $1
193.dc.w $9D
194.dc.w $29
195.dc.w $1
196.dc.w $0
197.dc.w $A1
198.dc.w $28
199.dc.w $0
200.dc.w $1
201.dc.w $A5
202.dc.w $26
203.dc.w $1
204.dc.w $1
205.dc.w $A9
206.dc.w $24
207.dc.w $1
208.dc.w $0
209.dc.w $AD
210.dc.w $23
211.dc.w $0
212.dc.w $1
213.dc.w $B1
214.dc.w $21
215.dc.w $1
216.dc.w $1
217.dc.w $B5
218.dc.w $1F
219.dc.w $1
220.dc.w $1
221.dc.w $B9
222.dc.w $1D
223.dc.w $1
224.dc.w $0
225.dc.w $BD
226.dc.w $1C
227.dc.w $0
228.dc.w $1
229.dc.w $C1
230.dc.w $1A
231.dc.w $1
232.dc.w $1
233.dc.w $C5
234.dc.w $18
235.dc.w $1
236.dc.w $0
237.dc.w $C9
238.dc.w $17
239.dc.w $0
240.dc.w $1
241.dc.w $CD
242.dc.w $15
243.dc.w $1
244.dc.w $0
245.globl _pix2mid
246.text
247_pix2mid:
248~~pix2mid:
249link R14,#0
250movem.l R3-R7,-(sp)
251~i=R7
252~cy=R6
253~mpc=R5
254~ct=R4
255*line 127
256move #-1,_cnote
257*line 128
258move.l #$ffffffff,_ctime
259*line 129
260move #-1,_cflag
261*line 130
262cmp.b #4,_ac_code
263bne L10000
264move #2,R0
265bra L10002
266L10000:move #3,R0
267L10002:move R0,R5
268*line 132
269move _cxval,R4
270ext.l R4
271add.l _t_cur,R4
272add.l #$ffffff00,R4
273*line 134
274*line 135
275tst.l R4
276bge L2
277*line 135
278move #-1,R0
279bra L1
280*line 136
281L2:
282*line 137
283move.l R4,_ctime
284*line 138
285move _cyval,R6
286add #-14,R6
287*line 140
288clr R7
289bra L5
290L6:
291*line 141
292*line 142
293*line 143
294move R7,R0
295asl #3,R0
296ext.l R0
297add.l #_mpixtab,R0
298move.l R0,R8
299cmp (R8),R6
300blt L7
301move R7,R0
302asl #3,R0
303ext.l R0
304move.l R0,R8
305move.l #_mpixtab,R9
306move 0(R8,R9.l),R0
307add #2,R0
308cmp R0,R6
309bgt L7
310*line 144
311*line 145
312move R7,R0
313asl #3,R0
314ext.l R0
315add.l #_mpixtab,R0
316move.l R0,R8
317move 2(R8),_cnote
318*line 146
319move R7,R0
320asl #3,R0
321ext.l R0
322move R5,R1
323asl #1,R1
324ext.l R1
325add.l R1,R0
326add.l #_mpixtab,R0
327move.l R0,R8
328move (R8),_cflag
329bra L3
330*line 147
331*line 148
332L7:L4:
333*line 140
334add #1,R7
335L5:
336*line 140
337cmp #52,R7
338blt L6
339L3:
340*line 151
341cmp #$ffffffff,_cnote
342bne L10003
343move #-1,R0
344bra L10005
345L10003:clr R0
346L10005:bra L1
347L1:tst.l (sp)+
348movem.l (sp)+,R4-R7
349unlk R14
350rts
351.data
Note: See TracBrowser for help on using the repository browser.