]>
Commit | Line | Data |
---|---|---|
1 | SECTION "a",HOME | |
2 | ||
3 | main: | |
4 | ld c, $51 ; Note that we are alive. | |
5 | ld a, $FF | |
6 | ld [c],a | |
7 | ||
8 | ld sp, $DFFF | |
9 | ||
10 | ld hl, signon | |
11 | call puts | |
12 | ||
13 | ld c, $07 | |
14 | ld a, $04 ;start timer, 4.096KHz | |
15 | ld [c], a | |
16 | ei | |
17 | ||
18 | call memtest | |
19 | ||
20 | call insntest | |
21 | ||
22 | call waitsw | |
23 | di | |
24 | ||
25 | jr main | |
26 | ||
27 | section "fuq",HOME[$100] | |
28 | irqhand: | |
29 | PUSH AF | |
30 | PUSH BC | |
31 | PUSH DE | |
32 | PUSH HL | |
33 | xor a | |
34 | ld c, $0F ; ack the irq | |
35 | ld [c], a | |
36 | ld a, $41 ; print A | |
37 | call putc | |
38 | POP HL | |
39 | POP DE | |
40 | POP BC | |
41 | POP AF | |
42 | RETI | |
43 | ||
44 | signon: | |
45 | db $0D,$0A,$1B,"[1mFPGABoy Diagnostic ROM",$1B,"[0m",$0D,$0A,0 | |
46 | ||
47 | ; Memory tester: writes h ^ l to all addresses from C000 to DF80. | |
48 | memtest: | |
49 | ld hl,memteststr | |
50 | call puts | |
51 | ||
52 | ld hl, $C000 ; Write loop | |
53 | .wr: | |
54 | ld a,h | |
55 | xor l | |
56 | ld [hli],a | |
57 | ld a, $DF | |
58 | cp h | |
59 | jr nz, .wr | |
60 | ld a, $80 | |
61 | cp l | |
62 | jr nz, .wr | |
63 | ||
64 | ld hl, $C000 ; Read loop | |
65 | .rd: | |
66 | ld a,h | |
67 | xor l | |
68 | ld b,a | |
69 | ld a, [hli] | |
70 | cp b | |
71 | jr nz, .memfail | |
72 | ||
73 | ld a, $DF | |
74 | cp h | |
75 | jr nz, .rd | |
76 | ld a, $80 | |
77 | cp l | |
78 | jr nz, .rd | |
79 | ||
80 | ld hl, testokstr ; Say we're OK | |
81 | call puts | |
82 | ret | |
83 | .memfail: ; Say we failed (sadface) | |
84 | ; decrement hl the easy way | |
85 | ld a,[hld] | |
86 | push hl | |
87 | ld hl, failatstr | |
88 | call puts | |
89 | pop hl | |
90 | ld a, h | |
91 | call puthex | |
92 | ld a, l | |
93 | call puthex | |
94 | ld a, $0A | |
95 | call putc | |
96 | ld a, $0D | |
97 | call putc | |
98 | ret | |
99 | memteststr: | |
100 | db "Testing memory from $C000 to $DF80...",0 | |
101 | testokstr: | |
102 | db " OK!",$0D,$0A,0 | |
103 | failatstr: | |
104 | db " Test failed at $",0 | |
105 | ||
106 | puthex: ; Put two hex nibbles to the serial console. | |
107 | push af | |
108 | rra | |
109 | rra | |
110 | rra | |
111 | rra | |
112 | ld b,$0F | |
113 | and b | |
114 | ld b,$30 | |
115 | add b | |
116 | call putc | |
117 | pop af | |
118 | ld b,$0F | |
119 | and b | |
120 | ld b,$30 | |
121 | add b | |
122 | call putc | |
123 | ret | |
124 | ||
125 | ; Wait for switches to be flipped on and off again. | |
126 | waitsw: | |
127 | ld hl,waitswstr | |
128 | call puts | |
129 | ||
130 | ld c, $51 | |
131 | xor a | |
132 | ld [c],a | |
133 | ||
134 | ld b, $0 | |
135 | .loop1: | |
136 | ld a,[c] | |
137 | cp b | |
138 | jr z,.loop1 | |
139 | .loop2: | |
140 | ld a,[c] | |
141 | cp b | |
142 | jr nz,.loop2 | |
143 | ret | |
144 | ||
145 | waitswstr: | |
146 | db "Diagnostic ROM complete; flip switches to nonzero and then to zero to reset. Expect A.",$0D,$0A,0 | |
147 | ||
148 | ; Core instruction basic acceptance tests. | |
149 | insntest: | |
150 | ld hl, .insnteststr | |
151 | call puts | |
152 | ||
153 | ; Test PUSH and POP. | |
154 | ld b, $12 | |
155 | ld c, $34 | |
156 | ld d, $56 | |
157 | ld e, $78 | |
158 | push bc | |
159 | pop de | |
160 | ld hl, .pushpopfail | |
161 | ld a, d | |
162 | cp b | |
163 | jr nz,.fail | |
164 | ld a, e | |
165 | cp c | |
166 | jr nz,.fail | |
167 | ||
168 | ; Test ALU (HL). | |
169 | ld hl, .ff | |
170 | ld a, $FF | |
171 | xor [hl] | |
172 | ld hl, .xorhlfail | |
173 | jr nz, .fail | |
174 | ||
175 | ; Test JP (HL) | |
176 | ld hl, .jphl | |
177 | jp [hl] | |
178 | ld hl, .jphlfail | |
179 | jr .fail | |
180 | rst $00 | |
181 | .jphl: | |
182 | ||
183 | ; Test JR | |
184 | ld a, $FF | |
185 | ld b, $00 | |
186 | cp b | |
187 | jr nz,.jr | |
188 | ld hl, .jrfail | |
189 | jr .fail | |
190 | rst $00 | |
191 | .jr: | |
192 | ||
193 | ; Test inc16 | |
194 | ld d, $12 | |
195 | ld e, $FF | |
196 | ld hl, .inc16fail | |
197 | inc de | |
198 | ld a, $13 | |
199 | cp d | |
200 | jr nz, .fail | |
201 | ld a, $00 | |
202 | cp e | |
203 | jr nz, .fail | |
204 | ||
205 | ; Test CP. | |
206 | ld hl, .cpfail | |
207 | ld a, $10 | |
208 | ld b, $20 | |
209 | cp b | |
210 | jr nc,.fail | |
211 | ld a, $20 | |
212 | ld b, $10 | |
213 | cp b | |
214 | jr c,.fail | |
215 | ||
216 | ; Test CPL | |
217 | ld hl, .cplfail | |
218 | ld a, $55 | |
219 | ld b, $AA | |
220 | cpl | |
221 | cp b | |
222 | jr nz,.fail | |
223 | ||
224 | ld hl, .ok | |
225 | call puts | |
226 | ret | |
227 | .fail: | |
228 | call puts | |
229 | ld hl, .testfailed | |
230 | call puts | |
231 | ret | |
232 | .insnteststr: | |
233 | db "Testing instructions... ",0 | |
234 | .pushpopfail: | |
235 | db "PUSH/POP",0 | |
236 | .ff: | |
237 | db $FF | |
238 | .xorhlfail: | |
239 | db "XOR [HL]",0 | |
240 | .jphlfail: | |
241 | db "JP [HL]",0 | |
242 | .jrfail: | |
243 | db "JR",0 | |
244 | .cpfail: | |
245 | db "CP",0 | |
246 | .cplfail: | |
247 | db "CPL",0 | |
248 | .inc16fail: | |
249 | db "INC16",0 | |
250 | .testfailed: | |
251 | db " test failed.",$0D,$0A,0 | |
252 | .ok: | |
253 | db "OK!",$0D,$0A,0 | |
254 | ||
255 | ; Serial port manipulation functions. | |
256 | putc: | |
257 | ld b, 0 | |
258 | ld c, $50 | |
259 | push af | |
260 | .waitport: | |
261 | ld a,[c] | |
262 | cp b | |
263 | jr nz,.waitport | |
264 | pop af | |
265 | ld [c],a | |
266 | ret | |
267 | ||
268 | puts: | |
269 | ld a, [hli] | |
270 | ld b, $00 | |
271 | cp b | |
272 | jr z, .done | |
273 | call putc | |
274 | jr puts | |
275 | .done: | |
276 | ret |