Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-06-25 21:29:54 +00:00
Code Issues Projects Releases Wiki Activity

more test suite cross-references

Browse Source
This commit is contained in:
4am 2019-05-06 21:24:29 -04:00
parent cdef0b322c
commit ae5016cf49
27 changed files with 55 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/id/advent.a
View File

@ -33,7 +33,7 @@ IDAdvent
!byte $D0,$F5 ;BNE $-8 !byte $D0,$F5 ;BNE $-8
!byte $A6,$2B ;LDX $2B !byte $A6,$2B ;LDX $2B
!byte $4C,$00 ;JMP $xx00 !byte $4C,$00 ;JMP $xx00
rts rts ; passport-test-suite/Borrowed Time.woz [C=0] matches
foundadvent foundadvent
; ;

2
src/id/d5d5f7.a
View File

@ -30,5 +30,5 @@ IDD5D5F7
clc clc
!byte $24 !byte $24
.no sec .no sec
rts rts ; passport-test-suite/RoboMath.woz [C=0] matches
} }

6
src/id/datasoft.a
View File

@ -7,6 +7,10 @@
; C set otherwise ; C set otherwise
; all registers clobbered ; all registers clobbered
; all other flags clobbered ; all other flags clobbered
;
; tested with
; - Tomahawk
; - Video Title Shop
;------------------------------- ;-------------------------------
IDDatasoft IDDatasoft
lda #$00 lda #$00
@ -29,4 +33,4 @@ IDDatasoft
!byte $04,$45,$0C,$63,$04,$90,$94,$D0 !byte $04,$45,$0C,$63,$04,$90,$94,$D0
!byte $D4,$23,$04,$91,$A1,$EB,$CD,$06 !byte $D4,$23,$04,$91,$A1,$EB,$CD,$06
!byte $95,$A1,$E1,$98,$97,$86 !byte $95,$A1,$E1,$98,$97,$86
rts rts ; passport-test-suite/Tomahawk.woz [C=0] matches

2
src/id/daviddos.a
View File

@ -28,5 +28,5 @@ IDDavid
!byte $9D,WILDCARD,$04; STA $04**,X !byte $9D,WILDCARD,$04; STA $04**,X
!byte $CA ; DEX !byte $CA ; DEX
!byte $10,$F7 ; BPL - !byte $10,$F7 ; BPL -
.exit rts .exit rts ; passport-test-suite/Horses.woz [C=0] matches
} }

3
src/id/davidson.a
View File

@ -23,7 +23,8 @@ IDDavidson
jsr ReadSector jsr ReadSector
lda #$13 lda #$13
sta $B92E sta $B92E
bcs .exit ; didn't work, give up bcs .exit ; passport-test-suite/Word Attack Plus Spanish.woz [C=0] matches
; if the read didn't work, give up
lda #s_davidson lda #s_davidson
jsr PrintByID jsr PrintByID
lda #TRUE lda #TRUE

9
src/id/encode44.a
View File

@ -14,8 +14,9 @@
IDEncoded44 IDEncoded44
ldy #$07 ldy #$07
jsr SearchTrack jsr SearchTrack
!byte $BD,$8C,$C0,$10,$FB,$38,$2A !byte $BD,$8C,$C0
;; bcs .exit !byte $10,$FB
.exit !byte $38
rts !byte $2A
rts ; passport-test-suite/Sneakers.woz [C=0] matches
} }

3
src/id/encode53.a
View File

@ -2,6 +2,7 @@
; IDEncoded53 ; IDEncoded53
; identify bootloader that loads ; identify bootloader that loads
; 5-3-encoded data from track 0 ; 5-3-encoded data from track 0
; but our DOS 3.2 tracer didn't work
; (these disks are unsupported) ; (these disks are unsupported)
; ;
; in: track buffer contains T00,S00 ; in: track buffer contains T00,S00
@ -16,7 +17,5 @@ IDEncoded53
jsr SearchTrack jsr SearchTrack
!byte $BD,$8C,$C0,$10,$FB,$C9,$B5,$F0 !byte $BD,$8C,$C0,$10,$FB,$C9,$B5,$F0
!byte $09,$28,$90,$DF,$49,$AD,$F0,$1F !byte $09,$28,$90,$DF,$49,$AD,$F0,$1F
;; bcs .exit
.exit
rts rts
} }

