mirror of
https://github.com/a2-4am/passport.git
synced 2024-07-04 19:29:43 +00:00
35 lines
943 B
Plaintext
Executable File
35 lines
943 B
Plaintext
Executable File
;-------------------------------
|
|
; #JMPB720
|
|
; RWTS swapper forcibly reinstalls
|
|
; a jump to $B720 instead of writing
|
|
; third data prologue
|
|
; e.g. Analogies Tutorial, Verb Viper
|
|
;-------------------------------
|
|
!zone {
|
|
_jmpb720
|
|
lda gIsRWTS ; if DOS 3.3-shaped RWTS
|
|
bne .exit
|
|
lda #$0B
|
|
ldx #$08
|
|
ldy #$18
|
|
jsr compare ; and T00,S0B,$08 ==
|
|
!byte $4C,$20,$B7
|
|
!byte $4C,$0E,$A9
|
|
!byte $A2,$02
|
|
!byte $BD,$0B,$B7
|
|
!byte $9D,$5E,$B8
|
|
!byte $BD,$08,$B7
|
|
!byte $9D,$F6,$B8
|
|
!byte $CA
|
|
!byte $10,$F1
|
|
!byte $60
|
|
bcs .exit ; passport-test-suite/Analogies Tutorial.woz [C=0] matches
|
|
lda #$0B
|
|
ldx #$08
|
|
ldy #$06
|
|
jsr modify ; then set T00,S0B,$08 =
|
|
!byte $BD,$8C,$C0
|
|
!byte $20,$B8,$B8
|
|
.exit
|
|
}
|