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