notaz.gp2x.de / megadrive.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
testpico: more on timer reload
[megadrive.git] / nshtest / sega_gcc.s
CommitLineData
0a3e0c3e 1*-------------------------------------------------------\r
2*\r
3* Sega startup code for the GNU Assembler\r
4* Translated from:\r
5* Sega startup code for the Sozobon C compiler\r
6* Written by Paul W. Lee\r
7* Modified from Charles Coty's code\r
8*\r
9*-------------------------------------------------------\r
10\r
11 dc.l 0x0,0x200\r
12 dc.l INT,INT,INT,INT,INT,INT,INT\r
13 dc.l INT,INT,INT,INT,INT,INT,INT,INT\r
14 dc.l INT,INT,INT,INT,INT,INT,INT,INT\r
15 dc.l INT,INT,INT,HBL,INT,VBL,INT,INT\r
16 dc.l INT,INT,INT,INT,INT,INT,INT,INT\r
17 dc.l INT,INT,INT,INT,INT,INT,INT,INT\r
18 dc.l INT,INT,INT,INT,INT,INT,INT,INT\r
19 dc.l INT,INT,INT,INT,INT,INT,INT\r
20 .ascii "SEGA GENESIS "\r
21 .ascii "notaz's Shadow / Hilight test "\r
22 .ascii "NOTAZ'S SHADOW HILIGHT TEST "\r
23 .ascii "GM 00000000-00"\r
24 .byte 0xa5,0xfb\r
25 .ascii "JD "\r
26 .byte 0x00,0x00,0x00,0x00,0x00,0x02,0x00,0x00\r
27 .byte 0x00,0xff,0x00,0x00,0xff,0xff,0xff,0xff\r
28 .ascii " "\r
29 .ascii " "\r
30 .ascii " "\r
31 .ascii "JUE "\r
32*debugee:\r
33* bra debugee\r
34 tst.l 0xa10008\r
35 bne SkipJoyDetect \r
36 tst.w 0xa1000c\r
37SkipJoyDetect:\r
38 bne SkipSetup\r
39 lea Table,%a5 \r
40 movem.w (%a5)+,%d5-%d7\r
41 movem.l (%a5)+,%a0-%a4 \r
42* Check Version Number \r
43 move.b -0x10ff(%a1),%d0\r
44 andi.b #0x0f,%d0 \r
45 beq WrongVersion \r
46* Sega Security Code (SEGA) \r
47 move.l #0x53454741,0x2f00(%a1)\r
48WrongVersion:\r
49 move.w (%a4),%d0\r
50 moveq #0x00,%d0 \r
51 movea.l %d0,%a6 \r
52 move %a6,%usp\r
53* Set VDP registers\r
54 moveq #0x17,%d1\r
55FillLoop: \r
56 move.b (%a5)+,%d5\r
57 move.w %d5,(%a4) \r
58 add.w %d7,%d5 \r
59 dbra %d1,FillLoop \r
60 move.l (%a5)+,(%a4) \r
61 move.w %d0,(%a3) \r
62 move.w %d7,(%a1) \r
63 move.w %d7,(%a2) \r
64L0250:\r
65 btst %d0,(%a1)\r
66 bne L0250 \r
67* Put initial values into a00000 \r
68 moveq #0x25,%d2\r
69Filla: \r
70 move.b (%a5)+,(%a0)+\r
71 dbra %d2,Filla\r
72 move.w %d0,(%a2) \r
73 move.w %d0,(%a1) \r
74 move.w %d7,(%a2) \r
75L0262:\r
76 move.l %d0,-(%a6)\r
77 dbra %d6,L0262 \r
78 move.l (%a5)+,(%a4) \r
79 move.l (%a5)+,(%a4) \r
80* Put initial values into c00000 \r
81 moveq #0x1f,%d3\r
82Filc0: \r
83 move.l %d0,(%a3)\r
84 dbra %d3,Filc0\r
85 move.l (%a5)+,(%a4) \r
86* Put initial values into c00000 \r
87 moveq #0x13,%d4\r
88Fillc1: \r
89 move.l %d0,(%a3)\r
90 dbra %d4,Fillc1\r
91* Put initial values into c00011 \r
92 moveq #0x03,%d5\r
93Fillc2: \r
94 move.b (%a5)+,0x0011(%a3) \r
95 dbra %d5,Fillc2 \r
96 move.w %d0,(%a2) \r
97 movem.l (%a6),%d0-%d7/%a0-%a6 \r
98 move #0x2700,%sr \r
99SkipSetup:\r
100 bra Continue\r
101Table:\r
102 dc.w 0x8000, 0x3fff, 0x0100, 0x00a0, 0x0000, 0x00a1, 0x1100, 0x00a1\r
103 dc.w 0x1200, 0x00c0, 0x0000, 0x00c0, 0x0004, 0x0414, 0x302c, 0x0754\r
104 dc.w 0x0000, 0x0000, 0x0000, 0x812b, 0x0001, 0x0100, 0x00ff, 0xff00 \r
105 dc.w 0x0080, 0x4000, 0x0080, 0xaf01, 0xd91f, 0x1127, 0x0021, 0x2600\r
106 dc.w 0xf977, 0xedb0, 0xdde1, 0xfde1, 0xed47, 0xed4f, 0xd1e1, 0xf108 \r
107 dc.w 0xd9c1, 0xd1e1, 0xf1f9, 0xf3ed, 0x5636, 0xe9e9, 0x8104, 0x8f01 \r
108 dc.w 0xc000, 0x0000, 0x4000, 0x0010, 0x9fbf, 0xdfff \r
109\r
110Continue:\r
111 tst.w 0x00C00004\r
112\r
113* set stack pointer\r
114* clr.l %a7\r
115 move.w #0,%a7\r
116\r
117* user mode\r
118 move.w #0x2300,%sr\r
119\r
120* clear Genesis RAM\r
121 lea 0xff0000,%a0\r
122 moveq #0,%d0\r
123clrram: move.w #0,(%a0)+\r
124 subq.w #2,%d0\r
125 bne clrram\r
126\r
127*---------------------------------------------------------- \r
128*\r
129* Load driver into the Z80 memory\r
130*\r
131*---------------------------------------------------------- \r
132\r
133* halt the Z80\r
134 move.w #0x100,0xa11100\r
135* reset it\r
136 move.w #0x100,0xa11200\r
137\r
138 lea Z80Driver,%a0\r
139 lea 0xa00000,%a1\r
140 move.l #Z80DriverEnd,%d0\r
141 move.l #Z80Driver,%d1\r
142 sub.l %d1,%d0\r
143Z80loop:\r
144 move.b (%a0)+,(%a1)+\r
145 subq.w #1,%d0\r
146 bne Z80loop\r
147\r
148* enable the Z80\r
149 move.w #0x0,0xa11100\r
150\r
151*---------------------------------------------------------- \r
152 jmp main\r
153\r
154INT: \r
155 rte\r
156\r
157HBL:\r
158 /* addq.l #1,htimer */\r
159 rte\r
160\r
161VBL:\r
162 /* addq.l #1,vtimer */\r
163 move.l #vtimer,a0\r
164 addq.l #1,(a0)\r
165 rte\r
166\r
167*------------------------------------------------\r
168*\r
169* Get a random number. This routine\r
170* was found in TOS.\r
171*\r
172* Output\r
173* ------\r
174* d0 = random number\r
175*\r
176*------------------------------------------------\r
177\r
178 .globl random\r
179\r
180random:\r
181 move.l rand_num,%d0\r
182 tst.l %d0\r
183 bne .L1\r
184 moveq #16,%d1\r
185 lsl.l %d1,%d0\r
186 or.l htimer,%d0\r
187 move.l %d0,rand_num\r
188.L1:\r
189 move.l #-1153374675,-(%sp)\r
190 move.l rand_num,-(%sp)\r
191 bsr lmul\r
192 addq.w #8,%sp\r
193 addq.l #1,%d0\r
194 move.l %d0,rand_num\r
195\r
196 lsr.l #8,%d0\r
197 and.l #16777215,%d0\r
198 rts\r
199\r
200\r
201*------------------------------------------------\r
202*\r
203* Copyright (c) 1988 by Sozobon, Limited. Author: Johann Ruegg\r
204*\r
205* Permission is granted to anyone to use this software for any purpose\r
206* on any computer system, and to redistribute it freely, with the\r
207* following restrictions:\r
208* 1) No charge may be made other than reasonable charges for reproduction.\r
209* 2) Modified versions must be clearly marked as such.\r
210* 3) The authors are not responsible for any harmful consequences\r
211* of using this software, even if they result from defects in it.\r
212*\r
213*------------------------------------------------\r
214\r
215ldiv:\r
216 move.l 4(%a7),%d0\r
217 bpl ld1\r
218 neg.l %d0\r
219ld1:\r
220 move.l 8(%a7),%d1\r
221 bpl ld2\r
222 neg.l %d1\r
223 eor.b #0x80,4(%a7)\r
224ld2:\r
225 bsr i_ldiv /* d0 = d0/d1 */\r
226 tst.b 4(%a7)\r
227 bpl ld3\r
228 neg.l %d0\r
229ld3:\r
230 rts\r
231\r
232lmul:\r
233 move.l 4(%a7),%d0\r
234 bpl lm1\r
235 neg.l %d0\r
236lm1:\r
237 move.l 8(%a7),%d1\r
238 bpl lm2\r
239 neg.l %d1\r
240 eor.b #0x80,4(%a7)\r
241lm2:\r
242 bsr i_lmul /* d0 = d0*d1 */\r
243 tst.b 4(%a7)\r
244 bpl lm3\r
245 neg.l %d0\r
246lm3:\r
247 rts\r
248\r
249lrem:\r
250 move.l 4(%a7),%d0\r
251 bpl lr1\r
252 neg.l %d0\r
253lr1:\r
254 move.l 8(%a7),%d1\r
255 bpl lr2\r
256 neg.l %d1\r
257lr2:\r
258 bsr i_ldiv /* d1 = d0%d1 */\r
259 move.l %d1,%d0\r
260 tst.b 4(%a7)\r
261 bpl lr3\r
262 neg.l %d0\r
263lr3:\r
264 rts\r
265\r
266ldivu:\r
267 move.l 4(%a7),%d0\r
268 move.l 8(%a7),%d1\r
269 bsr i_ldiv\r
270 rts\r
271\r
272lmulu:\r
273 move.l 4(%a7),%d0\r
274 move.l 8(%a7),%d1\r
275 bsr i_lmul\r
276 rts\r
277\r
278lremu:\r
279 move.l 4(%a7),%d0\r
280 move.l 8(%a7),%d1\r
281 bsr i_ldiv\r
282 move.l %d1,%d0\r
283 rts\r
284*\r
285* A in d0, B in d1, return A*B in d0\r
286*\r
287i_lmul:\r
288 move.l %d3,%a2 /* save d3 */\r
289 move.w %d1,%d2\r
290 mulu %d0,%d2 /* d2 = Al * Bl */\r
291\r
292 move.l %d1,%d3\r
293 swap %d3\r
294 mulu %d0,%d3 /* d3 = Al * Bh */\r
295\r
296 swap %d0\r
297 mulu %d1,%d0 /* d0 = Ah * Bl */\r
298\r
299 add.l %d3,%d0 /* d0 = (Ah*Bl + Al*Bh) */\r
300 swap %d0\r
301 clr.w %d0 /* d0 = (Ah*Bl + Al*Bh) << 16 */\r
302\r
303 add.l %d2,%d0 /* d0 = A*B */\r
304 move.l %a2,%d3 /* restore d3 */\r
305 rts\r
306*\r
307*A in d0, B in d1, return A/B in d0, A%B in d1\r
308*\r
309i_ldiv:\r
310 tst.l %d1\r
311 bne nz1\r
312\r
313* divide by zero\r
314* divu #0,%d0 /* cause trap */\r
315 move.l #0x80000000,%d0\r
316 move.l %d0,%d1\r
317 rts\r
318nz1:\r
319 move.l %d3,%a2 /* save d3 */\r
320 cmp.l %d1,%d0\r
321 bhi norm\r
322 beq is1\r
323* A<B, so ret 0, rem A\r
324 move.l %d0,%d1\r
325 clr.l %d0\r
326 move.l %a2,%d3 /* restore d3 */\r
327 rts\r
328* A==B, so ret 1, rem 0\r
329is1:\r
330 moveq.l #1,%d0\r
331 clr.l %d1\r
332 move.l %a2,%d3 /* restore d3 */\r
333 rts\r
334* A>B and B is not 0\r
335norm:\r
336 cmp.l #1,%d1\r
337 bne not1\r
338* B==1, so ret A, rem 0\r
339 clr.l %d1\r
340 move.l %a2,%d3 /* restore d3 */\r
341 rts\r
342* check for A short (implies B short also)\r
343not1:\r
344 cmp.l #0xffff,%d0\r
345 bhi slow\r
346* A short and B short -- use 'divu'\r
347 divu %d1,%d0 /* d0 = REM:ANS */\r
348 swap %d0 /* d0 = ANS:REM */\r
349 clr.l %d1\r
350 move.w %d0,%d1 /* d1 = REM */\r
351 clr.w %d0\r
352 swap %d0\r
353 move.l %a2,%d3 /* restore d3 */\r
354 rts\r
355* check for B short\r
356slow:\r
357 cmp.l #0xffff,%d1\r
358 bhi slower\r
359* A long and B short -- use special stuff from gnu\r
360 move.l %d0,%d2\r
361 clr.w %d2\r
362 swap %d2\r
363 divu %d1,%d2 /* d2 = REM:ANS of Ahi/B */\r
364 clr.l %d3\r
365 move.w %d2,%d3 /* d3 = Ahi/B */\r
366 swap %d3\r
367\r
368 move.w %d0,%d2 /* d2 = REM << 16 + Alo */\r
369 divu %d1,%d2 /* d2 = REM:ANS of stuff/B */\r
370\r
371 move.l %d2,%d1\r
372 clr.w %d1\r
373 swap %d1 /* d1 = REM */\r
374\r
375 clr.l %d0\r
376 move.w %d2,%d0\r
377 add.l %d3,%d0 /* d0 = ANS */\r
378 move.l %a2,%d3 /* restore d3 */\r
379 rts\r
380* A>B, B > 1\r
381slower:\r
382 move.l #1,%d2\r
383 clr.l %d3\r
384moreadj:\r
385 cmp.l %d0,%d1\r
386 bhs adj\r
387 add.l %d2,%d2\r
388 add.l %d1,%d1\r
389 bpl moreadj\r
390* we shifted B until its >A or sign bit set\r
391* we shifted #1 (d2) along with it\r
392adj:\r
393 cmp.l %d0,%d1\r
394 bhi ltuns\r
395 or.l %d2,%d3\r
396 sub.l %d1,%d0\r
397ltuns:\r
398 lsr.l #1,%d1\r
399 lsr.l #1,%d2\r
400 bne adj\r
401* d3=answer, d0=rem\r
402 move.l %d0,%d1\r
403 move.l %d3,%d0\r
404 move.l %a2,%d3 /* restore d3 */\r
405 rts\r
406*---------------------------------------------------------- \r
407*\r
408* Z80 Sound Driver\r
409*\r
410*---------------------------------------------------------- \r
411Z80Driver:\r
412 dc.b 0xc3,0x46,0x00,0x00,0x00,0x00,0x00,0x00\r
413 dc.b 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00\r
414 dc.b 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00\r
415 dc.b 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00\r
416 dc.b 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00\r
417 dc.b 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00\r
418 dc.b 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00\r
419 dc.b 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00\r
420 dc.b 0x00,0x00,0x00,0x00,0x00,0x00,0xf3,0xed\r
421 dc.b 0x56,0x31,0x00,0x20,0x3a,0x39,0x00,0xb7\r
422 dc.b 0xca,0x4c,0x00,0x21,0x3a,0x00,0x11,0x40\r
423 dc.b 0x00,0x01,0x06,0x00,0xed,0xb0,0x3e,0x00\r
424 dc.b 0x32,0x39,0x00,0x3e,0xb4,0x32,0x02,0x40\r
425 dc.b 0x3e,0xc0,0x32,0x03,0x40,0x3e,0x2b,0x32\r
426 dc.b 0x00,0x40,0x3e,0x80,0x32,0x01,0x40,0x3a\r
427 dc.b 0x43,0x00,0x4f,0x3a,0x44,0x00,0x47,0x3e\r
428 dc.b 0x06,0x3d,0xc2,0x81,0x00,0x21,0x00,0x60\r
429 dc.b 0x3a,0x41,0x00,0x07,0x77,0x3a,0x42,0x00\r
430 dc.b 0x77,0x0f,0x77,0x0f,0x77,0x0f,0x77,0x0f\r
431 dc.b 0x77,0x0f,0x77,0x0f,0x77,0x0f,0x77,0x3a\r
432 dc.b 0x40,0x00,0x6f,0x3a,0x41,0x00,0xf6,0x80\r
433 dc.b 0x67,0x3e,0x2a,0x32,0x00,0x40,0x7e,0x32\r
434 dc.b 0x01,0x40,0x21,0x40,0x00,0x7e,0xc6,0x01\r
435 dc.b 0x77,0x23,0x7e,0xce,0x00,0x77,0x23,0x7e\r
436 dc.b 0xce,0x00,0x77,0x3a,0x39,0x00,0xb7,0xc2\r
437 dc.b 0x4c,0x00,0x0b,0x78,0xb1,0xc2,0x7f,0x00\r
438 dc.b 0x3a,0x45,0x00,0xb7,0xca,0x4c,0x00,0x3d\r
439 dc.b 0x3a,0x45,0x00,0x06,0xff,0x0e,0xff,0xc3\r
440 dc.b 0x7f,0x00\r
441Z80DriverEnd:\r
442\r
443\r
Genesis/MegaDrive related projects