2
src/id/holle.a
View File

@ -25,5 +25,5 @@ IDHolle
STA $03F3 STA $03F3
SEI SEI
@searchend @searchend
rts rts ; passport-test-suite/Crime Wave.woz [C=0] matches
} }

5
src/id/inspect0.a
View File

@ -381,8 +381,9 @@ VerifyInfocom18
jsr Read4x4 jsr Read4x4
lda #$12 ; all 18 sectors when in verify mode lda #$12 ; all 18 sectors when in verify mode
ldx gIsInfocom18 ldx gIsInfocom18
beq .setcount beq .setcount ; passport-test-suite/Trinity - Side B.woz [Z=1] here
lda #$02 ; only two sectors when in ID mode lda #$02 ; passport-test-suite/Time Lord.woz [Z=0] here
; only two sectors when in ID mode
.setcount .setcount
sta tmp ; sector counter sta tmp ; sector counter

2
src/id/jsr8b3.a
View File

@ -43,5 +43,5 @@ ID8b3
!byte $C6,$01,$A9,$08,$C5,$01,$D0,$EC !byte $C6,$01,$A9,$08,$C5,$01,$D0,$EC
!byte $60 !byte $60
.exit .exit
rts rts ; passport-test-suite/Ardy The Aardvark.woz [C=0] matches
} }

3
src/id/laureate.a
View File

@ -24,7 +24,6 @@ IDLaureate
!byte $A9,$BF ; LDA #$BF !byte $A9,$BF ; LDA #$BF
!byte $8D,$FE,$08; STA $08FE !byte $8D,$FE,$08; STA $08FE
bcs .exit bcs .exit
lda #$00
ldx #$F8 ldx #$F8
ldy #$08 ldy #$08
jsr compare ; and T00,S00,$F8 == jsr compare ; and T00,S00,$F8 ==
@ -32,7 +31,7 @@ IDLaureate
!byte $00,$00,$00 !byte $00,$00,$00
!byte $FF,$0B !byte $FF,$0B
.exit .exit
rts rts ; passport-test-suite/Sound Ideas- Word Attack - Disk 1 - Ending Consonants.woz [C=0] matches
} }
;------------------------------- ;-------------------------------

11
src/id/mecc.a
View File

@ -22,8 +22,7 @@ IDMECC
!byte $01,$4C,$1A,$08,$17,$0F,$00,$00 !byte $01,$4C,$1A,$08,$17,$0F,$00,$00
!byte $0D,$0B,$09,$07,$05,$03,$01,$0E !byte $0D,$0B,$09,$07,$05,$03,$01,$0E
!byte $0C,$0A,$08,$06,$04,$02,$0F !byte $0C,$0A,$08,$06,$04,$02,$0F
.exit rts ; passport-test-suite/Clock Works v1.0.woz [C=0] matches
rts
} }
;------------------------------- ;-------------------------------
@ -74,7 +73,7 @@ IDMECC1
!byte $D0,$F2,$EA,$BD,$8C,$C0,$10,$FB !byte $D0,$F2,$EA,$BD,$8C,$C0,$10,$FB
!byte $C9 !byte $C9
.exit .exit
rts rts ; passport-test-suite/Coordinate Math v1.0.woz [C=0] matches
foundmecc1 foundmecc1
; ;
@ -170,7 +169,7 @@ foundmecc2
lda #$07 lda #$07
foundmecc4a foundmecc4a
clc clc
adc #BASEPAGE adc #BASEPAGE ; passport-test-suite/Clock Works v1.0.woz [C=0] reaches here
sta modsrc+1 sta modsrc+1
lda #$00 lda #$00
sta modsrc sta modsrc
@ -241,7 +240,7 @@ IDMECC3
jsr compare ; and T00,S0B,$7A == jsr compare ; and T00,S0B,$7A ==
!byte $D0,$F2,$EA,$BD,$8C,$C0,$10,$FB,$C9 !byte $D0,$F2,$EA,$BD,$8C,$C0,$10,$FB,$C9
.exit .exit
rts rts ; passport-test-suite/Number Munchers v1.0.woz [C=0] matches
foundmecc3 foundmecc3
; ;
@ -307,5 +306,5 @@ foundmecc4
; original disk. ; original disk.
; ;
lda #$08 lda #$08
jmp foundmecc4a jmp foundmecc4a ; passport-test-suite/Conquering Whole Numbers v1.1.woz [Z=0] reaches here
} }

