Context Navigation

vobjfns.s@ 1d174fb

Last change on this file since 1d174fb was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Added Alcyon C reference output.
Property mode set to `100644`
File size: 6.0 KB

Line
1	.globl _io_time
2	.globl _io_lcd
3	.globl _io_ser
4	.globl _io_midi
5	.globl _io_disk
6	.globl _io_tone
7	.globl _io_leds
8	.globl _io_kbrd
9	.globl _lcd_a0
10	.globl _lcd_a1
11	.globl _io_vreg
12	.globl _io_vraw
13	.globl _io_vram
14	.globl _io_fpu
15	.globl _v_regs
16	.globl _v_odtab
17	.globl _v_actab
18	.globl _v_ct0
19	.globl _v_gt1
20	.globl _v_score
21	.globl _v_cgtab
22	.globl _v_curs0
23	.globl _v_curs1
24	.globl _v_curs2
25	.globl _v_curs3
26	.globl _v_curs4
27	.globl _v_curs5
28	.globl _v_curs6
29	.globl _v_curs7
30	.globl _v_tcur
31	.globl _v_kbobj
32	.globl _v_lnobj
33	.globl _v_win0
34	.globl _v_cur
35	.globl _fc_sw
36	.globl _fc_val
37	.globl _v_obtab
38	.globl _v_curob
39	.globl _v_nobj
40	.globl _v_obpri
41	.globl _wsize
42	.comm _wsize,2
43	.globl _vi_dis
44	.comm _vi_dis,2
45	.globl _vi_ctl
46	.comm _vi_ctl,2
47	.globl _SelObj
48	.text
49	_SelObj:
50	~~SelObj:
51	~obj=8
52	link R14,#0
53	movem.l R6-R7/R13-R13,-(sp)
54	~op=R13
55	~newbank=R7
56	*line 83
57	move 8(R14),R0
58	muls #18,R0
59	move.l R0,R13
60	add.l #_v_obtab,R13
61	*line 85
62	move.b 13(R13),R7
63	ext.w R7
64	and #1,R7
65	lsl #8,R7
66	move.b 13(R13),R0
67	ext.w R0
68	and #2,R0
69	asl #6,R0
70	or R0,R7
71	*line 87
72	move 8(R14),_v_nobj
73	*line 88
74	move.l R13,_v_curob
75	*line 89
76	move.b 12(R13),R0
77	ext.w R0
78	move R0,_v_obpri
79	*line 91
80	*line 92
81	clr R0
82	move 10+_v_regs,R0
83	and #384,R0
84	cmp R0,R7
85	beq L2
86	*line 92
87	move.b 13(R13),R0
88	ext.w R0
89	move R0,(sp)
90	and #3,(sp)
91	jsr _vbank
92	L2:L1:tst.l (sp)+
93	movem.l (sp)+,R7-R7/R13-R13
94	unlk R14
95	rts
96	.globl _SetPri
97	.text
98	_SetPri:
99	~~SetPri:
100	~obj=R7
101	~pri=R6
102	link R14,#0
103	movem.l R5-R7/R13-R13,-(sp)
104	~op=R13
105	*line 113
106	move 8(R14),R7
107	*line 113
108	move 10(R14),R6
109	*line 113
110	*line 114
111	clr R0
112	move 10+_v_regs,R0
113	and #384,R0
114	beq L4
115	*line 114
116	clr (sp)
117	jsr _vbank
118	*line 115
119	L4:
120	*line 116
121	move R7,R0
122	muls #18,R0
123	move.l R0,R13
124	add.l #_v_obtab,R13
125	*line 117
126	move.b R6,12(R13)
127	*line 119
128	clr R0
129	move 14(R13),R0
130	or #16,R0
131	move R6,R1
132	asl #3,R1
133	ext.l R1
134	add.l #_v_odtab,R1
135	move.l R1,R9
136	move R0,(R9)
137	*line 120
138	move R6,R0
139	asl #3,R0
140	ext.l R0
141	add.l #_v_odtab,R0
142	move.l R0,R8
143	move 16(R13),2(R8)
144	*line 121
145	move.l 8(R13),R0
146	asr.l #1,R0
147	move R6,R1
148	asl #3,R1
149	ext.l R1
150	add.l #_v_odtab,R1
151	move.l R1,R9
152	move R0,4(R9)
153	*line 123
154	move (R13),(sp)
155	move 6(R13),-(sp)
156	move R6,-(sp)
157	jsr _objon
158	addq.l #4,sp
159	*line 125
160	*line 126
161	tst _vi_dis
162	bne L3
163	*line 127
164	*line 128
165	move #7,(sp)
166	jsr _setipl
167	*line 130
168	move #1,R0
169	move R6,R1
170	asl R1,R0
171	or R0,_vi_ctl
172	*line 132
173	*line 133
174	move.l $64,R0
175	cmp.l #_VIint,R0
176	beq L5
177	*line 133
178	move.l #_VIint,(sp)
179	move #25,-(sp)
180	move #5,-(sp)
181	jsr _trap13
182	addq.l #4,sp
183	*line 134
184	L5:
185	*line 135
186	clr (sp)
187	jsr _setipl
188	L3:tst.l (sp)+
189	movem.l (sp)+,R6-R7/R13-R13
190	unlk R14
191	rts
192	.globl _SetObj
193	.text
194	_SetObj:
195	~~SetObj:
196	~obj=8
197	~type=10
198	~bank=12
199	~base=14
200	~xpix=18
201	~ypix=20
202	~x0=22
203	~y0=24
204	~flags=26
205	~pri=28
206	link R14,#0
207	movem.l R7-R7/R13-R13,-(sp)
208	~op=R13
209	*line 154
210	*line 155
211	clr R0
212	move 10+_v_regs,R0
213	and #384,R0
214	beq L7
215	*line 155
216	clr (sp)
217	jsr _vbank
218	*line 156
219	L7:
220	*line 157
221	move 8(R14),R0
222	muls #18,R0
223	move.l R0,R13
224	add.l #_v_obtab,R13
225	*line 159
226	move.l R13,_v_curob
227	*line 160
228	move 8(R14),_v_nobj
229	*line 161
230	move 28(R14),_v_obpri
231	*line 163
232	move 20(R14),(R13)
233	*line 164
234	move 18(R14),2(R13)
235	*line 165
236	move 22(R14),4(R13)
237	*line 166
238	move 24(R14),6(R13)
239	*line 167
240	move.l 14(R14),8(R13)
241	*line 168
242	move 28(R14),R0
243	move.b R0,12(R13)
244	*line 169
245	move 12(R14),R0
246	and #3,R0
247	move.b R0,13(R13)
248	*line 173
249	*line 173
250	tst 10(R14)
251	beq L8
252	*line 174
253	*line 175
254	move 26(R14),R0
255	and #-1537,R0
256	or #-17408,R0
257	move R0,14(R13)
258	*line 176
259	*line 177
260	clr R0
261	move 14(R13),R0
262	and #1536,R0
263	bra L10
264	*line 178
265	L11:
266	*line 179
267	*line 180
268	*line 181
269	move 18(R14),R0
270	ext.l R0
271	divs #128,R0
272	move R0,_wsize
273	bra L9
274	*line 182
275	*line 183
276	L12:
277	*line 184
278	*line 185
279	*line 186
280	move 18(R14),R0
281	ext.l R0
282	divs #48,R0
283	move R0,_wsize
284	bra L9
285	*line 187
286	*line 188
287	L13:
288	*line 189
289	*line 190
290	*line 191
291	move 18(R14),R0
292	ext.l R0
293	divs #64,R0
294	move R0,_wsize
295	bra L9
296	*line 192
297	*line 193
298	L14:
299	*line 194
300	*line 195
301	*line 196
302	move 18(R14),R0
303	ext.l R0
304	divs #96,R0
305	move R0,_wsize
306	bra L9
307	*line 197
308	bra L9
309	L10:tst R0
310	beq L11
311	cmp #512,R0
312	beq L12
313	cmp #1024,R0
314	beq L13
315	cmp #1536,R0
316	beq L14
317	bra L9
318	L9:
319	*line 198
320	*line 199
321	*line 200
322	*line 201
323	btst #6,15(R13)
324	beq L15
325	*line 201
326	move _wsize,R0
327	asl #1,R0
328	add _wsize,R0
329	move R0,_wsize
330	*line 202
331	*line 203
332	*line 204
333	L15:bra L16
334	L8:
335	*line 205
336	*line 206
337	*line 207
338	move 26(R14),R0
339	and #3639,R0
340	move 12(R14),R1
341	and #3,R1
342	asl #6,R1
343	or R1,R0
344	move R0,14(R13)
345	*line 208
346	*line 209
347	clr R0
348	move 14(R13),R0
349	and #1536,R0
350	bra L18
351	*line 210
352	L19:
353	*line 211
354	L20:
355	*line 212
356	*line 213
357	*line 214
358	clr _wsize
359	bra L17
360	*line 215
361	*line 216
362	L21:
363	*line 217
364	*line 218
365	*line 219
366	move 18(R14),R0
367	ext.l R0
368	divs #32,R0
369	move R0,_wsize
370	bra L17
371	*line 220
372	*line 221
373	L22:
374	*line 222
375	*line 223
376	*line 224
377	move 18(R14),R0
378	ext.l R0
379	divs #16,R0
380	move R0,_wsize
381	bra L17
382	*line 225
383	bra L17
384	L18:tst R0
385	beq L19
386	cmp #512,R0
387	beq L20
388	cmp #1024,R0
389	beq L21
390	cmp #1536,R0
391	beq L22
392	bra L17
393	L17:
394	*line 226
395	L16:
396	*line 229
397	move 22(R14),R0
398	asr #1,R0
399	and #1023,R0
400	move _wsize,R1
401	move #10,R2
402	asl R2,R1
403	and #-1024,R1
404	or R1,R0
405	move R0,16(R13)
406	*line 231
407	*line 232
408	tst 28(R14)
409	blt L6
410	*line 233
411	*line 234
412	move 28(R14),(sp)
413	move 8(R14),-(sp)
414	jsr _SetPri
415	addq.l #2,sp
416	L6:tst.l (sp)+
417	movem.l (sp)+,R13-R13
418	unlk R14
419	rts
420	.globl _CpyObj
421	.text
422	_CpyObj:
423	~~CpyObj:
424	~from=R13
425	~to=R12
426	~w=R7
427	~h=R6
428	~sw=R5
429	link R14,#0
430	movem.l R2-R7/R11-R13,-(sp)
431	~tp=R11
432	~i=R4
433	~j=R3
434	*line 257
435	move.l 8(R14),R13
436	*line 257
437	move.l 12(R14),R12
438	*line 257
439	move 16(R14),R7
440	*line 257
441	move 18(R14),R6
442	*line 257
443	move 20(R14),R5
444	*line 257
445	move R6,R4
446	bra L26
447	L27:
448	*line 258
449	*line 259
450	move.l R12,R11
451	*line 260
452	*line 261
453	move R7,R3
454	bra L30
455	L31:
456	*line 262
457	move (R13)+,(R11)+
458	L29:L30:
459	*line 261
460	clr R0
461	move R3,R0
462	sub #1,R3
463	tst R0
464	bne L31
465	L28:
466	*line 262
467	*line 263
468	*line 264
469	clr R0
470	move R5,R0
471	lsl #1,R0
472	swap R0
473	clr R0
474	swap R0
475	add.l R0,R12
476	L25:L26:
477	*line 257
478	clr R0
479	move R4,R0
480	sub #1,R4
481	tst R0
482	bne L27
483	L24:L23:tst.l (sp)+
484	movem.l (sp)+,R3-R7/R11-R13
485	unlk R14
486	rts
487	.data

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format