mirror of
https://github.com/a2-4am/passport.git
synced 2024-05-28 21:41:27 +00:00
27 lines
806 B
Plaintext
27 lines
806 B
Plaintext
|
;-------------------------------
|
||
|
; #JMPB660
|
||
|
; RWTS jumps to $B660 instead of
|
||
|
; checking third data prologue
|
||
|
; e.g. Analogies Tutorial, Verb Viper
|
||
|
;-------------------------------
|
||
|
_jmpb660
|
||
|
lda gIsRWTS ; if DOS 3.3-shaped RWTS
|
||
|
bne jmpb660_exit
|
||
|
lda #$02
|
||
|
ldx #$DC
|
||
|
ldy #$1D
|
||
|
jsr compare ; and T00,S02,$DC ==
|
||
|
!byte $A0,$20,$88,$F0,$61,$BD,$8C,$C0
|
||
|
!byte $10,$FB,$49,$97,$D0,$F4,$EA,$BD
|
||
|
!byte $8C,$C0,$10,$FB,$C9,$97,$D0,$F2
|
||
|
!byte $A0,$56,$4C,$60,$B6
|
||
|
bcs jmpb660_exit
|
||
|
lda #s_jmpb660
|
||
|
jsr PrintByID
|
||
|
lda #$02
|
||
|
ldx #$F6
|
||
|
ldy #$03
|
||
|
jsr modify ; then set T00,S02,$F6 =
|
||
|
!byte $BD,$8C,$C0
|
||
|
jmpb660_exit
|