Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2025-01-03 08:33:18 +00:00
Code Issues Projects Releases Wiki Activity

support PCS 1983

Browse Source
This commit is contained in:
Peter Ferrie 2017-03-04 18:28:27 -08:00
parent 5aa05b7ceb
commit 6eaa2b42c4
1 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/id/trace.a
View File

@ -60,11 +60,13 @@ _Inspect1a
clc clc
adc #$06 adc #$06
sta b4bbcompare+1 sta b4bbcompare+1
sec tax
sbc #$02 dex
sta .x3+1 stx .x5+1
sta .x4+1 dex
sta callrwts+2 stx .x3+1
stx .x4+1
stx callrwts+2
jsr ProtectedDOS ; check for a specific (encrypted) jsr ProtectedDOS ; check for a specific (encrypted)
; bootloader called "Protected DOS" ; bootloader called "Protected DOS"
bcs .notprotdos bcs .notprotdos
@ -96,7 +98,7 @@ _Inspect1a
ldy #$02 ldy #$02
jsr CompareMemory jsr CompareMemory
!byte $20,00 !byte $20,00
bcc + bcc .x5
; ;
; Check for RWTS variant that has extra code before ; Check for RWTS variant that has extra code before
; JSR $B800 e.g. Verb Viper (DLM), Advanced Analogies (Hartley) ; JSR $B800 e.g. Verb Viper (DLM), Advanced Analogies (Hartley)
@ -106,7 +108,19 @@ _Inspect1a
ldy #$02 ldy #$02
jsr CompareMemory jsr CompareMemory
!byte $20,00 !byte $20,00
bcc + bcc .x5
jmp UseUniversal ; give up tracing; this RWTS is unsupported
;
; Check for RWTS variant that uses non-standard address for slot
; LDX $1FE8 e.g. Pinball Construction Set (1983)
; we don't like that one
;
.x5 lda #$FF ; check for "LDX $1FE8" at $BE43
ldx #$43
ldy #$03
jsr CompareMemory
!byte $AE,$E8,$1F
bcs +
jmp UseUniversal ; give up tracing; this RWTS is unsupported jmp UseUniversal ; give up tracing; this RWTS is unsupported
+ jmp ADStyle ; use this RWTS to read the disk + jmp ADStyle ; use this RWTS to read the disk