mirror of
https://github.com/a2-4am/passport.git
synced 2024-05-28 21:41:27 +00:00
57 lines
1.4 KiB
Plaintext
57 lines
1.4 KiB
Plaintext
;-------------------------------
|
|
; #PASCALRWTS
|
|
; patch RWTS on Pascal disks
|
|
; RWTS changes are rare on Pascal disks,
|
|
; so this currently only handles a very
|
|
; specific subset of RWTS changes.
|
|
;
|
|
; tested on
|
|
; Solar Reading Flight 1 series
|
|
; (Jupiter, Saturn, Uranus, Nepture)
|
|
;-------------------------------
|
|
!zone {
|
|
lda gIsPascal
|
|
bne .exit
|
|
lda #$0D
|
|
ldx #$41
|
|
ldy #$11
|
|
jsr compare ; if T00,S0D,$41 ==
|
|
!byte $BD,$8C,$C0
|
|
!byte $10,$FB
|
|
!byte $C9,WILDCARD
|
|
!byte $D0,$AE
|
|
!byte $EA
|
|
!byte $BD,$8C,$C0
|
|
!byte $10,$FB
|
|
!byte $C9,WILDCARD
|
|
bcs + ; passport-test-suite/Solar Reading- Flight 1 - Paraphrase - Jupiter.woz [C=0] matches
|
|
ldx #$51
|
|
jsr compare1 ; and T00,S0D,$51 !=
|
|
!byte $AA
|
|
bcc +
|
|
jsr modify1
|
|
!byte $AA
|
|
|
|
+ lda #$0F
|
|
ldx #$6B
|
|
ldy #$11
|
|
jsr compare ; if T00,S0F,$6B ==
|
|
!byte $BD,$8C,$C0
|
|
!byte $10,$FB
|
|
!byte $C9,WILDCARD
|
|
!byte $D0,$0C
|
|
!byte $EA
|
|
!byte $BD,$8C,$C0
|
|
!byte $10,$FB
|
|
!byte $C9,WILDCARD
|
|
bcs +
|
|
ldx #$7B
|
|
jsr compare1 ; and T00,S0F,$7B !=
|
|
!byte $AA
|
|
bcc +
|
|
jsr modify1
|
|
!byte $AA
|
|
+
|
|
.exit
|
|
}
|