Mercurial > repos > blastem
annotate menu.s68 @ 789:41e83b38bdc8
Initial work on silly Genesis based menu
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 25 Jul 2015 02:25:44 -0700 |
parents | |
children | e8b14d5a5b5a |
rev | line source |
---|---|
789
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1 dc.l $0, start |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
2 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
3 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
4 ;$10 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
5 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
6 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
7 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
8 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
9 ;$20 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
10 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
11 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
12 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
13 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
14 ;$30 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
15 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
16 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
17 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
18 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
19 ;$40 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
20 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
21 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
22 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
23 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
24 ;$50 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
25 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
26 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
27 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
28 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
29 ;$60 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
30 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
31 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
32 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
33 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
34 ;$70 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
35 dc.l int_4 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
36 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
37 dc.l int_6 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
38 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
39 ;$80 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
40 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
41 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
42 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
43 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
44 ;$90 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
45 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
46 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
47 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
48 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
49 ;$A0 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
50 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
51 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
52 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
53 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
54 ;$B0 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
55 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
56 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
57 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
58 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
59 ;$C0 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
60 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
61 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
62 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
63 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
64 ;$D0 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
65 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
66 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
67 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
68 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
69 ;$E0 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
70 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
71 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
72 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
73 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
74 ;$F0 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
75 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
76 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
77 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
78 dc.l empty_handler |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
79 dc.b "SEGA" |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
80 empty_handler: |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
81 int_6: |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
82 rte |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
83 int_4: |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
84 rte |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
85 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
86 rsset $FFFF8000 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
87 x_pos rs.w 1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
88 base_cmd rs.l 1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
89 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
90 start: |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
91 lea $C00000, a0 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
92 lea $C00004, a1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
93 move.w #$8104, (a1) ;Mode 5, everything turned off |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
94 move.w #$8004, (a1) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
95 move.w #$8220, (a1) ;Scroll a table $8000 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
96 move.w #$8405, (a1) ;Scroll b table $A000 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
97 move.w #$8560, (a1) ;SAT table $C000 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
98 move.w #$8700, (a1) ;backdrop color 0 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
99 move.w #$8B00, (a1) ;full screen scroll |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
100 move.w #$8C87, (a1) ;40 cell mode, double-res interlace |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
101 move.w #$8D00, (a1) ;hscroll table at 0 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
102 move.w #$8F02, (a1) ;autoinc 2 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
103 move.w #$9001, (a1) ;64x32 scroll size |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
104 move.l #$C0000000, (a1) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
105 move.w #$000, (a0) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
106 move.w #$EEE, (a0) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
107 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
108 ;init scroll table |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
109 move.l #$40000000, (a1) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
110 move.w #0, (a0) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
111 move.w #4, (a0) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
112 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
113 ;load tiles |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
114 move.l #$48000000, (a1) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
115 lea font(pc), a2 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
116 move.w #((fontend-font)/4 - 1), d0 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
117 tloop: |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
118 move.l (a2)+, (a0) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
119 dbra d0, tloop |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
120 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
121 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
122 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
123 ;clear name table |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
124 move.l #$40000002, (a1) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
125 moveq #32, d0 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
126 move.w #(64*64-1), d1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
127 ploop: |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
128 move.w d0, (a0) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
129 dbra d1, ploop |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
130 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
131 move.l #$40000002, d3, |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
132 move.l d3, (a1) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
133 move.l d3, base_cmd.w |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
134 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
135 lea Message(pc), a6 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
136 moveq #0, d0 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
137 bsr print_string |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
138 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
139 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
140 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
141 move.w #$8144, (a1) ;enable display |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
142 move #$2300, sr |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
143 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
144 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
145 wait_forever |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
146 bra wait_forever |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
147 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
148 Message: |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
149 dc.b "Journey From Darkness - Strider Returns (U) [c][!].bin", $A |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
150 dc.b "Toejam & Earl in Panic on Funkotron (U) [!].bin", $A |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
151 dc.b "Fire Shark (U) [c][!].bin", $A |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
152 dc.b "Sonic and Knuckles (W) [!].bin", 0 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
153 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
154 align 1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
155 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
156 ;Prints a null terminated string |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
157 ;a6 - pointer to string |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
158 ;a0 - VDP data port |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
159 ;d0 - base tile attribute |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
160 ; |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
161 ;Clobbers: d1.w, d2.w, d3.l |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
162 print_string: |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
163 lea widths(pc), a5 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
164 move.w x_pos.w, d2 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
165 move.l base_cmd.w, d3 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
166 .loop |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
167 moveq #0, d1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
168 move.b (a6)+, d1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
169 beq .end |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
170 cmp.b #$A, d1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
171 beq .newline |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
172 tst.b (-32, a5, d1.w) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
173 beq .narrow |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
174 add.w d0, d1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
175 move.w d1, (a0) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
176 addq #2, d2 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
177 bra .loop |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
178 .narrow |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
179 add.w d0, d1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
180 move.w d1, (a0) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
181 addq #1, d2 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
182 move.l d2, d1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
183 ;add.w d1, d1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
184 and.w #$FFFE, d1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
185 swap d1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
186 eor.l #$20000000, d3 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
187 or.l d3, d1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
188 move.l d1, (a1) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
189 bra .loop |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
190 .newline |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
191 moveq #0, d2 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
192 and.l #$DFFFFFFF, d3 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
193 add.l #$00800000, d3 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
194 move.l d3, (a1) |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
195 bra .loop |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
196 .end |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
197 move.w d2, x_pos.w |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
198 move.l d3, base_cmd.w |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
199 rts |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
200 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
201 align 1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
202 font: |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
203 incbin font_interlace_variable.tiles |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
204 fontend |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
205 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
206 widths: |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
207 dc.b 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
208 dc.b 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
209 dc.b 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
210 dc.b 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 |
41e83b38bdc8
Initial work on silly Genesis based menu
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
211 dc.b 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1 |