Merge pull request #55 from peterferrie/master

support Adventure Construction Set
This commit is contained in:
4am 2018-07-03 13:23:40 -04:00 committed by GitHub
commit a436bf7aba
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 86 additions and 11 deletions

View File

@ -371,13 +371,13 @@
+ ldy #14 + ldy #14
jsr SearchTrack jsr SearchTrack
!byte $AD,$00,$05 !byte $AD,$00,$05 ;LDA $0500
!byte $A2,$FF !byte $A2,$FF ;LDX #$FF
!byte $5D,$00,$05 !byte $5D,$00,$05 ;EOR $0500,X
!byte $CA !byte $CA ;DEX
!byte $D0,$FA !byte $D0,$FA ;BNE *-4
!byte $C9,$A0 !byte $C9,$A0 ;CMP #$A0
!byte $F0 !byte $F0 ;BEQ *+xx
bcs + bcs +
pha pha
lda #s_tamper lda #s_tamper
@ -390,7 +390,7 @@
jsr modify jsr modify
!byte $A1 ;new checksum value for eor !byte $A1 ;new checksum value for eor
+ ldy #25 + ldy #24
jsr SearchTrack jsr SearchTrack
!byte $04,$4F,$D9 ;LDA $004c !byte $04,$4F,$D9 ;LDA $004c
!byte $0A,$03,$7B ;LDX ($a200,A) !byte $0A,$03,$7B ;LDX ($a200,A)
@ -400,8 +400,8 @@
!byte $07,$AC ;CMP #$e0 !byte $07,$AC ;CMP #$e0
!byte $0F,$E5,$71 ;BNE $a8e6 !byte $0F,$E5,$71 ;BNE $a8e6
!byte $04,$F1,$70 ;LDA $a9f2 !byte $04,$F1,$70 ;LDA $a9f2
!byte $07,$AB ;CMP #$e7 !byte $07 ;CMP #$xx
bcs .exit bcs +
pha pha
lda #s_tamper lda #s_tamper
jsr PrintByID jsr PrintByID
@ -410,8 +410,83 @@
tax tax
pla pla
ldy #1 ldy #1
jsr compare
!byte $AB
bcs ++
ldy #1
jsr modify jsr modify
!byte $BB ;new checksum value for eor !byte $BB ;new checksum value for eor
jmp +
++ ldy #1
jsr compare
!byte $DB
bcs ++
ldy #1
jsr modify
!byte $D4 ;new checksum value for eor
++
+ ldy #23
jsr SearchTrack
!byte $03,$4C ;LDI #$00
!byte $06,$E1,$7b ;STA $a2e2
!byte $05,$CC,$79 ;JSRA $a0cf
!byte $05,$CC,$79 ;JSRA $a0cf
!byte $05,$CC,$79 ;JSRA $a0cf
!byte $05,$CC,$79 ;JSRA $a0cf
!byte $04,$EB,$19 ;LDA $c0e8
!byte $04,$E1,$7b ;LDA $a2e2
bcs +
pha
txa
adc #21
tax
pla
ldy #1
jsr modify
!byte $E0 ;lda from known-zero instead
+ ldy #23
jsr SearchTrack
!byte $03,$9C ;LDI #$00
!byte $06,$31,$66 ;STA $bfe2
!byte $D5,$CC,$B4 ;JSRA $bdcf
!byte $05,$1C,$64 ;JSRA $bdcf
!byte $D5,$CC,$B4 ;JSRA $bdcf
!byte $05,$1C,$64 ;JSRA $bdcf
!byte $D4,$EB,$C9 ;LDA $c0e8
!byte $04,$31,$66 ;LDA $bfe2
bcs +
pha
txa
adc #21
tax
pla
ldy #1
jsr modify
!byte $30 ;lda from known-zero instead
+ ldy #14
jsr SearchTrack
!byte $58,$0D
!byte $F1,$5D
!byte $5A,$0D
!byte $74,$00
!byte $5C,$0D
!byte $5E,$00
!byte $5E,$0D
bcs .exit
pha
lda #s_tamper
jsr PrintByID
pla
inx
inx
ldy #1
jsr modify
!byte $F0 ;new checksum value for eor
+
.dostitles .dostitles
lda gIsBoot0 lda gIsBoot0

View File

@ -144,7 +144,7 @@ StringTable
; can be set directly before calling PrintByID. ; can be set directly before calling PrintByID.
; ;
.header .header
!text "Passport by 4am 2018-06-16",$00 !text "Passport by 4am 2018-06-21",$00
.mainmenu .mainmenu
!text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
!text " " !text " "