Revision | ddc25bcb44b34ec09f9a09bdb38b1a010b6c9fa3 (tree) |
---|---|
Time | 2020-01-01 09:23:52 |
Author | inglorion <homemicro@ingl...> |
Commiter | inglorion |
rom: friendly message on cartridge load error
@@ -191,6 +191,7 @@ | ||
191 | 191 | jsr showchr |
192 | 192 | lda #$4b |
193 | 193 | jsr showchr |
194 | + jsr newline | |
194 | 195 | |
195 | 196 | lda #0 |
196 | 197 | sta $c0 |
@@ -208,22 +209,22 @@ | ||
208 | 209 | sta $a5 |
209 | 210 | jsr loadcart |
210 | 211 | cmp #0 |
211 | - beq cart_loaded | |
212 | + beq cloaded | |
212 | 213 | dec $c0 |
213 | 214 | bne try_cart |
214 | 215 | |
215 | -cart_loaded: | |
216 | +cloaded: | |
216 | 217 | lda $2a00 |
217 | 218 | cmp #$48 |
218 | - bne unloadable_image | |
219 | + bne cartfail | |
219 | 220 | lda $2a01 |
220 | 221 | cmp #$4d |
221 | - bne unloadable_image | |
222 | + bne cartfail | |
222 | 223 | lda $2a02 |
223 | - bne unloadable_image | |
224 | + bne cartfail | |
224 | 225 | lda $2a03 |
225 | 226 | cmp #$1 |
226 | - bne unloadable_image | |
227 | + bne cartfail | |
227 | 228 | |
228 | 229 | lda $2a04 |
229 | 230 | sta $c0 |
@@ -246,17 +247,19 @@ | ||
246 | 247 | sta $a7 |
247 | 248 | jsr loadcart |
248 | 249 | cmp #0 |
249 | - bne unloadable_image | |
250 | + bne cartfail | |
250 | 251 | lda #$aa |
251 | 252 | sta $2007 |
252 | 253 | jmp ($c0) |
253 | 254 | |
254 | -unloadable_image: | |
255 | - lda #$80 | |
256 | - sta $2000 | |
257 | - sta $2001 | |
258 | - sta $2002 | |
259 | - sta $2003 | |
255 | +cartfail: | |
256 | + lda #<cartfls | |
257 | + sta SHOWADDR | |
258 | + lda #>cartfls | |
259 | + sta SHOWADDR + 1 | |
260 | + lda #CARTFLL | |
261 | + sta SHOWCTR | |
262 | + jsr show | |
260 | 263 | jmp _end |
261 | 264 | |
262 | 265 | adjcur: |
@@ -1137,6 +1140,8 @@ | ||
1137 | 1140 | jmp _end |
1138 | 1141 | |
1139 | 1142 | bytess: .byt "bytes" |
1143 | +cartfls: .byt "Could not load cartridge" | |
1144 | +CARTFLL = * - cartfls | |
1140 | 1145 | |
1141 | 1146 | hexits: .byt "0123456789abcdef" |
1142 | 1147 |