support The General Manager anti-tamper

This commit is contained in:
Peter Ferrie 2023-01-18 20:23:34 -08:00
parent b675e8f372
commit dc7b3d8cd3
2 changed files with 26 additions and 1 deletions

View File

@ -29,6 +29,7 @@
; - Mixed Up Mother Goose ; - Mixed Up Mother Goose
; - The Artist ; - The Artist
; - Ultima II ; - Ultima II
; - The General Manager
; ;
; module by qkumba ; module by qkumba
;------------------------------- ;-------------------------------
@ -45,6 +46,30 @@
jsr modify1 jsr modify1
!byte $2C !byte $2C
pha
txa
sec
sbc #10
tax
pla
ldy #8
jsr compare
!byte $AD,WILDCARD,$63 ;LDA $63xx
!byte $C9,$20 ;CMP #$20
!byte $F0,$03 ;BEQ *+5
!byte $4C ;JMP $xxxx
bcs +
pha
jsr PrintByID
!byte s_tamper
txa
clc
adc #4
tax
pla
jsr modify1
!byte $2C ;don't run protection check
;there are two of these on the same track ;there are two of these on the same track
+ ldy #3 + ldy #3

View File

@ -377,7 +377,7 @@ StringTableHigh ; must be kept in sync with constants in enid.a
.passport .passport
!text "Passport ",$00 !text "Passport ",$00
.header .header
!text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2022-11-29",$00 !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2023-01-18",$00
.bar9 .bar9
!text "_________",$00 !text "_________",$00
.bar18 .bar18