2020-03-05 12:37:14 +00:00
|
|
|
;license:MIT
|
2020-03-06 18:53:57 +00:00
|
|
|
;(c) 2020 by Frank M., qkumba
|
2020-03-05 12:37:14 +00:00
|
|
|
|
|
|
|
!cpu 6502
|
|
|
|
!to "build/PRELAUNCH/SS.BASKETBALL",plain
|
|
|
|
*=$106
|
|
|
|
|
|
|
|
!source "src/prelaunch/common.a"
|
|
|
|
|
|
|
|
+ENABLE_ACCEL
|
|
|
|
lda #$60
|
|
|
|
sta $9EB
|
|
|
|
jsr $800 ; decompress
|
|
|
|
|
|
|
|
inc $3F4 ; reboot
|
|
|
|
|
2020-03-06 18:53:57 +00:00
|
|
|
lda #$4C
|
|
|
|
sta $B7A6
|
|
|
|
lda #<callback1
|
|
|
|
sta $B7A7
|
|
|
|
lda #>callback1
|
|
|
|
sta $B7A8
|
|
|
|
jmp $B700
|
|
|
|
|
|
|
|
callback1
|
|
|
|
ldx #$FF
|
|
|
|
txs
|
|
|
|
lda #<callback2
|
|
|
|
sta $675B
|
|
|
|
lda #>callback2
|
|
|
|
sta $675C
|
|
|
|
jmp $6000
|
|
|
|
|
|
|
|
callback2
|
|
|
|
; work around IIc+ firmware bug:
|
|
|
|
; if LC is writable but not banked in
|
|
|
|
; then SmartPort always banks in bank 2
|
|
|
|
; regardless of which bank was active
|
|
|
|
|
|
|
|
lda #$8B
|
|
|
|
sta $B528
|
|
|
|
sta $B52B
|
2020-03-05 12:37:14 +00:00
|
|
|
+DISABLE_ACCEL
|
2020-03-06 18:53:57 +00:00
|
|
|
jmp $B581
|
2020-03-05 12:37:14 +00:00
|
|
|
|
|
|
|
!if * > $1C0 {
|
|
|
|
!error "code is too large, ends at ", *
|
|
|
|
}
|