mirror of
https://github.com/a2-4am/passport.git
synced 2025-08-15 15:27:24 +00:00
code coverage comments
This commit is contained in:
@@ -9,6 +9,11 @@
|
|||||||
; all registers clobbered
|
; all registers clobbered
|
||||||
;
|
;
|
||||||
; module by qkumba
|
; module by qkumba
|
||||||
|
;
|
||||||
|
; tested on
|
||||||
|
; - Borrowed Time
|
||||||
|
; - Mindshadow
|
||||||
|
; - The Tracer Sanction
|
||||||
;-------------------------------
|
;-------------------------------
|
||||||
IDAdvent
|
IDAdvent
|
||||||
lda #BASEPAGE
|
lda #BASEPAGE
|
||||||
|
@@ -15,5 +15,6 @@ IDDinkeyDOS
|
|||||||
ldy #$0B
|
ldy #$0B
|
||||||
jsr compare ; if T00,S0B,$2B ==
|
jsr compare ; if T00,S0B,$2B ==
|
||||||
!byte $29,$44,$49,$4E,$4B,$45,$59,$44,$4F,$53,$00
|
!byte $29,$44,$49,$4E,$4B,$45,$59,$44,$4F,$53,$00
|
||||||
|
; passport-test-suite/Ultima V.woz [C=0] matches
|
||||||
rts
|
rts
|
||||||
}
|
}
|
||||||
|
@@ -17,5 +17,6 @@ IDDiversi
|
|||||||
ldy #$0B
|
ldy #$0B
|
||||||
jsr compare ; if T00,S00,$F1 ==
|
jsr compare ; if T00,S00,$F1 ==
|
||||||
!byte $B3,$A3,$A0,$D2,$CF,$D2,$D2,$C5,$8D,$87,$8D
|
!byte $B3,$A3,$A0,$D2,$CF,$D2,$D2,$C5,$8D,$87,$8D
|
||||||
|
; passport-test-suite/Moon Bingo.woz [C=0] matches
|
||||||
rts
|
rts
|
||||||
}
|
}
|
||||||
|
@@ -21,12 +21,15 @@ IDDOS33
|
|||||||
;
|
;
|
||||||
lda $08FE
|
lda $08FE
|
||||||
cmp #$B6
|
cmp #$B6
|
||||||
|
; passport-test-suite/Binomial Multiplication.woz [Z=1] here, loads at $B600
|
||||||
beq ++
|
beq ++
|
||||||
cmp #$37
|
cmp #$37
|
||||||
|
; passport-test-suite/Beach-Head.woz [C=0] here, loads at $3F00
|
||||||
bcc +
|
bcc +
|
||||||
- sec
|
- sec
|
||||||
rts
|
rts
|
||||||
+ cmp #$20
|
+ cmp #$20
|
||||||
|
; passport-test-suite/Alf.woz [C=0] here, loads at $1300
|
||||||
bcc -
|
bcc -
|
||||||
;
|
;
|
||||||
; Code at $0801 must be standard (with one exception)
|
; Code at $0801 must be standard (with one exception)
|
||||||
@@ -66,14 +69,12 @@ IDDOS33
|
|||||||
!byte $6C,$3E,$00
|
!byte $6C,$3E,$00
|
||||||
!byte $EE,$FE,$08
|
!byte $EE,$FE,$08
|
||||||
!byte $EE,$FE,$08
|
!byte $EE,$FE,$08
|
||||||
|
; passport-test-suite/Binomial Multiplication.woz [C=0] matches
|
||||||
bcc +
|
bcc +
|
||||||
jmp .exit
|
jmp .exit
|
||||||
+
|
+
|
||||||
;
|
;
|
||||||
; DOS 3.3 has JSR $FE89 / JSR $FE93 / JSR $FB2F
|
; DOS 3.3 has JSR $FE89 / JSR $FE93 / JSR $FB2F
|
||||||
; some Sierra have STA $C050 / STA $C057 / STA $C055 instead
|
|
||||||
; with the unpleasant side-effect of showing text-mode garbage
|
|
||||||
; if mixed-mode was enabled at the time
|
|
||||||
;
|
;
|
||||||
lda #$00
|
lda #$00
|
||||||
ldx #$3F
|
ldx #$3F
|
||||||
@@ -83,7 +84,11 @@ IDDOS33
|
|||||||
!byte $20,$93,$FE
|
!byte $20,$93,$FE
|
||||||
!byte $20,$2F,$FB
|
!byte $20,$2F,$FB
|
||||||
!byte $A6,$2B
|
!byte $A6,$2B
|
||||||
|
; passport-test-suite/Binomial Multiplication.woz [C=0] matches
|
||||||
bcc +
|
bcc +
|
||||||
|
;
|
||||||
|
; some Sierra have STA $C050 / STA $C057 / STA $C055 instead
|
||||||
|
;
|
||||||
lda #$00
|
lda #$00
|
||||||
ldx #$3F
|
ldx #$3F
|
||||||
ldy #$0B
|
ldy #$0B
|
||||||
@@ -92,6 +97,8 @@ IDDOS33
|
|||||||
!byte $8D,$57,$C0
|
!byte $8D,$57,$C0
|
||||||
!byte $8D,$55,$C0
|
!byte $8D,$55,$C0
|
||||||
!byte $A6,$2B
|
!byte $A6,$2B
|
||||||
|
bcs .exit
|
||||||
|
; passport-test-suite/Leisure Suit Larry.woz [C=0] matches
|
||||||
+
|
+
|
||||||
|
|
||||||
;
|
;
|
||||||
@@ -103,7 +110,9 @@ IDDOS33
|
|||||||
jsr compare ; if T00,S00,$4D ==
|
jsr compare ; if T00,S00,$4D ==
|
||||||
!byte $00,$0D,$0B,$09,$07,$05,$03,$01
|
!byte $00,$0D,$0B,$09,$07,$05,$03,$01
|
||||||
!byte WILDCARD,$0C,$0A,$08,$06,$04,$02,$0F
|
!byte WILDCARD,$0C,$0A,$08,$06,$04,$02,$0F
|
||||||
|
; passport-test-suite/Pitfall II.woz [C=1] because of non-standard sector map
|
||||||
bcs .exit
|
bcs .exit
|
||||||
|
|
||||||
;
|
;
|
||||||
; Check for MUSE sector order map
|
; Check for MUSE sector order map
|
||||||
;
|
;
|
||||||
@@ -113,6 +122,7 @@ IDDOS33
|
|||||||
jsr compare ; if T00,S00,$55 ==
|
jsr compare ; if T00,S00,$55 ==
|
||||||
!byte $02
|
!byte $02
|
||||||
bcs +
|
bcs +
|
||||||
|
; passport-test-suite/The Function Game.woz [C=0] matches
|
||||||
lda #TRUE
|
lda #TRUE
|
||||||
sta gIsMUSERWTS
|
sta gIsMUSERWTS
|
||||||
lda #$0E
|
lda #$0E
|
||||||
@@ -122,15 +132,15 @@ IDDOS33
|
|||||||
sta T00S0F
|
sta T00S0F
|
||||||
+
|
+
|
||||||
;
|
;
|
||||||
; Minor variant (e.g. Terrapin Logo 3.0) jumps to $08F0 and back
|
; Minor variant jumps to $08F0 and back but is still safe to trace.
|
||||||
; but is still safe to trace. Check for this jump and match
|
; Check for this jump and match the code at $08F0 exactly.
|
||||||
; the code at $08F0 exactly.
|
|
||||||
;
|
;
|
||||||
lda #$00
|
lda #$00
|
||||||
ldx #$1C
|
ldx #$1C
|
||||||
ldy #$03
|
ldy #$03
|
||||||
jsr compare ; if T00,S00,$1C ==
|
jsr compare ; if T00,S00,$1C ==
|
||||||
!byte $8D,$FE,$08
|
!byte $8D,$FE,$08
|
||||||
|
; passport-test-suite/Binomial Multiplication.woz [C=0] matches
|
||||||
bcc .exit ; standard code at $081C -> success
|
bcc .exit ; standard code at $081C -> success
|
||||||
|
|
||||||
lda #$00
|
lda #$00
|
||||||
@@ -147,6 +157,7 @@ IDDOS33
|
|||||||
!byte $8D,$FE,$08
|
!byte $8D,$FE,$08
|
||||||
!byte $EE,$F3,$03
|
!byte $EE,$F3,$03
|
||||||
!byte $4C,$1F,$08
|
!byte $4C,$1F,$08
|
||||||
|
; passport-test-suite/Library Magic.woz [C=0] matches acceptable code at $08F0
|
||||||
; bcs .exit ; unknown code at $08F0 -> failure
|
; bcs .exit ; unknown code at $08F0 -> failure
|
||||||
|
|
||||||
.exit
|
.exit
|
||||||
|
Reference in New Issue
Block a user