2
src/id/micrograms.a
View File

@ -19,7 +19,7 @@ IDMicrograms
!byte $D0,$12 !byte $D0,$12
!byte $A9,$C6 !byte $A9,$C6
!byte $85,$3F !byte $85,$3F
bcs .exit bcs .exit ; passport-test-suite/Shapes and Patterns.woz [C=0] matches
ldx #$42 ldx #$42
ldy #$02 ldy #$02
jsr compare jsr compare

2
src/id/milliken.a
View File

@ -34,7 +34,7 @@ IDMilliken1
jsr compare jsr compare
!byte $A9,$AE,$8D,$00,$04,$4C,$99,$AD !byte $A9,$AE,$8D,$00,$04,$4C,$99,$AD
!byte $AE,$F8,$05,$BD,$89,$C0 !byte $AE,$F8,$05,$BD,$89,$C0
bcs + bcs + ; passport-test-suite/Tangram Puzzler.woz [C=0] matches
lda #TRUE lda #TRUE
sta gIsMilliken1 sta gIsMilliken1
bcc .exit bcc .exit

2
src/id/panglosdos.a
View File

@ -39,7 +39,7 @@ PanglosDOS
ldy #$02 ldy #$02
jsr CompareMemory jsr CompareMemory
!byte $20,$F9 !byte $20,$F9
bcc + bcc + ; passport-test-suite/Stepwise Multiple Regression.woz [C=0] matches
.jmpexit1 .jmpexit1
jmp .exit jmp .exit

6
src/id/pascal.a
View File

@ -24,16 +24,16 @@ IDPascal
!byte $E0,$60 !byte $E0,$60
!byte $F0,$03 !byte $F0,$03
!byte $4C,WILDCARD,$08 !byte $4C,WILDCARD,$08
bcc .exit bcc .exit ; passport-test-suite/Wizplus.woz [C=0] matches
; ;
; Apple Pascal 1.3 signature [thanks Marco V.] ; Apple Pascal 1.3 signature [thanks Marco V.]
; ;
ldy #$08 ldy #$08 ; passport-test-suite/Triangles Through Octagons.woz [C=1] reaches here
jsr compare ; or if T00,S00,$00 == jsr compare ; or if T00,S00,$00 ==
!byte $01 !byte $01
!byte $E0,$70 !byte $E0,$70
!byte $B0,$04 !byte $B0,$04
!byte $E0,$40 !byte $E0,$40
!byte $B0 !byte $B0
.exit rts .exit rts ; passport-test-suite/Triangles Through Octagons.woz [C=0] matches
} }

2
src/id/phoenix.a
View File

@ -15,5 +15,5 @@ IDPhoenix
ldy #$03 ldy #$03
jsr compare jsr compare
!byte $AC,$B7,$F6 !byte $AC,$B7,$F6
rts rts ; passport-test-suite/Zoom Grafix 26-JAN-82.woz [C=0] matches
} }

2
src/id/prodos.a
View File

@ -24,5 +24,5 @@ IDProDOS
!byte $38 ; SEC !byte $38 ; SEC
!byte $B0,$03 ; BCS +3 !byte $B0,$03 ; BCS +3
!byte $4C ; JMP !byte $4C ; JMP
rts rts ; passport-test-suite/Investigating Plant Growth.woz [C=0] matches
} }

2
src/id/prontodos.a
View File

@ -19,5 +19,5 @@ IDPronto
!byte $B0,$50 ; BCS +$50 !byte $B0,$50 ; BCS +$50
!byte $AD,$CB,$B5; LDA $B5CB !byte $AD,$CB,$B5; LDA $B5CB
!byte $85,$42 ; STA $42 !byte $85,$42 ; STA $42
rts rts ; passport-test-suite/America Coast to Coast.woz [C=0] matches
} }

2
src/id/protecteddos.a
View File

