mirror of
https://github.com/a2-4am/passport.git
synced 2024-06-01 15:41:33 +00:00
21 lines
605 B
Plaintext
21 lines
605 B
Plaintext
;-------------------------------
|
|
; #MILLIKEN
|
|
; Milliken protection routine on T00,S0A
|
|
; does a fake drive speed check then
|
|
; a nibble check
|
|
; e.g. Gulp and Frenzy, Tangram Puzzler,
|
|
; The Writing Workshop, Math Sequences
|
|
;-------------------------------
|
|
!zone {
|
|
lda gIsMilliken1
|
|
bne .exit
|
|
lda #$01
|
|
ldx #$48
|
|
jsr compare2 ; and T00,S01,$48 ==
|
|
!byte $03,$9B
|
|
bcs .exit ; passport-test-suite/Tangrams Puzzler.woz [C=0] matches
|
|
jsr modify2 ; then set T00,S01,$48 =
|
|
!byte $84,$9D
|
|
.exit
|
|
}
|