Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-12-22 19:30:50 +00:00
Code Issues Projects Releases Wiki Activity

Merge remote-tracking branch 'origin/master'

Browse Source
This commit is contained in:
Peter Ferrie 2021-04-13 18:10:02 -07:00
commit 664be8577c
2 changed files with 24 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
src/id/dos33.a
View File

@ -72,7 +72,8 @@ IDDOS33
; ;
; DOS 3.3 has JSR $FE89 / JSR $FE93 / JSR $FB2F ; DOS 3.3 has JSR $FE89 / JSR $FE93 / JSR $FB2F
; ;
lda #$00 ;A=0 here
;lda #$00
ldx #$3F ldx #$3F
ldy #$0B ldy #$0B
jsr compare ; if T00,S00,$3F == jsr compare ; if T00,S00,$3F ==
@ -84,7 +85,8 @@ IDDOS33
; ;
; some Sierra have STA $C050 / STA $C057 / STA $C055 instead ; some Sierra have STA $C050 / STA $C057 / STA $C055 instead
; ;
lda #$00 ;A=0 here
;lda #$00
ldx #$3F ldx #$3F
ldy #$0B ldy #$0B
jsr compare ; if T00,S00,$3F == jsr compare ; if T00,S00,$3F ==
@ -98,8 +100,9 @@ IDDOS33
; ;
; Check sector order map ; Check sector order map
; ;
lda #$00 ; passport-test-suite/Leisure Suit Larry.woz [C=0] matches previous compare ;A=0 here
ldx #$4D ;lda #$00
ldx #$4D ; passport-test-suite/Leisure Suit Larry.woz [C=0] matches previous compare
ldy #$10 ldy #$10
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
@ -109,25 +112,27 @@ IDDOS33
; ;
; Check for MUSE sector order map ; Check for MUSE sector order map
; ;
lda #$00 ;A=0 here
;lda #$00
ldx #$55 ldx #$55
ldy #$01 ldy #$01
jsr compare ; if T00,S00,$55 == jsr compare ; if T00,S00,$55 ==
!byte $02 !byte $02
bcs + bcs +
lda #TRUE ; passport-test-suite/The Function Game.woz [C=0] matches previous compare ldy #TRUE ; passport-test-suite/The Function Game.woz [C=0] matches previous compare
sta gIsMUSERWTS sty gIsMUSERWTS
lda #$0E ldy #$0E
sta precheck_sectors+1 sty precheck_sectors+1
lda #kSectorIgnore ldy #kSectorIgnore
sta T00S08 sty T00S08
sta T00S0F sty T00S0F
+ +
; ;
; Minor variant jumps to $08F0 and back but is still safe to trace. ; Minor variant jumps to $08F0 and back but is still safe to trace.
; Check for this jump and match the code at $08F0 exactly. ; Check for this jump and match the code at $08F0 exactly.
; ;
lda #$00 ;A=0 here
;lda #$00
ldx #$1C ldx #$1C
ldy #$03 ldy #$03
jsr compare ; if T00,S00,$1C == jsr compare ; if T00,S00,$1C ==
@ -135,14 +140,16 @@ IDDOS33
; standard code at $081C -> success ; standard code at $081C -> success
bcc .exit ; passport-test-suite/Binomial Multiplication.woz [C=0] matches bcc .exit ; passport-test-suite/Binomial Multiplication.woz [C=0] matches
lda #$00 ;A=0 here
;lda #$00
ldx #$1C ldx #$1C
ldy #$03 ldy #$03
jsr compare ; if T00,S00,$1C == jsr compare ; if T00,S00,$1C ==
!byte $4C,$F0,$08; JMP $08F0 !byte $4C,$F0,$08; JMP $08F0
bcs .exit ; unknown code at $081C -> failure bcs .exit ; unknown code at $081C -> failure
lda #$00 ;A=0 here
;lda #$00
ldx #$F0 ldx #$F0
ldy #$09 ldy #$09
jsr compare ; if T00,S00,$F0 == jsr compare ; if T00,S00,$F0 ==

4
src/strings/en.a
View File

@ -332,7 +332,7 @@ StringTableHigh
.passport .passport
!text "Passport ",$00 !text "Passport ",$00
.header .header
!text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-04-12",$00 !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-04-13",$00
.bar9 .bar9
!text "_________",$00 !text "_________",$00
.bar18 .bar18
@ -537,7 +537,7 @@ StringTableHigh
!text "@",s_rwts,"requires a non-standard",$8D !text "@",s_rwts,"requires a non-standard",$8D
!text "disk volume number",$8D,$00 !text "disk volume number",$8D,$00
.d5d5f7 .d5d5f7
!text "%",s_found,"D5D5F7 @",s_protectioncheck,$8D,$00 !text "@",s_found,"D5D5F7 @",s_protectioncheck,$8D,$00
.construct .construct
!text "T01,S0F Reconstructing missing data",$8D,$00 !text "T01,S0F Reconstructing missing data",$8D,$00
.datasoftb0 .datasoftb0