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

log D4/D5 prologue on Pascal disks [fixes GATO v1.3]

Browse Source
This commit is contained in:
4am 2021-04-07 21:44:09 -04:00
parent 7dea9214a0
commit d63ced0fab
2 changed files with 21 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
src/patchers/rwtslog.a
View File

@ -14,29 +14,32 @@
bit gMode ; nothing to do here in verify mode
bmi +
jmp .exit
-
ldy #$0A
jsr compare
!byte $BD,$8C,$C0
!byte $10,$FB
!byte $4A
!byte WILDCARD,$6A
!byte $D0,$EF
rts
+
; DOS 3.3 variant
lda #$03
sta gDisplayBytes
ldx #$4F
ldy #$0A
jsr compare ; if T00,S03,$4F ==
!byte $BD,$8C,$C0
!byte $10,$FB
!byte $4A
!byte WILDCARD,$6A
!byte $D0,$EF
ldx #$4F ; T00,S03,$4F
jsr -
bcc .yeslsr ; passport-test-suite/The Seasons.woz [C=0] matches
; RDOS variant
ldx #$4D
ldy #$0A
jsr compare ; or T00,S03,$4D ==
!byte $BD,$8C,$C0
!byte $10,$FB
!byte $4A
!byte WILDCARD,$6A
!byte $D0,$EF
bcs .endlsr ; passport-test-suite/Roadwar 2000.woz [C=0] matches
ldx #$4D ; T00,S03,$4D
jsr -
bcc .yeslsr ; passport-test-suite/Roadwar 2000.woz [C=0] matches
; Pascal variant
lda #$0D
sta gDisplayBytes
ldx #$05 ; T00,S0D,$05
jsr -
bcs .endlsr ; passport-test-suite/GATO v1.3.woz [C=0] matches
.yeslsr
lda #s_lsr6a
jsr PrintByID

2
src/strings/en.a
View File

@ -288,7 +288,7 @@ StringTableHigh
; can be set directly before calling PrintByID.
;
.header
!text "Passport by 4am 2021-04-06",$00
!text "Passport by 4am 2021-04-07",$00
.mainmenu
!text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D,$8D
!text " "