mirror of https://github.com/a2-4am/passport.git
39 lines
1.1 KiB
Plaintext
Executable File
39 lines
1.1 KiB
Plaintext
Executable File
;-------------------------------
|
|
; #RWTSSWAP2
|
|
; after DOS loads, program calls
|
|
; subroutines at $BA69 and $BA7D
|
|
; to swap RWTS parameters on the
|
|
; fly
|
|
; e.g. Mask Parade
|
|
;-------------------------------
|
|
_rwtsswap2
|
|
lda gIsBoot0 ; if DOS 3.3 boot0 loader
|
|
bne rwtsswap2_exit
|
|
lda #$04
|
|
ldx #$69
|
|
ldy #$13
|
|
jsr compare ; and T00,S04,$69 ==
|
|
!byte $A9,$AB,$8D,$4B,$B8,$A9,$FF,$20
|
|
!byte $DF,$BC,$20,$EC,$BC,$A9,$AA,$8D
|
|
!byte $29,$BA,$60
|
|
bcs rwtsswap2_exit
|
|
lda #$04
|
|
ldx #$7D
|
|
ldy #$15
|
|
jsr compare ; and T00,S04,$7D ==
|
|
!byte $A9,$FF,$8D,$4B,$B8,$A9,$DE,$20
|
|
!byte $DF,$BC,$A9,$AA,$20,$EC,$BC,$A9
|
|
!byte $96,$8D,$29,$BA,$60
|
|
bcs rwtsswap2_exit
|
|
lda #$04
|
|
ldx #$69
|
|
ldy #$01
|
|
jsr modify ; then set T00,S04,$69 =
|
|
!byte $60
|
|
lda #$04
|
|
ldx #$7D
|
|
ldy #$01
|
|
jsr modify ; and set T00,S04,$7D =
|
|
!byte $60
|
|
rwtsswap2_exit
|