2017-01-08 03:35:35 +00:00
|
|
|
;-------------------------------
|
|
|
|
; #JMPB720
|
|
|
|
; RWTS swapper forcibly reinstalls
|
|
|
|
; a jump to $B720 instead of writing
|
|
|
|
; third data prologue
|
|
|
|
; e.g. Analogies Tutorial, Verb Viper
|
|
|
|
;-------------------------------
|
2017-01-24 00:57:43 +00:00
|
|
|
!zone {
|
2017-01-08 03:35:35 +00:00
|
|
|
_jmpb720
|
|
|
|
lda gIsRWTS ; if DOS 3.3-shaped RWTS
|
2017-01-24 00:57:43 +00:00
|
|
|
bne .exit
|
2017-01-08 03:35:35 +00:00
|
|
|
lda #$0B
|
|
|
|
ldx #$08
|
|
|
|
ldy #$18
|
|
|
|
jsr compare ; and T00,S0B,$08 ==
|
2017-05-04 15:25:32 +00:00
|
|
|
!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
|
2019-06-17 15:45:57 +00:00
|
|
|
bcs .exit ; passport-test-suite/Analogies Tutorial.woz [C=0] matches
|
2017-01-08 03:35:35 +00:00
|
|
|
lda #$0B
|
|
|
|
ldx #$08
|
|
|
|
ldy #$06
|
|
|
|
jsr modify ; then set T00,S0B,$08 =
|
2017-05-04 15:25:32 +00:00
|
|
|
!byte $BD,$8C,$C0
|
|
|
|
!byte $20,$B8,$B8
|
2017-01-24 00:57:43 +00:00
|
|
|
.exit
|
|
|
|
}
|