mirror of https://github.com/a2-4am/passport.git
47 lines
1.3 KiB
Plaintext
Executable File
47 lines
1.3 KiB
Plaintext
Executable File
;-------------------------------
|
|
; #JMPBEB1
|
|
; RWTS calls $BEB1 after writing
|
|
; data prologue
|
|
; e.g. Terrapin Logo 1.2, Starting with Phonics
|
|
; NOTE: must be run before RWTS
|
|
; patchers due to overlapping bytes
|
|
;-------------------------------
|
|
_jmpbeb1
|
|
lda gIsRWTS ; if DOS 3.3 RWTS
|
|
bne jmpbeb1_exit
|
|
lda #$02
|
|
ldx #$48
|
|
ldy #$10
|
|
jsr compare ; and T00,S03,$48 ==
|
|
!byte $A0,03,$48,$68,$20,$B9,$B8,$88
|
|
!byte $D0,$F8,$4C,$B1,$BE,$EA,$EA,$A9
|
|
bcs jmpbeb1_exit
|
|
lda #$02
|
|
ldx #$59
|
|
ldy #$04
|
|
jsr compare ; and T00,S02,$59 ==
|
|
!byte $20,$B8,$B8,$A9
|
|
bcs jmpbeb1_exit
|
|
lda #$02
|
|
ldx #$5E
|
|
ldy #$03
|
|
jsr compare ; and T00,S04,$5E ==
|
|
!byte $20,$BB,$B8
|
|
bcs jmpbeb1_exit
|
|
lda #$02
|
|
ldx #$49
|
|
ldy #$01
|
|
jsr modify ; then set T00,S02,$49 =
|
|
!byte 04
|
|
lda #$02
|
|
ldx #$52
|
|
ldy #$05
|
|
jsr modify ; and set T00,S02,$52 =
|
|
!byte $A9,$D5,$20,$B8,$B8
|
|
lda #$02
|
|
ldx #$5F
|
|
ldy #$01
|
|
jsr modify ; and set T00,S02,$5F =
|
|
!byte $B8
|
|
jmpbeb1_exit
|