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
; - The Artist
; - Ultima II
; - The General Manager
;
; module by qkumba
;-------------------------------
@ -45,6 +46,30 @@
jsr modify1
!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
+ ldy #3

View File

@ -377,7 +377,7 @@ StringTableHigh ; must be kept in sync with constants in enid.a
.passport
!text "Passport ",$00
.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
!text "_________",$00
.bar18