Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-05-28 21:41:27 +00:00
Code Issues Projects Releases Wiki Activity

shave some bytes

Browse Source
This commit is contained in:
4am 2021-06-20 00:18:55 -04:00
parent aabfb0118a
commit 479100ef9f
22 changed files with 412 additions and 385 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/id/555.a
View File

@ -2,11 +2,10 @@
; ID555
; identify 555 bootloader
;
; in: track buffer contains T00,S00
; out: C clear if 555 bootloader found
; C set otherwise
; all registers clobbered
; all other flags clobbered
; in: track buffer contains T00,S00
; out: C clear if 555 bootloader found
; C set otherwise
; all registers & flags clobbered
;
; tested with
; - Addition Magician
@ -33,7 +32,7 @@
; - Temple of Apshai
; - Trap-a-Zoid
;-------------------------------
ID555
!macro ID555 {
lda #8
ldy #22
jsr SearchSector
@ -48,4 +47,5 @@ ID555
!byte $C8 ; INY
!byte $C4,WILDCARD ; CPY $xx
!byte $90,$EF ; BCC *-$0F
rts
; passport-test-suite/Jumpman.woz [C=0] matches
}

3
src/id/d5d5f7.a
View File

@ -12,7 +12,8 @@
; in: $0800..$08FF contains T00,S00
; IDDOS33 returned success
; A = 0
; out: A,Y preserved
; out: A = 0
; Y preserved
; all other flags and registers clobbered
;-------------------------------
!macro IDD5D5F7 {

23
src/id/datasoft.a
View File

@ -2,21 +2,20 @@
; IDDatasoft
; identify Datasoft encrypted bootloader
;
; in: track buffer contains T00,S00
; out: C clear if Datasoft encrypted bootloader found
; C set otherwise
; all registers clobbered
; all other flags clobbered
;
; tested with
; - Tomahawk
; - Video Title Shop
; in: track buffer contains T00,S00
; A = 0
; X = 0
; out: C clear if Datasoft encrypted bootloader found
; C set otherwise
; A = 0
; X = 0
; all other registers & flags clobbered
;-------------------------------
!macro IDDatasoft {
lda #$00
tax
ldy #$08
jsr compare
!byte $01,$4C,$7E,$08,$04,$8A,$0C,$B8
!byte $01
!byte $4C,$7E,$08
!byte $04,$8A,$0C,$B8
; passport-test-suite/Tomahawk.woz [C=0] matches
}

24
src/id/daviddos.a
View File

@ -2,18 +2,20 @@
; IDDavid
; identify David-DOS bootloader
;
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; out: C clear if David-DOS bootloader found
; C set otherwise
; all registers clobbered
; all other flags clobbered
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; A = 0
; X = 0
; out: C clear if David-DOS bootloader found
; C set otherwise
; A = 0
; X = 0
; all other registers & flags clobbered
;-------------------------------
!macro IDDavid {
lda #$00
ldx #$01
ldy #$06
jsr compare ; if T00,S00,$01 ==
jsr compare ; if T00,S00,$00 ==
!byte $01
!byte $A5,$27 ; LDA $27
!byte $C9,$09 ; CMP #$09
!byte $D0,$17 ; BNE +$17
@ -23,5 +25,7 @@
!byte $A2,WILDCARD ; LDX #$**
!byte $BD,WILDCARD,$08; LDA $08**,X
!byte $9D
@notDavid ; passport-test-suite/Horses.woz [C=0] matches
; passport-test-suite/Horses.woz [C=0] matches
tax
@notDavid
}

10
src/id/dinkeydos.a
View File

@ -2,11 +2,11 @@
; IDDinkeyDOS
; identify Dinkey-DOS by filename in ProDOS catalog
;
; in: track buffer contains T00,S0B
; out: C clear if Dinkey-DOS found
; C set otherwise
; all registers clobbered
; all other flags clobbered
; in: track buffer contains T00,S0B
; out: C clear if Dinkey-DOS found
; C set otherwise
; A = #$0B
; all other registers & flags clobbered
;-------------------------------
!macro IDDinkeyDOS {
lda #$0B

45
src/id/dos32.a Normal file
View File

@ -0,0 +1,45 @@
;-------------------------------
; IDDOS32
;
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; A = 0
; X = 0
; out: C clear if hybrid DOS 3.2/3.3 bootloader found
; C set otherwise
; A = 0
; X = 0
; all other registers & flags clobbered
;-------------------------------
!macro IDDOS32 {
ldy #$0F
jsr compare ; if T00,S00,$00 =
!byte $01
!byte $A0,$0F ; LDY #$0F
!byte $B9,$00,$08; LDA $0800,Y
!byte $99,$00,$02; STA $0200,Y
!byte $C8 ; INY
!byte $D0,$F7 ; BNE -
!byte $4C,$0F,$02; JMP $020F
bcs +
ldx #$33
ldy #$08
jsr compare ; and T00,S00,$33 =
!byte $A6,$2B ; LDX $2B
!byte $20,$5D,$02; JSR $025D
!byte $4C,$D1,$02; JMP $02D1
bcs +
ldx #$F4
ldy #$08
jsr compare ; and T00,S00,$F4 =
!byte $CC,$00,$03; CPY $0300
!byte $D0,$03 ; BNE +
!byte $4C,$3B,$02; JMP $023B
bcs +
ldx #$45
ldy #$03
jsr compare ; and T00,S00,$45 =
!byte $4C,$01,$03; JMP $0301
tax
+
}

44
src/id/dos32lo.a Normal file
View File

@ -0,0 +1,44 @@
;-------------------------------
; IDDOS32LO
; detect earlier variant of hybrid bootloader that loads into
; low memory ($3600) then relocates to the top of main memory
; after loading DOS
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; A = 0
; X = 0
; out: C clear if low DOS 3.2/3.3 bootloader found
; C set otherwise
; A = 0
; X = 0
; all other registers & flags clobbered
;-------------------------------
!macro IDDOS32LO {
ldy #$0F
jsr compare
!byte $01
!byte $A2,$00 ; LDX #$00
!byte $BD,$00,$08; LDA $0800,X
!byte $9D,$00,$02; STA $0200,X
!byte $E8 ; INX
!byte $D0,$F7 ; BNE -
!byte $4C,$0F,$02; JMP $020F
bcs +
ldx #$2F
ldy #$08
jsr compare
!byte $A6,$2B ; LDX $2B
!byte $20,$5D,$02; JSR $025D
!byte $20,$D1,$02; JSR $02D1
bcs +
ldx #$41
ldy #$03
jsr compare
!byte $4C,$01,$03; JMP $0301
bcc +
ldx #$37
jsr compare
!byte $4C,$01,$03; JMP $0301
+ tax
}

2
src/id/dos33.a
View File

@ -5,7 +5,6 @@
;
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; A = 0
; X = 0
; out: C clear if traceable DOS 3.3-style bootloader found
; C set otherwise
@ -20,6 +19,7 @@ IDDOS33
; Must weed out some Infocom and TLC disks that would
; load over program space and crash.
;
txa
ldy $08FE
cpy #$B6
beq @ok08FE ; passport-test-suite/Binomial Multiplication.woz [Z=1] here, loads at $B600

40
src/id/holle.a
View File

@ -2,28 +2,26 @@
; IDHolle
; identify Dav Holle's encrypted bootloader
;
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; out: C clear if Holle bootloader found
; C set otherwise
; all registers clobbered
; all other flags clobbered
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; A = 0
; X = 0
; out: C clear if Holle bootloader found
; C set otherwise
; A = 0
; X = 0
; all other registers & flags clobbered
;-------------------------------
!zone {
IDHolle
lda #$00
tax
ldy #(@searchend-@searchstart)
!macro IDHolle {
ldy #$10
jsr compare ; if T00,S00,$00 ==
@searchstart
!byte $01
CLD
BIT $C081
LDA #$60
EOR $FF58
@hang BNE @hang
STA $03F3
SEI
@searchend
rts ; passport-test-suite/Crime Wave.woz [C=0] matches
!byte $D8 ; CLD
!byte $2C,$81,$C0; BIT $C081
!byte $A9,$60 ; LDA #$60
!byte $4D,$58,$FF; EOR $FF58
!byte $D0,$FE ; BNE
!byte $8D,$F3,$03; STA $03F3
!byte $78
; passport-test-suite/Crime Wave.woz [C=0] matches
}

326
src/id/inspect0.a
View File

@ -78,24 +78,35 @@ IDBootloader
ldx #BASEPAGE
ldy #$01
jsr CopyMemory ; exits with X=0
txa ; A=0
;
; Try to identify DOS 3.3-shaped bootloader.
; Exit via custom trace function if found.
; (in X=0; out A=0)
;
jsr IDDOS33
bcs .notdos33
lda #TRUE
sta gIsBoot0
sta gIsBoot0 ; A = 0 (TRUE)
;
; Try to identify specific DOS 3.3-shaped bootloader
; that may imply a D5D5F7 whole-track protection.
; (in A=0; out A=0)
;
+IDD5D5F7
;
; Try to identify Diversi-DOS
; (in A=0; out A=0)
;
+IDDiversi
ldx #s_diversidos
bcc .printdos
;
; Try to identify Pronto-DOS
; (in A=0; out A=0)
;
+IDPronto
ldx #s_prontodos
bcc .printdos
ldx #s_dosb0
.printdos
stx +
jsr PrintByID
@ -103,35 +114,37 @@ IDBootloader
jmp TraceDOS33
.notdos33
;
; Try to identify a variant bootloader that calls to $08B3
; early to munge the nibble tables used by the drive firmware.
; Exit via custom trace function if found.
;
+ID8b3
bcs .not8b3
jsr PrintByID
!byte s_jsr8b3
sta gIs8b3
jmp Trace8B3
.not8b3
;
; Try to identify Laureate Learning Systems bootloader.
; Exit via custom trace function if found.
; (in A=0; out A=0)
;
+IDLaureate
bcs .notLaureate
jsr PrintByID
!byte s_laureate
lda #TRUE
sta gIsLaureate
sta gIsLaureate ; A = 0 (TRUE)
lda #$0B
jsr PrereadT00Partial
bcs .notLaureate
jmp TraceLaureate
.notLaureate
;
; Try to identify a variant bootloader that calls to $08B3
; early to munge the nibble tables used by the drive firmware.
; Exit via custom trace function if found.
; (in A=0; out A=0,X=0)
;
+ID8b3
bcs .not8b3
jsr PrintByID
!byte s_jsr8b3
sta gIs8b3 ; A = 0 (TRUE)
jmp Trace8B3
.not8b3
;
; Try to identify all the different MECC fastloader variants.
; Exit via custom trace function if found.
; (in A=0,X=0; out A=0,X=0)
;
+IDMECC
bcs .notmecc
@ -163,8 +176,103 @@ IDBootloader
jmp foundmecc4
.notmecc
;
; Try to identify encrypted Datasoft bootloader
; (in A=0,X=0; out A=0,X=0)
;
+IDDatasoft
bcs .notDatasoft
jsr PrintByID
!byte s_datasoftb0
sta gIsDatasoft ; A = 0 (TRUE)
; /!\ execution falls through here
.notDatasoft
;
; Try to identify RDOS 16-sector bootloader
; (in A=0,X=0; out A=0,X=0)
;
+IDRDOS16
bcs .notRDOS16
jsr PrintByID
!byte s_rdos
; /!\ execution falls through here
.notRDOS16
;
; David-DOS II
; (in A=0,X=0; out A=0,X=0)
;
+IDDavid
bcs .notDavid
jsr PrintByID
!byte s_daviddos
sta gIsDavidDOS ; A = 0 (TRUE)
; /!\ execution falls through here
.notDavid
;
; TSR bootloader
; (in A=0,X=0; out A=0,X=0)
;
+IDTSR
bcs .notTSR
jsr PrintByID
!byte s_tsr
sta gIsTSR ; A = 0 (TRUE)
; /!\ execution falls through here
.notTSR
;
; Micrograms bootloader
; (in A=0,X=0; out A=0,X=0)
;
+IDMicrograms
bcs .notMicrograms
jsr PrintByID
!byte s_micrograms
; /!\ execution falls through here
.notMicrograms
;
; Quick-DOS
; (in A=0,X=0; out A=0,X=0)
;
+IDQuickDOS
bcs .notQuickDOS
jsr PrintByID
!byte s_quickdos
; /!\ execution falls through here
.notQuickDOS
;
; Dav Holle encrypted bootloader
; (in A=0,X=0; out A=0,X=0)
;
+IDHolle
bcs .notHolle
jsr PrintByID
!byte s_holle
sta gIsHolle ; A = 0 (TRUE)
; /!\ execution falls through here
.notHolle
;
; Try to identify Electronic Arts bootloader.
; Exit via custom trace function if found.
; (in A=0,X=0; out A=0,X=0)
;
+IDEA
bcs .notEA
jmp foundea
.notEA
;
; Try to identify hybrid 16-/13-sector bootloader.
; Exit via custom trace function if found.
; (in A=0,X=0; out A=0,X=0)
;
+IDDOS32
bcs .notDOS32
jsr PrintByID
!byte s_dos32b0
jmp TraceDOS32
.notDOS32
;
; Try to identify DOS 3.3P (Special Delivery) bootloader.
; Exit via custom trace function if found.
; (in A=0,X=0; out A=0,X=0)
;
+IDSpecDel
bcs .notSpecialDelivery
@ -173,24 +281,10 @@ IDBootloader
jmp TraceSpecDel
.notSpecialDelivery
;
; Try to identify Electronic Arts bootloader.
; Try to identify hybrid 16-/13-sector bootloader (variant
; that loads into $3600 then relocates).
; Exit via custom trace function if found.
;
+IDEA
bcs .notEA
jmp foundea
.notEA
;
; Try to identify hybrid 16-/13-sector bootloader on
; DOS 3.2 disks.
; Exit via custom trace function if found.
;
+IDDOS32
bcs .notDOS32
jsr PrintByID
!byte s_dos32b0
jmp TraceDOS32
.notDOS32
; (in A=0,X=0; out A=0,X=0)
+IDDOS32LO
bcs .notDOS32LO
jsr PrintByID
@ -198,8 +292,48 @@ IDBootloader
jmp TraceDOS32LO
.notDOS32LO
;
; ProDOS (all versions)
; (in A=0,X=0; out none [after jsr IDVolumeName])
;
+IDProDOS
bcs .notProDOS
jsr PrintByID
!byte s_prodosb0
sta gIsProDOS ; A = 0 (TRUE)
jsr IDVolumeName
; /!\ execution falls through here because Dinkey-DOS disks are also ProDOS
.notProDOS
;
; Dinkey-DOS (ProDOS file structure with DOS 3.3-ish RWTS in language card)
; detectable now because IDVolumeName just read the first sector of the
; volume directory into memory so we can look for a unique filename
; (in none; out none)
;
+IDDinkeyDOS
bcs .notDinkey
sta gDisplayBytes ; A = #$0B
jsr PrintByID
!byte s_dinkeydos
lda #TRUE
sta gIsDinkeyDOS
; /!\ execution falls through here to save bytes (no other IDs will match)
.notDinkey
;
; Apple Pascal (all versions)
; (in none; out none [after jsr IDVolumeName])
;
+IDPascal
bcs .notPascal
jsr PrintByID
!byte s_pascalb0
sta gIsPascal ; A = 0 (TRUE)
jsr IDVolumeName
; /!\ execution falls through here
.notPascal
;
; Try to identify Interplay bootloader.
; Exit via custom trace function if found.
; (in none; out none)
;
+IDAdvent
bcs .notInterplay
@ -209,6 +343,7 @@ IDBootloader
; Try to detect whether there is code in the boot sector
; that loads 4-and-4-encoded data. This is an early escape
; hatch for disks that will fail later anyway.
; (in none; out none)
;
+IDEncoded44
bcs .not44
@ -223,6 +358,7 @@ IDBootloader
; (the universal RWTS only works on 6-and-2 encoded data), so
; this serves as an early escape hatch for disks that will
; fail later anyway.
; (in none; out none)
;
+IDEncoded53
bcs .not53
@ -231,124 +367,10 @@ IDBootloader
jmp TheEnd
.not53
;
; ProDOS (all versions)
; 5-5-5 spiral bootloader
; (in none; out none)
;
+IDProDOS
bcs .notProDOS
jsr PrintByID
!byte s_prodosb0
lda #TRUE
sta gIsProDOS
jsr IDVolumeName
; /!\ execution falls through here because Dinkey-DOS disks are also ProDOS
.notProDOS
;
; Dinkey-DOS (ProDOS file structure with DOS 3.3-ish RWTS in language card)
; detectable now because IDVolumeName just read the first sector of the
; volume directory into memory so we can look for a unique filename
;
+IDDinkeyDOS
bcs .notDinkey
lda #$0B
sta gDisplayBytes
jsr PrintByID
!byte s_dinkeydos
lda #TRUE
sta gIsDinkeyDOS
; /!\ execution falls through here to save bytes (no other IDs will match)
.notDinkey
;
; Apple Pascal (all versions)
;
+IDPascal
bcs .notPascal
jsr PrintByID
!byte s_pascalb0
lda #TRUE
sta gIsPascal
jsr IDVolumeName
; /!\ execution falls through here to save bytes (no other IDs will match)
.notPascal
;
; David-DOS II
;
+IDDavid
bcs .notDavid
jsr PrintByID
!byte s_daviddos
lda #TRUE
sta gIsDavidDOS
; /!\ execution falls through here to save bytes (no other IDs will match)
.notDavid
;
; Encrypted Datasoft bootloader
;
+IDDatasoft
bcs .notDatasoft
jsr PrintByID
!byte s_datasoftb0
lda #TRUE
sta gIsDatasoft
; /!\ execution falls through here to save bytes (no other IDs will match)
.notDatasoft
;
; TSR bootloader
;
+IDTSR
bcs .notTSR
jsr PrintByID
!byte s_tsr
lda #TRUE
sta gIsTSR
; /!\ execution falls through here to save bytes (no other IDs will match)
.notTSR
;
; Micrograms bootloader
; (just for display)
;
+IDMicrograms
bcs .notMicrograms
jsr PrintByID
!byte s_micrograms
; /!\ execution falls through here to save bytes (no other IDs will match)
.notMicrograms
;
; Quick-DOS
; (just for display)
;
+IDQuickDOS
bcs .notQuickDOS
jsr PrintByID
!byte s_quickdos
; /!\ execution falls through here to save bytes (no other IDs will match)
.notQuickDOS
;
; RDOS (16-sector)
; (just for display)
;
+
+IDRDOS16
bcs .notRDOS16
jsr PrintByID
!byte s_rdos
; /!\ execution falls through here to save bytes (no other IDs will match)
.notRDOS16
;
; Dav Holle encrypted bootloader
; (will be decrypted and patched)
;
jsr IDHolle
bcs .notHolle
jsr PrintByID
!byte s_holle
lda #TRUE
sta gIsHolle
; /!\ execution falls through here to save bytes (no other IDs will match)
.notHolle
;
; 555 bootloader
;
jsr ID555
+ID555
bcs .not555
lda #0
sta gDisplayBytes

12
src/id/jsr8b3.a
View File

@ -9,15 +9,10 @@
; out: C clear if this bootloader was found
; C set otherwise
; A = 0
; X = 0
; all other registers & flags clobbered
;-------------------------------
!macro ID8b3 {
tax
ldy #$08
jsr compare
!byte $01,$20,$B3,$08,$D0,$19,$EA,$A5
bcs +
ldx #$B3
ldy #$14
jsr compare
@ -25,6 +20,11 @@
!byte $A9,$1C,$8D,$CC,$03
!byte $A9,$00,$8D,$D5,$03
!byte $A9,$37,$8D,$A3,$03
tax
bcs +
ldy #$08
jsr compare
!byte $01,$20,$B3,$08,$D0,$19,$EA,$A5
; passport-test-suite/Ardy The Aardvark.woz [C=0] matches
+
}

2
src/id/mecc.a
View File

@ -8,6 +8,7 @@
;
; in: track buffer contains T00,S00
; A = 0
; X = 0
; out: C clear if MECC bootloader was found
; C set if not found
; A = 0
@ -15,7 +16,6 @@
; all other registers & flags clobbered
;-------------------------------
!macro IDMECC {
tax
ldy #$17
jsr compare
!byte $01,$4C,$1A,$08,$17,$0F,$00,$00

20
src/id/micrograms.a
View File

@ -2,17 +2,19 @@
; IDMicrograms
; identify Micrograms bootloader
;
; in: track buffer contains T00,S00
; out: C clear if Micrograms bootloader was found
; C set if not found
; all other flags clobbered
; all registers clobbered
; in: track buffer contains T00,S00
; A = 0
; X = 0
; out: C clear if Micrograms bootloader was found
; C set if not found
; A = 0
; X = 0
; all other registers & flags clobbered
;-------------------------------
!macro IDMicrograms {
lda #$00
ldx #$01
ldy #$0A
ldy #$0B
jsr compare
!byte $01
!byte $A5,$27
!byte $C9,$09
!byte $D0,$12
@ -23,5 +25,7 @@
ldy #$02
jsr compare
!byte $4C,$00
; passport-test-suite/Shapes and Patterns.woz [C=0] matches
tax
@notMicrograms
}

15
src/id/pascal.a
View File

@ -2,12 +2,15 @@
; IDPascal
; identify Apple Pascal bootloader
;
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; out: C clear if Apple Pascal bootloader found
; C set otherwise
; all registers clobbered
; all other flags clobbered
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; A = 0
; X = 0
; out: C clear if Apple Pascal bootloader found
; C set otherwise
; A = 0
; X = 0
; all other registers & flags clobbered
;-------------------------------
!macro IDPascal {
;

17
src/id/prodos.a
View File

@ -2,12 +2,15 @@
; IDProDOS
; identify ProDOS bootloader
;
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; out: C clear if ProDOS bootloader found
; C set otherwise
; all registers clobbered
; all other flags clobbered
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; A = 0
; X = 0
; out: C clear if ProDOS bootloader found
; C set otherwise
; A = 0
; X = 0
; all other registers & flags clobbered
;-------------------------------
!macro IDProDOS {
; Some disks jump to $08FF at $0804 (SOS entry point).
@ -15,8 +18,6 @@
; ProDOS (e.g. 1-2-3 Sequence Me, Alge-Blaster Plus,
; Dazzle Draw, SuperPrint II). All of these variants
; will match.
lda #$00
tax
ldy #$05
jsr compare ; if T00,S00,$00 ==
!byte $01

20
src/id/quickdos.a
View File

@ -2,18 +2,20 @@
; IDQuickDOS
; identify Quick-DOS bootloader
;
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; out: C clear if Quick-DOS bootloader found
; C set otherwise
; all registers clobbered
; all other flags clobbered
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; A = 0
; X = 0
; out: C clear if Quick-DOS bootloader found
; C set otherwise
; A = 0
; X = 0
; all other registers & flags clobbered
;-------------------------------
!macro IDQuickDOS {
lda #$00
ldx #$01
ldy #$0A
ldy #$0B
jsr compare ; if T00,S00,$01 ==
!byte $01
!byte $A5,$27 ; LDA $27
!byte $C9,$09 ; CMP #$09
!byte $D0,$27 ; BNE +$27

17
src/id/rdos.a → src/id/rdos16.a
View File

@ -2,16 +2,17 @@
; IDRDOS16
; identify RDOS 16-sector bootloader
;
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; out: C clear if RDOS 16-sector bootloader found
; C set otherwise
; all registers clobbered
; all other flags clobbered
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; A = 0
; X = 0
; out: C clear if RDOS 16-sector bootloader found
; C set otherwise
; A = 0
; X = 0
; all other registers & flags clobbered
;-------------------------------
!macro IDRDOS16 {
lda #$00
tax
ldy #$0E
jsr compare ; if T00,S00,$00 ==
!byte $01

87
src/id/trace32.a
View File

@ -3,93 +3,6 @@
; that boots automatically on 16-sector drives
; e.g. many early disks from Edu-Ware, Hartley, DLM, Milliken
;-------------------------------
; IDDOS32
;
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; A = 0
; X = 0
; out: C clear if hybrid DOS 3.2/3.3 bootloader found
; C set otherwise
; all other registers & flags clobbered
;-------------------------------
!macro IDDOS32 {
ldy #$0F
jsr compare ; if T00,S00,$00 =
!byte $01
!byte $A0,$0F ; LDY #$0F
!byte $B9,$00,$08; LDA $0800,Y
!byte $99,$00,$02; STA $0200,Y
!byte $C8 ; INY
!byte $D0,$F7 ; BNE -
!byte $4C,$0F,$02; JMP $020F
bcs +
ldx #$33
ldy #$08
jsr compare ; and T00,S00,$33 =
!byte $A6,$2B ; LDX $2B
!byte $20,$5D,$02; JSR $025D
!byte $4C,$D1,$02; JMP $02D1
bcs +
ldx #$F4
ldy #$08
jsr compare ; and T00,S00,$F4 =
!byte $CC,$00,$03; CPY $0300
!byte $D0,$03 ; BNE +
!byte $4C,$3B,$02; JMP $023B
bcs +
ldx #$45
ldy #$03
jsr compare ; and T00,S00,$45 =
!byte $4C,$01,$03; JMP $0301
+
}
;-------------------------------
; IDDOS32LO
; detect earlier variant of hybrid bootloader that loads into
; low memory ($3600) then relocates to the top of main memory
; after loading DOS
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; out: C clear if low DOS 3.2/3.3 bootloader found
; C set otherwise
; all other registers & flags clobbered
;-------------------------------
!macro IDDOS32LO {
lda #$00
tax
ldy #$0F
jsr compare
!byte $01
!byte $A2,$00 ; LDX #$00
!byte $BD,$00,$08; LDA $0800,X
!byte $9D,$00,$02; STA $0200,X
!byte $E8 ; INX
!byte $D0,$F7 ; BNE -
!byte $4C,$0F,$02; JMP $020F
bcs +
ldx #$2F
ldy #$08
jsr compare
!byte $A6,$2B ; LDX $2B
!byte $20,$5D,$02; JSR $025D
!byte $20,$D1,$02; JSR $02D1
bcs +
ldx #$41
ldy #$03
jsr compare
!byte $4C,$01,$03; JMP $0301
bcc +
ldx #$37
ldy #$03
jsr compare
!byte $4C,$01,$03; JMP $0301
+
}
;-------------------------------
; TraceDOS32/TraceDOS32LO
; set up boot trace to capture 13-sector RWTS

2
src/id/trace33p.a
View File

@ -8,6 +8,7 @@
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; A = 0
; X = 0
; out: C clear if Special Delivery bootloader found
; C set otherwise
; A = 0
@ -15,7 +16,6 @@
; all other registers & flags clobbered
;-------------------------------
!macro IDSpecDel {
tax
ldy #$08
jsr compare
!byte $02

36
src/id/tsr.a
View File

@ -2,32 +2,32 @@
; IDTSR
; identify TSR bootloader
;
; in: track buffer contains T00,S00
; out: C clear if TSR bootloader found
; C set otherwise
; all registers clobbered
; all other flags clobbered
;
; tested with
; - Dawn Patrol
; - Dungeon
; - Theseus and the Minotaur
; in: track buffer contains T00,S00
; A = 0
; X = 0
; out: C clear if TSR bootloader found
; C set otherwise
; A = 0
; X = 0
; all other registers & flags clobbered
;-------------------------------
!macro IDTSR {
lda #$00
ldy #$05
jsr compare
!byte $01
!byte $A5,$27
!byte $C9,$09
bcs @notTSR
ldx #$FE
ldy #$02
jsr compare
!byte $B0,$0F
bcs @notTSR
ldx #$1C
ldy #$03
iny
jsr compare
!byte $20,$B3,$08
bcs @notTSR
ldx #$01
ldy #$04
jsr compare
!byte $A5,$27,$C9,$09
@notTSR ; passport-test-suite/Dawn Patrol.woz [C=0] matches
; passport-test-suite/Dawn Patrol.woz [C=0] matches
@notTSR
tax
}

34
src/id/volumename.a
View File

@ -3,16 +3,11 @@
; identify and print volume name if found
; (ProDOS and Pascal supported)
;
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; gIsProDOS or gIsPascal is true
; out: C clear if disk volume name was found and printed
; C set otherwise
; oVerflow always clear
; all registers clobbered
; all other flags clobbered
; in: $0800..$08FF contains T00,S00
; first page of track buffer also contains T00,S00
; gIsProDOS or gIsPascal is true
; out: all registers & flags clobbered
;-------------------------------
!zone {
IDVolumeName
; read T00,S0B (volume key block)
ldx #$00
@ -25,7 +20,7 @@ IDVolumeName
sta gAddress+1
sta cmp1+1
jsr ReadSectorXY
bcs .error
bcs .exit
lda gIsPascal
beq .pascal
@ -34,7 +29,7 @@ IDVolumeName
ldy #$04
lda (cmp1), y
cmp #$F1
bcc .error
bcc .exit
and #$0F
tax
lda #$05
@ -45,12 +40,12 @@ IDVolumeName
ldy #$02
lda (cmp1), y
cmp #$06
bne .error
bne .exit
ldy #$06
lda (cmp1), y
beq .error
beq .exit
cmp #$08
bcs .error ; passport-test-suite/Notecard Maker.woz [C=0] reaches here
bcs .exit ; passport-test-suite/Notecard Maker.woz [C=0] reaches here
tax
lda #$07
sta .offset+1
@ -81,16 +76,9 @@ IDVolumeName
ldy #$06
jsr compare
!byte $4C,$4F,$57,$44,$4F,$53
bcs +
bcs .exit
lda #TRUE
sta gIsLowDOS
lda #kSectorOptional
sta T00S0C
+
clc
!byte $24 ; hide next SEC
.error
sec
clv
rts
}
.exit rts

4
src/passport.a
View File

@ -53,9 +53,11 @@ NonRelocatable
!source "id/bootfailure.a"
!source "id/trace33p.a"
!source "id/dos33.a"
!source "id/dos32.a"
!source "id/dos32lo.a"
!source "id/prodos.a"
!source "id/pascal.a"
!source "id/rdos.a"
!source "id/rdos16.a"
!source "id/jsr8b3.a"
!source "id/mecc.a"
!source "id/datasoft.a"