@ -16,7 +16,7 @@ ProtectedDOS
!byte $00,$B7,$C8,$D0,$F5,$EE,$04,$B7 !byte $00,$B7,$C8,$D0,$F5,$EE,$04,$B7
!byte $EE,$09,$B7,$AD,$09,$B7,$C9,$C0 !byte $EE,$09,$B7,$AD,$09,$B7,$C9,$C0
!byte $D0,$E8 !byte $D0,$E8
bcs .exit bcs .exit ; passport-test-suite/Ultima IV.woz [C=0] matches
lda $B706 ; decryption key lda $B706 ; decryption key
sta .key+1 sta .key+1

2
src/id/quickdos.a
View File

@ -20,5 +20,5 @@ IDQuickDOS
!byte $D0,$27 ; BNE +$27 !byte $D0,$27 ; BNE +$27
!byte $78 ; SEI !byte $78 ; SEI
!byte $AD,$83,$C0; LDA $C083 !byte $AD,$83,$C0; LDA $C083
rts rts ; passport-test-suite/Kid Niki.woz [C=0] matches
} }

2
src/id/rdos.a
View File

@ -22,5 +22,5 @@ IDRDOS
!byte $A0,$1F ; LDY #$1F !byte $A0,$1F ; LDY #$1F
!byte $B9,$00,$08; LDA $0800,Y !byte $B9,$00,$08; LDA $0800,Y
!byte $49 ; EOR !byte $49 ; EOR
rts rts ; passport-test-suite/Roadwar 2000.woz [C=0] matches
} }

6
src/id/trace32.a
View File

@ -157,7 +157,7 @@ TraceDOS32LO
cmp #$36 cmp #$36
beq + beq +
cmp #$B2 ;RDOS cmp #$B2 ;RDOS
bne .fail bne .fail ; passport-test-suite/Epidemic.woz [Z=1] matches
clc clc
+ php + php
; ;
@ -199,7 +199,7 @@ TraceDOS32LO
!byte $88 ;DEY !byte $88 ;DEY
!byte $A9,$EA ;LDA #$EA !byte $A9,$EA ;LDA #$EA
!byte $20,$26,$03 ;JSR $0326 !byte $20,$26,$03 ;JSR $0326
bcs .fail bcs .fail ; passport-test-suite/Eggs-It.woz [C=0] matches
lda #s_choplifter lda #s_choplifter
jsr PrintByID jsr PrintByID
lda #s_diskrwts lda #s_diskrwts
@ -320,7 +320,7 @@ TraceDOS32d
ldy #$02 ldy #$02
jsr CompareMemory jsr CompareMemory
!byte $20,$DD !byte $20,$DD
bcs + bcs + ; passport-test-suite/Robotwar.woz [C=0] matches
lda #s_muse lda #s_muse
jsr PrintByID jsr PrintByID

16
src/id/trace33.a
View File

