support Palace in Thunderland (#47)

This commit is contained in:
Peter Ferrie 2024-08-30 18:19:27 -07:00 committed by GitHub
parent ad86fd270c
commit 9d678ba019
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 38 additions and 1 deletions

View File

@ -346,7 +346,7 @@ StringTable
!word @mainmenu !word @mainmenu
@header @header
!text "Anti-M v2.2 by 4am 2024-08-27" !text "Anti-M v2.3 by 4am 2024-08-30"
!text "________________________________________",$8D !text "________________________________________",$8D
!text $8D,$8D,$8D,$8D,$8D,$8D,$8D,$8D,$00 !text $8D,$8D,$8D,$8D,$8D,$8D,$8D,$8D,$00
@mainmenu @mainmenu

View File

@ -26,6 +26,7 @@
; - Zenith (Gebelli) ; - Zenith (Gebelli)
; - Disk Recovery (Sensible Software) ; - Disk Recovery (Sensible Software)
; - ABM (MUSE) ; - ABM (MUSE)
; - Palace in Thunderland (Microlab)
; ;
IDBroderbund IDBroderbund
; first stage is just a standard hybrid DOS 3.2/3.3 bootloader ; first stage is just a standard hybrid DOS 3.2/3.3 bootloader
@ -442,6 +443,28 @@ IDBroderbund
@notdos33 @notdos33
@skip2e @skip2e
lda #$BD
ldx #$6E
ldy #8
jsr CompareMemory
!byte $BD,$8A,$C0 ;LDA $C08A,X
!byte $B0,$03 ;BCS *+5
!byte $BD,$8B,$C0 ;LDA $C08B,X
bcs @notdos33b
lda $85FF
beq +
inc $BD6F
+ ldx #(@MicrolabCallback_e-@MicrolabCallback)-1
- lda @MicrolabCallback,x
sta $280,x
dex
bpl -
sec
ror $b7b8
lda #2
sta $b7b9
@notdos33b
ldx #$60 ldx #$60
jmp $B700 jmp $B700
@ -490,3 +513,17 @@ IDBroderbund
jmp $4D36 jmp $4D36
} }
@BugAttackCallback2_e @BugAttackCallback2_e
@MicrolabCallback !pseudopc $280 {
jsr $BD00
lda $B7EC
cmp #$12
bne +
lda $B7ED
bne +
lda #$60
sta $960F
+ clc
rts
}
@MicrolabCallback_e