Mercurial > repos > blastem
annotate tmss.s68 @ 2305:6aca1734d573
Merge
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 15 Mar 2023 19:28:11 -0700 |
parents | 5b51f03b2227 |
children | f500831f7fb4 |
rev | line source |
---|---|
2035
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1 dc.l $0, start |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
2 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
3 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
4 ;$10 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
5 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
6 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
7 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
8 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
9 ;$20 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
10 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
11 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
12 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
13 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
14 ;$30 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
15 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
16 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
17 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
18 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
19 ;$40 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
20 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
21 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
22 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
23 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
24 ;$50 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
25 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
26 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
27 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
28 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
29 ;$60 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
30 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
31 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
32 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
33 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
34 ;$70 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
35 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
36 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
37 dc.l int_6 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
38 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
39 ;$80 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
40 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
41 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
42 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
43 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
44 ;$90 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
45 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
46 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
47 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
48 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
49 ;$A0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
50 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
51 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
52 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
53 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
54 ;$B0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
55 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
56 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
57 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
58 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
59 ;$C0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
60 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
61 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
62 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
63 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
64 ;$D0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
65 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
66 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
67 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
68 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
69 ;$E0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
70 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
71 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
72 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
73 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
74 ;$F0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
75 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
76 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
77 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
78 dc.l empty_handler |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
79 dc.b "SEGA IS COOL " |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
80 dc.b "(C)M.Pavone 2021" |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
81 dc.b "TRAIN MEMES STAN" |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
82 dc.b "D SILENTLY " |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
83 dc.b " " |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
84 dc.b "TRIUMPHANT MAMMA" |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
85 dc.b "LS SALUTE SOCIAL" |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
86 dc.b "ITES " |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
87 dc.b "MP 20210227-01",0,0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
88 dc.b "J " |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
89 dc.l $0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
90 dc.l romend-1 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
91 dc.l $FF0000 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
92 dc.l $FFFFFF |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
93 dc.b " " |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
94 dc.b " " |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
95 dc.b " " |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
96 dc.b " " |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
97 dc.b "JUE " |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
98 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
99 frame_counter equ $FFFF8000 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
100 ram_code equ $FFFF8002 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
101 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
102 empty_handler: |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
103 rte |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
104 start: |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
105 lea $A14000, a3 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
106 move.l #'SEGA', (a3) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
107 lea $C00000, a0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
108 lea $C00004, a1 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
109 move.w #$8104, (a1) ;Mode 5, everything turned off |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
110 move.w #$8004, (a1) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
111 move.w #$8220, (a1) ;Scroll a table $8000 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
112 move.w #$8404, (a1) ;Scroll b table $8000 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
113 move.w #$8560, (a1) ;SAT table $C000 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
114 move.w #$8700, (a1) ;backdrop color 0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
115 move.w #$8A01, (a1) ;Set HINT counter |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
116 move.w #$8B00, (a1) ;full screen scroll |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
117 move.w #$8C81, (a1) ;40 cell mode, no interlace |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
118 move.w #$8D00, (a1) ;hscroll table at 0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
119 move.w #$8F02, (a1) ;autoinc 2 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
120 move.w #$9011, (a1) ;64x64 scroll size |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
121 move.l #$C0000000, (a1) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
122 move.w #$000, (a0) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
123 move.w #$EEE, (a0) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
124 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
125 ;clear scroll table |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
126 move.l #$40000000, (a1) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
127 move.l #0, (a0) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
128 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
129 ;load tiles |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
130 move.l #$44000000, (a1) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
131 lea font, a2 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
132 move.w #((fontend-font)/4 - 1), d0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
133 tloop: |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
134 move.l (a2)+, (a0) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
135 dbra d0, tloop |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
136 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
137 ;clear name table |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
138 move.l #$40000002, (a1) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
139 moveq #32, d0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
140 move.w #(64*64-1), d1 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
141 ploop: |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
142 move.w d0, (a0) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
143 dbra d1, ploop |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
144 move.l #$45960002, d7 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
145 move.l d7, (a1) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
146 move.l #$800000, d6 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
147 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
148 lea ram_code_src(pc), a6 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
149 lea ram_code.w, a5 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
150 moveq #(font-ram_code_src)/2-1, d0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
151 copy: |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
152 move.w (a6)+, (a5)+ |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
153 dbra d0, copy |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
154 lea $101(a3), a4 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
155 lea $100.w, a5 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
156 move.l #'SEGA', d5 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
157 move.l #' SEG', d4 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
158 moveq #0, d0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
159 moveq #1, d2 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
160 move.w #180, d3 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
161 btst #6, $A10001 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
162 beq .not_pal |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
163 move.w #150, d3 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
164 .not_pal: |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
165 jmp ram_code.w |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
166 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
167 ram_code_src: |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
168 move.b d2, (a4) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
169 cmp.l (a5), d5 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
170 beq.s is_good |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
171 cmp.l (a5), d4 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
172 bne.s is_bad |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
173 is_good: |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
174 move.b d0, (a4) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
175 lea good(pc), a6 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
176 bsr.s print_string |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
177 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
178 add.l d6, d7 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
179 move.l d7, (a1) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
180 bsr.s print_string |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
181 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
182 add.l d6, d7 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
183 move.l d7, (a1) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
184 bsr.s print_string |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
185 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
186 move.w #$8164, (a1) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
187 move #$2500, SR |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
188 wait: |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
189 cmp.w frame_counter.w, d3 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
190 bne.s wait |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
191 move #$2700, SR |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
192 move.b d2, (a4) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
193 move.l $0.w, a7 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
194 move.l $4.w, a6 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
195 move.w #$8104, (a1) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
196 move.l d0, (a3) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
197 jmp (a6) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
198 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
199 is_bad: |
2038
5b51f03b2227
Don't init IO ports in TMSS ROM as it trips up the standard Sega init code
Michael Pavone <pavone@retrodev.com>
parents:
2035
diff
changeset
|
200 move.b d0, (a4) |
2035
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
201 lea bad(pc), a6 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
202 bsr.s print_string |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
203 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
204 add.l d6, d7 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
205 move.l d7, (a1) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
206 bsr.s print_string |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
207 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
208 add.l d6, d7 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
209 move.l d7, (a1) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
210 bsr.s print_string |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
211 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
212 move.w #$8144, (a1) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
213 forever: |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
214 bra.s forever |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
215 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
216 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
217 int_6: |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
218 addq.w #1, frame_counter.w |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
219 rte |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
220 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
221 ;Prints a null terminated string |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
222 ;a6 - pointer to string |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
223 ;a0 - VDP data port |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
224 ;d0 - base tile attribute |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
225 ; |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
226 ;Clobbers: d1.w |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
227 print_string: |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
228 .loop |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
229 moveq #0, d1 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
230 move.b (a6)+, d1 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
231 beq .end |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
232 add.w d0, d1 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
233 move.w d1, (a0) |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
234 bra .loop |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
235 .end |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
236 rts |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
237 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
238 good: |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
239 dc.b " BLASTEM THINKS", 0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
240 dc.b " THAT THIS CART", 0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
241 dc.b " TASTES DELICIOUS!", 0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
242 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
243 bad: |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
244 dc.b " *sniff* *sniff*", 0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
245 dc.b " something doesn't", 0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
246 dc.b " smell right...", 0 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
247 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
248 align 1 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
249 font: |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
250 incbin font.tiles |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
251 fontend |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
252 |
33f454232aee
Added open source TMSS replacement
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
253 romend |