mirror of https://github.com/a2-4am/passport.git
28 lines
838 B
Plaintext
Executable File
28 lines
838 B
Plaintext
Executable File
;-------------------------------
|
|
; #JMPBECA
|
|
; RWTS calls $BECA after reading
|
|
; data prologue to burn cycles
|
|
; e.g. Terrapin Logo 1.2, Starting with Phonics
|
|
; NOTE: must be run before RWTS
|
|
; patchers due to overlapping bytes
|
|
;-------------------------------
|
|
_jmpbeca
|
|
lda gIsRWTS ; if DOS 3.3 RWTS
|
|
bne jmpbeca_exit
|
|
lda #$02
|
|
ldx #$F4
|
|
ldy #$0D
|
|
jsr compare ; and T00,S02,$F4 ==
|
|
!byte $EA,$BD,$8C,$C0,$10,$FB,$C9,$AD
|
|
!byte $D0,$E8,$4C,$CA,$BE
|
|
bcs jmpbeca_exit
|
|
lda #s_jmpbeca
|
|
jsr PrintByID
|
|
lda #$02
|
|
ldx #$F4
|
|
ldy #$0D
|
|
jsr modify ; and set T00,S02,$F4 =
|
|
!byte $A0,$56,$BD,$8C,$C0,$10,$FB,$C9
|
|
!byte $AD,$D0,$E7,$A9,$00
|
|
jmpbeca_exit
|