mirror of
https://github.com/a2-4am/passport.git
synced 2024-05-28 21:41:27 +00:00
28 lines
838 B
Plaintext
28 lines
838 B
Plaintext
|
;-------------------------------
|
||
|
; #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
|