@ -139,7 +139,7 @@ _Inspect1a
ldy #$02 ldy #$02
jsr CompareMemory jsr CompareMemory
!byte $20,00 !byte $20,00
bcc .x5 bcc .x5 ; passport-test-suite/Analogies Tutorial.woz [C=0] matches
jmp UseUniversal ; give up tracing; this RWTS is unsupported jmp UseUniversal ; give up tracing; this RWTS is unsupported
; ;
; Check for RWTS variant that uses non-standard address for slot ; Check for RWTS variant that uses non-standard address for slot
@ -151,7 +151,7 @@ _Inspect1a
ldy #$03 ldy #$03
jsr CompareMemory jsr CompareMemory
!byte $AE,$E8,$1F !byte $AE,$E8,$1F
bcs .x6 bcs .x6 ; passport-test-suite/Pinball Construction Set (Budgeco).woz [C=0] matches
jmp UseUniversal ; give up tracing; this RWTS is unsupported jmp UseUniversal ; give up tracing; this RWTS is unsupported
; ;
; Check for Milliken protection routine in late-stage boot ; Check for Milliken protection routine in late-stage boot
@ -162,7 +162,7 @@ _Inspect1a
ldy #$03 ldy #$03
jsr CompareMemory jsr CompareMemory
!byte $4C,$03,$9B !byte $4C,$03,$9B
bcs .x6b bcs .x6b ; passport-test-suite/Tangram Puzzler.woz [C=0] matches
jsr IDMilliken jsr IDMilliken
bcs .x6b bcs .x6b
lda #s_milliken lda #s_milliken
@ -182,7 +182,7 @@ _Inspect1a
!byte $9D,WILDCARD,WILDCARD !byte $9D,WILDCARD,WILDCARD
!byte $9D,WILDCARD,WILDCARD !byte $9D,WILDCARD,WILDCARD
!byte $20,$93 !byte $20,$93
bcs .x7 bcs .x7 ; passport-test-suite/Super Taxman II.woz [C=0] matches
ldy #$07 ldy #$07
.x6c lda $B730,y .x6c lda $B730,y
sta .trackpointer,y sta .trackpointer,y
@ -204,7 +204,7 @@ _Inspect1a
!byte $BD,$8C,$C0; LDA $C08C,X !byte $BD,$8C,$C0; LDA $C08C,X
!byte $10,$FB ; BPL -$FB !byte $10,$FB ; BPL -$FB
!byte $C9,$00 ; CMP #$00 !byte $C9,$00 ; CMP #$00
bcs + bcs + ; passport-test-suite/S.A.G.A. 6.woz [C=0] matches
lda #TRUE lda #TRUE
sta gAdventureInternational sta gAdventureInternational
; ;
@ -235,7 +235,7 @@ _Inspect1a
; ;
+ lda $08FE + lda $08FE
cmp #$23 cmp #$23
bne + bne + ; passport-test-suite/Planetfall r26.woz [Z=1] matches
lda #$AD ; allow $AD..$FF for third data prologue nibble lda #$AD ; allow $AD..$FF for third data prologue nibble
sta $24FC sta $24FC
lda #$90 lda #$90
@ -259,7 +259,7 @@ _Inspect1a
!byte $A9,$B5 !byte $A9,$B5
!byte $8D,$FC,$B8 !byte $8D,$FC,$B8
!byte $60 !byte $60
bcs + bcs + ; passport-test-suite/Crown of Arthain.woz [C=0] matches
jsr $BC61 jsr $BC61
; ;
; Check for alternate RWTS entry point (e.g. Swordthrust) ; Check for alternate RWTS entry point (e.g. Swordthrust)
@ -282,7 +282,7 @@ _Inspect1a
PLA PLA
JSR $BD00 JSR $BD00
@end_swordthrust @end_swordthrust
bcs + bcs + ; passport-test-suite/Swordthrust 1.woz [C=0] matches
stx jCallRWTS+1; set new RWTS entry point to $B775 stx jCallRWTS+1; set new RWTS entry point to $B775
lda #$B7 lda #$B7
sta jCallRWTS+2 sta jCallRWTS+2

4
src/id/trace33p.a
View File

@ -62,8 +62,8 @@ TraceSpecDel3
ldy #$00 ldy #$00
lda $10D1 lda $10D1
cmp #$A2 cmp #$A2
beq + beq + ; passport-test-suite/Ernie's Quiz.woz [Z=1] matches
ldy #$04 ldy #$04 ; passport-test-suite/Kaves of Karkhan.woz [Z=0] matches
+ lda #$4C + lda #$4C
sta $10D1,Y sta $10D1,Y
sta $10EC,Y sta $10EC,Y

2
src/id/trace8b3.a
View File

@ -106,5 +106,5 @@ _restore3
; ;
lda #$01 lda #$01
sta gLastTrack sta gLastTrack
jmp ADStyle jmp ADStyle ; passport-test-suite/Ardy the Aardvark.woz [Z=0] reaches here
} }

4
src/id/volumename.a
View File

@ -39,7 +39,7 @@ IDVolumeName
and #$0F and #$0F
tax tax
lda #$05 lda #$05
sta .offset+1 sta .offset+1 ; passport-test-suite/Investigating Plant Growth.woz [Z=0] reaches here
bne .print ; always branches bne .print ; always branches
.pascal .pascal
@ -51,7 +51,7 @@ IDVolumeName
lda (cmp1), y lda (cmp1), y
beq .error beq .error
cmp #$08 cmp #$08
bcs .error bcs .error ; passport-test-suite/Notecard Maker.woz [C=0] reaches here
tax tax
lda #$07 lda #$07
sta .offset+1 sta .offset+1