Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-11-12 18:04:43 +00:00
Code Issues Projects Releases Wiki Activity

add support for Laureate bootloader variant seen on Sound Ideas

Browse Source
This commit is contained in:
4am 2017-06-05 20:06:53 -04:00
parent b90f60349b
commit 6f496a747d
5 changed files with 45 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/id/inspect0.a
View File

@ -92,7 +92,6 @@ IDBootloader
sta gIsMECCFastloader
lda #s_mecc
jsr PrintByID
jsr CopyUniversal
jsr PrereadT00
bcs .notmecc
jsr IDMECC1
@ -125,8 +124,8 @@ IDBootloader
bcs +
lda #s_laureate
jsr PrintByID
jsr CopyUniversal
jsr PrereadT00
lda #$0B
jsr PrereadT00Partial
bcs +
jmp TraceLaureate
;
@ -271,3 +270,27 @@ AnalyzeT00
stx gIsRWTS
rts
}
!zone {
PrereadT00
lda #$0F
PrereadT00Partial
sta gSector
clc
adc #BASEPAGE
sta gAddress+1
lda #$00
sta gTrack
sta gAddress
lda #$F0
sta $B959
lda #$05
sta $B95A
- jsr ReadSector
bcs .exit
dec gAddress+1
dec gSector
bne -
.exit
rts
}

13
src/id/laureate.a
View File

@ -76,5 +76,18 @@ TraceLaureate
sta $BA00,y
iny
bne -
;
; don't read track 0 sectors $0C-$0F
; (never read, some disks have intentionally bad sectors there)
; (seen on Sound Ideas)
;
lda #$00
sta T00S0C
sta T00S0D
sta T00S0E
sta T00S0F
;
; read the rest of the disk with this constructed RWTS
;
jmp ADStyle
}

19
src/id/mecc.a
View File

@ -26,25 +26,6 @@ IDMECC
rts
}
!zone {
PrereadT00
lda #$00
sta gTrack
sta gAddress
lda #$0F
sta gSector
clc
adc #BASEPAGE
sta gAddress+1
- jsr ReadSector
bcs .exit
dec gAddress+1
dec gSector
bne -
.exit
rts
}
;-------------------------------
; IDMECC1
; identify MECC bootloader variant #1

6
src/sectormap.a
View File

@ -40,7 +40,11 @@ sectormap
T00 !byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
T00S09 !byte $FF
T00S0A !byte $FF
!byte $FF,$FF,$FF,$FF,$FF
T00S0B !byte $FF
T00S0C !byte $FF
T00S0D !byte $FF
T00S0E !byte $FF
T00S0F !byte $FF
T01 !byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
T01S0F !byte $FF
T02 !byte $FF,$FF,$FF,$FF,$FF

2
src/strings/en.a
View File

@ -212,7 +212,7 @@ StringTable
; can be set directly before calling PrintByID.
;
.header
!text "Passport by 4am 2017-05-21",00
!text "Passport by 4am 2017-06-05",00
.mainmenu
!text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
!text " "