| 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 |
Fork
rom/rom.s