If you are still using the old URL (datacrystal.romhacking.net), please update your bookmarks! The old URL may stop working soon.
The current URL is datacrystal.tcrf.net.
The current URL is datacrystal.tcrf.net.
Dragon Warrior II (NES)/ROM map/ASM bank 06: Difference between revisions
Jump to navigation
Jump to search
(→top) |
m (Hawk moved page Dragon Warrior II (NES)//ROM map/ASM bank 06 to Dragon Warrior II (NES)/ROM map/ASM bank 06) |
| (One intermediate revision by the same user not shown) | |
(No difference)
| |
Latest revision as of 13:04, 31 January 2024
This is a sub-page of Dragon Warrior II (NES)/ROM map.
- bank 0x06 of 16 starts at file address 0x018010
; code bytes: $2F06 (73.47% of bytes in this ROM bank) ; data bytes: $10B1 (26.08% of bytes in this ROM bank) ; pcm bytes: $0000 (0.00% of bytes in this ROM bank) ; chr bytes: $0000 (0.00% of bytes in this ROM bank) ; free bytes: $0021 (0.20% of bytes in this ROM bank) ; unknown bytes: $0028 (0.24% of bytes in this ROM bank) ; $3FB7 bytes last seen in RAM bank $8000 - $BFFF (100.00% of bytes seen in this ROM bank, 99.55% of bytes in this ROM bank): ; $2F06 code bytes (73.80% of bytes seen in this RAM bank, 73.47% of bytes in this ROM bank) ; $10B1 data bytes (26.20% of bytes seen in this RAM bank, 26.08% of bytes in this ROM bank) ; PRG Bank 0x06: handlers for main COMMAND menu options (TALK, SPELL, STATUS, ITEM, SEARCH, and EQUIP) including pretty much anything that is required input to or happens as a result of those commands; also includes code and data for gluing together irregularly shaped dungeon maps, starting and saving a game, text for items/spells/monster names, and the ending sequence ; [bank start] -> data ; possible external indexed data load target (from $0F:$F3ED, $0F:$FF28) ; external indirect data load target (via $08:$80CC, $0A:$80F5, $0A:$813E, $0F:$F052, $0F:$F83D) 0x018010|$06:$8000:12 ; possible external indexed data load target (from $0F:$F3F2, $0F:$FF2D) 0x018011|$06:$8001: A6 ; $06:$A612 ; indirect data load target (via $B0A8) ; external indirect data load target (via $02:$B74E, $0F:$FD25, $0F:$FD98) 0x018012|$06:$8002:09 A8 ; $06:$A809 ; -> $06:$A843: display and handle main game menu ; external indirect data load target (via $0F:$C6C7) 0x018014|$06:$8004:43 A8 ; $06:$A843; display and handle main game menu ; -> $06:$ABC7: copy save data from save data buffer at $7000 to system RAM; update Don Mahone quest status if applicable ; external indirect data load target (via $0F:$C6F9) 0x018016|$06:$8006:C7 AB ; $06:$ABC7; copy save data from save data buffer at $7000 to system RAM; update Don Mahone quest status if applicable ; external indirect data load target (via $0F:$D15F, $0F:$D171) 0x018018|$06:$8008:5F A8 ; $06:$A85F ; -> $06:$A896: copy Midenhall's full name from save slot in $75DB to $0100 in reverse ; external indirect data load target (via $0F:$EF5B) 0x01801A|$06:$800A:96 A8 ; $06:$A896; copy Midenhall's full name from save slot in $75DB to $0100 in reverse ; -> $06:$A8AA: given current game save slot in $75DB, return Midenhall's level in that save game in A/$0E ; external indirect data load target (via $0F:$EE09) 0x01801C|$06:$800C:AA A8 ; $06:$A8AA; given current game save slot in $75DB, return Midenhall's level in that save game in A/$0E 0x01801E|$06:$800E:B7 A8 ; $06:$A8B7 ; -> $06:$ADFC: given a selected list index in A, an item type in X, and a hero ID in $4A, set A to the A'th item of type X in hero $4A's inventory ; external indirect data load target (via $0F:$F4E6, $0F:$F5E4, $0F:$F614) 0x018020|$06:$8010:FC AD ; $06:$ADFC; given a selected list index in A, an item type in X, and a hero ID in $4A, set A to the A'th item of type X in hero $4A's inventory ; -> $06:$AE30: given hero ID - 1 in $4A and field spell menu selection index in A, return spell ID in A ; external indirect data load target (via $0F:$F5FA) 0x018022|$06:$8012:30 AE ; $06:$AE30; given hero ID - 1 in $4A and field spell menu selection index in A, return spell ID in A ; -> $06:$AE3D: given hero ID - 1 in $4A and battle spell menu selection index in A, return spell ID in A ; external indirect data load target (via $0F:$F4AC) 0x018024|$06:$8014:3D AE ; $06:$AE3D; given hero ID - 1 in $4A and battle spell menu selection index in A, return spell ID in A 0x018026|$06:$8016:86 AE ; $06:$AE86 ; external indirect data load target (via $0F:$F0BF) 0x018028|$06:$8018:7F AF ; $06:$AF7F 0x01802A|$06:$801A:8E AF ; $06:$AF8E ; -> $06:$A88F: copy Midenhall's short name from save slot in A to $0100 in reverse ; external indirect data load target (via $0F:$EE7E) 0x01802C|$06:$801C:8F A8 ; $06:$A88F; copy Midenhall's short name from save slot in A to $0100 in reverse ; -> $06:$A885: copy save data from system RAM to per-game save data ; external indirect data load target (via $0F:$C6DA) 0x01802E|$06:$801E:85 A8 ; $06:$A885; copy save data from system RAM to per-game save data ; -> $06:$AE4A: given spell ID in A, set A to spell name index ; external indirect data load target (via $02:$BEA4) 0x018030|$06:$8020:4A AE ; $06:$AE4A; given spell ID in A, set A to spell name index ; -> $06:$B2CA: Item list part 1, line 1 ; external indirect data load target (via $0F:$F316) 0x018032|$06:$8022:CA B2 ; $06:$B2CA; Item list part 1, line 1 ; -> $06:$B4B2: Item list part 1, line 2 ; external indirect data load target (via $0F:$F317) 0x018034|$06:$8024:B2 B4 ; $06:$B4B2; Item list part 1, line 2 ; -> $06:$B624: Spell name list ; data load target (from $F3AB) 0x018036|$06:$8026:24 B6 ; $06:$B624; Spell name list ; -> $06:$B718: Monster list part 1, line 1 ; external indirect data load target (via $0F:$F3DE) 0x018038|$06:$8028:18 B7 ; $06:$B718; Monster list part 1, line 1 ; -> $06:$B945: Monster list part 1, line 2 ; external indirect data load target (via $0F:$F3DF) 0x01803A|$06:$802A:45 B9 ; $06:$B945; Monster list part 1, line 2 0x01803C|$06:$802C:43 BA ; $06:$BA43; tiles for redrawing the part of the main COMMAND menu obscured by the EQUIP sub-menu when the EQUIP sub-menu is closed; (only?) read during battle where there is no main COMMAND menu 0x01803E|$06:$802E:83 BA ; $06:$BA83 ; -> $06:$B3BE: Item list part 2, line 1 ; external indirect data load target (via $0F:$F318) 0x018040|$06:$8030:BE B3 ; $06:$B3BE; Item list part 2, line 1 ; -> $06:$B57C: Item list part 2, line 2 ; external indirect data load target (via $0F:$F319) 0x018042|$06:$8032:7C B5 ; $06:$B57C; Item list part 2, line 2 ; -> $06:$B85E: Monster list part 2, line 1 ; external indirect data load target (via $0F:$F3E0) 0x018044|$06:$8034:5E B8 ; $06:$B85E; Monster list part 2, line 1 ; -> $06:$B9D5: Monster list part 2, line 2 ; external indirect data load target (via $0F:$F3E1) 0x018046|$06:$8036:D5 B9 ; $06:$B9D5; Monster list part 2, line 2 ; external indirect data load target (via $0F:$C897) 0x018048|$06:$8038:3D BB ; $06:$BB3D ; external indirect data load target (via $0F:$C889) 0x01804A|$06:$803A:A3 BA ; $06:$BAA3 0x01804C|$06:$803C:1A A6 ; $06:$A61A ; external indirect data load target (via $0F:$D359) 0x01804E|$06:$803E:3D BC ; $06:$BC3D ; external indirect data load target (via $0F:$CC9E) 0x018050|$06:$8040:8D BC ; $06:$BC8D 0x018052|$06:$8042:E1 A3 ; $06:$A3E1; pointers to warp spaces for irregularly-shaped maps ; external indirect data load target (via $0F:$D2FA) 0x018054|$06:$8044:96 BD ; $06:$BD96 ; -> $06:$BEED: X = 1 => CLC and update $0C-$0D to warp point data to use if Outside allowed from current map, SEC otherwise, X = 2 => CLC and update $0C-$0D to warp point data to use if Return allowed from current map, SEC otherwise, X = 3 => disembark from ship and update ship position based on last save point ID $48 ; external indirect data load target (via $0F:$D2EA) 0x018056|$06:$8046:ED BE ; $06:$BEED; X = 1 => CLC and update $0C-$0D to warp point data to use if Outside allowed from current map, SEC otherwise, X = 2 => CLC and update $0C-$0D to warp point data to use if Return allowed from current map, SEC otherwise, X = 3 => disembark from ship and update ship position based on last save point ID $48 ; data -> code ; control flow target (from $8056) ; external control flow target (from $0F:$C70F) ; call to code in a different bank ($0F:$C1DC) 0x018058|$06:$8048:20 DC C1 JSR $C1DC ; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF 0x01805B|$06:$804B:A5 03 LDA $03 ; game clock? 0x01805D|$06:$804D:29 0F AND #$0F 0x01805F|$06:$804F:C9 01 CMP #$01 0x018061|$06:$8051:F0 06 BEQ $8059 ; call to code in a different bank ($0F:$CF64) 0x018063|$06:$8053:20 64 CF JSR $CF64 0x018066|$06:$8056:4C 48 80 JMP $8048 ; control flow target (from $8051) 0x018069|$06:$8059:A9 FF LDA #$FF 0x01806B|$06:$805B:85 35 STA $35 ; flag indicating whether any menu is currently open 0x01806D|$06:$805D:A9 06 LDA #$06 0x01806F|$06:$805F:85 94 STA $94 ; return bank for various function calls, doubles as index of selected option for multiple-choice menus ; call to code in a different bank ($0F:$EB76) 0x018071|$06:$8061:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x018074|$06:$8064:00 ; Menu ID #$00: Mini status window, bottom ; data -> code ; call to code in a different bank ($0F:$EB76) 0x018075|$06:$8065:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x018078|$06:$8068:06 ; Menu ID #$06: Map menu: main COMMAND menu ; data -> code 0x018079|$06:$8069:C9 FF CMP #$FF 0x01807B|$06:$806B:D0 0A BNE $8077 ; given a main COMMAND menu selection index in A, execute the handler for that menu function ; exit COMMAND menu ; control flow target (from $809A, $89D1, $8A09, $8B0C, $8B3D, $8B9F, $9545, $9558) 0x01807D|$06:$806D:A9 01 LDA #$01 ; call to code in a different bank ($0F:$CF6A) 0x01807F|$06:$806F:20 6A CF JSR $CF6A ; wipe selected menu region 0x018082|$06:$8072:A9 00 LDA #$00 0x018084|$06:$8074:85 35 STA $35 ; flag indicating whether any menu is currently open 0x018086|$06:$8076:60 RTS ; given a main COMMAND menu selection index in A, execute the handler for that menu function ; control flow target (from $806B) 0x018087|$06:$8077:0A ASL 0x018088|$06:$8078:A8 TAY 0x018089|$06:$8079:B9 86 80 LDA $8086,Y ; COMMAND menu command handler pointers 0x01808C|$06:$807C:85 0C STA $0C 0x01808E|$06:$807E:B9 87 80 LDA $8087,Y 0x018091|$06:$8081:85 0D STA $0D 0x018093|$06:$8083:6C 0C 00 JMP ($000C) ; code -> data ; COMMAND menu command handler pointers ; indexed data load target (from $8079) 0x018096|$06:$8086:A8 ; indexed data load target (from $807E) 0x018097|$06:$8087: 80 ; $06:$80A8; COMMAND menu TALK command handler 0x018098|$06:$8088:36 8B ; $06:$8B36; COMMAND menu SPELL command handler 0x01809A|$06:$808A:CA 89 ; $06:$89CA; COMMAND menu STATUS command handler 0x01809C|$06:$808C:5B 95 ; $06:$955B; COMMAND menu ITEM command handler 0x01809E|$06:$808E:17 9B ; $06:$9B17; COMMAND menu SEARCH handler 0x0180A0|$06:$8090:02 8A ; $06:$8A02; COMMAND menu EQUIP handler ; data -> code ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; control flow target (from $80BC, $80C7, $80DA, $80F3, $8139, $816F, $81AF, $8295, $82A0, $82C0, $82D2, $8385, $83B6, $8567, $86D2, $89FF, $8AFC, $8B52, $8B66, $8B87, $8C00, $8C2D, $8C91, $8C9C, $8F4B, $8F67) 0x0180A2|$06:$8092:20 9D 80 JSR $809D ; wait until all joypad buttons are released and then some button pressed ; wipe menus and exit COMMAND menu ; control flow target (from $80E8, $9071, $90C9, $91C3, $9345) 0x0180A5|$06:$8095:A9 00 LDA #$00 ; call to code in a different bank ($0F:$CF6A) 0x0180A7|$06:$8097:20 6A CF JSR $CF6A ; wipe selected menu region 0x0180AA|$06:$809A:4C 6D 80 JMP $806D ; exit COMMAND menu ; wait until all joypad buttons are released and then some button pressed ; control flow target (from $8092, $80A0, $89D9, $89F2, $954D, $A257) ; call to code in a different bank ($0F:$D13D) 0x0180AD|$06:$809D:20 3D D1 JSR $D13D ; wait for interrupt, read joypad data into $2F and A 0x0180B0|$06:$80A0:D0 FB BNE $809D ; wait until all joypad buttons are released and then some button pressed; loop until no buttons pressed ; control flow target (from $80A5) ; call to code in a different bank ($0F:$D13D) 0x0180B2|$06:$80A2:20 3D D1 JSR $D13D ; wait for interrupt, read joypad data into $2F and A 0x0180B5|$06:$80A5:F0 FB BEQ $80A2 ; loop until some button pressed 0x0180B7|$06:$80A7:60 RTS ; COMMAND menu TALK command handler ; indirect control flow target (via $8086) 0x0180B8|$06:$80A8:AD 40 05 LDA $0540 ; NPC #$00 ? + direction nybble 0x0180BB|$06:$80AB:29 03 AND #$03 ; call to code in a different bank ($0F:$CF70) 0x0180BD|$06:$80AD:20 70 CF JSR $CF70 ; -> $02:$B141 0x0180C0|$06:$80B0:A5 D0 LDA $D0 ; Malroth status flag (#$FF = defeated, #$00 = alive, others = countdown to battle) 0x0180C2|$06:$80B2:10 0B BPL $80BF ; pre-Malroth dialogue 0x0180C4|$06:$80B4:AD F3 05 LDA $05F3 ; target NPC sprite ID; post-Malroth, most dialogue becomes based on NPC sprite ID 0x0180C7|$06:$80B7:F0 0A BEQ $80C3 ; no sprite ID => nobody to talk to ; call to code in a different bank ($0F:$D334) 0x0180C9|$06:$80B9:20 34 D3 JSR $D334 ; post-Malroth dialogue 0x0180CC|$06:$80BC:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; pre-Malroth dialogue ; control flow target (from $80B2) 0x0180CF|$06:$80BF:A5 0C LDA $0C ; dialogue ID 0x0180D1|$06:$80C1:D0 07 BNE $80CA ; #$00 => nobody to talk to ; control flow target (from $80B7, $8216) ; call to code in a different bank ($0F:$F6F0) 0x0180D3|$06:$80C3:20 F0 F6 JSR $F6F0 ; open main dialogue window and display string ID specified by byte following JSR + #$0100 ; code -> data ; indirect data load target 0x0180D6|$06:$80C6:00 ; String ID #$0100: No one is in that direction.[end-FC] ; data -> code 0x0180D7|$06:$80C7:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; control flow target (from $80C1) 0x0180DA|$06:$80CA:C9 D7 CMP #$D7 0x0180DC|$06:$80CC:D0 0F BNE $80DD 0x0180DE|$06:$80CE:20 CB 9A JSR $9ACB ; open dialogue window 0x0180E1|$06:$80D1:A9 00 LDA #$00 ; Midenhall; useless since string doesn't use [name] control code ; call to code in a different bank ($0F:$FC50) 0x0180E3|$06:$80D3:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2A) 0x0180E6|$06:$80D6:20 2A FA JSR $FA2A ; display string ID specified by next byte ; code -> data ; indirect data load target 0x0180E9|$06:$80D9:76 ; String ID #$0076: ‘Go now, my heir! Our fate is now in thy hands[.’][end-FC] ; data -> code 0x0180EA|$06:$80DA:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; control flow target (from $80CC) 0x0180ED|$06:$80DD:C9 D9 CMP #$D9 0x0180EF|$06:$80DF:D0 0A BNE $80EB ; call to code in a different bank ($0F:$F6F6) 0x0180F1|$06:$80E1:20 F6 F6 JSR $F6F6 ; open main dialogue window and display string ID specified by byte following JSR + #$0200 ; code -> data ; indirect data load target 0x0180F4|$06:$80E4:9A ; String ID #$029A: ‘Would thou allow me to escape and tell Hargon many tidings?’[wait][line]‘Oh, but thou art such a fool[.’][wait][end-FC] ; data -> code ; call to code in a different bank ($0F:$D1E5) 0x0180F5|$06:$80E5:20 E5 D1 JSR $D1E5 ; trigger Fixed Battle #$01: 1 Evil Clown (Map ID #$04: Midenhall B1) 0x0180F8|$06:$80E8:4C 95 80 JMP $8095 ; wipe menus and exit COMMAND menu ; control flow target (from $80DF) 0x0180FB|$06:$80EB:C9 D8 CMP #$D8 0x0180FD|$06:$80ED:D0 07 BNE $80F6 ; call to code in a different bank ($0F:$F6EA) 0x0180FF|$06:$80EF:20 EA F6 JSR $F6EA ; open main dialogue window and display string ID specified by byte following JSR ; code -> data ; indirect data load target 0x018102|$06:$80F2:67 ; String ID #$0067: ‘Open now the treasure chest[.’][end-FC] ; data -> code 0x018103|$06:$80F3:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; control flow target (from $80ED) 0x018106|$06:$80F6:C9 01 CMP #$01 0x018108|$06:$80F8:D0 62 BNE $815C 0x01810A|$06:$80FA:20 CB 9A JSR $9ACB ; open dialogue window 0x01810D|$06:$80FD:A9 01 LDA #$01 ; Cannock; useless since string doesn't use [name] control code ; call to code in a different bank ($0F:$FC50) 0x01810F|$06:$80FF:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x018112|$06:$8102:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018115|$06:$8105:55 ; String ID #$0155: ‘Hail, friend! I am Prince [name] of Cannock[.’][wait][end-FC] ; data -> code 0x018116|$06:$8106:A9 00 LDA #$00 ; call to code in a different bank ($0F:$FC50) 0x018118|$06:$8108:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x01811B|$06:$810B:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01811E|$06:$810E:56 ; String ID #$0156: ‘Art thou my cousin from Midenhall? Ah, it is as I guessed[.’][wait][line]‘I have been seeking thee so that together we may oppose Hargon[.’][wait][line]‘Come, let us go forth[.’][end-FC] ; data -> code 0x01811F|$06:$810F:A9 07 LDA #$07 ; Music ID #$07: add party member BGM ; call to code in a different bank ($0F:$C58D) 0x018121|$06:$8111:20 8D C5 JSR $C58D ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM 0x018124|$06:$8114:AD C0 05 LDA $05C0 ; NPC #$10 motion nybble + direction nybble 0x018127|$06:$8117:29 03 AND #$03 0x018129|$06:$8119:0A ASL 0x01812A|$06:$811A:0A ASL 0x01812B|$06:$811B:0A ASL 0x01812C|$06:$811C:AA TAX 0x01812D|$06:$811D:A0 00 LDY #$00 ; control flow target (from $8129) 0x01812F|$06:$811F:BD 3C 81 LDA $813C,X 0x018132|$06:$8122:99 42 05 STA $0542,Y ; NPC #$00 ? 0x018135|$06:$8125:C8 INY 0x018136|$06:$8126:E8 INX 0x018137|$06:$8127:C0 08 CPY #$08 0x018139|$06:$8129:D0 F4 BNE $811F 0x01813B|$06:$812B:A9 84 LDA #$84 ; add Cannock to party 0x01813D|$06:$812D:8D 3F 06 STA $063F ; Cannock status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x018140|$06:$8130:A9 FF LDA #$FF 0x018142|$06:$8132:8D C1 05 STA $05C1 ; NPC #$10 sprite ID 0x018145|$06:$8135:A9 03 LDA #$03 0x018147|$06:$8137:85 CA STA $CA ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4) 0x018149|$06:$8139:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; code -> data ; indexed data load target (from $811F, $817D) 0x01814C|$06:$813C:80 7F 00 01 00 00 00 01 0x018154|$06:$8144:70 6F FF 00 00 00 01 01 0x01815C|$06:$814C:80 5F 00 FF 00 00 02 01 0x018164|$06:$8154:90 6F 01 00 00 00 03 01 ; data -> code ; control flow target (from $80F8) 0x01816C|$06:$815C:C9 02 CMP #$02 0x01816E|$06:$815E:D0 42 BNE $81A2 0x018170|$06:$8160:20 CB 9A JSR $9ACB ; open dialogue window ; call to code in a different bank ($0F:$FA32) 0x018173|$06:$8163:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018176|$06:$8166:A8 ; String ID #$02A8: ‘Woof-woof!’[end-FC] ; data -> code 0x018177|$06:$8167:20 72 81 JSR $8172 0x01817A|$06:$816A:A9 09 LDA #$09 ; Sprite ID $#09: Dog 0x01817C|$06:$816C:8D 51 05 STA $0551 ; NPC #$02 sprite ID 0x01817F|$06:$816F:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; control flow target (from $8167, $9727) 0x018182|$06:$8172:AD 58 05 LDA $0558 ; NPC #$03 motion nybble + direction nybble 0x018185|$06:$8175:29 03 AND #$03 0x018187|$06:$8177:0A ASL 0x018188|$06:$8178:0A ASL 0x018189|$06:$8179:0A ASL 0x01818A|$06:$817A:AA TAX 0x01818B|$06:$817B:A0 00 LDY #$00 ; control flow target (from $8187) 0x01818D|$06:$817D:BD 3C 81 LDA $813C,X 0x018190|$06:$8180:99 4A 05 STA $054A,Y ; NPC #$01 scripted motion low byte 0x018193|$06:$8183:C8 INY 0x018194|$06:$8184:E8 INX 0x018195|$06:$8185:C0 08 CPY #$08 0x018197|$06:$8187:D0 F4 BNE $817D 0x018199|$06:$8189:A9 FF LDA #$FF 0x01819B|$06:$818B:8D 59 05 STA $0559 ; NPC #$03 sprite ID 0x01819E|$06:$818E:A0 08 LDY #$08 0x0181A0|$06:$8190:4C 93 81 JMP $8193 ; useless op ; control flow target (from $8190) 0x0181A3|$06:$8193:20 97 81 JSR $8197 0x0181A6|$06:$8196:C8 INY ; control flow target (from $8193) 0x0181A7|$06:$8197:B9 44 05 LDA $0544,Y ; NPC #$01 ? 0x0181AA|$06:$819A:38 SEC 0x0181AB|$06:$819B:F9 3C 05 SBC $053C,Y ; NPC #$00 ? 0x0181AE|$06:$819E:99 44 05 STA $0544,Y ; NPC #$01 ? 0x0181B1|$06:$81A1:60 RTS ; control flow target (from $815E) 0x0181B2|$06:$81A2:C9 03 CMP #$03 0x0181B4|$06:$81A4:D0 0C BNE $81B2 ; call to code in a different bank ($0F:$F6F6) 0x0181B6|$06:$81A6:20 F6 F6 JSR $F6F6 ; open main dialogue window and display string ID specified by byte following JSR + #$0200 ; code -> data ; indirect data load target 0x0181B9|$06:$81A9:4D ; String ID #$024D: ‘I bid thee welcome to Wellgarth Town[.’][wait][line]‘I shall sing for thee[.’][end-FC] ; data -> code 0x0181BA|$06:$81AA:A9 0C LDA #$0C ; Music ID #$0C: game menu / Wellgarth singer BGM ; call to code in a different bank ($0F:$C561) 0x0181BC|$06:$81AC:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) 0x0181BF|$06:$81AF:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; control flow target (from $81A4) 0x0181C2|$06:$81B2:C9 04 CMP #$04 0x0181C4|$06:$81B4:D0 03 BNE $81B9 0x0181C6|$06:$81B6:4C 34 97 JMP $9734 ; unused since no NPC has dialogue ID #$04 ; control flow target (from $81B4) 0x0181C9|$06:$81B9:C9 05 CMP #$05 0x0181CB|$06:$81BB:D0 08 BNE $81C5 0x0181CD|$06:$81BD:20 CB 9A JSR $9ACB ; open dialogue window 0x0181D0|$06:$81C0:A9 06 LDA #$06 ; Save Point ID #$06: Hamlin 0x0181D2|$06:$81C2:4C E3 93 JMP $93E3 ; update save point $48 to A, run through the whole save point sequence ; control flow target (from $81BB) 0x0181D5|$06:$81C5:C9 0A CMP #$0A ; useless op 0x0181D7|$06:$81C7:B0 00 BCS $81C9 ; useless op ; control flow target (from $81C7) 0x0181D9|$06:$81C9:C9 14 CMP #$14 0x0181DB|$06:$81CB:B0 03 BCS $81D0 0x0181DD|$06:$81CD:4C 19 82 JMP $8219 ; handler for dialogue IDs #$0A-#$13 (Innkeepers) ; control flow target (from $81CB) 0x0181E0|$06:$81D0:C9 1C CMP #$1C 0x0181E2|$06:$81D2:B0 03 BCS $81D7 0x0181E4|$06:$81D4:4C AD 82 JMP $82AD ; handler for dialogue IDs #$14-#$1B (Weapon Shops) ; control flow target (from $81D2) 0x0181E7|$06:$81D7:C9 27 CMP #$27 0x0181E9|$06:$81D9:B0 03 BCS $81DE 0x0181EB|$06:$81DB:4C 9A 83 JMP $839A ; handler for dialogue IDs #$1C-#$26 (Item Shops) ; control flow target (from $81D9) 0x0181EE|$06:$81DE:C9 28 CMP #$28 0x0181F0|$06:$81E0:B0 03 BCS $81E5 0x0181F2|$06:$81E2:4C 4E 85 JMP $854E ; handler for dialogue ID #$27 (House of Healing) ; control flow target (from $81E0) 0x0181F5|$06:$81E5:C9 29 CMP #$29 0x0181F7|$06:$81E7:B0 03 BCS $81EC 0x0181F9|$06:$81E9:4C C0 86 JMP $86C0 ; handler for dialogue ID #$28 (Lottery) ; control flow target (from $81E7) 0x0181FC|$06:$81EC:C9 95 CMP #$95 0x0181FE|$06:$81EE:B0 03 BCS $81F3 0x018200|$06:$81F0:4C 06 8E JMP $8E06 ; handler for dialogue IDs #$29-#$94 (open dialogue window and display string specified by A + #$1D7, i.e. String IDs #$0200-#$026B) ; control flow target (from $81EE) 0x018203|$06:$81F3:C9 9D CMP #$9D 0x018205|$06:$81F5:B0 03 BCS $81FA 0x018207|$06:$81F7:4C 44 8E JMP $8E44 ; handler for dialogue IDs #$95-#$9C (open dialogue window, display string specified by A + #$1D9, display YES/NO menu, and display string corresponding to selected option) ; control flow target (from $81F5) 0x01820A|$06:$81FA:C9 C3 CMP #$C3 0x01820C|$06:$81FC:B0 03 BCS $8201 0x01820E|$06:$81FE:4C 6A 8E JMP $8E6A ; handler for dialogue IDs #$9D-#$C2 (town NPCs with complex logic) ; control flow target (from $81FC) 0x018211|$06:$8201:C9 CD CMP #$CD 0x018213|$06:$8203:B0 03 BCS $8208 0x018215|$06:$8205:4C B0 94 JMP $94B0 ; handler for dialogue IDs #$C3-#$CC (open dialogue window and display string specified by A - #$73) ; control flow target (from $8203) 0x018218|$06:$8208:C9 D0 CMP #$D0 0x01821A|$06:$820A:B0 03 BCS $820F 0x01821C|$06:$820C:4C BE 94 JMP $94BE ; handler for dialogue IDs #$CD-#$CF (open dialogue window, display string specified by A - #$73, display YES/NO menu, and display string corresponding to selected option) ; control flow target (from $820A) 0x01821F|$06:$820F:C9 D9 CMP #$D9 0x018221|$06:$8211:B0 03 BCS $8216 0x018223|$06:$8213:4C E4 94 JMP $94E4 ; handler for dialogue IDs #$D0-#$D8 (dungeon NPCs with complex logic) ; control flow target (from $8211) 0x018226|$06:$8216:4C C3 80 JMP $80C3 ; unused since #$D9 was handled earlier and no NPC has dialogue ID > #$D9 ; handler for dialogue IDs #$0A-#$13 (Innkeepers) ; control flow target (from $81CD) 0x018229|$06:$8219:38 SEC 0x01822A|$06:$821A:E9 0A SBC #$0A ; convert to zero-based 0x01822C|$06:$821C:85 49 STA $49 ; object hero/target/item/string ID $49 0x01822E|$06:$821E:A8 TAY 0x01822F|$06:$821F:B9 80 9F LDA $9F80,Y ; Inn prices per party member 0x018232|$06:$8222:48 PHA ; Inn price per party member ; call to code in a different bank ($0F:$F6CE) 0x018233|$06:$8223:20 CE F6 JSR $F6CE ; return number of party members - 1 in A/X 0x018236|$06:$8226:85 0C STA $0C ; number of party members - 1 0x018238|$06:$8228:E6 0C INC $0C ; number of party members 0x01823A|$06:$822A:68 PLA ; Inn price per party member 0x01823B|$06:$822B:20 AC 86 JSR $86AC ; multiply A by $0C, store results in ($10-$11) and ($8F-$90); consumes $0C ; call to code in a different bank ($0F:$F6F0) 0x01823E|$06:$822E:20 F0 F6 JSR $F6F0 ; open main dialogue window and display string ID specified by byte following JSR + #$0100 ; code -> data ; indirect data load target 0x018241|$06:$8231:7B ; String ID #$017B: ‘Welcome to the Village Inn[.’][wait][line]‘It's only [number] piece[(s)] of gold for the night.[line]Dost thou want a room?’[FD][FD][end-FC] ; data -> code ; call to code in a different bank ($0F:$EB76) 0x018242|$06:$8232:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x018245|$06:$8235:1B ; Menu ID #$1B: Shop menu: current gold ; data -> code 0x018246|$06:$8236:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x018249|$06:$8239:C9 00 CMP #$00 ; YES 0x01824B|$06:$823B:D0 5F BNE $829C 0x01824D|$06:$823D:20 31 8D JSR $8D31 ; given gold amount in $8F-$90, decrease party gold by that amount and SEC if possible, CLC otherwise 0x018250|$06:$8240:90 56 BCC $8298 ; call to code in a different bank ($0F:$EB76) 0x018252|$06:$8242:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x018255|$06:$8245:1B ; Menu ID #$1B: Shop menu: current gold ; data -> code ; call to code in a different bank ($0F:$FA2E) 0x018256|$06:$8246:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018259|$06:$8249:7E ; String ID #$017E: ‘Sleep well[.’][FD][FD][end-FC] ; data -> code 0x01825A|$06:$824A:A2 14 LDX #$14 ; call to code in a different bank ($0F:$C1EE) 0x01825C|$06:$824C:20 EE C1 JSR $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF 0x01825F|$06:$824F:A9 FF LDA #$FF 0x018261|$06:$8251:85 0D STA $0D ; call to code in a different bank ($0F:$C2EB) 0x018263|$06:$8253:20 EB C2 JSR $C2EB 0x018266|$06:$8256:A9 01 LDA #$01 ; Music ID #$01: Inn BGM ; call to code in a different bank ($0F:$C58D) 0x018268|$06:$8258:20 8D C5 JSR $C58D ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM 0x01826B|$06:$825B:20 CC 8D JSR $8DCC ; restore full HP to all living party members 0x01826E|$06:$825E:20 EC 8D JSR $8DEC ; restore full MP to all living party members 0x018271|$06:$8261:A4 49 LDY $49 ; object hero/target/item/string ID $49 0x018273|$06:$8263:B9 A3 82 LDA $82A3,Y ; party direction after sleeping at inn (bits 0-1 = Cannock and Moonbrooke direction, 2-3 = Midenhall direction) 0x018276|$06:$8266:29 03 AND #$03 0x018278|$06:$8268:18 CLC 0x018279|$06:$8269:69 05 ADC #$05 0x01827B|$06:$826B:85 45 STA $45 ; call to code in a different bank ($0F:$CF76) 0x01827D|$06:$826D:20 76 CF JSR $CF76 0x018280|$06:$8270:A4 49 LDY $49 ; object hero/target/item/string ID $49 0x018282|$06:$8272:B9 A3 82 LDA $82A3,Y ; party direction after sleeping at inn (bits 0-1 = Cannock and Moonbrooke direction, 2-3 = Midenhall direction) 0x018285|$06:$8275:4A LSR 0x018286|$06:$8276:4A LSR 0x018287|$06:$8277:8D 40 05 STA $0540 ; NPC #$00 ? + direction nybble ; call to code in a different bank ($0F:$CF64) 0x01828A|$06:$827A:20 64 CF JSR $CF64 0x01828D|$06:$827D:A0 00 LDY #$00 ; control flow target (from $8288) 0x01828F|$06:$827F:B9 E6 C2 LDA $C2E6,Y 0x018292|$06:$8282:99 0D 00 STA $000D,Y 0x018295|$06:$8285:C8 INY 0x018296|$06:$8286:C0 05 CPY #$05 0x018298|$06:$8288:D0 F5 BNE $827F ; call to code in a different bank ($0F:$C2DE) 0x01829A|$06:$828A:20 DE C2 JSR $C2DE ; call to code in a different bank ($0F:$FA2E) 0x01829D|$06:$828D:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0182A0|$06:$8290:7F ; String ID #$017F: ‘Ah, good morning.[line]I trust thou art well rested[.’][wait][end-FC] ; data -> code ; call to code in a different bank ($0F:$FA2E) 0x0182A1|$06:$8291:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0182A4|$06:$8294:80 ; String ID #$0180: ‘Goodbye[.’][end-FC] ; data -> code 0x0182A5|$06:$8295:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; control flow target (from $8240) ; call to code in a different bank ($0F:$FA2E) 0x0182A8|$06:$8298:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0182AB|$06:$829B:7D ; String ID #$017D: ‘Sorry, thou hasn't enough gold[.’][wait][end-FC] ; data -> code ; control flow target (from $823B) ; call to code in a different bank ($0F:$FA2E) 0x0182AC|$06:$829C:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0182AF|$06:$829F:7C ; String ID #$017C: ‘Farewell, stranger[.’][end-FC] ; data -> code 0x0182B0|$06:$82A0:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; code -> data ; party direction after sleeping at inn (bits 0-1 = Cannock and Moonbrooke direction, 2-3 = Midenhall direction) ; indexed data load target (from $8263, $8272) 0x0182B3|$06:$82A3:04 ; Inn ID #$00, Map IDs #$00/#$03: Fake Midenhall/Midenhall 1F 0x0182B4|$06:$82A4:04 ; Inn ID #$01, Map ID #$05: Leftwyne 0x0182B5|$06:$82A5:0E ; Inn ID #$02, Map ID #$06: Cannock 0x0182B6|$06:$82A6:0C ; Inn ID #$03, Map ID #$07: Hamlin 0x0182B7|$06:$82A7:04 ; Inn ID #$04, Map ID #$0B: Lianport 0x0182B8|$06:$82A8:0C ; Inn ID #$05, Map ID #$0C: Tantegel 0x0182B9|$06:$82A9:0C ; Inn ID #$06, Map ID #$0F: Osterfair 0x0182BA|$06:$82AA:0C ; Inn ID #$07, Map ID #$10: Zahan 0x0182BB|$06:$82AB:0F ; Inn ID #$08, Map ID #$11: Tuhn / Map ID #$14: Wellgarth Underground 0x0182BC|$06:$82AC:0C ; Inn ID #$09, Map ID #$15: Beran ; data -> code ; handler for dialogue IDs #$14-#$1B (Weapon Shops) ; control flow target (from $81D4) 0x0182BD|$06:$82AD:85 49 STA $49 ; object hero/target/item/string ID $49 0x0182BF|$06:$82AF:C9 18 CMP #$18 ; Weapon Shop ID #04, Map ID #$0F: Osterfair 0x0182C1|$06:$82B1:D0 10 BNE $82C3 0x0182C3|$06:$82B3:AD C0 05 LDA $05C0 ; NPC #$10 motion nybble + direction nybble 0x0182C6|$06:$82B6:29 03 AND #$03 0x0182C8|$06:$82B8:C9 01 CMP #$01 ; Right 0x0182CA|$06:$82BA:F0 07 BEQ $82C3 ; talking to the shopkeeper from behind the counter, use a different string ; call to code in a different bank ($0F:$F6F6) 0x0182CC|$06:$82BC:20 F6 F6 JSR $F6F6 ; open main dialogue window and display string ID specified by byte following JSR + #$0200 ; code -> data ; indirect data load target 0x0182CF|$06:$82BF:CE ; String ID #$02CE: ‘Do not enter this place!’[end-FC] ; data -> code 0x0182D0|$06:$82C0:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; control flow target (from $82B1, $82BA) ; call to code in a different bank ($0F:$F6F0) 0x0182D3|$06:$82C3:20 F0 F6 JSR $F6F0 ; open main dialogue window and display string ID specified by byte following JSR + #$0100 ; code -> data ; indirect data load target 0x0182D6|$06:$82C6:5B ; String ID #$015B: ‘We deal in weapons and armor.[line]Dost thou wish to see them?’[FD][FD][end-FC] ; data -> code 0x0182D7|$06:$82C7:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x0182DA|$06:$82CA:C9 00 CMP #$00 ; YES 0x0182DC|$06:$82CC:F0 07 BEQ $82D5 ; finish weapon transaction ; control flow target (from $82E3, $8318, $8367) ; call to code in a different bank ($0F:$FA2E) 0x0182DE|$06:$82CE:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0182E1|$06:$82D1:5D ; String ID #$015D: ‘Come again[.’][end-FC] ; data -> code 0x0182E2|$06:$82D2:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; control flow target (from $82CC, $836A) ; call to code in a different bank ($0F:$FA2E) 0x0182E5|$06:$82D5:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0182E8|$06:$82D8:5C ; String ID #$015C: ‘What would thou purchase?’[FD][FD][end-FC] ; data -> code 0x0182E9|$06:$82D9:A5 49 LDA $49 ; object hero/target/item/string ID $49 0x0182EB|$06:$82DB:38 SEC 0x0182EC|$06:$82DC:E9 14 SBC #$14 ; convert to Shop ID ; call to code in a different bank ($0F:$F61B) 0x0182EE|$06:$82DE:20 1B F6 JSR $F61B ; display shop menu item list for shop ID given in A, returning selected item (with Jailor's Key replaced by blank) in A 0x0182F1|$06:$82E1:C9 FF CMP #$FF 0x0182F3|$06:$82E3:F0 E9 BEQ $82CE ; finish weapon transaction 0x0182F5|$06:$82E5:20 4D 8D JSR $8D4D ; given item ID in A, save it to $96 and set $8F-$90 to purchase price of item, accounting for possible Golden Card discount; decrease party gold by that amount and SEC if possible, CLC otherwise 0x0182F8|$06:$82E8:B0 07 BCS $82F1 ; branch if price of item was deducted from party gold ; call to code in a different bank ($0F:$FA2E) 0x0182FA|$06:$82EA:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0182FD|$06:$82ED:5E ; String ID #$015E: ‘Sorry, it seems thou hast not enough gold[.’][wait][end-FC] ; data -> code 0x0182FE|$06:$82EE:4C 5C 83 JMP $835C ; control flow target (from $82E8) ; call to code in a different bank ($0F:$F6CE) 0x018301|$06:$82F1:20 CE F6 JSR $F6CE ; return number of party members - 1 in A/X 0x018304|$06:$82F4:C9 00 CMP #$00 0x018306|$06:$82F6:D0 0E BNE $8306 ; if Midenhall is alone, no need to ask who to give it to 0x018308|$06:$82F8:20 6D 83 JSR $836D ; given hero ID in A and item ID in $96, try to add item to first empty slot in hero's inventory; if unable to add, refund purchase, pop JSR return address and JMP $8092 instead 0x01830B|$06:$82FB:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs 0x01830D|$06:$82FD:85 95 STA $95 ; ID for [item] and [spell] control codes ; call to code in a different bank ($0F:$FA2E) 0x01830F|$06:$82FF:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018312|$06:$8302:5F ; String ID #$015F: ‘The [item], is it? Good choice and many thanks[.’][wait][end-FC] ; data -> code 0x018313|$06:$8303:4C 4C 83 JMP $834C ; control flow target (from $82F6) 0x018316|$06:$8306:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs 0x018318|$06:$8308:85 95 STA $95 ; ID for [item] and [spell] control codes ; call to code in a different bank ($0F:$FA2E) 0x01831A|$06:$830A:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01831D|$06:$830D:62 ; String ID #$0162: ‘The [item]? Who will take this?’[FD][FD][end-FC] ; data -> code ; call to code in a different bank ($0F:$F595) 0x01831E|$06:$830E:20 95 F5 JSR $F595 ; display appropriate shop BUY/SELL hero select menu 0x018321|$06:$8311:C9 FF CMP #$FF 0x018323|$06:$8313:D0 06 BNE $831B ; control flow target (from $8330) 0x018325|$06:$8315:20 88 83 JSR $8388 ; add the number at $8F-$90 to party gold; no check for overflow, so this is only safe to use when reverting a sale 0x018328|$06:$8318:4C CE 82 JMP $82CE ; finish weapon transaction ; control flow target (from $8313) 0x01832B|$06:$831B:85 97 STA $97 ; subject hero ID $97 0x01832D|$06:$831D:20 A3 A3 JSR $A3A3 ; given item ID in $96 and hero ID in $97, set A to #$80 if hero can equip item, #$00 otherwise 0x018330|$06:$8320:C9 00 CMP #$00 0x018332|$06:$8322:D0 0E BNE $8332 0x018334|$06:$8324:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x018337|$06:$8327:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01833A|$06:$832A:91 ; String ID #$0191: ‘[name] cannot be equipped with the [item]. Is it all right?’[end-FC] ; data -> code 0x01833B|$06:$832B:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x01833E|$06:$832E:C9 00 CMP #$00 0x018340|$06:$8330:D0 E3 BNE $8315 ; control flow target (from $8322) 0x018342|$06:$8332:A5 97 LDA $97 ; subject hero ID $97 0x018344|$06:$8334:20 6D 83 JSR $836D ; given hero ID in A and item ID in $96, try to add item to first empty slot in hero's inventory; if unable to add, refund purchase, pop JSR return address and JMP $8092 instead 0x018347|$06:$8337:A9 80 LDA #$80 ; Alive 0x018349|$06:$8339:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x01834C|$06:$833C:90 0A BCC $8348 0x01834E|$06:$833E:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x018351|$06:$8341:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018354|$06:$8344:63 ; String ID #$0163: ‘Splendid, [name]!’[wait][end-FC] ; data -> code 0x018355|$06:$8345:4C 4C 83 JMP $834C ; control flow target (from $833C) ; call to code in a different bank ($0F:$FA2E) 0x018358|$06:$8348:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01835B|$06:$834B:64 ; String ID #$0164: ‘Well, I'll just give it to the ghost, eh?’[wait][end-FC] ; data -> code ; control flow target (from $8303, $8345) 0x01835C|$06:$834C:A9 32 LDA #$32 ; Item ID #$32: Golden Card 0x01835E|$06:$834E:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x018361|$06:$8351:C9 FF CMP #$FF 0x018363|$06:$8353:F0 07 BEQ $835C 0x018365|$06:$8355:20 11 8D JSR $8D11 ; given item ID in $96 and discount amount in $8F-$90, set $8F-$90 to discounted item price ; call to code in a different bank ($0F:$FA2E) 0x018368|$06:$8358:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01836B|$06:$835B:60 ; String ID #$0160: ‘Since thou hast the Golden Card I shall give thee a special discount of [number] piece[(s)] of gold[.’][wait][end-FC] ; data -> code ; control flow target (from $82EE, $8353) ; call to code in a different bank ($0F:$FA2E) 0x01836C|$06:$835C:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01836F|$06:$835F:61 ; String ID #$0161: ‘Can I interest thee in anything else?’[FD][FD][end-FC] ; data -> code 0x018370|$06:$8360:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x018373|$06:$8363:C9 00 CMP #$00 ; YES 0x018375|$06:$8365:F0 03 BEQ $836A 0x018377|$06:$8367:4C CE 82 JMP $82CE ; finish weapon transaction ; control flow target (from $8365) 0x01837A|$06:$836A:4C D5 82 JMP $82D5 ; given hero ID in A and item ID in $96, try to add item to first empty slot in hero's inventory; if unable to add, refund purchase, pop JSR return address and JMP $8092 instead ; control flow target (from $82F8, $8334) 0x01837D|$06:$836D:85 97 STA $97 ; subject hero ID $97 0x01837F|$06:$836F:20 7E 8D JSR $8D7E ; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots 0x018382|$06:$8372:90 05 BCC $8379 ; call to code in a different bank ($0F:$EB76) 0x018384|$06:$8374:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x018387|$06:$8377:1B ; Menu ID #$1B: Shop menu: current gold ; data -> code 0x018388|$06:$8378:60 RTS ; control flow target (from $8372) 0x018389|$06:$8379:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x01838C|$06:$837C:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01838F|$06:$837F:65 ; String ID #$0165: ‘It seems [name] has no more room to carry things[.’][end-FC] ; data -> code 0x018390|$06:$8380:20 88 83 JSR $8388 ; add the number at $8F-$90 to party gold; no check for overflow, so this is only safe to use when reverting a sale 0x018393|$06:$8383:68 PLA 0x018394|$06:$8384:68 PLA 0x018395|$06:$8385:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; add the number at $8F-$90 to party gold; no check for overflow, so this is only safe to use when reverting a sale ; control flow target (from $8315, $8380, $8403) 0x018398|$06:$8388:A5 8F LDA $8F 0x01839A|$06:$838A:18 CLC 0x01839B|$06:$838B:6D 24 06 ADC $0624 ; party gold, low byte 0x01839E|$06:$838E:8D 24 06 STA $0624 ; party gold, low byte 0x0183A1|$06:$8391:A5 90 LDA $90 0x0183A3|$06:$8393:6D 25 06 ADC $0625 ; party gold, high byte 0x0183A6|$06:$8396:8D 25 06 STA $0625 ; party gold, high byte 0x0183A9|$06:$8399:60 RTS ; handler for dialogue IDs #$1C-#$26 (Item Shops) ; control flow target (from $81DB) 0x0183AA|$06:$839A:38 SEC 0x0183AB|$06:$839B:E9 14 SBC #$14 ; convert to Shop ID 0x0183AD|$06:$839D:85 49 STA $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$F6F0) 0x0183AF|$06:$839F:20 F0 F6 JSR $F6F0 ; open main dialogue window and display string ID specified by byte following JSR + #$0100 ; code -> data ; indirect data load target 0x0183B2|$06:$83A2:66 ; String ID #$0166: ‘We deal in tools.[line]What can I offer thee?’[FD][FD][end-FC] ; data -> code ; call to code in a different bank ($0F:$EB76) 0x0183B3|$06:$83A3:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x0183B6|$06:$83A6:18 ; Menu ID #$18: Shop menu: BUY/SELL ; data -> code 0x0183B7|$06:$83A7:C9 FF CMP #$FF 0x0183B9|$06:$83A9:F0 07 BEQ $83B2 ; finish item transaction 0x0183BB|$06:$83AB:C9 00 CMP #$00 ; BUY 0x0183BD|$06:$83AD:F0 15 BEQ $83C4 ; BUY handler 0x0183BF|$06:$83AF:4C 85 84 JMP $8485 ; SELL handler ; finish item transaction ; control flow target (from $83A9, $83C2, $83CF, $83DE, $8406, $8497, $84B4) ; call to code in a different bank ($0F:$FA2E) 0x0183C2|$06:$83B2:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0183C5|$06:$83B5:70 ; String ID #$0170: ‘Good day, then[.’][end-FC] ; data -> code 0x0183C6|$06:$83B6:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; control flow target (from $83EB, $8469, $8482) ; call to code in a different bank ($0F:$FA2E) 0x0183C9|$06:$83B9:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0183CC|$06:$83BC:6F ; String ID #$016F: ‘Dost thou need anything else?’[FD][FD][end-FC] ; data -> code 0x0183CD|$06:$83BD:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x0183D0|$06:$83C0:C9 00 CMP #$00 ; YES 0x0183D2|$06:$83C2:D0 EE BNE $83B2 ; finish item transaction ; BUY handler ; control flow target (from $83AD) ; call to code in a different bank ($0F:$FA2E) 0x0183D4|$06:$83C4:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0183D7|$06:$83C7:67 ; String ID #$0167: ‘What dost thou want?’[FD][FD][end-FC] ; data -> code 0x0183D8|$06:$83C8:A5 49 LDA $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$F61B) 0x0183DA|$06:$83CA:20 1B F6 JSR $F61B ; display shop menu item list for shop ID given in A, returning selected item (with Jailor's Key replaced by blank) in A 0x0183DD|$06:$83CD:C9 FF CMP #$FF 0x0183DF|$06:$83CF:F0 E1 BEQ $83B2 ; finish item transaction 0x0183E1|$06:$83D1:C9 00 CMP #$00 ; Jailor's Key converted to #$00 0x0183E3|$06:$83D3:D0 0D BNE $83E2 ; call to code in a different bank ($0F:$FA32) 0x0183E5|$06:$83D5:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x0183E8|$06:$83D8:DA ; String ID #$02DA: ‘So thou hast heard about my wares[.’][wait][line]‘A bit expensive, maybe, but such fine craftsmanship![line]Will thou take it?’[FD][FD][end-FC] ; data -> code 0x0183E9|$06:$83D9:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x0183EC|$06:$83DC:C9 00 CMP #$00 ; YES 0x0183EE|$06:$83DE:D0 D2 BNE $83B2 ; finish item transaction 0x0183F0|$06:$83E0:A9 39 LDA #$39 ; Item ID #$39: Jailor’s Key ; control flow target (from $83D3) 0x0183F2|$06:$83E2:20 4D 8D JSR $8D4D ; given item ID in A, save it to $96 and set $8F-$90 to purchase price of item, accounting for possible Golden Card discount; decrease party gold by that amount and SEC if possible, CLC otherwise 0x0183F5|$06:$83E5:B0 07 BCS $83EE ; call to code in a different bank ($0F:$FA2E) 0x0183F7|$06:$83E7:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0183FA|$06:$83EA:68 ; String ID #$0168: ‘Unfortunately, thou hast not enough gold for that[.’][wait][end-FC] ; data -> code 0x0183FB|$06:$83EB:4C B9 83 JMP $83B9 ; control flow target (from $83E5) ; call to code in a different bank ($0F:$F6CE) 0x0183FE|$06:$83EE:20 CE F6 JSR $F6CE ; return number of party members - 1 in A/X 0x018401|$06:$83F1:C9 00 CMP #$00 0x018403|$06:$83F3:D0 1F BNE $8414 ; if Midenhall is alone, no need to ask who to give it to 0x018405|$06:$83F5:85 97 STA $97 ; subject hero ID $97 0x018407|$06:$83F7:20 7E 8D JSR $8D7E ; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots 0x01840A|$06:$83FA:B0 0D BCS $8409 0x01840C|$06:$83FC:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x01840F|$06:$83FF:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018412|$06:$8402:6C ; String ID #$016C: ‘Sorry. Thou cannot carry more[.’][wait][end-FC] ; data -> code ; revert sale, finish item transaction ; control flow target (from $842E, $8448) 0x018413|$06:$8403:20 88 83 JSR $8388 ; add the number at $8F-$90 to party gold; no check for overflow, so this is only safe to use when reverting a sale 0x018416|$06:$8406:4C B2 83 JMP $83B2 ; finish item transaction ; control flow target (from $83FA) 0x018419|$06:$8409:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs 0x01841B|$06:$840B:85 95 STA $95 ; ID for [item] and [spell] control codes ; call to code in a different bank ($0F:$FA2E) 0x01841D|$06:$840D:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018420|$06:$8410:69 ; String ID #$0169: ‘The [item], eh? I thank thee[.’][wait][end-FC] ; data -> code 0x018421|$06:$8411:4C 55 84 JMP $8455 ; control flow target (from $83F3) 0x018424|$06:$8414:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs 0x018426|$06:$8416:C9 39 CMP #$39 ; Item ID #$39: Jailor’s Key 0x018428|$06:$8418:D0 07 BNE $8421 ; call to code in a different bank ($0F:$FA32) 0x01842A|$06:$841A:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01842D|$06:$841D:DB ; String ID #$02DB: ‘Tell nobody that I have sold it[.’][wait][end-FC] ; data -> code 0x01842E|$06:$841E:4C 4A 84 JMP $844A ; control flow target (from $8418) 0x018431|$06:$8421:85 95 STA $95 ; ID for [item] and [spell] control codes ; call to code in a different bank ($0F:$FA2E) 0x018433|$06:$8423:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018436|$06:$8426:6A ; String ID #$016A: ‘Thou will buy the [item]?[line]And who will carry it?’[FD][FD][end-FC] ; data -> code ; control flow target (from $844E) ; call to code in a different bank ($0F:$F595) 0x018437|$06:$8427:20 95 F5 JSR $F595 ; display appropriate shop BUY/SELL hero select menu 0x01843A|$06:$842A:C9 FF CMP #$FF 0x01843C|$06:$842C:D0 03 BNE $8431 0x01843E|$06:$842E:4C 03 84 JMP $8403 ; revert sale, finish item transaction ; control flow target (from $842C) 0x018441|$06:$8431:85 97 STA $97 ; subject hero ID $97 0x018443|$06:$8433:20 7E 8D JSR $8D7E ; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots 0x018446|$06:$8436:B0 19 BCS $8451 0x018448|$06:$8438:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x01844B|$06:$843B:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01844E|$06:$843E:6C ; String ID #$016C: ‘Sorry. Thou cannot carry more[.’][wait][end-FC] ; data -> code ; call to code in a different bank ($0F:$FA2E) 0x01844F|$06:$843F:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018452|$06:$8442:6D ; String ID #$016D: ‘Will one of thy companions carry it?’[FD][FD][end-FC] ; data -> code 0x018453|$06:$8443:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x018456|$06:$8446:C9 00 CMP #$00 ; YES 0x018458|$06:$8448:D0 B9 BNE $8403 ; revert sale, finish item transaction ; control flow target (from $841E) ; call to code in a different bank ($0F:$FA2E) 0x01845A|$06:$844A:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01845D|$06:$844D:6E ; String ID #$016E: ‘Who shall take it?’[FD][FD][end-FC] ; data -> code 0x01845E|$06:$844E:4C 27 84 JMP $8427 ; control flow target (from $8436) ; call to code in a different bank ($0F:$FA2E) 0x018461|$06:$8451:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018464|$06:$8454:6B ; String ID #$016B: ‘I thank thee kindly[.’][wait][end-FC] ; data -> code ; control flow target (from $8411) ; call to code in a different bank ($0F:$EB76) 0x018465|$06:$8455:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x018468|$06:$8458:1B ; Menu ID #$1B: Shop menu: current gold ; data -> code 0x018469|$06:$8459:A9 32 LDA #$32 ; Item ID #$32: Golden Card 0x01846B|$06:$845B:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x01846E|$06:$845E:C9 FF CMP #$FF 0x018470|$06:$8460:F0 0A BEQ $846C 0x018472|$06:$8462:20 11 8D JSR $8D11 ; given item ID in $96 and discount amount in $8F-$90, set $8F-$90 to discounted item price ; call to code in a different bank ($0F:$FA2E) 0x018475|$06:$8465:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018478|$06:$8468:71 ; String ID #$0171: ‘I see thou hast a Golden Card, but I will offer only a discount of [number] piece[(s)] of gold[.’][wait][end-FC] ; data -> code ; control flow target (from $8473, $847C) 0x018479|$06:$8469:4C B9 83 JMP $83B9 ; control flow target (from $8460) ; call to code in a different bank ($0F:$C3AB) 0x01847C|$06:$846C:20 AB C3 JSR $C3AB ; generate a random number and store it in $32-$33 (two passes) 0x01847F|$06:$846F:A5 32 LDA $32 ; RNG byte 0 0x018481|$06:$8471:C9 2B CMP #$2B ; odds of getting a Lottery Ticket = 43/256 0x018483|$06:$8473:B0 F4 BCS $8469 0x018485|$06:$8475:A9 33 LDA #$33 ; Item ID #$33: Lottery Ticket 0x018487|$06:$8477:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs 0x018489|$06:$8479:20 7E 8D JSR $8D7E ; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots 0x01848C|$06:$847C:90 EB BCC $8469 ; call to code in a different bank ($0F:$FA2E) 0x01848E|$06:$847E:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018491|$06:$8481:9D ; String ID #$019D: ‘With my compliments, here is an extra lottery ticket[.’][wait][end-FC] ; data -> code 0x018492|$06:$8482:4C B9 83 JMP $83B9 ; SELL handler ; control flow target (from $83AF) ; call to code in a different bank ($0F:$F6CE) 0x018495|$06:$8485:20 CE F6 JSR $F6CE ; return number of party members - 1 in A/X 0x018498|$06:$8488:C9 00 CMP #$00 0x01849A|$06:$848A:F0 0E BEQ $849A ; if Midenhall is alone, no need to ask who's selling ; call to code in a different bank ($0F:$FA2E) 0x01849C|$06:$848C:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01849F|$06:$848F:72 ; String ID #$0172: ‘Whose property will thou sell?’[FD][FD][end-FC] ; data -> code ; call to code in a different bank ($0F:$F595) 0x0184A0|$06:$8490:20 95 F5 JSR $F595 ; display appropriate shop BUY/SELL hero select menu 0x0184A3|$06:$8493:C9 FF CMP #$FF 0x0184A5|$06:$8495:D0 03 BNE $849A 0x0184A7|$06:$8497:4C B2 83 JMP $83B2 ; finish item transaction ; control flow target (from $848A, $8495) 0x0184AA|$06:$849A:85 97 STA $97 ; subject hero ID $97 ; control flow target (from $850D) 0x0184AC|$06:$849C:A5 97 LDA $97 ; subject hero ID $97 0x0184AE|$06:$849E:0A ASL ; 8 inventory items per hero 0x0184AF|$06:$849F:0A ASL 0x0184B0|$06:$84A0:0A ASL 0x0184B1|$06:$84A1:A8 TAY ; hero inventory read index 0x0184B2|$06:$84A2:A2 08 LDX #$08 ; 8 inventory items per hero; loop counter ; control flow target (from $84AB) 0x0184B4|$06:$84A4:B9 00 06 LDA $0600,Y ; Midenhall inventory item 1 (| #$40 if equipped) 0x0184B7|$06:$84A7:D0 0E BNE $84B7 0x0184B9|$06:$84A9:C8 INY ; hero inventory read index 0x0184BA|$06:$84AA:CA DEX ; loop counter 0x0184BB|$06:$84AB:D0 F7 BNE $84A4 0x0184BD|$06:$84AD:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x0184C0|$06:$84B0:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0184C3|$06:$84B3:73 ; String ID #$0173: ‘But [name] hast nothing to sell[.’][wait][end-FC] ; data -> code ; finish item transaction ; control flow target (from $84CF, $850B) 0x0184C4|$06:$84B4:4C B2 83 JMP $83B2 ; finish item transaction ; control flow target (from $84A7) ; call to code in a different bank ($0F:$FA2E) 0x0184C7|$06:$84B7:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0184CA|$06:$84BA:74 ; String ID #$0174: ‘Which art thou going to sell?’[FD][FD][end-FC] ; data -> code ; call to code in a different bank ($0F:$EB76) 0x0184CB|$06:$84BB:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x0184CE|$06:$84BE:1B ; Menu ID #$1B: Shop menu: current gold ; data -> code 0x0184CF|$06:$84BF:A5 97 LDA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$F5FE) 0x0184D1|$06:$84C1:20 FE F5 JSR $F5FE ; given a hero ID in A, open hero's item list and return selected item ID (or #$FE if they have no items) 0x0184D4|$06:$84C4:86 49 STX $49 ; object hero/target/item/string ID $49 0x0184D6|$06:$84C6:48 PHA ; item ID 0x0184D7|$06:$84C7:A9 03 LDA #$03 ; call to code in a different bank ($0F:$CF6A) 0x0184D9|$06:$84C9:20 6A CF JSR $CF6A ; wipe selected menu region 0x0184DC|$06:$84CC:68 PLA ; item ID 0x0184DD|$06:$84CD:C9 FF CMP #$FF 0x0184DF|$06:$84CF:F0 E3 BEQ $84B4 ; finish item transaction 0x0184E1|$06:$84D1:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs; item ID 0x0184E3|$06:$84D3:29 3F AND #$3F ; strip off the equipped bit 0x0184E5|$06:$84D5:0A ASL 0x0184E6|$06:$84D6:A8 TAY 0x0184E7|$06:$84D7:B9 FC 9F LDA $9FFC,Y ; Item Prices, low byte 0x0184EA|$06:$84DA:85 8F STA $8F 0x0184EC|$06:$84DC:B9 FD 9F LDA $9FFD,Y ; Item Prices, high byte 0x0184EF|$06:$84DF:85 90 STA $90 0x0184F1|$06:$84E1:46 90 LSR $90 ; LSR 16-bit $8F-$90 0x0184F3|$06:$84E3:66 8F ROR $8F 0x0184F5|$06:$84E5:46 90 LSR $90 ; LSR 16-bit $8F-$90 0x0184F7|$06:$84E7:66 8F ROR $8F 0x0184F9|$06:$84E9:B9 FC 9F LDA $9FFC,Y ; Item Prices, low byte 0x0184FC|$06:$84EC:38 SEC 0x0184FD|$06:$84ED:E5 8F SBC $8F 0x0184FF|$06:$84EF:85 8F STA $8F 0x018501|$06:$84F1:B9 FD 9F LDA $9FFD,Y ; Item Prices, high byte 0x018504|$06:$84F4:E5 90 SBC $90 0x018506|$06:$84F6:85 90 STA $90 ; at this point item sell price is 75% of base price 0x018508|$06:$84F8:A5 8F LDA $8F ; check if sell price is zero 0x01850A|$06:$84FA:05 90 ORA $90 0x01850C|$06:$84FC:D0 12 BNE $8510 ; sell price of zero => key item ; call to code in a different bank ($0F:$FA2E) 0x01850E|$06:$84FE:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018511|$06:$8501:75 ; String ID #$0175: ‘Sorry, friend, but I cannot buy that[.’][wait][end-FC] ; data -> code ; control flow target (from $8523, $8544, $854B) ; call to code in a different bank ($0F:$FA2E) 0x018512|$06:$8502:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018515|$06:$8505:79 ; String ID #$0179: ‘Art thou going to sell more?’[FD][FD][end-FC] ; data -> code 0x018516|$06:$8506:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x018519|$06:$8509:C9 00 CMP #$00 ; YES 0x01851B|$06:$850B:D0 A7 BNE $84B4 ; finish item transaction 0x01851D|$06:$850D:4C 9C 84 JMP $849C ; control flow target (from $84FC) 0x018520|$06:$8510:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs 0x018522|$06:$8512:85 95 STA $95 ; ID for [item] and [spell] control codes ; call to code in a different bank ($0F:$FA2E) 0x018524|$06:$8514:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018527|$06:$8517:76 ; String ID #$0176: ‘Thy [item]? Well, I'll give thee [number] piece[(s)] of gold for that[.’][FD][FD][end-FC] ; data -> code 0x018528|$06:$8518:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x01852B|$06:$851B:C9 00 CMP #$00 ; YES 0x01852D|$06:$851D:F0 07 BEQ $8526 ; call to code in a different bank ($0F:$FA2E) 0x01852F|$06:$851F:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018532|$06:$8522:77 ; String ID #$0177: ‘That's too bad[.’][wait][end-FC] ; data -> code 0x018533|$06:$8523:4C 02 85 JMP $8502 ; control flow target (from $851D) 0x018536|$06:$8526:A6 49 LDX $49 ; object hero/target/item/string ID $49 0x018538|$06:$8528:20 0F 8B JSR $8B0F ; given hero ID in $97 and hero inventory index in X, return corresponding item ID in A and party inventory index in X 0x01853B|$06:$852B:8A TXA ; don't care about the item ID, just want the party inventory ID 0x01853C|$06:$852C:A8 TAY 0x01853D|$06:$852D:20 23 8B JSR $8B23 ; given party inventory index in Y, CLC and return equipped item ID in A if corresponding item is equipped and cursed, SEC and return unequipped item ID in A otherwise 0x018540|$06:$8530:90 15 BCC $8547 ; call to code in a different bank ($0F:$FA2E) 0x018542|$06:$8532:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018545|$06:$8535:78 ; String ID #$0178: ‘I thank thee[.’][wait][end-FC] ; data -> code 0x018546|$06:$8536:20 F5 8C JSR $8CF5 ; add $8F-$90 to party gold, capped at $FFFF 0x018549|$06:$8539:A5 97 LDA $97 ; subject hero ID $97 0x01854B|$06:$853B:A6 49 LDX $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$C4D4) 0x01854D|$06:$853D:20 D4 C4 JSR $C4D4 ; given hero ID in A and hero inventory offset in X, remove that item from hero's inventory and move all lower items up 1 slot ; call to code in a different bank ($0F:$EB76) 0x018550|$06:$8540:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x018553|$06:$8543:1B ; Menu ID #$1B: Shop menu: current gold ; data -> code 0x018554|$06:$8544:4C 02 85 JMP $8502 ; control flow target (from $8530) ; call to code in a different bank ($0F:$FA2E) 0x018557|$06:$8547:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01855A|$06:$854A:7A ; String ID #$017A: ‘I fear it won't come off due to the curse[.’][wait][end-FC] ; data -> code 0x01855B|$06:$854B:4C 02 85 JMP $8502 ; handler for dialogue ID #$27 (House of Healing) ; control flow target (from $81E2) 0x01855E|$06:$854E:38 SEC 0x01855F|$06:$854F:E9 27 SBC #$27 ; LDA #$00 would have been shorter and faster 0x018561|$06:$8551:85 49 STA $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$F6F0) 0x018563|$06:$8553:20 F0 F6 JSR $F6F0 ; open main dialogue window and display string ID specified by byte following JSR + #$0100 ; code -> data ; indirect data load target 0x018566|$06:$8556:81 ; String ID #$0181: ‘Welcome to the House of Healing[.’][wait][end-FC] ; data -> code ; control flow target (from $8573) ; call to code in a different bank ($0F:$FA2E) 0x018567|$06:$8557:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01856A|$06:$855A:82 ; String ID #$0182: ‘What service dost thou require?’[FD][FD][end-FC] ; data -> code ; call to code in a different bank ($0F:$EB76) 0x01856B|$06:$855B:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x01856E|$06:$855E:1A ; Menu ID #$1A: Priest menu: DETOXICATE/UNCURSE/REVIVAL ; data -> code 0x01856F|$06:$855F:C9 FF CMP #$FF 0x018571|$06:$8561:D0 14 BNE $8577 ; finish conversation ; control flow target (from $8575, $858E, $85D9, $8632) ; call to code in a different bank ($0F:$FA2E) 0x018573|$06:$8563:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018576|$06:$8566:88 ; String ID #$0188: ‘Good luck and hey, let's be careful out there[.’][end-FC] ; data -> code 0x018577|$06:$8567:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; repeat service loop ; control flow target (from $85A0, $85BD, $85F7, $8619, $8645, $866F, $869A) ; call to code in a different bank ($0F:$FA2E) 0x01857A|$06:$856A:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01857D|$06:$856D:87 ; String ID #$0187: ‘Can I do anything else for thee?’[FD][FD][end-FC] ; data -> code 0x01857E|$06:$856E:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x018581|$06:$8571:C9 00 CMP #$00 ; YES 0x018583|$06:$8573:F0 E2 BEQ $8557 0x018585|$06:$8575:D0 EC BNE $8563 ; finish conversation ; control flow target (from $8561) 0x018587|$06:$8577:C9 00 CMP #$00 ; DETOXICATE 0x018589|$06:$8579:F0 03 BEQ $857E ; DETOXICATE handler 0x01858B|$06:$857B:4C C0 85 JMP $85C0 ; DETOXICATE handler ; control flow target (from $8579) ; call to code in a different bank ($0F:$F6CE) 0x01858E|$06:$857E:20 CE F6 JSR $F6CE ; return number of party members - 1 in A/X 0x018591|$06:$8581:C9 00 CMP #$00 0x018593|$06:$8583:F0 0B BEQ $8590 ; if Midenhall is alone, no need to ask for target hero ; call to code in a different bank ($0F:$FA2E) 0x018595|$06:$8585:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018598|$06:$8588:83 ; String ID #$0183: ‘Who is the patient?’[FD][FD][end-FC] ; data -> code ; call to code in a different bank ($0F:$F595) 0x018599|$06:$8589:20 95 F5 JSR $F595 ; display appropriate shop BUY/SELL hero select menu 0x01859C|$06:$858C:C9 FF CMP #$FF 0x01859E|$06:$858E:F0 D3 BEQ $8563 ; finish conversation ; control flow target (from $8583) 0x0185A0|$06:$8590:85 97 STA $97 ; subject hero ID $97 0x0185A2|$06:$8592:A9 20 LDA #$20 ; Poison 0x0185A4|$06:$8594:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x0185A7|$06:$8597:B0 0A BCS $85A3 0x0185A9|$06:$8599:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x0185AC|$06:$859C:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0185AF|$06:$859F:84 ; String ID #$0184: ‘Good news, [name] has not been poisoned[.’][wait][end-FC] ; data -> code 0x0185B0|$06:$85A0:4C 6A 85 JMP $856A ; repeat service loop ; control flow target (from $8597) 0x0185B3|$06:$85A3:A9 02 LDA #$02 ; DETOXICATE fee is hero level * 2 0x0185B5|$06:$85A5:20 A4 86 JSR $86A4 ; given hero ID in $97, multiply A by that hero's level, store results in ($10-$11) and ($8F-$90); consumes $0C 0x0185B8|$06:$85A8:20 79 86 JSR $8679 ; try to collect payment for House of Healing service; refusal or insufficient gold pops JSP return address and jumps to repeat service loop at $06:$856A ; call to code in a different bank ($0F:$FA2E) 0x0185BB|$06:$85AB:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0185BE|$06:$85AE:86 ; String ID #$0186: ‘Now I will administer the antidote to [name].[line]Stand still, please[.’][wait][end-FC] ; data -> code ; call to code in a different bank ($0F:$C515) 0x0185BF|$06:$85AF:20 15 C5 JSR $C515 ; flash screen 10 times 0x0185C2|$06:$85B2:20 AA 8D JSR $8DAA ; given hero ID in $97, set Y to start of hero's data in $062D,Y, i.e. Y = $97 * #$12 0x0185C5|$06:$85B5:B9 2D 06 LDA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x0185C8|$06:$85B8:29 DF AND #$DF ; clear Poison 0x0185CA|$06:$85BA:99 2D 06 STA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x0185CD|$06:$85BD:4C 6A 85 JMP $856A ; repeat service loop ; control flow target (from $857B) 0x0185D0|$06:$85C0:C9 01 CMP #$01 ; UNCURSE 0x0185D2|$06:$85C2:F0 03 BEQ $85C7 ; UNCURSE handler 0x0185D4|$06:$85C4:4C 20 86 JMP $8620 ; REVIVAL handler ; UNCURSE handler ; control flow target (from $85C2) ; call to code in a different bank ($0F:$F6CE) 0x0185D7|$06:$85C7:20 CE F6 JSR $F6CE ; return number of party members - 1 in A/X 0x0185DA|$06:$85CA:C9 00 CMP #$00 0x0185DC|$06:$85CC:F0 0E BEQ $85DC ; if Midenhall is alone, no need to ask for target hero ; call to code in a different bank ($0F:$FA2E) 0x0185DE|$06:$85CE:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0185E1|$06:$85D1:8B ; String ID #$018B: ‘A curse is it?[line]Who needs the cure?’[FD][FD][end-FC] ; data -> code ; call to code in a different bank ($0F:$F595) 0x0185E2|$06:$85D2:20 95 F5 JSR $F595 ; display appropriate shop BUY/SELL hero select menu 0x0185E5|$06:$85D5:C9 FF CMP #$FF 0x0185E7|$06:$85D7:D0 03 BNE $85DC 0x0185E9|$06:$85D9:4C 63 85 JMP $8563 ; finish conversation ; control flow target (from $85CC, $85D7) 0x0185EC|$06:$85DC:85 97 STA $97 ; subject hero ID $97 0x0185EE|$06:$85DE:A9 04 LDA #$04 ; there are 4 cursed items in the game 0x0185F0|$06:$85E0:85 0C STA $0C ; control flow target (from $85EE) 0x0185F2|$06:$85E2:A4 0C LDY $0C 0x0185F4|$06:$85E4:B9 1B 86 LDA $861B,Y ; list of cursed items (equipped), built in offset from $861C 0x0185F7|$06:$85E7:20 BA 8D JSR $8DBA ; given a hero ID in $97 and an item ID in A, SEC if hero has that item, CLC otherwise 0x0185FA|$06:$85EA:B0 0E BCS $85FA 0x0185FC|$06:$85EC:C6 0C DEC $0C 0x0185FE|$06:$85EE:D0 F2 BNE $85E2 ; loop to check next cursed item 0x018600|$06:$85F0:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x018603|$06:$85F3:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018606|$06:$85F6:8C ; String ID #$018C: ‘Hmmm. No. [name] is not cursed[.’][wait][end-FC] ; data -> code 0x018607|$06:$85F7:4C 6A 85 JMP $856A ; repeat service loop ; control flow target (from $85EA) 0x01860A|$06:$85FA:A9 64 LDA #$64 ; UNCURSE fee is hero level * 100 0x01860C|$06:$85FC:20 A4 86 JSR $86A4 ; given hero ID in $97, multiply A by that hero's level, store results in ($10-$11) and ($8F-$90); consumes $0C 0x01860F|$06:$85FF:20 79 86 JSR $8679 ; try to collect payment for House of Healing service; refusal or insufficient gold pops JSP return address and jumps to repeat service loop at $06:$856A ; call to code in a different bank ($0F:$FA2E) 0x018612|$06:$8602:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018615|$06:$8605:8D ; String ID #$018D: ‘A curse is like a virus, of course. This medicine should remove it[.’][end-FC] ; data -> code ; call to code in a different bank ($0F:$C515) 0x018616|$06:$8606:20 15 C5 JSR $C515 ; flash screen 10 times 0x018619|$06:$8609:A9 04 LDA #$04 ; there are 4 cursed items in the game 0x01861B|$06:$860B:85 0C STA $0C ; control flow target (from $8617) 0x01861D|$06:$860D:A4 0C LDY $0C 0x01861F|$06:$860F:B9 1B 86 LDA $861B,Y ; list of cursed items (equipped), built in offset from $861C 0x018622|$06:$8612:20 C3 8D JSR $8DC3 ; given a hero ID in $97 and an item ID in A, remove that item from hero's inventory if present and SEC, CLC otherwise 0x018625|$06:$8615:C6 0C DEC $0C 0x018627|$06:$8617:D0 F4 BNE $860D ; loop to keep removing cursed items 0x018629|$06:$8619:4C 6A ; list of cursed items (equipped), built in offset from $861C ; indexed data load target (from $85E4, $860F, $8AC8) 0x01862B|$06:$861B: 85 JMP $856A ; repeat service loop ; code -> data ; list of equipped cursed items ; indexed data load target (from $8B28) 0x01862C|$06:$861C:6F ; Item ID #$6F: Gremlin’s Tail (equipped) 0x01862D|$06:$861D:4C ; Item ID #$4C: Sword of Destruction (equipped) 0x01862E|$06:$861E:57 ; Item ID #$57: Gremlin’s Armor (equipped) 0x01862F|$06:$861F:5F ; Item ID #$5F: Evil Shield (equipped) ; data -> code ; REVIVAL handler ; control flow target (from $85C4) ; call to code in a different bank ($0F:$F6CE) 0x018630|$06:$8620:20 CE F6 JSR $F6CE ; return number of party members - 1 in A/X 0x018633|$06:$8623:C9 00 CMP #$00 ; if Midenhall is alone, no need to ask for target hero 0x018635|$06:$8625:F0 0E BEQ $8635 ; call to code in a different bank ($0F:$FA2E) 0x018637|$06:$8627:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01863A|$06:$862A:8E ; String ID #$018E: ‘Whom shall I revive?’[FD][FD][end-FC] ; data -> code ; call to code in a different bank ($0F:$F595) 0x01863B|$06:$862B:20 95 F5 JSR $F595 ; display appropriate shop BUY/SELL hero select menu 0x01863E|$06:$862E:C9 FF CMP #$FF 0x018640|$06:$8630:D0 03 BNE $8635 0x018642|$06:$8632:4C 63 85 JMP $8563 ; finish conversation ; control flow target (from $8625, $8630) 0x018645|$06:$8635:85 97 STA $97 ; subject hero ID $97 0x018647|$06:$8637:A9 80 LDA #$80 ; Alive 0x018649|$06:$8639:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x01864C|$06:$863C:90 0A BCC $8648 0x01864E|$06:$863E:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x018651|$06:$8641:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018654|$06:$8644:8F ; String ID #$018F: ‘There, I think [name] will live now[.’][wait][end-FC] ; data -> code 0x018655|$06:$8645:4C 6A 85 JMP $856A ; repeat service loop ; control flow target (from $863C) 0x018658|$06:$8648:A9 14 LDA #$14 ; REVIVAL fee is hero level * 20 0x01865A|$06:$864A:20 A4 86 JSR $86A4 ; given hero ID in $97, multiply A by that hero's level, store results in ($10-$11) and ($8F-$90); consumes $0C 0x01865D|$06:$864D:20 79 86 JSR $8679 ; try to collect payment for House of Healing service; refusal or insufficient gold pops JSP return address and jumps to repeat service loop at $06:$856A ; call to code in a different bank ($0F:$FA2E) 0x018660|$06:$8650:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018663|$06:$8653:90 ; String ID #$0190: ‘This is a very delicate operation[.’][wait][line]‘It may take a little while[.’][FD][FD][end-FC] ; data -> code 0x018664|$06:$8654:A9 02 LDA #$02 ; Music ID #$02: revive BGM ; call to code in a different bank ($0F:$C58D) 0x018666|$06:$8656:20 8D C5 JSR $C58D ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM 0x018669|$06:$8659:20 AA 8D JSR $8DAA ; given hero ID in $97, set Y to start of hero's data in $062D,Y, i.e. Y = $97 * #$12 0x01866C|$06:$865C:B9 2D 06 LDA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x01866F|$06:$865F:09 80 ORA #$80 ; Alive 0x018671|$06:$8661:99 2D 06 STA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x018674|$06:$8664:A9 01 LDA #$01 ; revived with 1 HP 0x018676|$06:$8666:99 3B 06 STA $063B,Y ; Midenhall Current HP, low byte ; call to code in a different bank ($0F:$D302) 0x018679|$06:$8669:20 02 D3 JSR $D302 ; call to code in a different bank ($0F:$C22C) 0x01867C|$06:$866C:20 2C C2 JSR $C22C 0x01867F|$06:$866F:4C 6A 85 JMP $856A ; repeat service loop ; call to code in a different bank ($0F:$FA2E) 0x018682|$06:$8672:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data 0x018685|$06:$8675:91 ; String ID #$0191: ‘[name] cannot be equipped with the [item]. Is it all right?’[end-FC] ; data -> code 0x018686|$06:$8676:4C 7D 86 JMP $867D ; try to collect payment for House of Healing service; refusal or insufficient gold pops JSP return address and jumps to repeat service loop at $06:$856A ; control flow target (from $85A8, $85FF, $864D) ; call to code in a different bank ($0F:$FA2E) 0x018689|$06:$8679:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01868C|$06:$867C:85 ; String ID #$0185: ‘The fee is [number] piece[(s)] of gold.[line]Will thou pay?’[FD][FD][end-FC] ; data -> code ; control flow target (from $8676) ; call to code in a different bank ($0F:$EB76) 0x01868D|$06:$867D:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x018690|$06:$8680:1B ; Menu ID #$1B: Shop menu: current gold ; data -> code 0x018691|$06:$8681:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x018694|$06:$8684:C9 00 CMP #$00 ; YES 0x018696|$06:$8686:D0 0C BNE $8694 0x018698|$06:$8688:20 31 8D JSR $8D31 ; given gold amount in $8F-$90, decrease party gold by that amount and SEC if possible, CLC otherwise 0x01869B|$06:$868B:90 10 BCC $869D ; call to code in a different bank ($0F:$EB76) 0x01869D|$06:$868D:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x0186A0|$06:$8690:1B ; Menu ID #$1B: Shop menu: current gold ; data -> code 0x0186A1|$06:$8691:4C 25 8D JMP $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; control flow target (from $8686) ; call to code in a different bank ($0F:$FA2E) 0x0186A4|$06:$8694:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0186A7|$06:$8697:89 ; String ID #$0189: ‘Come now, dost thou think leeches grow on trees?’[wait][line]‘I have expenses, taxes to pay, a wife, two kids, and a brand new cow[.’][wait][end-FC] ; data -> code ; control flow target (from $86A1) 0x0186A8|$06:$8698:68 PLA 0x0186A9|$06:$8699:68 PLA 0x0186AA|$06:$869A:4C 6A 85 JMP $856A ; repeat service loop ; control flow target (from $868B) ; call to code in a different bank ($0F:$FA2E) 0x0186AD|$06:$869D:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0186B0|$06:$86A0:8A ; String ID #$018A: ‘What's this?[line]Thou hast no gold?[line]Well then get some!’[wait][end-FC] ; data -> code 0x0186B1|$06:$86A1:4C 98 86 JMP $8698 ; given hero ID in $97, multiply A by that hero's level, store results in ($10-$11) and ($8F-$90); consumes $0C ; control flow target (from $85A5, $85FC, $864A) 0x0186B4|$06:$86A4:85 0C STA $0C 0x0186B6|$06:$86A6:20 AA 8D JSR $8DAA ; given hero ID in $97, set Y to start of hero's data in $062D,Y, i.e. Y = $97 * #$12 0x0186B9|$06:$86A9:B9 3E 06 LDA $063E,Y ; Midenhall Level ; multiply A by $0C, store results in ($10-$11) and ($8F-$90); consumes $0C ; control flow target (from $822B) 0x0186BC|$06:$86AC:85 0E STA $0E 0x0186BE|$06:$86AE:A9 00 LDA #$00 0x0186C0|$06:$86B0:85 0D STA $0D 0x0186C2|$06:$86B2:85 0F STA $0F ; call to code in a different bank ($0F:$C339) 0x0186C4|$06:$86B4:20 39 C3 JSR $C339 ; 16-bit multiplication: ($10-$11) = ($0C-$0D) * ($0E-$0F); consumes $0C-$0F 0x0186C7|$06:$86B7:A5 10 LDA $10 0x0186C9|$06:$86B9:85 8F STA $8F 0x0186CB|$06:$86BB:A5 11 LDA $11 0x0186CD|$06:$86BD:85 90 STA $90 0x0186CF|$06:$86BF:60 RTS ; handler for dialogue ID #$28 (Lottery) ; control flow target (from $81E9) ; call to code in a different bank ($0F:$F6F0) 0x0186D0|$06:$86C0:20 F0 F6 JSR $F6F0 ; open main dialogue window and display string ID specified by byte following JSR + #$0100 ; code -> data ; indirect data load target 0x0186D3|$06:$86C3:94 ; String ID #$0194: ‘Step right up and welcome to the Lottery.[line]Art thou going to play?’[FD][FD][end-FC] ; data -> code 0x0186D4|$06:$86C4:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x0186D7|$06:$86C7:C9 00 CMP #$00 ; YES 0x0186D9|$06:$86C9:F0 0A BEQ $86D5 ; finish lottery conversation ; control flow target (from $86E2, $870B, $8723, $873C) ; call to code in a different bank ($0F:$FA2E) 0x0186DB|$06:$86CB:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0186DE|$06:$86CE:95 ; String ID #$0195: ‘Well, perhaps some other time[.’][end-FC] ; data -> code 0x0186DF|$06:$86CF:20 05 89 JSR $8905 0x0186E2|$06:$86D2:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; control flow target (from $86C9) 0x0186E5|$06:$86D5:A9 33 LDA #$33 ; Item ID #$33: Lottery Ticket 0x0186E7|$06:$86D7:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x0186EA|$06:$86DA:C9 FF CMP #$FF 0x0186EC|$06:$86DC:D0 07 BNE $86E5 ; call to code in a different bank ($0F:$FA2E) 0x0186EE|$06:$86DE:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0186F1|$06:$86E1:96 ; String ID #$0196: ‘I'm afraid thou must have a Lottery Ticket[.’][wait][end-FC] ; data -> code 0x0186F2|$06:$86E2:4C CB 86 JMP $86CB ; finish lottery conversation ; control flow target (from $86DC) 0x0186F5|$06:$86E5:4A LSR ; convert party inventory index to hero ID 0x0186F6|$06:$86E6:4A LSR 0x0186F7|$06:$86E7:4A LSR 0x0186F8|$06:$86E8:85 97 STA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$FA2E) 0x0186FA|$06:$86EA:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0186FD|$06:$86ED:97 ; String ID #$0197: ‘Dost thou wish to hear how the game is played?’[FD][FD][end-FC] ; data -> code 0x0186FE|$06:$86EE:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x018701|$06:$86F1:C9 00 CMP #$00 ; YES 0x018703|$06:$86F3:D0 04 BNE $86F9 ; call to code in a different bank ($0F:$FA2E) 0x018705|$06:$86F5:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018708|$06:$86F8:98 ; String ID #$0198: ‘As the Lottery wheels spin, push thy controller button to stop them[.’][wait][line]‘Three [sun] marks win the first prize--a Golden Card[.’][wait][line]‘Three [star] marks win the second prize--the Wizard's Ring[.’][wait][line][FD][FD]‘There may be further prizes, too[.’][wait][end-FC] ; data -> code ; control flow target (from $86F3) 0x018709|$06:$86F9:20 44 87 JSR $8744 ; call to code in a different bank ($0F:$FA2E) 0x01870C|$06:$86FC:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01870F|$06:$86FF:99 ; String ID #$0199: ‘Let's play now!’[FD][FD][no voice][no voice][no voice][no voice][no voice][no voice][no voice][sun] [star] [moon][FD][FD][end-FC] ; data -> code 0x018710|$06:$8700:20 78 87 JSR $8778 0x018713|$06:$8703:C9 05 CMP #$05 0x018715|$06:$8705:D0 07 BNE $870E ; call to code in a different bank ($0F:$FA2E) 0x018717|$06:$8707:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01871A|$06:$870A:9C ; String ID #$019C: [wait]‘That was close.[line]As a consolation prize I'll give thee a lottery ticket[.’][wait][end-FC] ; data -> code 0x01871B|$06:$870B:4C CB 86 JMP $86CB ; finish lottery conversation ; control flow target (from $8705) 0x01871E|$06:$870E:85 8F STA $8F ; prize number 0x018720|$06:$8710:A9 00 LDA #$00 0x018722|$06:$8712:85 90 STA $90 0x018724|$06:$8714:A9 33 LDA #$33 ; Item ID #$33: Lottery Ticket 0x018726|$06:$8716:20 C3 8D JSR $8DC3 ; given a hero ID in $97 and an item ID in A, remove that item from hero's inventory if present and SEC, CLC otherwise 0x018729|$06:$8719:A5 8F LDA $8F 0x01872B|$06:$871B:C9 FF CMP #$FF 0x01872D|$06:$871D:D0 07 BNE $8726 ; call to code in a different bank ($0F:$FA2E) 0x01872F|$06:$871F:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018732|$06:$8722:9B ; String ID #$019B: [wait]‘Sorry, thou hast lost. Better luck next time[.’][wait][end-FC] ; data -> code 0x018733|$06:$8723:4C CB 86 JMP $86CB ; finish lottery conversation ; control flow target (from $871D) 0x018736|$06:$8726:A8 TAY 0x018737|$06:$8727:B9 3F 87 LDA $873F,Y ; Lottery prizes 0x01873A|$06:$872A:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs 0x01873C|$06:$872C:85 95 STA $95 ; ID for [item] and [spell] control codes 0x01873E|$06:$872E:20 7E 8D JSR $8D7E ; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots 0x018741|$06:$8731:E6 8F INC $8F 0x018743|$06:$8733:A9 06 LDA #$06 ; Music ID #$06: lottery win BGM ; call to code in a different bank ($0F:$C58D) 0x018745|$06:$8735:20 8D C5 JSR $C58D ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM ; call to code in a different bank ($0F:$FA2E) 0x018748|$06:$8738:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01874B|$06:$873B:9A ; String ID #$019A: [wait]‘Congratulations![line]Thou hast won prize number [number], the [item]!’[wait][end-FC] ; data -> code 0x01874C|$06:$873C:4C CB 86 JMP $86CB ; finish lottery conversation ; code -> data ; Lottery prizes ; indexed data load target (from $8727) 0x01874F|$06:$873F:32 ; Item ID #$32: Golden Card 0x018750|$06:$8740:3D ; Item ID #$3D: Wizard’s Ring 0x018751|$06:$8741:03 ; Item ID #$03: Wizard’s Wand 0x018752|$06:$8742:30 ; Item ID #$30: Dragon’s Bane 0x018753|$06:$8743:3C ; Item ID #$3C: Medical Herb ; data -> code ; control flow target (from $86F9) ; call to code in a different bank ($0F:$C3AB) 0x018754|$06:$8744:20 AB C3 JSR $C3AB ; generate a random number and store it in $32-$33 (two passes) 0x018757|$06:$8747:A5 32 LDA $32 ; RNG byte 0 0x018759|$06:$8749:4A LSR 0x01875A|$06:$874A:29 78 AND #$78 0x01875C|$06:$874C:85 DD STA $DD 0x01875E|$06:$874E:A2 00 LDX #$00 0x018760|$06:$8750:20 78 88 JSR $8878 0x018763|$06:$8753:A5 32 LDA $32 ; RNG byte 0 0x018765|$06:$8755:0A ASL 0x018766|$06:$8756:0A ASL 0x018767|$06:$8757:0A ASL 0x018768|$06:$8758:29 78 AND #$78 0x01876A|$06:$875A:85 DF STA $DF 0x01876C|$06:$875C:A2 08 LDX #$08 0x01876E|$06:$875E:20 78 88 JSR $8878 0x018771|$06:$8761:A5 33 LDA $33 ; RNG byte 1 0x018773|$06:$8763:29 78 AND #$78 0x018775|$06:$8765:85 E1 STA $E1 0x018777|$06:$8767:A2 10 LDX #$10 0x018779|$06:$8769:20 78 88 JSR $8878 0x01877C|$06:$876C:A9 00 LDA #$00 0x01877E|$06:$876E:85 DE STA $DE 0x018780|$06:$8770:85 E0 STA $E0 0x018782|$06:$8772:85 E2 STA $E2 0x018784|$06:$8774:20 5B 89 JSR $895B 0x018787|$06:$8777:60 RTS ; control flow target (from $8700) 0x018788|$06:$8778:A9 00 LDA #$00 0x01878A|$06:$877A:85 DC STA $DC 0x01878C|$06:$877C:A5 2F LDA $2F ; joypad 1 data 0x01878E|$06:$877E:29 01 AND #$01 0x018790|$06:$8780:85 DA STA $DA ; control flow target (from $87D5) 0x018792|$06:$8782:A5 DC LDA $DC 0x018794|$06:$8784:29 07 AND #$07 0x018796|$06:$8786:C9 07 CMP #$07 0x018798|$06:$8788:F0 1D BEQ $87A7 ; control flow target (from $8799) 0x01879A|$06:$878A:20 1F 89 JSR $891F 0x01879D|$06:$878D:45 DC EOR $DC 0x01879F|$06:$878F:4A LSR 0x0187A0|$06:$8790:90 02 BCC $8794 0x0187A2|$06:$8792:E6 DC INC $DC ; control flow target (from $8790) 0x0187A4|$06:$8794:A5 DC LDA $DC 0x0187A6|$06:$8796:4A LSR 0x0187A7|$06:$8797:29 03 AND #$03 0x0187A9|$06:$8799:F0 EF BEQ $878A 0x0187AB|$06:$879B:90 0A BCC $87A7 0x0187AD|$06:$879D:0A ASL 0x0187AE|$06:$879E:AA TAX 0x0187AF|$06:$879F:CA DEX 0x0187B0|$06:$87A0:CA DEX 0x0187B1|$06:$87A1:B5 DE LDA $DE,X 0x0187B3|$06:$87A3:09 40 ORA #$40 0x0187B5|$06:$87A5:95 DE STA $DE,X ; control flow target (from $8788, $879B) 0x0187B7|$06:$87A7:A2 00 LDX #$00 ; control flow target (from $87C9) 0x0187B9|$06:$87A9:86 D5 STX $D5 0x0187BB|$06:$87AB:8A TXA 0x0187BC|$06:$87AC:0A ASL 0x0187BD|$06:$87AD:0A ASL 0x0187BE|$06:$87AE:85 D6 STA $D6 0x0187C0|$06:$87B0:B5 DD LDA $DD,X 0x0187C2|$06:$87B2:85 D7 STA $D7 0x0187C4|$06:$87B4:B5 DE LDA $DE,X 0x0187C6|$06:$87B6:85 D8 STA $D8 0x0187C8|$06:$87B8:20 1A 88 JSR $881A 0x0187CB|$06:$87BB:A6 D5 LDX $D5 0x0187CD|$06:$87BD:A5 D7 LDA $D7 0x0187CF|$06:$87BF:95 DD STA $DD,X 0x0187D1|$06:$87C1:A5 D8 LDA $D8 0x0187D3|$06:$87C3:95 DE STA $DE,X 0x0187D5|$06:$87C5:E8 INX 0x0187D6|$06:$87C6:E8 INX 0x0187D7|$06:$87C7:E0 06 CPX #$06 0x0187D9|$06:$87C9:D0 DE BNE $87A9 0x0187DB|$06:$87CB:20 5B 89 JSR $895B 0x0187DE|$06:$87CE:A5 DE LDA $DE 0x0187E0|$06:$87D0:25 E0 AND $E0 0x0187E2|$06:$87D2:25 E2 AND $E2 0x0187E4|$06:$87D4:0A ASL 0x0187E5|$06:$87D5:90 AB BCC $8782 0x0187E7|$06:$87D7:A2 05 LDX #$05 0x0187E9|$06:$87D9:A9 00 LDA #$00 ; control flow target (from $87DF) 0x0187EB|$06:$87DB:9D 62 06 STA $0662,X ; Moonbrooke Level 0x0187EE|$06:$87DE:CA DEX 0x0187EF|$06:$87DF:D0 FA BNE $87DB 0x0187F1|$06:$87E1:A0 00 LDY #$00 ; control flow target (from $87FF) 0x0187F3|$06:$87E3:B6 DD LDX $DD,Y 0x0187F5|$06:$87E5:8A TXA 0x0187F6|$06:$87E6:4A LSR 0x0187F7|$06:$87E7:4A LSR 0x0187F8|$06:$87E8:4A LSR 0x0187F9|$06:$87E9:29 0F AND #$0F 0x0187FB|$06:$87EB:85 D5 STA $D5 0x0187FD|$06:$87ED:98 TYA 0x0187FE|$06:$87EE:0A ASL 0x0187FF|$06:$87EF:0A ASL 0x018800|$06:$87F0:0A ASL 0x018801|$06:$87F1:05 D5 ORA $D5 0x018803|$06:$87F3:AA TAX 0x018804|$06:$87F4:BD D5 88 LDA $88D5,X 0x018807|$06:$87F7:AA TAX 0x018808|$06:$87F8:FE 63 06 INC $0663,X ; monster ID, group 1 0x01880B|$06:$87FB:C8 INY 0x01880C|$06:$87FC:C8 INY 0x01880D|$06:$87FD:C0 06 CPY #$06 0x01880F|$06:$87FF:D0 E2 BNE $87E3 0x018811|$06:$8801:A2 00 LDX #$00 ; control flow target (from $8811) 0x018813|$06:$8803:BD 63 06 LDA $0663,X ; monster ID, group 1 0x018816|$06:$8806:C9 03 CMP #$03 0x018818|$06:$8808:F0 0B BEQ $8815 0x01881A|$06:$880A:C9 02 CMP #$02 0x01881C|$06:$880C:F0 09 BEQ $8817 0x01881E|$06:$880E:E8 INX 0x01881F|$06:$880F:E0 05 CPX #$05 0x018821|$06:$8811:D0 F0 BNE $8803 0x018823|$06:$8813:A2 FF LDX #$FF ; control flow target (from $8808) 0x018825|$06:$8815:8A TXA 0x018826|$06:$8816:60 RTS ; control flow target (from $880C) 0x018827|$06:$8817:A9 05 LDA #$05 0x018829|$06:$8819:60 RTS ; control flow target (from $87B8) 0x01882A|$06:$881A:A5 D8 LDA $D8 0x01882C|$06:$881C:30 51 BMI $886F 0x01882E|$06:$881E:29 07 AND #$07 0x018830|$06:$8820:D0 4B BNE $886D 0x018832|$06:$8822:E6 D7 INC $D7 0x018834|$06:$8824:20 7C 88 JSR $887C 0x018837|$06:$8827:A5 D7 LDA $D7 0x018839|$06:$8829:29 07 AND #$07 0x01883B|$06:$882B:D0 2C BNE $8859 0x01883D|$06:$882D:A9 85 LDA #$85 ; Music ID #$85: single beep SFX ; call to code in a different bank ($0F:$C561) 0x01883F|$06:$882F:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) 0x018842|$06:$8832:A5 D8 LDA $D8 0x018844|$06:$8834:29 78 AND #$78 0x018846|$06:$8836:C9 40 CMP #$40 0x018848|$06:$8838:90 1F BCC $8859 0x01884A|$06:$883A:C9 78 CMP #$78 0x01884C|$06:$883C:B0 14 BCS $8852 0x01884E|$06:$883E:18 CLC 0x01884F|$06:$883F:69 08 ADC #$08 0x018851|$06:$8841:85 D8 STA $D8 0x018853|$06:$8843:29 20 AND #$20 0x018855|$06:$8845:F0 12 BEQ $8859 ; call to code in a different bank ($0F:$C3AB) 0x018857|$06:$8847:20 AB C3 JSR $C3AB ; generate a random number and store it in $32-$33 (two passes) 0x01885A|$06:$884A:A5 32 LDA $32 ; RNG byte 0 0x01885C|$06:$884C:45 D8 EOR $D8 0x01885E|$06:$884E:29 18 AND #$18 0x018860|$06:$8850:D0 07 BNE $8859 ; control flow target (from $883C) 0x018862|$06:$8852:A5 D8 LDA $D8 0x018864|$06:$8854:09 80 ORA #$80 0x018866|$06:$8856:85 D8 STA $D8 0x018868|$06:$8858:60 RTS ; control flow target (from $882B, $8838, $8845, $8850) 0x018869|$06:$8859:A5 D8 LDA $D8 0x01886B|$06:$885B:29 78 AND #$78 0x01886D|$06:$885D:85 D8 STA $D8 0x01886F|$06:$885F:4A LSR 0x018870|$06:$8860:4A LSR 0x018871|$06:$8861:4A LSR 0x018872|$06:$8862:29 07 AND #$07 0x018874|$06:$8864:AA TAX 0x018875|$06:$8865:BD 70 88 LDA $8870,X 0x018878|$06:$8868:05 D8 ORA $D8 0x01887A|$06:$886A:85 D8 STA $D8 0x01887C|$06:$886C:60 RTS ; control flow target (from $8820) 0x01887D|$06:$886D:C6 D8 DEC $D8 ; control flow target (from $881C) 0x01887F|$06:$886F:60 RTS ; code -> data ; indexed data load target (from $8865) 0x018880|$06:$8870:00 0x018881|$06:$8871:01 0x018882|$06:$8872:01 0x018883|$06:$8873:02 0x018884|$06:$8874:02 0x018885|$06:$8875:03 0x018886|$06:$8876:04 0x018887|$06:$8877:07 ; data -> code ; control flow target (from $8750, $875E, $8769) 0x018888|$06:$8878:86 D6 STX $D6 0x01888A|$06:$887A:85 D7 STA $D7 ; control flow target (from $8824) 0x01888C|$06:$887C:A5 D6 LDA $D6 0x01888E|$06:$887E:0A ASL 0x01888F|$06:$887F:85 D9 STA $D9 0x018891|$06:$8881:A5 D7 LDA $D7 0x018893|$06:$8883:4A LSR 0x018894|$06:$8884:4A LSR 0x018895|$06:$8885:4A LSR 0x018896|$06:$8886:29 0F AND #$0F 0x018898|$06:$8888:05 D9 ORA $D9 0x01889A|$06:$888A:AA TAX 0x01889B|$06:$888B:A5 D7 LDA $D7 0x01889D|$06:$888D:29 07 AND #$07 0x01889F|$06:$888F:85 D9 STA $D9 0x0188A1|$06:$8891:BD D5 88 LDA $88D5,X 0x0188A4|$06:$8894:0A ASL 0x0188A5|$06:$8895:0A ASL 0x0188A6|$06:$8896:0A ASL 0x0188A7|$06:$8897:18 CLC 0x0188A8|$06:$8898:65 D9 ADC $D9 0x0188AA|$06:$889A:AA TAX 0x0188AB|$06:$889B:A4 D6 LDY $D6 ; control flow target (from $88A8) 0x0188AD|$06:$889D:BD A2 89 LDA $89A2,X 0x0188B0|$06:$88A0:99 63 06 STA $0663,Y ; monster ID, group 1 0x0188B3|$06:$88A3:C8 INY 0x0188B4|$06:$88A4:E8 INX 0x0188B5|$06:$88A5:8A TXA 0x0188B6|$06:$88A6:29 07 AND #$07 0x0188B8|$06:$88A8:D0 F3 BNE $889D 0x0188BA|$06:$88AA:A5 D9 LDA $D9 0x0188BC|$06:$88AC:F0 26 BEQ $88D4 0x0188BE|$06:$88AE:A5 D6 LDA $D6 0x0188C0|$06:$88B0:0A ASL 0x0188C1|$06:$88B1:85 D9 STA $D9 0x0188C3|$06:$88B3:A5 D7 LDA $D7 0x0188C5|$06:$88B5:4A LSR 0x0188C6|$06:$88B6:4A LSR 0x0188C7|$06:$88B7:4A LSR 0x0188C8|$06:$88B8:18 CLC 0x0188C9|$06:$88B9:69 01 ADC #$01 0x0188CB|$06:$88BB:29 0F AND #$0F 0x0188CD|$06:$88BD:05 D9 ORA $D9 0x0188CF|$06:$88BF:AA TAX 0x0188D0|$06:$88C0:BD D5 88 LDA $88D5,X 0x0188D3|$06:$88C3:0A ASL 0x0188D4|$06:$88C4:0A ASL 0x0188D5|$06:$88C5:0A ASL 0x0188D6|$06:$88C6:AA TAX ; control flow target (from $88D2) 0x0188D7|$06:$88C7:BD A2 89 LDA $89A2,X 0x0188DA|$06:$88CA:99 63 06 STA $0663,Y ; monster ID, group 1 0x0188DD|$06:$88CD:E8 INX 0x0188DE|$06:$88CE:C8 INY 0x0188DF|$06:$88CF:98 TYA 0x0188E0|$06:$88D0:29 07 AND #$07 0x0188E2|$06:$88D2:D0 F3 BNE $88C7 ; control flow target (from $88AC) 0x0188E4|$06:$88D4:60 RTS ; code -> data ; indexed data load target (from $87F4, $8891, $88C0) 0x0188E5|$06:$88D5:04 0x0188E6|$06:$88D6:03 0x0188E7|$06:$88D7:02 0x0188E8|$06:$88D8:04 0x0188E9|$06:$88D9:00 0x0188EA|$06:$88DA:04 0x0188EB|$06:$88DB:01 0x0188EC|$06:$88DC:04 0x0188ED|$06:$88DD:02 0x0188EE|$06:$88DE:03 0x0188EF|$06:$88DF:04 0x0188F0|$06:$88E0:01 0x0188F1|$06:$88E1:03 0x0188F2|$06:$88E2:04 0x0188F3|$06:$88E3:02 0x0188F4|$06:$88E4:03 0x0188F5|$06:$88E5:02 0x0188F6|$06:$88E6:04 0x0188F7|$06:$88E7:03 0x0188F8|$06:$88E8:01 0x0188F9|$06:$88E9:04 0x0188FA|$06:$88EA:00 0x0188FB|$06:$88EB:02 0x0188FC|$06:$88EC:04 0x0188FD|$06:$88ED:01 0x0188FE|$06:$88EE:03 0x0188FF|$06:$88EF:04 0x018900|$06:$88F0:03 0x018901|$06:$88F1:01 0x018902|$06:$88F2:04 0x018903|$06:$88F3:00 0x018904|$06:$88F4:04 0x018905|$06:$88F5:04 0x018906|$06:$88F6:00 0x018907|$06:$88F7:04 0x018908|$06:$88F8:02 0x018909|$06:$88F9:01 0x01890A|$06:$88FA:04 0x01890B|$06:$88FB:03 0x01890C|$06:$88FC:02 0x01890D|$06:$88FD:04 0x01890E|$06:$88FE:03 0x01890F|$06:$88FF:01 0x018910|$06:$8900:04 0x018911|$06:$8901:02 0x018912|$06:$8902:03 0x018913|$06:$8903:04 0x018914|$06:$8904:03 ; data -> code ; control flow target (from $86CF, $890A) ; call to code in a different bank ($0F:$C1DC) 0x018915|$06:$8905:20 DC C1 JSR $C1DC ; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF 0x018918|$06:$8908:A5 02 LDA $02 0x01891A|$06:$890A:D0 F9 BNE $8905 0x01891C|$06:$890C:A9 05 LDA #$05 0x01891E|$06:$890E:85 08 STA $08 0x018920|$06:$8910:AD 1D 89 LDA $891D 0x018923|$06:$8913:85 D7 STA $D7 0x018925|$06:$8915:AD 1E 89 LDA $891E 0x018928|$06:$8918:85 D8 STA $D8 0x01892A|$06:$891A:4C 73 89 JMP $8973 ; code -> data ; data load target (from $8910) 0x01892D|$06:$891D:A2 ; data load target (from $8915) 0x01892E|$06:$891E: 89 ; $06:$89A2 ; data -> code ; control flow target (from $878A) 0x01892F|$06:$891F:A2 20 LDX #$20 0x018931|$06:$8921:A5 DC LDA $DC 0x018933|$06:$8923:29 06 AND #$06 0x018935|$06:$8925:D0 07 BNE $892E 0x018937|$06:$8927:85 DB STA $DB ; call to code in a different bank ($0F:$C1DC) 0x018939|$06:$8929:20 DC C1 JSR $C1DC ; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF 0x01893C|$06:$892C:A2 08 LDX #$08 ; control flow target (from $8925) 0x01893E|$06:$892E:86 DB STX $DB ; call to code in a different bank ($0F:$C476) 0x018940|$06:$8930:20 76 C4 JSR $C476 ; read joypad 1 data into $2F 0x018943|$06:$8933:A5 2F LDA $2F ; joypad 1 data 0x018945|$06:$8935:45 DA EOR $DA 0x018947|$06:$8937:4A LSR 0x018948|$06:$8938:90 07 BCC $8941 0x01894A|$06:$893A:A5 2F LDA $2F ; joypad 1 data 0x01894C|$06:$893C:29 01 AND #$01 0x01894E|$06:$893E:85 DA STA $DA 0x018950|$06:$8940:60 RTS ; control flow target (from $8938) 0x018951|$06:$8941:A5 DC LDA $DC 0x018953|$06:$8943:18 CLC 0x018954|$06:$8944:69 08 ADC #$08 0x018956|$06:$8946:85 DC STA $DC 0x018958|$06:$8948:90 10 BCC $895A 0x01895A|$06:$894A:E6 DA INC $DA 0x01895C|$06:$894C:E6 DA INC $DA 0x01895E|$06:$894E:A5 DA LDA $DA 0x018960|$06:$8950:C5 DB CMP $DB 0x018962|$06:$8952:90 06 BCC $895A 0x018964|$06:$8954:49 01 EOR #$01 0x018966|$06:$8956:29 01 AND #$01 0x018968|$06:$8958:85 DA STA $DA ; control flow target (from $8948, $8952) 0x01896A|$06:$895A:60 RTS ; control flow target (from $8774, $87CB, $8962) 0x01896B|$06:$895B:A5 02 LDA $02 0x01896D|$06:$895D:F0 06 BEQ $8965 ; call to code in a different bank ($0F:$C1DC) 0x01896F|$06:$895F:20 DC C1 JSR $C1DC ; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF 0x018972|$06:$8962:4C 5B 89 JMP $895B ; control flow target (from $895D) 0x018975|$06:$8965:A9 05 LDA #$05 0x018977|$06:$8967:85 08 STA $08 0x018979|$06:$8969:AD 8C 89 LDA $898C 0x01897C|$06:$896C:85 D7 STA $D7 0x01897E|$06:$896E:AD 8D 89 LDA $898D 0x018981|$06:$8971:85 D8 STA $D8 ; control flow target (from $891A) 0x018983|$06:$8973:A9 A0 LDA #$A0 0x018985|$06:$8975:A0 00 LDY #$00 0x018987|$06:$8977:20 8E 89 JSR $898E 0x01898A|$06:$897A:A9 B0 LDA #$B0 0x01898C|$06:$897C:A0 08 LDY #$08 0x01898E|$06:$897E:20 8E 89 JSR $898E 0x018991|$06:$8981:A9 C0 LDA #$C0 0x018993|$06:$8983:A0 10 LDY #$10 0x018995|$06:$8985:20 8E 89 JSR $898E ; call to code in a different bank ($0F:$C1DC) 0x018998|$06:$8988:20 DC C1 JSR $C1DC ; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF 0x01899B|$06:$898B:60 RTS ; code -> data ; data load target (from $8969) 0x01899C|$06:$898C:63 ; data load target (from $896E) 0x01899D|$06:$898D: 06 ; $06:$0663; monster ID, group 1 ; data -> code ; control flow target (from $8977, $897E, $8985) 0x01899E|$06:$898E:85 07 STA $07 ; control flow target (from $899F) 0x0189A0|$06:$8990:84 D5 STY $D5 0x0189A2|$06:$8992:B1 D7 LDA ($D7),Y 0x0189A4|$06:$8994:85 09 STA $09 ; call to code in a different bank ($0F:$C1FA) 0x0189A6|$06:$8996:20 FA C1 JSR $C1FA ; wait for $02 to not be #$C0, write PPU address in $07-$08 and data in $09 to PPU write buffer at $0300,$02, $01 += 1, $02 += 3, and set $0183 to #$00 0x0189A9|$06:$8999:A4 D5 LDY $D5 0x0189AB|$06:$899B:C8 INY 0x0189AC|$06:$899C:98 TYA 0x0189AD|$06:$899D:29 07 AND #$07 0x0189AF|$06:$899F:D0 EF BNE $8990 0x0189B1|$06:$89A1:60 RTS ; code -> data ; indexed data load target (from $889D, $88C7) ; indirect data load target (via $891D) 0x0189B2|$06:$89A2:10 82 38 7C 7C 38 82 10 0x0189BA|$06:$89AA:10 10 FE 7C 38 7C 6C 82 0x0189C2|$06:$89B2:70 38 1C 1C 1C 1C 38 70 0x0189CA|$06:$89BA:10 10 38 7C FE FE FE 7C 0x0189D2|$06:$89C2:00 6C FE FE 7C 7C 38 10 ; data -> code ; COMMAND menu STATUS command handler ; indirect control flow target (via $808A) ; call to code in a different bank ($0F:$F537) 0x0189DA|$06:$89CA:20 37 F5 JSR $F537 ; display hero select STATUS menu if necessary 0x0189DD|$06:$89CD:C9 FF CMP #$FF 0x0189DF|$06:$89CF:D0 03 BNE $89D4 0x0189E1|$06:$89D1:4C 6D 80 JMP $806D ; exit COMMAND menu ; control flow target (from $89CF) 0x0189E4|$06:$89D4:85 97 STA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$F497) 0x0189E6|$06:$89D6:20 97 F4 JSR $F497 ; display Menu ID #$03: Main menu: selected hero's status 0x0189E9|$06:$89D9:20 9D 80 JSR $809D ; wait until all joypad buttons are released and then some button pressed ; call to code in a different bank ($0F:$F492) 0x0189EC|$06:$89DC:20 92 F4 JSR $F492 ; display Menu ID #$02: Main menu: gold/crests 0x0189EF|$06:$89DF:A5 97 LDA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$F63B) 0x0189F1|$06:$89E1:20 3B F6 JSR $F63B ; display Menu ID #$1C: Main menu: status screen equipped items 0x0189F4|$06:$89E4:C6 97 DEC $97 ; subject hero ID $97 0x0189F6|$06:$89E6:30 17 BMI $89FF ; Midenhall has no magic, so no need to show spell lists 0x0189F8|$06:$89E8:A6 97 LDX $97 ; subject hero ID $97 0x0189FA|$06:$89EA:BD 18 06 LDA $0618,X ; Cannock's learned battle spell list 0x0189FD|$06:$89ED:1D 1A 06 ORA $061A,X ; Cannock's learned field spell list 0x018A00|$06:$89F0:F0 0D BEQ $89FF ; if casters haven't learned any spell yet (which is impossible), no need to show spell lists 0x018A02|$06:$89F2:20 9D 80 JSR $809D ; wait until all joypad buttons are released and then some button pressed 0x018A05|$06:$89F5:A9 85 LDA #$85 ; Music ID #$85: single beep SFX ; call to code in a different bank ($0F:$C561) 0x018A07|$06:$89F7:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) 0x018A0A|$06:$89FA:A5 97 LDA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$F64E) 0x018A0C|$06:$89FC:20 4E F6 JSR $F64E ; display spell lists ; control flow target (from $89E6, $89F0) 0x018A0F|$06:$89FF:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; COMMAND menu EQUIP handler ; indirect control flow target (via $8090) ; call to code in a different bank ($0F:$F56B) 0x018A12|$06:$8A02:20 6B F5 JSR $F56B ; display appropriate main EQUIP hero select menu 0x018A15|$06:$8A05:C9 FF CMP #$FF 0x018A17|$06:$8A07:D0 03 BNE $8A0C 0x018A19|$06:$8A09:4C 6D 80 JMP $806D ; exit COMMAND menu ; control flow target (from $8A07) 0x018A1C|$06:$8A0C:85 97 STA $97 ; subject hero ID $97 0x018A1E|$06:$8A0E:A9 00 LDA #$00 0x018A20|$06:$8A10:85 49 STA $49 ; object hero/target/item/string ID $49; EQUIP sub-type 0x018A22|$06:$8A12:85 A5 STA $A5 0x018A24|$06:$8A14:A9 00 LDA #$00 ; call to code in a different bank ($0F:$CF6A) 0x018A26|$06:$8A16:20 6A CF JSR $CF6A ; wipe selected menu region ; control flow target (from $8AEB) 0x018A29|$06:$8A19:A6 49 LDX $49 ; object hero/target/item/string ID $49 0x018A2B|$06:$8A1B:A5 97 LDA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$F5A3) 0x018A2D|$06:$8A1D:20 A3 F5 JSR $F5A3 ; given a hero ID in A and an item type in X, display the EQUIP sub-menu for hero A and item type X, returning the selected item ID in A 0x018A30|$06:$8A20:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs; new item to equip ; control flow target (from $8A35) 0x018A32|$06:$8A22:C9 FF CMP #$FF 0x018A34|$06:$8A24:D0 18 BNE $8A3E 0x018A36|$06:$8A26:C6 49 DEC $49 ; object hero/target/item/string ID $49 0x018A38|$06:$8A28:30 11 BMI $8A3B ; control flow target (from $8A39) 0x018A3A|$06:$8A2A:A6 49 LDX $49 ; object hero/target/item/string ID $49 0x018A3C|$06:$8A2C:A5 97 LDA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$F5A3) 0x018A3E|$06:$8A2E:20 A3 F5 JSR $F5A3 ; given a hero ID in A and an item type in X, display the EQUIP sub-menu for hero A and item type X, returning the selected item ID in A 0x018A41|$06:$8A31:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs; new item to equip 0x018A43|$06:$8A33:C9 FE CMP #$FE 0x018A45|$06:$8A35:D0 EB BNE $8A22 0x018A47|$06:$8A37:C6 49 DEC $49 ; object hero/target/item/string ID $49 0x018A49|$06:$8A39:10 EF BPL $8A2A ; control flow target (from $8A28) 0x018A4B|$06:$8A3B:4C FF 8A JMP $8AFF ; wait #$14 interrupts, update each hero's stats based on their current EXP, wipe menu and exit COMMAND menu ; control flow target (from $8A24) 0x018A4E|$06:$8A3E:C9 FE CMP #$FE 0x018A50|$06:$8A40:D0 20 BNE $8A62 0x018A52|$06:$8A42:4C E3 8A JMP $8AE3 ; control flow target (from $8A8C) 0x018A55|$06:$8A45:29 3F AND #$3F ; strip off the equipped bit 0x018A57|$06:$8A47:85 95 STA $95 ; ID for [item] and [spell] control codes ; call to code in a different bank ($0F:$F6F0) 0x018A59|$06:$8A49:20 F0 F6 JSR $F6F0 ; open main dialogue window and display string ID specified by byte following JSR + #$0100 ; code -> data ; indirect data load target 0x018A5C|$06:$8A4C:12 ; String ID #$0112: It cannot be removed due to the curse.[end-FC] ; data -> code ; control flow target (from $8AE0) 0x018A5D|$06:$8A4D:A9 0A LDA #$0A ; Music ID #$0A: cursed BGM ; call to code in a different bank ($0F:$C58D) 0x018A5F|$06:$8A4F:20 8D C5 JSR $C58D ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM 0x018A62|$06:$8A52:4C 5A 8A JMP $8A5A ; control flow target (from $8ABC) 0x018A65|$06:$8A55:A2 50 LDX #$50 ; call to code in a different bank ($0F:$C1EE) 0x018A67|$06:$8A57:20 EE C1 JSR $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF ; control flow target (from $8A52) 0x018A6A|$06:$8A5A:A9 05 LDA #$05 ; call to code in a different bank ($0F:$CF6A) 0x018A6C|$06:$8A5C:20 6A CF JSR $CF6A ; wipe selected menu region 0x018A6F|$06:$8A5F:4C E3 8A JMP $8AE3 ; control flow target (from $8A40) 0x018A72|$06:$8A62:E6 A5 INC $A5 0x018A74|$06:$8A64:86 12 STX $12 0x018A76|$06:$8A66:A6 49 LDX $49 ; object hero/target/item/string ID $49 0x018A78|$06:$8A68:BD 57 F7 LDA $F757,X ; table of first item IDs for each item type 0x018A7B|$06:$8A6B:85 0E STA $0E ; lowest item ID of current item type 0x018A7D|$06:$8A6D:BD 58 F7 LDA $F758,X 0x018A80|$06:$8A70:85 0F STA $0F ; lowest item ID of next item type 0x018A82|$06:$8A72:20 1D 8B JSR $8B1D ; set A to hero ID in $97 * 8 0x018A85|$06:$8A75:A8 TAY 0x018A86|$06:$8A76:A9 08 LDA #$08 ; 8 inventory slots per hero 0x018A88|$06:$8A78:85 0C STA $0C ; number of invetory slots left to check ; control flow target (from $8A94) 0x018A8A|$06:$8A7A:B9 00 06 LDA $0600,Y ; Midenhall inventory item 1 (| #$40 if equipped) 0x018A8D|$06:$8A7D:F0 12 BEQ $8A91 0x018A8F|$06:$8A7F:29 3F AND #$3F ; strip off the equipped bit 0x018A91|$06:$8A81:C5 0E CMP $0E ; lowest item ID of current item type 0x018A93|$06:$8A83:90 0C BCC $8A91 0x018A95|$06:$8A85:C5 0F CMP $0F ; lowest item ID of next item type 0x018A97|$06:$8A87:B0 08 BCS $8A91 0x018A99|$06:$8A89:20 23 8B JSR $8B23 ; given party inventory index in Y, CLC and return equipped item ID in A if corresponding item is equipped and cursed, SEC and return unequipped item ID in A otherwise 0x018A9C|$06:$8A8C:90 B7 BCC $8A45 0x018A9E|$06:$8A8E:99 00 06 STA $0600,Y ; Midenhall inventory item 1 (| #$40 if equipped); note that this unequips the item! ; control flow target (from $8A7D, $8A83, $8A87) 0x018AA1|$06:$8A91:C8 INY 0x018AA2|$06:$8A92:C6 0C DEC $0C ; number of invetory slots left to check 0x018AA4|$06:$8A94:D0 E4 BNE $8A7A 0x018AA6|$06:$8A96:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs 0x018AA8|$06:$8A98:F0 49 BEQ $8AE3 0x018AAA|$06:$8A9A:C9 FF CMP #$FF 0x018AAC|$06:$8A9C:F0 45 BEQ $8AE3 0x018AAE|$06:$8A9E:A6 12 LDX $12 0x018AB0|$06:$8AA0:20 0F 8B JSR $8B0F ; given hero ID in $97 and hero inventory index in X, return corresponding item ID in A and party inventory index in X 0x018AB3|$06:$8AA3:29 3F AND #$3F ; strip off the equipped bit 0x018AB5|$06:$8AA5:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs 0x018AB7|$06:$8AA7:85 95 STA $95 ; ID for [item] and [spell] control codes 0x018AB9|$06:$8AA9:20 A3 A3 JSR $A3A3 ; given item ID in $96 and hero ID in $97, set A to #$80 if hero can equip item, #$00 otherwise 0x018ABC|$06:$8AAC:C9 00 CMP #$00 0x018ABE|$06:$8AAE:D0 0F BNE $8ABF 0x018AC0|$06:$8AB0:20 CB 9A JSR $9ACB ; open dialogue window 0x018AC3|$06:$8AB3:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x018AC6|$06:$8AB6:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018AC9|$06:$8AB9:92 ; String ID #$0192: [name] cannot be equipped with the [item].[end-FC] ; data -> code 0x018ACA|$06:$8ABA:C6 49 DEC $49 ; object hero/target/item/string ID $49 0x018ACC|$06:$8ABC:4C 55 8A JMP $8A55 ; control flow target (from $8AAE) 0x018ACF|$06:$8ABF:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs ; equip item 0x018AD1|$06:$8AC1:09 40 ORA #$40 0x018AD3|$06:$8AC3:9D 00 06 STA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped) 0x018AD6|$06:$8AC6:A0 04 LDY #$04 ; there are 4 cursed item in the game ; control flow target (from $8ACE) 0x018AD8|$06:$8AC8:D9 1B 86 CMP $861B,Y ; list of cursed items (equipped), built in offset from $861C 0x018ADB|$06:$8ACB:F0 05 BEQ $8AD2 0x018ADD|$06:$8ACD:88 DEY 0x018ADE|$06:$8ACE:D0 F8 BNE $8AC8 0x018AE0|$06:$8AD0:F0 11 BEQ $8AE3 ; control flow target (from $8ACB) 0x018AE2|$06:$8AD2:29 3F AND #$3F ; strip off the equipped bit 0x018AE4|$06:$8AD4:85 95 STA $95 ; ID for [item] and [spell] control codes 0x018AE6|$06:$8AD6:20 CB 9A JSR $9ACB ; open dialogue window 0x018AE9|$06:$8AD9:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x018AEC|$06:$8ADC:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018AEF|$06:$8ADF:11 ; String ID #$0111: [name], too, was cursed.[end-FC] ; data -> code 0x018AF0|$06:$8AE0:4C 4D 8A JMP $8A4D ; control flow target (from $8A42, $8A5F, $8A98, $8A9C, $8AD0) 0x018AF3|$06:$8AE3:E6 49 INC $49 ; object hero/target/item/string ID $49 0x018AF5|$06:$8AE5:A5 49 LDA $49 ; object hero/target/item/string ID $49 0x018AF7|$06:$8AE7:C9 04 CMP #$04 ; there are 4 EQUIP item types 0x018AF9|$06:$8AE9:F0 03 BEQ $8AEE 0x018AFB|$06:$8AEB:4C 19 8A JMP $8A19 ; control flow target (from $8AE9) 0x018AFE|$06:$8AEE:A5 A5 LDA $A5 0x018B00|$06:$8AF0:D0 0D BNE $8AFF ; wait #$14 interrupts, update each hero's stats based on their current EXP, wipe menu and exit COMMAND menu 0x018B02|$06:$8AF2:20 CB 9A JSR $9ACB ; open dialogue window 0x018B05|$06:$8AF5:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x018B08|$06:$8AF8:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018B0B|$06:$8AFB:A0 ; String ID #$01A0: [name] has nothing to equip.[end-FC] ; data -> code 0x018B0C|$06:$8AFC:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; wait #$14 interrupts, update each hero's stats based on their current EXP, wipe menu and exit COMMAND menu ; control flow target (from $8A3B, $8AF0) 0x018B0F|$06:$8AFF:A2 14 LDX #$14 ; call to code in a different bank ($0F:$C1EE) 0x018B11|$06:$8B01:20 EE C1 JSR $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF ; call to code in a different bank ($0F:$D0EC) 0x018B14|$06:$8B04:20 EC D0 JSR $D0EC ; update each hero's stats based on their current EXP 0x018B17|$06:$8B07:A9 07 LDA #$07 ; call to code in a different bank ($0F:$CF6A) 0x018B19|$06:$8B09:20 6A CF JSR $CF6A ; wipe selected menu region 0x018B1C|$06:$8B0C:4C 6D 80 JMP $806D ; exit COMMAND menu ; given hero ID in $97 and hero inventory index in X, return corresponding item ID in A and party inventory index in X ; control flow target (from $8528, $8AA0, $989E, $98B9, $991D) 0x018B1F|$06:$8B0F:20 1D 8B JSR $8B1D ; set A to hero ID in $97 * 8 0x018B22|$06:$8B12:85 0C STA $0C 0x018B24|$06:$8B14:8A TXA 0x018B25|$06:$8B15:18 CLC 0x018B26|$06:$8B16:65 0C ADC $0C 0x018B28|$06:$8B18:AA TAX 0x018B29|$06:$8B19:BD 00 06 LDA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped) 0x018B2C|$06:$8B1C:60 RTS ; set A to hero ID in $97 * 8 ; control flow target (from $8A72, $8B0F) 0x018B2D|$06:$8B1D:A5 97 LDA $97 ; subject hero ID $97 0x018B2F|$06:$8B1F:0A ASL 0x018B30|$06:$8B20:0A ASL 0x018B31|$06:$8B21:0A ASL 0x018B32|$06:$8B22:60 RTS ; given party inventory index in Y, CLC and return equipped item ID in A if corresponding item is equipped and cursed, SEC and return unequipped item ID in A otherwise ; control flow target (from $852D, $8A89) 0x018B33|$06:$8B23:B9 00 06 LDA $0600,Y ; Midenhall inventory item 1 (| #$40 if equipped) 0x018B36|$06:$8B26:A2 03 LDX #$03 ; max index of list of cursed items in the game ; control flow target (from $8B2E) 0x018B38|$06:$8B28:DD 1C 86 CMP $861C,X ; list of equipped cursed items 0x018B3B|$06:$8B2B:F0 07 BEQ $8B34 0x018B3D|$06:$8B2D:CA DEX 0x018B3E|$06:$8B2E:10 F8 BPL $8B28 0x018B40|$06:$8B30:29 3F AND #$3F 0x018B42|$06:$8B32:38 SEC 0x018B43|$06:$8B33:60 RTS ; control flow target (from $8B2B) 0x018B44|$06:$8B34:18 CLC 0x018B45|$06:$8B35:60 RTS ; COMMAND menu SPELL command handler ; indirect control flow target (via $8088) ; call to code in a different bank ($0F:$F545) 0x018B46|$06:$8B36:20 45 F5 JSR $F545 ; depending on number of casters in party, maybe open caster select menu 0x018B49|$06:$8B39:C9 FF CMP #$FF 0x018B4B|$06:$8B3B:D0 03 BNE $8B40 ; did not cancel menu ; exit COMMAND menu ; control flow target (from $8B73) 0x018B4D|$06:$8B3D:4C 6D 80 JMP $806D ; exit COMMAND menu ; did not cancel menu ; control flow target (from $8B3B) 0x018B50|$06:$8B40:85 97 STA $97 ; subject hero ID $97; caster hero ID 0x018B52|$06:$8B42:C9 FE CMP #$FE 0x018B54|$06:$8B44:D0 0F BNE $8B55 ; hero is a caster 0x018B56|$06:$8B46:20 CB 9A JSR $9ACB ; open dialogue window 0x018B59|$06:$8B49:A9 00 LDA #$00 ; Midenhall ; call to code in a different bank ($0F:$FC50) 0x018B5B|$06:$8B4B:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x018B5E|$06:$8B4E:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018B61|$06:$8B51:01 ; String ID #$0101: [name] cannot use the spell.[end-FC] ; data -> code 0x018B62|$06:$8B52:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; hero is a caster ; control flow target (from $8B44) 0x018B65|$06:$8B55:A9 80 LDA #$80 ; Alive 0x018B67|$06:$8B57:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x018B6A|$06:$8B5A:B0 0D BCS $8B69 ; caster is alive 0x018B6C|$06:$8B5C:20 CB 9A JSR $9ACB ; open dialogue window 0x018B6F|$06:$8B5F:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x018B72|$06:$8B62:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018B75|$06:$8B65:02 ; String ID #$0102: Alas, poor [name] is dead.[end-FC] ; data -> code 0x018B76|$06:$8B66:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; caster is alive ; control flow target (from $8B5A) 0x018B79|$06:$8B69:A5 97 LDA $97 ; subject hero ID $97; caster hero ID 0x018B7B|$06:$8B6B:38 SEC 0x018B7C|$06:$8B6C:E9 01 SBC #$01 ; Midenhall can't use magic and $0F:$F5EC wants hero ID - 1 ; call to code in a different bank ($0F:$F5EC) 0x018B7E|$06:$8B6E:20 EC F5 JSR $F5EC ; given hero ID - 1 in A, open hero's spell list and return selected spell ID in A 0x018B81|$06:$8B71:C9 FF CMP #$FF 0x018B83|$06:$8B73:F0 C8 BEQ $8B3D ; exit COMMAND menu 0x018B85|$06:$8B75:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs; selected spell ID 0x018B87|$06:$8B77:AA TAX 0x018B88|$06:$8B78:20 AA 8D JSR $8DAA ; given hero ID in $97, set Y to start of hero's data in $062D,Y, i.e. Y = $97 * #$12 0x018B8B|$06:$8B7B:B9 3D 06 LDA $063D,Y ; Midenhall Current MP 0x018B8E|$06:$8B7E:DD DD 8C CMP $8CDD,X ; MP costs (built in offset from real data at $8CE6) 0x018B91|$06:$8B81:B0 07 BCS $8B8A ; hero has enough MP to cast ; call to code in a different bank ($0F:$F6EA) 0x018B93|$06:$8B83:20 EA F6 JSR $F6EA ; open main dialogue window and display string ID specified by byte following JSR ; code -> data ; indirect data load target 0x018B96|$06:$8B86:11 ; String ID #$0011: Thy MP is low.[end-FC] ; data -> code 0x018B97|$06:$8B87:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; hero has enough MP to cast ; control flow target (from $8B81) 0x018B9A|$06:$8B8A:A0 04 LDY #$04 ; there are 5 single-target spells on the field 0x018B9C|$06:$8B8C:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; selected spell ID ; check if spell is a healing spell ; control flow target (from $8B94) 0x018B9E|$06:$8B8E:D9 E1 8C CMP $8CE1,Y ; single-target spell list, field 0x018BA1|$06:$8B91:F0 05 BEQ $8B98 ; chose a healing spell 0x018BA3|$06:$8B93:88 DEY 0x018BA4|$06:$8B94:10 F8 BPL $8B8E ; check if spell is a healing spell 0x018BA6|$06:$8B96:30 0C BMI $8BA4 ; cast spell ; chose a healing spell ; control flow target (from $8B91) ; call to code in a different bank ($0F:$F579) 0x018BA8|$06:$8B98:20 79 F5 JSR $F579 ; display appropriate main SPELL target menu 0x018BAB|$06:$8B9B:C9 FF CMP #$FF 0x018BAD|$06:$8B9D:D0 03 BNE $8BA2 ; update target hero ID 0x018BAF|$06:$8B9F:4C 6D 80 JMP $806D ; exit COMMAND menu ; update target hero ID ; control flow target (from $8B9D) 0x018BB2|$06:$8BA2:85 49 STA $49 ; object hero/target/item/string ID $49; target hero ID for single-target spells ; cast spell ; control flow target (from $8B96) 0x018BB4|$06:$8BA4:20 AA 8D JSR $8DAA ; given hero ID in $97, set Y to start of hero's data in $062D,Y, i.e. Y = $97 * #$12 0x018BB7|$06:$8BA7:A6 96 LDX $96 ; temp storage for item/spell/type/etc. IDs; selected spell ID 0x018BB9|$06:$8BA9:B9 3D 06 LDA $063D,Y ; Midenhall Current MP 0x018BBC|$06:$8BAC:38 SEC 0x018BBD|$06:$8BAD:FD DD 8C SBC $8CDD,X ; MP costs (built in offset from real data at $8CE6) 0x018BC0|$06:$8BB0:99 3D 06 STA $063D,Y ; Midenhall Current MP 0x018BC3|$06:$8BB3:20 CB 9A JSR $9ACB ; open dialogue window 0x018BC6|$06:$8BB6:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA 0x018BC9|$06:$8BB9:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; selected spell ID 0x018BCB|$06:$8BBB:85 95 STA $95 ; ID for [item] and [spell] control codes ; call to code in a different bank ($0F:$FA2A) 0x018BCD|$06:$8BBD:20 2A FA JSR $FA2A ; display string ID specified by next byte ; code -> data ; indirect data load target 0x018BD0|$06:$8BC0:1A ; String ID #$001A: [name] chanted the spell of [spell].[end-FC] ; data -> code 0x018BD1|$06:$8BC1:A9 90 LDA #$90 ; Music ID #$90: casting SFX ; call to code in a different bank ($0F:$C561) 0x018BD3|$06:$8BC3:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) ; call to code in a different bank ($0F:$C515) 0x018BD6|$06:$8BC6:20 15 C5 JSR $C515 ; flash screen 10 times 0x018BD9|$06:$8BC9:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; selected spell ID 0x018BDB|$06:$8BCB:C9 09 CMP #$09 ; Spell ID #$09: Heal 0x018BDD|$06:$8BCD:D0 04 BNE $8BD3 ; spell ID is not #$09 0x018BDF|$06:$8BCF:A2 40 LDX #$40 ; power on field for Heal 0x018BE1|$06:$8BD1:D0 0E BNE $8BE1 ; spell ID is not #$09 ; control flow target (from $8BCD) 0x018BE3|$06:$8BD3:C9 0B CMP #$0B ; Spell ID #$0B: Healmore 0x018BE5|$06:$8BD5:D0 04 BNE $8BDB ; spell ID is not #$09 or #$0B 0x018BE7|$06:$8BD7:A2 64 LDX #$64 ; power on field for Healmore 0x018BE9|$06:$8BD9:D0 06 BNE $8BE1 ; spell ID is not #$09 or #$0B ; control flow target (from $8BD5) 0x018BEB|$06:$8BDB:C9 0D CMP #$0D ; Spell ID #$0D: Healall 0x018BED|$06:$8BDD:D0 24 BNE $8C03 ; spell ID is not #$09, #$0B, or #$0D 0x018BEF|$06:$8BDF:A2 FF LDX #$FF ; power on field for Healall ; control flow target (from $8BD1, $8BD9) 0x018BF1|$06:$8BE1:A5 49 LDA $49 ; object hero/target/item/string ID $49; target hero ID for single-target spells 0x018BF3|$06:$8BE3:20 AC 8D JSR $8DAC ; given hero ID in A, set Y to start of hero's data in $062D,Y, i.e. Y = A * #$12 0x018BF6|$06:$8BE6:B9 2D 06 LDA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x018BF9|$06:$8BE9:10 51 BPL $8C3C ; spell ineffective; can't heal dead people :( 0x018BFB|$06:$8BEB:A5 49 LDA $49 ; object hero/target/item/string ID $49; target hero ID for single-target spells ; call to code in a different bank ($0F:$D146) 0x018BFD|$06:$8BED:20 46 D1 JSR $D146 ; heal hero ID in A by random amount based on healing power in X ; call to code in a different bank ($0F:$C22C) 0x018C00|$06:$8BF0:20 2C C2 JSR $C22C 0x018C03|$06:$8BF3:A5 49 LDA $49 ; object hero/target/item/string ID $49; target hero ID for single-target spells ; call to code in a different bank ($0F:$FC50) 0x018C05|$06:$8BF5:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2A) 0x018C08|$06:$8BF8:20 2A FA JSR $FA2A ; display string ID specified by next byte ; code -> data ; indirect data load target 0x018C0B|$06:$8BFB:17 ; String ID #$0017: [name]'s wounds were healed.[end-FC] ; data -> code ; call to code in a different bank ($0F:$EB76) 0x018C0C|$06:$8BFC:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x018C0F|$06:$8BFF:01 ; Menu ID #$01: Mini status window, top, Midenhall only ; data -> code 0x018C10|$06:$8C00:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; spell ID is not #$09, #$0B, or #$0D ; control flow target (from $8BDD) 0x018C13|$06:$8C03:C9 10 CMP #$10 ; Spell ID #$10: Antidote 0x018C15|$06:$8C05:D0 29 BNE $8C30 ; spell ID is not #$09, #$0B, #$0D, or #$10 0x018C17|$06:$8C07:A5 49 LDA $49 ; object hero/target/item/string ID $49; target hero ID for single-target spells 0x018C19|$06:$8C09:20 AC 8D JSR $8DAC ; given hero ID in A, set Y to start of hero's data in $062D,Y, i.e. Y = A * #$12 0x018C1C|$06:$8C0C:B9 2D 06 LDA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x018C1F|$06:$8C0F:29 20 AND #$20 ; pick out the poison bit from hero status byte 0x018C21|$06:$8C11:F0 29 BEQ $8C3C ; spell ineffective 0x018C23|$06:$8C13:A5 49 LDA $49 ; object hero/target/item/string ID $49; target hero ID for single-target spells ; call to code in a different bank ($0F:$FC50) 0x018C25|$06:$8C15:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2A) 0x018C28|$06:$8C18:20 2A FA JSR $FA2A ; display string ID specified by next byte ; code -> data ; indirect data load target 0x018C2B|$06:$8C1B:43 ; String ID #$0043: The poison was drawn out of [name]'s wound.[end-FC] ; data -> code 0x018C2C|$06:$8C1C:A5 49 LDA $49 ; object hero/target/item/string ID $49; target hero ID for single-target spells 0x018C2E|$06:$8C1E:20 AC 8D JSR $8DAC ; given hero ID in A, set Y to start of hero's data in $062D,Y, i.e. Y = A * #$12 0x018C31|$06:$8C21:B9 2D 06 LDA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x018C34|$06:$8C24:29 DF AND #$DF ; set poison bit to 0 0x018C36|$06:$8C26:99 2D 06 STA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) ; call to code in a different bank ($0F:$EB76) 0x018C39|$06:$8C29:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x018C3C|$06:$8C2C:01 ; Menu ID #$01: Mini status window, top ; data -> code ; control flow target (from $8C4B) 0x018C3D|$06:$8C2D:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; spell ID is not #$09, #$0B, #$0D, or #$10 ; control flow target (from $8C05) 0x018C40|$06:$8C30:C9 12 CMP #$12 ; Spell ID #$12: Outside 0x018C42|$06:$8C32:D0 0F BNE $8C43 ; spell ID is not #$09, #$0B, #$0D, #$10, or #$12 0x018C44|$06:$8C34:20 D4 8C JSR $8CD4 ; handler for Outside spell effect 0x018C47|$06:$8C37:A9 00 LDA #$00 ; call to code in a different bank ($0F:$D88F) 0x018C49|$06:$8C39:4C 8F D8 JMP $D88F ; warp to warp point given by ($0C) ; spell ineffective ; control flow target (from $8BE9, $8C11, $8C56, $8CAB, $8CDE) ; call to code in a different bank ($0F:$FA2E) 0x018C4C|$06:$8C3C:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018C4F|$06:$8C3F:9E ; String ID #$019E: But nothing happened.[end-FC] ; data -> code 0x018C50|$06:$8C40:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; spell ID is not #$09, #$0B, #$0D, #$10, or #$12 ; control flow target (from $8C32) 0x018C53|$06:$8C43:C9 13 CMP #$13 ; Spell ID #$13: Repel 0x018C55|$06:$8C45:D0 06 BNE $8C4D ; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$13 0x018C57|$06:$8C47:A9 FE LDA #$FE 0x018C59|$06:$8C49:85 46 STA $46 ; Repel (#$FE) / Fairy Water (#$FF) flag 0x018C5B|$06:$8C4B:D0 E0 BNE $8C2D ; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$13 ; control flow target (from $8C45) 0x018C5D|$06:$8C4D:C9 14 CMP #$14 ; Spell ID #$14: Return 0x018C5F|$06:$8C4F:D0 11 BNE $8C62 ; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$14 ; handler for Return spell effect ; control flow target (from $9661) 0x018C61|$06:$8C51:A2 02 LDX #$02 ; call to code in a different bank ($0F:$D2E7) 0x018C63|$06:$8C53:20 E7 D2 JSR $D2E7 ; X = 1 => CLC and update $0C-$0D to warp point data to use if Outside allowed from current map, SEC otherwise, X = 2 => CLC and update $0C-$0D to warp point data to use if Return allowed from current map, SEC otherwise, X = 3 => disembark from ship and update ship position based on last save point ID $48 0x018C66|$06:$8C56:B0 E4 BCS $8C3C ; spell ineffective 0x018C68|$06:$8C58:A9 95 LDA #$95 ; Music ID #$95: Return SFX ; call to code in a different bank ($0F:$C561) 0x018C6A|$06:$8C5A:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) 0x018C6D|$06:$8C5D:A9 00 LDA #$00 ; call to code in a different bank ($0F:$D88F) 0x018C6F|$06:$8C5F:4C 8F D8 JMP $D88F ; warp to warp point given by ($0C) ; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$14 ; control flow target (from $8C4F) 0x018C72|$06:$8C62:C9 15 CMP #$15 ; Spell ID #$15: Open 0x018C74|$06:$8C64:D0 2E BNE $8C94 ; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$15 0x018C76|$06:$8C66:A9 00 LDA #$00 0x018C78|$06:$8C68:85 C9 STA $C9 ; call to code in a different bank ($0F:$CF7C) 0x018C7A|$06:$8C6A:20 7C CF JSR $CF7C 0x018C7D|$06:$8C6D:A5 49 LDA $49 ; object hero/target/item/string ID $49; target hero ID for single-target spells 0x018C7F|$06:$8C6F:C9 FF CMP #$FF 0x018C81|$06:$8C71:F0 1E BEQ $8C91 0x018C83|$06:$8C73:A9 01 LDA #$01 0x018C85|$06:$8C75:85 C9 STA $C9 ; call to code in a different bank ($0F:$CF7C) 0x018C87|$06:$8C77:20 7C CF JSR $CF7C 0x018C8A|$06:$8C7A:A5 49 LDA $49 ; object hero/target/item/string ID $49; target hero ID for single-target spells 0x018C8C|$06:$8C7C:C9 FF CMP #$FF 0x018C8E|$06:$8C7E:F0 11 BEQ $8C91 0x018C90|$06:$8C80:A9 02 LDA #$02 0x018C92|$06:$8C82:85 C9 STA $C9 ; call to code in a different bank ($0F:$CF7C) 0x018C94|$06:$8C84:20 7C CF JSR $CF7C 0x018C97|$06:$8C87:A5 49 LDA $49 ; object hero/target/item/string ID $49; target hero ID for single-target spells 0x018C99|$06:$8C89:C9 FF CMP #$FF 0x018C9B|$06:$8C8B:F0 04 BEQ $8C91 ; call to code in a different bank ($0F:$FA2E) 0x018C9D|$06:$8C8D:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x018CA0|$06:$8C90:3B ; String ID #$013B: There is no door here.[end-FC] ; data -> code ; control flow target (from $8C71, $8C7E, $8C8B) 0x018CA1|$06:$8C91:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$15 ; control flow target (from $8C64) 0x018CA4|$06:$8C94:C9 16 CMP #$16 ; Spell ID #$16: Stepguard 0x018CA6|$06:$8C96:D0 07 BNE $8C9F ; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$16; ergo it's Spell ID #$17: Revive 0x018CA8|$06:$8C98:A9 FF LDA #$FF 0x018CAA|$06:$8C9A:85 47 STA $47 ; Stepguard flag 0x018CAC|$06:$8C9C:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$16; ergo it's Spell ID #$17: Revive ; control flow target (from $8C96, $964B) 0x018CAF|$06:$8C9F:A5 49 LDA $49 ; object hero/target/item/string ID $49; target hero ID for single-target spells 0x018CB1|$06:$8CA1:20 AC 8D JSR $8DAC ; given hero ID in A, set Y to start of hero's data in $062D,Y, i.e. Y = A * #$12 0x018CB4|$06:$8CA4:B9 2D 06 LDA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x018CB7|$06:$8CA7:29 80 AND #$80 ; Alive 0x018CB9|$06:$8CA9:F0 03 BEQ $8CAE 0x018CBB|$06:$8CAB:4C 3C 8C JMP $8C3C ; spell ineffective ; control flow target (from $8CA9) 0x018CBE|$06:$8CAE:A5 49 LDA $49 ; object hero/target/item/string ID $49; target hero ID for single-target spells 0x018CC0|$06:$8CB0:85 97 STA $97 ; subject hero ID $97 0x018CC2|$06:$8CB2:20 AC 8D JSR $8DAC ; given hero ID in A, set Y to start of hero's data in $062D,Y, i.e. Y = A * #$12 0x018CC5|$06:$8CB5:B9 2D 06 LDA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x018CC8|$06:$8CB8:09 80 ORA #$80 ; Alive 0x018CCA|$06:$8CBA:99 2D 06 STA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x018CCD|$06:$8CBD:A9 01 LDA #$01 ; revive with 1 HP 0x018CCF|$06:$8CBF:99 3B 06 STA $063B,Y ; Midenhall Current HP, low byte ; call to code in a different bank ($0F:$D302) 0x018CD2|$06:$8CC2:20 02 D3 JSR $D302 ; call to code in a different bank ($0F:$C22C) 0x018CD5|$06:$8CC5:20 2C C2 JSR $C22C 0x018CD8|$06:$8CC8:A5 49 LDA $49 ; object hero/target/item/string ID $49; target hero ID for single-target spells ; call to code in a different bank ($0F:$FC50) 0x018CDA|$06:$8CCA:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2A) 0x018CDD|$06:$8CCD:20 2A FA JSR $FA2A ; display string ID specified by next byte ; code -> data ; indirect data load target 0x018CE0|$06:$8CD0:44 ; String ID #$0044: [name] returned to life.[end-FC] ; data -> code 0x018CE1|$06:$8CD1:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for Outside spell effect ; control flow target (from $8C34) ; external control flow target (from $0F:$D597, $0F:$D59D) 0x018CE4|$06:$8CD4:A2 01 LDX #$01 ; call to code in a different bank ($0F:$D2E7) 0x018CE6|$06:$8CD6:20 E7 D2 JSR $D2E7 ; X = 1 => CLC and update $0C-$0D to warp point data to use if Outside allowed from current map, SEC otherwise, X = 2 => CLC and update $0C-$0D to warp point data to use if Return allowed from current map, SEC otherwise, X = 3 => disembark from ship and update ship position based on last save point ID $48 0x018CE9|$06:$8CD9:B0 01 BCS $8CDC 0x018CEB|$06:$8CDB:60 RTS ; control flow target (from $8CD9) 0x018CEC|$06:$8CDC:68 PLA ; MP costs (built in offset from real data at $8CE6) ; indexed data load target (from $8B7E, $8BAD) 0x018CED|$06:$8CDD:68 PLA 0x018CEE|$06:$8CDE:4C 3C 8C JMP $8C3C ; spell ineffective ; code -> data ; single-target spell list, field ; indexed data load target (from $8B8E) 0x018CF1|$06:$8CE1:09 ; Spell ID #$09: Heal 0x018CF2|$06:$8CE2:0B ; Spell ID #$0B: Healmore 0x018CF3|$06:$8CE3:0D ; Spell ID #$0D: Healall 0x018CF4|$06:$8CE4:10 ; Spell ID #$10: Antidote 0x018CF5|$06:$8CE5:17 ; Spell ID #$17: Revive ; MP Cost for Spells on Field (referenced as $8CDD,X) 0x018CF6|$06:$8CE6:03 ; Spell ID #$09: Heal 0x018CF7|$06:$8CE7:00 ; Spell ID #$0A: Increase 0x018CF8|$06:$8CE8:05 ; Spell ID #$0B: Healmore 0x018CF9|$06:$8CE9:00 ; Spell ID #$0C: Sacrifice 0x018CFA|$06:$8CEA:08 ; Spell ID #$0D: Healall 0x018CFB|$06:$8CEB:00 ; Spell ID #$0E: Explodet 0x018CFC|$06:$8CEC:00 ; Spell ID #$0F: Chance 0x018CFD|$06:$8CED:03 ; Spell ID #$10: Antidote 0x018CFE|$06:$8CEE:02 ; Spell ID #$11: Heal (not used by heroes) 0x018CFF|$06:$8CEF:06 ; Spell ID #$12: Outside 0x018D00|$06:$8CF0:02 ; Spell ID #$13: Repel 0x018D01|$06:$8CF1:06 ; Spell ID #$14: Return 0x018D02|$06:$8CF2:02 ; Spell ID #$15: Open 0x018D03|$06:$8CF3:04 ; Spell ID #$16: Stepguard 0x018D04|$06:$8CF4:0F ; Spell ID #$17: Revive ; data -> code ; add $8F-$90 to party gold, capped at $FFFF ; control flow target (from $8536, $9C58) 0x018D05|$06:$8CF5:A5 8F LDA $8F 0x018D07|$06:$8CF7:18 CLC 0x018D08|$06:$8CF8:6D 24 06 ADC $0624 ; party gold, low byte 0x018D0B|$06:$8CFB:8D 24 06 STA $0624 ; party gold, low byte 0x018D0E|$06:$8CFE:A5 90 LDA $90 0x018D10|$06:$8D00:6D 25 06 ADC $0625 ; party gold, high byte 0x018D13|$06:$8D03:8D 25 06 STA $0625 ; party gold, high byte 0x018D16|$06:$8D06:90 08 BCC $8D10 ; cap party gold at 65,535 0x018D18|$06:$8D08:A9 FF LDA #$FF 0x018D1A|$06:$8D0A:8D 24 06 STA $0624 ; party gold, low byte 0x018D1D|$06:$8D0D:8D 25 06 STA $0625 ; party gold, high byte ; control flow target (from $8D06) 0x018D20|$06:$8D10:60 RTS ; given item ID in $96 and discount amount in $8F-$90, set $8F-$90 to discounted item price ; control flow target (from $8355, $8462) 0x018D21|$06:$8D11:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; item ID 0x018D23|$06:$8D13:0A ASL ; item prices are 2 bytes each 0x018D24|$06:$8D14:A8 TAY 0x018D25|$06:$8D15:B9 FC 9F LDA $9FFC,Y ; Item Prices, low byte 0x018D28|$06:$8D18:38 SEC 0x018D29|$06:$8D19:E5 8F SBC $8F 0x018D2B|$06:$8D1B:85 8F STA $8F 0x018D2D|$06:$8D1D:B9 FD 9F LDA $9FFD,Y ; Item Prices, high byte 0x018D30|$06:$8D20:E5 90 SBC $90 0x018D32|$06:$8D22:85 90 STA $90 0x018D34|$06:$8D24:60 RTS ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; control flow target (from $8324, $833E, $8379, $83FC, $8438, $84AD, $8599, $85F0, $863E, $8691, $8AB3, $8AD9, $8AF5, $8B5F, $8BB6, $8F26, $904A, $9125, $9476, $959D, $95C0, $963A, $9652, $96D4, $9830, $99B7, $99E5, $99F2, $9A0D, $9A26, $9A31, $9A55, $9A5F, $9A6F, $9A7A, $9A9F, $9AAC, $9AF1, $9B1E, $9D2D, $9D3C) 0x018D35|$06:$8D25:A5 97 LDA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$FC50) 0x018D37|$06:$8D27:4C 50 FC JMP $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; set $8F-$90 to A-#$00 ; control flow target (from $9C75) 0x018D3A|$06:$8D2A:85 8F STA $8F 0x018D3C|$06:$8D2C:A9 00 LDA #$00 0x018D3E|$06:$8D2E:85 90 STA $90 0x018D40|$06:$8D30:60 RTS ; given gold amount in $8F-$90, decrease party gold by that amount and SEC if possible, CLC otherwise ; control flow target (from $823D, $8688, $8D7B, $9130) 0x018D41|$06:$8D31:AD 24 06 LDA $0624 ; party gold, low byte 0x018D44|$06:$8D34:38 SEC 0x018D45|$06:$8D35:E5 8F SBC $8F ; amount to subtract, low byte 0x018D47|$06:$8D37:85 0C STA $0C 0x018D49|$06:$8D39:AD 25 06 LDA $0625 ; party gold, high byte 0x018D4C|$06:$8D3C:E5 90 SBC $90 ; amount to subtract, high byte 0x018D4E|$06:$8D3E:85 0D STA $0D 0x018D50|$06:$8D40:90 0A BCC $8D4C ; C clear => not enough gold, so just RTS 0x018D52|$06:$8D42:A5 0C LDA $0C ; otherwise, C is set; update party gold with new total 0x018D54|$06:$8D44:8D 24 06 STA $0624 ; party gold, low byte 0x018D57|$06:$8D47:A5 0D LDA $0D 0x018D59|$06:$8D49:8D 25 06 STA $0625 ; party gold, high byte ; control flow target (from $8D40) 0x018D5C|$06:$8D4C:60 RTS ; given item ID in A, save it to $96 and set $8F-$90 to purchase price of item, accounting for possible Golden Card discount; decrease party gold by that amount and SEC if possible, CLC otherwise ; control flow target (from $82E5, $83E2) 0x018D5D|$06:$8D4D:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs; item ID 0x018D5F|$06:$8D4F:0A ASL ; price list is 2 bytes wide 0x018D60|$06:$8D50:A8 TAY 0x018D61|$06:$8D51:B9 FC 9F LDA $9FFC,Y ; Item Prices, low byte 0x018D64|$06:$8D54:85 8F STA $8F 0x018D66|$06:$8D56:B9 FD 9F LDA $9FFD,Y ; Item Prices, high byte 0x018D69|$06:$8D59:85 90 STA $90 0x018D6B|$06:$8D5B:A9 32 LDA #$32 ; Item ID #$32: Golden Card 0x018D6D|$06:$8D5D:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x018D70|$06:$8D60:C9 FF CMP #$FF 0x018D72|$06:$8D62:F0 17 BEQ $8D7B ; branch if no Golden Card, otherwise extra string and altered price 0x018D74|$06:$8D64:46 90 LSR $90 ; 16-bit LSR 0x018D76|$06:$8D66:66 8F ROR $8F 0x018D78|$06:$8D68:46 90 LSR $90 ; 16-bit LSR 0x018D7A|$06:$8D6A:66 8F ROR $8F 0x018D7C|$06:$8D6C:B9 FC 9F LDA $9FFC,Y ; Item Prices, low byte 0x018D7F|$06:$8D6F:38 SEC 0x018D80|$06:$8D70:E5 8F SBC $8F 0x018D82|$06:$8D72:85 8F STA $8F 0x018D84|$06:$8D74:B9 FD 9F LDA $9FFD,Y ; Item Prices, high byte 0x018D87|$06:$8D77:E5 90 SBC $90 0x018D89|$06:$8D79:85 90 STA $90 ; 25% discount ; control flow target (from $8D62) 0x018D8B|$06:$8D7B:4C 31 8D JMP $8D31 ; given gold amount in $8F-$90, decrease party gold by that amount and SEC if possible, CLC otherwise ; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots ; control flow target (from $836F, $83F7, $8433, $8479, $872E, $92A9, $9313, $9A07, $9C70, $9C8B, $A2D2, $A2D9, $A2E0) 0x018D8E|$06:$8D7E:A5 97 LDA $97 ; subject hero ID $97; hero ID 0x018D90|$06:$8D80:0A ASL ; 8 inventory slots per hero 0x018D91|$06:$8D81:0A ASL 0x018D92|$06:$8D82:0A ASL 0x018D93|$06:$8D83:A8 TAY 0x018D94|$06:$8D84:A2 00 LDX #$00 ; loop counter ; control flow target (from $8D8F) 0x018D96|$06:$8D86:B9 00 06 LDA $0600,Y ; Midenhall inventory item 1 (| #$40 if equipped) 0x018D99|$06:$8D89:F0 08 BEQ $8D93 ; if empty slot, go add item 0x018D9B|$06:$8D8B:C8 INY ; else, increment inventory index and loop counter 0x018D9C|$06:$8D8C:E8 INX 0x018D9D|$06:$8D8D:E0 08 CPX #$08 ; 8 inventory slots per hero 0x018D9F|$06:$8D8F:D0 F5 BNE $8D86 ; if more inventory slots to check, loop to check them 0x018DA1|$06:$8D91:18 CLC ; at this point, we know hero's inventory is already full, so flag failure for calling code 0x018DA2|$06:$8D92:60 RTS ; control flow target (from $8D89) 0x018DA3|$06:$8D93:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; item ID 0x018DA5|$06:$8D95:99 00 06 STA $0600,Y ; Midenhall inventory item 1 (| #$40 if equipped); add to hero's inventory 0x018DA8|$06:$8D98:38 SEC ; flag success for calling code 0x018DA9|$06:$8D99:60 RTS ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise ; control flow target (from $8339, $8594, $8639, $8B57, $9045, $9453, $946C, $9499, $94A3, $9595, $95EA, $9608, $99E0, $9A21, $9A36, $9A50, $9A9A, $9ADB, $9D25) 0x018DAA|$06:$8D9A:85 0C STA $0C 0x018DAC|$06:$8D9C:20 AA 8D JSR $8DAA ; given hero ID in $97, set Y to start of hero's data in $062D,Y, i.e. Y = $97 * #$12 0x018DAF|$06:$8D9F:B9 2D 06 LDA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x018DB2|$06:$8DA2:25 0C AND $0C 0x018DB4|$06:$8DA4:F0 02 BEQ $8DA8 0x018DB6|$06:$8DA6:38 SEC 0x018DB7|$06:$8DA7:60 RTS ; control flow target (from $8DA4) 0x018DB8|$06:$8DA8:18 CLC 0x018DB9|$06:$8DA9:60 RTS ; given hero ID in $97, set Y to start of hero's data in $062D,Y, i.e. Y = $97 * #$12 ; control flow target (from $85B2, $8659, $86A6, $8B78, $8BA4, $8D9C) 0x018DBA|$06:$8DAA:A5 97 LDA $97 ; subject hero ID $97 ; given hero ID in A, set Y to start of hero's data in $062D,Y, i.e. Y = A * #$12 ; control flow target (from $8BE3, $8C09, $8C1E, $8CA1, $8CB2, $960F) 0x018DBC|$06:$8DAC:F0 0A BEQ $8DB8 ; if it's Midenhall, use + #$00 0x018DBE|$06:$8DAE:C9 01 CMP #$01 ; is it Cannock? 0x018DC0|$06:$8DB0:D0 04 BNE $8DB6 ; if no, keep checking 0x018DC2|$06:$8DB2:A9 12 LDA #$12 ; if yes, use + #$12 0x018DC4|$06:$8DB4:D0 02 BNE $8DB8 ; and skip over Moonbrooke ; control flow target (from $8DB0) 0x018DC6|$06:$8DB6:A9 24 LDA #$24 ; it's Moonbrooke, so use + #$24 ; control flow target (from $8DAC, $8DB4) 0x018DC8|$06:$8DB8:A8 TAY 0x018DC9|$06:$8DB9:60 RTS ; given a hero ID in $97 and an item ID in A, SEC if hero has that item, CLC otherwise ; control flow target (from $85E7, $9897, $98B2, $9916) 0x018DCA|$06:$8DBA:48 PHA 0x018DCB|$06:$8DBB:A5 97 LDA $97 ; subject hero ID $97 0x018DCD|$06:$8DBD:85 9C STA $9C 0x018DCF|$06:$8DBF:68 PLA ; call to code in a different bank ($0F:$C4B0) 0x018DD0|$06:$8DC0:4C B0 C4 JMP $C4B0 ; given a hero ID in $9C and an item ID in A, SEC if hero has that item, CLC otherwise ; given a hero ID in $97 and an item ID in A, remove that item from hero's inventory if present and SEC, CLC otherwise ; control flow target (from $8612, $8716) 0x018DD3|$06:$8DC3:48 PHA 0x018DD4|$06:$8DC4:A5 97 LDA $97 ; subject hero ID $97 0x018DD6|$06:$8DC6:85 9C STA $9C 0x018DD8|$06:$8DC8:68 PLA ; call to code in a different bank ($0F:$C4B6) 0x018DD9|$06:$8DC9:4C B6 C4 JMP $C4B6 ; given a hero ID in $9C and an item ID in A, remove that item from hero's inventory if present and SEC, CLC otherwise ; restore full HP to all living party members ; control flow target (from $825B, $951C) ; external control flow target (from $0F:$C789, $0F:$D289) 0x018DDC|$06:$8DCC:A0 00 LDY #$00 ; control flow target (from $8DE9) 0x018DDE|$06:$8DCE:B9 3B 06 LDA $063B,Y ; Midenhall Current HP, low byte 0x018DE1|$06:$8DD1:19 3C 06 ORA $063C,Y ; Midenhall Current HP, high byte 0x018DE4|$06:$8DD4:F0 0C BEQ $8DE2 ; branch if current HP is #$00 0x018DE6|$06:$8DD6:B9 30 06 LDA $0630,Y ; Midenhall Max HP low byte 0x018DE9|$06:$8DD9:99 3B 06 STA $063B,Y ; Midenhall Current HP, low byte 0x018DEC|$06:$8DDC:B9 31 06 LDA $0631,Y ; Midenhall Max HP high byte 0x018DEF|$06:$8DDF:99 3C 06 STA $063C,Y ; Midenhall Current HP, high byte ; control flow target (from $8DD4) 0x018DF2|$06:$8DE2:98 TYA 0x018DF3|$06:$8DE3:18 CLC 0x018DF4|$06:$8DE4:69 12 ADC #$12 ; hero data is #$12 bytes each 0x018DF6|$06:$8DE6:A8 TAY 0x018DF7|$06:$8DE7:C9 36 CMP #$36 ; and there are 3 heroes 0x018DF9|$06:$8DE9:D0 E3 BNE $8DCE ; if more heroes to heal, heal them 0x018DFB|$06:$8DEB:60 RTS ; restore full MP to all living party members ; control flow target (from $825E, $9175) ; external control flow target (from $0F:$C78C) 0x018DFC|$06:$8DEC:A0 00 LDY #$00 ; start with Midenhall ; control flow target (from $8E03) 0x018DFE|$06:$8DEE:B9 3B 06 LDA $063B,Y ; Midenhall Current HP, low byte 0x018E01|$06:$8DF1:19 3C 06 ORA $063C,Y ; Midenhall Current HP, high byte 0x018E04|$06:$8DF4:F0 06 BEQ $8DFC ; zero HP => dead, right? 0x018E06|$06:$8DF6:B9 32 06 LDA $0632,Y ; Midenhall Max MP 0x018E09|$06:$8DF9:99 3D 06 STA $063D,Y ; Midenhall Current MP ; control flow target (from $8DF4) 0x018E0C|$06:$8DFC:98 TYA 0x018E0D|$06:$8DFD:18 CLC 0x018E0E|$06:$8DFE:69 12 ADC #$12 ; hero data is #$12 bytes wide 0x018E10|$06:$8E00:A8 TAY 0x018E11|$06:$8E01:C9 36 CMP #$36 ; max of 3 heroes at #$12 each => stop at #$36 0x018E13|$06:$8E03:D0 E9 BNE $8DEE ; if more heroes to check, check them 0x018E15|$06:$8E05:60 RTS ; handler for dialogue IDs #$29-#$94 (open dialogue window and display string specified by A + #$1D7, i.e. String IDs #$0200-#$026B) ; control flow target (from $81F0) 0x018E16|$06:$8E06:38 SEC 0x018E17|$06:$8E07:E9 29 SBC #$29 0x018E19|$06:$8E09:85 49 STA $49 ; object hero/target/item/string ID $49 0x018E1B|$06:$8E0B:48 PHA ; string ID 0x018E1C|$06:$8E0C:20 CB 9A JSR $9ACB ; open dialogue window 0x018E1F|$06:$8E0F:A9 00 LDA #$00 ; call to code in a different bank ($0F:$FC50) 0x018E21|$06:$8E11:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA 0x018E24|$06:$8E14:68 PLA ; string ID 0x018E25|$06:$8E15:C9 64 CMP #$64 ; either this or the above call to $FC50 are useless 0x018E27|$06:$8E17:90 17 BCC $8E30 0x018E29|$06:$8E19:48 PHA ; string ID 0x018E2A|$06:$8E1A:C9 6A CMP #$6A 0x018E2C|$06:$8E1C:B0 04 BCS $8E22 0x018E2E|$06:$8E1E:A9 00 LDA #$00 ; Midenhall 0x018E30|$06:$8E20:F0 0A BEQ $8E2C ; control flow target (from $8E1C) 0x018E32|$06:$8E22:C9 6A CMP #$6A ; string ID #026A uses Cannock's name 0x018E34|$06:$8E24:D0 04 BNE $8E2A ; string IDs > #026A uses Moonbrooke's name 0x018E36|$06:$8E26:A9 01 LDA #$01 ; Cannock 0x018E38|$06:$8E28:D0 02 BNE $8E2C ; control flow target (from $8E24) 0x018E3A|$06:$8E2A:A9 02 LDA #$02 ; Moonbrooke ; control flow target (from $8E20, $8E28) ; call to code in a different bank ($0F:$FC50) 0x018E3C|$06:$8E2C:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA 0x018E3F|$06:$8E2F:68 PLA ; String IDs #$0200-#$026B: "‘When in need, visit the Houses of Healing[.’][end-FC]" / "‘[name] is still inexperienced.[line]Return here in thy need[.’][end-FC]" / "‘One who sets foot upon the Travel Door is transported to a distant place[.’][end-FC]" / "‘The Dragon's Bane is a magic charm[.’][wait][line]‘It is said that it may keep one safe from the spell[.’][end-FC]" / "‘If thy path leads west of this castle thou shall reach the town of Leftwyne[.’][end-FC]" / "‘This is Midenhall Castle[.’][end-FC]" / "‘Remember to equip thyself with weapons and armor when thou obtains such items[.’][end-FC]" / "‘Woof, woof!’[end-FC]" / "‘[name], royalty should not venture into prisons such as this[.’][end-FC]" / "‘I have heard that the heir of our good King has ventured forth to do battle with the evil sorcerer, Hargon[.’][wait][line]‘What? Thou art the one? Luck be with thee[.’][end-FC]" / "‘If thou art poisoned, each step will weaken thee further[.’][end-FC]" / "‘Northward lies the castle of Cannock, my friend[.’][end-FC]" / "‘Welcome to Leftwyne[.’][end-FC]" / "‘Look for the monolith by the inland sea west of this place[.’][wait][line]‘It is by that route alone that thou shall reach Moonbrooke[.’][end-FC]" / "‘Oh, thou scared me! And my hiccups are cured! Thank thee, stranger[.’][end-FC]" / "‘Bow-wow!’[end-FC]" / "‘I have heard of a cave far to the east in which the Spring of Bravery rises[.’][end-FC]" / "‘Welcome to Cannock Castle[.’][end-FC]" / "‘Only if the descendants of Erdrick combine their skills can the forces of evil be overcome[.’][end-FC]" / "‘If thou would speak to the prisoners, do so through the barred doors[.’][end-FC]" / "‘Pssst.[line]I'll tell thee a secret[.’][wait][line]‘There is a silver key that opens doors of silver[.’][end-FC]" / "‘What does it matter if people steal things[.’][wait][line]‘The world is doomed no matter what happens[.’][end-FC]" / "‘I saw the sky burning red on the southern horizon[.’][wait][line]‘Perhaps it was Moonbrooke Castle in flames[.’][end-FC]" / "‘Listen closely[.’][wait][line]‘Our prince has studied the ways of magic, though with heavy armor or weapons he has no skill[.’][wait][line]‘Still, he seeks to fight evil[.’][end-FC]" / "‘There is a legend that tells of a great and good wizard who lives in a cave in the sea[.’][wait][line]‘If thou hast the five crests he will come to thee[.’][end-FC]" / "‘Here in Hamlin not all is as it seems[.’][wait][line]‘Talk to everyone, for appearances may not reflect the true person[.’][end-FC]" / "‘Southwest of this village lies the castle of Moonbrooke[.’][end-FC]" / "‘Some say that there is a tall tower, and in it a brave adventurer may find the Cloak of Wind[.’][wait][line]‘It can save thee if thou falls from a great height[.’][end-FC]" / "‘The Mirror of Ra was lost long ago in a swamp southeast of Hamlin in the place where four bridges can be seen[.’][end-FC]" / "‘Help! Help! Hargon is coming to destroy us all!’[end-FC]" / "‘Of keys and doors I know this[.’][wait][line]‘There are silver keys and golden keys, and doors to match them each[.’][wait][line]‘Seek thee first the silver key, for this is what I teach[.’][wait][line]‘That key is in the Cave of the Lake, west of Cannock's walls[.’][wait][line]‘But go only with a friend inside, or there thou shall surely fall[.’][end-FC]" / "‘Eastward, across an arm of the sea lies the kingdom of Alefgard[.’][wait][line]‘From there in ages past came a great warrior ‟a descendant of Erdrick” who slew dragons, and there came also a princess named Gwaelin[.’][end-FC]" / "‘Please, please, do not hurt me!’[wait][line]‘I can tell thee of a secret[.’][wait][line]‘In Hamlin Village there is a Water Crest. Seek it!’[end-FC]" / "‘It has been rumored that the king of Tantegel Castle has disappeared[.’][end-FC]" / "‘I am a soldier from Alefgard[.’][wait][line]‘Perhaps thou has seen ancient maps of my land, but it has changed much through the ages[.’][end-FC]" / "‘Thou art welcome in Lianport[.’][end-FC]" / "‘Yes, this is Tantegel[.’][end-FC]" / "‘The golden key opens the red door, too[.’][end-FC]" / "‘Pardon me, stranger, but I had a vision and in it descendants of the great hero Erdrick came to us in our need[.’][wait][line]‘Ah! So it was true.[line]Thou art truly welcome[.’][end-FC]" / "‘Thou hast come to Tantegel Castle[.’][end-FC]" / "‘Long ago Princess Gwaelin departed over the sea, but thy companion is her twin in appearance[.’][end-FC]" / "‘So thou has come even here to this simple room[.’][wait][line]‘I cannot help thee. My hope fled long ago[.’][end-FC]" / "‘The King keeps himself hidden, for he is afraid of Hargon's wrath[.’][end-FC]" / "‘The Echoing Flute blows a magical note[.’][wait][line]‘On an island, in a tower, in a chamber remote, play it and listen, a wise man once wrote[.’][wait][line]‘For when the sound echoes, there shall thou find, a crest of great power to aid thee in time[.’][end-FC]" / "‘So, thou art the great warriors of which we have heard[.’][end-FC]" / "‘Here in this coliseum many heroes have proven their strength[.’][end-FC]" / "‘Beyond lies the coliseum and the court of the King[.’][end-FC]" / "‘In the island town of Zahan in the southern ocean lives a man named Torval who owns the golden key[.’][end-FC]" / "‘As the story goes, it was a dark and stormy night when the pirate ship, Relentless, hit a reef and sank[.’][wait][line]‘They say that in its hold was the Echoing Flute[.’][end-FC]" / "‘I seek the Armor of Gaia[.’][wait][line]‘I was told that it was kept in a shop that sells armor[.’][end-FC]" / "Thou hast found the Stars Crest.[end-FC]" / "‘Do not overburden thyself. Cast away those items that thou doesn't need[.’][end-FC]" / "‘I have come seeking a thief by the name of Roge Fastfinger[.’][end-FC]" / "‘I warn thee to go back. This wizard's house may be thy ruin[.’][end-FC]" / "‘Thou hast come to Zahan at a poor time[.’][wait][line]‘All the men are away fishing at sea[.’][end-FC]" / "‘Many are the tales of a mountainous island in the sea and its great cavern[.’][wait][line]‘It is said that only one who bears the Moon Fragment may enter there[.’][end-FC]" / "‘One day I will be a great fisherman like Papa[.’][end-FC]" / "‘When the Moon Fragment is held upon high, the tide will rise and the seagulls cry[.’][end-FC]" / "‘Oh Formeo, Formeo, where for art thou my Formeo!’[end-FC]" / "‘Yes, I am Torval's wife. But just between us, he loves his dogs more than me[.’][end-FC]" / "‘That mutt yonder keeps pulling at my sleeve[.’][end-FC]" / "‘So thou hast heard of the sinking of the Relentless[.’][wait][line]‘Some say that the pirates simply left the plug out. Fools[.’][end-FC]" / "‘This is a town of lonely women, old men, dogs and children[.’][wait][line]‘What the men want of those stinking fish is beyond me[.’][end-FC]" / "‘Hello. This is the village of Tuhn[.’][end-FC]" / "‘Many years have passed since the Tower of the Moon could be reached by ship[.’][wait][line]‘It lies to the south[.’][end-FC]" / "‘Thou hast heard of Roge Fastfinger I see[.’][wait][line]‘Well, he stole the key to our watergate, the scoundrel.[line]We would dearly love to have it back[.’][end-FC]" / "‘If Jena sent thee, tell her I would not name our dog Ruffles for all the dragon's gold in Alefgard[.’][end-FC]" / "‘Ruff, ruff..[.’][end-FC]" / "‘It is said that the Tower of the Moon holds a piece of the moon[.’][end-FC]" / "‘I'm Jena. If thou meets my husband, tell him that my father's name was Ruffles[.’][end-FC]" / "‘Far and wide I have sought a master weaver who makes Water Flying Cloth, and they say such a man lives here[.’][end-FC]" / "‘If the watergate were to be raised, water would once more fill the dry riverbed[.’][end-FC]" / "‘Where has everyone gone?[line]Dost thou think it is my breath?’[end-FC]" / "‘Yip, yip, yip!’[end-FC]" / "‘Hargon dwells on the high plateau of Rhone[.’][wait][line]‘Only one who has the Eye of Malroth can find the road to that place[.’][end-FC]" / "‘It is true enough[.’][wait][line]‘I locked Roge Fastfinger in prison and threw away the key.[line]But he has escaped[.’][end-FC]" / "‘For the finest Water Flying Cloth I recommend Don Mahone who lives in Tuhn[.’][end-FC]" / "‘I bid thee welcome to Wellgarth Town[.’][wait][line]‘I shall sing for thee[.’][end-FC]" / "‘Let me tell thee, Hargon is a master of disguise, but if thou hast the Charm of Rubiss thou will see through the deception[.’][end-FC]" / "‘How dare thou enter a lady's room unbidden!’[end-FC]" / "‘It is said that the greatest shall fall by a spell of his own devising[.’][end-FC]" / "‘There is an isolated valley northwest of the town where once a road led to Rhone[.’][end-FC]" / "‘Some say that Hargon has cast a spell over his entire castle, that it looks fair and peaceful[.’][wait][line]‘Thou will not be deceived if thou hast the gift of Rubiss[.’][end-FC]" / "‘In the ocean far to the east lies an island and on it are trees from every corner of the world[.’][end-FC]" / "‘Having come this far, thou may as well try the door there to the left[.’][end-FC]" / "‘Roge Fastfinger? No, I have not heard the name[.’][end-FC]" / "‘We call this town Beran. Welcome[.’][end-FC]" / "‘Thou should see the King of Osterfair for the Moon Crest[.’][end-FC]" / "‘With the Magic Loom and Dew's Yarn thou can make the Water Flying Cloth[.’][end-FC]" / "‘The Leaf of the World Tree has the power to revive ghosts[.’][end-FC]" / "‘I seek the Thunder Sword, for one need not know magic to use its power[.’][end-FC]" / "‘Osterfair lies far south of Midenhall on a great island[.’][end-FC]" / "‘Welcome to Bragol's Tools. May I help thee?’[end-FC]" / "‘Greetings. I am the Keeper of this Inn[.’][end-FC]" / "‘Thou hast come to Midenhall[.’][end-FC]" / "‘[..][..][.’][end-FC]" / "‘[..][..][.’][end-FC]" / "‘Only the golden key can open this door[.’][end-FC]" / "‘This travel door takes one back to the underworld.[line]If that is thy wish, please enter[.’][end-FC]" / "‘The ancient road to Rhone was once west of this monolith[.’][end-FC]" / "‘In Cannock there is a young prince and Moonbrooke had a princess[.’][end-FC]" / "‘Although it makes me sad, thou must go forth and seek thy destiny[.’][end-FC]" / "‘Thief! Thief! What? Thou art [name], heir of Midenhall!’[wait][line]‘Please forgive me[.’][end-FC]" / "[end-FC]" / "‘Ghosts may wander this world under moon or sun and at times they may even be recalled[.’][end-FC]" / "‘If thy name is [name], I have a message for thee[.’][wait][line]‘Seek the Fire Monolith and thou shall find the Sun Crest[.’][end-FC]" / "‘That is the chamber of Prince [name]'s sister, Princess Halla[.’][end-FC]" / "‘After the sacking of Moonbrooke I escaped and made my way here, hoping others would follow[.’][end-FC]" ; control flow target (from $8E17) ; call to code in a different bank ($0F:$FA52) 0x018E40|$06:$8E30:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x018E43|$06:$8E33:A5 49 LDA $49 ; object hero/target/item/string ID $49 0x018E45|$06:$8E35:C9 6B CMP #$6B 0x018E47|$06:$8E37:D0 08 BNE $8E41 ; call to code in a different bank ($0F:$FA32) 0x018E49|$06:$8E39:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018E4C|$06:$8E3C:6C ; String ID #$026C: [end-FC] ; data -> code ; call to code in a different bank ($0F:$FA32) 0x018E4D|$06:$8E3D:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018E50|$06:$8E40:6D ; String ID #$026D: [end-FC] ; data -> code ; control flow target (from $8E37) 0x018E51|$06:$8E41:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue IDs #$95-#$9C (open dialogue window, display string specified by A + #$1D9, display YES/NO menu, and display string corresponding to selected option) ; control flow target (from $81F7) 0x018E54|$06:$8E44:38 SEC 0x018E55|$06:$8E45:E9 95 SBC #$95 ; why not just SBC #$27? 0x018E57|$06:$8E47:18 CLC 0x018E58|$06:$8E48:69 6E ADC #$6E ; String IDs #$026E-#$0275: "‘Dost thou think it was Hargon who attacked Moonbrooke and set it aflame?’[FD][FD][end-FC]" / "‘Dost thou have a lottery ticket?’[FD][FD][end-FC]" / "‘This is a sewing shop, true, but I do not have the Dew's Yarn[.’][line]Dost thou seek the Dew's Yarn, too?’[FD][FD][end-FC]" / "‘Hast thou heard of the sunken treasure?’[FD][FD][end-FC]" / "‘Tell me, did thou come to buy the Jailor's Key?’[FD][FD][end-FC]" / "‘Pardon me, good folk, but dost thou have the time?’[FD][FD][end-FC]" / "‘Hast thou found the Eye of Malroth?’[FD][FD][end-FC]" / "‘Hast thy travels taken thee to the monolith south of Midenhall?’[FD][FD][end-FC]" 0x018E5A|$06:$8E4A:85 49 STA $49 ; object hero/target/item/string ID $49 0x018E5C|$06:$8E4C:20 CB 9A JSR $9ACB ; open dialogue window 0x018E5F|$06:$8E4F:A5 49 LDA $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$FA52) 0x018E61|$06:$8E51:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x018E64|$06:$8E54:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x018E67|$06:$8E57:C9 00 CMP #$00 ; YES 0x018E69|$06:$8E59:D0 04 BNE $8E5F 0x018E6B|$06:$8E5B:A9 08 LDA #$08 ; String IDs #$0276-#$027D: "‘Yes, I think so, too[.’][end-FC]" / "‘The Lottery is but a game; do not take it too seriously[.’][end-FC]" / "‘Alas, I have no more of the Dew's Yarn, but I know where thou may seek some,[wait][line]for it is a substance made of wind and water and it drifts aloft until it lands on the third floor[line]in the North Tower of the Dragon's Horn[.’][end-FC]" / "‘The pirate ship sank in the wide seas of the north[.’][end-FC]" / "‘I heard that it is sold here, but perhaps that is a lie[.’][end-FC]" / "‘I thank thee very much indeed[.’][end-FC]" / "‘The Eye of Malroth sees much that is not readily apparent[.’][wait][line]‘Use it in the swamp of the hidden valley and perhaps thou will see a way to Rhone[.’][end-FC]" / "‘Please say nothing of this[.’][end-FC]" 0x018E6D|$06:$8E5D:D0 02 BNE $8E61 ; control flow target (from $8E59) 0x018E6F|$06:$8E5F:A9 10 LDA #$10 ; String IDs #$027E-#$0285: "‘But I cannot think of anyone else with such power[.’][end-FC]" / "‘Some merchants give out Lottery Tickets for free[.’][end-FC]" / "‘Stop again if thou art near[.’][end-FC]" / "‘Speak to the merchantman in Lianport[.’][end-FC]" / "‘Perhaps I should not say anything more[.’][end-FC]" / "‘Then may thy ears become cabbages and thy tongue a sausage[.’][wait][line]‘A little courtesy never killed anyone[.’][end-FC]" / "‘Once thou hast the Moon Fragment thou may enter the island cave where the Eye of Malroth is kept in darkness[.’][end-FC]" / "‘My brother must be there now. Will thou not go to him?’[end-FC]" ; control flow target (from $8E5D) 0x018E71|$06:$8E61:18 CLC 0x018E72|$06:$8E62:65 49 ADC $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$FA52) 0x018E74|$06:$8E64:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x018E77|$06:$8E67:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue IDs #$9D-#$C2 (town NPCs with complex logic) ; control flow target (from $81FE) 0x018E7A|$06:$8E6A:48 PHA ; dialogue ID 0x018E7B|$06:$8E6B:20 CB 9A JSR $9ACB ; open dialogue window 0x018E7E|$06:$8E6E:68 PLA ; dialogue ID 0x018E7F|$06:$8E6F:38 SEC 0x018E80|$06:$8E70:E9 9D SBC #$9D ; convert to zero-based 0x018E82|$06:$8E72:0A ASL ; 2 bytes per pointer 0x018E83|$06:$8E73:AA TAX 0x018E84|$06:$8E74:BD 81 8E LDA $8E81,X ; complex dialogue logic handlers 0x018E87|$06:$8E77:85 0C STA $0C 0x018E89|$06:$8E79:BD 82 8E LDA $8E82,X 0x018E8C|$06:$8E7C:85 0D STA $0D 0x018E8E|$06:$8E7E:6C 0C 00 JMP ($000C) ; code -> data ; complex dialogue logic handlers ; indexed data load target (from $8E74) 0x018E91|$06:$8E81:CD ; indexed data load target (from $8E79) 0x018E92|$06:$8E82: 8E ; $06:$8ECD; handler for dialogue ID #$9D: King in Map ID #$02: Midenhall 2F 0x018E93|$06:$8E83:6A 8F ; $06:$8F6A; handler for dialogue ID #$9E: Guard in Map ID #$02: Midenhall 2F 0x018E95|$06:$8E85:85 8F ; $06:$8F85; handler for dialogue ID #$9F: Wizard in Map ID #$02: Midenhall 2F 0x018E97|$06:$8E87:AC 8F ; $06:$8FAC; handler for dialogue ID #$A0: Brute in Map ID #$04: Midenhall B1 0x018E99|$06:$8E89:CC 8F ; $06:$8FCC; handler for dialogue ID #$A1: King in Map ID #$06: Cannock 0x018E9B|$06:$8E8B:19 90 ; $06:$9019; handler for dialogue ID #$A2: Princess Halla in Map ID #$06: Cannock 0x018E9D|$06:$8E8D:55 90 ; $06:$9055; handler for dialogue ID #$A3: Wizard in Map ID #$06: Cannock 0x018E9F|$06:$8E8F:65 90 ; $06:$9065; handler for dialogue ID #$A4-#$A5: Monsters in Map ID #$08: Hamlin Waterway 0x018EA1|$06:$8E91:65 90 ; $06:$9065; handler for dialogue ID #$A4-#$A5: Monsters in Map ID #$08: Hamlin Waterway 0x018EA3|$06:$8E93:77 90 ; $06:$9077; handler for dialogue ID #$A6: King Moonbrooke's Flame in Map ID #$09: Moonbrooke 0x018EA5|$06:$8E95:95 90 ; $06:$9095; handler for dialogue ID #$A7: Guard in Map ID #$0A: Moonbrooke B1 0x018EA7|$06:$8E97:A8 90 ; $06:$90A8; handler for dialogue ID #$A8: Wizard in Map ID #$0B: Lianport 0x018EA9|$06:$8E99:CC 90 ; $06:$90CC; handler for dialogue ID #$A9: Echoing Flute guy in NE in Map ID #$0B: Lianport 0x018EAB|$06:$8E9B:EF 90 ; $06:$90EF; handler for dialogue ID #$AA: Woman in Map ID #$0B: Lianport 0x018EAD|$06:$8E9D:02 91 ; $06:$9102; handler for dialogue ID #$AB: Brute in Map ID #$0B: Lianport 0x018EAF|$06:$8E9F:12 91 ; $06:$9112; handler for dialogue ID #$AC: Woman in SW corner of Map ID #$0B: Lianport 0x018EB1|$06:$8EA1:4D 91 ; $06:$914D; handler for dialogue ID #$AD: Wizard in Map ID #$0C: Tantegel 0x018EB3|$06:$8EA3:6E 91 ; $06:$916E; handler for dialogue ID #$AE: Wizard in Map ID #$0C: Tantegel 0x018EB5|$06:$8EA5:7B 91 ; $06:$917B; handler for dialogue ID #$AF: Priest in Map ID #$0C: Tantegel 0x018EB7|$06:$8EA7:97 91 ; $06:$9197; handler for dialogue ID #$B0: King in Map ID #$0F: Osterfair 0x018EB9|$06:$8EA9:13 92 ; $06:$9213; handler for dialogue ID #$B1: crazy fortuneteller Wizard in NW Map ID #$0F: Osterfair 0x018EBB|$06:$8EAB:8B 92 ; $06:$928B; handler for dialogue IDs #$B2-#$B3: Dog in Map ID #$0F: Osterfair 0x018EBD|$06:$8EAD:8B 92 ; $06:$928B; handler for dialogue IDs #$B2-#$B3: Dog in Map ID #$0F: Osterfair 0x018EBF|$06:$8EAF:92 92 ; $06:$9292; handler for dialogue ID #$B4: Dog in Map ID #$10: Zahan 0x018EC1|$06:$8EB1:99 92 ; $06:$9299; handler for dialogue ID #$B5: Don Mahone in Map ID #$11: Tuhn 0x018EC3|$06:$8EB3:FE 92 ; $06:$92FE; handler for dialogue ID #$B6: Roge Fastfinger in NE Map ID #$14: Wellgarth Underground 0x018EC5|$06:$8EB5:2C 93 ; $06:$932C; handler for dialogue IDs #$B7-#$B9: Priest in Map ID #$15: Beran 0x018EC7|$06:$8EB7:2C 93 ; $06:$932C; handler for dialogue IDs #$B7-#$B9: Priest in Map ID #$15: Beran 0x018EC9|$06:$8EB9:2C 93 ; $06:$932C; handler for dialogue IDs #$B7-#$B9: Priest in Map ID #$15: Beran 0x018ECB|$06:$8EBB:3E 93 ; $06:$933E; handler for dialogue ID #$BA: Monster in Map ID #$16: Hargon's Castle 1F 0x018ECD|$06:$8EBD:48 93 ; $06:$9348; handler for dialogue ID #$BB: Hargon in Map ID #$17: Hargon's Castle 7F 0x018ECF|$06:$8EBF:7F 93 ; $06:$937F; handler for dialogue ID #$BC: Dragonlord's Grandson in Map ID #$18: Charlock Castle B8 0x018ED1|$06:$8EC1:9B 93 ; $06:$939B; handler for dialogue ID #$BD: Guard in Map ID #$1A: Shrine SW of Cannock 0x018ED3|$06:$8EC3:9F 93 ; $06:$939F; handler for dialogue ID #$BE: Guard in Map ID #$1A: Shrine SW of Cannock 0x018ED5|$06:$8EC5:BE 93 ; $06:$93BE; handler for dialogue ID #$BF: Wizard in Map ID #$1C: Shrine SE of Rimuldar 0x018ED7|$06:$8EC7:E1 93 ; $06:$93E1; handler for dialogue ID #$C0: Wizard in Map ID #$15: Beran 0x018ED9|$06:$8EC9:00 94 ; $06:$9400; handler for dialogue ID #$C1: Priest in Map ID #$1F: Rhone Shrine 0x018EDB|$06:$8ECB:4D 94 ; $06:$944D; handler for dialogue ID #$C2: Priest in Map ID #$20: Shrine SW of Moonbrooke ; data -> code ; handler for dialogue ID #$9D: King in Map ID #$02: Midenhall 2F ; indirect control flow target (via $8E81) 0x018EDD|$06:$8ECD:20 D5 9A JSR $9AD5 ; set A/$97 to ID of first living hero 0x018EE0|$06:$8ED0:D0 3A BNE $8F0C ; different dialogue when talking to King Midenhall depending on whether Prince Midenhall is alive or not ; call to code in a different bank ($0F:$FC50) 0x018EE2|$06:$8ED2:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA32) 0x018EE5|$06:$8ED5:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018EE8|$06:$8ED8:86 ; String ID #$0286: ‘Welcome back, [name][.’][wait][end-FC] ; data -> code 0x018EE9|$06:$8ED9:20 66 94 JSR $9466 ; display EXP to next level messages for entire party 0x018EEC|$06:$8EDC:A9 00 LDA #$00 ; Midenhall; pointless since none of these string use the [name] control code ; call to code in a different bank ($0F:$FC50) 0x018EEE|$06:$8EDE:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA 0x018EF1|$06:$8EE1:A5 CA LDA $CA ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4) 0x018EF3|$06:$8EE3:C9 02 CMP #$02 0x018EF5|$06:$8EE5:F0 0D BEQ $8EF4 ; update Cannock quest status to 3 0x018EF7|$06:$8EE7:C9 03 CMP #$03 0x018EF9|$06:$8EE9:D0 0F BNE $8EFA 0x018EFB|$06:$8EEB:AD 3F 06 LDA $063F ; Cannock status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x018EFE|$06:$8EEE:29 04 AND #$04 ; pick out the In Party bit 0x018F00|$06:$8EF0:F0 04 BEQ $8EF6 ; message for when you're able to add Cannock, but haven't yet done so 0x018F02|$06:$8EF2:D0 06 BNE $8EFA ; control flow target (from $8EE5) 0x018F04|$06:$8EF4:E6 CA INC $CA ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4) ; control flow target (from $8EF0) ; call to code in a different bank ($0F:$FA32) 0x018F06|$06:$8EF6:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018F09|$06:$8EF9:89 ; String ID #$0289: ‘Well, thou hast missed him[.’][wait][line]‘The Prince of Cannock was here, but now he is off to Midenhall, looking for thee, I believe[.’][wait][end-FC] ; data -> code ; control flow target (from $8EE9, $8EF2) ; call to code in a different bank ($0F:$FA32) 0x018F0A|$06:$8EFA:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018F0D|$06:$8EFD:87 ; String ID #$0287: ‘Dost thou wish to save thy deeds in the Imperial Scrolls of Honor?’[FD][FD][end-FC] ; data -> code 0x018F0E|$06:$8EFE:A9 00 LDA #$00 ; Save Point ID #$00: Midenhall 2F 0x018F10|$06:$8F00:85 48 STA $48 ; last save point ID 0x018F12|$06:$8F02:20 5D A3 JSR $A35D ; save game handler ; call to code in a different bank ($0F:$FA32) 0x018F15|$06:$8F05:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018F18|$06:$8F08:88 ; String ID #$0288: [wait]‘All of us await the day that Hargon is cast down[.’][end-FC] ; data -> code 0x018F19|$06:$8F09:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $8ED0) 0x018F1C|$06:$8F0C:A9 00 LDA #$00 ; Midenhall ; call to code in a different bank ($0F:$FC50) 0x018F1E|$06:$8F0E:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA32) 0x018F21|$06:$8F11:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018F24|$06:$8F14:8A ; String ID #$028A: ‘Poor [name]. Thou hast met an untimely end[.’][wait][end-FC] ; data -> code 0x018F25|$06:$8F15:20 66 94 JSR $9466 ; display EXP to next level messages for entire party 0x018F28|$06:$8F18:A9 00 LDA #$00 ; Save Point ID #$00: Midenhall 2F 0x018F2A|$06:$8F1A:85 48 STA $48 ; last save point ID ; call to code in a different bank ($0F:$FA32) 0x018F2C|$06:$8F1C:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018F2F|$06:$8F1F:87 ; String ID #$0287: ‘Dost thou wish to save thy deeds in the Imperial Scrolls of Honor?’[FD][FD][end-FC] ; data -> code ; call to code in a different bank ($0F:$D16B) 0x018F30|$06:$8F20:20 6B D1 JSR $D16B 0x018F33|$06:$8F23:20 D5 9A JSR $9AD5 ; set A/$97 to ID of first living hero 0x018F36|$06:$8F26:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA32) 0x018F39|$06:$8F29:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018F3C|$06:$8F2C:8B ; String ID #$028B: ‘[name]!’[wait][end-FC] ; data -> code 0x018F3D|$06:$8F2D:A9 00 LDA #$00 ; Midenhall ; call to code in a different bank ($0F:$FC50) 0x018F3F|$06:$8F2F:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA32) 0x018F42|$06:$8F32:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018F45|$06:$8F35:8C ; String ID #$028C: ‘Please give thy[line]regards to my son[.’][end-FC] ; data -> code 0x018F46|$06:$8F36:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; external control flow target (from $0F:$D28F) 0x018F49|$06:$8F39:4E 25 06 LSR $0625 ; party gold, high byte; full party death costs you half your gold 0x018F4C|$06:$8F3C:6E 24 06 ROR $0624 ; party gold, low byte 0x018F4F|$06:$8F3F:20 CB 9A JSR $9ACB ; open dialogue window 0x018F52|$06:$8F42:A9 00 LDA #$00 ; Midenhall ; call to code in a different bank ($0F:$FC50) 0x018F54|$06:$8F44:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA32) 0x018F57|$06:$8F47:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018F5A|$06:$8F4A:8D ; String ID #$028D: ‘No pulse, no breath, cold as a cod[.’][wait][line]‘Yes, thou art truly dead, [name][.’][wait][line]‘I suppose I had better revive thee, though thou deserve less[.’][end-FC] ; data -> code 0x018F5B|$06:$8F4B:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; external control flow target (from $0F:$C6FD) 0x018F5E|$06:$8F4E:20 CB 9A JSR $9ACB ; open dialogue window 0x018F61|$06:$8F51:20 D5 9A JSR $9AD5 ; set A/$97 to ID of first living hero 0x018F64|$06:$8F54:48 PHA ; call to code in a different bank ($0F:$FC50) 0x018F65|$06:$8F55:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA32) 0x018F68|$06:$8F58:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018F6B|$06:$8F5B:8E ; String ID #$028E: ‘Welcome back, [name][.’][wait][end-FC] ; data -> code 0x018F6C|$06:$8F5C:20 66 94 JSR $9466 ; display EXP to next level messages for entire party 0x018F6F|$06:$8F5F:68 PLA ; call to code in a different bank ($0F:$FC50) 0x018F70|$06:$8F60:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA32) 0x018F73|$06:$8F63:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018F76|$06:$8F66:90 ; String ID #$0290: ‘Thy road is long and fraught with peril, but don't despair.[line]Come see me in thy need, [name][.’][end-FC] ; data -> code 0x018F77|$06:$8F67:4C 92 80 JMP $8092 ; wait until all joypad buttons are released and then some button pressed then wipe menus and exit COMMAND menu ; handler for dialogue ID #$9E: Guard in Map ID #$02: Midenhall 2F ; indirect control flow target (via $8E83) 0x018F7A|$06:$8F6A:A9 00 LDA #$00 ; Midenhall ; call to code in a different bank ($0F:$FC50) 0x018F7C|$06:$8F6C:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA 0x018F7F|$06:$8F6F:A5 44 LDA $44 ; non-saved event status (#$00 = event start, #$01 = Lianport Gremlins defeated, #$02 = met with Lianport grandfather/have no friends at Shrine SW of Cannock, #$03 = King Midenhall moved to stairs, #$04 = King Midenhall moved down stairs, #$05 = King Midenhall spoke on Midenhall 1F, #$0B = Lighthouse Wizard 7F, #$1B Lighthouse Wizard 2F spoke, #$64 = Hargon dead, #$FF = event end) 0x018F81|$06:$8F71:C9 03 CMP #$03 0x018F83|$06:$8F73:F0 08 BEQ $8F7D 0x018F85|$06:$8F75:C9 04 CMP #$04 0x018F87|$06:$8F77:F0 04 BEQ $8F7D 0x018F89|$06:$8F79:A9 92 LDA #$92 ; String ID #$0292: ‘I would come with thee, [name],[wait][line]but my place is here beside the King[.’][end-FC] 0x018F8B|$06:$8F7B:D0 02 BNE $8F7F ; control flow target (from $8F73, $8F77) 0x018F8D|$06:$8F7D:A9 91 LDA #$91 ; String ID #$0291: ‘By land and sea and air will thy path lead, and in places I cannot see[.’][end-FC] ; control flow target (from $8F7B) ; call to code in a different bank ($0F:$FA52) 0x018F8F|$06:$8F7F:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x018F92|$06:$8F82:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$9F: Wizard in Map ID #$02: Midenhall 2F ; indirect control flow target (via $8E85) 0x018F95|$06:$8F85:A9 00 LDA #$00 ; Midenhall ; call to code in a different bank ($0F:$FC50) 0x018F97|$06:$8F87:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA 0x018F9A|$06:$8F8A:A5 44 LDA $44 ; non-saved event status (#$00 = event start, #$01 = Lianport Gremlins defeated, #$02 = met with Lianport grandfather/have no friends at Shrine SW of Cannock, #$03 = King Midenhall moved to stairs, #$04 = King Midenhall moved down stairs, #$05 = King Midenhall spoke on Midenhall 1F, #$0B = Lighthouse Wizard 7F, #$1B Lighthouse Wizard 2F spoke, #$64 = Hargon dead, #$FF = event end) 0x018F9C|$06:$8F8C:C9 03 CMP #$03 0x018F9E|$06:$8F8E:F0 04 BEQ $8F94 0x018FA0|$06:$8F90:C9 04 CMP #$04 0x018FA2|$06:$8F92:D0 07 BNE $8F9B ; control flow target (from $8F8E) ; call to code in a different bank ($0F:$FA32) 0x018FA4|$06:$8F94:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018FA7|$06:$8F97:93 ; String ID #$0293: ‘It is difficult to see thee go, [name][.’][end-FC] ; data -> code 0x018FA8|$06:$8F98:4C A9 8F JMP $8FA9 ; control flow target (from $8F92) 0x018FAB|$06:$8F9B:20 D5 9A JSR $9AD5 ; set A/$97 to ID of first living hero 0x018FAE|$06:$8F9E:D0 04 BNE $8FA4 ; branch if Midenhall dead 0x018FB0|$06:$8FA0:A9 94 LDA #$94 ; String ID #$0294: ‘Thou art now as strong as an ox and twice as good looking.[line]That is very good[.’][end-FC] 0x018FB2|$06:$8FA2:D0 02 BNE $8FA6 ; control flow target (from $8F9E) 0x018FB4|$06:$8FA4:A9 95 LDA #$95 ; String ID #$0295: ‘[name], it is such a pity[.’][end-FC] ; control flow target (from $8FA2) ; call to code in a different bank ($0F:$FA52) 0x018FB6|$06:$8FA6:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 ; control flow target (from $8F98) 0x018FB9|$06:$8FA9:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$A0: Brute in Map ID #$04: Midenhall B1 ; indirect control flow target (via $8E87) 0x018FBC|$06:$8FAC:AD F2 05 LDA $05F2 ; probably whether door between you and NPC is open 0x018FBF|$06:$8FAF:F0 13 BEQ $8FC4 ; call to code in a different bank ($0F:$FA32) 0x018FC1|$06:$8FB1:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018FC4|$06:$8FB4:96 ; String ID #$0296: ‘Dost thou have the Jailor's Key?’[end-FC] ; data -> code 0x018FC5|$06:$8FB5:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x018FC8|$06:$8FB8:C9 00 CMP #$00 ; YES 0x018FCA|$06:$8FBA:D0 04 BNE $8FC0 0x018FCC|$06:$8FBC:A9 97 LDA #$97 ; String ID #$0297: ‘Open this and I shall give thee some news[.’][end-FC] 0x018FCE|$06:$8FBE:D0 06 BNE $8FC6 ; control flow target (from $8FBA) 0x018FD0|$06:$8FC0:A9 98 LDA #$98 ; String ID #$0298: ‘Be gone with thee!’[end-FC] 0x018FD2|$06:$8FC2:D0 02 BNE $8FC6 ; control flow target (from $8FAF) 0x018FD4|$06:$8FC4:A9 99 LDA #$99 ; String ID #$0299: ‘As a reward for opening the door, let me tell thee of the Crest of Life[.’][wait][line]‘Find it on the dark road that leads to Rhone[.’][end-FC] ; control flow target (from $8FBE, $8FC2) ; call to code in a different bank ($0F:$FA52) 0x018FD6|$06:$8FC6:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x018FD9|$06:$8FC9:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$A1: King in Map ID #$06: Cannock ; indirect control flow target (via $8E89) 0x018FDC|$06:$8FCC:20 D5 9A JSR $9AD5 ; set A/$97 to ID of first living hero ; call to code in a different bank ($0F:$FC50) 0x018FDF|$06:$8FCF:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$F6CE) 0x018FE2|$06:$8FD2:20 CE F6 JSR $F6CE ; return number of party members - 1 in A/X 0x018FE5|$06:$8FD5:85 49 STA $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$FA32) 0x018FE7|$06:$8FD7:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x018FEA|$06:$8FDA:E2 ; String ID #$02E2: ‘Welcome, [name]!’[wait][end-FC] ; data -> code 0x018FEB|$06:$8FDB:20 66 94 JSR $9466 ; display EXP to next level messages for entire party 0x018FEE|$06:$8FDE:A9 01 LDA #$01 ; Cannock ; call to code in a different bank ($0F:$FC50) 0x018FF0|$06:$8FE0:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA 0x018FF3|$06:$8FE3:A5 CA LDA $CA ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4) 0x018FF5|$06:$8FE5:F0 06 BEQ $8FED 0x018FF7|$06:$8FE7:C9 01 CMP #$01 0x018FF9|$06:$8FE9:F0 04 BEQ $8FEF 0x018FFB|$06:$8FEB:D0 09 BNE $8FF6 ; control flow target (from $8FE5) 0x018FFD|$06:$8FED:E6 CA INC $CA ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4) ; control flow target (from $8FE9) ; call to code in a different bank ($0F:$FA32) 0x018FFF|$06:$8FEF:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019002|$06:$8FF2:9D ; String ID #$029D: ‘My son, [name], has already left on his journey[.’][wait] [line]‘Please find him and take him as thy companion[.’][wait][end-FC] ; data -> code 0x019003|$06:$8FF3:4C 02 90 JMP $9002 ; control flow target (from $8FEB) 0x019006|$06:$8FF6:C9 03 CMP #$03 0x019008|$06:$8FF8:D0 08 BNE $9002 0x01900A|$06:$8FFA:A5 49 LDA $49 ; object hero/target/item/string ID $49 0x01900C|$06:$8FFC:D0 04 BNE $9002 ; call to code in a different bank ($0F:$FA32) 0x01900E|$06:$8FFE:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019011|$06:$9001:9E ; String ID #$029E: [end-FC] ; data -> code ; control flow target (from $8FF3, $8FF8, $8FFC) ; call to code in a different bank ($0F:$FA32) 0x019012|$06:$9002:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019015|$06:$9005:87 ; String ID #$0287: ‘Dost thou wish to save thy deeds in the Imperial Scrolls of Honor?’[FD][FD][end-FC] ; data -> code 0x019016|$06:$9006:A9 01 LDA #$01 ; Save Point ID #$01: Cannock 0x019018|$06:$9008:85 48 STA $48 ; last save point ID 0x01901A|$06:$900A:20 5D A3 JSR $A35D ; save game handler 0x01901D|$06:$900D:A9 01 LDA #$01 ; Cannock ; call to code in a different bank ($0F:$FC50) 0x01901F|$06:$900F:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA32) 0x019022|$06:$9012:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019025|$06:$9015:9C ; String ID #$029C: [wait]‘With my son's help thou shall go far[.’][end-FC] ; data -> code 0x019026|$06:$9016:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$A2: Princess Halla in Map ID #$06: Cannock ; indirect control flow target (via $8E8B) 0x019029|$06:$9019:A5 CA LDA $CA ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4) 0x01902B|$06:$901B:C9 04 CMP #$04 0x01902D|$06:$901D:D0 04 BNE $9023 0x01902F|$06:$901F:A9 A4 LDA #$A4 ; String ID #$02A4: [end-FC] 0x019031|$06:$9021:D0 16 BNE $9039 ; control flow target (from $901D) ; call to code in a different bank ($0F:$F6CE) 0x019033|$06:$9023:20 CE F6 JSR $F6CE ; return number of party members - 1 in A/X 0x019036|$06:$9026:D0 17 BNE $903F ; call to code in a different bank ($0F:$FA32) 0x019038|$06:$9028:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01903B|$06:$902B:9F ; String ID #$029F: ‘Who art thou?[line]A friend of my brother's?’[FD][FD][end-FC] ; data -> code 0x01903C|$06:$902C:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x01903F|$06:$902F:C9 00 CMP #$00 ; YES 0x019041|$06:$9031:D0 04 BNE $9037 0x019043|$06:$9033:A9 A0 LDA #$A0 ; String ID #$02A0: ‘Then I'll give thee some advice[.’][wait][line]‘My brother has gone searching for the Spring of Bravery, but he travels slowly[.’][end-FC] 0x019045|$06:$9035:D0 02 BNE $9039 ; control flow target (from $9031) 0x019047|$06:$9037:A9 A1 LDA #$A1 ; String ID #$02A1: ‘Then I wish to be left alone[.’][end-FC] ; control flow target (from $9021, $9035, $904F, $9053) ; call to code in a different bank ($0F:$FA52) 0x019049|$06:$9039:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x01904C|$06:$903C:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9026) 0x01904F|$06:$903F:A9 01 LDA #$01 ; Cannock 0x019051|$06:$9041:85 97 STA $97 ; subject hero ID $97 0x019053|$06:$9043:A9 80 LDA #$80 ; Alive 0x019055|$06:$9045:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x019058|$06:$9048:90 07 BCC $9051 0x01905A|$06:$904A:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA 0x01905D|$06:$904D:A9 A2 LDA #$A2 ; String ID #$02A2: ‘So, thou hast found my brother[.’][wait][line]‘Why dost thou tarry here when the world is in grave peril?’[end-FC] 0x01905F|$06:$904F:D0 E8 BNE $9039 ; control flow target (from $9048) 0x019061|$06:$9051:A9 A3 LDA #$A3 ; String ID #$02A3: ‘Oh, no! He is as dead as a pork chop[.’][end-FC] 0x019063|$06:$9053:D0 E4 BNE $9039 ; handler for dialogue ID #$A3: Wizard in Map ID #$06: Cannock ; indirect control flow target (via $8E8D) ; call to code in a different bank ($0F:$FA32) 0x019065|$06:$9055:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019068|$06:$9058:A5 ; String ID #$02A5: ‘Well, don't just stand there.[line]Open the treasure chest[.’][end-FC] ; data -> code 0x019069|$06:$9059:AD 1A 05 LDA $051A ; something to do with whether you've opened the chest containing the Shield of Erdrick 0x01906C|$06:$905C:F0 04 BEQ $9062 ; call to code in a different bank ($0F:$FA32) 0x01906E|$06:$905E:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019071|$06:$9061:A6 ; String ID #$02A6: [wait]‘So you've already peeked, eh?’[end-FC] ; data -> code ; control flow target (from $905C) 0x019072|$06:$9062:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$A4-#$A5: Monsters in Map ID #$08: Hamlin Waterway ; indirect control flow target (via $8E8F, $8E91) ; call to code in a different bank ($0F:$FA32) 0x019075|$06:$9065:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019078|$06:$9068:A9 ; String ID #$02A9: ‘Aiyee!’[end-FC] ; data -> code 0x019079|$06:$9069:AD F2 05 LDA $05F2 ; probably whether door between you and NPC is open 0x01907C|$06:$906C:D0 06 BNE $9074 ; call to code in a different bank ($0F:$D1A1) 0x01907E|$06:$906E:20 A1 D1 JSR $D1A1 ; handle Hamlin Waterway Gremlins fight 0x019081|$06:$9071:4C 95 80 JMP $8095 ; wipe menus and exit COMMAND menu ; control flow target (from $906C) 0x019084|$06:$9074:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$A6: King Moonbrooke's Flame in Map ID #$09: Moonbrooke ; indirect control flow target (via $8E93) 0x019087|$06:$9077:A9 02 LDA #$02 ; Moonbrooke ; call to code in a different bank ($0F:$FC50) 0x019089|$06:$9079:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA32) 0x01908C|$06:$907C:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01908F|$06:$907F:AA ; String ID #$02AA: ‘Woe is me, for I am the unhappy ghost of the King of Moonbrooke[.’][wait][line]‘To make matters worse, my daughter has been cursed and transformed into a common mutt[.’][wait][line]‘I am burning with shame[.’][end-FC] ; data -> code 0x019090|$06:$9080:AD 51 06 LDA $0651 ; Moonbrooke status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x019093|$06:$9083:29 84 AND #$84 ; pick out the Alive and In Party bits 0x019095|$06:$9085:C9 84 CMP #$84 ; is Moonbrooke alive and in your party? 0x019097|$06:$9087:D0 09 BNE $9092 ; if yes, she gets extra text 0x019099|$06:$9089:A9 02 LDA #$02 ; Moonbrooke ; call to code in a different bank ($0F:$FC50) 0x01909B|$06:$908B:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA32) 0x01909E|$06:$908E:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x0190A1|$06:$9091:AB ; String ID #$02AB: [wait][line][no voice]Then [name] cried[line][no voice]out: ‘Father? Is it really thee in the flames?’[wait][line]And the Flame replied: ‘Alas, it is I. It is Hargon's way of firing those he doesn't need[.’][end-FC] ; data -> code ; control flow target (from $9087) 0x0190A2|$06:$9092:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$A7: Guard in Map ID #$0A: Moonbrooke B1 ; indirect control flow target (via $8E95) 0x0190A5|$06:$9095:20 93 94 JSR $9493 ; SEC if Moonbrooke in party, CLC otherwise 0x0190A8|$06:$9098:90 07 BCC $90A1 ; call to code in a different bank ($0F:$FA32) 0x0190AA|$06:$909A:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x0190AD|$06:$909D:AD ; String ID #$02AD: ‘Princess, thou art now free[.’][end-FC] ; data -> code 0x0190AE|$06:$909E:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9098) ; call to code in a different bank ($0F:$FA32) 0x0190B1|$06:$90A1:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x0190B4|$06:$90A4:AC ; String ID #$02AC: ‘The Princess has been transformed by a curse[.’][wait][line]‘Only the Mirror of Ra can break the spell, for in that glass one sees her true self[.’][end-FC] ; data -> code 0x0190B5|$06:$90A5:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$A8: Wizard in Map ID #$0B: Lianport ; indirect control flow target (via $8E97) 0x0190B8|$06:$90A8:AD 9C 05 LDA $059C ; NPC #$0C X-pos 0x0190BB|$06:$90AB:C9 0F CMP #$0F 0x0190BD|$06:$90AD:D0 04 BNE $90B3 0x0190BF|$06:$90AF:A9 B8 LDA #$B8 ; String ID #$02B8: ‘Farewell[.’][end-FC] 0x0190C1|$06:$90B1:D0 06 BNE $90B9 ; control flow target (from $90AD) 0x0190C3|$06:$90B3:A5 CF LDA $CF ; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins) 0x0190C5|$06:$90B5:D0 08 BNE $90BF 0x0190C7|$06:$90B7:A9 AE LDA #$AE ; String ID #$02AE: ‘We never lend boats to strangers, sorry[.’][end-FC] ; control flow target (from $90B1) ; call to code in a different bank ($0F:$FA52) 0x0190C9|$06:$90B9:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x0190CC|$06:$90BC:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $90B5) ; call to code in a different bank ($0F:$FA32) 0x0190CF|$06:$90BF:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x0190D2|$06:$90C2:AF ; String ID #$02AF: ‘Oh, thou art the ones who helped my granddaughter[.’][wait][line]‘Many thanks[.’][end-FC] ; data -> code ; call to code in a different bank ($0F:$D0F5) 0x0190D3|$06:$90C3:20 F5 D0 JSR $D0F5 ; wait for a while and then wipe menu regions #$03, #$00, and #$01 ; call to code in a different bank ($0F:$CCA2) 0x0190D6|$06:$90C6:20 A2 CC JSR $CCA2 0x0190D9|$06:$90C9:4C 95 80 JMP $8095 ; wipe menus and exit COMMAND menu ; handler for dialogue ID #$A9: Echoing Flute guy in NE in Map ID #$0B: Lianport ; indirect control flow target (via $8E99) 0x0190DC|$06:$90CC:A9 25 LDA #$25 ; Item ID #$25: Tresures 0x0190DE|$06:$90CE:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x0190E1|$06:$90D1:10 0B BPL $90DE ; branch if found 0x0190E3|$06:$90D3:A9 2A LDA #$2A ; Item ID #$2A: Echoing Flute 0x0190E5|$06:$90D5:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x0190E8|$06:$90D8:10 0D BPL $90E7 ; branch if found 0x0190EA|$06:$90DA:A9 B0 LDA #$B0 ; String ID #$02B0: ‘The pirate ship Relentless sank in chill waters with a great treasure still aboard[.’][wait][line]‘Bring me this treasure and I shall pay a handsome fee[.’][end-FC] 0x0190EC|$06:$90DC:D0 0B BNE $90E9 ; control flow target (from $90D1) 0x0190EE|$06:$90DE:A9 2A LDA #$2A ; Item ID #$2A: Echoing Flute 0x0190F0|$06:$90E0:9D 00 06 STA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped); replace Tresures in party inventory with Echoing Flute 0x0190F3|$06:$90E3:A9 B1 LDA #$B1 ; String ID #$02B1: ‘Thou hast done exceedingly well[.’][wait][line]‘As I promised I shall give thee the Echoing Flute as thy reward[.’][end-FC] 0x0190F5|$06:$90E5:D0 02 BNE $90E9 ; control flow target (from $90D8) 0x0190F7|$06:$90E7:A9 B2 LDA #$B2 ; String ID #$02B2: ‘Thanks to thee I was greatly helped[.’][end-FC] ; control flow target (from $90DC, $90E5) ; call to code in a different bank ($0F:$FA52) 0x0190F9|$06:$90E9:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x0190FC|$06:$90EC:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$AA: Woman in Map ID #$0B: Lianport ; indirect control flow target (via $8E9B) 0x0190FF|$06:$90EF:AD 94 05 LDA $0594 ; NPC #$0B X-pos 0x019102|$06:$90F2:C9 03 CMP #$03 0x019104|$06:$90F4:D0 04 BNE $90FA 0x019106|$06:$90F6:A9 B9 LDA #$B9 ; String ID #$02B9: ‘I am in thy debt.[line]Please see my grandfather[.’][wait][line]‘He is at the port where his ship is docked[.’][end-FC] 0x019108|$06:$90F8:D0 02 BNE $90FC ; control flow target (from $90F4) 0x01910A|$06:$90FA:A9 B7 LDA #$B7 ; String ID #$02B7: ‘I wish thee speed and health[.’][end-FC] ; control flow target (from $90F8) ; call to code in a different bank ($0F:$FA52) 0x01910C|$06:$90FC:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x01910F|$06:$90FF:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$AB: Brute in Map ID #$0B: Lianport ; indirect control flow target (via $8E9D) ; call to code in a different bank ($0F:$FA32) 0x019112|$06:$9102:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019115|$06:$9105:BA ; String ID #$02BA: ‘I have nothing to say to thee[.’][end-FC] ; data -> code 0x019116|$06:$9106:20 9D 94 JSR $949D ; SEC if Moonbrooke alive, CLC otherwise 0x019119|$06:$9109:90 04 BCC $910F ; call to code in a different bank ($0F:$FA32) 0x01911B|$06:$910B:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01911E|$06:$910E:BB ; String ID #$02BB: [wait]‘That's right, nothing at all[.’][end-FC] ; data -> code ; control flow target (from $9109) 0x01911F|$06:$910F:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$AC: Woman in SW corner of Map ID #$0B: Lianport ; indirect control flow target (via $8E9F) 0x019122|$06:$9112:20 9D 94 JSR $949D ; SEC if Moonbrooke alive, CLC otherwise 0x019125|$06:$9115:B0 2E BCS $9145 ; if Moonbrooke's alive, display the boring string, otherwise... ; call to code in a different bank ($0F:$FA32) 0x019127|$06:$9117:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01912A|$06:$911A:BC ; String ID #$02BC: ‘Dost thou think I am pretty enough to be a queen?’[end-FC] ; data -> code 0x01912B|$06:$911B:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x01912E|$06:$911E:C9 00 CMP #$00 ; #$00 = YES 0x019130|$06:$9120:D0 1F BNE $9141 ; branch if you chose NO 0x019132|$06:$9122:20 D5 9A JSR $9AD5 ; set A/$97 to ID of first living hero 0x019135|$06:$9125:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA 0x019138|$06:$9128:A9 64 LDA #$64 ; 100 gold 0x01913A|$06:$912A:85 8F STA $8F 0x01913C|$06:$912C:A9 00 LDA #$00 0x01913E|$06:$912E:85 90 STA $90 0x019140|$06:$9130:20 31 8D JSR $8D31 ; given gold amount in $8F-$90, decrease party gold by that amount and SEC if possible, CLC otherwise 0x019143|$06:$9133:B0 08 BCS $913D ; if you didn't have 100 G to start with, reduce party gold to 0 :( 0x019145|$06:$9135:A9 00 LDA #$00 0x019147|$06:$9137:8D 24 06 STA $0624 ; party gold, low byte 0x01914A|$06:$913A:8D 25 06 STA $0625 ; party gold, high byte ; control flow target (from $9133) 0x01914D|$06:$913D:A9 BD LDA #$BD ; String ID #$02BD: ‘Perhaps the great Prince of Cannock thinks so too[.’][end-FC] 0x01914F|$06:$913F:D0 06 BNE $9147 ; control flow target (from $9120) 0x019151|$06:$9141:A9 BE LDA #$BE ; String ID #$02BE: ‘What's wrong!’[end-FC] 0x019153|$06:$9143:D0 02 BNE $9147 ; control flow target (from $9115) 0x019155|$06:$9145:A9 BF LDA #$BF ; String ID #$02BF: ‘Be nice to one who lives here; she knows how to turn princes into tadpoles[.’][end-FC] ; control flow target (from $913F, $9143) ; call to code in a different bank ($0F:$FA52) 0x019157|$06:$9147:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x01915A|$06:$914A:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$AD: Wizard in Map ID #$0C: Tantegel ; indirect control flow target (via $8EA1) 0x01915D|$06:$914D:A9 00 LDA #$00 0x01915F|$06:$914F:85 49 STA $49 ; object hero/target/item/string ID $49 0x019161|$06:$9151:85 97 STA $97 ; subject hero ID $97 ; control flow target (from $915E) 0x019163|$06:$9153:20 FC 9A JSR $9AFC ; given hero ID in $97 and hero inventory index in $49, set Z if item is equipped and cursed, clear if not 0x019166|$06:$9156:F0 0A BEQ $9162 0x019168|$06:$9158:E6 49 INC $49 ; object hero/target/item/string ID $49 0x01916A|$06:$915A:A5 49 LDA $49 ; object hero/target/item/string ID $49 0x01916C|$06:$915C:C9 18 CMP #$18 ; party inventory size 0x01916E|$06:$915E:D0 F3 BNE $9153 0x019170|$06:$9160:F0 04 BEQ $9166 ; control flow target (from $9156) 0x019172|$06:$9162:A9 C1 LDA #$C1 ; String ID #$02C1: ‘Unfortunately I have not the skill to cure this curse[.’][end-FC] 0x019174|$06:$9164:D0 02 BNE $9168 ; control flow target (from $9160) 0x019176|$06:$9166:A9 C0 LDA #$C0 ; String ID #$02C0: ‘Come here when thou art afflicted by a curse[.’][end-FC] ; control flow target (from $9164) ; call to code in a different bank ($0F:$FA52) 0x019178|$06:$9168:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x01917B|$06:$916B:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$AE: Wizard in Map ID #$0C: Tantegel ; indirect control flow target (via $8EA3) ; call to code in a different bank ($0F:$FA32) 0x01917E|$06:$916E:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019181|$06:$9171:C2 ; String ID #$02C2: ‘Peace be with thee[.’][end-FC] ; data -> code ; call to code in a different bank ($0F:$C515) 0x019182|$06:$9172:20 15 C5 JSR $C515 ; flash screen 10 times 0x019185|$06:$9175:20 EC 8D JSR $8DEC ; restore full MP to all living party members 0x019188|$06:$9178:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$AF: Priest in Map ID #$0C: Tantegel ; indirect control flow target (via $8EA5) 0x01918B|$06:$917B:20 D5 9A JSR $9AD5 ; set A/$97 to ID of first living hero ; call to code in a different bank ($0F:$FA32) 0x01918E|$06:$917E:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019191|$06:$9181:C3 ; String ID #$02C3: ‘To the noble descendant of Erdrick I bid welcome[.’][wait][end-FC] ; data -> code 0x019192|$06:$9182:20 66 94 JSR $9466 ; display EXP to next level messages for entire party ; call to code in a different bank ($0F:$FA32) 0x019195|$06:$9185:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019198|$06:$9188:A7 ; String ID #$02A7: ‘Although there is no king here, I can save thy deeds[.’][wait][line]‘Shall I do this?’[FD][FD][end-FC] ; data -> code 0x019199|$06:$9189:A9 02 LDA #$02 ; Save Point ID #$02: Tantegel 0x01919B|$06:$918B:85 48 STA $48 ; last save point ID 0x01919D|$06:$918D:20 5D A3 JSR $A35D ; save game handler ; call to code in a different bank ($0F:$FA32) 0x0191A0|$06:$9190:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x0191A3|$06:$9193:C4 ; String ID #$02C4: [wait]‘Go in peace[.’][end-FC] ; data -> code 0x0191A4|$06:$9194:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$B0: King in Map ID #$0F: Osterfair ; indirect control flow target (via $8EA7) 0x0191A7|$06:$9197:A5 98 LDA $98 ; outcome of last fight? 0x0191A9|$06:$9199:F0 06 BEQ $91A1 0x0191AB|$06:$919B:C9 FC CMP #$FC 0x0191AD|$06:$919D:F0 44 BEQ $91E3 0x0191AF|$06:$919F:D0 25 BNE $91C6 ; control flow target (from $9199) 0x0191B1|$06:$91A1:AD 12 01 LDA $0112 ; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun) 0x0191B4|$06:$91A4:29 04 AND #$04 ; Moon Crest 0x0191B6|$06:$91A6:D0 4C BNE $91F4 ; call to code in a different bank ($0F:$FA32) 0x0191B8|$06:$91A8:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x0191BB|$06:$91AB:C5 ; String ID #$02C5: ‘Thou art welcome in my castle of Osterfair[.’][wait][line]‘If thou entertain me, thou shall receive a valuable prize[.’][wait][line]‘Dost thou wish to try?’[FD][FD][end-FC] ; data -> code 0x0191BC|$06:$91AC:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x0191BF|$06:$91AF:C9 00 CMP #$00 ; YES 0x0191C1|$06:$91B1:D0 3A BNE $91ED ; call to code in a different bank ($0F:$FA32) 0x0191C3|$06:$91B3:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x0191C6|$06:$91B6:C6 ; String ID #$02C6: ‘Thou must go forth to the center of this Coliseum[.’][end-FC] ; data -> code ; call to code in a different bank ($0F:$D0F5) 0x0191C7|$06:$91B7:20 F5 D0 JSR $D0F5 ; wait for a while and then wipe menu regions #$03, #$00, and #$01 0x0191CA|$06:$91BA:A9 00 LDA #$00 0x0191CC|$06:$91BC:85 98 STA $98 ; outcome of last fight? 0x0191CE|$06:$91BE:85 03 STA $03 ; game clock? ; call to code in a different bank ($0F:$CABA) 0x0191D0|$06:$91C0:20 BA CA JSR $CABA 0x0191D3|$06:$91C3:4C 95 80 JMP $8095 ; wipe menus and exit COMMAND menu ; control flow target (from $919F) 0x0191D6|$06:$91C6:20 CB 9A JSR $9ACB ; open dialogue window 0x0191D9|$06:$91C9:AD 12 01 LDA $0112 ; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun) 0x0191DC|$06:$91CC:29 04 AND #$04 ; Moon Crest 0x0191DE|$06:$91CE:D0 0C BNE $91DC ; call to code in a different bank ($0F:$FA32) 0x0191E0|$06:$91D0:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x0191E3|$06:$91D3:C7 ; String ID #$02C7: ‘Thou hast done well[.’][wait][line]‘I shall give thee the Moon Crest[.’][wait][end-FC] ; data -> code 0x0191E4|$06:$91D4:A9 04 LDA #$04 ; Moon Crest 0x0191E6|$06:$91D6:0D 12 01 ORA $0112 ; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun) 0x0191E9|$06:$91D9:8D 12 01 STA $0112 ; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun) ; control flow target (from $91CE) ; call to code in a different bank ($0F:$FA2E) 0x0191EC|$06:$91DC:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0191EF|$06:$91DF:15 ; String ID #$0115: ‘Thou must fight gallantly[.’][end-FC] ; data -> code 0x0191F0|$06:$91E0:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $919D) 0x0191F3|$06:$91E3:20 CB 9A JSR $9ACB ; open dialogue window ; call to code in a different bank ($0F:$FA32) 0x0191F6|$06:$91E6:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x0191F9|$06:$91E9:C9 ; String ID #$02C9: ‘Thou art a poor excuse for a warrior[.’][wait][line]‘Get thee gone!’[end-FC] ; data -> code 0x0191FA|$06:$91EA:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $91B1) ; call to code in a different bank ($0F:$FA32) 0x0191FD|$06:$91ED:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019200|$06:$91F0:C8 ; String ID #$02C8: ‘That's unfortunate[.’][wait][line]‘Good bye[.’][end-FC] ; data -> code 0x019201|$06:$91F1:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $91A6) 0x019204|$06:$91F4:20 D5 9A JSR $9AD5 ; set A/$97 to ID of first living hero ; call to code in a different bank ($0F:$FC50) 0x019207|$06:$91F7:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA32) 0x01920A|$06:$91FA:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01920D|$06:$91FD:EC ; String ID #$02EC: ‘Welcome back!’[wait][end-FC] ; data -> code 0x01920E|$06:$91FE:20 66 94 JSR $9466 ; display EXP to next level messages for entire party ; call to code in a different bank ($0F:$FA32) 0x019211|$06:$9201:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019214|$06:$9204:87 ; String ID #$0287: ‘Dost thou wish to save thy deeds in the Imperial Scrolls of Honor?’[FD][FD][end-FC] ; data -> code 0x019215|$06:$9205:A9 03 LDA #$03 ; Save Point ID #$03: Osterfair 0x019217|$06:$9207:85 48 STA $48 ; last save point ID 0x019219|$06:$9209:20 5D A3 JSR $A35D ; save game handler ; call to code in a different bank ($0F:$FA32) 0x01921C|$06:$920C:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01921F|$06:$920F:CA ; String ID #$02CA: [wait]‘Thy strength is that of many fearsome Hibabongos[.’][wait][line]‘The Moon Crest that I have given thee is just one of many tokens thou must collect[.’][end-FC] ; data -> code 0x019220|$06:$9210:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$B1: crazy fortuneteller Wizard in NW Map ID #$0F: Osterfair ; indirect control flow target (via $8EA9) ; call to code in a different bank ($0F:$FA32) 0x019223|$06:$9213:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019226|$06:$9216:CB ; String ID #$02CB: ‘I'm a fortune-teller.[line]Art thou looking for something?’[FD][FD][end-FC] ; data -> code 0x019227|$06:$9217:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x01922A|$06:$921A:C9 00 CMP #$00 ; YES 0x01922C|$06:$921C:D0 28 BNE $9246 ; call to code in a different bank ($0F:$C3AB) 0x01922E|$06:$921E:20 AB C3 JSR $C3AB ; generate a random number and store it in $32-$33 (two passes) 0x019231|$06:$9221:A5 32 LDA $32 ; RNG byte 0 0x019233|$06:$9223:05 33 ORA $33 ; RNG byte 1 0x019235|$06:$9225:29 03 AND #$03 ; 4 direction options to choose from 0x019237|$06:$9227:AA TAX 0x019238|$06:$9228:E8 INX 0x019239|$06:$9229:AD 4E 92 LDA $924E ; -> $06:$9250: Direction Names text 0x01923C|$06:$922C:85 0C STA $0C 0x01923E|$06:$922E:AD 4F 92 LDA $924F 0x019241|$06:$9231:85 0D STA $0D 0x019243|$06:$9233:20 66 92 JSR $9266 ; given a pointer ($0C) and a number (one-based) in X, update $0C-$0D to the address of the start of the X'th string in ($0C) 0x019246|$06:$9236:A0 00 LDY #$00 ; copy direction name to $5A ; control flow target (from $9240) 0x019248|$06:$9238:B1 0C LDA ($0C),Y 0x01924A|$06:$923A:99 5A 00 STA $005A,Y ; Crest/direction name write buffer start 0x01924D|$06:$923D:C8 INY ; [end-FA] 0x01924E|$06:$923E:C9 FA CMP #$FA 0x019250|$06:$9240:D0 F6 BNE $9238 ; if not end of string, loop to copy more data 0x019252|$06:$9242:A9 CC LDA #$CC ; String ID #$02CC: ‘I'll tell thy fortune[.’][wait][line]‘That which thou seeks is [item-F9]!’[end-FC] 0x019254|$06:$9244:D0 02 BNE $9248 ; control flow target (from $921C) 0x019256|$06:$9246:A9 CD LDA #$CD ; String ID #$02CD: ‘So be it then.[line]I shall tell thee nothing[.’][end-FC] ; control flow target (from $9244) ; call to code in a different bank ($0F:$FA52) 0x019258|$06:$9248:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x01925B|$06:$924B:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; code -> data ; -> $06:$9250: Direction Names text ; data load target (from $9229) 0x01925E|$06:$924E:50 ; data load target (from $922E) 0x01925F|$06:$924F: 92 ; $06:$9250; Direction Names text ; Direction Names text ; indirect data load target (via $924E) 0x019260|$06:$9250:28 0A 1C 1D FA ; "East" + [end-FA] ; indirect data load target 0x019265|$06:$9255:3A 0E 1C 1D FA ; "West" + [end-FA] ; indirect data load target 0x01926A|$06:$925A:36 18 1E 1D 11 FA ; "South" + [end-FA] ; indirect data load target 0x019270|$06:$9260:31 18 1B 1D 11 FA ; "North" + [end-FA] ; data -> code ; given a pointer ($0C) and a number (one-based) in X, update $0C-$0D to the address of the start of the X'th string in ($0C) ; control flow target (from $9233, $9287) 0x019276|$06:$9266:A0 00 LDY #$00 ; start at the current position of ($0C) ; control flow target (from $9277) 0x019278|$06:$9268:B1 0C LDA ($0C),Y ; [end-FA] 0x01927A|$06:$926A:C9 FA CMP #$FA 0x01927C|$06:$926C:F0 0C BEQ $927A ; found some end token ; [end-FC] 0x01927E|$06:$926E:C9 FC CMP #$FC 0x019280|$06:$9270:F0 08 BEQ $927A ; found some end token ; [end-FF] 0x019282|$06:$9272:C9 FF CMP #$FF 0x019284|$06:$9274:F0 04 BEQ $927A ; found some end token 0x019286|$06:$9276:C8 INY 0x019287|$06:$9277:4C 68 92 JMP $9268 ; found some end token ; control flow target (from $926C, $9270, $9274) 0x01928A|$06:$927A:CA DEX ; number of strings to skip ahead + 1 0x01928B|$06:$927B:F0 0D BEQ $928A ; if no more strings to skip, then ($0C) is correct and we're done 0x01928D|$06:$927D:98 TYA ; otherwise update $0C-$0D and loop to the next string 0x01928E|$06:$927E:38 SEC 0x01928F|$06:$927F:65 0C ADC $0C 0x019291|$06:$9281:85 0C STA $0C 0x019293|$06:$9283:90 02 BCC $9287 0x019295|$06:$9285:E6 0D INC $0D ; control flow target (from $9283) 0x019297|$06:$9287:4C 66 92 JMP $9266 ; given a pointer ($0C) and a number (one-based) in X, update $0C-$0D to the address of the start of the X'th string in ($0C) ; control flow target (from $927B) 0x01929A|$06:$928A:60 RTS ; handler for dialogue IDs #$B2-#$B3: Dog in Map ID #$0F: Osterfair ; indirect control flow target (via $8EAB, $8EAD) ; call to code in a different bank ($0F:$FA32) 0x01929B|$06:$928B:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01929E|$06:$928E:CF ; String ID #$02CF: ‘Roarrrr[..][..]!’[end-FC] ; data -> code 0x01929F|$06:$928F:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$B4: Dog in Map ID #$10: Zahan ; indirect control flow target (via $8EAF) ; call to code in a different bank ($0F:$FA32) 0x0192A2|$06:$9292:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x0192A5|$06:$9295:D0 ; String ID #$02D0: ‘Bow-wow-wow!’[end-FC] ; data -> code 0x0192A6|$06:$9296:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$B5: Don Mahone in Map ID #$11: Tuhn ; indirect control flow target (via $8EB1) 0x0192A9|$06:$9299:A5 CD LDA $CD ; Don Mahone quest status (#$00 = not started, #$01 = ingredients delivered, #$03 = game loaded after ingredients delivered) 0x0192AB|$06:$929B:F0 1D BEQ $92BA 0x0192AD|$06:$929D:C9 03 CMP #$03 0x0192AF|$06:$929F:D0 0D BNE $92AE 0x0192B1|$06:$92A1:A9 02 LDA #$02 ; Moonbrooke 0x0192B3|$06:$92A3:85 97 STA $97 ; subject hero ID $97 0x0192B5|$06:$92A5:A9 13 LDA #$13 ; Item ID #$13: Water Flying Cloth 0x0192B7|$06:$92A7:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs 0x0192B9|$06:$92A9:20 7E 8D JSR $8D7E ; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots 0x0192BC|$06:$92AC:B0 04 BCS $92B2 ; control flow target (from $929F) 0x0192BE|$06:$92AE:A9 D5 LDA #$D5 ; String ID #$02D5: ‘Sorry.[line]I haven't finished it yet.[line]Please be patient[.’][end-FC] 0x0192C0|$06:$92B0:D0 46 BNE $92F8 ; display string, end TALK routine ; control flow target (from $92AC) 0x0192C2|$06:$92B2:A9 00 LDA #$00 0x0192C4|$06:$92B4:85 CD STA $CD ; Don Mahone quest status (#$00 = not started, #$01 = ingredients delivered, #$03 = game loaded after ingredients delivered) 0x0192C6|$06:$92B6:A9 D6 LDA #$D6 ; String ID #$02D6: ‘Hello.[line]I've just finished[.’][wait][line]‘See that the princess wears this[.’][end-FC] 0x0192C8|$06:$92B8:D0 3E BNE $92F8 ; display string, end TALK routine ; control flow target (from $929B) 0x0192CA|$06:$92BA:A9 2C LDA #$2C ; Item ID #$2C: Dew’s Yarn 0x0192CC|$06:$92BC:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x0192CF|$06:$92BF:30 26 BMI $92E7 0x0192D1|$06:$92C1:A9 2D LDA #$2D ; Item ID #$2D: Magic Loom 0x0192D3|$06:$92C3:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x0192D6|$06:$92C6:30 1F BMI $92E7 0x0192D8|$06:$92C8:20 A7 94 JSR $94A7 ; X = A mod 8, A = A / 8 0x0192DB|$06:$92CB:85 9C STA $9C ; hero ID 0x0192DD|$06:$92CD:A9 2D LDA #$2D ; Item ID #$2D: Magic Loom ; call to code in a different bank ($0F:$C4B6) 0x0192DF|$06:$92CF:20 B6 C4 JSR $C4B6 ; given a hero ID in $9C and an item ID in A, remove that item from hero's inventory if present and SEC, CLC otherwise 0x0192E2|$06:$92D2:A9 2C LDA #$2C ; Item ID #$2C: Dew’s Yarn 0x0192E4|$06:$92D4:48 PHA ; Item ID #$2C: Dew’s Yarn 0x0192E5|$06:$92D5:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x0192E8|$06:$92D8:20 A7 94 JSR $94A7 ; X = A mod 8, A = A / 8 0x0192EB|$06:$92DB:85 9C STA $9C ; hero ID 0x0192ED|$06:$92DD:68 PLA ; Item ID #$2C: Dew’s Yarn ; call to code in a different bank ($0F:$C4B6) 0x0192EE|$06:$92DE:20 B6 C4 JSR $C4B6 ; given a hero ID in $9C and an item ID in A, remove that item from hero's inventory if present and SEC, CLC otherwise 0x0192F1|$06:$92E1:E6 CD INC $CD ; Don Mahone quest status (#$00 = not started, #$01 = ingredients delivered, #$03 = game loaded after ingredients delivered) 0x0192F3|$06:$92E3:A9 D4 LDA #$D4 ; String ID #$02D4: ‘Ah, so thou has found my loom, and the Dew's Yarn, too[.’][wait][line]‘I shall weave thee a Water Flying Cloth, but it will take time[.’][wait][line]‘Please come back in a day or so[.’][end-FC] 0x0192F5|$06:$92E5:D0 11 BNE $92F8 ; display string, end TALK routine ; control flow target (from $92BF, $92C6) ; call to code in a different bank ($0F:$FA32) 0x0192F7|$06:$92E7:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x0192FA|$06:$92EA:D1 ; String ID #$02D1: ‘Yes, I am Don Mahone. Once I was a famous weaver, but my loom was stolen[.’][wait][line]‘Will thou help me?’[FD][FD][end-FC] ; data -> code 0x0192FB|$06:$92EB:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x0192FE|$06:$92EE:C9 00 CMP #$00 ; YES 0x019300|$06:$92F0:D0 04 BNE $92F6 0x019302|$06:$92F2:A9 D2 LDA #$D2 ; String ID #$02D2: ‘Good, good.[line]All I can tell thee is that the loom was taken by someone who smelled like fish[.’][end-FC] 0x019304|$06:$92F4:D0 02 BNE $92F8 ; display string, end TALK routine ; control flow target (from $92F0) 0x019306|$06:$92F6:A9 D3 LDA #$D3 ; String ID #$02D3: ‘That's too bad.[line]We could help each other[.’][end-FC] ; display string, end TALK routine ; control flow target (from $92B0, $92B8, $92E5, $92F4) ; call to code in a different bank ($0F:$FA52) 0x019308|$06:$92F8:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x01930B|$06:$92FB:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$B6: Roge Fastfinger in NE Map ID #$14: Wellgarth Underground ; indirect control flow target (via $8EB3) 0x01930E|$06:$92FE:A5 CE LDA $CE ; Tuhn Watergate open flag (#$00 = closed, #$01 = open) 0x019310|$06:$9300:D0 22 BNE $9324 0x019312|$06:$9302:A9 3A LDA #$3A ; Item ID #$3A: Watergate Key 0x019314|$06:$9304:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs 0x019316|$06:$9306:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x019319|$06:$9309:10 19 BPL $9324 ; call to code in a different bank ($0F:$FA32) 0x01931B|$06:$930B:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01931E|$06:$930E:D7 ; String ID #$02D7: ‘Curses, I am found!’[wait][line]‘Yes, I am Roge Fastfinger and here is the watergate key[.’][end-FC] ; data -> code 0x01931F|$06:$930F:A9 00 LDA #$00 ; Midenhall ; control flow target (from $931E) 0x019321|$06:$9311:85 97 STA $97 ; subject hero ID $97 0x019323|$06:$9313:20 7E 8D JSR $8D7E ; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots 0x019326|$06:$9316:B0 11 BCS $9329 0x019328|$06:$9318:E6 97 INC $97 ; subject hero ID $97 0x01932A|$06:$931A:A5 97 LDA $97 ; subject hero ID $97 0x01932C|$06:$931C:C9 03 CMP #$03 ; max of 3 heroes 0x01932E|$06:$931E:D0 F1 BNE $9311 ; if more heroes to check, check them 0x019330|$06:$9320:A9 D8 LDA #$D8 ; String ID #$02D8: [wait]‘But thou hast many things.[line]See me again later[.’][end-FC] 0x019332|$06:$9322:D0 02 BNE $9326 ; control flow target (from $9300, $9309) 0x019334|$06:$9324:A9 D9 LDA #$D9 ; String ID #$02D9: ‘I'm sorry; I will not do that anymore[.’][end-FC] ; control flow target (from $9322) ; call to code in a different bank ($0F:$FA52) 0x019336|$06:$9326:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 ; control flow target (from $9316) 0x019339|$06:$9329:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue IDs #$B7-#$B9: Priest in Map ID #$15: Beran ; indirect control flow target (via $8EB5, $8EB7, $8EB9) 0x01933C|$06:$932C:A5 CA LDA $CA ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4) 0x01933E|$06:$932E:C9 04 CMP #$04 0x019340|$06:$9330:B0 04 BCS $9336 0x019342|$06:$9332:A9 E1 LDA #$E1 ; String ID #$02E1: ‘I see that thou hast faced many dangers and the greatest lie ahead[.’][end-FC] 0x019344|$06:$9334:D0 02 BNE $9338 ; control flow target (from $9330) 0x019346|$06:$9336:A9 E2 LDA #$E2 ; String ID #$02E2: ‘Welcome, [name]!’[wait][end-FC] ; control flow target (from $9334) ; call to code in a different bank ($0F:$FA52) 0x019348|$06:$9338:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x01934B|$06:$933B:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$BA: Monster in Map ID #$16: Hargon's Castle 1F ; indirect control flow target (via $8EBB) ; call to code in a different bank ($0F:$FA32) 0x01934E|$06:$933E:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019351|$06:$9341:E3 ; String ID #$02E3: ‘The fool's false paradise suited thee better[.’][wait][line]‘Thou shall regret meddling in Hargon's affairs[.’][end-FC] ; data -> code ; call to code in a different bank ($0F:$D1C6) 0x019352|$06:$9342:20 C6 D1 JSR $D1C6 0x019355|$06:$9345:4C 95 80 JMP $8095 ; wipe menus and exit COMMAND menu ; handler for dialogue ID #$BB: Hargon in Map ID #$17: Hargon's Castle 7F ; indirect control flow target (via $8EBD) ; call to code in a different bank ($0F:$FA32) 0x019358|$06:$9348:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01935B|$06:$934B:E4 ; String ID #$02E4: ‘Who comes hither to disturb the Great Hargon?’[wait][line]‘Dost thou know who I am?’[FD][FD][end-FC] ; data -> code 0x01935C|$06:$934C:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x01935F|$06:$934F:C9 00 CMP #$00 ; YES 0x019361|$06:$9351:D0 04 BNE $9357 0x019363|$06:$9353:A9 E5 LDA #$E5 ; String ID #$02E5: ‘Such audacity is unforgivable!’[end-FC] 0x019365|$06:$9355:D0 02 BNE $9359 ; control flow target (from $9351) 0x019367|$06:$9357:A9 E6 LDA #$E6 ; String ID #$02E6: ‘Then I shall teach the proper respect!’[end-FC] ; control flow target (from $9355) ; call to code in a different bank ($0F:$FA52) 0x019369|$06:$9359:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 ; call to code in a different bank ($0F:$D0F5) 0x01936C|$06:$935C:20 F5 D0 JSR $D0F5 ; wait for a while and then wipe menu regions #$03, #$00, and #$01 ; call to code in a different bank ($0F:$D1F8) 0x01936F|$06:$935F:20 F8 D1 JSR $D1F8 ; trigger Fixed Battle #$0B: 1 Hargon (Map ID #$17: Hargon's Castle 7F) 0x019372|$06:$9362:A5 98 LDA $98 ; outcome of last fight? 0x019374|$06:$9364:C9 FC CMP #$FC 0x019376|$06:$9366:F0 14 BEQ $937C ; call to code in a different bank ($0F:$F6F6) 0x019378|$06:$9368:20 F6 F6 JSR $F6F6 ; open main dialogue window and display string ID specified by byte following JSR + #$0200 ; code -> data ; indirect data load target 0x01937B|$06:$936B:E7 ; String ID #$02E7: ‘So thou hast proven a mighty warrior, mightier even than Hargon the Great[.’][wait][line]‘But there is one even greater than I, a sorcerer of the Shadowtime,[wait][line]a being of pure malice that none shall overcome[.’][wait][line]‘I send thee now to meet Malroth!’[end-FC] ; data -> code 0x01937C|$06:$936C:A9 FF LDA #$FF 0x01937E|$06:$936E:8D 61 05 STA $0561 ; NPC #$04 sprite ID ; call to code in a different bank ($0F:$CF64) 0x019381|$06:$9371:20 64 CF JSR $CF64 ; call to code in a different bank ($0F:$D0F5) 0x019384|$06:$9374:20 F5 D0 JSR $D0F5 ; wait for a while and then wipe menu regions #$03, #$00, and #$01 0x019387|$06:$9377:A9 64 LDA #$64 0x019389|$06:$9379:85 44 STA $44 ; non-saved event status (#$00 = event start, #$01 = Lianport Gremlins defeated, #$02 = met with Lianport grandfather/have no friends at Shrine SW of Cannock, #$03 = King Midenhall moved to stairs, #$04 = King Midenhall moved down stairs, #$05 = King Midenhall spoke on Midenhall 1F, #$0B = Lighthouse Wizard 7F, #$1B Lighthouse Wizard 2F spoke, #$64 = Hargon dead, #$FF = event end) 0x01938B|$06:$937B:60 RTS ; control flow target (from $9366) 0x01938C|$06:$937C:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$BC: Dragonlord's Grandson in Map ID #$18: Charlock Castle B8 ; indirect control flow target (via $8EBF) 0x01938F|$06:$937F:A9 00 LDA #$00 ; Midenhall ; call to code in a different bank ($0F:$FC50) 0x019391|$06:$9381:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA32) 0x019394|$06:$9384:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019397|$06:$9387:EA ; String ID #$02EA: ‘Welcome, [name][.’][wait][line]‘All that Hargon threatens to take is really mine, for I am the grandson of the Dragonlord[.’][wait][line]‘Defeat Hargon and I will give thee advice.[line]Will thou do this?’[FD][FD][end-FC] ; data -> code 0x019398|$06:$9388:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x01939B|$06:$938B:C9 00 CMP #$00 ; YES 0x01939D|$06:$938D:D0 04 BNE $9393 0x01939F|$06:$938F:A9 F0 LDA #$F0 ; String ID #$02F0: ‘Once thou hast the five crests, seek out the good wizard, Rubiss,[wait][line]who dwells in the depths of the sea south of Midenhall[.’][end-FC] 0x0193A1|$06:$9391:D0 02 BNE $9395 ; control flow target (from $938D) 0x0193A3|$06:$9393:A9 F1 LDA #$F1 ; String ID #$02F1: ‘Thou art surely missing thy brain.[line]But it is up to thee[.’][end-FC] ; control flow target (from $9391) ; call to code in a different bank ($0F:$FA52) 0x0193A5|$06:$9395:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x0193A8|$06:$9398:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$BD: Guard in Map ID #$1A: Shrine SW of Cannock ; indirect control flow target (via $8EC1) 0x0193AB|$06:$939B:A9 BD LDA #$BD ; dialogue ID 0x0193AD|$06:$939D:D0 02 BNE $93A1 ; handler for dialogue ID #$BE: Guard in Map ID #$1A: Shrine SW of Cannock ; indirect control flow target (via $8EC3) 0x0193AF|$06:$939F:A9 BE LDA #$BE ; dialogue ID ; control flow target (from $939D) 0x0193B1|$06:$93A1:85 49 STA $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$F6CE) 0x0193B3|$06:$93A3:20 CE F6 JSR $F6CE ; return number of party members - 1 in A/X 0x0193B6|$06:$93A6:D0 0E BNE $93B6 ; if Midenhall is alone, he can't pass 0x0193B8|$06:$93A8:A5 49 LDA $49 ; object hero/target/item/string ID $49 0x0193BA|$06:$93AA:C9 BD CMP #$BD 0x0193BC|$06:$93AC:D0 04 BNE $93B2 0x0193BE|$06:$93AE:A9 F3 LDA #$F3 ; String ID #$02F3: ‘It is dangerous to tread some roads alone[.’][end-FC] 0x0193C0|$06:$93B0:D0 06 BNE $93B8 ; control flow target (from $93AC) 0x0193C2|$06:$93B2:A9 F4 LDA #$F4 ; String ID #$02F4: ‘The King of Cannock has left orders that none shall pass alone[.’][end-FC] 0x0193C4|$06:$93B4:D0 02 BNE $93B8 ; control flow target (from $93A6) 0x0193C6|$06:$93B6:A9 EB LDA #$EB ; String ID #$02EB: ‘Please go through[.’][end-FC] ; control flow target (from $93B0, $93B4) ; call to code in a different bank ($0F:$FA52) 0x0193C8|$06:$93B8:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x0193CB|$06:$93BB:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$BF: Wizard in Map ID #$1C: Shrine SE of Rimuldar ; indirect control flow target (via $8EC5) 0x0193CE|$06:$93BE:A9 23 LDA #$23 ; Item ID #$23: Helmet of Erdrick 0x0193D0|$06:$93C0:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x0193D3|$06:$93C3:30 04 BMI $93C9 0x0193D5|$06:$93C5:A9 F7 LDA #$F7 ; String ID #$02F7: ‘Thou hast no further business here. Go[.’][end-FC] 0x0193D7|$06:$93C7:D0 12 BNE $93DB ; control flow target (from $93C3) 0x0193D9|$06:$93C9:A9 24 LDA #$24 ; Item ID #$24: Token of Erdrick 0x0193DB|$06:$93CB:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x0193DE|$06:$93CE:10 04 BPL $93D4 0x0193E0|$06:$93D0:A9 F5 LDA #$F5 ; String ID #$02F5: ‘The real descendant of Erdrick carries a token to prove his heritage[.’][wait][line]‘Now be off with thee, imposter[.’][end-FC] 0x0193E2|$06:$93D2:D0 07 BNE $93DB ; control flow target (from $93CE) 0x0193E4|$06:$93D4:A9 23 LDA #$23 ; Item ID #$23: Helmet of Erdrick 0x0193E6|$06:$93D6:9D 00 06 STA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped) 0x0193E9|$06:$93D9:A9 F6 LDA #$F6 ; String ID #$02F6: ‘I have been waiting for thee to come[.’][wait][line]‘I will trade the Helmet of Erdrick for the token thou carries[.’][end-FC] ; control flow target (from $93C7, $93D2) ; call to code in a different bank ($0F:$FA52) 0x0193EB|$06:$93DB:20 52 FA JSR $FA52 ; display string ID specified by A + #$0200 0x0193EE|$06:$93DE:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$C0: Wizard in Map ID #$15: Beran ; indirect control flow target (via $8EC7) 0x0193F1|$06:$93E1:A9 04 LDA #$04 ; Save Point ID #$04: Beran ; update save point $48 to A, run through the whole save point sequence ; control flow target (from $81C2) 0x0193F3|$06:$93E3:85 48 STA $48 ; last save point ID 0x0193F5|$06:$93E5:20 D5 9A JSR $9AD5 ; set A/$97 to ID of first living hero ; call to code in a different bank ($0F:$FC50) 0x0193F8|$06:$93E8:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA32) 0x0193FB|$06:$93EB:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x0193FE|$06:$93EE:F8 ; String ID #$02F8: ‘Even here thou can record thy deeds in the Imperial Scrolls of Honor[.’][wait][end-FC] ; data -> code 0x0193FF|$06:$93EF:20 66 94 JSR $9466 ; display EXP to next level messages for entire party ; call to code in a different bank ($0F:$FA32) 0x019402|$06:$93F2:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019405|$06:$93F5:87 ; String ID #$0287: ‘Dost thou wish to save thy deeds in the Imperial Scrolls of Honor?’[FD][FD][end-FC] ; data -> code 0x019406|$06:$93F6:20 5D A3 JSR $A35D ; save game handler ; call to code in a different bank ($0F:$FA32) 0x019409|$06:$93F9:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01940C|$06:$93FC:F9 ; String ID #$02F9: [wait]‘Return when in need[.’][end-FC] ; data -> code 0x01940D|$06:$93FD:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$C1: Priest in Map ID #$1F: Rhone Shrine ; indirect control flow target (via $8EC9) 0x019410|$06:$9400:20 D5 9A JSR $9AD5 ; set A/$97 to ID of first living hero 0x019413|$06:$9403:48 PHA ; ID of first living hero at start of conversation ; call to code in a different bank ($0F:$FC50) 0x019414|$06:$9404:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA32) 0x019417|$06:$9407:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01941A|$06:$940A:FA ; String ID #$02FA: ‘May the light shine upon thee, [name][.’][FD][FD][end-FC] ; data -> code ; call to code in a different bank ($0F:$C515) 0x01941B|$06:$940B:20 15 C5 JSR $C515 ; flash screen 10 times 0x01941E|$06:$940E:A9 84 LDA #$84 ; everybody's alive and in your party! 0x019420|$06:$9410:8D 2D 06 STA $062D ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x019423|$06:$9413:8D 3F 06 STA $063F ; Cannock status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x019426|$06:$9416:8D 51 06 STA $0651 ; Moonbrooke status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) ; call to code in a different bank ($0F:$C77B) 0x019429|$06:$9419:20 7B C7 JSR $C77B ; restore full HP/MP to all living party members 0x01942C|$06:$941C:A9 00 LDA #$00 0x01942E|$06:$941E:85 97 STA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$D302) 0x019430|$06:$9420:20 02 D3 JSR $D302 0x019433|$06:$9423:A9 01 LDA #$01 0x019435|$06:$9425:85 97 STA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$D302) 0x019437|$06:$9427:20 02 D3 JSR $D302 0x01943A|$06:$942A:A9 02 LDA #$02 0x01943C|$06:$942C:85 97 STA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$D302) 0x01943E|$06:$942E:20 02 D3 JSR $D302 ; call to code in a different bank ($0F:$C22C) 0x019441|$06:$9431:20 2C C2 JSR $C22C 0x019444|$06:$9434:20 66 94 JSR $9466 ; display EXP to next level messages for entire party ; call to code in a different bank ($0F:$FA32) 0x019447|$06:$9437:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01944A|$06:$943A:87 ; String ID #$0287: ‘Dost thou wish to save thy deeds in the Imperial Scrolls of Honor?’[FD][FD][end-FC] ; data -> code 0x01944B|$06:$943B:A9 05 LDA #$05 ; Save Point ID #$05: Rhone Shrine 0x01944D|$06:$943D:85 48 STA $48 ; last save point ID 0x01944F|$06:$943F:20 5D A3 JSR $A35D ; save game handler 0x019452|$06:$9442:68 PLA ; ID of first living hero at start of conversation ; call to code in a different bank ($0F:$FC50) 0x019453|$06:$9443:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA32) 0x019456|$06:$9446:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019459|$06:$9449:FB ; String ID #$02FB: [wait]‘Go now, [name][.’][end-FC] ; data -> code 0x01945A|$06:$944A:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue ID #$C2: Priest in Map ID #$20: Shrine SW of Moonbrooke ; indirect control flow target (via $8ECB) 0x01945D|$06:$944D:A9 02 LDA #$02 ; Moonbrooke 0x01945F|$06:$944F:85 97 STA $97 ; subject hero ID $97 0x019461|$06:$9451:A9 04 LDA #$04 ; In Party 0x019463|$06:$9453:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x019466|$06:$9456:B0 07 BCS $945F ; call to code in a different bank ($0F:$FA32) 0x019468|$06:$9458:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data 0x01946B|$06:$945B:FC ; String ID #$02FC: ‘None shall pass until aid has been rendered to the Princess of Moonbrooke[.’][end-FC] ; data -> code 0x01946C|$06:$945C:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9456) ; call to code in a different bank ($0F:$FA32) 0x01946F|$06:$945F:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019472|$06:$9462:00 ; String ID #$0200: ‘When in need, visit the Houses of Healing[.’][end-FC] ; data -> code 0x019473|$06:$9463:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; display EXP to next level messages for entire party ; control flow target (from $8ED9, $8F15, $8F5C, $8FDB, $9182, $91FE, $93EF, $9434) 0x019476|$06:$9466:A9 00 LDA #$00 ; Midenhall 0x019478|$06:$9468:85 97 STA $97 ; subject hero ID $97 ; control flow target (from $9490) 0x01947A|$06:$946A:A9 04 LDA #$04 ; In Party 0x01947C|$06:$946C:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise ; skip if not in party 0x01947F|$06:$946F:90 19 BCC $948A 0x019481|$06:$9471:A5 97 LDA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$F734) 0x019483|$06:$9473:20 34 F7 JSR $F734 ; set $8F-$90 to EXP required to reach next level 0x019486|$06:$9476:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA 0x019489|$06:$9479:A5 8F LDA $8F 0x01948B|$06:$947B:05 90 ORA $90 0x01948D|$06:$947D:D0 07 BNE $9486 ; different messages depending on whether you're at max EXP or not ; call to code in a different bank ($0F:$FA2A) 0x01948F|$06:$947F:20 2A FA JSR $FA2A ; display string ID specified by next byte ; code -> data ; indirect data load target 0x019492|$06:$9482:52 ; String ID #$0052: ‘[name] is now strong enough[.’][wait][end-FC] ; data -> code 0x019493|$06:$9483:4C 8A 94 JMP $948A ; control flow target (from $947D) ; call to code in a different bank ($0F:$FA32) 0x019496|$06:$9486:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x019499|$06:$9489:8F ; String ID #$028F: ‘Of experience points [name] needs [number] to reach the next level[.’][wait][end-FC] ; data -> code ; control flow target (from $946F, $9483) 0x01949A|$06:$948A:E6 97 INC $97 ; subject hero ID $97 0x01949C|$06:$948C:A5 97 LDA $97 ; subject hero ID $97 0x01949E|$06:$948E:C9 03 CMP #$03 ; max of 3 heroes 0x0194A0|$06:$9490:90 D8 BCC $946A ; if more heroes to handle, handle them 0x0194A2|$06:$9492:60 RTS ; SEC if Moonbrooke in party, CLC otherwise ; control flow target (from $9095) 0x0194A3|$06:$9493:A9 02 LDA #$02 ; Moonbrooke 0x0194A5|$06:$9495:85 97 STA $97 ; subject hero ID $97 0x0194A7|$06:$9497:A9 04 LDA #$04 ; In Party 0x0194A9|$06:$9499:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x0194AC|$06:$949C:60 RTS ; SEC if Moonbrooke alive, CLC otherwise ; control flow target (from $9106, $9112) 0x0194AD|$06:$949D:A9 02 LDA #$02 ; Moonbrooke 0x0194AF|$06:$949F:85 97 STA $97 ; subject hero ID $97 0x0194B1|$06:$94A1:A9 80 LDA #$80 ; Alive 0x0194B3|$06:$94A3:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x0194B6|$06:$94A6:60 RTS ; X = A mod 8, A = A / 8 ; control flow target (from $92C8, $92D8) 0x0194B7|$06:$94A7:48 PHA 0x0194B8|$06:$94A8:29 07 AND #$07 0x0194BA|$06:$94AA:AA TAX 0x0194BB|$06:$94AB:68 PLA 0x0194BC|$06:$94AC:4A LSR 0x0194BD|$06:$94AD:4A LSR 0x0194BE|$06:$94AE:4A LSR 0x0194BF|$06:$94AF:60 RTS ; handler for dialogue IDs #$C3-#$CC (open dialogue window and display string specified by A - #$73) ; control flow target (from $8205) 0x0194C0|$06:$94B0:38 SEC 0x0194C1|$06:$94B1:E9 73 SBC #$73 ; convert to string ID 0x0194C3|$06:$94B3:48 PHA 0x0194C4|$06:$94B4:20 CB 9A JSR $9ACB ; open dialogue window 0x0194C7|$06:$94B7:68 PLA ; String IDs #$50-#$59: "‘Take care that thou strays not over the tower's edge[.’][end-FC]" / "‘As the full moon waxes and wanes so too the tide rises and falls[.’][end-FC]" / "‘[name] is now strong enough[.’][wait][end-FC]" / "And [cardinal #] [monster(s)][line]appeared.[end-FC]" / "[cardinal #] [monster(s)][line]appeared.[end-FC]" / "[end-FC]" / "[end-FC]" / "‘In ancient times a volcano rose from the seabed, and inside was a deep cavern[.’][end-FC]" / "[end-FC]" / "[end-FC]" ; call to code in a different bank ($0F:$FA4A) 0x0194C8|$06:$94B8:20 4A FA JSR $FA4A ; display string ID specified by A 0x0194CB|$06:$94BB:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue IDs #$CD-#$CF (open dialogue window, display string specified by A - #$73, display YES/NO menu, and display string corresponding to selected option) ; control flow target (from $820C) 0x0194CE|$06:$94BE:38 SEC 0x0194CF|$06:$94BF:E9 CD SBC #$CD ; why not just SBC #$73? 0x0194D1|$06:$94C1:18 CLC 0x0194D2|$06:$94C2:69 5A ADC #$5A ; String IDs #$5A-#$5C: "‘Hast thou purified thy body in the Spring of Bravery?’[end-FC]" / "‘Dost thou know what I know?’[FD][FD][end-FC]" / "‘Hast thou found the Wizard's Home?’[FD][FD][end-FC]" 0x0194D4|$06:$94C4:85 49 STA $49 ; object hero/target/item/string ID $49 0x0194D6|$06:$94C6:20 CB 9A JSR $9ACB ; open dialogue window 0x0194D9|$06:$94C9:A5 49 LDA $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$FA4A) 0x0194DB|$06:$94CB:20 4A FA JSR $FA4A ; display string ID specified by A 0x0194DE|$06:$94CE:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x0194E1|$06:$94D1:C9 00 CMP #$00 ; YES 0x0194E3|$06:$94D3:D0 04 BNE $94D9 0x0194E5|$06:$94D5:A9 03 LDA #$03 ; String IDs #$5D-#$5F: "‘Then all is well[.’][end-FC]" / "‘But I have not yet spoken[.’][end-FC]" / "‘Go then, for thou must defeat Hargon[.’][end-FC]" 0x0194E7|$06:$94D7:D0 02 BNE $94DB ; control flow target (from $94D3) 0x0194E9|$06:$94D9:A9 06 LDA #$06 ; String IDs #$60-#$62: "‘That is not good[.’][wait][line]‘All who seek victory must first visit the Spring of Bravery[.’][end-FC]" / "‘These twin towers are known as the Dragon's Horn[.’][end-FC]" / "‘Thou art close to the island cave wherein lies an object of great power and greater peril!’[end-FC]" ; control flow target (from $94D7) 0x0194EB|$06:$94DB:18 CLC 0x0194EC|$06:$94DC:65 49 ADC $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$FA4A) 0x0194EE|$06:$94DE:20 4A FA JSR $FA4A ; display string ID specified by A 0x0194F1|$06:$94E1:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; handler for dialogue IDs #$D0-#$D8 (dungeon NPCs with complex logic) ; control flow target (from $8213) 0x0194F4|$06:$94E4:48 PHA ; dialogue ID 0x0194F5|$06:$94E5:20 CB 9A JSR $9ACB ; open dialogue window 0x0194F8|$06:$94E8:68 PLA ; dialogue ID 0x0194F9|$06:$94E9:C9 D0 CMP #$D0 ; dialogue ID #$D0: Wizard in Map ID #$40: Spring of Bravery 0x0194FB|$06:$94EB:D0 38 BNE $9525 ; call to code in a different bank ($0F:$FA2A) 0x0194FD|$06:$94ED:20 2A FA JSR $FA2A ; display string ID specified by next byte ; code -> data ; indirect data load target 0x019500|$06:$94F0:6A ; String ID #$006A: ‘Welcome to the Spring of Bravery[.’][wait][end-FC] ; data -> code 0x019501|$06:$94F1:A5 CA LDA $CA ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4) 0x019503|$06:$94F3:C9 01 CMP #$01 0x019505|$06:$94F5:F0 04 BEQ $94FB 0x019507|$06:$94F7:C9 02 CMP #$02 0x019509|$06:$94F9:D0 1A BNE $9515 ; control flow target (from $94F5) ; call to code in a different bank ($0F:$FA2A) 0x01950B|$06:$94FB:20 2A FA JSR $FA2A ; display string ID specified by next byte ; code -> data ; indirect data load target 0x01950E|$06:$94FE:64 ; String ID #$0064: ‘Art thou seeking the Prince of Cannock?’[FD][FD][end-FC] ; data -> code 0x01950F|$06:$94FF:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x019512|$06:$9502:C9 00 CMP #$00 ; YES 0x019514|$06:$9504:D0 0F BNE $9515 0x019516|$06:$9506:A5 CA LDA $CA ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4) 0x019518|$06:$9508:C9 01 CMP #$01 0x01951A|$06:$950A:D0 02 BNE $950E 0x01951C|$06:$950C:E6 CA INC $CA ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4) ; control flow target (from $950A) ; call to code in a different bank ($0F:$FA2A) 0x01951E|$06:$950E:20 2A FA JSR $FA2A ; display string ID specified by next byte ; code -> data ; indirect data load target 0x019521|$06:$9511:65 ; String ID #$0065: ‘Only moments ago he was here.[line]I think he is going to Midenhall Castle[.’][end-FC] ; data -> code 0x019522|$06:$9512:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $94F9, $9504) ; call to code in a different bank ($0F:$FA2A) 0x019525|$06:$9515:20 2A FA JSR $FA2A ; display string ID specified by next byte ; code -> data ; indirect data load target 0x019528|$06:$9518:63 ; String ID #$0063: ‘I shall anoint thee with this water and wish thee well[.’][wait][line]‘Know that Token of Erdrick is kept by a brave hero[.’][end-FC] ; data -> code ; call to code in a different bank ($0F:$C515) 0x019529|$06:$9519:20 15 C5 JSR $C515 ; flash screen 10 times 0x01952C|$06:$951C:20 CC 8D JSR $8DCC ; restore full HP to all living party members ; call to code in a different bank ($0F:$C22C) 0x01952F|$06:$951F:20 2C C2 JSR $C22C 0x019532|$06:$9522:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $94EB) 0x019535|$06:$9525:C9 D1 CMP #$D1 ; dialogue ID #$D1: Wizard in Map ID #$56: Lighthouse 7F 0x019537|$06:$9527:D0 07 BNE $9530 ; call to code in a different bank ($0F:$FA2E) 0x019539|$06:$9529:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data 0x01953C|$06:$952C:52 ; String ID #$0152: ‘Follow me and do not make a peep[.’][end-FC] ; data -> code 0x01953D|$06:$952D:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9527) 0x019540|$06:$9530:C9 D6 CMP #$D6 ; dialogue ID #$D6: Guard in Map ID ; Map ID #$57: Lighthouse 8F 0x019542|$06:$9532:D0 0B BNE $953F ; call to code in a different bank ($0F:$FA2A) 0x019544|$06:$9534:20 2A FA JSR $FA2A ; display string ID specified by next byte ; code -> data ; indirect data load target 0x019547|$06:$9537:70 ; String ID #$0070: ‘For long ages have I guarded the Chamber of Hargon[.’][wait][end-FC] ; data -> code ; call to code in a different bank ($0F:$FA2A) 0x019548|$06:$9538:20 2A FA JSR $FA2A ; display string ID specified by next byte ; code -> data ; indirect data load target 0x01954B|$06:$953B:71 ; String ID #$0071: ‘There is a land called Rhone, high in the mountains in the middle of a great continent[.’][wait][line]‘There shall thou find Hargon[.’][end-FC] ; data -> code 0x01954C|$06:$953C:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9532) 0x01954F|$06:$953F:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; exit COMMAND menu ; control flow target (from $9560, $9569, $958A, $95B8, $9630, $99C8) ; call to code in a different bank ($0F:$FA89) 0x019552|$06:$9542:20 89 FA JSR $FA89 ; useless JSR to RTS?! 0x019555|$06:$9545:4C 6D 80 JMP $806D ; exit COMMAND menu ; end TALK/ITEM routines ; control flow target (from $8C40, $8CD1, $8E41, $8E67, $8F09, $8F36, $8F82, $8FA9, $8FC9, $9016, $903C, $9062, $9074, $9092, $909E, $90A5, $90BC, $90EC, $90FF, $910F, $914A, $916B, $9178, $9194, $91E0, $91EA, $91F1, $9210, $924B, $928F, $9296, $92FB, $9329, $933B, $937C, $9398, $93BB, $93DE, $93FD, $944A, $945C, $9463, $94BB, $94E1, $9512, $9522, $952D, $953C, $953F, $957B, $95A4, $9603, $966C, $967E, $96CD, $96F6, $9745, $9754, $97E6, $97F1, $980C, $9822, $983B, $9845, $984F, $9859, $9863, $986D, $9877, $9881, $988B, $9892, $99BE, $99EC, $99FD, $9A14, $9A44, $9A66, $9A81, $9ABA, $9AC1, $9AC8, $9B81, $9BA3, $9BB7, $9BEF, $9C02, $9C34, $9C5F, $9C90, $9CBE, $9D4C) 0x019558|$06:$9548:A5 8E LDA $8E ; flag for in battle or not (#$FF)? 0x01955A|$06:$954A:10 01 BPL $954D 0x01955C|$06:$954C:60 RTS ; control flow target (from $954A) 0x01955D|$06:$954D:20 9D 80 JSR $809D ; wait until all joypad buttons are released and then some button pressed ; call to code in a different bank ($0F:$FA89) 0x019560|$06:$9550:20 89 FA JSR $FA89 ; useless JSR to RTS?! 0x019563|$06:$9553:A9 00 LDA #$00 ; call to code in a different bank ($0F:$CF6A) 0x019565|$06:$9555:20 6A CF JSR $CF6A ; wipe selected menu region 0x019568|$06:$9558:4C 6D 80 JMP $806D ; exit COMMAND menu ; COMMAND menu ITEM command handler ; indirect control flow target (via $808C) ; call to code in a different bank ($0F:$F55D) 0x01956B|$06:$955B:20 5D F5 JSR $F55D ; display appropriate main ITEM hero select menu 0x01956E|$06:$955E:C9 FF CMP #$FF 0x019570|$06:$9560:F0 E0 BEQ $9542 ; exit COMMAND menu 0x019572|$06:$9562:85 97 STA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$F5FE) 0x019574|$06:$9564:20 FE F5 JSR $F5FE ; given a hero ID in A, open hero's item list and return selected item ID (or #$FE if they have no items) 0x019577|$06:$9567:C9 FF CMP #$FF 0x019579|$06:$9569:F0 D7 BEQ $9542 ; exit COMMAND menu 0x01957B|$06:$956B:C9 FE CMP #$FE 0x01957D|$06:$956D:D0 0F BNE $957E ; hero has selected an item to use 0x01957F|$06:$956F:20 CB 9A JSR $9ACB ; open dialogue window 0x019582|$06:$9572:A5 97 LDA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$FC50) 0x019584|$06:$9574:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x019587|$06:$9577:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01958A|$06:$957A:13 ; String ID #$0113: [name] does not yet have anything.[end-FC] ; data -> code 0x01958B|$06:$957B:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; hero has selected an item to use ; control flow target (from $956D) 0x01958E|$06:$957E:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs; item ID 0x019590|$06:$9580:85 95 STA $95 ; ID for [item] and [spell] control codes; item ID 0x019592|$06:$9582:86 49 STX $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$EB76) 0x019594|$06:$9584:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x019597|$06:$9587:17 ; Menu ID #$17: Main menu: what to do with selected item ; data -> code 0x019598|$06:$9588:C9 FF CMP #$FF 0x01959A|$06:$958A:F0 B6 BEQ $9542 ; exit COMMAND menu 0x01959C|$06:$958C:C9 01 CMP #$01 ; TRADE 0x01959E|$06:$958E:90 03 BCC $9593 ; USE handler 0x0195A0|$06:$9590:4C A8 99 JMP $99A8 ; TRADE/THROW handler ; USE handler ; control flow target (from $958E) 0x0195A3|$06:$9593:A9 80 LDA #$80 ; Alive 0x0195A5|$06:$9595:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x0195A8|$06:$9598:B0 0D BCS $95A7 ; USE handler, hero alive 0x0195AA|$06:$959A:20 CB 9A JSR $9ACB ; open dialogue window 0x0195AD|$06:$959D:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x0195B0|$06:$95A0:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0195B3|$06:$95A3:1F ; String ID #$011F: Alas, being but a ghost, [name] cannot use the [item].[end-FC] ; data -> code 0x0195B4|$06:$95A4:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; USE handler, hero alive ; control flow target (from $9598) 0x0195B7|$06:$95A7:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; item ID 0x0195B9|$06:$95A9:C9 3C CMP #$3C ; Item ID #$3C: Medical Herb 0x0195BB|$06:$95AB:F0 04 BEQ $95B1 ; USE Medical/Antidote Herb 0x0195BD|$06:$95AD:C9 3B CMP #$3B ; Item ID #$3B: Antidote Herb 0x0195BF|$06:$95AF:D0 74 BNE $9625 ; USE Medical/Antidote Herb ; control flow target (from $95AB) ; call to code in a different bank ($0F:$F587) 0x0195C1|$06:$95B1:20 87 F5 JSR $F587 ; display appropriate main ITEM target menu 0x0195C4|$06:$95B4:C9 FF CMP #$FF 0x0195C6|$06:$95B6:D0 03 BNE $95BB 0x0195C8|$06:$95B8:4C 42 95 JMP $9542 ; exit COMMAND menu ; control flow target (from $95B6) 0x0195CB|$06:$95BB:85 C9 STA $C9 ; target hero ID 0x0195CD|$06:$95BD:20 CB 9A JSR $9ACB ; open dialogue window 0x0195D0|$06:$95C0:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA 0x0195D3|$06:$95C3:A5 97 LDA $97 ; subject hero ID $97 0x0195D5|$06:$95C5:C5 C9 CMP $C9 ; target hero ID 0x0195D7|$06:$95C7:F0 0D BEQ $95D6 ; use different strings depending on whether hero uses item on themself or another hero ; call to code in a different bank ($0F:$FA2E) 0x0195D9|$06:$95C9:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0195DC|$06:$95CC:20 ; String ID #$0120: [name] [end-FF] ; data -> code 0x0195DD|$06:$95CD:A5 C9 LDA $C9 ; target hero ID ; call to code in a different bank ($0F:$FC50) 0x0195DF|$06:$95CF:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA 0x0195E2|$06:$95D2:A9 1D LDA #$1D ; String ID #$011D: used the [item] on [name].[end-FC] 0x0195E4|$06:$95D4:D0 02 BNE $95D8 ; control flow target (from $95C7) 0x0195E6|$06:$95D6:A9 1E LDA #$1E ; String ID #$011E: [name] used the [item].[end-FC] ; control flow target (from $95D4) ; call to code in a different bank ($0F:$FA4E) 0x0195E8|$06:$95D8:20 4E FA JSR $FA4E ; display string ID specified by A + #$0100 0x0195EB|$06:$95DB:A5 97 LDA $97 ; subject hero ID $97 0x0195ED|$06:$95DD:48 PHA ; subject hero ID 0x0195EE|$06:$95DE:A5 C9 LDA $C9 ; target hero ID 0x0195F0|$06:$95E0:85 97 STA $97 ; subject hero ID $97 0x0195F2|$06:$95E2:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; item ID 0x0195F4|$06:$95E4:C9 3C CMP #$3C ; Item ID #$3C: Medical Herb 0x0195F6|$06:$95E6:D0 1E BNE $9606 ; USE Antidote Herb 0x0195F8|$06:$95E8:A9 80 LDA #$80 ; Alive 0x0195FA|$06:$95EA:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x0195FD|$06:$95ED:90 0A BCC $95F9 ; Medical Herbs can't heal dead people 0x0195FF|$06:$95EF:A5 C9 LDA $C9 ; target hero ID 0x019601|$06:$95F1:A2 64 LDX #$64 ; Healing Power on field for Medical Herb ; call to code in a different bank ($0F:$F72B) 0x019603|$06:$95F3:20 2B F7 JSR $F72B ; heal hero ID in A by random amount based on healing power in X ; call to code in a different bank ($0F:$C22C) 0x019606|$06:$95F6:20 2C C2 JSR $C22C ; control flow target (from $95ED, $960B, $961A) 0x019609|$06:$95F9:68 PLA ; subject hero ID 0x01960A|$06:$95FA:A6 49 LDX $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$C4D4) 0x01960C|$06:$95FC:20 D4 C4 JSR $C4D4 ; given hero ID in A and hero inventory offset in X, remove that item from hero's inventory and move all lower items up 1 slot ; call to code in a different bank ($0F:$EB76) 0x01960F|$06:$95FF:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x019612|$06:$9602:01 ; Menu ID #$01: Mini status window, top ; data -> code 0x019613|$06:$9603:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; USE Antidote Herb ; control flow target (from $95E6) 0x019616|$06:$9606:A9 80 LDA #$80 ; Alive 0x019618|$06:$9608:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x01961B|$06:$960B:90 EC BCC $95F9 ; Antidote Herbs can't heal dead people 0x01961D|$06:$960D:A5 C9 LDA $C9 ; target hero ID 0x01961F|$06:$960F:20 AC 8D JSR $8DAC ; given hero ID in A, set Y to start of hero's data in $062D,Y, i.e. Y = A * #$12 0x019622|$06:$9612:A9 DF LDA #$DF ; clear Poison 0x019624|$06:$9614:39 2D 06 AND $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x019627|$06:$9617:99 2D 06 STA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x01962A|$06:$961A:4C F9 95 JMP $95F9 ; given hero ID in $97 and hero inventory offset in $49, remove that item from hero's inventory and move all lower items up 1 slot ; control flow target (from $9634, $965E, $967B, $9809) 0x01962D|$06:$961D:A5 97 LDA $97 ; subject hero ID $97 0x01962F|$06:$961F:A6 49 LDX $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$C4D4) 0x019631|$06:$9621:20 D4 C4 JSR $C4D4 ; given hero ID in A and hero inventory offset in X, remove that item from hero's inventory and move all lower items up 1 slot 0x019634|$06:$9624:60 RTS ; control flow target (from $95AF) 0x019635|$06:$9625:C9 29 CMP #$29 ; Item ID #$29: Leaf of The World Tree 0x019637|$06:$9627:D0 25 BNE $964E ; call to code in a different bank ($0F:$F587) 0x019639|$06:$9629:20 87 F5 JSR $F587 ; display appropriate main ITEM target menu 0x01963C|$06:$962C:C9 FF CMP #$FF 0x01963E|$06:$962E:D0 03 BNE $9633 ; USE Item ID #$29: Leaf of The World Tree on target hero 0x019640|$06:$9630:4C 42 95 JMP $9542 ; exit COMMAND menu ; USE Item ID #$29: Leaf of The World Tree on target hero ; control flow target (from $962E) 0x019643|$06:$9633:48 PHA ; target hero ID 0x019644|$06:$9634:20 1D 96 JSR $961D ; given hero ID in $97 and hero inventory offset in $49, remove that item from hero's inventory and move all lower items up 1 slot 0x019647|$06:$9637:20 CB 9A JSR $9ACB ; open dialogue window 0x01964A|$06:$963A:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x01964D|$06:$963D:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019650|$06:$9640:20 ; String ID #$0120: [name] [end-FF] ; data -> code 0x019651|$06:$9641:68 PLA ; target hero ID 0x019652|$06:$9642:85 49 STA $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$FC50) 0x019654|$06:$9644:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x019657|$06:$9647:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01965A|$06:$964A:32 ; String ID #$0132: ground up the Leaf of the World Tree and gave it to [name].[wait][end-FC] ; data -> code 0x01965B|$06:$964B:4C 9F 8C JMP $8C9F ; spell ID is not #$09, #$0B, #$0D, #$10, or #$12-#$16; ergo it's Spell ID #$17: Revive ; control flow target (from $9627) 0x01965E|$06:$964E:48 PHA ; item ID 0x01965F|$06:$964F:20 CB 9A JSR $9ACB ; open dialogue window 0x019662|$06:$9652:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA 0x019665|$06:$9655:68 PLA ; item ID 0x019666|$06:$9656:C9 35 CMP #$35 ; Item ID #$35: Wing of the Wyvern 0x019668|$06:$9658:D0 0A BNE $9664 ; call to code in a different bank ($0F:$FA2E) 0x01966A|$06:$965A:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01966D|$06:$965D:21 ; String ID #$0121: [name] threw the Wing of the Wyvern into the air.[end-FC] ; data -> code 0x01966E|$06:$965E:20 1D 96 JSR $961D ; given hero ID in $97 and hero inventory offset in $49, remove that item from hero's inventory and move all lower items up 1 slot 0x019671|$06:$9661:4C 51 8C JMP $8C51 ; handler for Return spell effect ; control flow target (from $9658) 0x019674|$06:$9664:C9 25 CMP #$25 ; Item ID #$25: Tresures 0x019676|$06:$9666:D0 07 BNE $966F ; call to code in a different bank ($0F:$FA2E) 0x019678|$06:$9668:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01967B|$06:$966B:29 ; String ID #$0129: [name] could not open the treasure chest, for it was locked.[end-FC] ; data -> code 0x01967C|$06:$966C:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9666) 0x01967F|$06:$966F:C9 34 CMP #$34 ; Item ID #$34: Fairy Water 0x019681|$06:$9671:D0 0E BNE $9681 ; call to code in a different bank ($0F:$FA2E) 0x019683|$06:$9673:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019686|$06:$9676:2A ; String ID #$012A: [name] sprinkled the Fairy Water from head to toe.[end-FC] ; data -> code 0x019687|$06:$9677:A9 FF LDA #$FF 0x019689|$06:$9679:85 46 STA $46 ; Repel (#$FE) / Fairy Water (#$FF) flag 0x01968B|$06:$967B:20 1D 96 JSR $961D ; given hero ID in $97 and hero inventory offset in $49, remove that item from hero's inventory and move all lower items up 1 slot 0x01968E|$06:$967E:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9671) 0x019691|$06:$9681:C9 28 CMP #$28 ; Item ID #$28: Eye of Malroth 0x019693|$06:$9683:D0 4B BNE $96D0 ; call to code in a different bank ($0F:$FA2E) 0x019695|$06:$9685:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019698|$06:$9688:31 ; String ID #$0131: [name] held high the Eye of Malroth.[end-FC] ; data -> code 0x019699|$06:$9689:A5 31 LDA $31 ; current map ID 0x01969B|$06:$968B:C9 01 CMP #$01 ; Map ID #$01: World Map 0x01969D|$06:$968D:D0 24 BNE $96B3 ; if not World Map, go check Hagon's Castle 1F 0x01969F|$06:$968F:AD F9 05 LDA $05F9 ; flag for Cave to Rhone open 0x0196A2|$06:$9692:D0 35 BNE $96C9 ; item useless here 0x0196A4|$06:$9694:A5 16 LDA $16 ; current map X-pos (1) 0x0196A6|$06:$9696:C9 71 CMP #$71 ; X-pos range for successful use: #$71 - #$76 inclusive 0x0196A8|$06:$9698:90 2F BCC $96C9 ; item useless here 0x0196AA|$06:$969A:C9 77 CMP #$77 0x0196AC|$06:$969C:B0 2B BCS $96C9 ; item useless here 0x0196AE|$06:$969E:A5 17 LDA $17 ; current map Y-pos (1) 0x0196B0|$06:$96A0:C9 C6 CMP #$C6 ; Y-pos range for successful use: #$C6 - #$C8 inclusive 0x0196B2|$06:$96A2:90 25 BCC $96C9 ; item useless here 0x0196B4|$06:$96A4:C9 C9 CMP #$C9 0x0196B6|$06:$96A6:B0 21 BCS $96C9 ; item useless here ; call to code in a different bank ($0F:$D0F5) 0x0196B8|$06:$96A8:20 F5 D0 JSR $D0F5 ; wait for a while and then wipe menu regions #$03, #$00, and #$01 0x0196BB|$06:$96AB:A2 3C LDX #$3C ; call to code in a different bank ($0F:$C1EE) 0x0196BD|$06:$96AD:20 EE C1 JSR $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF ; call to code in a different bank ($0F:$D23E) 0x0196C0|$06:$96B0:4C 3E D2 JMP $D23E ; control flow target (from $968D) 0x0196C3|$06:$96B3:C9 16 CMP #$16 ; Map ID #$16: Hargon's Castle 1F 0x0196C5|$06:$96B5:D0 12 BNE $96C9 ; item useless here ; call to code in a different bank ($0F:$CD26) 0x0196C7|$06:$96B7:20 26 CD JSR $CD26 ; set Z if your current map position is the (X, Y) co-ordinates given by the next 2 bytes ; code -> data ; indirect data load target 0x0196CA|$06:$96BA:0D ; indirect data load target 0x0196CB|$06:$96BB:04 ; data -> code 0x0196CC|$06:$96BC:D0 0B BNE $96C9 ; item useless here 0x0196CE|$06:$96BE:A2 78 LDX #$78 ; call to code in a different bank ($0F:$C1EE) 0x0196D0|$06:$96C0:20 EE C1 JSR $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF ; call to code in a different bank ($0F:$C515) 0x0196D3|$06:$96C3:20 15 C5 JSR $C515 ; flash screen 10 times ; call to code in a different bank ($0F:$D7A6) 0x0196D6|$06:$96C6:4C A6 D7 JMP $D7A6 ; item useless here ; control flow target (from $9692, $9698, $969C, $96A2, $96A6, $96B5, $96BC) ; call to code in a different bank ($0F:$FA2E) 0x0196D9|$06:$96C9:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0196DC|$06:$96CC:27 ; String ID #$0127: [wait]But nothing happened.[end-FC] ; data -> code 0x0196DD|$06:$96CD:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9683) 0x0196E0|$06:$96D0:C9 2B CMP #$2B ; Item ID #$2B: Mirror of Ra 0x0196E2|$06:$96D2:D0 74 BNE $9748 0x0196E4|$06:$96D4:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x0196E7|$06:$96D7:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0196EA|$06:$96DA:36 ; String ID #$0136: [name] held up the Mirror of Ra.[end-FC] ; data -> code 0x0196EB|$06:$96DB:A9 00 LDA #$00 0x0196ED|$06:$96DD:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs ; control flow target (from $96F0) 0x0196EF|$06:$96DF:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs ; call to code in a different bank ($0F:$CF70) 0x0196F1|$06:$96E1:20 70 CF JSR $CF70 0x0196F4|$06:$96E4:A5 0C LDA $0C 0x0196F6|$06:$96E6:C9 02 CMP #$02 ; Moonbrooke 0x0196F8|$06:$96E8:F0 0F BEQ $96F9 0x0196FA|$06:$96EA:E6 96 INC $96 ; temp storage for item/spell/type/etc. IDs 0x0196FC|$06:$96EC:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs 0x0196FE|$06:$96EE:C9 04 CMP #$04 0x019700|$06:$96F0:D0 ED BNE $96DF ; call to code in a different bank ($0F:$FA2E) 0x019702|$06:$96F2:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019705|$06:$96F5:27 ; String ID #$0127: [wait]But nothing happened.[end-FC] ; data -> code 0x019706|$06:$96F6:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $96E8) 0x019709|$06:$96F9:A9 02 LDA #$02 ; Moonbrooke; useless op ; call to code in a different bank ($0F:$FC50) 0x01970B|$06:$96FB:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x01970E|$06:$96FE:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019711|$06:$9701:37 ; String ID #$0137: [wait]Behold, the mirror reflected back the image of Princess [name].[wait][line]Suddenly it shattered and the enchantment was broken,[wait][line]freeing the princess from her furry form.[end-FC] ; data -> code 0x019712|$06:$9702:A5 97 LDA $97 ; subject hero ID $97 0x019714|$06:$9704:A6 49 LDX $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$C4D4) 0x019716|$06:$9706:20 D4 C4 JSR $C4D4 ; given hero ID in A and hero inventory offset in X, remove that item from hero's inventory and move all lower items up 1 slot ; call to code in a different bank ($0F:$D0F5) 0x019719|$06:$9709:20 F5 D0 JSR $D0F5 ; wait for a while and then wipe menu regions #$03, #$00, and #$01 0x01971C|$06:$970C:A2 28 LDX #$28 ; call to code in a different bank ($0F:$C1EE) 0x01971E|$06:$970E:20 EE C1 JSR $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF 0x019721|$06:$9711:A9 00 LDA #$00 0x019723|$06:$9713:8D 4A 05 STA $054A ; NPC #$01 scripted motion low byte 0x019726|$06:$9716:8D 4B 05 STA $054B ; NPC #$01 scripted motion high byte 0x019729|$06:$9719:A9 09 LDA #$09 0x01972B|$06:$971B:A0 1F LDY #$1F ; call to code in a different bank ($0F:$CD45) 0x01972D|$06:$971D:20 45 CD JSR $CD45 0x019730|$06:$9720:A9 02 LDA #$02 0x019732|$06:$9722:A0 1F LDY #$1F ; call to code in a different bank ($0F:$CD4B) 0x019734|$06:$9724:20 4B CD JSR $CD4B 0x019737|$06:$9727:20 72 81 JSR $8172 0x01973A|$06:$972A:A9 84 LDA #$84 ; add Moonbrooke to party 0x01973C|$06:$972C:8D 51 06 STA $0651 ; Moonbrooke status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x01973F|$06:$972F:A9 02 LDA #$02 0x019741|$06:$9731:8D 51 05 STA $0551 ; NPC #$02 sprite ID ; control flow target (from $81B6) 0x019744|$06:$9734:20 CB 9A JSR $9ACB ; open dialogue window 0x019747|$06:$9737:A9 02 LDA #$02 ; Moonbrooke ; call to code in a different bank ($0F:$FC50) 0x019749|$06:$9739:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x01974C|$06:$973C:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01974F|$06:$973F:57 ; String ID #$0157: ‘Oh, dear cousin, thou hast freed me beyond all hope[.’][wait][line]‘To repay this, I offer thee my loyalty and service as the Princess of Moonbrooke[.’][wait][line]‘Please, take me with thee on thy quest[.’][end-FC] ; data -> code 0x019750|$06:$9740:A9 07 LDA #$07 ; Music ID #$07: add party member BGM ; call to code in a different bank ($0F:$C58D) 0x019752|$06:$9742:20 8D C5 JSR $C58D ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM 0x019755|$06:$9745:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $96D2) 0x019758|$06:$9748:C9 2C CMP #$2C ; Item ID #$2C: Dew’s Yarn 0x01975A|$06:$974A:F0 04 BEQ $9750 0x01975C|$06:$974C:C9 2D CMP #$2D ; Item ID #$2D: Magic Loom 0x01975E|$06:$974E:D0 07 BNE $9757 ; control flow target (from $974A) ; call to code in a different bank ($0F:$FA2E) 0x019760|$06:$9750:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019763|$06:$9753:38 ; String ID #$0138: [name] tried to use the [item],[wait] but didn't know how.[end-FC] ; data -> code 0x019764|$06:$9754:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $974E) 0x019767|$06:$9757:C9 37 CMP #$37 ; Item ID #$37: Golden Key 0x019769|$06:$9759:D0 04 BNE $975F 0x01976B|$06:$975B:A9 01 LDA #$01 0x01976D|$06:$975D:D0 14 BNE $9773 ; control flow target (from $9759) 0x01976F|$06:$975F:C9 38 CMP #$38 ; Item ID #$38: Silver Key 0x019771|$06:$9761:D0 04 BNE $9767 0x019773|$06:$9763:A9 00 LDA #$00 0x019775|$06:$9765:F0 0C BEQ $9773 ; control flow target (from $9761) 0x019777|$06:$9767:C9 39 CMP #$39 ; Item ID #$39: Jailor’s Key 0x019779|$06:$9769:F0 06 BEQ $9771 0x01977B|$06:$976B:C9 3A CMP #$3A ; Item ID #$3A: Watergate Key 0x01977D|$06:$976D:F0 1E BEQ $978D ; check Watergate 0x01977F|$06:$976F:D0 78 BNE $97E9 ; control flow target (from $9769) 0x019781|$06:$9771:A9 02 LDA #$02 ; control flow target (from $975D, $9765) 0x019783|$06:$9773:85 C9 STA $C9 ; call to code in a different bank ($0F:$CF7C) 0x019785|$06:$9775:20 7C CF JSR $CF7C 0x019788|$06:$9778:A5 49 LDA $49 ; object hero/target/item/string ID $49 0x01978A|$06:$977A:D0 08 BNE $9784 0x01978C|$06:$977C:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs 0x01978E|$06:$977E:C9 39 CMP #$39 ; Item ID #$39: Jailor’s Key 0x019790|$06:$9780:F0 57 BEQ $97D9 0x019792|$06:$9782:D0 51 BNE $97D5 ; control flow target (from $977A) 0x019794|$06:$9784:C9 01 CMP #$01 0x019796|$06:$9786:F0 59 BEQ $97E1 ; wrong key for door 0x019798|$06:$9788:A9 58 LDA #$58 ; String ID #$0158: The door opened.[end-FC] 0x01979A|$06:$978A:4C E3 97 JMP $97E3 ; check Watergate ; control flow target (from $976D) 0x01979D|$06:$978D:A5 31 LDA $31 ; current map ID 0x01979F|$06:$978F:C9 12 CMP #$12 ; Map ID #$12: Tuhn Watergate 0x0197A1|$06:$9791:D0 4A BNE $97DD ; call to code in a different bank ($0F:$CD26) 0x0197A3|$06:$9793:20 26 CD JSR $CD26 ; set Z if your current map position is the (X, Y) co-ordinates given by the next 2 bytes ; code -> data ; indirect data load target 0x0197A6|$06:$9796:02 ; indirect data load target 0x0197A7|$06:$9797:04 ; data -> code 0x0197A8|$06:$9798:D0 43 BNE $97DD ; call to code in a different bank ($0F:$FA2E) 0x0197AA|$06:$979A:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0197AD|$06:$979D:59 ; String ID #$0159: The water gate opened.[end-FC] ; data -> code ; call to code in a different bank ($0F:$D0F5) 0x0197AE|$06:$979E:20 F5 D0 JSR $D0F5 ; wait for a while and then wipe menu regions #$03, #$00, and #$01 0x0197B1|$06:$97A1:A5 97 LDA $97 ; subject hero ID $97 0x0197B3|$06:$97A3:85 9C STA $9C 0x0197B5|$06:$97A5:A9 3A LDA #$3A ; Item ID #$3A: Watergate Key ; call to code in a different bank ($0F:$C4B6) 0x0197B7|$06:$97A7:20 B6 C4 JSR $C4B6 ; given a hero ID in $9C and an item ID in A, remove that item from hero's inventory if present and SEC, CLC otherwise 0x0197BA|$06:$97AA:A9 04 LDA #$04 0x0197BC|$06:$97AC:85 20 STA $20 ; map exterior border tile ID (#$00 = Road, #$01 = Grass, #$02 = Sand, #$03 = Tree, #$04 = Water, #$05 = Vertical Wall, #$06 = Shrub, #$07 = Horizontal Wall, #$08 = Swamp, ..., #$20 = Ceiling Alternating?, #$21 = Ceiling Down?, #$24 = Black?, #$28 = Blue?) 0x0197BE|$06:$97AE:A9 01 LDA #$01 0x0197C0|$06:$97B0:85 CE STA $CE ; Tuhn Watergate open flag (#$00 = closed, #$01 = open) 0x0197C2|$06:$97B2:A9 00 LDA #$00 0x0197C4|$06:$97B4:85 18 STA $18 0x0197C6|$06:$97B6:A9 02 LDA #$02 0x0197C8|$06:$97B8:85 19 STA $19 ; call to code in a different bank ($0F:$D256) 0x0197CA|$06:$97BA:20 56 D2 JSR $D256 0x0197CD|$06:$97BD:A9 02 LDA #$02 0x0197CF|$06:$97BF:85 18 STA $18 ; call to code in a different bank ($0F:$D256) 0x0197D1|$06:$97C1:20 56 D2 JSR $D256 0x0197D4|$06:$97C4:A9 96 LDA #$96 ; Music ID #$96: Watergate SFX ; call to code in a different bank ($0F:$C561) 0x0197D6|$06:$97C6:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) 0x0197D9|$06:$97C9:A2 3C LDX #$3C ; call to code in a different bank ($0F:$C1EE) 0x0197DB|$06:$97CB:20 EE C1 JSR $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF 0x0197DE|$06:$97CE:A9 32 LDA #$32 0x0197E0|$06:$97D0:85 41 STA $41 ; call to code in a different bank ($0F:$E938) 0x0197E2|$06:$97D2:4C 38 E9 JMP $E938 ; control flow target (from $9782) 0x0197E5|$06:$97D5:A9 3B LDA #$3B ; String ID #$013B: There is no door here.[end-FC] 0x0197E7|$06:$97D7:D0 0A BNE $97E3 ; control flow target (from $9780) 0x0197E9|$06:$97D9:A9 3C LDA #$3C ; String ID #$013C: There is no prison here.[end-FC] 0x0197EB|$06:$97DB:D0 06 BNE $97E3 ; control flow target (from $9791, $9798) 0x0197ED|$06:$97DD:A9 3D LDA #$3D ; String ID #$013D: This is not the water gate.[end-FC] 0x0197EF|$06:$97DF:D0 02 BNE $97E3 ; wrong key for door ; control flow target (from $9786) 0x0197F1|$06:$97E1:A9 3E LDA #$3E ; String ID #$013E: The key wouldn't turn in the lock.[end-FC] ; control flow target (from $978A, $97D7, $97DB, $97DF) ; call to code in a different bank ($0F:$FA4E) 0x0197F3|$06:$97E3:20 4E FA JSR $FA4E ; display string ID specified by A + #$0100 0x0197F6|$06:$97E6:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $976F) 0x0197F9|$06:$97E9:C9 33 CMP #$33 ; Item ID #$33: Lottery Ticket 0x0197FB|$06:$97EB:D0 07 BNE $97F4 ; call to code in a different bank ($0F:$FA2E) 0x0197FD|$06:$97ED:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019800|$06:$97F0:40 ; String ID #$0140: [name] eagerly handed over the lottery ticket.[end-FC] ; data -> code 0x019801|$06:$97F1:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $97EB) 0x019804|$06:$97F4:C9 3D CMP #$3D ; Item ID #$3D: Wizard’s Ring 0x019806|$06:$97F6:D0 17 BNE $980F ; call to code in a different bank ($0F:$FA2E) 0x019808|$06:$97F8:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01980B|$06:$97FB:41 ; String ID #$0141: [name] slipped on the Wizard's Ring and spoke a word of magic.[end-FC] ; data -> code 0x01980C|$06:$97FC:A5 97 LDA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$F722) 0x01980E|$06:$97FE:20 22 F7 JSR $F722 ; restore the hero ID in A's MP by a random amount based on the Wizard's Ring's power; returns a random number between $03 and #$0A in A and $99 0x019811|$06:$9801:A5 99 LDA $99 ; chance for Wizard's Ring to break 0x019813|$06:$9803:D0 07 BNE $980C ; call to code in a different bank ($0F:$FA2E) 0x019815|$06:$9805:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019818|$06:$9808:42 ; String ID #$0142: [wait]The ring crumbled like clay into dust, losing all its power.[end-FC] ; data -> code 0x019819|$06:$9809:20 1D 96 JSR $961D ; given hero ID in $97 and hero inventory offset in $49, remove that item from hero's inventory and move all lower items up 1 slot ; control flow target (from $9803) 0x01981C|$06:$980C:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $97F6) 0x01981F|$06:$980F:C9 31 CMP #$31 ; Item ID #$31: Dragon’s Potion 0x019821|$06:$9811:D0 12 BNE $9825 ; call to code in a different bank ($0F:$FA2E) 0x019823|$06:$9813:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019826|$06:$9816:43 ; String ID #$0143: The beautiful voice can be heard from somewhere[..][..][wait][end-FC] ; data -> code ; call to code in a different bank ($0F:$FA32) 0x019827|$06:$9817:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01982A|$06:$981A:87 ; String ID #$0287: ‘Dost thou wish to save thy deeds in the Imperial Scrolls of Honor?’[FD][FD][end-FC] ; data -> code 0x01982B|$06:$981B:20 5D A3 JSR $A35D ; save game handler ; call to code in a different bank ($0F:$FA2E) 0x01982E|$06:$981E:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019831|$06:$9821:47 ; String ID #$0147: ‘I watch over my descendants[.’][end-FC] ; data -> code 0x019832|$06:$9822:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9811) 0x019835|$06:$9825:C9 3E CMP #$3E ; Item ID #$3E: Perilous 0x019837|$06:$9827:D0 0B BNE $9834 ; external control flow target (from $0F:$F74D) 0x019839|$06:$9829:86 49 STX $49 ; object hero/target/item/string ID $49 0x01983B|$06:$982B:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs 0x01983D|$06:$982D:85 95 STA $95 ; ID for [item] and [spell] control codes 0x01983F|$06:$982F:48 PHA 0x019840|$06:$9830:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA 0x019843|$06:$9833:68 PLA ; control flow target (from $9827) 0x019844|$06:$9834:C9 30 CMP #$30 ; Item ID #$30: Dragon’s Bane 0x019846|$06:$9836:D0 06 BNE $983E 0x019848|$06:$9838:20 95 98 JSR $9895 ; USE Dragon's Bane 0x01984B|$06:$983B:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9836) 0x01984E|$06:$983E:C9 2F CMP #$2F ; Item ID #$2F: Gremlin’s Tail 0x019850|$06:$9840:D0 06 BNE $9848 0x019852|$06:$9842:20 B0 98 JSR $98B0 ; USE Gremlin's Tail 0x019855|$06:$9845:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9840) 0x019858|$06:$9848:C9 26 CMP #$26 ; Item ID #$26: Moon Fragment 0x01985A|$06:$984A:D0 06 BNE $9852 0x01985C|$06:$984C:20 CB 98 JSR $98CB ; USE Moon Fragment 0x01985F|$06:$984F:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $984A) 0x019862|$06:$9852:C9 24 CMP #$24 ; Item ID #$24: Token of Erdrick 0x019864|$06:$9854:D0 06 BNE $985C 0x019866|$06:$9856:20 08 99 JSR $9908 ; USE Token of Erdrick 0x019869|$06:$9859:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9854) 0x01986C|$06:$985C:C9 2E CMP #$2E ; Item ID #$2E: Cloak of Wind 0x01986E|$06:$985E:D0 06 BNE $9866 0x019870|$06:$9860:20 14 99 JSR $9914 ; USE Cloak of Wind 0x019873|$06:$9863:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $985E) 0x019876|$06:$9866:C9 27 CMP #$27 ; Item ID #$27: Charm of Rubiss 0x019878|$06:$9868:D0 06 BNE $9870 0x01987A|$06:$986A:20 2F 99 JSR $992F ; USE Charm of Rubiss 0x01987D|$06:$986D:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9868) 0x019880|$06:$9870:C9 2A CMP #$2A ; Item ID #$2A: Echoing Flute 0x019882|$06:$9872:D0 06 BNE $987A 0x019884|$06:$9874:20 63 99 JSR $9963 ; USE Echoing Flute 0x019887|$06:$9877:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9872) 0x01988A|$06:$987A:C9 36 CMP #$36 ; Item ID #$36: [blank] 0x01988C|$06:$987C:D0 06 BNE $9884 0x01988E|$06:$987E:20 9C 99 JSR $999C ; USE Golden Card 0x019891|$06:$9881:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $987C) 0x019894|$06:$9884:C9 32 CMP #$32 ; Item ID #$32: Golden Card 0x019896|$06:$9886:D0 06 BNE $988E 0x019898|$06:$9888:20 9C 99 JSR $999C ; USE Golden Card 0x01989B|$06:$988B:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9886) ; call to code in a different bank ($0F:$FA2E) 0x01989E|$06:$988E:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0198A1|$06:$9891:9E ; String ID #$019E: But nothing happened.[end-FC] ; data -> code 0x0198A2|$06:$9892:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; USE Dragon's Bane ; control flow target (from $9838) 0x0198A5|$06:$9895:09 40 ORA #$40 ; check for equipped version 0x0198A7|$06:$9897:20 BA 8D JSR $8DBA ; given a hero ID in $97 and an item ID in A, SEC if hero has that item, CLC otherwise 0x0198AA|$06:$989A:B0 0E BCS $98AA 0x0198AC|$06:$989C:A6 49 LDX $49 ; object hero/target/item/string ID $49 0x0198AE|$06:$989E:20 0F 8B JSR $8B0F ; given hero ID in $97 and hero inventory index in X, return corresponding item ID in A and party inventory index in X 0x0198B1|$06:$98A1:09 40 ORA #$40 ; equip it 0x0198B3|$06:$98A3:9D 00 06 STA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped) 0x0198B6|$06:$98A6:A9 22 LDA #$22 ; String ID #$0122: [name] put on the Dragon's Bane.[end-FC] 0x0198B8|$06:$98A8:D0 02 BNE $98AC ; control flow target (from $989A) 0x0198BA|$06:$98AA:A9 23 LDA #$23 ; String ID #$0123: [name] has already put on the Dragon's Bane.[end-FC] ; control flow target (from $98A8) ; call to code in a different bank ($0F:$FA4E) 0x0198BC|$06:$98AC:20 4E FA JSR $FA4E ; display string ID specified by A + #$0100 0x0198BF|$06:$98AF:60 RTS ; USE Gremlin's Tail ; control flow target (from $9842) 0x0198C0|$06:$98B0:09 40 ORA #$40 ; check for equipped version 0x0198C2|$06:$98B2:20 BA 8D JSR $8DBA ; given a hero ID in $97 and an item ID in A, SEC if hero has that item, CLC otherwise 0x0198C5|$06:$98B5:B0 0E BCS $98C5 0x0198C7|$06:$98B7:A6 49 LDX $49 ; object hero/target/item/string ID $49 0x0198C9|$06:$98B9:20 0F 8B JSR $8B0F ; given hero ID in $97 and hero inventory index in X, return corresponding item ID in A and party inventory index in X 0x0198CC|$06:$98BC:09 40 ORA #$40 ; equip it 0x0198CE|$06:$98BE:9D 00 06 STA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped) 0x0198D1|$06:$98C1:A9 24 LDA #$24 ; String ID #$0124: [name] put on the Gremlin's Tail.[end-FC] 0x0198D3|$06:$98C3:D0 02 BNE $98C7 ; control flow target (from $98B5) 0x0198D5|$06:$98C5:A9 25 LDA #$25 ; String ID #$0125: [name] has already put on the Gremlin's Tail.[end-FC] ; control flow target (from $98C3) ; call to code in a different bank ($0F:$FA4E) 0x0198D7|$06:$98C7:20 4E FA JSR $FA4E ; display string ID specified by A + #$0100 0x0198DA|$06:$98CA:60 RTS ; USE Moon Fragment ; control flow target (from $984C) ; call to code in a different bank ($0F:$FA2E) 0x0198DB|$06:$98CB:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0198DE|$06:$98CE:26 ; String ID #$0126: [name] held the Moon Fragment overhead.[end-FC] ; data -> code 0x0198DF|$06:$98CF:A5 8E LDA $8E ; flag for in battle or not (#$FF)? 0x0198E1|$06:$98D1:30 2D BMI $9900 0x0198E3|$06:$98D3:A5 1F LDA $1F ; some kind of map type (#$00: World Map, #$01: other non-dungeon maps, #$02: maps #$2B - #$43 inclusive, #$03: maps >= #$44, #$FF => game menu) 0x0198E5|$06:$98D5:D0 29 BNE $9900 0x0198E7|$06:$98D7:AD F8 05 LDA $05F8 ; Sea Cave shoal status (#$00 = shoals up, others = shoals down) 0x0198EA|$06:$98DA:D0 24 BNE $9900 0x0198EC|$06:$98DC:A5 16 LDA $16 ; current map X-pos (1) 0x0198EE|$06:$98DE:C9 B1 CMP #$B1 ; X-range for effective use is #$B1-#$B9 inclusive 0x0198F0|$06:$98E0:90 1E BCC $9900 0x0198F2|$06:$98E2:C9 BA CMP #$BA 0x0198F4|$06:$98E4:B0 1A BCS $9900 0x0198F6|$06:$98E6:A5 17 LDA $17 ; current map Y-pos (1) 0x0198F8|$06:$98E8:C9 A2 CMP #$A2 ; Y-range for effective use is #$A2-#$AC inclusive 0x0198FA|$06:$98EA:90 14 BCC $9900 0x0198FC|$06:$98EC:C9 AD CMP #$AD 0x0198FE|$06:$98EE:B0 10 BCS $9900 ; call to code in a different bank ($0F:$D0F5) 0x019900|$06:$98F0:20 F5 D0 JSR $D0F5 ; wait for a while and then wipe menu regions #$03, #$00, and #$01 0x019903|$06:$98F3:A2 3C LDX #$3C ; call to code in a different bank ($0F:$C1EE) 0x019905|$06:$98F5:20 EE C1 JSR $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF 0x019908|$06:$98F8:A9 01 LDA #$01 0x01990A|$06:$98FA:8D F8 05 STA $05F8 ; Sea Cave shoal status (#$00 = shoals up, others = shoals down) ; call to code in a different bank ($0F:$D218) 0x01990D|$06:$98FD:4C 18 D2 JMP $D218 ; open path to Sea Cave ; control flow target (from $98D1, $98D5, $98DA, $98E0, $98E4, $98EA, $98EE) ; call to code in a different bank ($0F:$F73D) 0x019910|$06:$9900:20 3D F7 JSR $F73D ; calls $04:$99E6 ; call to code in a different bank ($0F:$FA2E) 0x019913|$06:$9903:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019916|$06:$9906:27 ; String ID #$0127: [wait]But nothing happened.[end-FC] ; data -> code 0x019917|$06:$9907:60 RTS ; USE Token of Erdrick ; control flow target (from $9856) ; call to code in a different bank ($0F:$FA2E) 0x019918|$06:$9908:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data 0x01991B|$06:$990B:28 ; String ID #$0128: [name] gripped Token of Erdrick.[wait][end-FC] ; data -> code ; call to code in a different bank ($0F:$F73D) 0x01991C|$06:$990C:20 3D F7 JSR $F73D ; calls $04:$99E6 ; call to code in a different bank ($0F:$FA2E) 0x01991F|$06:$990F:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data 0x019922|$06:$9912:53 ; String ID #$0153: Thy courage soared![end-FC] ; data -> code 0x019923|$06:$9913:60 RTS ; USE Cloak of Wind ; control flow target (from $9860) 0x019924|$06:$9914:09 40 ORA #$40 ; check for equipped version 0x019926|$06:$9916:20 BA 8D JSR $8DBA ; given a hero ID in $97 and an item ID in A, SEC if hero has that item, CLC otherwise 0x019929|$06:$9919:B0 0E BCS $9929 0x01992B|$06:$991B:A6 49 LDX $49 ; object hero/target/item/string ID $49 0x01992D|$06:$991D:20 0F 8B JSR $8B0F ; given hero ID in $97 and hero inventory index in X, return corresponding item ID in A and party inventory index in X 0x019930|$06:$9920:09 40 ORA #$40 ; equip it 0x019932|$06:$9922:9D 00 06 STA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped) 0x019935|$06:$9925:A9 2C LDA #$2C ; String ID #$012C: [name] donned the Cloak of Wind.[end-FC] 0x019937|$06:$9927:D0 02 BNE $992B ; control flow target (from $9919) 0x019939|$06:$9929:A9 2D LDA #$2D ; String ID #$012D: Remember, [name] has already put on the Cloak of Wind.[end-FC] ; control flow target (from $9927) ; call to code in a different bank ($0F:$FA4E) 0x01993B|$06:$992B:20 4E FA JSR $FA4E ; display string ID specified by A + #$0100 0x01993E|$06:$992E:60 RTS ; USE Charm of Rubiss ; control flow target (from $986A) ; call to code in a different bank ($0F:$FA2E) 0x01993F|$06:$992F:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019942|$06:$9932:2E ; String ID #$012E: With one hand, [name] held aloft the Charm of Rubiss.[wait][end-FC] ; data -> code 0x019943|$06:$9933:A5 8E LDA $8E ; flag for in battle or not (#$FF)? 0x019945|$06:$9935:30 24 BMI $995B 0x019947|$06:$9937:A5 31 LDA $31 ; current map ID ; Map ID #$00: Fake Midenhall 0x019949|$06:$9939:D0 20 BNE $995B ; call to code in a different bank ($0F:$FA2E) 0x01994B|$06:$993B:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01994E|$06:$993E:30 ; String ID #$0130: [name] could hear a voice drawing near.[wait][line]‘[name]! Be not deceived by false visions[.’][end-FC] ; data -> code 0x01994F|$06:$993F:A2 78 LDX #$78 ; call to code in a different bank ($0F:$C1EE) 0x019951|$06:$9941:20 EE C1 JSR $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF ; call to code in a different bank ($0F:$C515) 0x019954|$06:$9944:20 15 C5 JSR $C515 ; flash screen 10 times ; call to code in a different bank ($0F:$C515) 0x019957|$06:$9947:20 15 C5 JSR $C515 ; flash screen 10 times 0x01995A|$06:$994A:68 PLA 0x01995B|$06:$994B:68 PLA 0x01995C|$06:$994C:AD 59 99 LDA $9959 0x01995F|$06:$994F:85 0C STA $0C 0x019961|$06:$9951:AD 5A 99 LDA $995A 0x019964|$06:$9954:85 0D STA $0D ; call to code in a different bank ($0F:$D81C) 0x019966|$06:$9956:4C 1C D8 JMP $D81C ; code -> data ; data load target (from $994C) 0x019969|$06:$9959:85 ; data load target (from $9951) 0x01996A|$06:$995A: BD ; $03:$BD85 ; data -> code ; control flow target (from $9935, $9939) ; call to code in a different bank ($0F:$F73D) 0x01996B|$06:$995B:20 3D F7 JSR $F73D ; calls $04:$99E6 ; call to code in a different bank ($0F:$FA2E) 0x01996E|$06:$995E:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019971|$06:$9961:2F ; String ID #$012F: And yet nothing happened.[end-FC] ; data -> code 0x019972|$06:$9962:60 RTS ; USE Echoing Flute ; control flow target (from $9874) ; call to code in a different bank ($0F:$FA2E) 0x019973|$06:$9963:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019976|$06:$9966:35 ; String ID #$0135: Briefly, [name] played the Echoing Flute.[end-FC] ; data -> code 0x019977|$06:$9967:A0 00 LDY #$00 0x019979|$06:$9969:A5 31 LDA $31 ; current map ID ; control flow target (from $9986) 0x01997B|$06:$996B:D9 8D 99 CMP $998D,Y ; minimum map ID (inclusive) 0x01997E|$06:$996E:90 11 BCC $9981 ; wrong map 0x019980|$06:$9970:D9 8E 99 CMP $998E,Y ; maximum map ID (exclusive) 0x019983|$06:$9973:B0 0C BCS $9981 ; wrong map 0x019985|$06:$9975:B9 8F 99 LDA $998F,Y ; Crest in this map 0x019988|$06:$9978:2D 12 01 AND $0112 ; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun) 0x01998B|$06:$997B:D0 0B BNE $9988 ; flute does not echo 0x01998D|$06:$997D:A9 03 LDA #$03 ; Music ID #$03: Echoing Flute echoing BGM 0x01998F|$06:$997F:D0 09 BNE $998A ; flute echoes! ; wrong map ; control flow target (from $996E, $9973) 0x019991|$06:$9981:C8 INY 0x019992|$06:$9982:C8 INY 0x019993|$06:$9983:C8 INY 0x019994|$06:$9984:C0 0F CPY #$0F ; 3 bytes per crest * 5 crests = #$0F 0x019996|$06:$9986:D0 E3 BNE $996B ; if more maps to check, check them ; flute does not echo ; control flow target (from $997B) 0x019998|$06:$9988:A9 04 LDA #$04 ; Music ID #$04: Echoing Flute not echoing BGM ; control flow target (from $997F) ; call to code in a different bank ($0F:$C58D) 0x01999A|$06:$998A:4C 8D C5 JMP $C58D ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM ; code -> data ; minimum map ID (inclusive) ; indexed data load target (from $996B) 0x01999D|$06:$998D:08 ; maximum map ID (exclusive) ; indexed data load target (from $9970) 0x01999E|$06:$998E: 09 ; Crest in this map ; indexed data load target (from $9975) 0x01999F|$06:$998F: 08 ; Map ID #$08: Hamlin Waterway 0x0199A0|$06:$9990:0F 10 04 ; Map ID #$0F: Osterfair 0x0199A3|$06:$9993:1E 1F 01 ; Map ID #$1E: Shrine NW of Zahan 0x0199A6|$06:$9996:50 58 02 ; Map IDs #$50 - #$57: Lighthouse 0x0199A9|$06:$9999:37 40 10 ; Map IDs #$37 - #$3F: Cave to Rhone ; data -> code ; USE Golden Card ; control flow target (from $987E, $9888) ; call to code in a different bank ($0F:$FA2E) 0x0199AC|$06:$999C:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0199AF|$06:$999F:3F ; String ID #$013F: [name] took the Golden Card.[wait][end-FC] ; data -> code ; call to code in a different bank ($0F:$F73D) 0x0199B0|$06:$99A0:20 3D F7 JSR $F73D ; calls $04:$99E6 ; call to code in a different bank ($0F:$FA2E) 0x0199B3|$06:$99A3:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0199B6|$06:$99A6:54 ; String ID #$0154: Thou art happy indeed.[end-FC] ; data -> code 0x0199B7|$06:$99A7:60 RTS ; TRADE/THROW handler ; control flow target (from $9590) 0x0199B8|$06:$99A8:C9 01 CMP #$01 ; TRADE; useless op 0x0199BA|$06:$99AA:F0 03 BEQ $99AF ; TRADE handler 0x0199BC|$06:$99AC:4C 84 9A JMP $9A84 ; THROW command handler ; TRADE handler ; control flow target (from $99AA) ; call to code in a different bank ($0F:$F6CE) 0x0199BF|$06:$99AF:20 CE F6 JSR $F6CE ; return number of party members - 1 in A/X 0x0199C2|$06:$99B2:D0 0D BNE $99C1 ; determine target hero 0x0199C4|$06:$99B4:20 CB 9A JSR $9ACB ; open dialogue window 0x0199C7|$06:$99B7:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x0199CA|$06:$99BA:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0199CD|$06:$99BD:19 ; String ID #$0119: [name] has no companion with which to exchange tools.[end-FC] ; data -> code 0x0199CE|$06:$99BE:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; determine target hero ; control flow target (from $99B2) ; call to code in a different bank ($0F:$F587) 0x0199D1|$06:$99C1:20 87 F5 JSR $F587 ; display appropriate main ITEM target menu 0x0199D4|$06:$99C4:C9 FF CMP #$FF 0x0199D6|$06:$99C6:D0 03 BNE $99CB 0x0199D8|$06:$99C8:4C 42 95 JMP $9542 ; exit COMMAND menu ; control flow target (from $99C6) 0x0199DB|$06:$99CB:85 C9 STA $C9 ; target hero ID 0x0199DD|$06:$99CD:20 CB 9A JSR $9ACB ; open dialogue window 0x0199E0|$06:$99D0:20 FC 9A JSR $9AFC ; given hero ID in $97 and hero inventory index in $49, set Z if item is equipped and cursed, clear if not 0x0199E3|$06:$99D3:D0 03 BNE $99D8 ; item can be traded 0x0199E5|$06:$99D5:4C C4 9A JMP $9AC4 ; item is equipped and cursed ; item can be traded ; control flow target (from $99D3) 0x0199E8|$06:$99D8:A5 97 LDA $97 ; subject hero ID $97 0x0199EA|$06:$99DA:C5 C9 CMP $C9 ; target hero ID 0x0199EC|$06:$99DC:D0 22 BNE $9A00 ; give to different hero 0x0199EE|$06:$99DE:A9 80 LDA #$80 ; Alive 0x0199F0|$06:$99E0:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x0199F3|$06:$99E3:90 0A BCC $99EF ; ghost giving to itself 0x0199F5|$06:$99E5:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x0199F8|$06:$99E8:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x0199FB|$06:$99EB:1C ; String ID #$011C: [name] started to give it, but held on to it instead.[end-FC] ; data -> code 0x0199FC|$06:$99EC:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; ghost giving to itself ; control flow target (from $99E3) 0x0199FF|$06:$99EF:20 EB 9A JSR $9AEB ; using name of first living hero, display String ID #$0120: [name] [end-FF] 0x019A02|$06:$99F2:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x019A05|$06:$99F5:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019A08|$06:$99F8:A1 ; String ID #$01A1: took the [item] from the ghost of [name] and [end-FF] ; data -> code ; call to code in a different bank ($0F:$FA2E) 0x019A09|$06:$99F9:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019A0C|$06:$99FC:A3 ; String ID #$01A3: gave it back to the ghost of [name].[end-FC] ; data -> code 0x019A0D|$06:$99FD:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; give to different hero ; control flow target (from $99DC) 0x019A10|$06:$9A00:A5 97 LDA $97 ; subject hero ID $97 0x019A12|$06:$9A02:48 PHA ; item owner hero ID 0x019A13|$06:$9A03:A5 C9 LDA $C9 ; target hero ID 0x019A15|$06:$9A05:85 97 STA $97 ; subject hero ID $97 0x019A17|$06:$9A07:20 7E 8D JSR $8D7E ; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots 0x019A1A|$06:$9A0A:B0 0B BCS $9A17 ; item given to target hero 0x019A1C|$06:$9A0C:68 PLA ; item owner hero ID 0x019A1D|$06:$9A0D:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x019A20|$06:$9A10:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019A23|$06:$9A13:1B ; String ID #$011B: [name] cannot carry more items.[end-FC] ; data -> code 0x019A24|$06:$9A14:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; item given to target hero ; control flow target (from $9A0A) 0x019A27|$06:$9A17:68 PLA ; item owner hero ID 0x019A28|$06:$9A18:85 97 STA $97 ; subject hero ID $97 0x019A2A|$06:$9A1A:A6 49 LDX $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$C4D4) 0x019A2C|$06:$9A1C:20 D4 C4 JSR $C4D4 ; given hero ID in A and hero inventory offset in X, remove that item from hero's inventory and move all lower items up 1 slot 0x019A2F|$06:$9A1F:A9 80 LDA #$80 ; Alive 0x019A31|$06:$9A21:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x019A34|$06:$9A24:90 21 BCC $9A47 ; owner is a ghost 0x019A36|$06:$9A26:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x019A39|$06:$9A29:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019A3C|$06:$9A2C:20 ; String ID #$0120: [name] [end-FF] ; data -> code 0x019A3D|$06:$9A2D:A5 C9 LDA $C9 ; target hero ID 0x019A3F|$06:$9A2F:85 97 STA $97 ; subject hero ID $97 0x019A41|$06:$9A31:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA 0x019A44|$06:$9A34:A9 80 LDA #$80 ; Alive 0x019A46|$06:$9A36:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x019A49|$06:$9A39:90 04 BCC $9A3F ; target is a ghost 0x019A4B|$06:$9A3B:A9 1A LDA #$1A ; String ID #$011A: handed the [item] to [name].[end-FC] 0x019A4D|$06:$9A3D:D0 02 BNE $9A41 ; target is alive ; target is a ghost ; control flow target (from $9A39) 0x019A4F|$06:$9A3F:A9 17 LDA #$17 ; String ID #$0117: gave the [item] to the ghost of [name].[end-FC] ; target is alive ; control flow target (from $9A3D) ; call to code in a different bank ($0F:$FA4E) 0x019A51|$06:$9A41:20 4E FA JSR $FA4E ; display string ID specified by A + #$0100 0x019A54|$06:$9A44:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; owner is a ghost ; control flow target (from $9A24) 0x019A57|$06:$9A47:A5 97 LDA $97 ; subject hero ID $97 0x019A59|$06:$9A49:48 PHA ; item owner hero ID 0x019A5A|$06:$9A4A:A5 C9 LDA $C9 ; target hero ID 0x019A5C|$06:$9A4C:85 97 STA $97 ; subject hero ID $97 0x019A5E|$06:$9A4E:A9 80 LDA #$80 ; Alive 0x019A60|$06:$9A50:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x019A63|$06:$9A53:90 14 BCC $9A69 ; target is a ghost 0x019A65|$06:$9A55:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA 0x019A68|$06:$9A58:68 PLA ; item owner hero ID 0x019A69|$06:$9A59:85 97 STA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$FA2E) 0x019A6B|$06:$9A5B:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019A6E|$06:$9A5E:20 ; String ID #$0120: [name] [end-FF] ; data -> code 0x019A6F|$06:$9A5F:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x019A72|$06:$9A62:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019A75|$06:$9A65:18 ; String ID #$0118: took the [item] from [name].[end-FC] ; data -> code 0x019A76|$06:$9A66:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; target is a ghost ; control flow target (from $9A53) 0x019A79|$06:$9A69:20 EB 9A JSR $9AEB ; using name of first living hero, display String ID #$0120: [name] [end-FF] 0x019A7C|$06:$9A6C:68 PLA ; item owner hero ID 0x019A7D|$06:$9A6D:85 97 STA $97 ; subject hero ID $97 0x019A7F|$06:$9A6F:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x019A82|$06:$9A72:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019A85|$06:$9A75:A1 ; String ID #$01A1: took the [item] from the ghost of [name] and [end-FF] ; data -> code 0x019A86|$06:$9A76:A5 C9 LDA $C9 ; target hero ID 0x019A88|$06:$9A78:85 97 STA $97 ; subject hero ID $97 0x019A8A|$06:$9A7A:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x019A8D|$06:$9A7D:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019A90|$06:$9A80:A2 ; String ID #$01A2: gave it to ghost of [name].[end-FC] ; data -> code 0x019A91|$06:$9A81:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; THROW command handler ; control flow target (from $99AC) 0x019A94|$06:$9A84:20 CB 9A JSR $9ACB ; open dialogue window 0x019A97|$06:$9A87:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs 0x019A99|$06:$9A89:0A ASL ; item prices are 2 bytes each 0x019A9A|$06:$9A8A:A8 TAY 0x019A9B|$06:$9A8B:B9 FC 9F LDA $9FFC,Y ; Item Prices, low byte 0x019A9E|$06:$9A8E:19 FD 9F ORA $9FFD,Y ; Item Prices, high byte 0x019AA1|$06:$9A91:F0 2A BEQ $9ABD ; 0 G items are key items 0x019AA3|$06:$9A93:20 FC 9A JSR $9AFC ; given hero ID in $97 and hero inventory index in $49, set Z if item is equipped and cursed, clear if not 0x019AA6|$06:$9A96:F0 2C BEQ $9AC4 ; item is equipped and cursed 0x019AA8|$06:$9A98:A9 80 LDA #$80 ; Alive 0x019AAA|$06:$9A9A:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x019AAD|$06:$9A9D:90 0A BCC $9AA9 ; owner is a ghost 0x019AAF|$06:$9A9F:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x019AB2|$06:$9AA2:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019AB5|$06:$9AA5:14 ; String ID #$0114: [name] threw away the [item].[end-FC] ; data -> code 0x019AB6|$06:$9AA6:4C B3 9A JMP $9AB3 ; owner is a ghost ; control flow target (from $9A9D) 0x019AB9|$06:$9AA9:20 EB 9A JSR $9AEB ; using name of first living hero, display String ID #$0120: [name] [end-FF] 0x019ABC|$06:$9AAC:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x019ABF|$06:$9AAF:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019AC2|$06:$9AB2:16 ; String ID #$0116: took the [item] from [name] and threw it away.[end-FC] ; data -> code ; control flow target (from $9AA6) 0x019AC3|$06:$9AB3:A5 97 LDA $97 ; subject hero ID $97 0x019AC5|$06:$9AB5:A6 49 LDX $49 ; object hero/target/item/string ID $49 ; call to code in a different bank ($0F:$C4D4) 0x019AC7|$06:$9AB7:20 D4 C4 JSR $C4D4 ; given hero ID in A and hero inventory offset in X, remove that item from hero's inventory and move all lower items up 1 slot 0x019ACA|$06:$9ABA:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; 0 G items are key items ; control flow target (from $9A91) ; call to code in a different bank ($0F:$FA2E) 0x019ACD|$06:$9ABD:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019AD0|$06:$9AC0:0E ; String ID #$010E: Thou should not throw that away.[end-FC] ; data -> code 0x019AD1|$06:$9AC1:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; item is equipped and cursed ; control flow target (from $99D5, $9A96) ; call to code in a different bank ($0F:$FA2E) 0x019AD4|$06:$9AC4:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019AD7|$06:$9AC7:12 ; String ID #$0112: It cannot be removed due to the curse.[end-FC] ; data -> code 0x019AD8|$06:$9AC8:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; open dialogue window ; control flow target (from $80CE, $80FA, $8160, $81BD, $8AB0, $8AD6, $8AF2, $8B46, $8B5C, $8BB3, $8E0C, $8E4C, $8E6B, $8F3F, $8F4E, $91C6, $91E3, $94B4, $94C6, $94E5, $956F, $959A, $95BD, $9637, $964F, $9734, $99B4, $99CD, $9A84) ; call to code in a different bank ($0F:$EB76) 0x019ADB|$06:$9ACB:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x019ADE|$06:$9ACE:04 ; Menu ID #$04: Dialogue window ; data -> code 0x019ADF|$06:$9ACF:60 RTS ; open YES/NO menu, return selected option in A ; control flow target (from $8236, $82C7, $832B, $8360, $83BD, $83D9, $8443, $8506, $8518, $856E, $8681, $86C4, $86EE, $8E54, $8FB5, $902C, $911B, $91AC, $9217, $92EB, $934C, $9388, $94CE, $94FF, $9CAE) ; call to code in a different bank ($0F:$EB76) 0x019AE0|$06:$9AD0:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x019AE3|$06:$9AD3:19 ; Menu ID #$19: General menu: YES/NO ; data -> code 0x019AE4|$06:$9AD4:60 RTS ; set A/$97 to ID of first living hero ; control flow target (from $8ECD, $8F23, $8F51, $8F9B, $8FCC, $9122, $917B, $91F4, $93E5, $9400, $9AEE, $9B1B) 0x019AE5|$06:$9AD5:A9 00 LDA #$00 ; start with Midenhall 0x019AE7|$06:$9AD7:85 97 STA $97 ; subject hero ID $97 ; control flow target (from $9AE6) 0x019AE9|$06:$9AD9:A9 80 LDA #$80 ; Alive 0x019AEB|$06:$9ADB:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x019AEE|$06:$9ADE:B0 08 BCS $9AE8 ; if hero alive, then we're done 0x019AF0|$06:$9AE0:E6 97 INC $97 ; subject hero ID $97 0x019AF2|$06:$9AE2:A5 97 LDA $97 ; subject hero ID $97 0x019AF4|$06:$9AE4:C9 03 CMP #$03 ; only 3 heroes 0x019AF6|$06:$9AE6:D0 F1 BNE $9AD9 ; loop if more heroes to check ; control flow target (from $9ADE) 0x019AF8|$06:$9AE8:A5 97 LDA $97 ; subject hero ID $97 0x019AFA|$06:$9AEA:60 RTS ; using name of first living hero, display String ID #$0120: [name] [end-FF] ; control flow target (from $99EF, $9A69, $9AA9, $9D2A) 0x019AFB|$06:$9AEB:A5 97 LDA $97 ; subject hero ID $97; save $97 to stack since $9AD5 will overwrite it 0x019AFD|$06:$9AED:48 PHA 0x019AFE|$06:$9AEE:20 D5 9A JSR $9AD5 ; set A/$97 to ID of first living hero 0x019B01|$06:$9AF1:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x019B04|$06:$9AF4:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019B07|$06:$9AF7:20 ; String ID #$0120: [name] [end-FF] ; data -> code 0x019B08|$06:$9AF8:68 PLA ; restore $97 from stack 0x019B09|$06:$9AF9:85 97 STA $97 ; subject hero ID $97 0x019B0B|$06:$9AFB:60 RTS ; given hero ID in $97 and hero inventory index in $49, set Z if item is equipped and cursed, clear if not ; control flow target (from $9153, $99D0, $9A93, $9CF4) 0x019B0C|$06:$9AFC:A5 97 LDA $97 ; subject hero ID $97 0x019B0E|$06:$9AFE:0A ASL ; inventory is 8 items per hero 0x019B0F|$06:$9AFF:0A ASL 0x019B10|$06:$9B00:0A ASL 0x019B11|$06:$9B01:18 CLC 0x019B12|$06:$9B02:65 49 ADC $49 ; object hero/target/item/string ID $49 0x019B14|$06:$9B04:AA TAX 0x019B15|$06:$9B05:BD 00 06 LDA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped) 0x019B18|$06:$9B08:C9 4C CMP #$4C ; Item ID #$4C: Sword of Destruction (equipped) 0x019B1A|$06:$9B0A:F0 0A BEQ $9B16 0x019B1C|$06:$9B0C:C9 57 CMP #$57 ; Item ID #$57: Gremlin’s Armor (equipped) 0x019B1E|$06:$9B0E:F0 06 BEQ $9B16 0x019B20|$06:$9B10:C9 5F CMP #$5F ; Item ID #$5F: Evil Shield (equipped) 0x019B22|$06:$9B12:F0 02 BEQ $9B16 0x019B24|$06:$9B14:C9 6F CMP #$6F ; Item ID #$6F: Gremlin’s Tail (equipped) ; control flow target (from $9B0A, $9B0E, $9B12) 0x019B26|$06:$9B16:60 RTS ; COMMAND menu SEARCH handler ; indirect control flow target (via $808E) ; call to code in a different bank ($0F:$EB76) 0x019B27|$06:$9B17:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x019B2A|$06:$9B1A:04 ; Menu ID #$04: Dialogue window ; data -> code 0x019B2B|$06:$9B1B:20 D5 9A JSR $9AD5 ; set A/$97 to ID of first living hero 0x019B2E|$06:$9B1E:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA 0x019B31|$06:$9B21:A5 CF LDA $CF ; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins) 0x019B33|$06:$9B23:29 04 AND #$04 ; pick out the "on ship" bit 0x019B35|$06:$9B25:F0 04 BEQ $9B2B ; branch if you're not on the ship 0x019B37|$06:$9B27:A9 07 LDA #$07 ; String ID #$0107: [name] dove overboard into the sea.[wait][end-FC] 0x019B39|$06:$9B29:D0 02 BNE $9B2D ; control flow target (from $9B25) 0x019B3B|$06:$9B2B:A9 03 LDA #$03 ; String ID #$0103: [name] searched all about.[wait][end-FC] ; control flow target (from $9B29) ; call to code in a different bank ($0F:$FA4E) 0x019B3D|$06:$9B2D:20 4E FA JSR $FA4E ; display string ID specified by A + #$0100 ; call to code in a different bank ($0F:$D095) 0x019B40|$06:$9B30:20 95 D0 JSR $D095 0x019B43|$06:$9B33:90 10 BCC $9B45 0x019B45|$06:$9B35:AD 2A 9E LDA $9E2A ; -> $06:$9E2E: Treasure List 1 (map ID, X-pos, Y-pos, item ID) 0x019B48|$06:$9B38:85 0C STA $0C 0x019B4A|$06:$9B3A:AD 2B 9E LDA $9E2B 0x019B4D|$06:$9B3D:85 0D STA $0D 0x019B4F|$06:$9B3F:20 58 9D JSR $9D58 ; scan treasure list at ($0C), returning in A/$95/$96 the item ID corresponding to party's current map ID/position or #$00 if there is no item or you're not allowed to get it 0x019B52|$06:$9B42:4C 84 9B JMP $9B84 ; control flow target (from $9B33) 0x019B55|$06:$9B45:A5 31 LDA $31 ; current map ID 0x019B57|$06:$9B47:C9 68 CMP #$68 ; Map ID #$68: Dragon Horn North 3F 0x019B59|$06:$9B49:D0 1E BNE $9B69 0x019B5B|$06:$9B4B:A9 2C LDA #$2C ; Item ID #$2C: Dew’s Yarn 0x019B5D|$06:$9B4D:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs; item ID 0x019B5F|$06:$9B4F:85 95 STA $95 ; ID for [item] and [spell] control codes; item ID 0x019B61|$06:$9B51:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x019B64|$06:$9B54:10 27 BPL $9B7D ; search failed 0x019B66|$06:$9B56:A9 13 LDA #$13 ; Item ID #$13: Water Flying Cloth 0x019B68|$06:$9B58:20 60 A3 JSR $A360 ; check for item A (possibly equipped) in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x019B6B|$06:$9B5B:10 20 BPL $9B7D ; search failed ; call to code in a different bank ($0F:$C3AB) 0x019B6D|$06:$9B5D:20 AB C3 JSR $C3AB ; generate a random number and store it in $32-$33 (two passes) 0x019B70|$06:$9B60:A5 32 LDA $32 ; RNG byte 0 0x019B72|$06:$9B62:29 03 AND #$03 ; 1/4 chance to find item 0x019B74|$06:$9B64:D0 17 BNE $9B7D ; search failed 0x019B76|$06:$9B66:4C 05 9C JMP $9C05 ; control flow target (from $9B49) 0x019B79|$06:$9B69:AD 2C 9E LDA $9E2C ; -> $06:$9F07: Treasure List 2 (map ID, X-pos, Y-pos, item ID) 0x019B7C|$06:$9B6C:85 0C STA $0C 0x019B7E|$06:$9B6E:AD 2D 9E LDA $9E2D 0x019B81|$06:$9B71:85 0D STA $0D 0x019B83|$06:$9B73:20 58 9D JSR $9D58 ; scan treasure list at ($0C), returning in A/$95/$96 the item ID corresponding to party's current map ID/position or #$00 if there is no item or you're not allowed to get it 0x019B86|$06:$9B76:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; useless op; $96 is already in A 0x019B88|$06:$9B78:F0 03 BEQ $9B7D ; search failed 0x019B8A|$06:$9B7A:4C 05 9C JMP $9C05 ; search failed ; control flow target (from $9B54, $9B5B, $9B64, $9B78) ; call to code in a different bank ($0F:$FA2E) 0x019B8D|$06:$9B7D:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019B90|$06:$9B80:06 ; String ID #$0106: But [name] found nothing.[end-FC] ; data -> code 0x019B91|$06:$9B81:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9B42) 0x019B94|$06:$9B84:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; useless op; $96 is already in A 0x019B96|$06:$9B86:C9 FF CMP #$FF ; Item ID #$FF: Trap! 0x019B98|$06:$9B88:F0 1C BEQ $9BA6 ; if Midenhall is equipped with the Armour of Erdrick, chest is empty, otherwise it's a trap with 50/50 chance for the party leader losing half their current HP or getting poisoned ; call to code in a different bank ($0F:$FA2E) 0x019B9A|$06:$9B8A:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019B9D|$06:$9B8D:05 ; String ID #$0105: Seeing a treasure chest, [name] opened it.[wait][end-FC] ; data -> code 0x019B9E|$06:$9B8E:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; item ID 0x019BA0|$06:$9B90:D0 73 BNE $9C05 ; Item ID #$00: (no item) ; call to code in a different bank ($0F:$FA2E) 0x019BA2|$06:$9B92:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019BA5|$06:$9B95:4B ; String ID #$014B: But it was empty.[end-FC] ; data -> code 0x019BA6|$06:$9B96:A5 31 LDA $31 ; current map ID 0x019BA8|$06:$9B98:C9 51 CMP #$51 ; Map ID #$51: Lighthouse 2F 0x019BAA|$06:$9B9A:D0 07 BNE $9BA3 0x019BAC|$06:$9B9C:A5 D0 LDA $D0 ; Malroth status flag (#$FF = defeated, #$00 = alive, others = countdown to battle) 0x019BAE|$06:$9B9E:30 03 BMI $9BA3 ; call to code in a different bank ($0F:$CC0A) 0x019BB0|$06:$9BA0:4C 0A CC JMP $CC0A ; trigger Stars Crest battle ; control flow target (from $9B9A, $9B9E) 0x019BB3|$06:$9BA3:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; if Midenhall is equipped with the Armour of Erdrick, chest is empty, otherwise it's a trap with 50/50 chance for the party leader losing half their current HP or getting poisoned ; control flow target (from $9B88) 0x019BB6|$06:$9BA6:A9 5B LDA #$5B ; Item ID #$5B: Armor of Erdrick (equipped) 0x019BB8|$06:$9BA8:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x019BBB|$06:$9BAB:C9 08 CMP #$08 ; only Midenhall can equip the Armour of Erdrick, so inventory index >= #$08 means he does not have it equipped 0x019BBD|$06:$9BAD:B0 0B BCS $9BBA ; if you don't have it or it isn't equipped, the treasure chest is a trap :( ; call to code in a different bank ($0F:$FA2E) 0x019BBF|$06:$9BAF:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019BC2|$06:$9BB2:05 ; String ID #$0105: Seeing a treasure chest, [name] opened it.[wait][end-FC] ; data -> code ; call to code in a different bank ($0F:$FA2E) 0x019BC3|$06:$9BB3:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019BC6|$06:$9BB6:4B ; String ID #$014B: But it was empty.[end-FC] ; data -> code 0x019BC7|$06:$9BB7:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9BAD) ; call to code in a different bank ($0F:$FA2E) 0x019BCA|$06:$9BBA:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019BCD|$06:$9BBD:4C ; String ID #$014C: The treasure chest was a trap![end-FC] ; data -> code ; call to code in a different bank ($0F:$C3AB) 0x019BCE|$06:$9BBE:20 AB C3 JSR $C3AB ; generate a random number and store it in $32-$33 (two passes) 0x019BD1|$06:$9BC1:A5 32 LDA $32 ; RNG byte 0 0x019BD3|$06:$9BC3:30 2D BMI $9BF2 ; 50% chance to branch and get poisoned or not branch and lose half your current HP 0x019BD5|$06:$9BC5:20 4F 9D JSR $9D4F ; given hero ID in $97, set A to the offset of that hero's data in $062D 0x019BD8|$06:$9BC8:18 CLC 0x019BD9|$06:$9BC9:69 0E ADC #$0E ; offset for hero's current HP, low byte 0x019BDB|$06:$9BCB:AA TAX 0x019BDC|$06:$9BCC:BD 2D 06 LDA $062D,X ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x019BDF|$06:$9BCF:85 8F STA $8F ; hero's current HP, low byte 0x019BE1|$06:$9BD1:BD 2E 06 LDA $062E,X ; Midenhall Battle Command Target 0x019BE4|$06:$9BD4:85 90 STA $90 ; hero's current HP, high byte 0x019BE6|$06:$9BD6:46 90 LSR $90 ; divide 16-bit current HP by 2 (round down) 0x019BE8|$06:$9BD8:66 8F ROR $8F 0x019BEA|$06:$9BDA:BD 2D 06 LDA $062D,X ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x019BED|$06:$9BDD:38 SEC ; set 16-bit current HP to 1/2 current HP, rounded up 0x019BEE|$06:$9BDE:E5 8F SBC $8F 0x019BF0|$06:$9BE0:9D 2D 06 STA $062D,X ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x019BF3|$06:$9BE3:BD 2E 06 LDA $062E,X ; Midenhall Battle Command Target 0x019BF6|$06:$9BE6:E5 90 SBC $90 0x019BF8|$06:$9BE8:9D 2E 06 STA $062E,X ; Midenhall Battle Command Target ; call to code in a different bank ($0F:$FA2A) 0x019BFB|$06:$9BEB:20 2A FA JSR $FA2A ; display string ID specified by next byte ; code -> data ; indirect data load target 0x019BFE|$06:$9BEE:0C ; String ID #$000C: [name]'s HP is reduced by [number].[end-FC] ; data -> code 0x019BFF|$06:$9BEF:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9BC3) 0x019C02|$06:$9BF2:20 4F 9D JSR $9D4F ; given hero ID in $97, set A to the offset of that hero's data in $062D 0x019C05|$06:$9BF5:AA TAX 0x019C06|$06:$9BF6:A9 20 LDA #$20 ; Poison 0x019C08|$06:$9BF8:1D 2D 06 ORA $062D,X ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x019C0B|$06:$9BFB:9D 2D 06 STA $062D,X ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) ; call to code in a different bank ($0F:$FA2E) 0x019C0E|$06:$9BFE:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019C11|$06:$9C01:4D ; String ID #$014D: The poison weakened [name].[end-FC] ; data -> code 0x019C12|$06:$9C02:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9B66, $9B7A, $9B90) 0x019C15|$06:$9C05:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; item ID 0x019C17|$06:$9C07:C9 40 CMP #$40 ; Crest ID #$40: Sun Crest 0x019C19|$06:$9C09:90 57 BCC $9C62 ; find a regular item 0x019C1B|$06:$9C0B:C9 45 CMP #$45 ; Chest Gold ID #$45: 15 - 30 G 0x019C1D|$06:$9C0D:B0 28 BCS $9C37 ; generate randomized gold amount for treasure ID in A 0x019C1F|$06:$9C0F:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; ... yup, still item ID 0x019C21|$06:$9C11:C9 43 CMP #$43 ; Crest ID #$43: Water Crest 0x019C23|$06:$9C13:D0 04 BNE $9C19 0x019C25|$06:$9C15:A0 0A LDY #$0A ; offset from $9F5F for start of "Water Crest" 0x019C27|$06:$9C17:D0 0A BNE $9C23 ; control flow target (from $9C13) 0x019C29|$06:$9C19:C9 40 CMP #$40 ; Crest ID #$40: Sun Crest 0x019C2B|$06:$9C1B:D0 04 BNE $9C21 ; #$44 = Life Crest, #$41, #$42 = Life Crest too :p 0x019C2D|$06:$9C1D:A0 00 LDY #$00 ; offset from $9F5F for start of "Sun Crest" 0x019C2F|$06:$9C1F:F0 02 BEQ $9C23 ; control flow target (from $9C1B) 0x019C31|$06:$9C21:A0 16 LDY #$16 ; offset from $9F5F for start of "Life Crest" ; copy crest name (terminated by #$FA) to $5A,X ; control flow target (from $9C17, $9C1F) 0x019C33|$06:$9C23:A2 00 LDX #$00 ; control flow target (from $9C2E) 0x019C35|$06:$9C25:B9 5F 9F LDA $9F5F,Y ; Crest Names 0x019C38|$06:$9C28:95 5A STA $5A,X ; Crest/direction name write buffer start 0x019C3A|$06:$9C2A:C8 INY 0x019C3B|$06:$9C2B:E8 INX 0x019C3C|$06:$9C2C:C9 FA CMP #$FA 0x019C3E|$06:$9C2E:D0 F5 BNE $9C25 ; call to code in a different bank ($0F:$FA2E) 0x019C40|$06:$9C30:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019C43|$06:$9C33:4E ; String ID #$014E: Thou hast found the [item-F9].[end-FC] ; data -> code 0x019C44|$06:$9C34:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; generate randomized gold amount for treasure ID in A ; control flow target (from $9C0D) 0x019C47|$06:$9C37:38 SEC 0x019C48|$06:$9C38:E9 45 SBC #$45 ; subtract treasure offset to get index 0x019C4A|$06:$9C3A:85 8F STA $8F ; A = A * 3 (treasure list is 3 bytes per item) 0x019C4C|$06:$9C3C:0A ASL 0x019C4D|$06:$9C3D:18 CLC 0x019C4E|$06:$9C3E:65 8F ADC $8F 0x019C50|$06:$9C40:48 PHA ; call to code in a different bank ($0F:$C3AB) 0x019C51|$06:$9C41:20 AB C3 JSR $C3AB ; generate a random number and store it in $32-$33 (two passes) 0x019C54|$06:$9C44:68 PLA 0x019C55|$06:$9C45:A8 TAY 0x019C56|$06:$9C46:B9 3A 9F LDA $9F3A,Y ; random treasure chest gold amount; fetch maximum bonus gold amount 0x019C59|$06:$9C49:25 32 AND $32 ; RNG byte 0; AND with random number to make a randomized bonus gold amount 0x019C5B|$06:$9C4B:18 CLC 0x019C5C|$06:$9C4C:79 38 9F ADC $9F38,Y ; base treasure chest gold amount, low byte; add random bonus amount to low byte of base gold amount 0x019C5F|$06:$9C4F:85 8F STA $8F ; store to $8F for later use 0x019C61|$06:$9C51:B9 39 9F LDA $9F39,Y ; base treasure chest gold amount, high byte; load high byte of base gold amount 0x019C64|$06:$9C54:69 00 ADC #$00 ; add carry from low byte 0x019C66|$06:$9C56:85 90 STA $90 ; store to $90 for later use ; add $8F-$90 to party gold, capped at $FFFF, and display String ID #$0048: And earned [number] piece[(s)] of gold.[end-FC] ; control flow target (from $9C78) 0x019C68|$06:$9C58:20 F5 8C JSR $8CF5 ; add $8F-$90 to party gold, capped at $FFFF ; call to code in a different bank ($0F:$FA2A) 0x019C6B|$06:$9C5B:20 2A FA JSR $FA2A ; display string ID specified by next byte ; code -> data ; indirect data load target 0x019C6E|$06:$9C5E:48 ; String ID #$0048: And earned [number] piece[(s)] of gold.[end-FC] ; data -> code 0x019C6F|$06:$9C5F:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; find a regular item ; control flow target (from $9C09) ; call to code in a different bank ($0F:$FA2E) 0x019C72|$06:$9C62:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019C75|$06:$9C65:04 ; String ID #$0104: And there [name] discovered the [item]![end-FC] ; data -> code 0x019C76|$06:$9C66:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; item ID 0x019C78|$06:$9C68:C9 06 CMP #$06 ; Item ID #$06: Copper Sword 0x019C7A|$06:$9C6A:D0 0F BNE $9C7B 0x019C7C|$06:$9C6C:A9 00 LDA #$00 ; Midenhall 0x019C7E|$06:$9C6E:85 97 STA $97 ; subject hero ID $97 0x019C80|$06:$9C70:20 7E 8D JSR $8D7E ; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots 0x019C83|$06:$9C73:A9 32 LDA #$32 ; at this point in the game, Midenhall is incapable of having a full inventory, so no need to check C; #$32 = 50 Gold 0x019C85|$06:$9C75:20 2A 8D JSR $8D2A ; set $8F-$90 to A-#$00 0x019C88|$06:$9C78:4C 58 9C JMP $9C58 ; add $8F-$90 to party gold, capped at $FFFF, and display String ID #$0048: And earned [number] piece[(s)] of gold.[end-FC] ; control flow target (from $9C6A) 0x019C8B|$06:$9C7B:A5 95 LDA $95 ; ID for [item] and [spell] control codes; item ID 0x019C8D|$06:$9C7D:8D 4C 61 STA $614C ; found item ID ; call to code in a different bank ($0F:$F6CE) 0x019C90|$06:$9C80:20 CE F6 JSR $F6CE ; return number of party members - 1 in A/X 0x019C93|$06:$9C83:85 C9 STA $C9 ; number of party members - 1 0x019C95|$06:$9C85:E6 C9 INC $C9 ; number of party members 0x019C97|$06:$9C87:A9 00 LDA #$00 0x019C99|$06:$9C89:85 97 STA $97 ; subject hero ID $97 ; try to add item to party member's inventory ; control flow target (from $9C99) 0x019C9B|$06:$9C8B:20 7E 8D JSR $8D7E ; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots 0x019C9E|$06:$9C8E:90 03 BCC $9C93 ; branch if party member has no room 0x019CA0|$06:$9C90:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9C8E) 0x019CA3|$06:$9C93:E6 97 INC $97 ; subject hero ID $97 0x019CA5|$06:$9C95:A5 97 LDA $97 ; subject hero ID $97 0x019CA7|$06:$9C97:C5 C9 CMP $C9 ; if more party members to try, try them 0x019CA9|$06:$9C99:D0 F0 BNE $9C8B ; try to add item to party member's inventory 0x019CAB|$06:$9C9B:A9 00 LDA #$00 0x019CAD|$06:$9C9D:85 97 STA $97 ; subject hero ID $97 0x019CAF|$06:$9C9F:C6 C9 DEC $C9 ; number of party members 0x019CB1|$06:$9CA1:A5 C9 LDA $C9 ; number of party members - 1 0x019CB3|$06:$9CA3:F0 02 BEQ $9CA7 ; useless op; #$80 and #$00 are identical as far as $FC50 is concerned 0x019CB5|$06:$9CA5:A9 80 LDA #$80 ; control flow target (from $9CA3) ; call to code in a different bank ($0F:$FC50) 0x019CB7|$06:$9CA7:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x019CBA|$06:$9CAA:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019CBD|$06:$9CAD:08 ; String ID #$0108: [wait][name] can carry no more. Dost thou wish to throw something away?[FD][FD][end-FC] ; data -> code 0x019CBE|$06:$9CAE:20 D0 9A JSR $9AD0 ; open YES/NO menu, return selected option in A 0x019CC1|$06:$9CB1:C9 00 CMP #$00 ; YES 0x019CC3|$06:$9CB3:F0 0C BEQ $9CC1 ; give up new item ; control flow target (from $9CCE, $9CEC) 0x019CC5|$06:$9CB5:AD 4C 61 LDA $614C ; found item ID; useless op; $95 hasn't changed since we copied it to $614C 0x019CC8|$06:$9CB8:85 95 STA $95 ; ID for [item] and [spell] control codes ; call to code in a different bank ($0F:$FA2E) 0x019CCA|$06:$9CBA:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019CCD|$06:$9CBD:09 ; String ID #$0109: [name] gave up the [item].[end-FC] ; data -> code 0x019CCE|$06:$9CBE:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; control flow target (from $9CB3) 0x019CD1|$06:$9CC1:A5 C9 LDA $C9 ; number of party members - 1 0x019CD3|$06:$9CC3:F0 0D BEQ $9CD2 ; if Midenhall's alone, no need to pick a party member ; control flow target (from $9CEE) ; call to code in a different bank ($0F:$FA2E) 0x019CD5|$06:$9CC5:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019CD8|$06:$9CC8:0A ; String ID #$010A: Who shall throw something away?[FD][FD][end-FC] ; data -> code ; call to code in a different bank ($0F:$F55D) 0x019CD9|$06:$9CC9:20 5D F5 JSR $F55D ; display appropriate main ITEM hero select menu 0x019CDC|$06:$9CCC:C9 FF CMP #$FF 0x019CDE|$06:$9CCE:F0 E5 BEQ $9CB5 ; give up new item 0x019CE0|$06:$9CD0:85 97 STA $97 ; subject hero ID $97 ; control flow target (from $9CC3, $9CFD, $9D12) ; call to code in a different bank ($0F:$FA2E) 0x019CE2|$06:$9CD2:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019CE5|$06:$9CD5:0B ; String ID #$010B: What shall thou throw away?[FD][FD][end-FC] ; data -> code 0x019CE6|$06:$9CD6:A5 97 LDA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$F5FE) 0x019CE8|$06:$9CD8:20 FE F5 JSR $F5FE ; given a hero ID in A, open hero's item list and return selected item ID (or #$FE if they have no items) 0x019CEB|$06:$9CDB:48 PHA ; item ID to drop 0x019CEC|$06:$9CDC:8A TXA 0x019CED|$06:$9CDD:48 PHA ; save X 0x019CEE|$06:$9CDE:A9 03 LDA #$03 ; call to code in a different bank ($0F:$CF6A) 0x019CF0|$06:$9CE0:20 6A CF JSR $CF6A ; wipe selected menu region 0x019CF3|$06:$9CE3:68 PLA ; restore X 0x019CF4|$06:$9CE4:AA TAX 0x019CF5|$06:$9CE5:68 PLA ; item ID to drop 0x019CF6|$06:$9CE6:C9 FF CMP #$FF 0x019CF8|$06:$9CE8:D0 06 BNE $9CF0 0x019CFA|$06:$9CEA:A5 C9 LDA $C9 ; number of party members - 1 0x019CFC|$06:$9CEC:F0 C7 BEQ $9CB5 ; give up new item 0x019CFE|$06:$9CEE:D0 D5 BNE $9CC5 ; control flow target (from $9CE8) 0x019D00|$06:$9CF0:86 49 STX $49 ; object hero/target/item/string ID $49 0x019D02|$06:$9CF2:85 95 STA $95 ; ID for [item] and [spell] control codes 0x019D04|$06:$9CF4:20 FC 9A JSR $9AFC ; given hero ID in $97 and hero inventory index in $49, set Z if item is equipped and cursed, clear if not 0x019D07|$06:$9CF7:D0 07 BNE $9D00 ; call to code in a different bank ($0F:$FA2E) 0x019D09|$06:$9CF9:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019D0C|$06:$9CFC:12 ; String ID #$0112: It cannot be removed due to the curse.[end-FC] ; data -> code 0x019D0D|$06:$9CFD:4C D2 9C JMP $9CD2 ; control flow target (from $9CF7) 0x019D10|$06:$9D00:A5 95 LDA $95 ; ID for [item] and [spell] control codes; item ID to throw away 0x019D12|$06:$9D02:29 3F AND #$3F ; strip off the equipped bit 0x019D14|$06:$9D04:0A ASL 0x019D15|$06:$9D05:A8 TAY 0x019D16|$06:$9D06:B9 FC 9F LDA $9FFC,Y ; Item Prices, low byte 0x019D19|$06:$9D09:19 FD 9F ORA $9FFD,Y ; Item Prices, high byte 0x019D1C|$06:$9D0C:D0 07 BNE $9D15 ; if price is 0 G, it's a quest item ; call to code in a different bank ($0F:$FA2E) 0x019D1E|$06:$9D0E:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019D21|$06:$9D11:0E ; String ID #$010E: Thou should not throw that away.[end-FC] ; data -> code 0x019D22|$06:$9D12:4C D2 9C JMP $9CD2 ; control flow target (from $9D0C) 0x019D25|$06:$9D15:A5 97 LDA $97 ; subject hero ID $97 0x019D27|$06:$9D17:0A ASL ; 8 items per hero 0x019D28|$06:$9D18:0A ASL 0x019D29|$06:$9D19:0A ASL 0x019D2A|$06:$9D1A:18 CLC 0x019D2B|$06:$9D1B:65 49 ADC $49 ; object hero/target/item/string ID $49 0x019D2D|$06:$9D1D:AA TAX 0x019D2E|$06:$9D1E:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; item ID to gain 0x019D30|$06:$9D20:9D 00 06 STA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped) 0x019D33|$06:$9D23:A9 80 LDA #$80 ; Alive 0x019D35|$06:$9D25:20 9A 8D JSR $8D9A ; given hero ID in $97, and status in A, SEC if hero has that status, CLC otherwise 0x019D38|$06:$9D28:B0 12 BCS $9D3C 0x019D3A|$06:$9D2A:20 EB 9A JSR $9AEB ; using name of first living hero, display String ID #$0120: [name] [end-FF] 0x019D3D|$06:$9D2D:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x019D40|$06:$9D30:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019D43|$06:$9D33:0F ; String ID #$010F: threw away [name]'s [item] and gave [end-FF] ; data -> code 0x019D44|$06:$9D34:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs 0x019D46|$06:$9D36:85 95 STA $95 ; ID for [item] and [spell] control codes 0x019D48|$06:$9D38:A9 10 LDA #$10 ; String ID #$0110: the [item] to ghost of [name].[end-FC] 0x019D4A|$06:$9D3A:D0 0D BNE $9D49 ; control flow target (from $9D28) 0x019D4C|$06:$9D3C:20 25 8D JSR $8D25 ; print name of hero given by low 2 bits of $97 to [name] buffer $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x019D4F|$06:$9D3F:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x019D52|$06:$9D42:0C ; String ID #$010C: [name] threw away the [item].[end-FC] ; data -> code 0x019D53|$06:$9D43:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs 0x019D55|$06:$9D45:85 95 STA $95 ; ID for [item] and [spell] control codes 0x019D57|$06:$9D47:A9 0D LDA #$0D ; String ID #$010D: [name] obtained the [item].[end-FC] ; control flow target (from $9D3A) ; call to code in a different bank ($0F:$FA4E) 0x019D59|$06:$9D49:20 4E FA JSR $FA4E ; display string ID specified by A + #$0100 0x019D5C|$06:$9D4C:4C 48 95 JMP $9548 ; end TALK/ITEM routines ; given hero ID in $97, set A to the offset of that hero's data in $062D ; control flow target (from $9BC5, $9BF2) 0x019D5F|$06:$9D4F:A6 97 LDX $97 ; subject hero ID $97 0x019D61|$06:$9D51:BD 55 9D LDA $9D55,X ; pre-computed offsets for the start of each hero's data at $062D 0x019D64|$06:$9D54:60 RTS ; code -> data ; pre-computed offsets for the start of each hero's data at $062D ; indexed data load target (from $9D51) 0x019D65|$06:$9D55:00 ; Midenhall 0x019D66|$06:$9D56:12 ; Cannock 0x019D67|$06:$9D57:24 ; Moonbrooke ; data -> code ; scan treasure list at ($0C), returning in A/$95/$96 the item ID corresponding to party's current map ID/position or #$00 if there is no item or you're not allowed to get it ; control flow target (from $9B3F, $9B73, $9DFB) 0x019D68|$06:$9D58:A0 00 LDY #$00 0x019D6A|$06:$9D5A:B1 0C LDA ($0C),Y ; read map ID 0x019D6C|$06:$9D5C:C9 FF CMP #$FF ; #$FF => end of list 0x019D6E|$06:$9D5E:D0 03 BNE $9D63 0x019D70|$06:$9D60:4C FE 9D JMP $9DFE ; end of treasure list or you aren't allowed to get the item again; set $95 = $96 = #$00 and RTS ; control flow target (from $9D5E) 0x019D73|$06:$9D63:C5 31 CMP $31 ; current map ID 0x019D75|$06:$9D65:F0 03 BEQ $9D6A ; map ID matches, start checking position 0x019D77|$06:$9D67:4C EE 9D JMP $9DEE ; increment 16-bit $0C-$0D by 4 (move to next treasure record) and loop to check next treasure ; map ID matches, start checking position ; control flow target (from $9D65) 0x019D7A|$06:$9D6A:C8 INY 0x019D7B|$06:$9D6B:B1 0C LDA ($0C),Y ; treasure X-pos 0x019D7D|$06:$9D6D:C5 16 CMP $16 ; current map X-pos (1) 0x019D7F|$06:$9D6F:D0 7D BNE $9DEE ; increment 16-bit $0C-$0D by 4 (move to next treasure record) and loop to check next treasure 0x019D81|$06:$9D71:C8 INY 0x019D82|$06:$9D72:B1 0C LDA ($0C),Y ; treasure Y-pos 0x019D84|$06:$9D74:C5 17 CMP $17 ; current map Y-pos (1) 0x019D86|$06:$9D76:D0 76 BNE $9DEE ; increment 16-bit $0C-$0D by 4 (move to next treasure record) and loop to check next treasure 0x019D88|$06:$9D78:C8 INY 0x019D89|$06:$9D79:B1 0C LDA ($0C),Y ; item ID 0x019D8B|$06:$9D7B:D0 03 BNE $9D80 ; map/position is valid and there is an item here 0x019D8D|$06:$9D7D:4C 00 9E JMP $9E00 ; store item ID in $95 and $96 and RTS ; map/position is valid and there is an item here ; control flow target (from $9D7B) 0x019D90|$06:$9D80:C9 45 CMP #$45 ; randomized gold chests have IDs >= #$45 0x019D92|$06:$9D82:B0 7C BCS $9E00 ; store item ID in $95 and $96 and RTS 0x019D94|$06:$9D84:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs; item ID 0x019D96|$06:$9D86:C9 25 CMP #$25 ; Item ID #$25: Tresures 0x019D98|$06:$9D88:D0 09 BNE $9D93 0x019D9A|$06:$9D8A:A9 2A LDA #$2A ; Item ID #$2A: Echoing Flute 0x019D9C|$06:$9D8C:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x019D9F|$06:$9D8F:10 6D BPL $9DFE ; end of treasure list or you aren't allowed to get the item again; set $95 = $96 = #$00 and RTS 0x019DA1|$06:$9D91:30 27 BMI $9DBA ; control flow target (from $9D88) 0x019DA3|$06:$9D93:C9 2B CMP #$2B ; Item ID #$2B: Mirror of Ra 0x019DA5|$06:$9D95:D0 09 BNE $9DA0 0x019DA7|$06:$9D97:AD 51 06 LDA $0651 ; Moonbrooke status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x019DAA|$06:$9D9A:29 04 AND #$04 ; pick out the In Party bit 0x019DAC|$06:$9D9C:D0 60 BNE $9DFE ; end of treasure list or you aren't allowed to get the item again; set $95 = $96 = #$00 and RTS 0x019DAE|$06:$9D9E:F0 1A BEQ $9DBA ; control flow target (from $9D95) 0x019DB0|$06:$9DA0:C9 37 CMP #$37 ; Item ID #$37: Golden Key 0x019DB2|$06:$9DA2:D0 16 BNE $9DBA ; the Golden Key is available in 2 places in Zahan; a dog points you to the one at (#$16, #$08), and the other one is at (#$12, #$04) ; you can only pick it up from one place at a time, however, depending on the position of the dog 0x019DB4|$06:$9DA4:A5 17 LDA $17 ; current map Y-pos (1) 0x019DB6|$06:$9DA6:C9 04 CMP #$04 0x019DB8|$06:$9DA8:D0 09 BNE $9DB3 ; the (#$12, #$04) Golden Key 0x019DBA|$06:$9DAA:AD 7C 05 LDA $057C ; NPC #$08 X-pos; dog's X-pos 0x019DBD|$06:$9DAD:C9 12 CMP #$12 0x019DBF|$06:$9DAF:D0 3D BNE $9DEE ; increment 16-bit $0C-$0D by 4 (move to next treasure record) and loop to check next treasure 0x019DC1|$06:$9DB1:F0 07 BEQ $9DBA ; the (#$16, #$08) Golden Key ; control flow target (from $9DA8) 0x019DC3|$06:$9DB3:AD 7C 05 LDA $057C ; NPC #$08 X-pos; dog's X-pos 0x019DC6|$06:$9DB6:C9 12 CMP #$12 0x019DC8|$06:$9DB8:F0 34 BEQ $9DEE ; increment 16-bit $0C-$0D by 4 (move to next treasure record) and loop to check next treasure ; control flow target (from $9D91, $9D9E, $9DA2, $9DB1) 0x019DCA|$06:$9DBA:AD 24 9F LDA $9F24 ; -> $06:$9F26: unique items 0x019DCD|$06:$9DBD:85 0C STA $0C 0x019DCF|$06:$9DBF:AD 25 9F LDA $9F25 0x019DD2|$06:$9DC2:85 0D STA $0D 0x019DD4|$06:$9DC4:A0 00 LDY #$00 0x019DD6|$06:$9DC6:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; item ID ; control flow target (from $9DCF) 0x019DD8|$06:$9DC8:D1 0C CMP ($0C),Y ; compare against list of unique items 0x019DDA|$06:$9DCA:F0 08 BEQ $9DD4 0x019DDC|$06:$9DCC:C8 INY 0x019DDD|$06:$9DCD:C0 12 CPY #$12 0x019DDF|$06:$9DCF:D0 F7 BNE $9DC8 ; if more items to check, check them 0x019DE1|$06:$9DD1:4C 00 9E JMP $9E00 ; store item ID in $95 and $96 and RTS; happens if item is not unique ; control flow target (from $9DCA) 0x019DE4|$06:$9DD4:C9 40 CMP #$40 ; we already handled IDs >= #$45, so this checks for Crests #$40 - #$44 0x019DE6|$06:$9DD6:B0 2D BCS $9E05 ; handle finding a Crest 0x019DE8|$06:$9DD8:20 60 A3 JSR $A360 ; check for item A (possibly equipped) in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x019DEB|$06:$9DDB:10 21 BPL $9DFE ; end of treasure list or you aren't allowed to get the item again; set $95 = $96 = #$00 and RTS 0x019DED|$06:$9DDD:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; item ID 0x019DEF|$06:$9DDF:C9 24 CMP #$24 ; Item ID #$24: Token of Erdrick 0x019DF1|$06:$9DE1:D0 1D BNE $9E00 ; store item ID in $95 and $96 and RTS 0x019DF3|$06:$9DE3:A9 23 LDA #$23 ; Item ID #$23: Helmet of Erdrick 0x019DF5|$06:$9DE5:20 60 A3 JSR $A360 ; check for item A (possibly equipped) in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x019DF8|$06:$9DE8:10 14 BPL $9DFE ; end of treasure list or you aren't allowed to get the item again; set $95 = $96 = #$00 and RTS 0x019DFA|$06:$9DEA:A9 24 LDA #$24 ; Item ID #$24: Token of Erdrick 0x019DFC|$06:$9DEC:D0 12 BNE $9E00 ; store item ID in $95 and $96 and RTS ; increment 16-bit $0C-$0D by 4 (move to next treasure record) and loop to check next treasure ; control flow target (from $9D67, $9D6F, $9D76, $9DAF, $9DB8) 0x019DFE|$06:$9DEE:A5 0C LDA $0C 0x019E00|$06:$9DF0:18 CLC 0x019E01|$06:$9DF1:69 04 ADC #$04 0x019E03|$06:$9DF3:85 0C STA $0C 0x019E05|$06:$9DF5:A5 0D LDA $0D 0x019E07|$06:$9DF7:69 00 ADC #$00 0x019E09|$06:$9DF9:85 0D STA $0D 0x019E0B|$06:$9DFB:4C 58 9D JMP $9D58 ; scan treasure list at ($0C), returning in A/$95/$96 the item ID corresponding to party's current map ID/position or #$00 if there is no item or you're not allowed to get it ; end of treasure list or you aren't allowed to get the item again; set $95 = $96 = #$00 and RTS ; control flow target (from $9D60, $9D8F, $9D9C, $9DDB, $9DE8, $9E1C) 0x019E0E|$06:$9DFE:A9 00 LDA #$00 ; store item ID in $95 and $96 and RTS ; control flow target (from $9D7D, $9D82, $9DD1, $9DE1, $9DEC, $9E28) 0x019E10|$06:$9E00:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs 0x019E12|$06:$9E02:85 95 STA $95 ; ID for [item] and [spell] control codes 0x019E14|$06:$9E04:60 RTS ; handle finding a Crest ; control flow target (from $9DD6) 0x019E15|$06:$9E05:C9 43 CMP #$43 ; Crest ID #$43: Water Crest 0x019E17|$06:$9E07:D0 04 BNE $9E0D 0x019E19|$06:$9E09:A9 08 LDA #$08 ; Crest ID #$43: Water Crest sets bit #$08 0x019E1B|$06:$9E0B:D0 0A BNE $9E17 ; control flow target (from $9E07) 0x019E1D|$06:$9E0D:C9 40 CMP #$40 0x019E1F|$06:$9E0F:D0 04 BNE $9E15 0x019E21|$06:$9E11:A9 01 LDA #$01 ; Crest ID #$40: Sun Crest sets bit #$01 0x019E23|$06:$9E13:D0 02 BNE $9E17 ; control flow target (from $9E0F) 0x019E25|$06:$9E15:A9 10 LDA #$10 ; by process of elimination, Crest ID #$44: Life Crest sets bit #$10 ; control flow target (from $9E0B, $9E13) 0x019E27|$06:$9E17:85 0C STA $0C 0x019E29|$06:$9E19:2D 12 01 AND $0112 ; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun) 0x019E2C|$06:$9E1C:D0 E0 BNE $9DFE ; end of treasure list or you aren't allowed to get the item again; set $95 = $96 = #$00 and RTS 0x019E2E|$06:$9E1E:A5 0C LDA $0C 0x019E30|$06:$9E20:0D 12 01 ORA $0112 ; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun) 0x019E33|$06:$9E23:8D 12 01 STA $0112 ; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun); mark Crest as found 0x019E36|$06:$9E26:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; item ID 0x019E38|$06:$9E28:D0 D6 BNE $9E00 ; store item ID in $95 and $96 and RTS ; code -> data ; -> $06:$9E2E: Treasure List 1 (map ID, X-pos, Y-pos, item ID) ; data load target (from $9B35) 0x019E3A|$06:$9E2A:2E ; data load target (from $9B3A) 0x019E3B|$06:$9E2B: 9E ; $06:$9E2E; Treasure List 1 (map ID, X-pos, Y-pos, item ID) ; -> $06:$9F07: Treasure List 2 (map ID, X-pos, Y-pos, item ID) ; data load target (from $9B69) 0x019E3C|$06:$9E2C:07 ; data load target (from $9B6E) 0x019E3D|$06:$9E2D: 9F ; $06:$9F07; Treasure List 2 (map ID, X-pos, Y-pos, item ID) ; Treasure List 1 (map ID, X-pos, Y-pos, item ID) ; indirect data load target (via $9E2A) 0x019E3E|$06:$9E2E:03 0E 02 06 ; Item ID #$06: Copper Sword (Midenhall Castle) 0x019E42|$06:$9E32:03 13 0E 35 ; Item ID #$35: Wing of Wyvern (Midenhall Castle) 0x019E46|$06:$9E36:03 14 0E 3C ; Item ID #$3C: Medical Herb (Midenhall Castle) 0x019E4A|$06:$9E3A:03 13 0F 47 ; Item ID #$47: 50 - 113 G (Midenhall Castle) 0x019E4E|$06:$9E3E:03 14 0F 00 ; Item ID #$00: Empty (Midenhall Castle) 0x019E52|$06:$9E42:03 15 0F 24 ; Item ID #$24: Token of Erdrick (Midenhall Castle) 0x019E56|$06:$9E46:06 0A 0A 20 ; Item ID #$20: Shield of Erdrick (Cannock Castle) 0x019E5A|$06:$9E4A:0F 06 14 1A ; Item ID #$1A: Armor of Gaia (Osterfair) 0x019E5E|$06:$9E4E:0F 06 16 02 ; Item ID #$02: Magic Knife (Osterfair) 0x019E62|$06:$9E52:10 02 02 2D ; Item ID #$2D: Magic Loom (Zahan) 0x019E66|$06:$9E56:18 07 06 33 ; Item ID #$33: Lottery Ticket (Charlock Castle) 0x019E6A|$06:$9E5A:18 08 06 3C ; Item ID #$3C: Medical Herb (Charlock Castle) 0x019E6E|$06:$9E5E:18 06 07 49 ; Item ID #$49: 100 - 163 G (Charlock Castle) 0x019E72|$06:$9E62:18 07 07 35 ; Item ID #$35: Wing of Wyvern (Charlock Castle) 0x019E76|$06:$9E66:2C 12 0C 3C ; Item ID #$3C: Medical Herb (Lake Cave B1) 0x019E7A|$06:$9E6A:2C 0E 1C 45 ; Item ID #$45: 15 - 30 G (Lake Cave B1) 0x019E7E|$06:$9E6E:2D 0E 0C 3C ; Item ID #$3C: Medical Herb (Lake Cave B2) 0x019E82|$06:$9E72:2D 14 1A 46 ; Item ID #$46: 31 - 46 G (Lake Cave B2) 0x019E86|$06:$9E76:2D 02 14 3B ; Item ID #$3B: Antidote Herb (Lake Cave B2) 0x019E8A|$06:$9E7A:2D 14 1C 35 ; Item ID #$35: Wing of Wyvern (Lake Cave B2) 0x019E8E|$06:$9E7E:2D 14 14 38 ; Item ID #$38: Silver Key (Lake Cave B2) 0x019E92|$06:$9E82:2E 18 02 4B ; Item ID #$4B: 111 - 142 G (Sea Cave B1) 0x019E96|$06:$9E86:2E 02 0A 3C ; Item ID #$3C: Medical Herb (Sea Cave B1) 0x019E9A|$06:$9E8A:2F 20 0E FF ; Item ID #$FF: Trap (Sea Cave B2) 0x019E9E|$06:$9E8E:2F 0E 18 48 ; Item ID #$48: 51 - 82 G (Sea Cave B2) 0x019EA2|$06:$9E92:31 02 02 49 ; Item ID #$49: 100 - 163 G (Sea Cave B3(2)) 0x019EA6|$06:$9E96:31 0A 02 FF ; Item ID #$FF: Trap (Sea Cave B3(2)) 0x019EAA|$06:$9E9A:32 10 0E 30 ; Item ID #$30: Dragon's Bane (Sea Cave B4) 0x019EAE|$06:$9E9E:33 16 02 28 ; Item ID #$28: Eye of Malroth (Sea Cave B5) 0x019EB2|$06:$9EA2:34 0E 10 0F ; Item ID #$0F: Sword of Erdrick (Charlock Castle) 0x019EB6|$06:$9EA6:37 10 10 44 ; Item ID #$44: Life Crest (Cave to Rhone B1) 0x019EBA|$06:$9EAA:3C 0C 1A 4B ; Item ID #$4B: 111 - 142 G (Cave to Rhone 3F) 0x019EBE|$06:$9EAE:3C 0E 32 10 ; Item ID #$10: Thunder Sword (Cave to Rhone 3F) 0x019EC2|$06:$9EB2:3C 1E 2C 33 ; Item ID #$33: Lottery Ticket (Cave to Rhone 3F) 0x019EC6|$06:$9EB6:3E 18 0E 1B ; Item ID #$1B: Armor of Erdrick (Cave to Rhone 5F) 0x019ECA|$06:$9EBA:3E 1A 18 4D ; Item ID #$4D: 111 - 174 G (Cave to Rhone 5F) 0x019ECE|$06:$9EBE:3E 12 20 FF ; Item ID #$FF: Trap (Cave to Rhone 5F) 0x019ED2|$06:$9EC2:3E 12 24 4A ; Item ID #$4A: 561 - 624 G (Cave to Rhone 5F) 0x019ED6|$06:$9EC6:40 02 0E 3C ; Item ID #$3C: Medical Herb (Spring Of Bravery) 0x019EDA|$06:$9ECA:40 0E 1A 45 ; Item ID #$45: 15 - 30 G (Spring Of Bravery) 0x019EDE|$06:$9ECE:40 16 1C 3C ; Item ID #$3C: Medical Herb (Spring Of Bravery) 0x019EE2|$06:$9ED2:49 12 14 3C ; Item ID #$3C: Medical Herb (Moon Tower 1F) 0x019EE6|$06:$9ED6:49 10 02 26 ; Item ID #$26: Moon Fragment (Moon Tower 1F) 0x019EEA|$06:$9EDA:4B 02 02 50 ; Item ID #$50: 101 - 132 G (Moon Tower 3F) 0x019EEE|$06:$9EDE:4C 04 0C 01 ; Item ID #$01: Bamboo Stick (Moon Tower 4F) 0x019EF2|$06:$9EE2:4C 02 0C 4F ; Item ID #$4F: 251 - 282 G (Moon Tower 4F) 0x019EF6|$06:$9EE6:50 14 0A 51 ; Item ID #$51: 38 - 53 G (Lighthouse 1F) 0x019EFA|$06:$9EEA:51 1E 1C 00 ; Item ID #$00: Empty (triggers Star Crest battle) (Lighthouse 2F) 0x019EFE|$06:$9EEE:53 0C 16 4E ; Item ID #$4E: 120 - 135 G (Lighthouse 4F) 0x019F02|$06:$9EF2:54 16 02 34 ; Item ID #$34: Fairy Water (Lighthouse 5F) 0x019F06|$06:$9EF6:54 0E 12 07 ; Item ID #$07: Chain Sickle (Lighthouse 5F) 0x019F0A|$06:$9EFA:58 10 14 3C ; Item ID #$3C: Medical Herb (Wind Tower 1F) 0x019F0E|$06:$9EFE:59 02 04 2E ; Item ID #$2E: Cloak of Wind (Wind Tower 2F) 0x019F12|$06:$9F02:5A 06 10 4C ; Item ID #$4C: 41 - 56 G (Wind Tower 3F) ; indirect data load target 0x019F16|$06:$9F06:FF ; end of Treasure List 1 ; Treasure List 2 (map ID, X-pos, Y-pos, item ID) ; indirect data load target (via $9E2C) 0x019F17|$06:$9F07:01 92 6D 2B ; Item ID #$2B: Mirror of Ra (Swamp SE of Hamlin) 0x019F1B|$06:$9F0B:01 1E FC 25 ; Item ID #$25: Tresures (Ocean NW of Tantegal) 0x019F1F|$06:$9F0F:01 BB DD 29 ; Item ID #$29: Leaf of World Tree (Island E of Wellgarth) 0x019F23|$06:$9F13:08 05 01 43 ; Item ID #$43: Water Crest (Hamlin) 0x019F27|$06:$9F17:1E 08 00 40 ; Item ID #$40: Sun Crest (Monolith E of Wellgarth) 0x019F2B|$06:$9F1B:10 12 04 37 ; Item ID #$37: Golden Key location #1 (Zahan) 0x019F2F|$06:$9F1F:10 16 08 37 ; Item ID #$37: Golden Key location #2 (Zahan) ; indirect data load target 0x019F33|$06:$9F23:FF ; end of Treasure List 2 ; -> $06:$9F26: unique items ; data load target (from $9DBA) 0x019F34|$06:$9F24:26 ; data load target (from $9DBF) 0x019F35|$06:$9F25: 9F ; $06:$9F26; unique items ; unique items ; indirect data load target (via $9F24) 0x019F36|$06:$9F26:38 ; Item ID #$38: Silver Key 0x019F37|$06:$9F27:25 ; Item ID #$25: Tresures 0x019F38|$06:$9F28:29 ; Item ID #$29: Leaf of The World Tree 0x019F39|$06:$9F29:24 ; Item ID #$24: Token of Erdrick 0x019F3A|$06:$9F2A:20 ; Item ID #$20: Shield of Erdrick 0x019F3B|$06:$9F2B:43 ; Crest ID #$43: Water Crest 0x019F3C|$06:$9F2C:1A ; Item ID #$1A: Armor of Gaia 0x019F3D|$06:$9F2D:10 ; Item ID #$10: Thunder Sword 0x019F3E|$06:$9F2E:40 ; Crest ID #$40: Sun Crest 0x019F3F|$06:$9F2F:28 ; Item ID #$28: Eye of Malroth 0x019F40|$06:$9F30:0F ; Item ID #$0F: Sword of Erdrick 0x019F41|$06:$9F31:44 ; Crest ID #$44: Life Crest 0x019F42|$06:$9F32:1B ; Item ID #$1B: Armor of Erdrick 0x019F43|$06:$9F33:26 ; Item ID #$26: Moon Fragment 0x019F44|$06:$9F34:2E ; Item ID #$2E: Cloak of Wind 0x019F45|$06:$9F35:2B ; Item ID #$2B: Mirror of Ra 0x019F46|$06:$9F36:37 ; Item ID #$37: Golden Key 0x019F47|$06:$9F37:2D ; Item ID #$2D: Magic Loom ; base treasure chest gold amount, low byte ; random gold amounts ; indexed data load target (from $9C4C) 0x019F48|$06:$9F38:0F ; base treasure chest gold amount, high byte ; indexed data load target (from $9C51) 0x019F49|$06:$9F39: 00 ; random treasure chest gold amount ; indexed data load target (from $9C46) 0x019F4A|$06:$9F3A: 0F ; Chest Gold ID #$45: 15 - 30 G 0x019F4B|$06:$9F3B:1F 00 0F ; Chest Gold ID #$46: 31 - 46 G 0x019F4E|$06:$9F3E:32 00 3F ; Chest Gold ID #$47: 50 - 113 G 0x019F51|$06:$9F41:33 00 1F ; Chest Gold ID #$48: 51 - 82 G 0x019F54|$06:$9F44:64 00 3F ; Chest Gold ID #$49: 100 - 163 G 0x019F57|$06:$9F47:31 02 3F ; Chest Gold ID #$4A: 561 - 624 G 0x019F5A|$06:$9F4A:6F 00 1F ; Chest Gold ID #$4B: 111 - 142 G 0x019F5D|$06:$9F4D:29 00 0F ; Chest Gold ID #$4C: 41 - 56 G 0x019F60|$06:$9F50:6F 00 3F ; Chest Gold ID #$4D: 111 - 174 G 0x019F63|$06:$9F53:78 00 0F ; Chest Gold ID #$4E: 120 - 135 G 0x019F66|$06:$9F56:FB 00 1F ; Chest Gold ID #$4F: 251 - 282 G 0x019F69|$06:$9F59:65 00 1F ; Chest Gold ID #$50: 101 - 132 G 0x019F6C|$06:$9F5C:26 00 0F ; Chest Gold ID #$51: 38 - 53 G ; Crest Names ; indexed data load target (from $9C25) 0x019F6F|$06:$9F5F:36 1E 17 5F 26 1B 0E 1C 1D FA ; "Sun Crest" + [end-FA] 0x019F79|$06:$9F69:3A 0A 1D 0E 1B 5F 26 1B 0E 1C 1D FA ; "Water Crest" + [end-FA] 0x019F85|$06:$9F75:2F 12 0F 0E 5F 26 1B 0E 1C 1D FA ; "Life Crest" + [end-FA] ; Inn prices per party member ; indexed data load target (from $821F) 0x019F90|$06:$9F80:04 ; Inn ID #$00, Map IDs #$00/#$03: Fake Midenhall/Midenhall 1F 0x019F91|$06:$9F81:06 ; Inn ID #$01, Map ID #$05: Leftwyne 0x019F92|$06:$9F82:08 ; Inn ID #$02, Map ID #$06: Cannock 0x019F93|$06:$9F83:0C ; Inn ID #$03, Map ID #$07: Hamlin 0x019F94|$06:$9F84:14 ; Inn ID #$04, Map ID #$0B: Lianport 0x019F95|$06:$9F85:02 ; Inn ID #$05, Map ID #$0C: Tantegel 0x019F96|$06:$9F86:19 ; Inn ID #$06, Map ID #$0F: Osterfair 0x019F97|$06:$9F87:1E ; Inn ID #$07, Map ID #$10: Zahan 0x019F98|$06:$9F88:28 ; Inn ID #$08, Map ID #$11: Tuhn / Map ID #$14: Wellgarth Underground 0x019F99|$06:$9F89:1E ; Weapon Shop inventories ; external indexed data load target (from $0F:$F266, $0F:$F278, $0F:$F299) 0x019F9A|$06:$9F8A:05 06 02 07 16 1C ; Shop ID #00, Weapons/Armor, Map ID #$05: Leftwyne 0x019FA0|$06:$9F90:07 08 0A 16 19 1E ; Shop ID #01, Weapons/Armor, Map ID #$07: Hamlin 0x019FA6|$06:$9F96:02 0A 03 19 12 1E ; Shop ID #02, Weapons/Armor, Map ID #$0B: Lianport 0x019FAC|$06:$9F9C:0A 0B 03 12 1E 22 ; Shop ID #03, Weapons/Armor, Map ID #$0C: Tantegel 0x019FB2|$06:$9FA2:0A 0B 0D 12 18 22 ; Shop ID #04, Weapons/Armor, Map ID #$0F: Osterfair 0x019FB8|$06:$9FA8:03 09 0D 18 1D 22 ; Shop ID #05, Weapons/Armor, Map ID #$11: Tuhn 0x019FBE|$06:$9FAE:0B 0D 0E 14 1D 22 ; Shop ID #06, Weapons/Armor, Map ID #$14: Wellgarth Underground 0x019FC4|$06:$9FB4:0B 03 0D 1E 1D 22 ; Shop ID #07, Weapons/Armor, Map ID #$15: Beran ; Tool Shop inventories 0x019FCA|$06:$9FBA:3C 3B 00 00 00 00 ; Shop ID #$00, Items, Map IDs #$00/#$03: Fake Midenhall/Midenhall 1F 0x019FD0|$06:$9FC0:3C 3B 35 00 00 00 ; Shop ID #$01, Items, Map ID #$05: Leftwyne 0x019FD6|$06:$9FC6:3C 3B 35 34 00 00 ; Shop ID #$02, Items, Map ID #$06: Cannock 0x019FDC|$06:$9FCC:3C 3B 35 34 00 00 ; Shop ID #$03, Items, Map ID #$07: Hamlin 0x019FE2|$06:$9FD2:3C 3B 35 34 30 00 ; Shop ID #$04, Items, Map ID #$0B: Lianport 0x019FE8|$06:$9FD8:3C 3B 35 34 30 00 ; Shop ID #$05, Items, Map ID #$0C: Tantegel 0x019FEE|$06:$9FDE:3C 35 34 30 00 00 ; Shop ID #$06, Items, Map ID #$10: Zahan 0x019FF4|$06:$9FE4:35 34 30 00 00 00 ; Shop ID #$07, Items, Map ID #$11: Tuhn 0x019FFA|$06:$9FEA:3C 3B 34 30 00 00 ; Shop ID #$08, Items, Map ID #$14: Wellgarth Underground, #1 0x01A000|$06:$9FF0:3C 3B 39 35 00 00 ; Shop ID #$09, Items, Map ID #$14: Wellgarth Underground, #2 0x01A006|$06:$9FF6:3C 3B 35 34 00 00 ; Shop ID #$0A, Items, Map ID #$15: Beran ; Item Prices, low byte ; indexed data load target (from $84D7, $84E9, $8D15, $8D51, $8D6C, $9A8B, $9D06) ; external indexed data load target (from $0F:$EED3) 0x01A00C|$06:$9FFC:00 ; Item Prices, high byte ; indexed data load target (from $84DC, $84F1, $8D1D, $8D56, $8D74, $9A8E, $9D09) ; external indexed data load target (from $0F:$EED8) 0x01A00D|$06:$9FFD: 00 ; Item ID #$00: (no item) 0x01A00E|$06:$9FFE:14 00 ; Item ID #$01: Bamboo Stick 0x01A010|$06:$A000:C8 00 ; Item ID #$02: Magic Knife 0x01A012|$06:$A002:C4 09 ; Item ID #$03: Wizard’s Wand 0x01A014|$06:$A004:90 65 ; Item ID #$04: Staff of Thunder 0x01A016|$06:$A006:3C 00 ; Item ID #$05: Club 0x01A018|$06:$A008:64 00 ; Item ID #$06: Copper Sword 0x01A01A|$06:$A00A:86 01 ; Item ID #$07: Chain Sickle 0x01A01C|$06:$A00C:02 03 ; Item ID #$08: Iron Spear 0x01A01E|$06:$A00E:A8 61 ; Item ID #$09: Falcon Sword 0x01A020|$06:$A010:DC 05 ; Item ID #$0A: Broad Sword 0x01A022|$06:$A012:A0 0F ; Item ID #$0B: Giant Hammer 0x01A024|$06:$A014:98 3A ; Item ID #$0C: Sword of Destruction 0x01A026|$06:$A016:40 1F ; Item ID #$0D: Dragon Killer 0x01A028|$06:$A018:80 3E ; Item ID #$0E: Light Sword 0x01A02A|$06:$A01A:02 00 ; Item ID #$0F: Sword of Erdrick 0x01A02C|$06:$A01C:F4 01 ; Item ID #$10: Thunder Sword 0x01A02E|$06:$A01E:1E 00 ; Item ID #$11: Clothes 0x01A030|$06:$A020:E2 04 ; Item ID #$12: Clothes Hiding 0x01A032|$06:$A022:46 00 ; Item ID #$13: Water Flying Cloth 0x01A034|$06:$A024:E8 FD ; Item ID #$14: Mink Coat 0x01A036|$06:$A026:96 00 ; Item ID #$15: Leather Armor 0x01A038|$06:$A028:E0 01 ; Item ID #$16: Chain Mail 0x01A03A|$06:$A02A:00 19 ; Item ID #$17: Gremlin’s Armor 0x01A03C|$06:$A02C:CC 10 ; Item ID #$18: Magic Armor 0x01A03E|$06:$A02E:E8 03 ; Item ID #$19: Full Plate Armor 0x01A040|$06:$A030:32 00 ; Item ID #$1A: Armor of Gaia 0x01A042|$06:$A032:04 00 ; Item ID #$1B: Armor of Erdrick 0x01A044|$06:$A034:5A 00 ; Item ID #$1C: Leather Shield 0x01A046|$06:$A036:FC 53 ; Item ID #$1D: Shield of Strength 0x01A048|$06:$A038:D0 07 ; Item ID #$1E: Steel Shield 0x01A04A|$06:$A03A:60 22 ; Item ID #$1F: Evil Shield 0x01A04C|$06:$A03C:14 00 ; Item ID #$20: Shield of Erdrick 0x01A04E|$06:$A03E:20 4E ; Item ID #$21: Mysterious Hat 0x01A050|$06:$A040:4E 0C ; Item ID #$22: Iron Helmet 0x01A052|$06:$A042:46 00 ; Item ID #$23: Helmet of Erdrick 0x01A054|$06:$A044:0A 00 ; Item ID #$24: Token of Erdrick 0x01A056|$06:$A046:00 00 ; Item ID #$25: Tresures 0x01A058|$06:$A048:2C 01 ; Item ID #$26: Moon Fragment 0x01A05A|$06:$A04A:00 00 ; Item ID #$27: Charm of Rubiss 0x01A05C|$06:$A04C:00 00 ; Item ID #$28: Eye of Malroth 0x01A05E|$06:$A04E:06 00 ; Item ID #$29: Leaf of The World Tree 0x01A060|$06:$A050:90 01 ; Item ID #$2A: Echoing Flute 0x01A062|$06:$A052:00 00 ; Item ID #$2B: Mirror of Ra 0x01A064|$06:$A054:28 00 ; Item ID #$2C: Dew’s Yarn 0x01A066|$06:$A056:1E 00 ; Item ID #$2D: Magic Loom 0x01A068|$06:$A058:46 00 ; Item ID #$2E: Cloak of Wind 0x01A06A|$06:$A05A:DC 05 ; Item ID #$2F: Gremlin’s Tail 0x01A06C|$06:$A05C:80 02 ; Item ID #$30: Dragon’s Bane 0x01A06E|$06:$A05E:10 27 ; Item ID #$31: Dragon’s Potion 0x01A070|$06:$A060:F4 01 ; Item ID #$32: Golden Card 0x01A072|$06:$A062:46 00 ; Item ID #$33: Lottery Ticket 0x01A074|$06:$A064:28 00 ; Item ID #$34: Fairy Water 0x01A076|$06:$A066:50 00 ; Item ID #$35: Wing of the Wyvern 0x01A078|$06:$A068:02 00 ; Item ID #$36: [blank] 0x01A07A|$06:$A06A:02 00 ; Item ID #$37: Golden Key 0x01A07C|$06:$A06C:02 00 ; Item ID #$38: Silver Key 0x01A07E|$06:$A06E:D0 07 ; Item ID #$39: Jailor’s Key 0x01A080|$06:$A070:00 00 ; Item ID #$3A: Watergate Key 0x01A082|$06:$A072:08 00 ; Item ID #$3B: Antidote Herb 0x01A084|$06:$A074:0F 00 ; Item ID #$3C: Medical Herb 0x01A086|$06:$A076:28 0A ; Item ID #$3D: Wizard’s Ring 0x01A088|$06:$A078:02 00 ; Item ID #$3E: Perilous 0x01A08A|$06:$A07A:02 00 ; Item ID #$3F: [blank] ; data -> code ; control flow target (from $A141, $A14C) 0x01A08C|$06:$A07C:A5 47 LDA $47 ; Stepguard flag 0x01A08E|$06:$A07E:10 08 BPL $A088 0x01A090|$06:$A080:C0 04 CPY #$04 0x01A092|$06:$A082:D0 11 BNE $A095 0x01A094|$06:$A084:A9 07 LDA #$07 0x01A096|$06:$A086:85 47 STA $47 ; Stepguard flag ; control flow target (from $A07E) 0x01A098|$06:$A088:98 TYA 0x01A099|$06:$A089:25 47 AND $47 ; Stepguard flag 0x01A09B|$06:$A08B:F0 0D BEQ $A09A 0x01A09D|$06:$A08D:0A ASL 0x01A09E|$06:$A08E:38 SEC 0x01A09F|$06:$A08F:E9 01 SBC #$01 0x01A0A1|$06:$A091:05 47 ORA $47 ; Stepguard flag 0x01A0A3|$06:$A093:85 47 STA $47 ; Stepguard flag ; control flow target (from $A082) 0x01A0A5|$06:$A095:68 PLA 0x01A0A6|$06:$A096:68 PLA 0x01A0A7|$06:$A097:4C A1 A1 JMP $A1A1 ; control flow target (from $A08B) 0x01A0AA|$06:$A09A:60 RTS ; code -> data ; indexed data load target (from $A11D) 0x01A0AB|$06:$A09B:04 0x01A0AC|$06:$A09C:02 0x01A0AD|$06:$A09D:01 ; data -> code ; external control flow target (from $0F:$C89E) 0x01A0AE|$06:$A09E:AD 5A 01 LDA $015A 0x01A0B1|$06:$A0A1:8D 5B 01 STA $015B 0x01A0B4|$06:$A0A4:AD 59 01 LDA $0159 0x01A0B7|$06:$A0A7:8D 5A 01 STA $015A 0x01A0BA|$06:$A0AA:A5 3B LDA $3B ; high nybble = terrain ID 0x01A0BC|$06:$A0AC:8D 59 01 STA $0159 0x01A0BF|$06:$A0AF:A9 00 LDA #$00 0x01A0C1|$06:$A0B1:85 0E STA $0E 0x01A0C3|$06:$A0B3:A9 06 LDA #$06 0x01A0C5|$06:$A0B5:85 94 STA $94 ; return bank for various function calls, doubles as index of selected option for multiple-choice menus 0x01A0C7|$06:$A0B7:A5 46 LDA $46 ; Repel (#$FE) / Fairy Water (#$FF) flag 0x01A0C9|$06:$A0B9:F0 23 BEQ $A0DE 0x01A0CB|$06:$A0BB:C9 01 CMP #$01 0x01A0CD|$06:$A0BD:D0 04 BNE $A0C3 0x01A0CF|$06:$A0BF:A9 2B LDA #$2B ; String ID #$012B: The Fairy Water evaporated and lost its power.[end-FC] 0x01A0D1|$06:$A0C1:D0 06 BNE $A0C9 ; control flow target (from $A0BD) 0x01A0D3|$06:$A0C3:C9 02 CMP #$02 0x01A0D5|$06:$A0C5:D0 13 BNE $A0DA 0x01A0D7|$06:$A0C7:A9 BE LDA #$BE ; String ID #$01BE: Repel has lost its effect.[end-FC] ; control flow target (from $A0C1) 0x01A0D9|$06:$A0C9:48 PHA ; call to code in a different bank ($0F:$EB76) 0x01A0DA|$06:$A0CA:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x01A0DD|$06:$A0CD:04 ; Menu ID #$04: Dialogue window ; data -> code 0x01A0DE|$06:$A0CE:68 PLA ; call to code in a different bank ($0F:$FA4E) 0x01A0DF|$06:$A0CF:20 4E FA JSR $FA4E ; display string ID specified by A + #$0100 0x01A0E2|$06:$A0D2:A9 01 LDA #$01 0x01A0E4|$06:$A0D4:85 0E STA $0E 0x01A0E6|$06:$A0D6:A9 02 LDA #$02 0x01A0E8|$06:$A0D8:85 46 STA $46 ; Repel (#$FE) / Fairy Water (#$FF) flag ; control flow target (from $A0C5) 0x01A0EA|$06:$A0DA:C6 46 DEC $46 ; Repel (#$FE) / Fairy Water (#$FF) flag 0x01A0EC|$06:$A0DC:C6 46 DEC $46 ; Repel (#$FE) / Fairy Water (#$FF) flag ; control flow target (from $A0B9) 0x01A0EE|$06:$A0DE:EE FB 05 INC $05FB ; movement counter 0x01A0F1|$06:$A0E1:AD FB 05 LDA $05FB ; movement counter 0x01A0F4|$06:$A0E4:29 03 AND #$03 0x01A0F6|$06:$A0E6:D0 26 BNE $A10E 0x01A0F8|$06:$A0E8:A5 1F LDA $1F ; some kind of map type (#$00: World Map, #$01: other non-dungeon maps, #$02: maps #$2B - #$43 inclusive, #$03: maps >= #$44, #$FF => game menu) 0x01A0FA|$06:$A0EA:C9 01 CMP #$01 0x01A0FC|$06:$A0EC:F0 20 BEQ $A10E 0x01A0FE|$06:$A0EE:A0 00 LDY #$00 ; control flow target (from $A10C) 0x01A100|$06:$A0F0:B9 2D 06 LDA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x01A103|$06:$A0F3:29 A0 AND #$A0 0x01A105|$06:$A0F5:C9 A0 CMP #$A0 0x01A107|$06:$A0F7:D0 0C BNE $A105 0x01A109|$06:$A0F9:98 TYA 0x01A10A|$06:$A0FA:48 PHA 0x01A10B|$06:$A0FB:20 62 A2 JSR $A262 0x01A10E|$06:$A0FE:68 PLA 0x01A10F|$06:$A0FF:A8 TAY 0x01A110|$06:$A100:A9 01 LDA #$01 0x01A112|$06:$A102:20 C7 A1 JSR $A1C7 ; control flow target (from $A0F7) 0x01A115|$06:$A105:98 TYA 0x01A116|$06:$A106:18 CLC 0x01A117|$06:$A107:69 12 ADC #$12 0x01A119|$06:$A109:A8 TAY 0x01A11A|$06:$A10A:C0 36 CPY #$36 0x01A11C|$06:$A10C:90 E2 BCC $A0F0 ; control flow target (from $A0E6, $A0EC) 0x01A11E|$06:$A10E:A9 24 LDA #$24 0x01A120|$06:$A110:85 49 STA $49 ; object hero/target/item/string ID $49 0x01A122|$06:$A112:A9 00 LDA #$00 0x01A124|$06:$A114:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs ; control flow target (from $A1AA) 0x01A126|$06:$A116:A5 49 LDA $49 ; object hero/target/item/string ID $49 0x01A128|$06:$A118:4A LSR 0x01A129|$06:$A119:4A LSR 0x01A12A|$06:$A11A:4A LSR 0x01A12B|$06:$A11B:4A LSR 0x01A12C|$06:$A11C:AA TAX 0x01A12D|$06:$A11D:BC 9B A0 LDY $A09B,X 0x01A130|$06:$A120:BD 59 01 LDA $0159,X 0x01A133|$06:$A123:C9 70 CMP #$70 0x01A135|$06:$A125:D0 04 BNE $A12B 0x01A137|$06:$A127:A9 02 LDA #$02 0x01A139|$06:$A129:D0 36 BNE $A161 ; control flow target (from $A125) 0x01A13B|$06:$A12B:C9 A0 CMP #$A0 0x01A13D|$06:$A12D:D0 0E BNE $A13D 0x01A13F|$06:$A12F:A5 31 LDA $31 ; current map ID 0x01A141|$06:$A131:C9 2E CMP #$2E ; Map ID #$2E: Sea Cave B1 0x01A143|$06:$A133:90 1E BCC $A153 0x01A145|$06:$A135:C9 34 CMP #$34 ; Map ID #$34: Charlock Castle B1/B2 0x01A147|$06:$A137:B0 1A BCS $A153 0x01A149|$06:$A139:A9 01 LDA #$01 0x01A14B|$06:$A13B:D0 24 BNE $A161 ; control flow target (from $A12D) 0x01A14D|$06:$A13D:C9 80 CMP #$80 0x01A14F|$06:$A13F:D0 07 BNE $A148 0x01A151|$06:$A141:20 7C A0 JSR $A07C 0x01A154|$06:$A144:A9 0F LDA #$0F 0x01A156|$06:$A146:D0 19 BNE $A161 ; control flow target (from $A13F) 0x01A158|$06:$A148:C9 90 CMP #$90 0x01A15A|$06:$A14A:D0 07 BNE $A153 0x01A15C|$06:$A14C:20 7C A0 JSR $A07C 0x01A15F|$06:$A14F:A9 1E LDA #$1E 0x01A161|$06:$A151:D0 0E BNE $A161 ; control flow target (from $A133, $A137, $A14A) 0x01A163|$06:$A153:A5 47 LDA $47 ; Stepguard flag 0x01A165|$06:$A155:30 4A BMI $A1A1 0x01A167|$06:$A157:98 TYA 0x01A168|$06:$A158:49 FF EOR #$FF 0x01A16A|$06:$A15A:25 47 AND $47 ; Stepguard flag 0x01A16C|$06:$A15C:85 47 STA $47 ; Stepguard flag 0x01A16E|$06:$A15E:4C A1 A1 JMP $A1A1 ; control flow target (from $A129, $A13B, $A146, $A151) 0x01A171|$06:$A161:85 CC STA $CC 0x01A173|$06:$A163:A4 49 LDY $49 ; object hero/target/item/string ID $49 0x01A175|$06:$A165:B9 2D 06 LDA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x01A178|$06:$A168:10 37 BPL $A1A1 0x01A17A|$06:$A16A:A9 5B LDA #$5B 0x01A17C|$06:$A16C:20 B5 A1 JSR $A1B5 0x01A17F|$06:$A16F:B0 30 BCS $A1A1 0x01A181|$06:$A171:A5 CC LDA $CC 0x01A183|$06:$A173:C9 0A CMP #$0A 0x01A185|$06:$A175:B0 07 BCS $A17E 0x01A187|$06:$A177:A9 53 LDA #$53 0x01A189|$06:$A179:20 B5 A1 JSR $A1B5 0x01A18C|$06:$A17C:B0 23 BCS $A1A1 ; control flow target (from $A175) 0x01A18E|$06:$A17E:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs 0x01A190|$06:$A180:D0 18 BNE $A19A 0x01A192|$06:$A182:98 TYA 0x01A193|$06:$A183:48 PHA 0x01A194|$06:$A184:A5 CC LDA $CC 0x01A196|$06:$A186:C9 0A CMP #$0A 0x01A198|$06:$A188:B0 0B BCS $A195 0x01A19A|$06:$A18A:A9 91 LDA #$91 ; Music ID #$91: swamp SFX ; call to code in a different bank ($0F:$C561) 0x01A19C|$06:$A18C:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) 0x01A19F|$06:$A18F:20 62 A2 JSR $A262 0x01A1A2|$06:$A192:4C 98 A1 JMP $A198 ; control flow target (from $A188) 0x01A1A5|$06:$A195:20 96 A2 JSR $A296 ; control flow target (from $A192) 0x01A1A8|$06:$A198:68 PLA 0x01A1A9|$06:$A199:A8 TAY ; control flow target (from $A180) 0x01A1AA|$06:$A19A:E6 96 INC $96 ; temp storage for item/spell/type/etc. IDs 0x01A1AC|$06:$A19C:A5 CC LDA $CC 0x01A1AE|$06:$A19E:20 C7 A1 JSR $A1C7 ; control flow target (from $A097, $A155, $A15E, $A168, $A16F, $A17C) 0x01A1B1|$06:$A1A1:A5 49 LDA $49 ; object hero/target/item/string ID $49 0x01A1B3|$06:$A1A3:38 SEC 0x01A1B4|$06:$A1A4:E9 12 SBC #$12 0x01A1B6|$06:$A1A6:85 49 STA $49 ; object hero/target/item/string ID $49 0x01A1B8|$06:$A1A8:30 03 BMI $A1AD 0x01A1BA|$06:$A1AA:4C 16 A1 JMP $A116 ; control flow target (from $A1A8) 0x01A1BD|$06:$A1AD:A5 0E LDA $0E 0x01A1BF|$06:$A1AF:F0 03 BEQ $A1B4 ; call to code in a different bank ($0F:$D0F5) 0x01A1C1|$06:$A1B1:20 F5 D0 JSR $D0F5 ; wait for a while and then wipe menu regions #$03, #$00, and #$01 ; control flow target (from $A1AF) 0x01A1C4|$06:$A1B4:60 RTS ; control flow target (from $A16C, $A179) 0x01A1C5|$06:$A1B5:85 0C STA $0C 0x01A1C7|$06:$A1B7:98 TYA 0x01A1C8|$06:$A1B8:48 PHA 0x01A1C9|$06:$A1B9:4A LSR 0x01A1CA|$06:$A1BA:4A LSR 0x01A1CB|$06:$A1BB:4A LSR 0x01A1CC|$06:$A1BC:4A LSR 0x01A1CD|$06:$A1BD:85 9C STA $9C 0x01A1CF|$06:$A1BF:A5 0C LDA $0C ; call to code in a different bank ($0F:$C4B0) 0x01A1D1|$06:$A1C1:20 B0 C4 JSR $C4B0 ; given a hero ID in $9C and an item ID in A, SEC if hero has that item, CLC otherwise 0x01A1D4|$06:$A1C4:68 PLA 0x01A1D5|$06:$A1C5:A8 TAY 0x01A1D6|$06:$A1C6:60 RTS ; control flow target (from $A102, $A19E) 0x01A1D7|$06:$A1C7:85 0C STA $0C 0x01A1D9|$06:$A1C9:B9 3B 06 LDA $063B,Y ; Midenhall Current HP, low byte 0x01A1DC|$06:$A1CC:38 SEC 0x01A1DD|$06:$A1CD:E5 0C SBC $0C 0x01A1DF|$06:$A1CF:99 3B 06 STA $063B,Y ; Midenhall Current HP, low byte 0x01A1E2|$06:$A1D2:B9 3C 06 LDA $063C,Y ; Midenhall Current HP, high byte 0x01A1E5|$06:$A1D5:E9 00 SBC #$00 0x01A1E7|$06:$A1D7:99 3C 06 STA $063C,Y ; Midenhall Current HP, high byte 0x01A1EA|$06:$A1DA:B0 08 BCS $A1E4 0x01A1EC|$06:$A1DC:A9 00 LDA #$00 0x01A1EE|$06:$A1DE:99 3B 06 STA $063B,Y ; Midenhall Current HP, low byte 0x01A1F1|$06:$A1E1:99 3C 06 STA $063C,Y ; Midenhall Current HP, high byte ; control flow target (from $A1DA) 0x01A1F4|$06:$A1E4:19 3B 06 ORA $063B,Y ; Midenhall Current HP, low byte 0x01A1F7|$06:$A1E7:F0 0C BEQ $A1F5 0x01A1F9|$06:$A1E9:98 TYA 0x01A1FA|$06:$A1EA:48 PHA 0x01A1FB|$06:$A1EB:8A TXA 0x01A1FC|$06:$A1EC:48 PHA ; call to code in a different bank ($0F:$C22C) 0x01A1FD|$06:$A1ED:20 2C C2 JSR $C22C 0x01A200|$06:$A1F0:68 PLA 0x01A201|$06:$A1F1:AA TAX 0x01A202|$06:$A1F2:68 PLA 0x01A203|$06:$A1F3:A8 TAY 0x01A204|$06:$A1F4:60 RTS ; control flow target (from $A1E7) 0x01A205|$06:$A1F5:A9 04 LDA #$04 0x01A207|$06:$A1F7:99 2D 06 STA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x01A20A|$06:$A1FA:A9 FF LDA #$FF 0x01A20C|$06:$A1FC:85 35 STA $35 ; flag indicating whether any menu is currently open 0x01A20E|$06:$A1FE:A5 0E LDA $0E 0x01A210|$06:$A200:D0 0C BNE $A20E 0x01A212|$06:$A202:98 TYA 0x01A213|$06:$A203:48 PHA ; call to code in a different bank ($0F:$EB76) 0x01A214|$06:$A204:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x01A217|$06:$A207:04 ; Menu ID #$04: Dialogue window ; data -> code 0x01A218|$06:$A208:68 PLA 0x01A219|$06:$A209:A8 TAY 0x01A21A|$06:$A20A:A9 00 LDA #$00 0x01A21C|$06:$A20C:85 0E STA $0E ; control flow target (from $A200) 0x01A21E|$06:$A20E:E6 0E INC $0E 0x01A220|$06:$A210:A5 0E LDA $0E 0x01A222|$06:$A212:48 PHA 0x01A223|$06:$A213:98 TYA 0x01A224|$06:$A214:48 PHA 0x01A225|$06:$A215:4A LSR 0x01A226|$06:$A216:4A LSR 0x01A227|$06:$A217:4A LSR 0x01A228|$06:$A218:4A LSR 0x01A229|$06:$A219:85 97 STA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$FC50) 0x01A22B|$06:$A21B:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA 0x01A22E|$06:$A21E:A5 97 LDA $97 ; subject hero ID $97 0x01A230|$06:$A220:18 CLC 0x01A231|$06:$A221:69 03 ADC #$03 0x01A233|$06:$A223:85 97 STA $97 ; subject hero ID $97 ; call to code in a different bank ($0F:$D302) 0x01A235|$06:$A225:20 02 D3 JSR $D302 ; call to code in a different bank ($0F:$FA2A) 0x01A238|$06:$A228:20 2A FA JSR $FA2A ; display string ID specified by next byte ; code -> data ; indirect data load target 0x01A23B|$06:$A22B:1B ; String ID #$001B: Alas, brave [name] hast died.[end-FC] ; data -> code 0x01A23C|$06:$A22C:68 PLA 0x01A23D|$06:$A22D:A8 TAY 0x01A23E|$06:$A22E:68 PLA 0x01A23F|$06:$A22F:85 0E STA $0E 0x01A241|$06:$A231:A2 00 LDX #$00 ; control flow target (from $A23F) 0x01A243|$06:$A233:BD 2D 06 LDA $062D,X ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x01A246|$06:$A236:30 25 BMI $A25D 0x01A248|$06:$A238:8A TXA 0x01A249|$06:$A239:18 CLC 0x01A24A|$06:$A23A:69 12 ADC #$12 0x01A24C|$06:$A23C:AA TAX 0x01A24D|$06:$A23D:C9 36 CMP #$36 0x01A24F|$06:$A23F:90 F2 BCC $A233 ; call to code in a different bank ($0F:$F6CE) 0x01A251|$06:$A241:20 CE F6 JSR $F6CE ; return number of party members - 1 in A/X 0x01A254|$06:$A244:F0 09 BEQ $A24F 0x01A256|$06:$A246:A9 80 LDA #$80 ; call to code in a different bank ($0F:$FC50) 0x01A258|$06:$A248:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x01A25B|$06:$A24B:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01A25E|$06:$A24E:51 ; String ID #$0151: [name] is utterly destroyed.[end-FC] ; data -> code ; control flow target (from $A244) 0x01A25F|$06:$A24F:A9 12 LDA #$12 ; Music ID #$12: party defeat BGM 0x01A261|$06:$A251:8D F7 05 STA $05F7 ; probably BGM for current area ; call to code in a different bank ($0F:$C561) 0x01A264|$06:$A254:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) 0x01A267|$06:$A257:20 9D 80 JSR $809D ; wait until all joypad buttons are released and then some button pressed ; call to code in a different bank ($0F:$D271) 0x01A26A|$06:$A25A:4C 71 D2 JMP $D271 ; control flow target (from $A236) 0x01A26D|$06:$A25D:A9 00 LDA #$00 0x01A26F|$06:$A25F:85 35 STA $35 ; flag indicating whether any menu is currently open 0x01A271|$06:$A261:60 RTS ; control flow target (from $A0FB, $A18F, $A29F) ; call to code in a different bank ($0F:$C1DC) 0x01A272|$06:$A262:20 DC C1 JSR $C1DC ; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF 0x01A275|$06:$A265:AD 87 A2 LDA $A287 0x01A278|$06:$A268:85 0A STA $0A 0x01A27A|$06:$A26A:AD 88 A2 LDA $A288 0x01A27D|$06:$A26D:20 7E A2 JSR $A27E ; call to code in a different bank ($0F:$C1DC) 0x01A280|$06:$A270:20 DC C1 JSR $C1DC ; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF ; call to code in a different bank ($0F:$C1DC) 0x01A283|$06:$A273:20 DC C1 JSR $C1DC ; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF 0x01A286|$06:$A276:AD E9 C2 LDA $C2E9 0x01A289|$06:$A279:85 0A STA $0A 0x01A28B|$06:$A27B:AD EA C2 LDA $C2EA ; control flow target (from $A26D) 0x01A28E|$06:$A27E:85 0B STA $0B 0x01A290|$06:$A280:A9 00 LDA #$00 0x01A292|$06:$A282:85 0C STA $0C ; call to code in a different bank ($0F:$C228) 0x01A294|$06:$A284:4C 28 C2 JMP $C228 ; code -> data ; data load target (from $A265) 0x01A297|$06:$A287:89 ; data load target (from $A26A) 0x01A298|$06:$A288: A2 ; $06:$A289 ; indirect data load target (via $A287) 0x01A299|$06:$A289:0F ; indirect data load target 0x01A29A|$06:$A28A:16 ; indirect data load target 0x01A29B|$06:$A28B:16 ; indirect data load target 0x01A29C|$06:$A28C:16 ; indirect data load target 0x01A29D|$06:$A28D:16 ; indirect data load target 0x01A29E|$06:$A28E:16 ; indirect data load target 0x01A29F|$06:$A28F:16 ; indirect data load target 0x01A2A0|$06:$A290:16 ; indirect data load target 0x01A2A1|$06:$A291:16 ; indirect data load target 0x01A2A2|$06:$A292:16 ; indirect data load target 0x01A2A3|$06:$A293:16 ; indirect data load target 0x01A2A4|$06:$A294:16 ; indirect data load target 0x01A2A5|$06:$A295:16 ; data -> code ; control flow target (from $A195) 0x01A2A6|$06:$A296:A9 81 LDA #$81 ; Music ID #$81: hit 1 SFX ; call to code in a different bank ($0F:$C561) 0x01A2A8|$06:$A298:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) 0x01A2AB|$06:$A29B:A9 04 LDA #$04 0x01A2AD|$06:$A29D:85 13 STA $13 ; control flow target (from $A2A4) 0x01A2AF|$06:$A29F:20 62 A2 JSR $A262 0x01A2B2|$06:$A2A2:C6 13 DEC $13 0x01A2B4|$06:$A2A4:D0 F9 BNE $A29F 0x01A2B6|$06:$A2A6:60 RTS ; external control flow target (from $0F:$C91B) 0x01A2B7|$06:$A2A7:AD 12 01 LDA $0112 ; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun) 0x01A2BA|$06:$A2AA:29 1F AND #$1F 0x01A2BC|$06:$A2AC:C9 1F CMP #$1F 0x01A2BE|$06:$A2AE:F0 01 BEQ $A2B1 ; control flow target (from $A2B8) 0x01A2C0|$06:$A2B0:60 RTS ; control flow target (from $A2AE) 0x01A2C1|$06:$A2B1:A9 27 LDA #$27 0x01A2C3|$06:$A2B3:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x01A2C6|$06:$A2B6:C9 FF CMP #$FF 0x01A2C8|$06:$A2B8:D0 F6 BNE $A2B0 0x01A2CA|$06:$A2BA:A9 05 LDA #$05 ; Music ID #$05: Rubiss BGM ; call to code in a different bank ($0F:$C561) 0x01A2CC|$06:$A2BC:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) 0x01A2CF|$06:$A2BF:A9 04 LDA #$04 0x01A2D1|$06:$A2C1:85 49 STA $49 ; object hero/target/item/string ID $49 0x01A2D3|$06:$A2C3:20 FB A2 JSR $A2FB ; call to code in a different bank ($0F:$F6F6) 0x01A2D6|$06:$A2C6:20 F6 F6 JSR $F6F6 ; open main dialogue window and display string ID specified by byte following JSR + #$0200 ; code -> data ; indirect data load target 0x01A2D9|$06:$A2C9:FD ; String ID #$02FD: I hear a mortal voice calling me.[wait][line]‘Ah, three descendants of Erdrick[.’][wait][line]‘Yes, I shall help thee[.’][wait][line]‘I am Rubiss, an Enchanter, and long ago I promised Erdrick to help when the time came[.’][wait][line]‘Now is the time[.’][wait][line]‘Receive now my charm and my spell of protection[.’][end-FC] ; data -> code 0x01A2DA|$06:$A2CA:A9 27 LDA #$27 0x01A2DC|$06:$A2CC:85 96 STA $96 ; temp storage for item/spell/type/etc. IDs 0x01A2DE|$06:$A2CE:A9 00 LDA #$00 0x01A2E0|$06:$A2D0:85 97 STA $97 ; subject hero ID $97 0x01A2E2|$06:$A2D2:20 7E 8D JSR $8D7E ; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots 0x01A2E5|$06:$A2D5:B0 12 BCS $A2E9 0x01A2E7|$06:$A2D7:E6 97 INC $97 ; subject hero ID $97 0x01A2E9|$06:$A2D9:20 7E 8D JSR $8D7E ; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots 0x01A2EC|$06:$A2DC:B0 0B BCS $A2E9 0x01A2EE|$06:$A2DE:E6 97 INC $97 ; subject hero ID $97 0x01A2F0|$06:$A2E0:20 7E 8D JSR $8D7E ; given hero ID in $97 and item ID in $96, try to add item to first empty slot in hero's inventory; SEC if added, CLC if no empty slots 0x01A2F3|$06:$A2E3:B0 04 BCS $A2E9 ; call to code in a different bank ($0F:$FA32) 0x01A2F5|$06:$A2E5:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data 0x01A2F8|$06:$A2E8:D8 ; String ID #$02D8: [wait]‘But thou hast many things.[line]See me again later[.’][end-FC] ; data -> code ; control flow target (from $A2D5, $A2DC, $A2E3) 0x01A2F9|$06:$A2E9:A2 3C LDX #$3C ; call to code in a different bank ($0F:$C1EE) 0x01A2FB|$06:$A2EB:20 EE C1 JSR $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF 0x01A2FE|$06:$A2EE:A9 FF LDA #$FF 0x01A300|$06:$A2F0:85 49 STA $49 ; object hero/target/item/string ID $49 0x01A302|$06:$A2F2:20 FB A2 JSR $A2FB ; call to code in a different bank ($0F:$C59D) 0x01A305|$06:$A2F5:20 9D C5 JSR $C59D ; call to code in a different bank ($0F:$D0F5) 0x01A308|$06:$A2F8:4C F5 D0 JMP $D0F5 ; wait for a while and then wipe menu regions #$03, #$00, and #$01 ; control flow target (from $A2C3, $A2F2) 0x01A30B|$06:$A2FB:A0 1F LDY #$1F 0x01A30D|$06:$A2FD:20 0C A3 JSR $A30C 0x01A310|$06:$A300:A0 27 LDY #$27 0x01A312|$06:$A302:20 0C A3 JSR $A30C 0x01A315|$06:$A305:A0 2F LDY #$2F 0x01A317|$06:$A307:20 0C A3 JSR $A30C 0x01A31A|$06:$A30A:A0 37 LDY #$37 ; control flow target (from $A2FD, $A302, $A307) 0x01A31C|$06:$A30C:A5 49 LDA $49 ; object hero/target/item/string ID $49 0x01A31E|$06:$A30E:99 3A 05 STA $053A,Y ; call to code in a different bank ($0F:$CF64) 0x01A321|$06:$A311:20 64 CF JSR $CF64 0x01A324|$06:$A314:A2 19 LDX #$19 ; call to code in a different bank ($0F:$C1EE) 0x01A326|$06:$A316:4C EE C1 JMP $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF ; if $05FC is #$00, copy battle stats at $015D,Y to field stats at $0600,X, otherwise copy field stats at $0600,X to battle stats at $015D,Y ; external control flow target (from $0F:$E438) 0x01A329|$06:$A319:A2 00 LDX #$00 0x01A32B|$06:$A31B:A0 00 LDY #$00 ; control flow target (from $A337) 0x01A32D|$06:$A31D:86 0C STX $0C 0x01A32F|$06:$A31F:BD 4E A3 LDA $A34E,X 0x01A332|$06:$A322:85 0D STA $0D 0x01A334|$06:$A324:BD 4D A3 LDA $A34D,X ; stat ranges 0x01A337|$06:$A327:AA TAX ; control flow target (from $A32F) 0x01A338|$06:$A328:20 3A A3 JSR $A33A ; if $05FC is #$00, copy $015D,Y to $0600,X, otherwise copy $0600,X to $015D,Y 0x01A33B|$06:$A32B:E8 INX 0x01A33C|$06:$A32C:C8 INY 0x01A33D|$06:$A32D:E4 0D CPX $0D 0x01A33F|$06:$A32F:D0 F7 BNE $A328 0x01A341|$06:$A331:A6 0C LDX $0C 0x01A343|$06:$A333:E8 INX 0x01A344|$06:$A334:E8 INX 0x01A345|$06:$A335:E0 10 CPX #$10 0x01A347|$06:$A337:D0 E4 BNE $A31D 0x01A349|$06:$A339:60 RTS ; if $05FC is #$00, copy $015D,Y to $0600,X, otherwise copy $0600,X to $015D,Y ; control flow target (from $A328) 0x01A34A|$06:$A33A:AD FC 05 LDA $05FC 0x01A34D|$06:$A33D:F0 07 BEQ $A346 0x01A34F|$06:$A33F:BD 00 06 LDA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped) 0x01A352|$06:$A342:99 5D 01 STA $015D,Y 0x01A355|$06:$A345:60 RTS ; control flow target (from $A33D) 0x01A356|$06:$A346:B9 5D 01 LDA $015D,Y 0x01A359|$06:$A349:9D 00 06 STA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped) 0x01A35C|$06:$A34C:60 RTS ; code -> data ; stat ranges ; indexed data load target (from $A324) 0x01A35D|$06:$A34D:00 ; indexed data load target (from $A31F) 0x01A35E|$06:$A34E: 18 ; $0600 inclusive - $0618 exclusive 0x01A35F|$06:$A34F:24 26 ; $0624 inclusive - $0626 exclusive 0x01A361|$06:$A351:2D 2E ; $062D inclusive - $062E exclusive 0x01A363|$06:$A353:3B 3E ; $063B inclusive - $063E exclusive 0x01A365|$06:$A355:3F 40 ; $063F inclusive - $0640 exclusive 0x01A367|$06:$A357:4D 50 ; $064D inclusive - $0650 exclusive 0x01A369|$06:$A359:51 52 ; $0651 inclusive - $0652 exclusive 0x01A36B|$06:$A35B:5F 62 ; $065F inclusive - $0662 exclusive ; data -> code ; save game handler ; control flow target (from $8F02, $900A, $918D, $9209, $93F6, $943F, $981B) ; call to code in a different bank ($0F:$D159) 0x01A36D|$06:$A35D:4C 59 D1 JMP $D159 ; check for item A (possibly equipped) in party inventory, returning inventory index of item in A/X if found, #$FF if not ; control flow target (from $9B58, $9DD8, $9DE5) 0x01A370|$06:$A360:20 69 A3 JSR $A369 ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not 0x01A373|$06:$A363:10 3A BPL $A39F ; if found, RTS 0x01A375|$06:$A365:A5 0C LDA $0C ; otherwise re-load the item ID 0x01A377|$06:$A367:09 40 ORA #$40 ; and check for an equipped version ; check for item A in party inventory, returning inventory index of item in A/X if found, #$FF if not ; control flow target (from $834E, $845B, $86D7, $8D5D, $90CE, $90D5, $92BC, $92C3, $92D5, $9306, $93C0, $93CB, $9B51, $9BA8, $9D8C, $A2B3, $A360) ; external control flow target (from $0F:$D589) 0x01A379|$06:$A369:84 10 STY $10 ; save Y in $10 0x01A37B|$06:$A36B:85 0C STA $0C ; save item ID in $0C 0x01A37D|$06:$A36D:A2 00 LDX #$00 ; initialize both inventory index and hero ID to #$00 0x01A37F|$06:$A36F:86 0D STX $0D ; inventory index ; control flow target (from $A398) 0x01A381|$06:$A371:A4 0D LDY $0D ; hero ID 0x01A383|$06:$A373:B9 A0 A3 LDA $A3A0,Y ; pre-computed offsets for the start of each hero's data (what's wrong with the same data at $06:$9D55?) 0x01A386|$06:$A376:A8 TAY 0x01A387|$06:$A377:B9 2D 06 LDA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x01A38A|$06:$A37A:29 04 AND #$04 ; pick out the In Party bit 0x01A38C|$06:$A37C:D0 07 BNE $A385 ; if not in party, skip to the next hero (but heroes are gained sequentially and never leave, so BNE $A39A would be faster) 0x01A38E|$06:$A37E:8A TXA ; inventory index 0x01A38F|$06:$A37F:18 CLC 0x01A390|$06:$A380:69 08 ADC #$08 ; move to start of next hero's inventory 0x01A392|$06:$A382:AA TAX 0x01A393|$06:$A383:D0 0D BNE $A392 ; branch always taken; skip cheking current hero's inventory (since they're not in the party) ; control flow target (from $A37C, $A390) 0x01A395|$06:$A385:BD 00 06 LDA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped) 0x01A398|$06:$A388:C5 0C CMP $0C ; item ID 0x01A39A|$06:$A38A:F0 10 BEQ $A39C ; if we have one, then done 0x01A39C|$06:$A38C:E8 INX ; otherwise move to next inventory index 0x01A39D|$06:$A38D:8A TXA ; calculate inventory index mod 8 0x01A39E|$06:$A38E:29 07 AND #$07 0x01A3A0|$06:$A390:D0 F3 BNE $A385 ; if this hero has more inventory to check, check it ; control flow target (from $A383) 0x01A3A2|$06:$A392:E6 0D INC $0D ; increment hero ID 0x01A3A4|$06:$A394:A5 0D LDA $0D 0x01A3A6|$06:$A396:C9 03 CMP #$03 ; 3 heroes total 0x01A3A8|$06:$A398:D0 D7 BNE $A371 ; if more heroes to check, check them 0x01A3AA|$06:$A39A:A2 FF LDX #$FF ; otherwise flag item not found ; control flow target (from $A38A) 0x01A3AC|$06:$A39C:A4 10 LDY $10 ; restore Y from $10 0x01A3AE|$06:$A39E:8A TXA ; control flow target (from $A363) 0x01A3AF|$06:$A39F:60 RTS ; code -> data ; pre-computed offsets for the start of each hero's data (what's wrong with the same data at $06:$9D55?) ; indexed data load target (from $A373) 0x01A3B0|$06:$A3A0:00 ; Midenhall 0x01A3B1|$06:$A3A1:12 ; Cannock 0x01A3B2|$06:$A3A2:24 ; Moonbrooke ; data -> code ; given item ID in $96 and hero ID in $97, set A to #$80 if hero can equip item, #$00 otherwise ; control flow target (from $831D, $8AA9) 0x01A3B3|$06:$A3A3:86 10 STX $10 ; save X 0x01A3B5|$06:$A3A5:A5 96 LDA $96 ; temp storage for item/spell/type/etc. IDs; item ID 0x01A3B7|$06:$A3A7:29 3F AND #$3F ; strip off equipped bit 0x01A3B9|$06:$A3A9:AA TAX 0x01A3BA|$06:$A3AA:BD BD A3 LDA $A3BD,X ; Bit fields controlling who can equip each item 0x01A3BD|$06:$A3AD:85 0D STA $0D 0x01A3BF|$06:$A3AF:A4 97 LDY $97 ; subject hero ID $97 0x01A3C1|$06:$A3B1:C8 INY ; number of bits to shift ; control flow target (from $A3B8) 0x01A3C2|$06:$A3B2:A9 00 LDA #$00 ; initialize return value 0x01A3C4|$06:$A3B4:46 0D LSR $0D ; shift hero's equipability bit into C 0x01A3C6|$06:$A3B6:6A ROR ; and then into A 0x01A3C7|$06:$A3B7:88 DEY ; number of bits to shift 0x01A3C8|$06:$A3B8:D0 F8 BNE $A3B2 ; if it's the wrong hero's data, loop to next hero 0x01A3CA|$06:$A3BA:A6 10 LDX $10 ; restore X 0x01A3CC|$06:$A3BC:60 RTS ; code -> data ; Bit fields controlling who can equip each item ; #$01 = Midenhall, #$02 = Cannock, #$04 = Moonbrooke ; indexed data load target (from $A3AA) 0x01A3CD|$06:$A3BD:00 ; Item ID #$00: (no item) 0x01A3CE|$06:$A3BE:07 ; Item ID #$01: Bamboo Stick 0x01A3CF|$06:$A3BF:07 ; Item ID #$02: Magic Knife 0x01A3D0|$06:$A3C0:07 ; Item ID #$03: Wizard’s Wand 0x01A3D1|$06:$A3C1:07 ; Item ID #$04: Staff of Thunder 0x01A3D2|$06:$A3C2:03 ; Item ID #$05: Club 0x01A3D3|$06:$A3C3:03 ; Item ID #$06: Copper Sword 0x01A3D4|$06:$A3C4:03 ; Item ID #$07: Chain Sickle 0x01A3D5|$06:$A3C5:03 ; Item ID #$08: Iron Spear 0x01A3D6|$06:$A3C6:03 ; Item ID #$09: Falcon Sword 0x01A3D7|$06:$A3C7:01 ; Item ID #$0A: Broad Sword 0x01A3D8|$06:$A3C8:01 ; Item ID #$0B: Giant Hammer 0x01A3D9|$06:$A3C9:01 ; Item ID #$0C: Sword of Destruction 0x01A3DA|$06:$A3CA:01 ; Item ID #$0D: Dragon Killer 0x01A3DB|$06:$A3CB:01 ; Item ID #$0E: Light Sword 0x01A3DC|$06:$A3CC:01 ; Item ID #$0F: Sword of Erdrick 0x01A3DD|$06:$A3CD:01 ; Item ID #$10: Thunder Sword 0x01A3DE|$06:$A3CE:07 ; Item ID #$11: Clothes 0x01A3DF|$06:$A3CF:07 ; Item ID #$12: Clothes Hiding 0x01A3E0|$06:$A3D0:07 ; Item ID #$13: Water Flying Cloth 0x01A3E1|$06:$A3D1:07 ; Item ID #$14: Mink Coat 0x01A3E2|$06:$A3D2:03 ; Item ID #$15: Leather Armor 0x01A3E3|$06:$A3D3:03 ; Item ID #$16: Chain Mail 0x01A3E4|$06:$A3D4:03 ; Item ID #$17: Gremlin’s Armor 0x01A3E5|$06:$A3D5:03 ; Item ID #$18: Magic Armor 0x01A3E6|$06:$A3D6:01 ; Item ID #$19: Full Plate Armor 0x01A3E7|$06:$A3D7:01 ; Item ID #$1A: Armor of Gaia 0x01A3E8|$06:$A3D8:01 ; Item ID #$1B: Armor of Erdrick 0x01A3E9|$06:$A3D9:03 ; Item ID #$1C: Leather Shield 0x01A3EA|$06:$A3DA:03 ; Item ID #$1D: Shield of Strength 0x01A3EB|$06:$A3DB:01 ; Item ID #$1E: Steel Shield 0x01A3EC|$06:$A3DC:01 ; Item ID #$1F: Evil Shield 0x01A3ED|$06:$A3DD:01 ; Item ID #$20: Shield of Erdrick 0x01A3EE|$06:$A3DE:07 ; Item ID #$21: Mysterious Hat 0x01A3EF|$06:$A3DF:01 ; Item ID #$22: Iron Helmet 0x01A3F0|$06:$A3E0:01 ; Item ID #$23: Helmet of Erdrick ; pointers to warp spaces for irregularly-shaped maps ; indirect data load target (via $8042) ; external indexed data load target (from $0F:$E8BC) 0x01A3F1|$06:$A3E1:00 ; external indexed data load target (from $0F:$E8C1) 0x01A3F2|$06:$A3E2: 00 ; $06:$0000; Map ID #$2B: Cave to Hamlin 0x01A3F3|$06:$A3E3:1B A4 ; $06:$A41B; Map ID #$2C: Lake Cave B1 0x01A3F5|$06:$A3E5:30 A4 ; $06:$A430; Map ID #$2D: Lake Cave B2 0x01A3F7|$06:$A3E7:45 A4 ; $06:$A445; Map ID #$2E: Sea Cave B1 0x01A3F9|$06:$A3E9:50 A4 ; $06:$A450; Map ID #$2F: Sea Cave B2 0x01A3FB|$06:$A3EB:00 00 ; $06:$0000; Map ID #$30: Sea Cave B3-1 0x01A3FD|$06:$A3ED:00 00 ; $06:$0000; Map ID #$31: Sea Cave B3-2 0x01A3FF|$06:$A3EF:00 00 ; $06:$0000; Map ID #$32: Sea Cave B4 0x01A401|$06:$A3F1:00 00 ; $06:$0000; Map ID #$33: Sea Cave B5 0x01A403|$06:$A3F3:00 00 ; $06:$0000; Map ID #$34: Charlock Castle B1/B2 0x01A405|$06:$A3F5:00 00 ; $06:$0000; Map ID #$35: Charlock Castle B3/B4-1/B5-1 0x01A407|$06:$A3F7:00 00 ; $06:$0000; Map ID #$36: Charlock Castle B4-2/B5-2/B6 0x01A409|$06:$A3F9:00 00 ; $06:$0000; Map ID #$37: Cave to Rhone B1 0x01A40B|$06:$A3FB:00 00 ; $06:$0000; Map ID #$38: Cave to Rhone 1F 0x01A40D|$06:$A3FD:5B A4 ; $06:$A45B; Map ID #$39: Cave to Rhone 2F-1 0x01A40F|$06:$A3FF:98 A4 ; $06:$A498; Map ID #$3A: Cave to Rhone 2F-2 0x01A411|$06:$A401:D5 A4 ; $06:$A4D5; Map ID #$3B: Cave to Rhone 2F-3 0x01A413|$06:$A403:F4 A4 ; $06:$A4F4; Map ID #$3C: Cave to Rhone 3F 0x01A415|$06:$A405:00 00 ; $06:$0000; Map ID #$3D: Cave to Rhone 4F 0x01A417|$06:$A407:00 00 ; $06:$0000; Map ID #$3E: Cave to Rhone 5F 0x01A419|$06:$A409:31 A5 ; $06:$A531; Map ID #$3F: Cave to Rhone 6F 0x01A41B|$06:$A40B:00 00 ; $06:$0000; Map ID #$40: Spring of Bravery 0x01A41D|$06:$A40D:00 00 ; $06:$0000; Map ID #$41: unused? 0x01A41F|$06:$A40F:00 00 ; $06:$0000; Map ID #$42: unused? 0x01A421|$06:$A411:00 00 ; $06:$0000; Map ID #$43: Cave to Rimuldar 0x01A423|$06:$A413:00 00 ; $06:$0000; Map ID #$44: Hargon's Castle 2F 0x01A425|$06:$A415:00 00 ; $06:$0000; Map ID #$45: Hargon's Castle 3F 0x01A427|$06:$A417:00 00 ; $06:$0000; Map ID #$46: Hargon's Castle 4F 0x01A429|$06:$A419:00 00 ; $06:$0000; Map ID #$47: Hargon's Castle 5F ; warp spaces for irregularly-shaped maps; format is (destination map ID, destination X-pos, destination Y-pos, transition X-pos, transition Y-pos), all positions are 7-bit, describing a 2x2 space ; Map ID #$2C: Lake Cave B1 ; indirect data load target (via $A3E3) 0x01A42B|$06:$A41B:2C 1E 16 FE 10 0x01A430|$06:$A420:2C 00 10 20 16 0x01A435|$06:$A425:2C 04 00 18 20 0x01A43A|$06:$A42A:2C 18 1E 04 FE ; indirect data load target 0x01A43F|$06:$A42F:FF ; Map ID #$2D: Lake Cave B2 ; indirect data load target (via $A3E5) 0x01A440|$06:$A430:2D 16 02 0E 20 0x01A445|$06:$A435:2D 0E 1E 16 00 0x01A44A|$06:$A43A:2D 1A 1C FE 1C 0x01A44F|$06:$A43F:2D 00 1C 1C 1C ; indirect data load target 0x01A454|$06:$A444:FF ; Map ID #$2E: Sea Cave B1 ; indirect data load target (via $A3E7) 0x01A455|$06:$A445:2E 04 02 02 1C 0x01A45A|$06:$A44A:2E 02 1A 04 00 ; indirect data load target 0x01A45F|$06:$A44F:FF ; Map ID #$2F: Sea Cave B2 ; indirect data load target (via $A3E9) 0x01A460|$06:$A450:2F 20 14 12 28 0x01A465|$06:$A455:2F 12 26 20 12 ; indirect data load target 0x01A46A|$06:$A45A:FF ; Map ID #$39: Cave to Rhone 2F-1 ; indirect data load target (via $A3FD) 0x01A46B|$06:$A45B:3A 06 0A 06 00 0x01A470|$06:$A460:3A 10 0A 10 00 0x01A475|$06:$A465:3A 1A 0A 1A 00 0x01A47A|$06:$A46A:3A 24 0A 24 00 0x01A47F|$06:$A46F:3A 2E 0A 2E 00 0x01A484|$06:$A474:3A 06 02 06 0C 0x01A489|$06:$A479:3A 10 02 10 0C 0x01A48E|$06:$A47E:3A 1A 02 1A 0C 0x01A493|$06:$A483:3A 24 02 24 0C 0x01A498|$06:$A488:3A 2E 02 2E 0C 0x01A49D|$06:$A48D:3B 08 04 FE 08 0x01A4A2|$06:$A492:3B 00 04 36 08 ; indirect data load target 0x01A4A7|$06:$A497:FF ; Map ID #$3A: Cave to Rhone 2F-2 ; indirect data load target (via $A3FF) 0x01A4A8|$06:$A498:39 06 0A 06 00 0x01A4AD|$06:$A49D:39 10 0A 10 00 0x01A4B2|$06:$A4A2:39 1A 0A 1A 00 0x01A4B7|$06:$A4A7:39 24 0A 24 00 0x01A4BC|$06:$A4AC:39 2E 0A 2E 00 0x01A4C1|$06:$A4B1:39 06 02 06 0C 0x01A4C6|$06:$A4B6:39 10 02 10 0C 0x01A4CB|$06:$A4BB:39 1A 02 1A 0C 0x01A4D0|$06:$A4C0:39 24 02 24 0C 0x01A4D5|$06:$A4C5:39 2E 02 2E 0C 0x01A4DA|$06:$A4CA:3B 08 0E FE 08 0x01A4DF|$06:$A4CF:3B 00 0E 36 08 ; indirect data load target 0x01A4E4|$06:$A4D4:FF ; Map ID #$3B: Cave to Rhone 2F-3 ; indirect data load target (via $A401) 0x01A4E5|$06:$A4D5:3B 04 00 04 14 0x01A4EA|$06:$A4DA:3B 04 12 04 FE 0x01A4EF|$06:$A4DF:39 34 08 FE 04 0x01A4F4|$06:$A4E4:39 00 08 0A 04 0x01A4F9|$06:$A4E9:3A 34 08 FE 0E 0x01A4FE|$06:$A4EE:3A 00 08 0A 0E ; indirect data load target 0x01A503|$06:$A4F3:FF ; Map ID #$3C: Cave to Rhone 3F ; indirect data load target (via $A403) 0x01A504|$06:$A4F4:3C 16 18 FE 06 0x01A509|$06:$A4F9:3C 00 06 18 18 0x01A50E|$06:$A4FE:3C 26 0A FE 12 0x01A513|$06:$A503:3C 00 12 28 0A 0x01A518|$06:$A508:3C 26 16 FE 22 0x01A51D|$06:$A50D:3C 00 22 28 16 0x01A522|$06:$A512:3C 22 1E 20 38 0x01A527|$06:$A517:3C 20 36 22 1C 0x01A52C|$06:$A51C:3C 0A 2A 28 34 0x01A531|$06:$A521:3C 26 34 08 2A 0x01A536|$06:$A526:3C 26 02 10 16 0x01A53B|$06:$A52B:3C 12 16 28 02 ; indirect data load target 0x01A540|$06:$A530:FF ; Map ID #$3F: Cave to Rhone 6F ; indirect data load target (via $A409) 0x01A541|$06:$A531:3F 02 16 1A 12 0x01A546|$06:$A536:3F 18 12 00 16 0x01A54B|$06:$A53B:3F 18 12 20 14 0x01A550|$06:$A540:3F 18 12 FE 02 0x01A555|$06:$A545:3F 08 0C 12 0E 0x01A55A|$06:$A54A:3F 12 10 08 0E 0x01A55F|$06:$A54F:3F 12 10 06 30 0x01A564|$06:$A554:3F 24 0E 0A 12 0x01A569|$06:$A559:3F 0C 12 26 0E 0x01A56E|$06:$A55E:3F 0C 12 06 02 0x01A573|$06:$A563:3F 0C 12 06 12 0x01A578|$06:$A568:3F 00 0C 28 02 0x01A57D|$06:$A56D:3F 26 02 FE 0C 0x01A582|$06:$A572:3F 00 12 28 1A 0x01A587|$06:$A577:3F 26 1A FE 12 0x01A58C|$06:$A57C:3F 00 26 1E 04 0x01A591|$06:$A581:3F 00 26 28 14 0x01A596|$06:$A586:3F 00 26 20 1C 0x01A59B|$06:$A58B:3F 10 2C 12 24 0x01A5A0|$06:$A590:3F 10 2C 20 22 0x01A5A5|$06:$A595:3F 10 2C 1A 2C 0x01A5AA|$06:$A59A:3F 22 22 12 2C 0x01A5AF|$06:$A59F:3F 00 1C 28 24 0x01A5B4|$06:$A5A4:3F 00 1C 28 2C 0x01A5B9|$06:$A5A9:3F 26 24 FE 1C 0x01A5BE|$06:$A5AE:3F 00 20 28 28 0x01A5C3|$06:$A5B3:3F 26 28 FE 20 0x01A5C8|$06:$A5B8:3F 1C 2C 28 20 0x01A5CD|$06:$A5BD:3F 0E 0C 1E 26 0x01A5D2|$06:$A5C2:3F 1A 1E 0A FE 0x01A5D7|$06:$A5C7:3F 16 2E 1C 16 0x01A5DC|$06:$A5CC:3F 08 18 1C 24 0x01A5E1|$06:$A5D1:3F 1A 24 06 18 0x01A5E6|$06:$A5D6:3F 18 0A 16 1E 0x01A5EB|$06:$A5DB:3F 14 1E 16 0A 0x01A5F0|$06:$A5E0:3F 06 2E 12 FE 0x01A5F5|$06:$A5E5:3F 0C 24 0E 0E 0x01A5FA|$06:$A5EA:3F 0C 24 1A 20 0x01A5FF|$06:$A5EF:3F 0C 24 16 30 0x01A604|$06:$A5F4:3F 12 0A 12 1A 0x01A609|$06:$A5F9:3F 12 18 12 08 0x01A60E|$06:$A5FE:3F 12 18 0C 22 0x01A613|$06:$A603:3F 12 18 22 FE 0x01A618|$06:$A608:3F 1C 04 FE 26 0x01A61D|$06:$A60D:FF ; data -> code 0x01A61E|$06:$A60E:A9 FF LDA #$FF 0x01A620|$06:$A610:D0 02 BNE $A614 ; indirect control flow target (via $8000) 0x01A622|$06:$A612:A9 00 LDA #$00 ; control flow target (from $A610) 0x01A624|$06:$A614:20 1A A6 JSR $A61A ; call to code in a different bank ($0F:$C1DC) 0x01A627|$06:$A617:4C DC C1 JMP $C1DC ; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF ; control flow target (from $A614) ; indirect control flow target (via $803C) 0x01A62A|$06:$A61A:48 PHA 0x01A62B|$06:$A61B:AD 01 00 LDA $0001 0x01A62E|$06:$A61E:F0 03 BEQ $A623 ; call to code in a different bank ($0F:$C1DC) 0x01A630|$06:$A620:20 DC C1 JSR $C1DC ; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF ; control flow target (from $A61E) 0x01A633|$06:$A623:A9 01 LDA #$01 0x01A635|$06:$A625:8D 83 01 STA $0183 0x01A638|$06:$A628:A9 00 LDA #$00 0x01A63A|$06:$A62A:8D 80 60 STA $6080 0x01A63D|$06:$A62D:68 PLA 0x01A63E|$06:$A62E:20 63 A7 JSR $A763 0x01A641|$06:$A631:A9 00 LDA #$00 0x01A643|$06:$A633:8D 81 60 STA $6081 0x01A646|$06:$A636:8D 82 60 STA $6082 0x01A649|$06:$A639:AD 7B 60 LDA $607B 0x01A64C|$06:$A63C:48 PHA 0x01A64D|$06:$A63D:29 F0 AND #$F0 0x01A64F|$06:$A63F:4A LSR 0x01A650|$06:$A640:4A LSR 0x01A651|$06:$A641:4A LSR 0x01A652|$06:$A642:8D 7E 60 STA $607E 0x01A655|$06:$A645:68 PLA 0x01A656|$06:$A646:29 0F AND #$0F 0x01A658|$06:$A648:0A ASL 0x01A659|$06:$A649:8D 7F 60 STA $607F 0x01A65C|$06:$A64C:8D 83 60 STA $6083 0x01A65F|$06:$A64F:AE 02 00 LDX $0002 ; control flow target (from $A6D0) 0x01A662|$06:$A652:A5 08 LDA $08 0x01A664|$06:$A654:8D 90 60 STA $6090 0x01A667|$06:$A657:A5 07 LDA $07 0x01A669|$06:$A659:8D 8F 60 STA $608F 0x01A66C|$06:$A65C:29 1F AND #$1F 0x01A66E|$06:$A65E:8D 8B 60 STA $608B 0x01A671|$06:$A661:A9 20 LDA #$20 0x01A673|$06:$A663:38 SEC 0x01A674|$06:$A664:ED 8B 60 SBC $608B 0x01A677|$06:$A667:8D 8D 60 STA $608D 0x01A67A|$06:$A66A:AD 7F 60 LDA $607F 0x01A67D|$06:$A66D:38 SEC 0x01A67E|$06:$A66E:ED 8D 60 SBC $608D 0x01A681|$06:$A671:8D 8E 60 STA $608E 0x01A684|$06:$A674:F0 02 BEQ $A678 0x01A686|$06:$A676:B0 09 BCS $A681 ; control flow target (from $A674) 0x01A688|$06:$A678:AD 7F 60 LDA $607F 0x01A68B|$06:$A67B:8D 8D 60 STA $608D 0x01A68E|$06:$A67E:4C A4 A6 JMP $A6A4 ; control flow target (from $A676) 0x01A691|$06:$A681:20 D6 A6 JSR $A6D6 0x01A694|$06:$A684:AD 90 60 LDA $6090 0x01A697|$06:$A687:49 04 EOR #$04 0x01A699|$06:$A689:8D 90 60 STA $6090 0x01A69C|$06:$A68C:AD 8F 60 LDA $608F 0x01A69F|$06:$A68F:29 1F AND #$1F 0x01A6A1|$06:$A691:8D 8B 60 STA $608B 0x01A6A4|$06:$A694:AD 8F 60 LDA $608F 0x01A6A7|$06:$A697:38 SEC 0x01A6A8|$06:$A698:ED 8B 60 SBC $608B 0x01A6AB|$06:$A69B:8D 8F 60 STA $608F 0x01A6AE|$06:$A69E:AD 8E 60 LDA $608E 0x01A6B1|$06:$A6A1:8D 8D 60 STA $608D ; control flow target (from $A67E) 0x01A6B4|$06:$A6A4:20 D6 A6 JSR $A6D6 0x01A6B7|$06:$A6A7:A5 08 LDA $08 0x01A6B9|$06:$A6A9:29 FB AND #$FB 0x01A6BB|$06:$A6AB:C9 23 CMP #$23 0x01A6BD|$06:$A6AD:90 11 BCC $A6C0 0x01A6BF|$06:$A6AF:A5 07 LDA $07 0x01A6C1|$06:$A6B1:C9 A0 CMP #$A0 0x01A6C3|$06:$A6B3:90 0B BCC $A6C0 0x01A6C5|$06:$A6B5:29 1F AND #$1F 0x01A6C7|$06:$A6B7:85 07 STA $07 0x01A6C9|$06:$A6B9:A5 08 LDA $08 0x01A6CB|$06:$A6BB:29 FC AND #$FC 0x01A6CD|$06:$A6BD:4C CB A6 JMP $A6CB ; control flow target (from $A6AD, $A6B3) 0x01A6D0|$06:$A6C0:A5 07 LDA $07 0x01A6D2|$06:$A6C2:18 CLC 0x01A6D3|$06:$A6C3:69 20 ADC #$20 0x01A6D5|$06:$A6C5:85 07 STA $07 0x01A6D7|$06:$A6C7:A5 08 LDA $08 0x01A6D9|$06:$A6C9:69 00 ADC #$00 ; control flow target (from $A6BD) 0x01A6DB|$06:$A6CB:85 08 STA $08 0x01A6DD|$06:$A6CD:CE 7E 60 DEC $607E 0x01A6E0|$06:$A6D0:D0 80 BNE $A652 0x01A6E2|$06:$A6D2:8E 02 00 STX $0002 0x01A6E5|$06:$A6D5:60 RTS ; control flow target (from $A681, $A6A4) 0x01A6E6|$06:$A6D6:AD 90 60 LDA $6090 0x01A6E9|$06:$A6D9:09 80 ORA #$80 0x01A6EB|$06:$A6DB:9D 00 03 STA $0300,X ; PPU write buffer start 0x01A6EE|$06:$A6DE:AD 8D 60 LDA $608D 0x01A6F1|$06:$A6E1:9D 01 03 STA $0301,X 0x01A6F4|$06:$A6E4:AD 8F 60 LDA $608F 0x01A6F7|$06:$A6E7:9D 02 03 STA $0302,X 0x01A6FA|$06:$A6EA:E8 INX 0x01A6FB|$06:$A6EB:E8 INX 0x01A6FC|$06:$A6EC:E8 INX 0x01A6FD|$06:$A6ED:AD 8D 60 LDA $608D 0x01A700|$06:$A6F0:48 PHA 0x01A701|$06:$A6F1:AC 81 60 LDY $6081 ; control flow target (from $A6FF) 0x01A704|$06:$A6F4:B9 0B 60 LDA $600B,Y 0x01A707|$06:$A6F7:9D 00 03 STA $0300,X ; PPU write buffer start 0x01A70A|$06:$A6FA:E8 INX 0x01A70B|$06:$A6FB:C8 INY 0x01A70C|$06:$A6FC:CE 8D 60 DEC $608D 0x01A70F|$06:$A6FF:D0 F3 BNE $A6F4 0x01A711|$06:$A701:8C 81 60 STY $6081 0x01A714|$06:$A704:68 PLA 0x01A715|$06:$A705:4A LSR 0x01A716|$06:$A706:8D 8D 60 STA $608D 0x01A719|$06:$A709:AD 7E 60 LDA $607E 0x01A71C|$06:$A70C:29 01 AND #$01 0x01A71E|$06:$A70E:F0 4F BEQ $A75F 0x01A720|$06:$A710:AC 82 60 LDY $6082 0x01A723|$06:$A713:AD 90 60 LDA $6090 0x01A726|$06:$A716:8D 98 60 STA $6098 0x01A729|$06:$A719:AD 8F 60 LDA $608F 0x01A72C|$06:$A71C:8D 97 60 STA $6097 ; control flow target (from $A75A) 0x01A72F|$06:$A71F:8A TXA 0x01A730|$06:$A720:48 PHA 0x01A731|$06:$A721:98 TYA 0x01A732|$06:$A722:48 PHA 0x01A733|$06:$A723:AD 90 60 LDA $6090 0x01A736|$06:$A726:48 PHA 0x01A737|$06:$A727:B9 6B 60 LDA $606B,Y 0x01A73A|$06:$A72A:20 89 A7 JSR $A789 0x01A73D|$06:$A72D:8D 8B 60 STA $608B 0x01A740|$06:$A730:68 PLA 0x01A741|$06:$A731:8D 90 60 STA $6090 0x01A744|$06:$A734:68 PLA 0x01A745|$06:$A735:A8 TAY 0x01A746|$06:$A736:68 PLA 0x01A747|$06:$A737:AA TAX 0x01A748|$06:$A738:AD 9A 60 LDA $609A 0x01A74B|$06:$A73B:9D 00 03 STA $0300,X ; PPU write buffer start 0x01A74E|$06:$A73E:E8 INX 0x01A74F|$06:$A73F:AD 99 60 LDA $6099 0x01A752|$06:$A742:9D 00 03 STA $0300,X ; PPU write buffer start 0x01A755|$06:$A745:E8 INX 0x01A756|$06:$A746:AD 8B 60 LDA $608B 0x01A759|$06:$A749:9D 00 03 STA $0300,X ; PPU write buffer start 0x01A75C|$06:$A74C:E8 INX 0x01A75D|$06:$A74D:C8 INY 0x01A75E|$06:$A74E:EE 97 60 INC $6097 0x01A761|$06:$A751:EE 97 60 INC $6097 0x01A764|$06:$A754:EE 01 00 INC $0001 0x01A767|$06:$A757:CE 8D 60 DEC $608D 0x01A76A|$06:$A75A:D0 C3 BNE $A71F 0x01A76C|$06:$A75C:8C 82 60 STY $6082 ; control flow target (from $A70E) 0x01A76F|$06:$A75F:EE 01 00 INC $0001 0x01A772|$06:$A762:60 RTS ; control flow target (from $A62E) 0x01A773|$06:$A763:48 PHA 0x01A774|$06:$A764:20 72 A7 JSR $A772 0x01A777|$06:$A767:68 PLA 0x01A778|$06:$A768:D0 01 BNE $A76B 0x01A77A|$06:$A76A:60 RTS ; control flow target (from $A768) 0x01A77B|$06:$A76B:A5 08 LDA $08 0x01A77D|$06:$A76D:49 04 EOR #$04 0x01A77F|$06:$A76F:85 08 STA $08 0x01A781|$06:$A771:60 RTS ; control flow target (from $A764) 0x01A782|$06:$A772:AD 7C 60 LDA $607C 0x01A785|$06:$A775:0A ASL 0x01A786|$06:$A776:29 1E AND #$1E 0x01A788|$06:$A778:8D 8B 60 STA $608B 0x01A78B|$06:$A77B:AD 7C 60 LDA $607C 0x01A78E|$06:$A77E:4A LSR 0x01A78F|$06:$A77F:4A LSR 0x01A790|$06:$A780:4A LSR 0x01A791|$06:$A781:29 1E AND #$1E 0x01A793|$06:$A783:8D 8C 60 STA $608C 0x01A796|$06:$A786:4C 09 A8 JMP $A809 ; control flow target (from $A72A) 0x01A799|$06:$A789:8D 96 60 STA $6096 0x01A79C|$06:$A78C:A9 1F LDA #$1F 0x01A79E|$06:$A78E:2D 97 60 AND $6097 0x01A7A1|$06:$A791:4A LSR 0x01A7A2|$06:$A792:4A LSR 0x01A7A3|$06:$A793:8D 90 60 STA $6090 0x01A7A6|$06:$A796:A9 80 LDA #$80 0x01A7A8|$06:$A798:2D 97 60 AND $6097 0x01A7AB|$06:$A79B:4A LSR 0x01A7AC|$06:$A79C:4A LSR 0x01A7AD|$06:$A79D:4A LSR 0x01A7AE|$06:$A79E:4A LSR 0x01A7AF|$06:$A79F:0D 90 60 ORA $6090 0x01A7B2|$06:$A7A2:8D 90 60 STA $6090 0x01A7B5|$06:$A7A5:A9 03 LDA #$03 0x01A7B7|$06:$A7A7:2D 98 60 AND $6098 0x01A7BA|$06:$A7AA:0A ASL 0x01A7BB|$06:$A7AB:0A ASL 0x01A7BC|$06:$A7AC:0A ASL 0x01A7BD|$06:$A7AD:0A ASL 0x01A7BE|$06:$A7AE:09 C0 ORA #$C0 0x01A7C0|$06:$A7B0:0D 90 60 ORA $6090 0x01A7C3|$06:$A7B3:8D 99 60 STA $6099 0x01A7C6|$06:$A7B6:A2 23 LDX #$23 0x01A7C8|$06:$A7B8:AD 98 60 LDA $6098 0x01A7CB|$06:$A7BB:C9 24 CMP #$24 0x01A7CD|$06:$A7BD:90 02 BCC $A7C1 0x01A7CF|$06:$A7BF:A2 27 LDX #$27 ; control flow target (from $A7BD) 0x01A7D1|$06:$A7C1:8E 9A 60 STX $609A 0x01A7D4|$06:$A7C4:AD 97 60 LDA $6097 0x01A7D7|$06:$A7C7:29 40 AND #$40 0x01A7D9|$06:$A7C9:4A LSR 0x01A7DA|$06:$A7CA:4A LSR 0x01A7DB|$06:$A7CB:4A LSR 0x01A7DC|$06:$A7CC:4A LSR 0x01A7DD|$06:$A7CD:8D 93 60 STA $6093 0x01A7E0|$06:$A7D0:AD 97 60 LDA $6097 0x01A7E3|$06:$A7D3:29 02 AND #$02 0x01A7E5|$06:$A7D5:0D 93 60 ORA $6093 0x01A7E8|$06:$A7D8:8D 93 60 STA $6093 0x01A7EB|$06:$A7DB:AD 99 60 LDA $6099 0x01A7EE|$06:$A7DE:85 57 STA $57 ; pointer to start of main pointer table, low byte 0x01A7F0|$06:$A7E0:AD 9A 60 LDA $609A 0x01A7F3|$06:$A7E3:29 07 AND #$07 0x01A7F5|$06:$A7E5:85 58 STA $58 ; pointer to start of main pointer table, high byte 0x01A7F7|$06:$A7E7:A0 00 LDY #$00 0x01A7F9|$06:$A7E9:B1 57 LDA ($57),Y ; pointer to start of main pointer table, low byte 0x01A7FB|$06:$A7EB:8D 94 60 STA $6094 0x01A7FE|$06:$A7EE:A9 03 LDA #$03 0x01A800|$06:$A7F0:AC 93 60 LDY $6093 0x01A803|$06:$A7F3:F0 07 BEQ $A7FC ; control flow target (from $A7FA) 0x01A805|$06:$A7F5:0A ASL 0x01A806|$06:$A7F6:0E 96 60 ASL $6096 0x01A809|$06:$A7F9:88 DEY 0x01A80A|$06:$A7FA:D0 F9 BNE $A7F5 ; control flow target (from $A7F3) 0x01A80C|$06:$A7FC:49 FF EOR #$FF 0x01A80E|$06:$A7FE:2D 94 60 AND $6094 0x01A811|$06:$A801:0D 96 60 ORA $6096 0x01A814|$06:$A804:A0 00 LDY #$00 0x01A816|$06:$A806:91 57 STA ($57),Y ; pointer to start of main pointer table, low byte 0x01A818|$06:$A808:60 RTS ; from $02:$B74E, $06:$B0A8, $0F:$FD25, $0F:$FD98 via $8002 ; control flow target (from $A786, $AF70) ; indirect control flow target (via $8002) 0x01A819|$06:$A809:A5 04 LDA $04 0x01A81B|$06:$A80B:0A ASL 0x01A81C|$06:$A80C:0A ASL 0x01A81D|$06:$A80D:29 04 AND #$04 0x01A81F|$06:$A80F:09 20 ORA #$20 0x01A821|$06:$A811:85 08 STA $08 0x01A823|$06:$A813:AD 8B 60 LDA $608B 0x01A826|$06:$A816:0A ASL 0x01A827|$06:$A817:0A ASL 0x01A828|$06:$A818:0A ASL 0x01A829|$06:$A819:18 CLC 0x01A82A|$06:$A81A:65 05 ADC $05 0x01A82C|$06:$A81C:85 07 STA $07 0x01A82E|$06:$A81E:90 06 BCC $A826 0x01A830|$06:$A820:A5 08 LDA $08 0x01A832|$06:$A822:49 04 EOR #$04 0x01A834|$06:$A824:85 08 STA $08 ; control flow target (from $A81E) 0x01A836|$06:$A826:A5 06 LDA $06 0x01A838|$06:$A828:4A LSR 0x01A839|$06:$A829:4A LSR 0x01A83A|$06:$A82A:4A LSR 0x01A83B|$06:$A82B:18 CLC 0x01A83C|$06:$A82C:6D 8C 60 ADC $608C 0x01A83F|$06:$A82F:C9 1E CMP #$1E 0x01A841|$06:$A831:90 02 BCC $A835 0x01A843|$06:$A833:E9 1E SBC #$1E ; control flow target (from $A831) 0x01A845|$06:$A835:4A LSR 0x01A846|$06:$A836:66 07 ROR $07 0x01A848|$06:$A838:4A LSR 0x01A849|$06:$A839:66 07 ROR $07 0x01A84B|$06:$A83B:4A LSR 0x01A84C|$06:$A83C:66 07 ROR $07 0x01A84E|$06:$A83E:05 08 ORA $08 0x01A850|$06:$A840:85 08 STA $08 0x01A852|$06:$A842:60 RTS ; display and handle main game menu ; from $0F:$C6C7 via $8004 ; indirect control flow target (via $8004) 0x01A853|$06:$A843:A9 0C LDA #$0C ; Music ID #$0C: game menu / Wellgarth singer BGM 0x01A855|$06:$A845:8D F7 05 STA $05F7 ; probably BGM for current area ; call to code in a different bank ($0F:$D14F) 0x01A858|$06:$A848:20 4F D1 JSR $D14F 0x01A85B|$06:$A84B:A9 00 LDA #$00 ; Music ID #$00: BGM off 0x01A85D|$06:$A84D:8D F7 05 STA $05F7 ; probably BGM for current area 0x01A860|$06:$A850:20 CA A8 JSR $A8CA ; control flow target (from $A85C) 0x01A863|$06:$A853:20 7E A9 JSR $A97E ; control flow target (from $A9CC) 0x01A866|$06:$A856:20 A3 A9 JSR $A9A3 ; open apporpriate main game menu based on number of filled save slots, set $75DB = #$0A, #$05, or #$00 based on number of filled slots, return menu selection index in A 0x01A869|$06:$A859:20 CF A9 JSR $A9CF 0x01A86C|$06:$A85C:4C 53 A8 JMP $A853 ; from $0F:$D15F via $8008 ; indirect control flow target (via $8008) 0x01A86F|$06:$A85F:A9 19 LDA #$19 ; Menu ID #$19: General menu: YES/NO 0x01A871|$06:$A861:20 93 A9 JSR $A993 ; open menu specified by A 0x01A874|$06:$A864:AA TAX 0x01A875|$06:$A865:D0 0D BNE $A874 ; branch if NO 0x01A877|$06:$A867:A9 FF LDA #$FF 0x01A879|$06:$A869:8D 70 70 STA $7070 ; ????, SRAM buffer 0x01A87C|$06:$A86C:20 85 A8 JSR $A885 ; copy save data from system RAM to per-game save data 0x01A87F|$06:$A86F:A9 78 LDA #$78 ; String ID #$0078: ‘I have entered thy deeds in the Imperial Scrolls of Honor[.’][wait][end-FC] 0x01A881|$06:$A871:20 9B A9 JSR $A99B ; display string ID specified by A ; control flow target (from $A865) 0x01A884|$06:$A874:A9 79 LDA #$79 ; String ID #$0079: ‘Dost thou wish to continue thy quest?’[FD][FD][end-FC] 0x01A886|$06:$A876:20 9B A9 JSR $A99B ; display string ID specified by A 0x01A889|$06:$A879:A9 19 LDA #$19 ; Menu ID #$19: General menu: YES/NO 0x01A88B|$06:$A87B:20 93 A9 JSR $A993 ; open menu specified by A 0x01A88E|$06:$A87E:AA TAX 0x01A88F|$06:$A87F:D0 01 BNE $A882 ; branch if NO 0x01A891|$06:$A881:60 RTS ; control flow target (from $A87F) ; call to code in a different bank ($0F:$D175) 0x01A892|$06:$A882:4C 75 D1 JMP $D175 ; copy save data from system RAM to per-game save data ; from $0F:$C6DA via $801E ; control flow target (from $A86C) ; indirect control flow target (via $801E) 0x01A895|$06:$A885:20 3C AC JSR $AC3C ; copy save data from system RAM to $7000-$706F 0x01A898|$06:$A888:20 AD AC JSR $ACAD ; initialize the RNG based on 71 passes using SRAM data $7000-$7070 and save resulting seed to $7071-$7072 0x01A89B|$06:$A88B:20 87 AB JSR $AB87 ; copy data from SRAM buffer to per-game save data 0x01A89E|$06:$A88E:60 RTS ; copy Midenhall's short name from save slot in A to $0100 in reverse ; from $0F:$EE7E via $801C ; indirect control flow target (via $801C) 0x01A89F|$06:$A88F:20 F5 A9 JSR $A9F5 ; given save slot number in A, set $99-$9A to pointer to second part of save slot data 0x01A8A2|$06:$A892:A0 03 LDY #$03 ; copy 4 bytes 0x01A8A4|$06:$A894:D0 08 BNE $A89E ; copy Midenhall's full name from save slot in $75DB to $0100 in reverse ; from $0F:$EF5B via $800A ; indirect control flow target (via $800A) 0x01A8A6|$06:$A896:AD DB 75 LDA $75DB ; in game: current game save slot; out of game: various temporary game menu setup values 0x01A8A9|$06:$A899:20 F5 A9 JSR $A9F5 ; given save slot number in A, set $99-$9A to pointer to second part of save slot data 0x01A8AC|$06:$A89C:A0 07 LDY #$07 ; copy 8 bytes ; control flow target (from $A894) 0x01A8AE|$06:$A89E:A2 00 LDX #$00 ; control flow target (from $A8A7) 0x01A8B0|$06:$A8A0:B1 99 LDA ($99),Y 0x01A8B2|$06:$A8A2:9D 00 01 STA $0100,X ; string copy buffer start (often referenced as $00FF,X) 0x01A8B5|$06:$A8A5:E8 INX 0x01A8B6|$06:$A8A6:88 DEY 0x01A8B7|$06:$A8A7:10 F7 BPL $A8A0 0x01A8B9|$06:$A8A9:60 RTS ; given current game save slot in $75DB, return Midenhall's level in that save game in A/$0E ; indirect control flow target (via $800C) 0x01A8BA|$06:$A8AA:AD DB 75 LDA $75DB ; in game: current game save slot; out of game: various temporary game menu setup values 0x01A8BD|$06:$A8AD:20 F5 A9 JSR $A9F5 ; given save slot number in A, set $99-$9A to pointer to second part of save slot data 0x01A8C0|$06:$A8B0:A0 08 LDY #$08 ; offset for Midenhall's level 0x01A8C2|$06:$A8B2:B1 99 LDA ($99),Y 0x01A8C4|$06:$A8B4:85 0E STA $0E 0x01A8C6|$06:$A8B6:60 RTS ; indirect control flow target (via $800E) 0x01A8C7|$06:$A8B7:20 F5 A9 JSR $A9F5 ; given save slot number in A, set $99-$9A to pointer to second part of save slot data 0x01A8CA|$06:$A8BA:A2 02 LDX #$02 0x01A8CC|$06:$A8BC:A0 09 LDY #$09 0x01A8CE|$06:$A8BE:B1 99 LDA ($99),Y 0x01A8D0|$06:$A8C0:30 06 BMI $A8C8 0x01A8D2|$06:$A8C2:C9 46 CMP #$46 0x01A8D4|$06:$A8C4:F0 01 BEQ $A8C7 0x01A8D6|$06:$A8C6:CA DEX ; control flow target (from $A8C4) 0x01A8D7|$06:$A8C7:CA DEX ; control flow target (from $A8C0) 0x01A8D8|$06:$A8C8:8A TXA 0x01A8D9|$06:$A8C9:60 RTS ; control flow target (from $A850) 0x01A8DA|$06:$A8CA:A2 05 LDX #$05 ; control flow target (from $A8DF) 0x01A8DC|$06:$A8CC:BD B9 AD LDA $ADB9,X 0x01A8DF|$06:$A8CF:DD FA 75 CMP $75FA,X 0x01A8E2|$06:$A8D2:F0 0A BEQ $A8DE 0x01A8E4|$06:$A8D4:DD 01 60 CMP $6001,X 0x01A8E7|$06:$A8D7:F0 05 BEQ $A8DE 0x01A8E9|$06:$A8D9:DD A7 61 CMP $61A7,X 0x01A8EC|$06:$A8DC:D0 05 BNE $A8E3 ; control flow target (from $A8D2, $A8D7) 0x01A8EE|$06:$A8DE:CA DEX 0x01A8EF|$06:$A8DF:10 EB BPL $A8CC 0x01A8F1|$06:$A8E1:30 36 BMI $A919 ; control flow target (from $A8DC) 0x01A8F3|$06:$A8E3:AD F4 AD LDA $ADF4 0x01A8F6|$06:$A8E6:8D 99 00 STA $0099 0x01A8F9|$06:$A8E9:AD F5 AD LDA $ADF5 0x01A8FC|$06:$A8EC:8D 9A 00 STA $009A 0x01A8FF|$06:$A8EF:A2 0D LDX #$0D ; control flow target (from $A908) 0x01A901|$06:$A8F1:A0 72 LDY #$72 0x01A903|$06:$A8F3:A9 00 LDA #$00 ; control flow target (from $A8F8) 0x01A905|$06:$A8F5:91 99 STA ($99),Y 0x01A907|$06:$A8F7:88 DEY 0x01A908|$06:$A8F8:10 FB BPL $A8F5 0x01A90A|$06:$A8FA:38 SEC 0x01A90B|$06:$A8FB:A5 99 LDA $99 0x01A90D|$06:$A8FD:E9 73 SBC #$73 0x01A90F|$06:$A8FF:85 99 STA $99 0x01A911|$06:$A901:A5 9A LDA $9A 0x01A913|$06:$A903:E9 00 SBC #$00 0x01A915|$06:$A905:85 9A STA $9A 0x01A917|$06:$A907:CA DEX 0x01A918|$06:$A908:D0 E7 BNE $A8F1 0x01A91A|$06:$A90A:A9 00 LDA #$00 0x01A91C|$06:$A90C:8D DA 75 STA $75DA ; bit field for which save game slots are filled 0x01A91F|$06:$A90F:A2 02 LDX #$02 0x01A921|$06:$A911:A9 FF LDA #$FF ; control flow target (from $A917) 0x01A923|$06:$A913:9D D7 75 STA $75D7,X ; save slot 1 status (write-only?) 0x01A926|$06:$A916:CA DEX 0x01A927|$06:$A917:10 FA BPL $A913 ; control flow target (from $A8E1) 0x01A929|$06:$A919:A2 05 LDX #$05 ; control flow target (from $A928) 0x01A92B|$06:$A91B:BD B9 AD LDA $ADB9,X 0x01A92E|$06:$A91E:9D FA 75 STA $75FA,X 0x01A931|$06:$A921:9D 01 60 STA $6001,X 0x01A934|$06:$A924:9D A7 61 STA $61A7,X 0x01A937|$06:$A927:CA DEX 0x01A938|$06:$A928:10 F1 BPL $A91B 0x01A93A|$06:$A92A:A9 00 LDA #$00 0x01A93C|$06:$A92C:8D DB 75 STA $75DB ; in game: current game save slot; out of game: various temporary game menu setup values ; control flow target (from $A973) 0x01A93F|$06:$A92F:AE DB 75 LDX $75DB ; in game: current game save slot; out of game: various temporary game menu setup values 0x01A942|$06:$A932:AD DA 75 LDA $75DA ; bit field for which save game slots are filled ; control flow target (from $A937) 0x01A945|$06:$A935:4A LSR 0x01A946|$06:$A936:CA DEX 0x01A947|$06:$A937:10 FC BPL $A935 0x01A949|$06:$A939:90 30 BCC $A96B 0x01A94B|$06:$A93B:20 44 AB JSR $AB44 ; copy current save game's data to save data buffer at $7000; CLC if data is valid, SEC if it's unrecoverable 0x01A94E|$06:$A93E:90 28 BCC $A968 0x01A950|$06:$A940:AE DB 75 LDX $75DB ; in game: current game save slot; out of game: various temporary game menu setup values 0x01A953|$06:$A943:A9 FD LDA #$FD 0x01A955|$06:$A945:9D D7 75 STA $75D7,X ; save slot 1 status (write-only?) 0x01A958|$06:$A948:E8 INX 0x01A959|$06:$A949:86 8F STX $8F 0x01A95B|$06:$A94B:A9 00 LDA #$00 0x01A95D|$06:$A94D:85 90 STA $90 0x01A95F|$06:$A94F:A9 04 LDA #$04 ; Menu ID #$04: Dialogue window 0x01A961|$06:$A951:20 93 A9 JSR $A993 ; open menu specified by A 0x01A964|$06:$A954:A9 0A LDA #$0A ; Music ID #$0A: cursed BGM ; call to code in a different bank ($0F:$C58D) 0x01A966|$06:$A956:20 8D C5 JSR $C58D ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]), wait for it to finish, then play previous BGM 0x01A969|$06:$A959:E6 8E INC $8E ; flag for in battle or not (#$FF)? 0x01A96B|$06:$A95B:A9 77 LDA #$77 ; String ID #$0077: [no voice]I'm afraid that[line][no voice]scenario [number] was not[line][no voice]recorded in the[line][no voice]Imperial Scrolls of[line][no voice]Honor.[end-FC] 0x01A96D|$06:$A95D:20 9B A9 JSR $A99B ; display string ID specified by A 0x01A970|$06:$A960:E6 8E INC $8E ; flag for in battle or not (#$FF)? 0x01A972|$06:$A962:20 76 A9 JSR $A976 ; wait for controller input 0x01A975|$06:$A965:20 EB AA JSR $AAEB ; control flow target (from $A93E) 0x01A978|$06:$A968:20 02 AA JSR $AA02 ; copy more data to second part of per-game save data ; control flow target (from $A939) 0x01A97B|$06:$A96B:EE DB 75 INC $75DB ; in game: current game save slot; out of game: various temporary game menu setup values 0x01A97E|$06:$A96E:AD DB 75 LDA $75DB ; in game: current game save slot; out of game: various temporary game menu setup values 0x01A981|$06:$A971:C9 03 CMP #$03 0x01A983|$06:$A973:90 BA BCC $A92F 0x01A985|$06:$A975:60 RTS ; wait for controller input ; control flow target (from $A962, $A97B) ; call to code in a different bank ($0F:$C476) 0x01A986|$06:$A976:20 76 C4 JSR $C476 ; read joypad 1 data into $2F 0x01A989|$06:$A979:A5 2F LDA $2F ; joypad 1 data 0x01A98B|$06:$A97B:F0 F9 BEQ $A976 ; wait for controller input 0x01A98D|$06:$A97D:60 RTS ; control flow target (from $A853) ; call to code in a different bank ($0F:$C42A) 0x01A98E|$06:$A97E:20 2A C4 JSR $C42A ; call to code in a different bank ($0F:$C446) 0x01A991|$06:$A981:20 46 C4 JSR $C446 ; turn screen off, write $800 [space] tiles to PPU $2000, turn screen on ; call to code in a different bank ($0F:$C1DC) 0x01A994|$06:$A984:20 DC C1 JSR $C1DC ; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF 0x01A997|$06:$A987:A9 80 LDA #$80 0x01A999|$06:$A989:8D 07 60 STA $6007 ; call to code in a different bank ($0F:$C41C) 0x01A99C|$06:$A98C:20 1C C4 JSR $C41C ; wait for interrupt, turn screen sprites and backround on ; call to code in a different bank ($0F:$D14F) 0x01A99F|$06:$A98F:20 4F D1 JSR $D14F 0x01A9A2|$06:$A992:60 RTS ; open menu specified by A ; control flow target (from $A861, $A87B, $A951, $A9C2, $AA76, $AAFE, $AB03, $AB1C) 0x01A9A3|$06:$A993:A2 06 LDX #$06 0x01A9A5|$06:$A995:86 94 STX $94 ; return bank for various function calls, doubles as index of selected option for multiple-choice menus ; call to code in a different bank ($0F:$EB89) 0x01A9A7|$06:$A997:20 89 EB JSR $EB89 ; open menu specified by A 0x01A9AA|$06:$A99A:60 RTS ; JMP > JSR + RTS ; display string ID specified by A ; control flow target (from $A871, $A876, $A95D) 0x01A9AB|$06:$A99B:A2 06 LDX #$06 0x01A9AD|$06:$A99D:86 94 STX $94 ; return bank for various function calls, doubles as index of selected option for multiple-choice menus ; call to code in a different bank ($0F:$FA4A) 0x01A9AF|$06:$A99F:20 4A FA JSR $FA4A ; display string ID specified by A 0x01A9B2|$06:$A9A2:60 RTS ; open apporpriate main game menu based on number of filled save slots, set $75DB = #$0A, #$05, or #$00 based on number of filled slots, return menu selection index in A ; control flow target (from $A856) 0x01A9B3|$06:$A9A3:A2 02 LDX #$02 0x01A9B5|$06:$A9A5:AD DA 75 LDA $75DA ; bit field for which save game slots are filled 0x01A9B8|$06:$A9A8:29 07 AND #$07 0x01A9BA|$06:$A9AA:F0 06 BEQ $A9B2 ; 0 slots filled => use X = #$02 0x01A9BC|$06:$A9AC:C9 07 CMP #$07 0x01A9BE|$06:$A9AE:D0 01 BNE $A9B1 ; 1-2 slots filled => use X = #$01 0x01A9C0|$06:$A9B0:CA DEX ; 3 slots filled => use X = #$00 ; control flow target (from $A9AE) 0x01A9C1|$06:$A9B1:CA DEX ; control flow target (from $A9AA) 0x01A9C2|$06:$A9B2:8A TXA 0x01A9C3|$06:$A9B3:8D DB 75 STA $75DB ; in game: current game save slot; out of game: various temporary game menu setup values; base index into main game menu handlers 0x01A9C6|$06:$A9B6:0A ASL 0x01A9C7|$06:$A9B7:0A ASL 0x01A9C8|$06:$A9B8:6D DB 75 ADC $75DB ; in game: current game save slot; out of game: various temporary game menu setup values; base index into main game menu handlers 0x01A9CB|$06:$A9BB:8D DB 75 STA $75DB ; in game: current game save slot; out of game: various temporary game menu setup values; base index into main game menu handlers 0x01A9CE|$06:$A9BE:8A TXA 0x01A9CF|$06:$A9BF:18 CLC 0x01A9D0|$06:$A9C0:69 32 ADC #$32 ; Menu ID #$32 - #$34: Game menu: 3, 1-2, or 0 saves 0x01A9D2|$06:$A9C2:20 93 A9 JSR $A993 ; open menu specified by A 0x01A9D5|$06:$A9C5:C9 FF CMP #$FF 0x01A9D7|$06:$A9C7:F0 01 BEQ $A9CA 0x01A9D9|$06:$A9C9:60 RTS ; control flow target (from $A9C7) 0x01A9DA|$06:$A9CA:68 PLA 0x01A9DB|$06:$A9CB:68 PLA 0x01A9DC|$06:$A9CC:4C 56 A8 JMP $A856 ; control flow target (from $A859) 0x01A9DF|$06:$A9CF:18 CLC 0x01A9E0|$06:$A9D0:6D DB 75 ADC $75DB ; in game: current game save slot; out of game: various temporary game menu setup values; base index into main game menu handlers 0x01A9E3|$06:$A9D3:AA TAX 0x01A9E4|$06:$A9D4:BD D7 AD LDA $ADD7,X ; index into jump table at $ADE2 0x01A9E7|$06:$A9D7:0A ASL 0x01A9E8|$06:$A9D8:AA TAX 0x01A9E9|$06:$A9D9:BD E2 AD LDA $ADE2,X ; jump table for main game menu handlers 0x01A9EC|$06:$A9DC:85 99 STA $99 0x01A9EE|$06:$A9DE:BD E3 AD LDA $ADE3,X 0x01A9F1|$06:$A9E1:85 9A STA $9A 0x01A9F3|$06:$A9E3:6C 99 00 JMP ($0099) 0x01A9F6|$06:$A9E6:A8 TAY 0x01A9F7|$06:$A9E7:A2 00 LDX #$00 0x01A9F9|$06:$A9E9:AD DA 75 LDA $75DA ; bit field for which save game slots are filled ; control flow target (from $A9EE, $A9F1) 0x01A9FC|$06:$A9EC:E8 INX 0x01A9FD|$06:$A9ED:4A LSR 0x01A9FE|$06:$A9EE:90 FC BCC $A9EC 0x01AA00|$06:$A9F0:88 DEY 0x01AA01|$06:$A9F1:10 F9 BPL $A9EC 0x01AA03|$06:$A9F3:CA DEX 0x01AA04|$06:$A9F4:8A TXA ; given save slot number in A, set $99-$9A to pointer to second part of save slot data ; control flow target (from $A88F, $A899, $A8AD, $A8B7, $AA05) 0x01AA05|$06:$A9F5:0A ASL 0x01AA06|$06:$A9F6:AA TAX 0x01AA07|$06:$A9F7:BD F6 AD LDA $ADF6,X 0x01AA0A|$06:$A9FA:85 99 STA $99 0x01AA0C|$06:$A9FC:BD F7 AD LDA $ADF7,X 0x01AA0F|$06:$A9FF:85 9A STA $9A 0x01AA11|$06:$AA01:60 RTS ; copy more data to second part of per-game save data ; control flow target (from $A968, $AB8C) 0x01AA12|$06:$AA02:AD DB 75 LDA $75DB ; in game: current game save slot; out of game: various temporary game menu setup values 0x01AA15|$06:$AA05:20 F5 A9 JSR $A9F5 ; given save slot number in A, set $99-$9A to pointer to second part of save slot data 0x01AA18|$06:$AA08:A0 09 LDY #$09 0x01AA1A|$06:$AA0A:AD 6F 70 LDA $706F ; current battle message delay, SRAM buffer 0x01AA1D|$06:$AA0D:91 99 STA ($99),Y 0x01AA1F|$06:$AA0F:88 DEY 0x01AA20|$06:$AA10:AD 26 70 LDA $7026 0x01AA23|$06:$AA13:91 99 STA ($99),Y 0x01AA25|$06:$AA15:A2 03 LDX #$03 ; control flow target (from $AA1E) 0x01AA27|$06:$AA17:88 DEY 0x01AA28|$06:$AA18:BD 63 70 LDA $7063,X ; party names, bytes 4-7, SRAM buffer 0x01AA2B|$06:$AA1B:91 99 STA ($99),Y 0x01AA2D|$06:$AA1D:CA DEX 0x01AA2E|$06:$AA1E:10 F7 BPL $AA17 0x01AA30|$06:$AA20:88 DEY ; control flow target (from $AA27) 0x01AA31|$06:$AA21:B9 09 70 LDA $7009,Y ; Midenhall name bytes 0-3, SRAM buffer 0x01AA34|$06:$AA24:91 99 STA ($99),Y 0x01AA36|$06:$AA26:88 DEY 0x01AA37|$06:$AA27:10 F8 BPL $AA21 0x01AA39|$06:$AA29:60 RTS ; mark save game slot specified by $75DB as filled ; control flow target (from $AAAE, $AAD3) 0x01AA3A|$06:$AA2A:38 SEC 0x01AA3B|$06:$AA2B:A9 00 LDA #$00 0x01AA3D|$06:$AA2D:AE DB 75 LDX $75DB ; in game: current game save slot; out of game: various temporary game menu setup values ; control flow target (from $AA32) 0x01AA40|$06:$AA30:2A ROL 0x01AA41|$06:$AA31:CA DEX 0x01AA42|$06:$AA32:10 FC BPL $AA30 ; keep shifting that 1 set bit until it's in the right position 0x01AA44|$06:$AA34:0D DA 75 ORA $75DA ; bit field for which save game slots are filled 0x01AA47|$06:$AA37:8D DA 75 STA $75DA ; bit field for which save game slots are filled 0x01AA4A|$06:$AA3A:60 RTS ; mark save game slot specified by $75DB as empty ; control flow target (from $AAEB) 0x01AA4B|$06:$AA3B:18 CLC 0x01AA4C|$06:$AA3C:A9 FF LDA #$FF 0x01AA4E|$06:$AA3E:AE DB 75 LDX $75DB ; in game: current game save slot; out of game: various temporary game menu setup values ; control flow target (from $AA43) 0x01AA51|$06:$AA41:2A ROL 0x01AA52|$06:$AA42:CA DEX 0x01AA53|$06:$AA43:10 FC BPL $AA41 ; keep shifting that 1 clear bit until it's in the right position 0x01AA55|$06:$AA45:2D DA 75 AND $75DA ; bit field for which save game slots are filled 0x01AA58|$06:$AA48:8D DA 75 STA $75DA ; bit field for which save game slots are filled 0x01AA5B|$06:$AA4B:60 RTS ; set $75D7,$75DB to #$FF (useless op?) ; control flow target (from $AAB1, $AAD6) 0x01AA5C|$06:$AA4C:A9 FF LDA #$FF 0x01AA5E|$06:$AA4E:AE DB 75 LDX $75DB ; in game: current game save slot; out of game: various temporary game menu setup values 0x01AA61|$06:$AA51:9D D7 75 STA $75D7,X ; save slot 1 status (write-only?) 0x01AA64|$06:$AA54:60 RTS ; CONTINUE A QUEST handler ; indirect control flow target (via $ADE2) 0x01AA65|$06:$AA55:20 0C AB JSR $AB0C ; display filled slots selection menu, set A/$75DB to selected slot 0x01AA68|$06:$AA58:20 44 AB JSR $AB44 ; copy current save game's data to save data buffer at $7000; CLC if data is valid, SEC if it's unrecoverable 0x01AA6B|$06:$AA5B:20 C7 AB JSR $ABC7 ; copy save data from save data buffer at $7000 to system RAM; update Don Mahone quest status if applicable ; control flow target (from $AABA) 0x01AA6E|$06:$AA5E:68 PLA 0x01AA6F|$06:$AA5F:68 PLA ; call to code in a different bank ($0F:$C577) 0x01AA70|$06:$AA60:20 77 C5 JSR $C577 ; set $6144 to #$05 0x01AA73|$06:$AA63:60 RTS ; CHANGE MESSAGE SPEED handler ; indirect control flow target (via $ADE4) 0x01AA74|$06:$AA64:20 0C AB JSR $AB0C ; display filled slots selection menu, set A/$75DB to selected slot 0x01AA77|$06:$AA67:20 44 AB JSR $AB44 ; copy current save game's data to save data buffer at $7000; CLC if data is valid, SEC if it's unrecoverable 0x01AA7A|$06:$AA6A:20 6E AA JSR $AA6E ; display Menu ID #$45: Game menu: select message speed, update message speed based on new selection 0x01AA7D|$06:$AA6D:60 RTS ; display Menu ID #$45: Game menu: select message speed, update message speed based on new selection ; control flow target (from $AA6A, $AAA9) 0x01AA7E|$06:$AA6E:AD 6F 70 LDA $706F ; current battle message delay, SRAM buffer 0x01AA81|$06:$AA71:8D 2C 06 STA $062C ; current battle message delay 0x01AA84|$06:$AA74:A9 45 LDA #$45 ; Menu ID #$45: Game menu: select message speed 0x01AA86|$06:$AA76:20 93 A9 JSR $A993 ; open menu specified by A 0x01AA89|$06:$AA79:C9 FF CMP #$FF 0x01AA8B|$06:$AA7B:F0 12 BEQ $AA8F ; pop JSR return address and RTS back to to display and handle main game menu 0x01AA8D|$06:$AA7D:AA TAX 0x01AA8E|$06:$AA7E:BD BF AD LDA $ADBF,X ; battle message delays (frames between prints; higher = slower) 0x01AA91|$06:$AA81:8D 6F 70 STA $706F ; current battle message delay, SRAM buffer 0x01AA94|$06:$AA84:8D 2C 06 STA $062C ; current battle message delay 0x01AA97|$06:$AA87:20 AD AC JSR $ACAD ; initialize the RNG based on 71 passes using SRAM data $7000-$7070 and save resulting seed to $7071-$7072 0x01AA9A|$06:$AA8A:20 87 AB JSR $AB87 ; copy data from SRAM buffer to per-game save data 0x01AA9D|$06:$AA8D:18 CLC 0x01AA9E|$06:$AA8E:60 RTS ; pop JSR return address and RTS back to to display and handle main game menu ; control flow target (from $AA7B) 0x01AA9F|$06:$AA8F:68 PLA 0x01AAA0|$06:$AA90:68 PLA 0x01AAA1|$06:$AA91:38 SEC 0x01AAA2|$06:$AA92:60 RTS ; BEGIN A NEW QUEST handler ; indirect control flow target (via $ADE6) 0x01AAA3|$06:$AA93:A9 00 LDA #$00 0x01AAA5|$06:$AA95:8D 70 70 STA $7070 ; ????, SRAM buffer 0x01AAA8|$06:$AA98:20 15 AB JSR $AB15 ; display empty slots selection menu, set A/$75DB to selected slot 0x01AAAB|$06:$AA9B:20 CD AC JSR $ACCD 0x01AAAE|$06:$AA9E:20 C0 AA JSR $AAC0 ; if $0100 is [space], pop JSR return address and RTS back to to display and handle main game menu 0x01AAB1|$06:$AAA1:A9 46 LDA #$46 ; NORMAL 0x01AAB3|$06:$AAA3:8D 2C 06 STA $062C ; current battle message delay 0x01AAB6|$06:$AAA6:8D 6F 70 STA $706F ; current battle message delay, SRAM buffer 0x01AAB9|$06:$AAA9:20 6E AA JSR $AA6E ; display Menu ID #$45: Game menu: select message speed, update message speed based on new selection 0x01AABC|$06:$AAAC:B0 0F BCS $AABD ; impossible branch; if $AA6E finishes with SEC, it also popped its return address, so control flow does not end up here 0x01AABE|$06:$AAAE:20 2A AA JSR $AA2A ; mark save game slot specified by $75DB as filled 0x01AAC1|$06:$AAB1:20 4C AA JSR $AA4C ; set $75D7,$75DB to #$FF (useless op?) 0x01AAC4|$06:$AAB4:20 AD AC JSR $ACAD ; initialize the RNG based on 71 passes using SRAM data $7000-$7070 and save resulting seed to $7071-$7072 0x01AAC7|$06:$AAB7:20 87 AB JSR $AB87 ; copy data from SRAM buffer to per-game save data 0x01AACA|$06:$AABA:4C 5E AA JMP $AA5E ; pop JSR return address and RTS back to to display and handle main game menu ; control flow target (from $AAAC) 0x01AACD|$06:$AABD:68 PLA 0x01AACE|$06:$AABE:68 PLA 0x01AACF|$06:$AABF:60 RTS ; if $0100 is [space], pop JSR return address and RTS back to to display and handle main game menu ; control flow target (from $AA9E) 0x01AAD0|$06:$AAC0:AD 00 01 LDA $0100 ; string copy buffer start (often referenced as $00FF,X) 0x01AAD3|$06:$AAC3:C9 5F CMP #$5F ; Tile ID #$5F: [space] 0x01AAD5|$06:$AAC5:D0 02 BNE $AAC9 0x01AAD7|$06:$AAC7:68 PLA 0x01AAD8|$06:$AAC8:68 PLA ; control flow target (from $AAC5) 0x01AAD9|$06:$AAC9:60 RTS ; COPY A QUEST handler ; indirect control flow target (via $ADE8) 0x01AADA|$06:$AACA:20 0C AB JSR $AB0C ; display filled slots selection menu, set A/$75DB to selected slot 0x01AADD|$06:$AACD:20 44 AB JSR $AB44 ; copy current save game's data to save data buffer at $7000; CLC if data is valid, SEC if it's unrecoverable 0x01AAE0|$06:$AAD0:20 15 AB JSR $AB15 ; display empty slots selection menu, set A/$75DB to selected slot 0x01AAE3|$06:$AAD3:20 2A AA JSR $AA2A ; mark save game slot specified by $75DB as filled 0x01AAE6|$06:$AAD6:20 4C AA JSR $AA4C ; set $75D7,$75DB to #$FF (useless op?) 0x01AAE9|$06:$AAD9:20 87 AB JSR $AB87 ; copy data from SRAM buffer to per-game save data 0x01AAEC|$06:$AADC:60 RTS ; ERASE A QUEST handler ; indirect control flow target (via $ADEA) 0x01AAED|$06:$AADD:20 0C AB JSR $AB0C ; display filled slots selection menu, set A/$75DB to selected slot 0x01AAF0|$06:$AAE0:20 FC AA JSR $AAFC ; display Menu ID #$43: Game menu: delete selected game and Menu ID #$19: General menu: YES/NO 0x01AAF3|$06:$AAE3:AE DB 75 LDX $75DB ; in game: current game save slot; out of game: various temporary game menu setup values 0x01AAF6|$06:$AAE6:A9 FE LDA #$FE 0x01AAF8|$06:$AAE8:9D D7 75 STA $75D7,X ; save slot 1 status (write-only?) ; control flow target (from $A965) 0x01AAFB|$06:$AAEB:20 3B AA JSR $AA3B ; mark save game slot specified by $75DB as empty 0x01AAFE|$06:$AAEE:A2 72 LDX #$72 ; fill save game buffer with #$00 0x01AB00|$06:$AAF0:A9 00 LDA #$00 ; control flow target (from $AAF6) 0x01AB02|$06:$AAF2:9D 00 70 STA $7000,X ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4), SRAM buffer 0x01AB05|$06:$AAF5:CA DEX 0x01AB06|$06:$AAF6:10 FA BPL $AAF2 0x01AB08|$06:$AAF8:20 87 AB JSR $AB87 ; copy data from SRAM buffer to per-game save data 0x01AB0B|$06:$AAFB:60 RTS ; display Menu ID #$43: Game menu: delete selected game and Menu ID #$19: General menu: YES/NO ; control flow target (from $AAE0) 0x01AB0C|$06:$AAFC:A9 43 LDA #$43 ; Menu ID #$43: Game menu: delete selected game 0x01AB0E|$06:$AAFE:20 93 A9 JSR $A993 ; open menu specified by A 0x01AB11|$06:$AB01:A9 19 LDA #$19 ; Menu ID #$19: General menu: YES/NO 0x01AB13|$06:$AB03:20 93 A9 JSR $A993 ; open menu specified by A 0x01AB16|$06:$AB06:AA TAX ; if NO, pop JSR return address and RTS back to to display and handle main game menu 0x01AB17|$06:$AB07:F0 02 BEQ $AB0B 0x01AB19|$06:$AB09:68 PLA 0x01AB1A|$06:$AB0A:68 PLA ; control flow target (from $AB07) 0x01AB1B|$06:$AB0B:60 RTS ; display filled slots selection menu, set A/$75DB to selected slot ; control flow target (from $AA55, $AA64, $AACA, $AADD) 0x01AB1C|$06:$AB0C:A9 00 LDA #$00 ; get index for filled slots 0x01AB1E|$06:$AB0E:20 32 AB JSR $AB32 ; set A to offset of appropriate save slot selection menu: A = #$00 gets index for filled slots, A = #$FF gets index for empty slots; also sets $75DB to offset for corresponding current slot lut 0x01AB21|$06:$AB11:69 3C ADC #$3C ; base menu ID 0x01AB23|$06:$AB13:D0 07 BNE $AB1C ; display empty slots selection menu, set A/$75DB to selected slot ; control flow target (from $AA98, $AAD0) 0x01AB25|$06:$AB15:A9 FF LDA #$FF ; get index for empty slots 0x01AB27|$06:$AB17:20 32 AB JSR $AB32 ; set A to offset of appropriate save slot selection menu: A = #$00 gets index for filled slots, A = #$FF gets index for empty slots; also sets $75DB to offset for corresponding current slot lut 0x01AB2A|$06:$AB1A:69 35 ADC #$35 ; base menu ID ; control flow target (from $AB13) 0x01AB2C|$06:$AB1C:20 93 A9 JSR $A993 ; open menu specified by A 0x01AB2F|$06:$AB1F:C9 FF CMP #$FF 0x01AB31|$06:$AB21:F0 0C BEQ $AB2F ; pop JSR return address and RTS back to to display and handle main game menu 0x01AB33|$06:$AB23:18 CLC 0x01AB34|$06:$AB24:6D DB 75 ADC $75DB ; in game: current game save slot; out of game: various temporary game menu setup values; offset for current slot lookup table 0x01AB37|$06:$AB27:AA TAX 0x01AB38|$06:$AB28:BD C2 AD LDA $ADC2,X ; lookup table for save game slot based on save game slot selection type + menu selection index 0x01AB3B|$06:$AB2B:8D DB 75 STA $75DB ; in game: current game save slot; out of game: various temporary game menu setup values 0x01AB3E|$06:$AB2E:60 RTS ; pop JSR return address and RTS back to to display and handle main game menu ; control flow target (from $AB21) 0x01AB3F|$06:$AB2F:68 PLA 0x01AB40|$06:$AB30:68 PLA 0x01AB41|$06:$AB31:60 RTS ; set A to offset of appropriate save slot selection menu: A = #$00 gets index for filled slots, A = #$FF gets index for empty slots; also sets $75DB to offset for corresponding current slot lut ; control flow target (from $AB0E, $AB17) 0x01AB42|$06:$AB32:4D DA 75 EOR $75DA ; bit field for which save game slots are filled 0x01AB45|$06:$AB35:29 07 AND #$07 ; 3 save slots 0x01AB47|$06:$AB37:AA TAX 0x01AB48|$06:$AB38:CA DEX 0x01AB49|$06:$AB39:8A TXA 0x01AB4A|$06:$AB3A:85 99 STA $99 0x01AB4C|$06:$AB3C:0A ASL 0x01AB4D|$06:$AB3D:65 99 ADC $99 0x01AB4F|$06:$AB3F:8D DB 75 STA $75DB ; in game: current game save slot; out of game: various temporary game menu setup values 0x01AB52|$06:$AB42:8A TXA 0x01AB53|$06:$AB43:60 RTS ; copy current save game's data to save data buffer at $7000; CLC if data is valid, SEC if it's unrecoverable ; control flow target (from $A93B, $AA58, $AA67, $AACD) 0x01AB54|$06:$AB44:20 90 AB JSR $AB90 ; set $99-$9A to pointer to current game's save slot, $9B-$9C to pointer to save data buffer at $7000 0x01AB57|$06:$AB47:A2 00 LDX #$00 ; save data copy number ; control flow target (from $AB7B) 0x01AB59|$06:$AB49:A0 72 LDY #$72 ; copy #$73 bytes of data from current game's save slot to save data buffer at $7000 ; control flow target (from $AB50) 0x01AB5B|$06:$AB4B:B1 99 LDA ($99),Y 0x01AB5D|$06:$AB4D:91 9B STA ($9B),Y 0x01AB5F|$06:$AB4F:88 DEY 0x01AB60|$06:$AB50:10 F9 BPL $AB4B 0x01AB62|$06:$AB52:98 TYA ; save Y and X on the stack 0x01AB63|$06:$AB53:48 PHA 0x01AB64|$06:$AB54:8A TXA 0x01AB65|$06:$AB55:48 PHA 0x01AB66|$06:$AB56:20 BB AC JSR $ACBB ; initialize the RNG based on 71 passes using SRAM data $7000-$7070 0x01AB69|$06:$AB59:68 PLA ; restore X and Y from the stack 0x01AB6A|$06:$AB5A:AA TAX 0x01AB6B|$06:$AB5B:68 PLA 0x01AB6C|$06:$AB5C:A8 TAY 0x01AB6D|$06:$AB5D:AD 71 70 LDA $7071 ; RNG byte 0, SRAM buffer 0x01AB70|$06:$AB60:C5 32 CMP $32 ; RNG byte 0 0x01AB72|$06:$AB62:D0 07 BNE $AB6B ; save data corrupted! 0x01AB74|$06:$AB64:AD 72 70 LDA $7072 ; RNG byte 1, SRAM buffer 0x01AB77|$06:$AB67:C5 33 CMP $33 ; RNG byte 1 0x01AB79|$06:$AB69:F0 14 BEQ $AB7F ; save data valid! ; save data corrupted! ; control flow target (from $AB62) 0x01AB7B|$06:$AB6B:18 CLC ; add #$159 (i.e. #$73 * 3) to $99-$9A 0x01AB7C|$06:$AB6C:A9 59 LDA #$59 0x01AB7E|$06:$AB6E:65 99 ADC $99 0x01AB80|$06:$AB70:85 99 STA $99 0x01AB82|$06:$AB72:A9 01 LDA #$01 0x01AB84|$06:$AB74:65 9A ADC $9A 0x01AB86|$06:$AB76:85 9A STA $9A 0x01AB88|$06:$AB78:E8 INX ; save data copy number 0x01AB89|$06:$AB79:E0 04 CPX #$04 ; there are 4 copies of save data 0x01AB8B|$06:$AB7B:D0 CC BNE $AB49 0x01AB8D|$06:$AB7D:38 SEC ; flag data as unrecoverable :( 0x01AB8E|$06:$AB7E:60 RTS ; save data valid! ; control flow target (from $AB69) 0x01AB8F|$06:$AB7F:8A TXA 0x01AB90|$06:$AB80:F0 03 BEQ $AB85 ; if first save data copy was bad, update all copies with good data 0x01AB92|$06:$AB82:20 AA AB JSR $ABAA ; copy save data from save data buffer to current game's save slot, making X copies of the data spaced 3 saves slots away ; control flow target (from $AB80) 0x01AB95|$06:$AB85:18 CLC ; flag data as valid 0x01AB96|$06:$AB86:60 RTS ; copy data from SRAM buffer to per-game save data ; control flow target (from $A88B, $AA8A, $AAB7, $AAD9, $AAF8) 0x01AB97|$06:$AB87:A2 04 LDX #$04 ; make 4 copies of save data 0x01AB99|$06:$AB89:20 AA AB JSR $ABAA ; copy save data from save data buffer to current game's save slot, making X copies of the data spaced 3 saves slots away 0x01AB9C|$06:$AB8C:20 02 AA JSR $AA02 ; copy more data to second part of per-game save data 0x01AB9F|$06:$AB8F:60 RTS ; set $99-$9A to pointer to current game's save slot, $9B-$9C to pointer to save data buffer at $7000 ; control flow target (from $AB44, $ABAA) 0x01ABA0|$06:$AB90:AD DB 75 LDA $75DB ; in game: current game save slot; out of game: various temporary game menu setup values 0x01ABA3|$06:$AB93:0A ASL 0x01ABA4|$06:$AB94:A8 TAY 0x01ABA5|$06:$AB95:B9 EE AD LDA $ADEE,Y ; pointers to start of per-game save data 0x01ABA8|$06:$AB98:85 99 STA $99 0x01ABAA|$06:$AB9A:B9 EF AD LDA $ADEF,Y 0x01ABAD|$06:$AB9D:85 9A STA $9A 0x01ABAF|$06:$AB9F:AD EC AD LDA $ADEC ; pointer to start of current game save data buffer 0x01ABB2|$06:$ABA2:85 9B STA $9B 0x01ABB4|$06:$ABA4:AD ED AD LDA $ADED 0x01ABB7|$06:$ABA7:85 9C STA $9C 0x01ABB9|$06:$ABA9:60 RTS ; copy save data from save data buffer to current game's save slot, making X copies of the data spaced 3 saves slots away ; control flow target (from $AB82, $AB89) 0x01ABBA|$06:$ABAA:20 90 AB JSR $AB90 ; set $99-$9A to pointer to current game's save slot, $9B-$9C to pointer to save data buffer at $7000 ; control flow target (from $ABC4) 0x01ABBD|$06:$ABAD:A0 72 LDY #$72 ; control flow target (from $ABB4) 0x01ABBF|$06:$ABAF:B1 9B LDA ($9B),Y 0x01ABC1|$06:$ABB1:91 99 STA ($99),Y 0x01ABC3|$06:$ABB3:88 DEY 0x01ABC4|$06:$ABB4:10 F9 BPL $ABAF 0x01ABC6|$06:$ABB6:18 CLC ; add #$72 * 3 = #$0159 to write address $99-$9A 0x01ABC7|$06:$ABB7:A9 59 LDA #$59 0x01ABC9|$06:$ABB9:65 99 ADC $99 0x01ABCB|$06:$ABBB:85 99 STA $99 0x01ABCD|$06:$ABBD:A9 01 LDA #$01 0x01ABCF|$06:$ABBF:65 9A ADC $9A 0x01ABD1|$06:$ABC1:85 9A STA $9A 0x01ABD3|$06:$ABC3:CA DEX 0x01ABD4|$06:$ABC4:D0 E7 BNE $ABAD ; make X copies of the save data 0x01ABD6|$06:$ABC6:60 RTS ; copy save data from save data buffer at $7000 to system RAM; update Don Mahone quest status if applicable ; from $0F:$C6F9 via $8006 ; control flow target (from $AA5B) ; indirect control flow target (via $8006) 0x01ABD7|$06:$ABC7:AD 00 70 LDA $7000 ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4), SRAM buffer 0x01ABDA|$06:$ABCA:85 CA STA $CA ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4) 0x01ABDC|$06:$ABCC:AD 01 70 LDA $7001 ; Don Mahone quest status (#$00 = not started, #$01 = ingredients delivered, #$03 = game loaded after ingredients delivered), SRAM buffer 0x01ABDF|$06:$ABCF:F0 02 BEQ $ABD3 0x01ABE1|$06:$ABD1:A9 03 LDA #$03 ; control flow target (from $ABCF) 0x01ABE3|$06:$ABD3:85 CD STA $CD ; Don Mahone quest status (#$00 = not started, #$01 = ingredients delivered, #$03 = game loaded after ingredients delivered) 0x01ABE5|$06:$ABD5:AD 02 70 LDA $7002 ; Tuhn Watergate open flag (#$00 = closed, #$01 = open), SRAM buffer 0x01ABE8|$06:$ABD8:85 CE STA $CE ; Tuhn Watergate open flag (#$00 = closed, #$01 = open) 0x01ABEA|$06:$ABDA:AD 03 70 LDA $7003 ; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins) 0x01ABED|$06:$ABDD:85 CF STA $CF ; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins) 0x01ABEF|$06:$ABDF:AD 04 70 LDA $7004 ; Sea Cave shoal status (#$00 = shoals up, others = shoals down), SRAM buffer 0x01ABF2|$06:$ABE2:8D F8 05 STA $05F8 ; Sea Cave shoal status (#$00 = shoals up, others = shoals down) 0x01ABF5|$06:$ABE5:AD 05 70 LDA $7005 ; Crests found bit field, SRAM buffer 0x01ABF8|$06:$ABE8:8D 12 01 STA $0112 ; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun) 0x01ABFB|$06:$ABEB:AD 06 70 LDA $7006 ; last save point ID, SRAM buffer 0x01ABFE|$06:$ABEE:8D 48 00 STA $0048 ; last save point ID 0x01AC01|$06:$ABF1:AD 07 70 LDA $7007 ; party gold, low byte, SRAM buffer 0x01AC04|$06:$ABF4:8D 24 06 STA $0624 ; party gold, low byte 0x01AC07|$06:$ABF7:AD 08 70 LDA $7008 ; party gold, high byte, SRAM buffer 0x01AC0A|$06:$ABFA:8D 25 06 STA $0625 ; party gold, high byte 0x01AC0D|$06:$ABFD:A2 35 LDX #$35 ; control flow target (from $AC06) 0x01AC0F|$06:$ABFF:BD 15 70 LDA $7015,X ; hero data from $062D, SRAM buffer 0x01AC12|$06:$AC02:9D 2D 06 STA $062D,X ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x01AC15|$06:$AC05:CA DEX 0x01AC16|$06:$AC06:10 F7 BPL $ABFF 0x01AC18|$06:$AC08:A2 17 LDX #$17 ; control flow target (from $AC11) 0x01AC1A|$06:$AC0A:BD 4B 70 LDA $704B,X ; party inventory, SRAM buffer 0x01AC1D|$06:$AC0D:9D 00 06 STA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped) 0x01AC20|$06:$AC10:CA DEX 0x01AC21|$06:$AC11:10 F7 BPL $AC0A 0x01AC23|$06:$AC13:A2 03 LDX #$03 ; control flow target (from $AC28) 0x01AC25|$06:$AC15:BD 09 70 LDA $7009,X ; Midenhall name bytes 0-3, SRAM buffer 0x01AC28|$06:$AC18:9D 13 01 STA $0113,X ; Midenhall name bytes 0-3 + terminator 0x01AC2B|$06:$AC1B:BD 0D 70 LDA $700D,X ; Cannock name bytes 0-3, SRAM buffer 0x01AC2E|$06:$AC1E:9D 18 01 STA $0118,X ; Cannock name bytes 0-3 + terminator 0x01AC31|$06:$AC21:BD 11 70 LDA $7011,X ; Moonbrooke name bytes 0-3, SRAM buffer 0x01AC34|$06:$AC24:9D 1D 01 STA $011D,X ; Moonbrooke name bytes 0-3 + terminator 0x01AC37|$06:$AC27:CA DEX 0x01AC38|$06:$AC28:10 EB BPL $AC15 0x01AC3A|$06:$AC2A:A2 0B LDX #$0B ; control flow target (from $AC33) 0x01AC3C|$06:$AC2C:BD 63 70 LDA $7063,X ; party names, bytes 4-7, SRAM buffer 0x01AC3F|$06:$AC2F:9D 86 01 STA $0186,X ; Midenhall name bytes 4-7 0x01AC42|$06:$AC32:CA DEX 0x01AC43|$06:$AC33:10 F7 BPL $AC2C 0x01AC45|$06:$AC35:AD 6F 70 LDA $706F ; current battle message delay, SRAM buffer 0x01AC48|$06:$AC38:8D 2C 06 STA $062C ; current battle message delay 0x01AC4B|$06:$AC3B:60 RTS ; copy save data from system RAM to $7000-$706F ; control flow target (from $A885) 0x01AC4C|$06:$AC3C:A5 CA LDA $CA ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4) 0x01AC4E|$06:$AC3E:8D 00 70 STA $7000 ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4), SRAM buffer 0x01AC51|$06:$AC41:A5 CD LDA $CD ; Don Mahone quest status (#$00 = not started, #$01 = ingredients delivered, #$03 = game loaded after ingredients delivered) 0x01AC53|$06:$AC43:8D 01 70 STA $7001 ; Don Mahone quest status (#$00 = not started, #$01 = ingredients delivered, #$03 = game loaded after ingredients delivered), SRAM buffer 0x01AC56|$06:$AC46:A5 CE LDA $CE ; Tuhn Watergate open flag (#$00 = closed, #$01 = open) 0x01AC58|$06:$AC48:8D 02 70 STA $7002 ; Tuhn Watergate open flag (#$00 = closed, #$01 = open), SRAM buffer 0x01AC5B|$06:$AC4B:A5 CF LDA $CF ; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins) 0x01AC5D|$06:$AC4D:8D 03 70 STA $7003 ; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins) 0x01AC60|$06:$AC50:AD F8 05 LDA $05F8 ; Sea Cave shoal status (#$00 = shoals up, others = shoals down) 0x01AC63|$06:$AC53:8D 04 70 STA $7004 ; Sea Cave shoal status (#$00 = shoals up, others = shoals down), SRAM buffer 0x01AC66|$06:$AC56:AD 12 01 LDA $0112 ; Crests found bit field (#$10 = Life, #$80 = Water, #$04 = Moon, #$02 = Stars, #$01 = Sun) 0x01AC69|$06:$AC59:8D 05 70 STA $7005 ; Crests found bit field, SRAM buffer 0x01AC6C|$06:$AC5C:AD 48 00 LDA $0048 ; last save point ID 0x01AC6F|$06:$AC5F:8D 06 70 STA $7006 ; last save point ID, SRAM buffer 0x01AC72|$06:$AC62:AD 24 06 LDA $0624 ; party gold, low byte 0x01AC75|$06:$AC65:8D 07 70 STA $7007 ; party gold, low byte, SRAM buffer 0x01AC78|$06:$AC68:AD 25 06 LDA $0625 ; party gold, high byte 0x01AC7B|$06:$AC6B:8D 08 70 STA $7008 ; party gold, high byte, SRAM buffer 0x01AC7E|$06:$AC6E:A2 35 LDX #$35 ; control flow target (from $AC77) 0x01AC80|$06:$AC70:BD 2D 06 LDA $062D,X ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x01AC83|$06:$AC73:9D 15 70 STA $7015,X ; hero data from $062D, SRAM buffer 0x01AC86|$06:$AC76:CA DEX 0x01AC87|$06:$AC77:10 F7 BPL $AC70 0x01AC89|$06:$AC79:A2 17 LDX #$17 ; control flow target (from $AC82) 0x01AC8B|$06:$AC7B:BD 00 06 LDA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped) 0x01AC8E|$06:$AC7E:9D 4B 70 STA $704B,X ; party inventory, SRAM buffer 0x01AC91|$06:$AC81:CA DEX 0x01AC92|$06:$AC82:10 F7 BPL $AC7B 0x01AC94|$06:$AC84:A2 03 LDX #$03 ; control flow target (from $AC99) 0x01AC96|$06:$AC86:BD 13 01 LDA $0113,X ; Midenhall name bytes 0-3 + terminator 0x01AC99|$06:$AC89:9D 09 70 STA $7009,X ; Midenhall name bytes 0-3, SRAM buffer 0x01AC9C|$06:$AC8C:BD 18 01 LDA $0118,X ; Cannock name bytes 0-3 + terminator 0x01AC9F|$06:$AC8F:9D 0D 70 STA $700D,X ; Cannock name bytes 0-3, SRAM buffer 0x01ACA2|$06:$AC92:BD 1D 01 LDA $011D,X ; Moonbrooke name bytes 0-3 + terminator 0x01ACA5|$06:$AC95:9D 11 70 STA $7011,X ; Moonbrooke name bytes 0-3, SRAM buffer 0x01ACA8|$06:$AC98:CA DEX 0x01ACA9|$06:$AC99:10 EB BPL $AC86 0x01ACAB|$06:$AC9B:A2 0B LDX #$0B ; control flow target (from $ACA4) 0x01ACAD|$06:$AC9D:BD 86 01 LDA $0186,X ; Midenhall name bytes 4-7 0x01ACB0|$06:$ACA0:9D 63 70 STA $7063,X ; party names, bytes 4-7, SRAM buffer 0x01ACB3|$06:$ACA3:CA DEX 0x01ACB4|$06:$ACA4:10 F7 BPL $AC9D 0x01ACB6|$06:$ACA6:AD 2C 06 LDA $062C ; current battle message delay 0x01ACB9|$06:$ACA9:8D 6F 70 STA $706F ; current battle message delay, SRAM buffer 0x01ACBC|$06:$ACAC:60 RTS ; initialize the RNG based on 71 passes using SRAM data $7000-$7070 and save resulting seed to $7071-$7072 ; control flow target (from $A888, $AA87, $AAB4) 0x01ACBD|$06:$ACAD:20 BB AC JSR $ACBB ; initialize the RNG based on 71 passes using SRAM data $7000-$7070 0x01ACC0|$06:$ACB0:A5 32 LDA $32 ; RNG byte 0 0x01ACC2|$06:$ACB2:8D 71 70 STA $7071 ; RNG byte 0, SRAM buffer 0x01ACC5|$06:$ACB5:A5 33 LDA $33 ; RNG byte 1 0x01ACC7|$06:$ACB7:8D 72 70 STA $7072 ; RNG byte 1, SRAM buffer 0x01ACCA|$06:$ACBA:60 RTS ; initialize the RNG based on 71 passes using SRAM data $7000-$7070 ; control flow target (from $AB56, $ACAD) 0x01ACCB|$06:$ACBB:A2 70 LDX #$70 0x01ACCD|$06:$ACBD:86 32 STX $32 ; RNG byte 0 0x01ACCF|$06:$ACBF:86 33 STX $33 ; RNG byte 1 ; control flow target (from $ACCA) 0x01ACD1|$06:$ACC1:BD 00 70 LDA $7000,X ; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4), SRAM buffer 0x01ACD4|$06:$ACC4:85 0C STA $0C ; call to code in a different bank ($0F:$C3B6) 0x01ACD6|$06:$ACC6:20 B6 C3 JSR $C3B6 ; generate a random number and store it in $32-$33 (one pass) 0x01ACD9|$06:$ACC9:CA DEX 0x01ACDA|$06:$ACCA:10 F5 BPL $ACC1 0x01ACDC|$06:$ACCC:60 RTS ; control flow target (from $AA9B) 0x01ACDD|$06:$ACCD:20 86 AE JSR $AE86 0x01ACE0|$06:$ACD0:A2 03 LDX #$03 ; save Midenhall's name ; control flow target (from $ACE5) 0x01ACE2|$06:$ACD2:BD 04 01 LDA $0104,X 0x01ACE5|$06:$ACD5:9D 63 70 STA $7063,X ; party names, bytes 4-7, SRAM buffer 0x01ACE8|$06:$ACD8:9D 86 01 STA $0186,X ; Midenhall name bytes 4-7 0x01ACEB|$06:$ACDB:BD 00 01 LDA $0100,X ; string copy buffer start (often referenced as $00FF,X) 0x01ACEE|$06:$ACDE:9D 09 70 STA $7009,X ; Midenhall name bytes 0-3, SRAM buffer 0x01ACF1|$06:$ACE1:9D 13 01 STA $0113,X ; Midenhall name bytes 0-3 + terminator 0x01ACF4|$06:$ACE4:CA DEX 0x01ACF5|$06:$ACE5:10 EB BPL $ACD2 0x01ACF7|$06:$ACE7:20 EB AC JSR $ACEB ; generate and save Cannock/Moonbrooke's names 0x01ACFA|$06:$ACEA:60 RTS ; generate and save Cannock/Moonbrooke's names ; control flow target (from $ACE7) 0x01ACFB|$06:$ACEB:A9 00 LDA #$00 0x01ACFD|$06:$ACED:A2 03 LDX #$03 0x01ACFF|$06:$ACEF:18 CLC ; control flow target (from $ACF7) 0x01AD00|$06:$ACF0:7D 09 70 ADC $7009,X ; Midenhall name bytes 0-3, SRAM buffer; first 4 characters of Midenhall's name 0x01AD03|$06:$ACF3:7D 63 70 ADC $7063,X ; party names, bytes 4-7, SRAM buffer; last 4 characters of Midenhall's name 0x01AD06|$06:$ACF6:CA DEX 0x01AD07|$06:$ACF7:10 F7 BPL $ACF0 0x01AD09|$06:$ACF9:48 PHA 0x01AD0A|$06:$ACFA:29 07 AND #$07 ; Cannock's name is based on bits 0-2 of the sum of Midenhall's name 0x01AD0C|$06:$ACFC:0A ASL ; << 3 since names are 8 bytes long 0x01AD0D|$06:$ACFD:0A ASL 0x01AD0E|$06:$ACFE:0A ASL 0x01AD0F|$06:$ACFF:AA TAX 0x01AD10|$06:$AD00:A0 00 LDY #$00 ; save Cannock's name ; control flow target (from $AD18) 0x01AD12|$06:$AD02:BD 39 AD LDA $AD39,X ; Prince of Cannock Names, first 4 bytes; pointer to list of Cannock names, starting at 0th byte 0x01AD15|$06:$AD05:99 0D 70 STA $700D,Y ; Cannock name bytes 0-3, SRAM buffer; store the first 4 characters in SRAM 0x01AD18|$06:$AD08:99 18 01 STA $0118,Y ; Cannock name bytes 0-3 + terminator; store the first 4 characters in RAM 0x01AD1B|$06:$AD0B:BD 3D AD LDA $AD3D,X ; Prince of Cannock Names, last 4 bytes; pointer to list of Cannock names, starting at 4th byte 0x01AD1E|$06:$AD0E:99 67 70 STA $7067,Y ; store the last 4 characters in SRAM 0x01AD21|$06:$AD11:99 8A 01 STA $018A,Y ; Cannock name bytes 4-7; store the last 4 characters in RAM 0x01AD24|$06:$AD14:E8 INX 0x01AD25|$06:$AD15:C8 INY 0x01AD26|$06:$AD16:C0 04 CPY #$04 0x01AD28|$06:$AD18:D0 E8 BNE $AD02 0x01AD2A|$06:$AD1A:68 PLA 0x01AD2B|$06:$AD1B:29 38 AND #$38 ; Moonbrooke's name is based on bits 3-6 of the sum of Midenhall's name 0x01AD2D|$06:$AD1D:AA TAX 0x01AD2E|$06:$AD1E:A0 00 LDY #$00 ; save Moonbrooke's name ; control flow target (from $AD36) 0x01AD30|$06:$AD20:BD 79 AD LDA $AD79,X ; Princess of Moonbrooke Names, first 4 bytes; pointer to list of Moonbrooke names, starting at 0th byte 0x01AD33|$06:$AD23:99 11 70 STA $7011,Y ; Moonbrooke name bytes 0-3, SRAM buffer; store the first 4 characters in SRAM 0x01AD36|$06:$AD26:99 1D 01 STA $011D,Y ; Moonbrooke name bytes 0-3 + terminator; store the first 4 characters in RAM 0x01AD39|$06:$AD29:BD 7D AD LDA $AD7D,X ; Princess of Moonbrooke Names, last 4 bytes; pointer to list of Moonbrooke names, starting at 0th byte 0x01AD3C|$06:$AD2C:99 6B 70 STA $706B,Y ; store the last 4 characters in SRAM 0x01AD3F|$06:$AD2F:99 8E 01 STA $018E,Y ; Moonbrooke name bytes 4-7; store the last 4 characters in RAM 0x01AD42|$06:$AD32:E8 INX 0x01AD43|$06:$AD33:C8 INY 0x01AD44|$06:$AD34:C0 04 CPY #$04 0x01AD46|$06:$AD36:D0 E8 BNE $AD20 0x01AD48|$06:$AD38:60 RTS ; code -> data ; Prince of Cannock Names, first 4 bytes ; indexed data load target (from $AD02) 0x01AD49|$06:$AD39:25 1B 0A 17 ; Prince of Cannock Names, last 4 bytes ; indexed data load target (from $AD0B) 0x01AD4D|$06:$AD3D: 5F 5F 5F 5F ; "Bran " 0x01AD51|$06:$AD41:2A 15 22 17 17 5F 5F 5F ; "Glynn " 0x01AD59|$06:$AD49:37 0A 15 12 17 1D 5F 5F ; "Talint " 0x01AD61|$06:$AD51:31 1E 16 18 1B 5F 5F 5F ; "Numor " 0x01AD69|$06:$AD59:2F 0A 1B 1C 5F 5F 5F 5F ; "Lars " 0x01AD71|$06:$AD61:32 1B 0F 0E 18 5F 5F 5F ; "Orfeo " 0x01AD79|$06:$AD69:24 1B 1D 11 18 5F 5F 5F ; "Artho " 0x01AD81|$06:$AD71:28 1C 10 0A 1B 5F 5F 5F ; "Esgar " ; Princess of Moonbrooke Names, first 4 bytes ; indexed data load target (from $AD20) 0x01AD89|$06:$AD79:39 0A 1B 12 ; Princess of Moonbrooke Names, last 4 bytes ; indexed data load target (from $AD29) 0x01AD8D|$06:$AD7D: 0A 5F 5F 5F ; "Varia " 0x01AD91|$06:$AD81:28 15 0A 17 12 5F 5F 5F ; "Elani " 0x01AD99|$06:$AD89:32 15 15 12 1C 0A 5F 5F ; "Ollisa " 0x01ADA1|$06:$AD91:35 18 23 5F 5F 5F 5F 5F ; "Roz " 0x01ADA9|$06:$AD99:2E 0A 12 15 12 17 5F 5F ; "Kailin " 0x01ADB1|$06:$ADA1:33 0E 1D 0A 5F 5F 5F 5F ; "Peta " 0x01ADB9|$06:$ADA9:2C 15 15 22 1D 11 5F 5F ; "Illyth " 0x01ADC1|$06:$ADB1:2A 20 0E 17 5F 5F 5F 5F ; "Gwen " ; indexed data load target (from $A8CC, $A91B) 0x01ADC9|$06:$ADB9:44 51 32 55 53 41 ; battle message delays (frames between prints; higher = slower) ; indexed data load target (from $AA7E) 0x01ADCF|$06:$ADBF:28 ; 40 frames 0x01ADD0|$06:$ADC0:46 ; 70 frames 0x01ADD1|$06:$ADC1:FF ; 255 frames ; lookup table for save game slot based on save game slot selection type + menu selection index ; only slot 0 ; indexed data load target (from $AB28) 0x01ADD2|$06:$ADC2:00 ; slot 0 0x01ADD3|$06:$ADC3:00 ; (impossible) 0x01ADD4|$06:$ADC4:00 ; (impossible) ; only slot 1 0x01ADD5|$06:$ADC5:01 ; slot 1 0x01ADD6|$06:$ADC6:00 ; (impossible) 0x01ADD7|$06:$ADC7:00 ; (impossible) ; slots 0 and 1 0x01ADD8|$06:$ADC8:00 ; slot 0 0x01ADD9|$06:$ADC9:01 ; slot 1 0x01ADDA|$06:$ADCA:00 ; (impossible) ; only slot 2 0x01ADDB|$06:$ADCB:02 ; slot 2 0x01ADDC|$06:$ADCC:00 ; (impossible) 0x01ADDD|$06:$ADCD:00 ; (impossible) ; slots 0 and 2 0x01ADDE|$06:$ADCE:00 ; slot 0 0x01ADDF|$06:$ADCF:02 ; slot 2 0x01ADE0|$06:$ADD0:00 ; (impossible) ; slots 1 and 2 0x01ADE1|$06:$ADD1:01 ; slot 1 0x01ADE2|$06:$ADD2:02 ; slot 2 0x01ADE3|$06:$ADD3:00 ; (impossible) ; all 3 slots 0x01ADE4|$06:$ADD4:00 ; slot 0 0x01ADE5|$06:$ADD5:01 ; slot 1 0x01ADE6|$06:$ADD6:02 ; slot 2 ; index into jump table at $ADE2 ; indexed data load target (from $A9D4) 0x01ADE7|$06:$ADD7:00 ; CONTINUE A QUEST 0x01ADE8|$06:$ADD8:01 ; CHANGE MESSAGE SPEED 0x01ADE9|$06:$ADD9:04 ; ERASE A QUEST 0x01ADEA|$06:$ADDA:00 ; (impossible) 0x01ADEB|$06:$ADDB:00 ; (impossible) 0x01ADEC|$06:$ADDC:00 ; CONTINUE A QUEST 0x01ADED|$06:$ADDD:01 ; CHANGE MESSAGE SPEED 0x01ADEE|$06:$ADDE:02 ; BEGIN A NEW QUEST 0x01ADEF|$06:$ADDF:03 ; COPY A QUEST 0x01ADF0|$06:$ADE0:04 ; ERASE A QUEST 0x01ADF1|$06:$ADE1:02 ; BEGIN A NEW QUEST ; jump table for main game menu handlers ; indexed data load target (from $A9D9) 0x01ADF2|$06:$ADE2:55 ; indexed data load target (from $A9DE) 0x01ADF3|$06:$ADE3: AA ; $06:$AA55; CONTINUE A QUEST handler 0x01ADF4|$06:$ADE4:64 AA ; $06:$AA64; CHANGE MESSAGE SPEED handler 0x01ADF6|$06:$ADE6:93 AA ; $06:$AA93; BEGIN A NEW QUEST handler 0x01ADF8|$06:$ADE8:CA AA ; $06:$AACA; COPY A QUEST handler 0x01ADFA|$06:$ADEA:DD AA ; $06:$AADD; ERASE A QUEST handler ; pointer to start of current game save data buffer ; data load target (from $AB9F) 0x01ADFC|$06:$ADEC:00 ; data load target (from $ABA4) 0x01ADFD|$06:$ADED: 70 ; $7000; Cannock runaround quest status (0 = start of game, 0 -> 1 = talked to King Cannock, 1 -> 2 = said YES to seeking Cannock in Spring of Bravery, 2 -> 3 = talked to King Midenhall; adding Cannock sets this to 3; some code checks for 4), SRAM buffer ; pointers to start of per-game save data ; indexed data load target (from $AB95) 0x01ADFE|$06:$ADEE:73 ; indexed data load target (from $AB9A) 0x01ADFF|$06:$ADEF: 70 ; $7073; start of save game 1 backup #1 0x01AE00|$06:$ADF0:E6 70 ; $70E6; start of save game 1 backup #2 0x01AE02|$06:$ADF2:59 71 ; $7159; start of save game 1 backup #3 ; data load target (from $A8E3) 0x01AE04|$06:$ADF4:64 ; data load target (from $A8E9) 0x01AE05|$06:$ADF5: 75 ; $7564 ; indexed data load target (from $A9F7) 0x01AE06|$06:$ADF6:DC ; indexed data load target (from $A9FC) 0x01AE07|$06:$ADF7: 75 ; $75DC 0x01AE08|$06:$ADF8:E6 75 ; $75E6 0x01AE0A|$06:$ADFA:F0 75 ; $75F0 ; data -> code ; given a selected list index in A, an item type in X, and a hero ID in $4A, set A to the A'th item of type X in hero $4A's inventory ; from $0F:$F4E6, $0F:$F5E4, $0F:$F614 via $8010 ; indirect control flow target (via $8010) 0x01AE0C|$06:$ADFC:C9 FE CMP #$FE 0x01AE0E|$06:$ADFE:B0 2F BCS $AE2F ; A >= #$FE => just RTS 0x01AE10|$06:$AE00:8E 9D 60 STX $609D ; menu function parameter 0x01AE13|$06:$AE03:85 10 STA $10 ; selected item index ; call to code in a different bank ($0F:$F1B0) 0x01AE15|$06:$AE05:20 B0 F1 JSR $F1B0 ; given a hero ID in $4A, set A and X to hero ID * 8, a.k.a. offset for start of hero's inventory 0x01AE18|$06:$AE08:A0 08 LDY #$08 0x01AE1A|$06:$AE0A:8C AA 60 STY $60AA ; menu format (#$80 = has cursor, #$40 = is linked, #$20 = is single spaced, #$02 = only display equipped items, #$01 = display [left border, equipped] if equipped) ; control flow target (from $AE1E) 0x01AE1D|$06:$AE0D:BD 00 06 LDA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped) ; call to code in a different bank ($0F:$F1D6) 0x01AE20|$06:$AE10:20 D6 F1 JSR $F1D6 ; determine item type (#$00 = weapon, #$01 = armour, #$02 = shield, #$03 = helmet, #$04 = menu function wants all items or item is non-equipment, #$05 = menu format wants equipped items only and item not equipped) 0x01AE23|$06:$AE13:CD 9D 60 CMP $609D ; menu function parameter 0x01AE26|$06:$AE16:D0 04 BNE $AE1C ; if it's not the right type of item, it doesn't count 0x01AE28|$06:$AE18:C6 10 DEC $10 ; otherwise it does! 0x01AE2A|$06:$AE1A:30 08 BMI $AE24 ; branch if we've found the right item ; control flow target (from $AE16) 0x01AE2C|$06:$AE1C:E8 INX ; increment inventory index 0x01AE2D|$06:$AE1D:88 DEY ; decrement inventory counter 0x01AE2E|$06:$AE1E:D0 ED BNE $AE0D ; if more inventory slots to check, check them 0x01AE30|$06:$AE20:A9 00 LDA #$00 ; if item not found, set A = X = #$00 0x01AE32|$06:$AE22:AA TAX 0x01AE33|$06:$AE23:60 RTS ; control flow target (from $AE1A) 0x01AE34|$06:$AE24:BD 00 06 LDA $0600,X ; Midenhall inventory item 1 (| #$40 if equipped) 0x01AE37|$06:$AE27:48 PHA 0x01AE38|$06:$AE28:8A TXA ; X = X mod 8 0x01AE39|$06:$AE29:29 07 AND #$07 0x01AE3B|$06:$AE2B:AA TAX 0x01AE3C|$06:$AE2C:68 PLA 0x01AE3D|$06:$AE2D:29 3F AND #$3F ; strip off the equipped bit ; control flow target (from $ADFE) 0x01AE3F|$06:$AE2F:60 RTS ; given hero ID - 1 in $4A and field spell menu selection index in A, return spell ID in A ; from $0F:$F5FA via $8012 ; indirect control flow target (via $8012) 0x01AE40|$06:$AE30:06 4A ASL $4A ; convert hero ID - 1 to spell list start index; 8 spells per hero 0x01AE42|$06:$AE32:06 4A ASL $4A 0x01AE44|$06:$AE34:06 4A ASL $4A ; add list start offset to spell menu selection index 0x01AE46|$06:$AE36:65 4A ADC $4A 0x01AE48|$06:$AE38:AA TAX 0x01AE49|$06:$AE39:BD 66 AE LDA $AE66,X ; Cannock field spell list 0x01AE4C|$06:$AE3C:60 RTS ; given hero ID - 1 in $4A and battle spell menu selection index in A, return spell ID in A ; from $0F:$F4AC via $8014 ; indirect control flow target (via $8014) 0x01AE4D|$06:$AE3D:06 4A ASL $4A ; convert hero ID - 1 to spell list start index; 8 spells per hero 0x01AE4F|$06:$AE3F:06 4A ASL $4A 0x01AE51|$06:$AE41:06 4A ASL $4A ; add list start offset to spell menu selection index 0x01AE53|$06:$AE43:65 4A ADC $4A 0x01AE55|$06:$AE45:AA TAX 0x01AE56|$06:$AE46:BD 76 AE LDA $AE76,X ; Cannock battle spell list 0x01AE59|$06:$AE49:60 RTS ; given spell ID in A, set A to spell name index ; from $02:$BEA4 via $8020 ; indirect control flow target (via $8020) 0x01AE5A|$06:$AE4A:AA TAX 0x01AE5B|$06:$AE4B:BD 4E AE LDA $AE4E,X ; indexed data load target (from $AE4B) 0x01AE5E|$06:$AE4E:60 RTS ; code -> data ; spell ID -> spell name index (built in offset from $AE4F) 0x01AE5F|$06:$AE4F:00 ; Spell ID #$00: (no spell) 0x01AE60|$06:$AE50:10 ; Spell ID #$01: Firebal 0x01AE61|$06:$AE51:04 ; Spell ID #$02: Sleep 0x01AE62|$06:$AE52:06 ; Spell ID #$03: Firebane 0x01AE63|$06:$AE53:12 ; Spell ID #$04: Defeat 0x01AE64|$06:$AE54:02 ; Spell ID #$05: Infernos 0x01AE65|$06:$AE55:14 ; Spell ID #$06: Stopspell 0x01AE66|$06:$AE56:13 ; Spell ID #$07: Surround 0x01AE67|$06:$AE57:08 ; Spell ID #$08: Defence 0x01AE68|$06:$AE58:05 ; Spell ID #$09: Heal 0x01AE69|$06:$AE59:18 ; Spell ID #$0A: Increase 0x01AE6A|$06:$AE5A:07 ; Spell ID #$0B: Healmore 0x01AE6B|$06:$AE5B:1B ; Spell ID #$0C: Sacrifice 0x01AE6C|$06:$AE5C:16 ; Spell ID #$0D: Healall 0x01AE6D|$06:$AE5D:17 ; Spell ID #$0E: Explodet 0x01AE6E|$06:$AE5E:1A ; Spell ID #$0F: Chance 0x01AE6F|$06:$AE5F:08 ; Spell ID #$10: Antidote 0x01AE70|$06:$AE60:1C ; Spell ID #$11: Heal (not used by heroes) 0x01AE71|$06:$AE61:19 ; Spell ID #$12: Outside 0x01AE72|$06:$AE62:0A ; Spell ID #$13: Repel 0x01AE73|$06:$AE63:1E ; Spell ID #$14: Return 0x01AE74|$06:$AE64:0D ; Spell ID #$15: Open 0x01AE75|$06:$AE65:0E ; Cannock field spell list ; indexed data load target (from $AE39) 0x01AE76|$06:$AE66:09 ; Spell ID #$09: Heal 0x01AE77|$06:$AE67:10 ; Spell ID #$10: Antidote 0x01AE78|$06:$AE68:14 ; Spell ID #$14: Return 0x01AE79|$06:$AE69:12 ; Spell ID #$12: Outside 0x01AE7A|$06:$AE6A:0B ; Spell ID #$0B: Healmore 0x01AE7B|$06:$AE6B:16 ; Spell ID #$16: Stepguard 0x01AE7C|$06:$AE6C:17 ; Spell ID #$17: Revive 0x01AE7D|$06:$AE6D:00 ; Spell ID #$00: (no spell) ; Moonbrooke field spell list 0x01AE7E|$06:$AE6E:0B ; Spell ID #$0B: Healmore 0x01AE7F|$06:$AE6F:13 ; Spell ID #$13: Repel 0x01AE80|$06:$AE70:10 ; Spell ID #$10: Antidote 0x01AE81|$06:$AE71:0D ; Spell ID #$0D: Healall 0x01AE82|$06:$AE72:12 ; Spell ID #$12: Outside 0x01AE83|$06:$AE73:16 ; Spell ID #$16: Stepguard 0x01AE84|$06:$AE74:15 ; Spell ID #$15: Open 0x01AE85|$06:$AE75:00 ; Spell ID #$00: (no spell) ; Cannock battle spell list ; indexed data load target (from $AE46) 0x01AE86|$06:$AE76:01 ; Spell ID #$01: Firebal 0x01AE87|$06:$AE77:09 ; Spell ID #$09: Heal 0x01AE88|$06:$AE78:06 ; Spell ID #$06: Stopspell 0x01AE89|$06:$AE79:0B ; Spell ID #$0B: Healmore 0x01AE8A|$06:$AE7A:03 ; Spell ID #$03: Firebane 0x01AE8B|$06:$AE7B:0A ; Spell ID #$0A: Increase 0x01AE8C|$06:$AE7C:04 ; Spell ID #$04: Defeat 0x01AE8D|$06:$AE7D:0C ; Spell ID #$0C: Sacrifice ; Moonbrooke battle spell list 0x01AE8E|$06:$AE7E:02 ; Spell ID #$02: Sleep 0x01AE8F|$06:$AE7F:0B ; Spell ID #$0B: Healmore 0x01AE90|$06:$AE80:05 ; Spell ID #$05: Infernos 0x01AE91|$06:$AE81:08 ; Spell ID #$08: Defence 0x01AE92|$06:$AE82:07 ; Spell ID #$07: Surround 0x01AE93|$06:$AE83:0D ; Spell ID #$0D: Healall 0x01AE94|$06:$AE84:0E ; Spell ID #$0E: Explodet 0x01AE95|$06:$AE85:0F ; Spell ID #$0F: Chance ; data -> code ; control flow target (from $ACCD) ; indirect control flow target (via $8016) 0x01AE96|$06:$AE86:20 9E AE JSR $AE9E 0x01AE99|$06:$AE89:20 56 AF JSR $AF56 0x01AE9C|$06:$AE8C:20 7F AF JSR $AF7F ; control flow target (from $AE9A) 0x01AE9F|$06:$AE8F:20 CC AE JSR $AECC 0x01AEA2|$06:$AE92:20 30 AF JSR $AF30 0x01AEA5|$06:$AE95:B0 06 BCS $AE9D 0x01AEA7|$06:$AE97:20 8E AF JSR $AF8E 0x01AEAA|$06:$AE9A:4C 8F AE JMP $AE8F ; control flow target (from $AE95) 0x01AEAD|$06:$AE9D:60 RTS ; control flow target (from $AE86) 0x01AEAE|$06:$AE9E:A9 FF LDA #$FF 0x01AEB0|$06:$AEA0:85 8E STA $8E ; flag for in battle or not (#$FF)? 0x01AEB2|$06:$AEA2:A9 00 LDA #$00 0x01AEB4|$06:$AEA4:8D C2 60 STA $60C2 0x01AEB7|$06:$AEA7:8D C3 60 STA $60C3 0x01AEBA|$06:$AEAA:A9 47 LDA #$47 ; Menu ID #$47: Game menu: new game name entry display ; call to code in a different bank ($0F:$EB89) 0x01AEBC|$06:$AEAC:20 89 EB JSR $EB89 ; open menu specified by A 0x01AEBF|$06:$AEAF:A9 44 LDA #$44 ; Menu ID #$44: Game menu: new game name input area ; call to code in a different bank ($0F:$EB89) 0x01AEC1|$06:$AEB1:20 89 EB JSR $EB89 ; open menu specified by A ; call to code in a different bank ($0F:$C22C) 0x01AEC4|$06:$AEB4:20 2C C2 JSR $C22C 0x01AEC7|$06:$AEB7:A9 12 LDA #$12 0x01AEC9|$06:$AEB9:8D A5 60 STA $60A5 ; menu cursor second column X-offset (from left edge of menu) 0x01AECC|$06:$AEBC:A9 21 LDA #$21 0x01AECE|$06:$AEBE:8D A9 60 STA $60A9 ; menu cursor initial position (from ROM; X-pos = low nybble, Y-pos = high nybble) 0x01AED1|$06:$AEC1:A9 60 LDA #$60 0x01AED3|$06:$AEC3:A2 0C LDX #$0C ; control flow target (from $AEC9) 0x01AED5|$06:$AEC5:9D 00 01 STA $0100,X ; string copy buffer start (often referenced as $00FF,X) 0x01AED8|$06:$AEC8:CA DEX 0x01AED9|$06:$AEC9:10 FA BPL $AEC5 0x01AEDB|$06:$AECB:60 RTS ; control flow target (from $AE8F) 0x01AEDC|$06:$AECC:C9 FF CMP #$FF 0x01AEDE|$06:$AECE:F0 35 BEQ $AF05 0x01AEE0|$06:$AED0:C9 1A CMP #$1A 0x01AEE2|$06:$AED2:90 1B BCC $AEEF 0x01AEE4|$06:$AED4:C9 21 CMP #$21 0x01AEE6|$06:$AED6:90 21 BCC $AEF9 0x01AEE8|$06:$AED8:C9 3B CMP #$3B 0x01AEEA|$06:$AEDA:90 18 BCC $AEF4 0x01AEEC|$06:$AEDC:C9 3D CMP #$3D 0x01AEEE|$06:$AEDE:90 1F BCC $AEFF 0x01AEF0|$06:$AEE0:C9 3D CMP #$3D 0x01AEF2|$06:$AEE2:F0 21 BEQ $AF05 0x01AEF4|$06:$AEE4:20 46 AF JSR $AF46 ; CLC if $0100-$0103 are all #$60, SEC otherwise 0x01AEF7|$06:$AEE7:90 05 BCC $AEEE 0x01AEF9|$06:$AEE9:A9 08 LDA #$08 0x01AEFB|$06:$AEEB:8D C2 60 STA $60C2 ; control flow target (from $AEE7) 0x01AEFE|$06:$AEEE:60 RTS ; control flow target (from $AED2) 0x01AEFF|$06:$AEEF:18 CLC 0x01AF00|$06:$AEF0:69 24 ADC #$24 0x01AF02|$06:$AEF2:D0 20 BNE $AF14 ; control flow target (from $AEDA) 0x01AF04|$06:$AEF4:38 SEC 0x01AF05|$06:$AEF5:E9 17 SBC #$17 0x01AF07|$06:$AEF7:D0 1B BNE $AF14 ; control flow target (from $AED6) 0x01AF09|$06:$AEF9:AA TAX 0x01AF0A|$06:$AEFA:BD 5C AF LDA $AF5C,X 0x01AF0D|$06:$AEFD:D0 15 BNE $AF14 ; control flow target (from $AEDE) 0x01AF0F|$06:$AEFF:AA TAX ; A is either #$3B or #$3C 0x01AF10|$06:$AF00:BD 42 AF LDA $AF42,X ; $AF7D or $AF7E 0x01AF13|$06:$AF03:D0 0F BNE $AF14 ; control flow target (from $AECE, $AEE2) 0x01AF15|$06:$AF05:AD C2 60 LDA $60C2 0x01AF18|$06:$AF08:F0 09 BEQ $AF13 0x01AF1A|$06:$AF0A:20 5A AF JSR $AF5A 0x01AF1D|$06:$AF0D:CE C2 60 DEC $60C2 0x01AF20|$06:$AF10:20 56 AF JSR $AF56 ; control flow target (from $AF08) 0x01AF23|$06:$AF13:60 RTS ; control flow target (from $AEF2, $AEF7, $AEFD, $AF03) 0x01AF24|$06:$AF14:48 PHA 0x01AF25|$06:$AF15:20 5A AF JSR $AF5A 0x01AF28|$06:$AF18:68 PLA 0x01AF29|$06:$AF19:AE C2 60 LDX $60C2 0x01AF2C|$06:$AF1C:9D 00 01 STA $0100,X ; string copy buffer start (often referenced as $00FF,X) 0x01AF2F|$06:$AF1F:20 60 AF JSR $AF60 0x01AF32|$06:$AF22:EE C2 60 INC $60C2 0x01AF35|$06:$AF25:AD C2 60 LDA $60C2 0x01AF38|$06:$AF28:C9 08 CMP #$08 0x01AF3A|$06:$AF2A:B0 03 BCS $AF2F 0x01AF3C|$06:$AF2C:20 56 AF JSR $AF56 ; control flow target (from $AF2A) 0x01AF3F|$06:$AF2F:60 RTS ; control flow target (from $AE92) 0x01AF40|$06:$AF30:AD C2 60 LDA $60C2 0x01AF43|$06:$AF33:C9 08 CMP #$08 0x01AF45|$06:$AF35:90 0E BCC $AF45 0x01AF47|$06:$AF37:20 46 AF JSR $AF46 ; CLC if $0100-$0103 are all #$60, SEC otherwise 0x01AF4A|$06:$AF3A:B0 09 BCS $AF45 ; branch if we have something != #$60 0x01AF4C|$06:$AF3C:A9 07 LDA #$07 0x01AF4E|$06:$AF3E:8D C2 60 STA $60C2 0x01AF51|$06:$AF41:20 ; actual target is $AF7D/$AF7E ; indexed data load target (from $AF00) 0x01AF52|$06:$AF42: 56 AF JSR $AF56 0x01AF54|$06:$AF44:18 CLC ; control flow target (from $AF35, $AF3A) 0x01AF55|$06:$AF45:60 RTS ; CLC if $0100-$0103 are all #$60, SEC otherwise ; control flow target (from $AEE4, $AF37) 0x01AF56|$06:$AF46:A2 03 LDX #$03 ; control flow target (from $AF50) 0x01AF58|$06:$AF48:BD 00 01 LDA $0100,X ; string copy buffer start (often referenced as $00FF,X) 0x01AF5B|$06:$AF4B:C9 60 CMP #$60 0x01AF5D|$06:$AF4D:D0 05 BNE $AF54 0x01AF5F|$06:$AF4F:CA DEX 0x01AF60|$06:$AF50:10 F6 BPL $AF48 0x01AF62|$06:$AF52:18 CLC ; entire string is #$60 0x01AF63|$06:$AF53:60 RTS ; control flow target (from $AF4D) 0x01AF64|$06:$AF54:38 SEC ; not entire string is #$60 0x01AF65|$06:$AF55:60 RTS ; control flow target (from $AE89, $AF10, $AF2C, $AF41) 0x01AF66|$06:$AF56:A9 77 LDA #$77 0x01AF68|$06:$AF58:D0 02 BNE $AF5C ; control flow target (from $AF0A, $AF15) 0x01AF6A|$06:$AF5A:A9 5F LDA #$5F ; control flow target (from $AF58) ; indexed data load target (from $AEFA) 0x01AF6C|$06:$AF5C:A2 07 LDX #$07 0x01AF6E|$06:$AF5E:D0 02 BNE $AF62 ; control flow target (from $AF1F) 0x01AF70|$06:$AF60:A2 06 LDX #$06 ; control flow target (from $AF5E) 0x01AF72|$06:$AF62:8E 8C 60 STX $608C 0x01AF75|$06:$AF65:85 09 STA $09 0x01AF77|$06:$AF67:AD C2 60 LDA $60C2 0x01AF7A|$06:$AF6A:18 CLC 0x01AF7B|$06:$AF6B:69 0C ADC #$0C 0x01AF7D|$06:$AF6D:8D 8B 60 STA $608B 0x01AF80|$06:$AF70:20 09 A8 JSR $A809 ; call to code in a different bank ($0F:$C1FA) 0x01AF83|$06:$AF73:4C FA C1 JMP $C1FA ; wait for $02 to not be #$C0, write PPU address in $07-$08 and data in $09 to PPU write buffer at $0300,$02, $01 += 1, $02 += 3, and set $0183 to #$00 ; code -> data 0x01AF86|$06:$AF76:67 0x01AF87|$06:$AF77:69 0x01AF88|$06:$AF78:6B 0x01AF89|$06:$AF79:70 0x01AF8A|$06:$AF7A:75 0x01AF8B|$06:$AF7B:63 0x01AF8C|$06:$AF7C:60 0x01AF8D|$06:$AF7D:6F 0x01AF8E|$06:$AF7E:6E ; data -> code ; from $0F:$F0BF via $8018 ; control flow target (from $AE8C) ; indirect control flow target (via $8018) 0x01AF8F|$06:$AF7F:AD B4 60 LDA $60B4 ; menu phase (1 = first, 0 = second) 0x01AF92|$06:$AF82:D0 0D BNE $AF91 0x01AF94|$06:$AF84:20 C6 AF JSR $AFC6 0x01AF97|$06:$AF87:A9 80 LDA #$80 0x01AF99|$06:$AF89:8D C5 60 STA $60C5 0x01AF9C|$06:$AF8C:85 2F STA $2F ; joypad 1 data ; control flow target (from $AE97) ; indirect control flow target (via $801A) 0x01AF9E|$06:$AF8E:20 92 AF JSR $AF92 ; control flow target (from $AF82) 0x01AFA1|$06:$AF91:60 RTS ; control flow target (from $AF8E, $AF98) 0x01AFA2|$06:$AF92:20 9B AF JSR $AF9B 0x01AFA5|$06:$AF95:20 AC B0 JSR $B0AC 0x01AFA8|$06:$AF98:4C 92 AF JMP $AF92 ; control flow target (from $AF92, $AFB4, $AFC3) ; call to code in a different bank ($0F:$C1DC) 0x01AFAB|$06:$AF9B:20 DC C1 JSR $C1DC ; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF 0x01AFAE|$06:$AF9E:20 85 B0 JSR $B085 0x01AFB1|$06:$AFA1:A5 2F LDA $2F ; joypad 1 data 0x01AFB3|$06:$AFA3:F0 06 BEQ $AFAB 0x01AFB5|$06:$AFA5:A5 03 LDA $03 ; game clock? 0x01AFB7|$06:$AFA7:29 0F AND #$0F 0x01AFB9|$06:$AFA9:D0 03 BNE $AFAE ; control flow target (from $AFA3) 0x01AFBB|$06:$AFAB:8D C5 60 STA $60C5 ; control flow target (from $AFA9) ; call to code in a different bank ($0F:$C476) 0x01AFBE|$06:$AFAE:20 76 C4 JSR $C476 ; read joypad 1 data into $2F 0x01AFC1|$06:$AFB1:AD C5 60 LDA $60C5 0x01AFC4|$06:$AFB4:D0 E5 BNE $AF9B 0x01AFC6|$06:$AFB6:AD C5 60 LDA $60C5 0x01AFC9|$06:$AFB9:25 2F AND $2F ; joypad 1 data 0x01AFCB|$06:$AFBB:8D C5 60 STA $60C5 0x01AFCE|$06:$AFBE:45 2F EOR $2F ; joypad 1 data 0x01AFD0|$06:$AFC0:8D 8D 60 STA $608D 0x01AFD3|$06:$AFC3:F0 D6 BEQ $AF9B 0x01AFD5|$06:$AFC5:60 RTS ; control flow target (from $AF84) 0x01AFD6|$06:$AFC6:A9 00 LDA #$00 0x01AFD8|$06:$AFC8:85 82 STA $82 0x01AFDA|$06:$AFCA:85 83 STA $83 0x01AFDC|$06:$AFCC:85 81 STA $81 0x01AFDE|$06:$AFCE:8D B0 60 STA $60B0 0x01AFE1|$06:$AFD1:8D B1 60 STA $60B1 0x01AFE4|$06:$AFD4:8D C5 60 STA $60C5 0x01AFE7|$06:$AFD7:AD A5 60 LDA $60A5 ; menu cursor second column X-offset (from left edge of menu) 0x01AFEA|$06:$AFDA:4A LSR 0x01AFEB|$06:$AFDB:4A LSR 0x01AFEC|$06:$AFDC:4A LSR 0x01AFED|$06:$AFDD:4A LSR 0x01AFEE|$06:$AFDE:AA TAX 0x01AFEF|$06:$AFDF:BD C8 B2 LDA $B2C8,X 0x01AFF2|$06:$AFE2:8D C4 60 STA $60C4 0x01AFF5|$06:$AFE5:A5 59 LDA $59 ; menu ID 0x01AFF7|$06:$AFE7:C9 13 CMP #$13 ; Menu ID #$13: Main menu: equip weapon 0x01AFF9|$06:$AFE9:F0 58 BEQ $B043 0x01AFFB|$06:$AFEB:C9 2D CMP #$2D ; Menu ID #$2D: Main menu: equip armour 0x01AFFD|$06:$AFED:F0 54 BEQ $B043 0x01AFFF|$06:$AFEF:C9 2E CMP #$2E ; Menu ID #$2E: Main menu: equip shield 0x01B001|$06:$AFF1:F0 50 BEQ $B043 0x01B003|$06:$AFF3:C9 2F CMP #$2F ; Menu ID #$2F: Main menu: equip helmet 0x01B005|$06:$AFF5:F0 4C BEQ $B043 0x01B007|$06:$AFF7:C9 45 CMP #$45 ; Menu ID #$45: Game menu: select message speed 0x01B009|$06:$AFF9:F0 07 BEQ $B002 0x01B00B|$06:$AFFB:C9 07 CMP #$07 ; Menu ID #$07: Battle menu: spell list 0x01B00D|$06:$AFFD:F0 1C BEQ $B01B 0x01B00F|$06:$AFFF:4C 60 B0 JMP $B060 ; control flow target (from $AFF9) 0x01B012|$06:$B002:A2 00 LDX #$00 0x01B014|$06:$B004:AD 2C 06 LDA $062C ; current battle message delay 0x01B017|$06:$B007:C9 32 CMP #$32 0x01B019|$06:$B009:90 06 BCC $B011 0x01B01B|$06:$B00B:E8 INX 0x01B01C|$06:$B00C:C9 64 CMP #$64 0x01B01E|$06:$B00E:90 01 BCC $B011 0x01B020|$06:$B010:E8 INX ; control flow target (from $B009, $B00E) 0x01B021|$06:$B011:86 83 STX $83 0x01B023|$06:$B013:8A TXA 0x01B024|$06:$B014:0A ASL 0x01B025|$06:$B015:8D B1 60 STA $60B1 0x01B028|$06:$B018:4C 60 B0 JMP $B060 ; control flow target (from $AFFD) 0x01B02B|$06:$B01B:A2 00 LDX #$00 ; control flow target (from $B025) 0x01B02D|$06:$B01D:BD BA 60 LDA $60BA,X 0x01B030|$06:$B020:D0 07 BNE $B029 0x01B032|$06:$B022:E8 INX 0x01B033|$06:$B023:E0 08 CPX #$08 0x01B035|$06:$B025:D0 F6 BNE $B01D 0x01B037|$06:$B027:A2 00 LDX #$00 ; control flow target (from $B020) 0x01B039|$06:$B029:8A TXA 0x01B03A|$06:$B02A:29 01 AND #$01 0x01B03C|$06:$B02C:85 82 STA $82 0x01B03E|$06:$B02E:F0 08 BEQ $B038 0x01B040|$06:$B030:AD A5 60 LDA $60A5 ; menu cursor second column X-offset (from left edge of menu) 0x01B043|$06:$B033:29 0F AND #$0F 0x01B045|$06:$B035:8D B0 60 STA $60B0 ; control flow target (from $B02E) 0x01B048|$06:$B038:8A TXA 0x01B049|$06:$B039:4A LSR 0x01B04A|$06:$B03A:85 83 STA $83 0x01B04C|$06:$B03C:0A ASL 0x01B04D|$06:$B03D:8D B1 60 STA $60B1 0x01B050|$06:$B040:4C 60 B0 JMP $B060 ; control flow target (from $AFE9, $AFED, $AFF1, $AFF5) 0x01B053|$06:$B043:AD B9 60 LDA $60B9 0x01B056|$06:$B046:C9 FF CMP #$FF 0x01B058|$06:$B048:F0 09 BEQ $B053 0x01B05A|$06:$B04A:85 83 STA $83 0x01B05C|$06:$B04C:0A ASL 0x01B05D|$06:$B04D:8D B1 60 STA $60B1 0x01B060|$06:$B050:4C 60 B0 JMP $B060 ; control flow target (from $B048) 0x01B063|$06:$B053:38 SEC 0x01B064|$06:$B054:AD A3 60 LDA $60A3 ; menu window height (ROM value * 2) 0x01B067|$06:$B057:E9 03 SBC #$03 0x01B069|$06:$B059:4A LSR 0x01B06A|$06:$B05A:85 83 STA $83 0x01B06C|$06:$B05C:0A ASL 0x01B06D|$06:$B05D:8D B1 60 STA $60B1 ; control flow target (from $AFFF, $B018, $B040, $B050) 0x01B070|$06:$B060:AD A9 60 LDA $60A9 ; menu cursor initial position (from ROM; X-pos = low nybble, Y-pos = high nybble) 0x01B073|$06:$B063:48 PHA 0x01B074|$06:$B064:29 0F AND #$0F 0x01B076|$06:$B066:8D B2 60 STA $60B2 0x01B079|$06:$B069:18 CLC 0x01B07A|$06:$B06A:6D B0 60 ADC $60B0 0x01B07D|$06:$B06D:8D B0 60 STA $60B0 0x01B080|$06:$B070:68 PLA 0x01B081|$06:$B071:29 F0 AND #$F0 0x01B083|$06:$B073:4A LSR 0x01B084|$06:$B074:4A LSR 0x01B085|$06:$B075:4A LSR 0x01B086|$06:$B076:4A LSR 0x01B087|$06:$B077:8D B3 60 STA $60B3 0x01B08A|$06:$B07A:6D B1 60 ADC $60B1 0x01B08D|$06:$B07D:8D B1 60 STA $60B1 0x01B090|$06:$B080:A9 05 LDA #$05 0x01B092|$06:$B082:85 03 STA $03 ; game clock? 0x01B094|$06:$B084:60 RTS ; control flow target (from $AF9E) 0x01B095|$06:$B085:A2 5F LDX #$5F 0x01B097|$06:$B087:A5 03 LDA $03 ; game clock? 0x01B099|$06:$B089:29 1F AND #$1F 0x01B09B|$06:$B08B:C9 10 CMP #$10 0x01B09D|$06:$B08D:B0 02 BCS $B091 ; control flow target (from $B218) 0x01B09F|$06:$B08F:A2 72 LDX #$72 ; control flow target (from $B08D, $B211) 0x01B0A1|$06:$B091:86 09 STX $09 0x01B0A3|$06:$B093:A5 4D LDA $4D 0x01B0A5|$06:$B095:18 CLC 0x01B0A6|$06:$B096:6D B0 60 ADC $60B0 0x01B0A9|$06:$B099:8D 8B 60 STA $608B 0x01B0AC|$06:$B09C:A5 4E LDA $4E 0x01B0AE|$06:$B09E:18 CLC 0x01B0AF|$06:$B09F:6D B1 60 ADC $60B1 0x01B0B2|$06:$B0A2:8D 8C 60 STA $608C ; call to code in a different bank ($0F:$FE97) 0x01B0B5|$06:$B0A5:20 97 FE JSR $FE97 ; read byte following JSR, parse it for bank and pointer index, execute ($8000,X) in selected bank, swap back in original bank ; code -> data ; indirect data load target 0x01B0B8|$06:$B0A8:C1 ; $06:$8002 ; data -> code ; call to code in a different bank ($0F:$C1FA) 0x01B0B9|$06:$B0A9:4C FA C1 JMP $C1FA ; wait for $02 to not be #$C0, write PPU address in $07-$08 and data in $09 to PPU write buffer at $0300,$02, $01 += 1, $02 += 3, and set $0183 to #$00 ; control flow target (from $AF95) 0x01B0BC|$06:$B0AC:AD 8D 60 LDA $608D 0x01B0BF|$06:$B0AF:4A LSR 0x01B0C0|$06:$B0B0:B0 17 BCS $B0C9 0x01B0C2|$06:$B0B2:4A LSR 0x01B0C3|$06:$B0B3:B0 31 BCS $B0E6 0x01B0C5|$06:$B0B5:4A LSR 0x01B0C6|$06:$B0B6:4A LSR 0x01B0C7|$06:$B0B7:4A LSR 0x01B0C8|$06:$B0B8:B0 39 BCS $B0F3 0x01B0CA|$06:$B0BA:4A LSR 0x01B0CB|$06:$B0BB:B0 63 BCS $B120 0x01B0CD|$06:$B0BD:4A LSR 0x01B0CE|$06:$B0BE:B0 06 BCS $B0C6 0x01B0D0|$06:$B0C0:4A LSR 0x01B0D1|$06:$B0C1:90 47 BCC $B10A 0x01B0D3|$06:$B0C3:4C BE B1 JMP $B1BE ; control flow target (from $B0BE) 0x01B0D6|$06:$B0C6:4C 74 B1 JMP $B174 ; control flow target (from $B0B0) 0x01B0D9|$06:$B0C9:A9 01 LDA #$01 0x01B0DB|$06:$B0CB:8D C5 60 STA $60C5 0x01B0DE|$06:$B0CE:20 14 B2 JSR $B214 0x01B0E1|$06:$B0D1:A9 85 LDA #$85 ; Music ID #$85: single beep SFX ; call to code in a different bank ($0F:$C561) 0x01B0E3|$06:$B0D3:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) 0x01B0E6|$06:$B0D6:A5 82 LDA $82 0x01B0E8|$06:$B0D8:85 12 STA $12 0x01B0EA|$06:$B0DA:A5 83 LDA $83 0x01B0EC|$06:$B0DC:85 13 STA $13 0x01B0EE|$06:$B0DE:20 94 B2 JSR $B294 0x01B0F1|$06:$B0E1:68 PLA 0x01B0F2|$06:$B0E2:68 PLA 0x01B0F3|$06:$B0E3:A5 81 LDA $81 0x01B0F5|$06:$B0E5:60 RTS ; control flow target (from $B0B3) 0x01B0F6|$06:$B0E6:A9 02 LDA #$02 0x01B0F8|$06:$B0E8:8D C5 60 STA $60C5 0x01B0FB|$06:$B0EB:20 14 B2 JSR $B214 0x01B0FE|$06:$B0EE:68 PLA 0x01B0FF|$06:$B0EF:68 PLA 0x01B100|$06:$B0F0:A9 FF LDA #$FF 0x01B102|$06:$B0F2:60 RTS ; control flow target (from $B0B8) 0x01B103|$06:$B0F3:A9 10 LDA #$10 0x01B105|$06:$B0F5:8D C5 60 STA $60C5 0x01B108|$06:$B0F8:2C AA 60 BIT $60AA ; menu format (#$80 = has cursor, #$40 = is linked, #$20 = is single spaced, #$02 = only display equipped items, #$01 = display [left border, equipped] if equipped) 0x01B10B|$06:$B0FB:70 0E BVS $B10B ; control flow target (from $B112) 0x01B10D|$06:$B0FD:A5 83 LDA $83 0x01B10F|$06:$B0FF:F0 09 BEQ $B10A 0x01B111|$06:$B101:20 0F B2 JSR $B20F 0x01B114|$06:$B104:20 BC B2 JSR $B2BC 0x01B117|$06:$B107:20 14 B2 JSR $B214 ; control flow target (from $B0C1, $B0FF, $B10E) 0x01B11A|$06:$B10A:60 RTS ; control flow target (from $B0FB) 0x01B11B|$06:$B10B:AD B1 60 LDA $60B1 0x01B11E|$06:$B10E:F0 FA BEQ $B10A 0x01B120|$06:$B110:A5 83 LDA $83 0x01B122|$06:$B112:D0 E9 BNE $B0FD 0x01B124|$06:$B114:20 0F B2 JSR $B20F 0x01B127|$06:$B117:A9 00 LDA #$00 0x01B129|$06:$B119:8D B1 60 STA $60B1 0x01B12C|$06:$B11C:20 14 B2 JSR $B214 0x01B12F|$06:$B11F:60 RTS ; control flow target (from $B0BB) 0x01B130|$06:$B120:A9 20 LDA #$20 0x01B132|$06:$B122:8D C5 60 STA $60C5 0x01B135|$06:$B125:A5 59 LDA $59 ; menu ID 0x01B137|$06:$B127:C9 45 CMP #$45 ; Menu ID #$45: Game menu: select message speed 0x01B139|$06:$B129:D0 06 BNE $B131 0x01B13B|$06:$B12B:A5 83 LDA $83 0x01B13D|$06:$B12D:C9 02 CMP #$02 0x01B13F|$06:$B12F:F0 42 BEQ $B173 ; control flow target (from $B129) 0x01B141|$06:$B131:38 SEC 0x01B142|$06:$B132:AD A3 60 LDA $60A3 ; menu window height (ROM value * 2) 0x01B145|$06:$B135:E9 03 SBC #$03 0x01B147|$06:$B137:4A LSR 0x01B148|$06:$B138:C5 83 CMP $83 0x01B14A|$06:$B13A:F0 37 BEQ $B173 0x01B14C|$06:$B13C:20 0F B2 JSR $B20F 0x01B14F|$06:$B13F:A5 59 LDA $59 ; menu ID 0x01B151|$06:$B141:C9 44 CMP #$44 ; Menu ID #$44: Game menu: new game name input area 0x01B153|$06:$B143:F0 13 BEQ $B158 0x01B155|$06:$B145:C9 07 CMP #$07 ; Menu ID #$07: Battle menu: spell list 0x01B157|$06:$B147:F0 08 BEQ $B151 0x01B159|$06:$B149:C9 08 CMP #$08 ; Menu ID #$08: Battle menu: item list window 1 0x01B15B|$06:$B14B:F0 04 BEQ $B151 0x01B15D|$06:$B14D:C9 22 CMP #$22 ; Menu ID #$22: Battle menu: item list window 2 0x01B15F|$06:$B14F:D0 0A BNE $B15B ; control flow target (from $B147, $B14B) 0x01B161|$06:$B151:20 43 B2 JSR $B243 0x01B164|$06:$B154:90 1D BCC $B173 0x01B166|$06:$B156:B0 03 BCS $B15B ; control flow target (from $B143) 0x01B168|$06:$B158:20 1E B2 JSR $B21E ; control flow target (from $B14F, $B156) 0x01B16B|$06:$B15B:AD B1 60 LDA $60B1 0x01B16E|$06:$B15E:D0 08 BNE $B168 0x01B170|$06:$B160:AD B3 60 LDA $60B3 0x01B173|$06:$B163:8D B1 60 STA $60B1 0x01B176|$06:$B166:D0 08 BNE $B170 ; control flow target (from $B15E) 0x01B178|$06:$B168:18 CLC 0x01B179|$06:$B169:69 02 ADC #$02 0x01B17B|$06:$B16B:8D B1 60 STA $60B1 0x01B17E|$06:$B16E:E6 83 INC $83 ; control flow target (from $B166) 0x01B180|$06:$B170:20 14 B2 JSR $B214 ; control flow target (from $B12F, $B13A, $B154) 0x01B183|$06:$B173:60 RTS ; control flow target (from $B0C6) 0x01B184|$06:$B174:A9 40 LDA #$40 0x01B186|$06:$B176:8D C5 60 STA $60C5 0x01B189|$06:$B179:A5 82 LDA $82 0x01B18B|$06:$B17B:F0 40 BEQ $B1BD 0x01B18D|$06:$B17D:A5 59 LDA $59 ; menu ID 0x01B18F|$06:$B17F:C9 44 CMP #$44 ; Menu ID #$44: Game menu: new game name input area 0x01B191|$06:$B181:F0 0B BEQ $B18E 0x01B193|$06:$B183:C9 07 CMP #$07 ; Menu ID #$07: Battle menu: spell list 0x01B195|$06:$B185:D0 1E BNE $B1A5 0x01B197|$06:$B187:20 52 B2 JSR $B252 0x01B19A|$06:$B18A:90 31 BCC $B1BD 0x01B19C|$06:$B18C:B0 17 BCS $B1A5 ; control flow target (from $B181) 0x01B19E|$06:$B18E:A5 83 LDA $83 0x01B1A0|$06:$B190:C9 05 CMP #$05 0x01B1A2|$06:$B192:D0 11 BNE $B1A5 0x01B1A4|$06:$B194:A5 82 LDA $82 0x01B1A6|$06:$B196:C9 09 CMP #$09 0x01B1A8|$06:$B198:D0 0B BNE $B1A5 0x01B1AA|$06:$B19A:A9 06 LDA #$06 0x01B1AC|$06:$B19C:85 82 STA $82 0x01B1AE|$06:$B19E:20 0F B2 JSR $B20F 0x01B1B1|$06:$B1A1:A9 0D LDA #$0D 0x01B1B3|$06:$B1A3:D0 12 BNE $B1B7 ; control flow target (from $B185, $B18C, $B192, $B198) 0x01B1B5|$06:$B1A5:20 0F B2 JSR $B20F 0x01B1B8|$06:$B1A8:C6 82 DEC $82 0x01B1BA|$06:$B1AA:AD A5 60 LDA $60A5 ; menu cursor second column X-offset (from left edge of menu) 0x01B1BD|$06:$B1AD:29 0F AND #$0F 0x01B1BF|$06:$B1AF:85 10 STA $10 0x01B1C1|$06:$B1B1:AD B0 60 LDA $60B0 0x01B1C4|$06:$B1B4:38 SEC 0x01B1C5|$06:$B1B5:E5 10 SBC $10 ; control flow target (from $B1A3) 0x01B1C7|$06:$B1B7:8D B0 60 STA $60B0 0x01B1CA|$06:$B1BA:20 14 B2 JSR $B214 ; control flow target (from $B17B, $B18A) 0x01B1CD|$06:$B1BD:60 RTS ; control flow target (from $B0C3) 0x01B1CE|$06:$B1BE:A9 80 LDA #$80 0x01B1D0|$06:$B1C0:8D C5 60 STA $60C5 0x01B1D3|$06:$B1C3:AD A5 60 LDA $60A5 ; menu cursor second column X-offset (from left edge of menu) 0x01B1D6|$06:$B1C6:F0 46 BEQ $B20E 0x01B1D8|$06:$B1C8:A5 59 LDA $59 ; menu ID 0x01B1DA|$06:$B1CA:C9 44 CMP #$44 ; Menu ID #$44: Game menu: new game name input area 0x01B1DC|$06:$B1CC:F0 0B BEQ $B1D9 0x01B1DE|$06:$B1CE:C9 07 CMP #$07 ; Menu ID #$07: Battle menu: spell list 0x01B1E0|$06:$B1D0:D0 20 BNE $B1F2 0x01B1E2|$06:$B1D2:20 5A B2 JSR $B25A 0x01B1E5|$06:$B1D5:90 37 BCC $B20E 0x01B1E7|$06:$B1D7:B0 19 BCS $B1F2 ; control flow target (from $B1CC) 0x01B1E9|$06:$B1D9:A5 83 LDA $83 0x01B1EB|$06:$B1DB:C9 05 CMP #$05 0x01B1ED|$06:$B1DD:D0 13 BNE $B1F2 0x01B1EF|$06:$B1DF:A5 82 LDA $82 0x01B1F1|$06:$B1E1:C9 06 CMP #$06 0x01B1F3|$06:$B1E3:90 0D BCC $B1F2 0x01B1F5|$06:$B1E5:D0 27 BNE $B20E 0x01B1F7|$06:$B1E7:20 0F B2 JSR $B20F 0x01B1FA|$06:$B1EA:A9 09 LDA #$09 0x01B1FC|$06:$B1EC:85 82 STA $82 0x01B1FE|$06:$B1EE:A9 13 LDA #$13 0x01B200|$06:$B1F0:D0 16 BNE $B208 ; control flow target (from $B1D0, $B1D7, $B1DD, $B1E3) 0x01B202|$06:$B1F2:AE C4 60 LDX $60C4 0x01B205|$06:$B1F5:CA DEX 0x01B206|$06:$B1F6:E4 82 CPX $82 0x01B208|$06:$B1F8:F0 14 BEQ $B20E 0x01B20A|$06:$B1FA:20 0F B2 JSR $B20F 0x01B20D|$06:$B1FD:E6 82 INC $82 0x01B20F|$06:$B1FF:AD A5 60 LDA $60A5 ; menu cursor second column X-offset (from left edge of menu) 0x01B212|$06:$B202:29 0F AND #$0F 0x01B214|$06:$B204:18 CLC 0x01B215|$06:$B205:6D B0 60 ADC $60B0 ; control flow target (from $B1F0) 0x01B218|$06:$B208:8D B0 60 STA $60B0 0x01B21B|$06:$B20B:20 14 B2 JSR $B214 ; control flow target (from $B1C6, $B1D5, $B1E5, $B1F8) 0x01B21E|$06:$B20E:60 RTS ; control flow target (from $B101, $B114, $B13C, $B19E, $B1A5, $B1E7, $B1FA, $B276, $B27F) 0x01B21F|$06:$B20F:A2 5F LDX #$5F 0x01B221|$06:$B211:4C 91 B0 JMP $B091 ; control flow target (from $B0CE, $B0EB, $B107, $B11C, $B170, $B1BA, $B20B) 0x01B224|$06:$B214:A9 05 LDA #$05 0x01B226|$06:$B216:85 03 STA $03 ; game clock? 0x01B228|$06:$B218:20 8F B0 JSR $B08F ; call to code in a different bank ($0F:$C1DC) 0x01B22B|$06:$B21B:4C DC C1 JMP $C1DC ; set $6007 = #$00, set $00 = #$01, wait for interrupt, set $00 = #$FF ; control flow target (from $B158) 0x01B22E|$06:$B21E:A5 83 LDA $83 0x01B230|$06:$B220:C9 04 CMP #$04 0x01B232|$06:$B222:D0 1E BNE $B242 0x01B234|$06:$B224:A5 82 LDA $82 0x01B236|$06:$B226:C9 07 CMP #$07 0x01B238|$06:$B228:F0 0F BEQ $B239 0x01B23A|$06:$B22A:C9 08 CMP #$08 0x01B23C|$06:$B22C:90 14 BCC $B242 0x01B23E|$06:$B22E:A9 09 LDA #$09 0x01B240|$06:$B230:85 82 STA $82 0x01B242|$06:$B232:A9 13 LDA #$13 0x01B244|$06:$B234:8D B0 60 STA $60B0 0x01B247|$06:$B237:D0 09 BNE $B242 ; control flow target (from $B228) 0x01B249|$06:$B239:A9 06 LDA #$06 0x01B24B|$06:$B23B:85 82 STA $82 0x01B24D|$06:$B23D:A9 0D LDA #$0D 0x01B24F|$06:$B23F:8D B0 60 STA $60B0 ; control flow target (from $B222, $B22C, $B237) 0x01B252|$06:$B242:60 RTS ; control flow target (from $B151) 0x01B253|$06:$B243:20 B3 B2 JSR $B2B3 ; copy $82-$83 to $12-$13 0x01B256|$06:$B246:E6 13 INC $13 0x01B258|$06:$B248:AD B1 60 LDA $60B1 0x01B25B|$06:$B24B:F0 03 BEQ $B250 0x01B25D|$06:$B24D:4C 87 B2 JMP $B287 ; control flow target (from $B24B) 0x01B260|$06:$B250:38 SEC 0x01B261|$06:$B251:60 RTS ; control flow target (from $B187) 0x01B262|$06:$B252:20 B3 B2 JSR $B2B3 ; copy $82-$83 to $12-$13 0x01B265|$06:$B255:C6 12 DEC $12 0x01B267|$06:$B257:4C 5F B2 JMP $B25F ; control flow target (from $B1D2) 0x01B26A|$06:$B25A:20 B3 B2 JSR $B2B3 ; copy $82-$83 to $12-$13 0x01B26D|$06:$B25D:E6 12 INC $12 ; control flow target (from $B257) 0x01B26F|$06:$B25F:20 87 B2 JSR $B287 0x01B272|$06:$B262:B0 22 BCS $B286 0x01B274|$06:$B264:C6 13 DEC $13 0x01B276|$06:$B266:30 1E BMI $B286 0x01B278|$06:$B268:20 87 B2 JSR $B287 0x01B27B|$06:$B26B:B0 12 BCS $B27F 0x01B27D|$06:$B26D:C6 13 DEC $13 0x01B27F|$06:$B26F:30 15 BMI $B286 0x01B281|$06:$B271:20 87 B2 JSR $B287 0x01B284|$06:$B274:90 10 BCC $B286 0x01B286|$06:$B276:20 0F B2 JSR $B20F 0x01B289|$06:$B279:20 BC B2 JSR $B2BC 0x01B28C|$06:$B27C:4C 82 B2 JMP $B282 ; control flow target (from $B26B) 0x01B28F|$06:$B27F:20 0F B2 JSR $B20F ; control flow target (from $B27C) 0x01B292|$06:$B282:20 BC B2 JSR $B2BC 0x01B295|$06:$B285:38 SEC ; control flow target (from $B262, $B266, $B26F, $B274) 0x01B296|$06:$B286:60 RTS ; control flow target (from $B24D, $B25F, $B268, $B271) 0x01B297|$06:$B287:20 94 B2 JSR $B294 0x01B29A|$06:$B28A:AA TAX 0x01B29B|$06:$B28B:BD BA 60 LDA $60BA,X 0x01B29E|$06:$B28E:F0 02 BEQ $B292 0x01B2A0|$06:$B290:38 SEC 0x01B2A1|$06:$B291:60 RTS ; control flow target (from $B28E) 0x01B2A2|$06:$B292:18 CLC 0x01B2A3|$06:$B293:60 RTS ; control flow target (from $B0DE, $B287) 0x01B2A4|$06:$B294:A5 13 LDA $13 0x01B2A6|$06:$B296:AE A5 60 LDX $60A5 ; menu cursor second column X-offset (from left edge of menu) 0x01B2A9|$06:$B299:F0 15 BEQ $B2B0 0x01B2AB|$06:$B29B:29 0F AND #$0F 0x01B2AD|$06:$B29D:85 10 STA $10 0x01B2AF|$06:$B29F:A9 00 LDA #$00 0x01B2B1|$06:$B2A1:85 11 STA $11 0x01B2B3|$06:$B2A3:A2 10 LDX #$10 0x01B2B5|$06:$B2A5:AD C4 60 LDA $60C4 ; call to code in a different bank ($0F:$F0F4) 0x01B2B8|$06:$B2A8:20 F4 F0 JSR $F0F4 ; 16-bit multiplication: set 16-bit ($00,X-$01,X) = ($00,X-$01,X) * A 0x01B2BB|$06:$B2AB:A5 10 LDA $10 0x01B2BD|$06:$B2AD:18 CLC 0x01B2BE|$06:$B2AE:65 12 ADC $12 ; control flow target (from $B299) 0x01B2C0|$06:$B2B0:85 81 STA $81 0x01B2C2|$06:$B2B2:60 RTS ; copy $82-$83 to $12-$13 ; control flow target (from $B243, $B252, $B25A) 0x01B2C3|$06:$B2B3:A5 82 LDA $82 0x01B2C5|$06:$B2B5:85 12 STA $12 0x01B2C7|$06:$B2B7:A5 83 LDA $83 0x01B2C9|$06:$B2B9:85 13 STA $13 0x01B2CB|$06:$B2BB:60 RTS ; control flow target (from $B104, $B279, $B282) 0x01B2CC|$06:$B2BC:AD B1 60 LDA $60B1 0x01B2CF|$06:$B2BF:38 SEC 0x01B2D0|$06:$B2C0:E9 02 SBC #$02 0x01B2D2|$06:$B2C2:8D B1 60 STA $60B1 0x01B2D5|$06:$B2C5:C6 83 DEC $83 0x01B2D7|$06:$B2C7:60 RTS ; code -> data ; indexed data load target (from $AFDF) 0x01B2D8|$06:$B2C8:02 0x01B2D9|$06:$B2C9:0B ; Item list part 1, line 1 ; indirect data load target (via $8022) 0x01B2DA|$06:$B2CA:25 0A 16 0B 18 18 FF ; Bamboo[end-FF] 0x01B2E1|$06:$B2D1:30 0A 10 12 0C FF ; Magic[end-FF] 0x01B2E7|$06:$B2D7:3A 12 23 0A 1B 0D 67 1C FF ; Wizard's[end-FF] 0x01B2F0|$06:$B2E0:36 1D 0A 0F 0F 5F 18 0F FF ; Staff of[end-FF] 0x01B2F9|$06:$B2E9:26 15 1E 0B FF ; Club[end-FF] 0x01B2FE|$06:$B2EE:26 18 19 19 0E 1B FF ; Copper[end-FF] 0x01B305|$06:$B2F5:26 11 0A 12 17 FF ; Chain[end-FF] 0x01B30B|$06:$B2FB:2C 1B 18 17 FF ; Iron[end-FF] 0x01B310|$06:$B300:29 0A 15 0C 18 17 FF ; Falcon[end-FF] 0x01B317|$06:$B307:25 1B 18 0A 0D FF ; Broad[end-FF] 0x01B31D|$06:$B30D:2A 12 0A 17 1D FF ; Giant[end-FF] 0x01B323|$06:$B313:36 20 18 1B 0D 5F 18 0F FF ; Sword of[end-FF] 0x01B32C|$06:$B31C:27 1B 0A 10 18 17 FF ; Dragon[end-FF] 0x01B333|$06:$B323:2F 12 10 11 1D FF ; Light[end-FF] 0x01B339|$06:$B329:36 20 18 1B 0D 5F 18 0F FF ; Sword of[end-FF] 0x01B342|$06:$B332:37 11 1E 17 0D 0E 1B FF ; Thunder[end-FF] 0x01B34A|$06:$B33A:26 15 18 1D 11 0E 1C FF ; Clothes[end-FF] 0x01B352|$06:$B342:26 15 18 1D 11 0E 1C FF ; Clothes[end-FF] 0x01B35A|$06:$B34A:3A 0A 1D 0E 1B 5F 29 15 22 12 17 10 FF ; Water Flying[end-FF] 0x01B367|$06:$B357:30 12 17 14 FF ; Mink[end-FF] 0x01B36C|$06:$B35C:2F 0E 0A 1D 11 0E 1B FF ; Leather[end-FF] 0x01B374|$06:$B364:26 11 0A 12 17 FF ; Chain[end-FF] 0x01B37A|$06:$B36A:2A 1B 0E 16 15 12 17 67 1C FF ; Gremlin's[end-FF] 0x01B384|$06:$B374:30 0A 10 12 0C FF ; Magic[end-FF] 0x01B38A|$06:$B37A:29 1E 15 15 5F 33 15 0A 1D 0E FF ; Full Plate[end-FF] 0x01B395|$06:$B385:24 1B 16 18 1B 5F 18 0F FF ; Armor of[end-FF] 0x01B39E|$06:$B38E:24 1B 16 18 1B 5F 18 0F FF ; Armor of[end-FF] 0x01B3A7|$06:$B397:2F 0E 0A 1D 11 0E 1B FF ; Leather[end-FF] 0x01B3AF|$06:$B39F:36 11 12 0E 15 0D 5F 18 0F FF ; Shield of[end-FF] 0x01B3B9|$06:$B3A9:36 1D 0E 0E 15 FF ; Steel[end-FF] 0x01B3BF|$06:$B3AF:28 1F 12 15 FF ; Evil[end-FF] 0x01B3C4|$06:$B3B4:36 11 12 0E 15 0D 5F 18 0F FF ; Shield of[end-FF] ; Item list part 2, line 1 ; indirect data load target (via $8030) 0x01B3CE|$06:$B3BE:30 22 1C 1D 0E 1B 12 18 1E 1C FF ; Mysterious[end-FF] 0x01B3D9|$06:$B3C9:2C 1B 18 17 FF ; Iron[end-FF] 0x01B3DE|$06:$B3CE:2B 0E 15 16 0E 1D 5F 18 0F FF ; Helmet of[end-FF] 0x01B3E8|$06:$B3D8:37 18 14 0E 17 5F 18 0F FF ; Token of[end-FF] 0x01B3F1|$06:$B3E1:37 1B 0E 1C 1E 1B 0E 1C FF ; Tresures[end-FF] 0x01B3FA|$06:$B3EA:30 18 18 17 FF ; Moon[end-FF] 0x01B3FF|$06:$B3EF:26 11 0A 1B 16 5F 18 0F FF ; Charm of[end-FF] 0x01B408|$06:$B3F8:28 22 0E 5F 18 0F FF ; Eye of[end-FF] 0x01B40F|$06:$B3FF:2F 0E 0A 0F 5F 18 0F 5F 37 11 0E FF ; Leaf of The[end-FF] 0x01B41B|$06:$B40B:28 0C 11 18 12 17 10 FF ; Echoing[end-FF] 0x01B423|$06:$B413:30 12 1B 1B 18 1B 5F 18 0F FF ; Mirror of[end-FF] 0x01B42D|$06:$B41D:27 0E 20 67 1C FF ; Dew's[end-FF] 0x01B433|$06:$B423:30 0A 10 12 0C FF ; Magic[end-FF] 0x01B439|$06:$B429:26 15 18 0A 14 5F 18 0F FF ; Cloak of[end-FF] 0x01B442|$06:$B432:2A 1B 0E 16 15 12 17 67 1C FF ; Gremlin's[end-FF] 0x01B44C|$06:$B43C:27 1B 0A 10 18 17 67 1C FF ; Dragon's[end-FF] 0x01B455|$06:$B445:27 1B 0A 10 18 17 67 1C FF ; Dragon's[end-FF] 0x01B45E|$06:$B44E:2A 18 15 0D 0E 17 FF ; Golden[end-FF] 0x01B465|$06:$B455:2F 18 1D 1D 0E 1B 22 FF ; Lottery[end-FF] 0x01B46D|$06:$B45D:29 0A 12 1B 22 FF ; Fairy[end-FF] 0x01B473|$06:$B463:3A 12 17 10 5F 18 0F FF ; Wing of[end-FF] 0x01B47B|$06:$B46B:FF ; [end-FF] 0x01B47C|$06:$B46C:2A 18 15 0D 0E 17 FF ; Golden[end-FF] 0x01B483|$06:$B473:36 12 15 1F 0E 1B FF ; Silver[end-FF] 0x01B48A|$06:$B47A:2D 0A 12 15 18 1B 67 1C FF ; Jailor's[end-FF] 0x01B493|$06:$B483:3A 0A 1D 0E 1B 10 0A 1D 0E FF ; Watergate[end-FF] 0x01B49D|$06:$B48D:24 17 1D 12 0D 18 1D 0E FF ; Antidote[end-FF] 0x01B4A6|$06:$B496:30 0E 0D 12 0C 0A 15 FF ; Medical[end-FF] 0x01B4AE|$06:$B49E:3A 12 23 0A 1B 0D 67 1C FF ; Wizard's[end-FF] 0x01B4B7|$06:$B4A7:33 0E 1B 12 15 18 1E 1C FF ; Perilous[end-FF] 0x01B4C0|$06:$B4B0:FF ; [end-FF] 0x01B4C1|$06:$B4B1:FF ; [end-FF] ; Item list part 1, line 2 ; indirect data load target (via $8024) 0x01B4C2|$06:$B4B2:36 1D 12 0C 14 FF ; Stick[end-FF] 0x01B4C8|$06:$B4B8:2E 17 12 0F 0E FF ; Knife[end-FF] 0x01B4CE|$06:$B4BE:3A 0A 17 0D FF ; Wand[end-FF] 0x01B4D3|$06:$B4C3:37 11 1E 17 0D 0E 1B FF ; Thunder[end-FF] 0x01B4DB|$06:$B4CB:FF ; [end-FF] 0x01B4DC|$06:$B4CC:36 20 18 1B 0D FF ; Sword[end-FF] 0x01B4E2|$06:$B4D2:36 12 0C 14 15 0E FF ; Sickle[end-FF] 0x01B4E9|$06:$B4D9:36 19 0E 0A 1B FF ; Spear[end-FF] 0x01B4EF|$06:$B4DF:36 20 18 1B 0D FF ; Sword[end-FF] 0x01B4F5|$06:$B4E5:36 20 18 1B 0D FF ; Sword[end-FF] 0x01B4FB|$06:$B4EB:2B 0A 16 16 0E 1B FF ; Hammer[end-FF] 0x01B502|$06:$B4F2:27 0E 1C 1D 1B 1E 0C 1D 12 18 17 FF ; Destruction[end-FF] 0x01B50E|$06:$B4FE:2E 12 15 15 0E 1B FF ; Killer[end-FF] 0x01B515|$06:$B505:36 20 18 1B 0D FF ; Sword[end-FF] 0x01B51B|$06:$B50B:28 1B 0D 1B 12 0C 14 FF ; Erdrick[end-FF] 0x01B523|$06:$B513:36 20 18 1B 0D FF ; Sword[end-FF] 0x01B529|$06:$B519:FF ; [end-FF] 0x01B52A|$06:$B51A:2B 12 0D 12 17 10 FF ; Hiding[end-FF] 0x01B531|$06:$B521:26 15 18 1D 11 FF ; Cloth[end-FF] 0x01B537|$06:$B527:26 18 0A 1D FF ; Coat[end-FF] 0x01B53C|$06:$B52C:24 1B 16 18 1B FF ; Armor[end-FF] 0x01B542|$06:$B532:30 0A 12 15 FF ; Mail[end-FF] 0x01B547|$06:$B537:24 1B 16 18 1B FF ; Armor[end-FF] 0x01B54D|$06:$B53D:24 1B 16 18 1B FF ; Armor[end-FF] 0x01B553|$06:$B543:24 1B 16 18 1B FF ; Armor[end-FF] 0x01B559|$06:$B549:2A 0A 12 0A FF ; Gaia[end-FF] 0x01B55E|$06:$B54E:28 1B 0D 1B 12 0C 14 FF ; Erdrick[end-FF] 0x01B566|$06:$B556:36 11 12 0E 15 0D FF ; Shield[end-FF] 0x01B56D|$06:$B55D:36 1D 1B 0E 17 10 1D 11 FF ; Strength[end-FF] 0x01B576|$06:$B566:36 11 12 0E 15 0D FF ; Shield[end-FF] 0x01B57D|$06:$B56D:36 11 12 0E 15 0D FF ; Shield[end-FF] 0x01B584|$06:$B574:28 1B 0D 1B 12 0C 14 FF ; Erdrick[end-FF] ; Item list part 2, line 2 ; indirect data load target (via $8032) 0x01B58C|$06:$B57C:2B 0A 1D FF ; Hat[end-FF] 0x01B590|$06:$B580:2B 0E 15 16 0E 1D FF ; Helmet[end-FF] 0x01B597|$06:$B587:28 1B 0D 1B 12 0C 14 FF ; Erdrick[end-FF] 0x01B59F|$06:$B58F:28 1B 0D 1B 12 0C 14 FF ; Erdrick[end-FF] 0x01B5A7|$06:$B597:FF ; [end-FF] 0x01B5A8|$06:$B598:29 1B 0A 10 16 0E 17 1D FF ; Fragment[end-FF] 0x01B5B1|$06:$B5A1:35 1E 0B 12 1C 1C FF ; Rubiss[end-FF] 0x01B5B8|$06:$B5A8:30 0A 15 1B 18 1D 11 FF ; Malroth[end-FF] 0x01B5C0|$06:$B5B0:3A 18 1B 15 0D 5F 37 1B 0E 0E FF ; World Tree[end-FF] 0x01B5CB|$06:$B5BB:29 15 1E 1D 0E FF ; Flute[end-FF] 0x01B5D1|$06:$B5C1:35 0A FF ; Ra[end-FF] 0x01B5D4|$06:$B5C4:3C 0A 1B 17 FF ; Yarn[end-FF] 0x01B5D9|$06:$B5C9:2F 18 18 16 FF ; Loom[end-FF] 0x01B5DE|$06:$B5CE:3A 12 17 0D FF ; Wind[end-FF] 0x01B5E3|$06:$B5D3:37 0A 12 15 FF ; Tail[end-FF] 0x01B5E8|$06:$B5D8:25 0A 17 0E FF ; Bane[end-FF] 0x01B5ED|$06:$B5DD:33 18 1D 12 18 17 FF ; Potion[end-FF] 0x01B5F4|$06:$B5E4:26 0A 1B 0D FF ; Card[end-FF] 0x01B5F9|$06:$B5E9:37 12 0C 14 0E 1D FF ; Ticket[end-FF] 0x01B600|$06:$B5F0:3A 0A 1D 0E 1B FF ; Water[end-FF] 0x01B606|$06:$B5F6:1D 11 0E 5F 3A 22 1F 0E 1B 17 FF ; the Wyvern[end-FF] 0x01B611|$06:$B601:FF ; [end-FF] 0x01B612|$06:$B602:2E 0E 22 FF ; Key[end-FF] 0x01B616|$06:$B606:2E 0E 22 FF ; Key[end-FF] 0x01B61A|$06:$B60A:2E 0E 22 FF ; Key[end-FF] 0x01B61E|$06:$B60E:2E 0E 22 FF ; Key[end-FF] 0x01B622|$06:$B612:2B 0E 1B 0B FF ; Herb[end-FF] 0x01B627|$06:$B617:2B 0E 1B 0B FF ; Herb[end-FF] 0x01B62C|$06:$B61C:35 12 17 10 FF ; Ring[end-FF] 0x01B631|$06:$B621:FF ; [end-FF] 0x01B632|$06:$B622:FF ; [end-FF] 0x01B633|$06:$B623:FF ; [end-FF] ; Spell name list ; indirect data load target (via $8026) 0x01B634|$06:$B624:29 12 1B 0E 0B 0A 15 FF ; Firebal[end-FF] 0x01B63C|$06:$B62C:2B 0E 0A 15 FF ; Heal[end-FF] 0x01B641|$06:$B631:36 1D 18 19 1C 19 0E 15 15 FF ; Stopspell[end-FF] 0x01B64B|$06:$B63B:2B 0E 0A 15 16 18 1B 0E FF ; Healmore[end-FF] 0x01B654|$06:$B644:29 12 1B 0E 0B 0A 17 0E FF ; Firebane[end-FF] 0x01B65D|$06:$B64D:2C 17 0C 1B 0E 0A 1C 0E FF ; Increase[end-FF] 0x01B666|$06:$B656:27 0E 0F 0E 0A 1D FF ; Defeat[end-FF] 0x01B66D|$06:$B65D:36 0A 0C 1B 12 0F 12 0C 0E FF ; Sacrifice[end-FF] 0x01B677|$06:$B667:2B 0E 0A 15 FF ; Heal[end-FF] 0x01B67C|$06:$B66C:24 17 1D 12 0D 18 1D 0E FF ; Antidote[end-FF] 0x01B685|$06:$B675:35 0E 1D 1E 1B 17 FF ; Return[end-FF] 0x01B68C|$06:$B67C:32 1E 1D 1C 12 0D 0E FF ; Outside[end-FF] 0x01B694|$06:$B684:2B 0E 0A 15 16 18 1B 0E FF ; Healmore[end-FF] 0x01B69D|$06:$B68D:36 1D 0E 19 10 1E 0A 1B 0D FF ; Stepguard[end-FF] 0x01B6A7|$06:$B697:35 0E 1F 12 1F 0E FF ; Revive[end-FF] 0x01B6AE|$06:$B69E:FF ; [end-FF] 0x01B6AF|$06:$B69F:36 15 0E 0E 19 FF ; Sleep[end-FF] 0x01B6B5|$06:$B6A5:2B 0E 0A 15 16 18 1B 0E FF ; Healmore[end-FF] 0x01B6BE|$06:$B6AE:2C 17 0F 0E 1B 17 18 1C FF ; Infernos[end-FF] 0x01B6C7|$06:$B6B7:27 0E 0F 0E 17 0C 0E FF ; Defence[end-FF] 0x01B6CF|$06:$B6BF:36 1E 1B 1B 18 1E 17 0D FF ; Surround[end-FF] 0x01B6D8|$06:$B6C8:2B 0E 0A 15 0A 15 15 FF ; Healall[end-FF] 0x01B6E0|$06:$B6D0:28 21 19 15 18 0D 0E 1D FF ; Explodet[end-FF] 0x01B6E9|$06:$B6D9:26 11 0A 17 0C 0E FF ; Chance[end-FF] 0x01B6F0|$06:$B6E0:2B 0E 0A 15 16 18 1B 0E FF ; Healmore[end-FF] 0x01B6F9|$06:$B6E9:35 0E 19 0E 15 FF ; Repel[end-FF] 0x01B6FF|$06:$B6EF:24 17 1D 12 0D 18 1D 0E FF ; Antidote[end-FF] 0x01B708|$06:$B6F8:2B 0E 0A 15 0A 15 15 FF ; Healall[end-FF] 0x01B710|$06:$B700:32 1E 1D 1C 12 0D 0E FF ; Outside[end-FF] 0x01B718|$06:$B708:36 1D 0E 19 10 1E 0A 1B 0D FF ; Stepguard[end-FF] 0x01B722|$06:$B712:32 19 0E 17 FF ; Open[end-FF] 0x01B727|$06:$B717:FF ; [end-FF] ; Monster list part 1, line 1 ; indirect data load target (via $8028) 0x01B728|$06:$B718:36 15 12 16 0E FF ; Slime[end-FF] 0x01B72E|$06:$B71E:25 12 10 FF ; Big[end-FF] 0x01B732|$06:$B722:2C 1B 18 17 FF ; Iron[end-FF] 0x01B737|$06:$B727:27 1B 0A 14 0E 0E FF ; Drakee[end-FF] 0x01B73E|$06:$B72E:3A 12 15 0D FF ; Wild[end-FF] 0x01B743|$06:$B733:2B 0E 0A 15 0E 1B FF ; Healer[end-FF] 0x01B74A|$06:$B73A:2A 11 18 1C 1D FF ; Ghost[end-FF] 0x01B750|$06:$B740:25 0A 0B 0B 15 0E FF ; Babble[end-FF] 0x01B757|$06:$B747:24 1B 16 22 FF ; Army[end-FF] 0x01B75C|$06:$B74C:30 0A 10 12 0C 12 0A 17 FF ; Magician[end-FF] 0x01B765|$06:$B755:25 12 10 FF ; Big[end-FF] 0x01B769|$06:$B759:25 12 10 FF ; Big[end-FF] 0x01B76D|$06:$B75D:30 0A 10 12 0C FF ; Magic[end-FF] 0x01B773|$06:$B763:30 0A 10 12 0D 1B 0A 14 0E 0E FF ; Magidrakee[end-FF] 0x01B77E|$06:$B76E:26 0E 17 1D 12 19 18 0D FF ; Centipod[end-FF] 0x01B787|$06:$B777:30 0A 17 5F 32 67 FF ; Man O'[end-FF] 0x01B78E|$06:$B77E:2F 12 23 0A 1B 0D FF ; Lizard[end-FF] 0x01B795|$06:$B785:3D 18 16 0B 12 0E FF ; Zombie[end-FF] 0x01B79C|$06:$B78C:36 16 18 14 0E FF ; Smoke[end-FF] 0x01B7A2|$06:$B792:2A 11 18 1C 1D FF ; Ghost[end-FF] 0x01B7A8|$06:$B798:25 0A 0B 18 18 17 FF ; Baboon[end-FF] 0x01B7AF|$06:$B79F:26 0A 1B 17 12 1F 18 10 FF ; Carnivog[end-FF] 0x01B7B8|$06:$B7A8:30 0E 10 0A 19 0E 0D 0E FF ; Megapede[end-FF] 0x01B7C1|$06:$B7B1:36 0E 0A FF ; Sea[end-FF] 0x01B7C5|$06:$B7B5:30 0E 0D 1E 1C 0A FF ; Medusa[end-FF] 0x01B7CC|$06:$B7BC:28 17 0C 11 0A 17 1D 0E 1B FF ; Enchanter[end-FF] 0x01B7D6|$06:$B7C6:30 1E 0D FF ; Mud[end-FF] 0x01B7DA|$06:$B7CA:30 0A 10 12 0C FF ; Magic[end-FF] 0x01B7E0|$06:$B7D0:27 0E 16 12 10 11 18 1C 1D FF ; Demighost[end-FF] 0x01B7EA|$06:$B7DA:2A 1B 0E 16 15 12 17 FF ; Gremlin[end-FF] 0x01B7F2|$06:$B7E2:33 18 12 1C 18 17 FF ; Poison[end-FF] 0x01B7F9|$06:$B7E9:30 1E 16 16 22 FF ; Mummy[end-FF] 0x01B7FF|$06:$B7EF:2A 18 1B 10 18 17 FF ; Gorgon[end-FF] 0x01B806|$06:$B7F6:36 0A 0B 0E 1B FF ; Saber[end-FF] 0x01B80C|$06:$B7FC:27 1B 0A 10 18 17 FF ; Dragon[end-FF] 0x01B813|$06:$B803:37 12 1D 0A 17 FF ; Titan[end-FF] 0x01B819|$06:$B809:38 17 0D 0E 0A 0D FF ; Undead[end-FF] 0x01B820|$06:$B810:25 0A 1C 12 15 12 1C 14 FF ; Basilisk[end-FF] 0x01B829|$06:$B819:2A 18 18 19 12 FF ; Goopi[end-FF] 0x01B82F|$06:$B81F:32 1B 0C FF ; Orc[end-FF] 0x01B833|$06:$B823:33 1E 19 19 0E 1D FF ; Puppet[end-FF] 0x01B83A|$06:$B82A:30 1E 16 16 22 FF ; Mummy[end-FF] 0x01B840|$06:$B830:28 1F 12 15 FF ; Evil[end-FF] 0x01B845|$06:$B835:2A 0A 1C FF ; Gas[end-FF] 0x01B849|$06:$B839:2B 18 1B 14 FF ; Hork[end-FF] 0x01B84E|$06:$B83E:2B 0A 20 14 FF ; Hawk[end-FF] 0x01B853|$06:$B843:36 18 1B 0C 0E 1B 0E 1B FF ; Sorcerer[end-FF] 0x01B85C|$06:$B84C:30 0E 1D 0A 15 FF ; Metal[end-FF] 0x01B862|$06:$B852:2B 1E 17 1D 0E 1B FF ; Hunter[end-FF] 0x01B869|$06:$B859:28 1F 12 15 FF ; Evil[end-FF] ; Monster list part 2, line 1 ; indirect data load target (via $8034) 0x01B86E|$06:$B85E:2B 12 0B 0A 0B 0A 17 10 18 FF ; Hibabango[end-FF] 0x01B878|$06:$B868:2A 1B 0A 0B 18 18 19 12 FF ; Graboopi[end-FF] 0x01B881|$06:$B871:2A 18 15 0D FF ; Gold[end-FF] 0x01B886|$06:$B876:28 1F 12 15 FF ; Evil[end-FF] 0x01B88B|$06:$B87B:2A 11 18 1E 15 FF ; Ghoul[end-FF] 0x01B891|$06:$B881:39 0A 16 19 12 1B 1E 1C FF ; Vampirus[end-FF] 0x01B89A|$06:$B88A:30 0E 10 0A FF ; Mega[end-FF] 0x01B89F|$06:$B88F:36 0A 0B 0E 1B FF ; Saber[end-FF] 0x01B8A5|$06:$B895:30 0E 1D 0A 15 FF ; Metal[end-FF] 0x01B8AB|$06:$B89B:32 23 20 0A 1B 10 FF ; Ozwarg[end-FF] 0x01B8B2|$06:$B8A2:27 0A 1B 14 FF ; Dark[end-FF] 0x01B8B7|$06:$B8A7:2A 0A 1B 10 18 22 15 0E FF ; Gargoyle[end-FF] 0x01B8C0|$06:$B8B0:32 1B 0C FF ; Orc[end-FF] 0x01B8C4|$06:$B8B4:30 0A 10 12 0C FF ; Magic[end-FF] 0x01B8CA|$06:$B8BA:25 0E 1B 1C 0E 1B 14 0E 1B FF ; Berserker[end-FF] 0x01B8D4|$06:$B8C4:30 0E 1D 0A 15 FF ; Metal[end-FF] 0x01B8DA|$06:$B8CA:2B 0A 1B 10 18 17 67 1C FF ; Hargon's[end-FF] 0x01B8E3|$06:$B8D3:26 22 0C 15 18 19 1C FF ; Cyclops[end-FF] 0x01B8EB|$06:$B8DB:24 1D 1D 0A 0C 14 0B 18 1D FF ; Attackbot[end-FF] 0x01B8F5|$06:$B8E5:2A 1B 0E 0E 17 FF ; Green[end-FF] 0x01B8FB|$06:$B8EB:30 0A 0C 0E FF ; Mace[end-FF] 0x01B900|$06:$B8F0:29 15 0A 16 0E FF ; Flame[end-FF] 0x01B906|$06:$B8F6:36 12 15 1F 0E 1B FF ; Silver[end-FF] 0x01B90D|$06:$B8FD:25 15 12 23 23 0A 1B 0D FF ; Blizzard[end-FF] 0x01B916|$06:$B906:2A 12 0A 17 1D FF ; Giant[end-FF] 0x01B91C|$06:$B90C:2A 18 15 0D FF ; Gold[end-FF] 0x01B921|$06:$B911:25 1E 15 15 20 18 17 10 FF ; Bullwong[end-FF] 0x01B92A|$06:$B91A:24 1D 15 0A 1C FF ; Atlas[end-FF] 0x01B930|$06:$B920:25 0A 23 1E 23 1E FF ; Bazuzu[end-FF] 0x01B937|$06:$B927:3D 0A 1B 15 18 21 FF ; Zarlox[end-FF] 0x01B93E|$06:$B92E:2B 0A 1B 10 18 17 FF ; Hargon[end-FF] 0x01B945|$06:$B935:30 0A 15 1B 18 1D 11 FF ; Malroth[end-FF] 0x01B94D|$06:$B93D:28 17 0E 16 12 0E 1C FF ; Enemies[end-FF] ; Monster list part 1, line 2 ; indirect data load target (via $802A) 0x01B955|$06:$B945:FF ; [end-FF] 0x01B956|$06:$B946:36 15 1E 10 FF ; Slug[end-FF] 0x01B95B|$06:$B94B:24 17 1D FF ; Ant[end-FF] 0x01B95F|$06:$B94F:FF ; [end-FF] 0x01B960|$06:$B950:30 18 1E 1C 0E FF ; Mouse[end-FF] 0x01B966|$06:$B956:FF ; [end-FF] 0x01B967|$06:$B957:30 18 1E 1C 0E FF ; Mouse[end-FF] 0x01B96D|$06:$B95D:FF ; [end-FF] 0x01B96E|$06:$B95E:24 17 1D FF ; Ant[end-FF] 0x01B972|$06:$B962:FF ; [end-FF] 0x01B973|$06:$B963:35 0A 1D FF ; Rat[end-FF] 0x01B977|$06:$B967:26 18 0B 1B 0A FF ; Cobra[end-FF] 0x01B97D|$06:$B96D:24 17 1D FF ; Ant[end-FF] 0x01B981|$06:$B971:FF ; [end-FF] 0x01B982|$06:$B972:FF ; [end-FF] 0x01B983|$06:$B973:3A 0A 1B FF ; War[end-FF] 0x01B987|$06:$B977:29 15 22 FF ; Fly[end-FF] 0x01B98B|$06:$B97B:FF ; [end-FF] 0x01B98C|$06:$B97C:FF ; [end-FF] 0x01B98D|$06:$B97D:35 0A 1D FF ; Rat[end-FF] 0x01B991|$06:$B981:FF ; [end-FF] 0x01B992|$06:$B982:FF ; [end-FF] 0x01B993|$06:$B983:FF ; [end-FF] 0x01B994|$06:$B984:36 15 1E 10 FF ; Slug[end-FF] 0x01B999|$06:$B989:25 0A 15 15 FF ; Ball[end-FF] 0x01B99E|$06:$B98E:FF ; [end-FF] 0x01B99F|$06:$B98F:30 0A 17 FF ; Man[end-FF] 0x01B9A3|$06:$B993:25 0A 0B 18 18 17 FF ; Baboon[end-FF] 0x01B9AA|$06:$B99A:FF ; [end-FF] 0x01B9AB|$06:$B99B:FF ; [end-FF] 0x01B9AC|$06:$B99C:2F 12 15 22 FF ; Lily[end-FF] 0x01B9B1|$06:$B9A1:30 0A 17 FF ; Man[end-FF] 0x01B9B5|$06:$B9A5:FF ; [end-FF] 0x01B9B6|$06:$B9A6:37 12 10 0E 1B FF ; Tiger[end-FF] 0x01B9BC|$06:$B9AC:29 15 22 FF ; Fly[end-FF] 0x01B9C0|$06:$B9B0:37 1B 0E 0E FF ; Tree[end-FF] 0x01B9C5|$06:$B9B5:FF ; [end-FF] 0x01B9C6|$06:$B9B6:FF ; [end-FF] 0x01B9C7|$06:$B9B7:FF ; [end-FF] 0x01B9C8|$06:$B9B8:FF ; [end-FF] 0x01B9C9|$06:$B9B9:30 0A 17 FF ; Man[end-FF] 0x01B9CD|$06:$B9BD:FF ; [end-FF] 0x01B9CE|$06:$B9BE:37 1B 0E 0E FF ; Tree[end-FF] 0x01B9D3|$06:$B9C3:FF ; [end-FF] 0x01B9D4|$06:$B9C4:FF ; [end-FF] 0x01B9D5|$06:$B9C5:30 0A 17 FF ; Man[end-FF] 0x01B9D9|$06:$B9C9:FF ; [end-FF] 0x01B9DA|$06:$B9CA:36 15 12 16 0E FF ; Slime[end-FF] 0x01B9E0|$06:$B9D0:FF ; [end-FF] 0x01B9E1|$06:$B9D1:28 22 0E FF ; Eye[end-FF] ; Monster list part 2, line 2 ; indirect data load target (via $8036) 0x01B9E5|$06:$B9D5:FF ; [end-FF] 0x01B9E6|$06:$B9D6:FF ; [end-FF] 0x01B9E7|$06:$B9D7:32 1B 0C FF ; Orc[end-FF] 0x01B9EB|$06:$B9DB:26 15 18 20 17 FF ; Clown[end-FF] 0x01B9F1|$06:$B9E1:FF ; [end-FF] 0x01B9F2|$06:$B9E2:FF ; [end-FF] 0x01B9F3|$06:$B9E3:2E 17 12 10 11 1D FF ; Knight[end-FF] 0x01B9FA|$06:$B9EA:2F 12 18 17 FF ; Lion[end-FF] 0x01B9FF|$06:$B9EF:2B 1E 17 1D 0E 1B FF ; Hunter[end-FF] 0x01BA06|$06:$B9F6:FF ; [end-FF] 0x01BA07|$06:$B9F7:28 22 0E FF ; Eye[end-FF] 0x01BA0B|$06:$B9FB:FF ; [end-FF] 0x01BA0C|$06:$B9FC:2E 12 17 10 FF ; King[end-FF] 0x01BA11|$06:$BA01:39 0A 16 19 12 1B 1E 1C FF ; Vampirus[end-FF] 0x01BA1A|$06:$BA0A:FF ; [end-FF] 0x01BA1B|$06:$BA0B:25 0A 0B 0B 15 0E FF ; Babble[end-FF] 0x01BA22|$06:$BA12:2E 17 12 10 11 1D FF ; Knight[end-FF] 0x01BA29|$06:$BA19:FF ; [end-FF] 0x01BA2A|$06:$BA1A:FF ; [end-FF] 0x01BA2B|$06:$BA1B:27 1B 0A 10 18 17 FF ; Dragon[end-FF] 0x01BA32|$06:$BA22:30 0A 1C 1D 0E 1B FF ; Master[end-FF] 0x01BA39|$06:$BA29:FF ; [end-FF] 0x01BA3A|$06:$BA2A:25 0A 1D 0B 18 18 17 FF ; Batboon[end-FF] 0x01BA42|$06:$BA32:FF ; [end-FF] 0x01BA43|$06:$BA33:FF ; [end-FF] 0x01BA44|$06:$BA34:25 0A 1D 0B 18 18 17 FF ; Batboon[end-FF] 0x01BA4C|$06:$BA3C:FF ; [end-FF] 0x01BA4D|$06:$BA3D:FF ; [end-FF] 0x01BA4E|$06:$BA3E:FF ; [end-FF] 0x01BA4F|$06:$BA3F:FF ; [end-FF] 0x01BA50|$06:$BA40:FF ; [end-FF] 0x01BA51|$06:$BA41:FF ; [end-FF] 0x01BA52|$06:$BA42:FF ; [end-FF] ; tiles for redrawing the part of the main COMMAND menu obscured by the EQUIP sub-menu when the EQUIP sub-menu is closed; (only?) read during battle where there is no main COMMAND menu ; completely useless? ; indirect data load target (via $802C) 0x01BA53|$06:$BA43:24 31 5F 5F 0x01BA57|$06:$BA47:27 77 5F 5F 0x01BA5B|$06:$BA4B:77 77 5F 5F 0x01BA5F|$06:$BA4F:77 7C 5F 5F 0x01BA63|$06:$BA53:5F 5F 5F 5F 0x01BA67|$06:$BA57:36 33 5F 5F 0x01BA6B|$06:$BA5B:28 2F 5F 5F 0x01BA6F|$06:$BA5F:2F 7B 5F 7B 0x01BA73|$06:$BA63:5F 5F 5F 5F 0x01BA77|$06:$BA67:2C 37 5F 5F 0x01BA7B|$06:$BA6B:28 30 5F 5F 0x01BA7F|$06:$BA6F:5F 7B 5F 7B 0x01BA83|$06:$BA73:5F 5F 7D 7D 0x01BA87|$06:$BA77:28 34 7D 7D 0x01BA8B|$06:$BA7B:38 2C 7D 7D 0x01BA8F|$06:$BA7F:33 7B 7D 7E ; indirect data load target (via $802E) 0x01BA93|$06:$BA83:77 77 77 77 0x01BA97|$06:$BA87:77 77 77 7C 0x01BA9B|$06:$BA8B:79 77 77 77 0x01BA9F|$06:$BA8F:77 77 7C 7B 0x01BAA3|$06:$BA93:76 5F 5F 5F 0x01BAA7|$06:$BA97:5F 5F 7B 7B 0x01BAAB|$06:$BA9B:7A 7D 7D 7D 0x01BAAF|$06:$BA9F:7D 7D 7E 7B ; data -> code ; indirect control flow target (via $803A) 0x01BAB3|$06:$BAA3:A9 05 LDA #$05 0x01BAB5|$06:$BAA5:85 94 STA $94 ; return bank for various function calls, doubles as index of selected option for multiple-choice menus 0x01BAB7|$06:$BAA7:A5 31 LDA $31 ; current map ID 0x01BAB9|$06:$BAA9:C9 03 CMP #$03 ; Map ID #$03: Midenhall 1F 0x01BABB|$06:$BAAB:F0 01 BEQ $BAAE ; control flow target (from $BAB3, $BAB9, $BABF, $BAC3) 0x01BABD|$06:$BAAD:60 RTS ; control flow target (from $BAAB) 0x01BABE|$06:$BAAE:AD 49 05 LDA $0549 ; NPC #$01 sprite ID 0x01BAC1|$06:$BAB1:C9 FF CMP #$FF 0x01BAC3|$06:$BAB3:F0 F8 BEQ $BAAD 0x01BAC5|$06:$BAB5:A5 17 LDA $17 ; current map Y-pos (1) 0x01BAC7|$06:$BAB7:C9 05 CMP #$05 0x01BAC9|$06:$BAB9:D0 F2 BNE $BAAD 0x01BACB|$06:$BABB:A5 16 LDA $16 ; current map X-pos (1) 0x01BACD|$06:$BABD:C9 0E CMP #$0E 0x01BACF|$06:$BABF:90 EC BCC $BAAD 0x01BAD1|$06:$BAC1:C9 11 CMP #$11 0x01BAD3|$06:$BAC3:B0 E8 BCS $BAAD 0x01BAD5|$06:$BAC5:AD 4B 05 LDA $054B ; NPC #$01 scripted motion high byte 0x01BAD8|$06:$BAC8:C9 7F CMP #$7F 0x01BADA|$06:$BACA:D0 09 BNE $BAD5 ; call to code in a different bank ($0F:$CCF1) 0x01BADC|$06:$BACC:20 F1 CC JSR $CCF1 ; set up scripted motion variables based on next 4 bytes (low 5 bits = NPC index, NPC index + 1's motion + direction byte?, 2-byte pointer to motion script) ; code -> data ; indirect data load target 0x01BADF|$06:$BACF:82 ; indirect data load target 0x01BAE0|$06:$BAD0:21 ; indirect data load target 0x01BAE1|$06:$BAD1:D5 80 ; $07:$80D5; motion script for Moonbrooke, ending part 1 (turned) ; data -> code 0x01BAE3|$06:$BAD3:90 0A BCC $BADF ; control flow target (from $BACA) ; call to code in a different bank ($0F:$CCF1) 0x01BAE5|$06:$BAD5:20 F1 CC JSR $CCF1 ; set up scripted motion variables based on next 4 bytes (low 5 bits = NPC index, NPC index + 1's motion + direction byte?, 2-byte pointer to motion script) ; code -> data ; indirect data load target 0x01BAE8|$06:$BAD8:82 ; indirect data load target 0x01BAE9|$06:$BAD9:21 ; indirect data load target 0x01BAEA|$06:$BADA:DB 80 ; $07:$80DB; motion script for Cannock, ending part 1 ; data -> code 0x01BAEC|$06:$BADC:EE 65 05 INC $0565 ; NPC #$05 Y-pos ; control flow target (from $BAD3) ; call to code in a different bank ($0F:$CCF1) 0x01BAEF|$06:$BADF:20 F1 CC JSR $CCF1 ; set up scripted motion variables based on next 4 bytes (low 5 bits = NPC index, NPC index + 1's motion + direction byte?, 2-byte pointer to motion script) ; code -> data ; indirect data load target 0x01BAF2|$06:$BAE2:81 ; indirect data load target 0x01BAF3|$06:$BAE3:21 ; indirect data load target 0x01BAF4|$06:$BAE4:CF 80 ; $07:$80CF; motion script for Moonbrooke, ending part 1 (not turned) ; data -> code 0x01BAF6|$06:$BAE6:A5 16 LDA $16 ; current map X-pos (1) 0x01BAF8|$06:$BAE8:C9 0E CMP #$0E 0x01BAFA|$06:$BAEA:D0 08 BNE $BAF4 0x01BAFC|$06:$BAEC:EE 5A 05 INC $055A ; NPC #$03 scripted motion low byte 0x01BAFF|$06:$BAEF:CE 5C 05 DEC $055C ; NPC #$04 X-pos 0x01BB02|$06:$BAF2:D0 0A BNE $BAFE ; control flow target (from $BAEA) 0x01BB04|$06:$BAF4:C9 10 CMP #$10 0x01BB06|$06:$BAF6:D0 06 BNE $BAFE 0x01BB08|$06:$BAF8:CE 5A 05 DEC $055A ; NPC #$03 scripted motion low byte 0x01BB0B|$06:$BAFB:EE 5C 05 INC $055C ; NPC #$04 X-pos ; control flow target (from $BAF2, $BAF6) 0x01BB0E|$06:$BAFE:A5 16 LDA $16 ; current map X-pos (1) 0x01BB10|$06:$BB00:18 CLC 0x01BB11|$06:$BB01:6D 44 05 ADC $0544 ; NPC #$01 ? 0x01BB14|$06:$BB04:18 CLC 0x01BB15|$06:$BB05:6D 4C 05 ADC $054C ; NPC #$02 ? 0x01BB18|$06:$BB08:C9 0E CMP #$0E 0x01BB1A|$06:$BB0A:D0 08 BNE $BB14 0x01BB1C|$06:$BB0C:CE 62 05 DEC $0562 ; NPC #$04 scripted motion low byte 0x01BB1F|$06:$BB0F:CE 64 05 DEC $0564 ; NPC #$05 X-pos 0x01BB22|$06:$BB12:D0 0A BNE $BB1E ; control flow target (from $BB0A) 0x01BB24|$06:$BB14:C9 10 CMP #$10 0x01BB26|$06:$BB16:D0 06 BNE $BB1E 0x01BB28|$06:$BB18:EE 62 05 INC $0562 ; NPC #$04 scripted motion low byte 0x01BB2B|$06:$BB1B:EE 64 05 INC $0564 ; NPC #$05 X-pos ; control flow target (from $BB12, $BB16) 0x01BB2E|$06:$BB1E:A9 00 LDA #$00 0x01BB30|$06:$BB20:A8 TAY ; control flow target (from $BB27) 0x01BB31|$06:$BB21:99 42 05 STA $0542,Y ; NPC #$00 ? 0x01BB34|$06:$BB24:C8 INY 0x01BB35|$06:$BB25:C0 10 CPY #$10 0x01BB37|$06:$BB27:D0 F8 BNE $BB21 0x01BB39|$06:$BB29:A9 FF LDA #$FF 0x01BB3B|$06:$BB2B:8D 49 05 STA $0549 ; NPC #$01 sprite ID 0x01BB3E|$06:$BB2E:8D 51 05 STA $0551 ; NPC #$02 sprite ID 0x01BB41|$06:$BB31:A2 01 LDX #$01 0x01BB43|$06:$BB33:8E 61 05 STX $0561 ; NPC #$04 sprite ID 0x01BB46|$06:$BB36:E8 INX 0x01BB47|$06:$BB37:8E 69 05 STX $0569 ; NPC #$05 sprite ID ; call to code in a different bank ($0F:$CCD2) 0x01BB4A|$06:$BB3A:4C D2 CC JMP $CCD2 ; execute scripted motion ; indirect control flow target (via $8038) ; call to code in a different bank ($0F:$CD26) 0x01BB4D|$06:$BB3D:20 26 CD JSR $CD26 ; set Z if your current map position is the (X, Y) co-ordinates given by the next 2 bytes ; code -> data ; indirect data load target 0x01BB50|$06:$BB40:0F ; indirect data load target 0x01BB51|$06:$BB41:03 ; data -> code 0x01BB52|$06:$BB42:F0 01 BEQ $BB45 0x01BB54|$06:$BB44:60 RTS ; control flow target (from $BB42) 0x01BB55|$06:$BB45:A9 FF LDA #$FF 0x01BB57|$06:$BB47:85 35 STA $35 ; flag indicating whether any menu is currently open 0x01BB59|$06:$BB49:A9 46 LDA #$46 0x01BB5B|$06:$BB4B:8D 2C 06 STA $062C ; current battle message delay ; call to code in a different bank ($0F:$EB76) 0x01BB5E|$06:$BB4E:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x01BB61|$06:$BB51:04 ; Menu ID #$04: Dialogue window ; data -> code 0x01BB62|$06:$BB52:A9 00 LDA #$00 ; call to code in a different bank ($0F:$FC50) 0x01BB64|$06:$BB54:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x01BB67|$06:$BB57:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01BB6A|$06:$BB5A:B5 ; String ID #$01B5: ‘[name], thou art of the line of Erdrick and have proven thy heritage by thy deeds[.’][wait][end-FC] ; data -> code ; control flow target (from $BB6B) ; call to code in a different bank ($0F:$FA2E) 0x01BB6B|$06:$BB5B:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01BB6E|$06:$BB5E:B6 ; String ID #$01B6: ‘Now is the time for thee to take the throne. Will it be so?’[FD][FD][end-FC] ; data -> code ; call to code in a different bank ($0F:$EB76) 0x01BB6F|$06:$BB5F:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x01BB72|$06:$BB62:19 ; Menu ID #$19: General menu: YES/NO ; data -> code 0x01BB73|$06:$BB63:C9 00 CMP #$00 0x01BB75|$06:$BB65:F0 07 BEQ $BB6E ; call to code in a different bank ($0F:$FA2E) 0x01BB77|$06:$BB67:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01BB7A|$06:$BB6A:B7 ; String ID #$01B7: ‘Be careful, [name]. Do not be selfish[.’][wait][end-FC] ; data -> code 0x01BB7B|$06:$BB6B:4C 5B BB JMP $BB5B ; control flow target (from $BB65) 0x01BB7E|$06:$BB6E:A9 01 LDA #$01 ; call to code in a different bank ($0F:$FC50) 0x01BB80|$06:$BB70:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x01BB83|$06:$BB73:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01BB86|$06:$BB76:B8 ; String ID #$01B8: ‘Hail all to the new monarch of Midenhall!’[wait][line]‘Now, [name], Prince of Cannock, come forth[.’][wait][end-FC] ; data -> code 0x01BB87|$06:$BB77:A9 02 LDA #$02 ; call to code in a different bank ($0F:$FC50) 0x01BB89|$06:$BB79:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x01BB8C|$06:$BB7C:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01BB8F|$06:$BB7F:BC ; String ID #$01BC: ‘[name], Princess of Moonbrooke, come forth[.’][end-FC] ; data -> code ; call to code in a different bank ($0F:$D0F5) 0x01BB90|$06:$BB80:20 F5 D0 JSR $D0F5 ; wait for a while and then wipe menu regions #$03, #$00, and #$01 ; call to code in a different bank ($0F:$CCF1) 0x01BB93|$06:$BB83:20 F1 CC JSR $CCF1 ; set up scripted motion variables based on next 4 bytes (low 5 bits = NPC index, NPC index + 1's motion + direction byte?, 2-byte pointer to motion script) ; code -> data ; indirect data load target 0x01BB96|$06:$BB86:85 ; indirect data load target 0x01BB97|$06:$BB87:20 ; indirect data load target 0x01BB98|$06:$BB88:BE 80 ; $07:$80BE; motion script for top 2 guards, ending part 2 ; data -> code ; call to code in a different bank ($0F:$CCF1) 0x01BB9A|$06:$BB8A:20 F1 CC JSR $CCF1 ; set up scripted motion variables based on next 4 bytes (low 5 bits = NPC index, NPC index + 1's motion + direction byte?, 2-byte pointer to motion script) ; code -> data ; indirect data load target 0x01BB9D|$06:$BB8D:84 ; indirect data load target 0x01BB9E|$06:$BB8E:20 ; indirect data load target 0x01BB9F|$06:$BB8F:BE 80 ; $07:$80BE; motion script for top 2 guards, ending part 2 ; data -> code ; call to code in a different bank ($0F:$CCE7) 0x01BBA1|$06:$BB91:20 E7 CC JSR $CCE7 0x01BBA4|$06:$BB94:20 38 BC JSR $BC38 ; call to code in a different bank ($0F:$CCF1) 0x01BBA7|$06:$BB97:20 F1 CC JSR $CCF1 ; set up scripted motion variables based on next 4 bytes (low 5 bits = NPC index, NPC index + 1's motion + direction byte?, 2-byte pointer to motion script) ; code -> data ; indirect data load target 0x01BBAA|$06:$BB9A:82 ; indirect data load target 0x01BBAB|$06:$BB9B:20 ; indirect data load target 0x01BBAC|$06:$BB9C:55 80 ; $07:$8055; motion script for Cannock and Moonbrooke, ending part 3, dog in Zahan, triggered from right ; data -> code ; call to code in a different bank ($0F:$CCF1) 0x01BBAE|$06:$BB9E:20 F1 CC JSR $CCF1 ; set up scripted motion variables based on next 4 bytes (low 5 bits = NPC index, NPC index + 1's motion + direction byte?, 2-byte pointer to motion script) ; code -> data ; indirect data load target 0x01BBB1|$06:$BBA1:81 ; indirect data load target 0x01BBB2|$06:$BBA2:20 ; indirect data load target 0x01BBB3|$06:$BBA3:55 80 ; $07:$8055; motion script for Cannock and Moonbrooke, ending part 3, dog in Zahan, triggered from right ; data -> code ; call to code in a different bank ($0F:$CCE7) 0x01BBB5|$06:$BBA5:20 E7 CC JSR $CCE7 0x01BBB8|$06:$BBA8:20 38 BC JSR $BC38 ; call to code in a different bank ($0F:$EB76) 0x01BBBB|$06:$BBAB:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x01BBBE|$06:$BBAE:04 ; Menu ID #$04: Dialogue window ; data -> code ; call to code in a different bank ($0F:$FA2E) 0x01BBBF|$06:$BBAF:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01BBC2|$06:$BBB2:B9 ; String ID #$01B9: ‘This charge I lay on the three heroes, that for evermore they guard against evil[.’][end-FC] ; data -> code ; call to code in a different bank ($0F:$D0F5) 0x01BBC3|$06:$BBB3:20 F5 D0 JSR $D0F5 ; wait for a while and then wipe menu regions #$03, #$00, and #$01 0x01BBC6|$06:$BBB6:A0 38 LDY #$38 ; control flow target (from $BBC2) 0x01BBC8|$06:$BBB8:A9 02 LDA #$02 0x01BBCA|$06:$BBBA:99 78 05 STA $0578,Y ; NPC #$07 motion nybble + direction nybble 0x01BBCD|$06:$BBBD:98 TYA 0x01BBCE|$06:$BBBE:38 SEC 0x01BBCF|$06:$BBBF:E9 08 SBC #$08 0x01BBD1|$06:$BBC1:A8 TAY 0x01BBD2|$06:$BBC2:10 F4 BPL $BBB8 ; call to code in a different bank ($0F:$CF64) 0x01BBD4|$06:$BBC4:20 64 CF JSR $CF64 0x01BBD7|$06:$BBC7:20 38 BC JSR $BC38 ; call to code in a different bank ($0F:$EB76) 0x01BBDA|$06:$BBCA:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x01BBDD|$06:$BBCD:04 ; Menu ID #$04: Dialogue window ; data -> code 0x01BBDE|$06:$BBCE:A9 00 LDA #$00 ; call to code in a different bank ($0F:$FC50) 0x01BBE0|$06:$BBD0:20 50 FC JSR $FC50 ; print name of hero given by low 2 bits of A to $6119, terminated by #$FA ; call to code in a different bank ($0F:$FA2E) 0x01BBE3|$06:$BBD3:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01BBE6|$06:$BBD6:BA ; String ID #$01BA: ‘Three cheers for the new monarch of Midenhall![line]Hip-hip-hooray!’[end-FC] ; data -> code ; call to code in a different bank ($0F:$D0F5) 0x01BBE7|$06:$BBD7:20 F5 D0 JSR $D0F5 ; wait for a while and then wipe menu regions #$03, #$00, and #$01 0x01BBEA|$06:$BBDA:A9 01 LDA #$01 0x01BBEC|$06:$BBDC:8D 68 05 STA $0568 ; NPC #$05 motion nybble + direction nybble 0x01BBEF|$06:$BBDF:20 2D BC JSR $BC2D 0x01BBF2|$06:$BBE2:A9 02 LDA #$02 0x01BBF4|$06:$BBE4:8D 68 05 STA $0568 ; NPC #$05 motion nybble + direction nybble 0x01BBF7|$06:$BBE7:20 2D BC JSR $BC2D 0x01BBFA|$06:$BBEA:A2 0A LDX #$0A ; call to code in a different bank ($0F:$C1EE) 0x01BBFC|$06:$BBEC:20 EE C1 JSR $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF 0x01BBFF|$06:$BBEF:A9 03 LDA #$03 0x01BC01|$06:$BBF1:8D 60 05 STA $0560 ; NPC #$04 motion nybble + direction nybble 0x01BC04|$06:$BBF4:20 2D BC JSR $BC2D 0x01BC07|$06:$BBF7:A9 02 LDA #$02 0x01BC09|$06:$BBF9:8D 60 05 STA $0560 ; NPC #$04 motion nybble + direction nybble 0x01BC0C|$06:$BBFC:20 2D BC JSR $BC2D 0x01BC0F|$06:$BBFF:20 34 BC JSR $BC34 0x01BC12|$06:$BC02:A9 01 LDA #$01 0x01BC14|$06:$BC04:8D 40 05 STA $0540 ; NPC #$00 ? + direction nybble 0x01BC17|$06:$BC07:20 2D BC JSR $BC2D 0x01BC1A|$06:$BC0A:A9 02 LDA #$02 0x01BC1C|$06:$BC0C:8D 40 05 STA $0540 ; NPC #$00 ? + direction nybble 0x01BC1F|$06:$BC0F:20 2D BC JSR $BC2D 0x01BC22|$06:$BC12:20 34 BC JSR $BC34 0x01BC25|$06:$BC15:A9 19 LDA #$19 ; Music ID #$19: end credits BGM ; call to code in a different bank ($0F:$C561) 0x01BC27|$06:$BC17:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) 0x01BC2A|$06:$BC1A:20 38 BC JSR $BC38 0x01BC2D|$06:$BC1D:A9 FF LDA #$FF ; SLOW 0x01BC2F|$06:$BC1F:8D 2C 06 STA $062C ; current battle message delay ; call to code in a different bank ($0F:$EB76) 0x01BC32|$06:$BC22:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x01BC35|$06:$BC25:04 ; Menu ID #$04: Dialogue window ; data -> code ; call to code in a different bank ($0F:$FA2E) 0x01BC36|$06:$BC26:20 2E FA JSR $FA2E ; display string ID specified by next byte + #$0100 ; code -> data ; indirect data load target 0x01BC39|$06:$BC29:93 ; String ID #$0193: ‘Then peace returned[.’][end-FC] ; data -> code ; call to code in a different bank ($0F:$D343) 0x01BC3A|$06:$BC2A:4C 43 D3 JMP $D343 ; control flow target (from $BBDF, $BBE7, $BBF4, $BBFC, $BC07, $BC0F) ; call to code in a different bank ($0F:$CF64) 0x01BC3D|$06:$BC2D:20 64 CF JSR $CF64 0x01BC40|$06:$BC30:A2 0A LDX #$0A 0x01BC42|$06:$BC32:D0 06 BNE $BC3A ; control flow target (from $BBFF, $BC12) 0x01BC44|$06:$BC34:A2 1E LDX #$1E 0x01BC46|$06:$BC36:D0 02 BNE $BC3A ; control flow target (from $BB94, $BBA8, $BBC7, $BC1A) 0x01BC48|$06:$BC38:A2 3C LDX #$3C ; control flow target (from $BC32, $BC36) ; call to code in a different bank ($0F:$C1EE) 0x01BC4A|$06:$BC3A:4C EE C1 JMP $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF ; indirect control flow target (via $803E) 0x01BC4D|$06:$BC3D:A2 3D LDX #$3D ; control flow target (from $BC46) 0x01BC4F|$06:$BC3F:BD 4F BC LDA $BC4F,X ; code copied to and executed in RAM 0x01BC52|$06:$BC42:9D 00 04 STA $0400,X ; menu-based palette overrides start 0x01BC55|$06:$BC45:CA DEX 0x01BC56|$06:$BC46:10 F7 BPL $BC3F 0x01BC58|$06:$BC48:AD F6 05 LDA $05F6 ; current bank 0x01BC5B|$06:$BC4B:48 PHA ; call to code in RAM 0x01BC5C|$06:$BC4C:4C 33 04 JMP $0433 ; code copied to and executed in RAM ; control flow target (from $BC8B) ; indexed data load target (from $BC3F) 0x01BC5F|$06:$BC4F:AC F6 05 LDY $05F6 ; current bank 0x01BC62|$06:$BC52:C8 INY 0x01BC63|$06:$BC53:98 TYA 0x01BC64|$06:$BC54:29 07 AND #$07 0x01BC66|$06:$BC56:48 PHA 0x01BC67|$06:$BC57:A6 43 LDX $43 0x01BC69|$06:$BC59:E0 03 CPX #$03 0x01BC6B|$06:$BC5B:D0 09 BNE $BC66 ; call to code in a different bank ($0F:$C476) 0x01BC6D|$06:$BC5D:20 76 C4 JSR $C476 ; read joypad 1 data into $2F 0x01BC70|$06:$BC60:46 2F LSR $2F ; joypad 1 data 0x01BC72|$06:$BC62:A6 43 LDX $43 0x01BC74|$06:$BC64:90 1E BCC $BC84 ; control flow target (from $BC5B) 0x01BC76|$06:$BC66:E8 INX 0x01BC77|$06:$BC67:E0 14 CPX #$14 0x01BC79|$06:$BC69:90 19 BCC $BC84 ; call to code in a different bank ($0F:$C3AB) 0x01BC7B|$06:$BC6B:20 AB C3 JSR $C3AB ; generate a random number and store it in $32-$33 (two passes) 0x01BC7E|$06:$BC6E:A5 32 LDA $32 ; RNG byte 0 0x01BC80|$06:$BC70:29 24 AND #$24 0x01BC82|$06:$BC72:D0 10 BNE $BC84 ; control flow target (from $BC79) ; call to code in a different bank ($0F:$C476) 0x01BC84|$06:$BC74:20 76 C4 JSR $C476 ; read joypad 1 data into $2F 0x01BC87|$06:$BC77:46 2F LSR $2F ; joypad 1 data 0x01BC89|$06:$BC79:90 F9 BCC $BC74 ; control flow target (from $BC80) ; call to code in a different bank ($0F:$C476) 0x01BC8B|$06:$BC7B:20 76 C4 JSR $C476 ; read joypad 1 data into $2F 0x01BC8E|$06:$BC7E:46 2F LSR $2F ; joypad 1 data 0x01BC90|$06:$BC80:B0 F9 BCS $BC7B 0x01BC92|$06:$BC82:A2 03 LDX #$03 ; control flow target (from $BC64, $BC69, $BC72) 0x01BC94|$06:$BC84:68 PLA ; call to code in a different bank ($0F:$C3D5) 0x01BC95|$06:$BC85:20 D5 C3 JSR $C3D5 ; save A to $05F6, X to $43, and load bank specified by A ; call to code in a different bank ($0F:$C1EE) 0x01BC98|$06:$BC88:20 EE C1 JSR $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF 0x01BC9B|$06:$BC8B:F0 C2 BEQ $BC4F ; code copied to and executed in RAM ; indirect control flow target (via $8040) 0x01BC9D|$06:$BC8D:A5 17 LDA $17 ; current map Y-pos (1) 0x01BC9F|$06:$BC8F:C9 07 CMP #$07 0x01BCA1|$06:$BC91:F0 01 BEQ $BC94 0x01BCA3|$06:$BC93:60 RTS ; control flow target (from $BC91) 0x01BCA4|$06:$BC94:A0 50 LDY #$50 0x01BCA6|$06:$BC96:A9 00 LDA #$00 ; control flow target (from $BC9E) 0x01BCA8|$06:$BC98:99 3A 05 STA $053A,Y 0x01BCAB|$06:$BC9B:C8 INY 0x01BCAC|$06:$BC9C:C0 68 CPY #$68 0x01BCAE|$06:$BC9E:D0 F8 BNE $BC98 0x01BCB0|$06:$BCA0:A9 FF LDA #$FF 0x01BCB2|$06:$BCA2:8D 91 05 STA $0591 ; NPC #$0A sprite ID 0x01BCB5|$06:$BCA5:8D 99 05 STA $0599 ; NPC #$0B sprite ID 0x01BCB8|$06:$BCA8:8D A1 05 STA $05A1 ; NPC #$0C sprite ID 0x01BCBB|$06:$BCAB:A5 16 LDA $16 ; current map X-pos (1) 0x01BCBD|$06:$BCAD:8D 8C 05 STA $058C ; NPC #$0A X-pos 0x01BCC0|$06:$BCB0:8D 94 05 STA $0594 ; NPC #$0B X-pos 0x01BCC3|$06:$BCB3:CE 94 05 DEC $0594 ; NPC #$0B X-pos 0x01BCC6|$06:$BCB6:8D 9C 05 STA $059C ; NPC #$0C X-pos 0x01BCC9|$06:$BCB9:EE 9C 05 INC $059C ; NPC #$0C X-pos 0x01BCCC|$06:$BCBC:A5 17 LDA $17 ; current map Y-pos (1) 0x01BCCE|$06:$BCBE:8D 8D 05 STA $058D ; NPC #$0A Y-pos 0x01BCD1|$06:$BCC1:EE 8D 05 INC $058D ; NPC #$0A Y-pos 0x01BCD4|$06:$BCC4:8D 95 05 STA $0595 ; NPC #$0B Y-pos 0x01BCD7|$06:$BCC7:8D 9D 05 STA $059D ; NPC #$0C Y-pos 0x01BCDA|$06:$BCCA:A9 04 LDA #$04 0x01BCDC|$06:$BCCC:8D 91 05 STA $0591 ; NPC #$0A sprite ID 0x01BCDF|$06:$BCCF:20 6C BD JSR $BD6C 0x01BCE2|$06:$BCD2:8D 99 05 STA $0599 ; NPC #$0B sprite ID 0x01BCE5|$06:$BCD5:20 6C BD JSR $BD6C 0x01BCE8|$06:$BCD8:8D A1 05 STA $05A1 ; NPC #$0C sprite ID 0x01BCEB|$06:$BCDB:20 6C BD JSR $BD6C 0x01BCEE|$06:$BCDE:20 7C BD JSR $BD7C 0x01BCF1|$06:$BCE1:20 7C BD JSR $BD7C 0x01BCF4|$06:$BCE4:A9 0A LDA #$0A 0x01BCF6|$06:$BCE6:85 D0 STA $D0 ; Malroth status flag (#$FF = defeated, #$00 = alive, others = countdown to battle) ; control flow target (from $BD23) ; call to code in a different bank ($0F:$C3AB) 0x01BCF8|$06:$BCE8:20 AB C3 JSR $C3AB ; generate a random number and store it in $32-$33 (two passes) 0x01BCFB|$06:$BCEB:A5 32 LDA $32 ; RNG byte 0 0x01BCFD|$06:$BCED:29 0E AND #$0E 0x01BCFF|$06:$BCEF:38 SEC 0x01BD00|$06:$BCF0:E9 08 SBC #$08 0x01BD02|$06:$BCF2:85 18 STA $18 ; call to code in a different bank ($0F:$C3AB) 0x01BD04|$06:$BCF4:20 AB C3 JSR $C3AB ; generate a random number and store it in $32-$33 (two passes) 0x01BD07|$06:$BCF7:A5 32 LDA $32 ; RNG byte 0 0x01BD09|$06:$BCF9:29 0E AND #$0E 0x01BD0B|$06:$BCFB:38 SEC 0x01BD0C|$06:$BCFC:E9 08 SBC #$08 0x01BD0E|$06:$BCFE:85 19 STA $19 0x01BD10|$06:$BD00:A9 00 LDA #$00 0x01BD12|$06:$BD02:85 1C STA $1C 0x01BD14|$06:$BD04:85 1E STA $1E 0x01BD16|$06:$BD06:A9 87 LDA #$87 ; Music ID #$87: hit 2 SFX ; call to code in a different bank ($0F:$C561) 0x01BD18|$06:$BD08:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) ; call to code in a different bank ($0F:$D325) 0x01BD1B|$06:$BD0B:20 25 D3 JSR $D325 ; call to code in a different bank ($0F:$C3AB) 0x01BD1E|$06:$BD0E:20 AB C3 JSR $C3AB ; generate a random number and store it in $32-$33 (two passes) 0x01BD21|$06:$BD11:A5 32 LDA $32 ; RNG byte 0 0x01BD23|$06:$BD13:29 07 AND #$07 0x01BD25|$06:$BD15:D0 06 BNE $BD1D ; call to code in a different bank ($0F:$C511) 0x01BD27|$06:$BD17:20 11 C5 JSR $C511 ; flash screen 5 times 0x01BD2A|$06:$BD1A:4C 21 BD JMP $BD21 ; control flow target (from $BD15) 0x01BD2D|$06:$BD1D:AA TAX ; call to code in a different bank ($0F:$C1EE) 0x01BD2E|$06:$BD1E:20 EE C1 JSR $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF ; control flow target (from $BD1A) 0x01BD31|$06:$BD21:C6 D0 DEC $D0 ; Malroth status flag (#$FF = defeated, #$00 = alive, others = countdown to battle) 0x01BD33|$06:$BD23:D0 C3 BNE $BCE8 ; control flow target (from $BD31) 0x01BD35|$06:$BD25:A9 94 LDA #$94 ; Music ID #$94: burning SFX ; call to code in a different bank ($0F:$C561) 0x01BD37|$06:$BD27:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) ; call to code in a different bank ($0F:$D200) 0x01BD3A|$06:$BD2A:20 00 D2 JSR $D200 0x01BD3D|$06:$BD2D:A5 98 LDA $98 ; outcome of last fight? 0x01BD3F|$06:$BD2F:C9 FE CMP #$FE 0x01BD41|$06:$BD31:90 F2 BCC $BD25 0x01BD43|$06:$BD33:A9 06 LDA #$06 0x01BD45|$06:$BD35:85 94 STA $94 ; return bank for various function calls, doubles as index of selected option for multiple-choice menus ; call to code in a different bank ($0F:$FA32) 0x01BD47|$06:$BD37:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01BD4A|$06:$BD3A:E8 ; String ID #$02E8: [wait]‘Thou hast delivered the world from Malroth's evil[.’][wait][line]‘Great is the victory and greater the rewards[.’][wait][line]‘I, Rubiss, have watched thy struggles and I am proud of thee[.’][end-FC] ; data -> code ; call to code in a different bank ($0F:$C515) 0x01BD4B|$06:$BD3B:20 15 C5 JSR $C515 ; flash screen 10 times ; call to code in a different bank ($0F:$C515) 0x01BD4E|$06:$BD3E:20 15 C5 JSR $C515 ; flash screen 10 times 0x01BD51|$06:$BD41:A9 84 LDA #$84 0x01BD53|$06:$BD43:8D 2D 06 STA $062D ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x01BD56|$06:$BD46:8D 3F 06 STA $063F ; Cannock status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x01BD59|$06:$BD49:8D 51 06 STA $0651 ; Moonbrooke status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) ; call to code in a different bank ($0F:$C77B) 0x01BD5C|$06:$BD4C:20 7B C7 JSR $C77B ; restore full HP/MP to all living party members ; call to code in a different bank ($0F:$EB76) 0x01BD5F|$06:$BD4F:20 76 EB JSR $EB76 ; open menu specified by next byte ; code -> data ; indirect data load target 0x01BD62|$06:$BD52:01 ; Menu ID #$04: Mini status window, top ; data -> code ; call to code in a different bank ($0F:$C22C) 0x01BD63|$06:$BD53:20 2C C2 JSR $C22C ; call to code in a different bank ($0F:$FA32) 0x01BD66|$06:$BD56:20 32 FA JSR $FA32 ; display string ID specified by next byte + #$0200 ; code -> data ; indirect data load target 0x01BD69|$06:$BD59:E9 ; String ID #$02E9: [wait]‘Go now!’[end-FC] ; data -> code 0x01BD6A|$06:$BD5A:A9 FF LDA #$FF 0x01BD6C|$06:$BD5C:85 D0 STA $D0 ; Malroth status flag (#$FF = defeated, #$00 = alive, others = countdown to battle) 0x01BD6E|$06:$BD5E:85 44 STA $44 ; non-saved event status (#$00 = event start, #$01 = Lianport Gremlins defeated, #$02 = met with Lianport grandfather/have no friends at Shrine SW of Cannock, #$03 = King Midenhall moved to stairs, #$04 = King Midenhall moved down stairs, #$05 = King Midenhall spoke on Midenhall 1F, #$0B = Lighthouse Wizard 7F, #$1B Lighthouse Wizard 2F spoke, #$64 = Hargon dead, #$FF = event end) 0x01BD70|$06:$BD60:A2 01 LDX #$01 ; call to code in a different bank ($0F:$D2F1) 0x01BD72|$06:$BD62:20 F1 D2 JSR $D2F1 0x01BD75|$06:$BD65:A9 00 LDA #$00 0x01BD77|$06:$BD67:85 8E STA $8E ; flag for in battle or not (#$FF)? ; call to code in a different bank ($0F:$D88F) 0x01BD79|$06:$BD69:4C 8F D8 JMP $D88F ; warp to warp point given by ($0C) ; control flow target (from $BCCF, $BCD5, $BCDB) 0x01BD7C|$06:$BD6C:A9 91 LDA #$91 ; Music ID #$91: swamp SFX ; call to code in a different bank ($0F:$C561) 0x01BD7E|$06:$BD6E:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) ; call to code in a different bank ($0F:$D32E) 0x01BD81|$06:$BD71:20 2E D3 JSR $D32E 0x01BD84|$06:$BD74:A2 28 LDX #$28 ; call to code in a different bank ($0F:$C1EE) 0x01BD86|$06:$BD76:20 EE C1 JSR $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF 0x01BD89|$06:$BD79:A9 04 LDA #$04 0x01BD8B|$06:$BD7B:60 RTS ; control flow target (from $BCDE, $BCE1) 0x01BD8C|$06:$BD7C:A9 94 LDA #$94 ; Music ID #$94: burning SFX ; call to code in a different bank ($0F:$C561) 0x01BD8E|$06:$BD7E:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) ; call to code in a different bank ($0F:$C511) 0x01BD91|$06:$BD81:20 11 C5 JSR $C511 ; flash screen 5 times 0x01BD94|$06:$BD84:A2 11 LDX #$11 ; call to code in a different bank ($0F:$C1EE) 0x01BD96|$06:$BD86:20 EE C1 JSR $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF 0x01BD99|$06:$BD89:A9 94 LDA #$94 ; Music ID #$94: burning SFX ; call to code in a different bank ($0F:$C561) 0x01BD9B|$06:$BD8B:20 61 C5 JSR $C561 ; play PCM specified by A (>= #$80 = sound effect [SFX], < #$80 = background music [BGM]) ; call to code in a different bank ($0F:$C511) 0x01BD9E|$06:$BD8E:20 11 C5 JSR $C511 ; flash screen 5 times 0x01BDA1|$06:$BD91:A2 32 LDX #$32 ; call to code in a different bank ($0F:$C1EE) 0x01BDA3|$06:$BD93:4C EE C1 JMP $C1EE ; set $6007 = #$00, set $00 = #$01, wait for X interrupts, set $00 = #$FF ; indirect control flow target (via $8044) 0x01BDA6|$06:$BD96:AD AD 61 LDA $61AD 0x01BDA9|$06:$BD99:D0 51 BNE $BDEC 0x01BDAB|$06:$BD9B:A9 FF LDA #$FF 0x01BDAD|$06:$BD9D:8D 41 05 STA $0541 ; NPC #$00 sprite ID 0x01BDB0|$06:$BDA0:8D 49 05 STA $0549 ; NPC #$01 sprite ID 0x01BDB3|$06:$BDA3:8D 51 05 STA $0551 ; NPC #$02 sprite ID 0x01BDB6|$06:$BDA6:A5 CF LDA $CF ; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins) 0x01BDB8|$06:$BDA8:29 04 AND #$04 0x01BDBA|$06:$BDAA:F0 07 BEQ $BDB3 0x01BDBC|$06:$BDAC:A9 05 LDA #$05 0x01BDBE|$06:$BDAE:8D 41 05 STA $0541 ; NPC #$00 sprite ID 0x01BDC1|$06:$BDB1:D0 13 BNE $BDC6 ; control flow target (from $BDAA) 0x01BDC3|$06:$BDB3:A2 07 LDX #$07 0x01BDC5|$06:$BDB5:A9 84 LDA #$84 0x01BDC7|$06:$BDB7:85 0E STA $0E 0x01BDC9|$06:$BDB9:20 ED BD JSR $BDED 0x01BDCC|$06:$BDBC:A9 04 LDA #$04 0x01BDCE|$06:$BDBE:85 0E STA $0E 0x01BDD0|$06:$BDC0:20 ED BD JSR $BDED 0x01BDD3|$06:$BDC3:20 10 BE JSR $BE10 ; control flow target (from $BDB1) 0x01BDD6|$06:$BDC6:A0 00 LDY #$00 ; control flow target (from $BDEA) 0x01BDD8|$06:$BDC8:B9 41 05 LDA $0541,Y ; NPC #$00 sprite ID 0x01BDDB|$06:$BDCB:C9 FF CMP #$FF 0x01BDDD|$06:$BDCD:D0 14 BNE $BDE3 0x01BDDF|$06:$BDCF:A9 00 LDA #$00 0x01BDE1|$06:$BDD1:99 3A 05 STA $053A,Y 0x01BDE4|$06:$BDD4:99 3B 05 STA $053B,Y 0x01BDE7|$06:$BDD7:99 3C 05 STA $053C,Y ; NPC #$00 ? 0x01BDEA|$06:$BDDA:99 3D 05 STA $053D,Y ; NPC #$00 ? 0x01BDED|$06:$BDDD:99 3E 05 STA $053E,Y ; NPC #$00 ? 0x01BDF0|$06:$BDE0:99 3F 05 STA $053F,Y ; NPC #$00 ? ; control flow target (from $BDCD) 0x01BDF3|$06:$BDE3:98 TYA 0x01BDF4|$06:$BDE4:18 CLC 0x01BDF5|$06:$BDE5:69 08 ADC #$08 0x01BDF7|$06:$BDE7:A8 TAY 0x01BDF8|$06:$BDE8:C9 18 CMP #$18 0x01BDFA|$06:$BDEA:D0 DC BNE $BDC8 ; control flow target (from $BD99) 0x01BDFC|$06:$BDEC:60 RTS ; control flow target (from $BDB9, $BDC0) 0x01BDFD|$06:$BDED:A0 00 LDY #$00 0x01BDFF|$06:$BDEF:84 0C STY $0C ; control flow target (from $BE0D) 0x01BE01|$06:$BDF1:B9 2D 06 LDA $062D,Y ; Midenhall status (80 = Alive, 40 = Sleep, 20 = Poison, 10 = ?, 08 = ?, 04 = In Party, 02 = Surround, 01 = Silence) 0x01BE04|$06:$BDF4:29 84 AND #$84 0x01BE06|$06:$BDF6:C5 0E CMP $0E 0x01BE08|$06:$BDF8:D0 0A BNE $BE04 0x01BE0A|$06:$BDFA:A5 0C LDA $0C 0x01BE0C|$06:$BDFC:9D 3A 05 STA $053A,X 0x01BE0F|$06:$BDFF:8A TXA 0x01BE10|$06:$BE00:18 CLC 0x01BE11|$06:$BE01:69 08 ADC #$08 0x01BE13|$06:$BE03:AA TAX ; control flow target (from $BDF8) 0x01BE14|$06:$BE04:E6 0C INC $0C 0x01BE16|$06:$BE06:98 TYA 0x01BE17|$06:$BE07:18 CLC 0x01BE18|$06:$BE08:69 12 ADC #$12 0x01BE1A|$06:$BE0A:A8 TAY 0x01BE1B|$06:$BE0B:C9 36 CMP #$36 0x01BE1D|$06:$BE0D:D0 E2 BNE $BDF1 0x01BE1F|$06:$BE0F:60 RTS ; control flow target (from $BDC3) 0x01BE20|$06:$BE10:A5 45 LDA $45 0x01BE22|$06:$BE12:C9 FF CMP #$FF 0x01BE24|$06:$BE14:D0 01 BNE $BE17 0x01BE26|$06:$BE16:60 RTS ; control flow target (from $BE14) 0x01BE27|$06:$BE17:C9 00 CMP #$00 0x01BE29|$06:$BE19:D0 08 BNE $BE23 0x01BE2B|$06:$BE1B:A9 02 LDA #$02 ; control flow target (from $BE57, $BE5F, $BE67, $BE6F) 0x01BE2D|$06:$BE1D:8D 40 05 STA $0540 ; NPC #$00 ? + direction nybble 0x01BE30|$06:$BE20:4C 27 BE JMP $BE27 ; control flow target (from $BE19) 0x01BE33|$06:$BE23:C9 01 CMP #$01 0x01BE35|$06:$BE25:D0 2A BNE $BE51 ; control flow target (from $BE20) 0x01BE37|$06:$BE27:AD 3A 05 LDA $053A 0x01BE3A|$06:$BE2A:8D 42 05 STA $0542 ; NPC #$00 ? 0x01BE3D|$06:$BE2D:8D 4A 05 STA $054A ; NPC #$01 scripted motion low byte 0x01BE40|$06:$BE30:AD 3B 05 LDA $053B 0x01BE43|$06:$BE33:8D 43 05 STA $0543 ; NPC #$00 ? 0x01BE46|$06:$BE36:8D 4B 05 STA $054B ; NPC #$01 scripted motion high byte 0x01BE49|$06:$BE39:AD 40 05 LDA $0540 ; NPC #$00 ? + direction nybble 0x01BE4C|$06:$BE3C:8D 48 05 STA $0548 ; NPC #$01 ? + direction nybble 0x01BE4F|$06:$BE3F:8D 50 05 STA $0550 ; NPC #$02 ? + direction nybble 0x01BE52|$06:$BE42:A9 00 LDA #$00 0x01BE54|$06:$BE44:8D 44 05 STA $0544 ; NPC #$01 ? 0x01BE57|$06:$BE47:8D 45 05 STA $0545 ; NPC #$01 ? 0x01BE5A|$06:$BE4A:8D 4C 05 STA $054C ; NPC #$02 ? 0x01BE5D|$06:$BE4D:8D 4D 05 STA $054D ; NPC #$02 ? 0x01BE60|$06:$BE50:60 RTS ; control flow target (from $BE25) 0x01BE61|$06:$BE51:C9 03 CMP #$03 0x01BE63|$06:$BE53:D0 04 BNE $BE59 0x01BE65|$06:$BE55:A9 03 LDA #$03 0x01BE67|$06:$BE57:D0 C4 BNE $BE1D ; control flow target (from $BE53) 0x01BE69|$06:$BE59:C9 04 CMP #$04 0x01BE6B|$06:$BE5B:D0 04 BNE $BE61 0x01BE6D|$06:$BE5D:A9 01 LDA #$01 0x01BE6F|$06:$BE5F:D0 BC BNE $BE1D ; control flow target (from $BE5B) 0x01BE71|$06:$BE61:C9 09 CMP #$09 0x01BE73|$06:$BE63:D0 04 BNE $BE69 0x01BE75|$06:$BE65:A9 00 LDA #$00 0x01BE77|$06:$BE67:F0 B4 BEQ $BE1D ; control flow target (from $BE63) 0x01BE79|$06:$BE69:C9 0A CMP #$0A 0x01BE7B|$06:$BE6B:D0 04 BNE $BE71 0x01BE7D|$06:$BE6D:A9 02 LDA #$02 0x01BE7F|$06:$BE6F:D0 AC BNE $BE1D ; control flow target (from $BE6B) 0x01BE81|$06:$BE71:C9 02 CMP #$02 0x01BE83|$06:$BE73:D0 47 BNE $BEBC 0x01BE85|$06:$BE75:A5 17 LDA $17 ; current map Y-pos (1) 0x01BE87|$06:$BE77:D0 04 BNE $BE7D ; control flow target (from $BEC6) 0x01BE89|$06:$BE79:A9 02 LDA #$02 0x01BE8B|$06:$BE7B:D0 16 BNE $BE93 ; control flow target (from $BE77) 0x01BE8D|$06:$BE7D:A5 16 LDA $16 ; current map X-pos (1) 0x01BE8F|$06:$BE7F:C5 21 CMP $21 ; map width 0x01BE91|$06:$BE81:D0 04 BNE $BE87 ; control flow target (from $BECA) 0x01BE93|$06:$BE83:A9 03 LDA #$03 0x01BE95|$06:$BE85:D0 0C BNE $BE93 ; control flow target (from $BE81) 0x01BE97|$06:$BE87:A5 16 LDA $16 ; current map X-pos (1) 0x01BE99|$06:$BE89:D0 04 BNE $BE8F ; control flow target (from $BEC2) 0x01BE9B|$06:$BE8B:A9 01 LDA #$01 0x01BE9D|$06:$BE8D:D0 04 BNE $BE93 ; control flow target (from $BE89, $BEBE) 0x01BE9F|$06:$BE8F:A9 00 LDA #$00 0x01BEA1|$06:$BE91:F0 00 BEQ $BE93 ; useless op ; control flow target (from $BE7B, $BE85, $BE8D, $BE91) 0x01BEA3|$06:$BE93:8D 40 05 STA $0540 ; NPC #$00 ? + direction nybble 0x01BEA6|$06:$BE96:8D 48 05 STA $0548 ; NPC #$01 ? + direction nybble 0x01BEA9|$06:$BE99:8D 50 05 STA $0550 ; NPC #$02 ? + direction nybble 0x01BEAC|$06:$BE9C:0A ASL 0x01BEAD|$06:$BE9D:0A ASL 0x01BEAE|$06:$BE9E:0A ASL 0x01BEAF|$06:$BE9F:AA TAX 0x01BEB0|$06:$BEA0:A0 08 LDY #$08 ; control flow target (from $BEB9) 0x01BEB2|$06:$BEA2:A9 04 LDA #$04 0x01BEB4|$06:$BEA4:85 2E STA $2E ; control flow target (from $BEB0) 0x01BEB6|$06:$BEA6:BD CD BE LDA $BECD,X 0x01BEB9|$06:$BEA9:99 3A 05 STA $053A,Y 0x01BEBC|$06:$BEAC:C8 INY 0x01BEBD|$06:$BEAD:E8 INX 0x01BEBE|$06:$BEAE:C6 2E DEC $2E 0x01BEC0|$06:$BEB0:D0 F4 BNE $BEA6 0x01BEC2|$06:$BEB2:98 TYA 0x01BEC3|$06:$BEB3:18 CLC 0x01BEC4|$06:$BEB4:69 04 ADC #$04 0x01BEC6|$06:$BEB6:A8 TAY 0x01BEC7|$06:$BEB7:C9 18 CMP #$18 0x01BEC9|$06:$BEB9:D0 E7 BNE $BEA2 0x01BECB|$06:$BEBB:60 RTS ; control flow target (from $BE73) 0x01BECC|$06:$BEBC:C9 05 CMP #$05 0x01BECE|$06:$BEBE:F0 CF BEQ $BE8F 0x01BED0|$06:$BEC0:C9 06 CMP #$06 0x01BED2|$06:$BEC2:F0 C7 BEQ $BE8B 0x01BED4|$06:$BEC4:C9 07 CMP #$07 0x01BED6|$06:$BEC6:F0 B1 BEQ $BE79 0x01BED8|$06:$BEC8:C9 08 CMP #$08 0x01BEDA|$06:$BECA:F0 B7 BEQ $BE83 0x01BEDC|$06:$BECC:60 RTS ; code -> data ; indexed data load target (from $BEA6) 0x01BEDD|$06:$BECD:80 7F 00 01 0x01BEE1|$06:$BED1:80 8F 00 01 0x01BEE5|$06:$BED5:70 6F FF 00 0x01BEE9|$06:$BED9:60 6F FF 00 0x01BEED|$06:$BEDD:80 5F 00 FF 0x01BEF1|$06:$BEE1:80 4F 00 FF ; indirect data load target 0x01BEF5|$06:$BEE5:90 6F 01 00 0x01BEF9|$06:$BEE9:A0 6F 01 00 ; data -> code ; X = 1 => CLC and update $0C-$0D to warp point data to use if Outside allowed from current map, SEC otherwise, X = 2 => CLC and update $0C-$0D to warp point data to use if Return allowed from current map, SEC otherwise, X = 3 => disembark from ship and update ship position based on last save point ID $48 ; indirect control flow target (via $8046) 0x01BEFD|$06:$BEED:CA DEX 0x01BEFE|$06:$BEEE:F0 08 BEQ $BEF8 ; CLC and update $0C-$0D to warp point data to use if Outside allowed from current map 0x01BF00|$06:$BEF0:CA DEX 0x01BF01|$06:$BEF1:F0 47 BEQ $BF3A ; CLC and update $0C-$0D to warp point data to use if Return allowed from current map 0x01BF03|$06:$BEF3:CA DEX 0x01BF04|$06:$BEF4:F0 69 BEQ $BF5F ; disembark from ship and update ship position based on last save point ID $48 0x01BF06|$06:$BEF6:38 SEC 0x01BF07|$06:$BEF7:60 RTS ; CLC and update $0C-$0D to warp point data to use if Outside allowed from current map ; control flow target (from $BEEE) 0x01BF08|$06:$BEF8:A5 31 LDA $31 ; current map ID 0x01BF0A|$06:$BEFA:C9 17 CMP #$17 ; Map ID #$17: Hargon's Castle 7F 0x01BF0C|$06:$BEFC:D0 11 BNE $BF0F ; Hargon's Castle 7F is special: after defeating Hargon, you can't escape before defeating Malroth 0x01BF0E|$06:$BEFE:A5 D0 LDA $D0 ; Malroth status flag (#$FF = defeated, #$00 = alive, others = countdown to battle) 0x01BF10|$06:$BF00:30 07 BMI $BF09 ; Outside from Hargon's Castle 7F is okay 0x01BF12|$06:$BF02:AD 61 05 LDA $0561 ; NPC #$04 sprite ID; #$FF if Hargon defeated 0x01BF15|$06:$BF05:C9 FF CMP #$FF 0x01BF17|$06:$BF07:F0 1A BEQ $BF23 ; SEC to flag Outside not allowed for calling code ; Outside from Hargon's Castle 7F is okay ; control flow target (from $BF00) 0x01BF19|$06:$BF09:A9 44 LDA #$44 ; Map ID #$44: Hargon's Castle 2F 0x01BF1B|$06:$BF0B:A0 07 LDY #$07 ; first floor index for Map ID #$44: Hargon's Castle 2F 0x01BF1D|$06:$BF0D:D0 16 BNE $BF25 ; Outside is allowed ; control flow target (from $BEFC) 0x01BF1F|$06:$BF0F:C9 18 CMP #$18 ; Map ID #$18: Charlock Castle B8 0x01BF21|$06:$BF11:D0 06 BNE $BF19 ; Charlock Castle B8 is not considered a dungeon, so handle it specially 0x01BF23|$06:$BF13:A9 34 LDA #$34 ; Map ID #$34: Charlock Castle B1/B2 0x01BF25|$06:$BF15:A0 03 LDY #$03 ; first floor index for Map ID #$34: Charlock Castle B1/B2 0x01BF27|$06:$BF17:D0 0C BNE $BF25 ; Outside is allowed ; control flow target (from $BF11) 0x01BF29|$06:$BF19:A0 0C LDY #$0C ; for everything else, start scanning the first floor list ; control flow target (from $BF21) 0x01BF2B|$06:$BF1B:D9 82 BF CMP $BF82,Y ; dungeon first floors 0x01BF2E|$06:$BF1E:B0 05 BCS $BF25 ; Outside is allowed 0x01BF30|$06:$BF20:88 DEY 0x01BF31|$06:$BF21:10 F8 BPL $BF1B ; if more first floors to check, check them ; SEC to flag Outside not allowed for calling code ; control flow target (from $BF07) 0x01BF33|$06:$BF23:38 SEC 0x01BF34|$06:$BF24:60 RTS ; Outside is allowed ; control flow target (from $BF0D, $BF17, $BF1E) 0x01BF35|$06:$BF25:38 SEC 0x01BF36|$06:$BF26:F9 82 BF SBC $BF82,Y ; dungeon first floors 0x01BF39|$06:$BF29:85 0E STA $0E ; floor number 0x01BF3B|$06:$BF2B:98 TYA 0x01BF3C|$06:$BF2C:0A ASL 0x01BF3D|$06:$BF2D:A8 TAY 0x01BF3E|$06:$BF2E:B9 8F BF LDA $BF8F,Y ; pointer to warp point data used when casting Outside 0x01BF41|$06:$BF31:85 0C STA $0C 0x01BF43|$06:$BF33:B9 90 BF LDA $BF90,Y 0x01BF46|$06:$BF36:85 0D STA $0D 0x01BF48|$06:$BF38:18 CLC 0x01BF49|$06:$BF39:60 RTS ; CLC and update $0C-$0D to warp point data to use if Return allowed from current map ; control flow target (from $BEF1) 0x01BF4A|$06:$BF3A:A5 31 LDA $31 ; current map ID 0x01BF4C|$06:$BF3C:F0 1F BEQ $BF5D ; SEC to flag Return disallowed for calling code; Map ID #$00: Fake Midenhall 0x01BF4E|$06:$BF3E:C9 2B CMP #$2B ; map IDs >= #$2B are dungeon maps 0x01BF50|$06:$BF40:B0 1B BCS $BF5D ; SEC to flag Return disallowed for calling code 0x01BF52|$06:$BF42:C9 17 CMP #$17 ; Map ID #$17: Hargon's Castle 7F 0x01BF54|$06:$BF44:F0 17 BEQ $BF5D ; SEC to flag Return disallowed for calling code 0x01BF56|$06:$BF46:C9 18 CMP #$18 ; Map ID #$18: Charlock Castle B8 0x01BF58|$06:$BF48:F0 13 BEQ $BF5D ; SEC to flag Return disallowed for calling code 0x01BF5A|$06:$BF4A:20 5F BF JSR $BF5F ; disembark from ship and update ship position based on last save point ID $48 0x01BF5D|$06:$BF4D:A5 48 LDA $48 ; last save point ID 0x01BF5F|$06:$BF4F:0A ASL 0x01BF60|$06:$BF50:A8 TAY 0x01BF61|$06:$BF51:B9 A9 BF LDA $BFA9,Y ; pointer to warp point data used when casting Return 0x01BF64|$06:$BF54:85 0C STA $0C 0x01BF66|$06:$BF56:B9 AA BF LDA $BFAA,Y 0x01BF69|$06:$BF59:85 0D STA $0D 0x01BF6B|$06:$BF5B:18 CLC ; CLC to flag Return allowed for calling code 0x01BF6C|$06:$BF5C:60 RTS ; SEC to flag Return disallowed for calling code ; control flow target (from $BF3C, $BF40, $BF44, $BF48) 0x01BF6D|$06:$BF5D:38 SEC 0x01BF6E|$06:$BF5E:60 RTS ; disembark from ship and update ship position based on last save point ID $48 ; control flow target (from $BEF4, $BF4A) 0x01BF6F|$06:$BF5F:A5 CF LDA $CF ; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins) 0x01BF71|$06:$BF61:29 03 AND #$03 0x01BF73|$06:$BF63:85 CF STA $CF ; ship status (#$04 = on ship, #$02 = own ship, #$01 = beat Lianport Gremlins) 0x01BF75|$06:$BF65:A5 48 LDA $48 ; last save point ID 0x01BF77|$06:$BF67:0A ASL 0x01BF78|$06:$BF68:A8 TAY 0x01BF79|$06:$BF69:B9 74 BF LDA $BF74,Y ; ship X-pos after warp 0x01BF7C|$06:$BF6C:85 D2 STA $D2 ; ship X-pos (when you aren't on it) 0x01BF7E|$06:$BF6E:B9 75 BF LDA $BF75,Y ; ship Y-pos after warp 0x01BF81|$06:$BF71:85 D3 STA $D3 ; ship Y-pos (when you aren't on it) 0x01BF83|$06:$BF73:60 RTS ; code -> data ; ship X-pos after warp ; indexed data load target (from $BF69) 0x01BF84|$06:$BF74:D4 ; ship Y-pos after warp ; indexed data load target (from $BF6E) 0x01BF85|$06:$BF75: 3C ; Save Point ID #$00: Midenhall 2F 0x01BF86|$06:$BF76:A4 09 ; Save Point ID #$01: Cannock ; indirect data load target 0x01BF88|$06:$BF78:3B 2E ; Save Point ID #$02: Tantegel 0x01BF8A|$06:$BF7A:DA 91 ; Save Point ID #$03: Osterfair 0x01BF8C|$06:$BF7C:1F C5 ; Save Point ID #$04: Beran 0x01BF8E|$06:$BF7E:1F C5 ; Save Point ID #$05: Rhone Shrine 0x01BF90|$06:$BF80:78 58 ; Save Point ID #$06: Hamlin ; dungeon first floors ; indexed data load target (from $BF1B, $BF26) 0x01BF92|$06:$BF82:2B ; Map ID #$2B: Cave to Hamlin 0x01BF93|$06:$BF83:2C ; Map ID #$2C: Lake Cave B1 0x01BF94|$06:$BF84:2E ; Map ID #$2E: Sea Cave B1 0x01BF95|$06:$BF85:34 ; Map ID #$34: Charlock Castle B1/B2 0x01BF96|$06:$BF86:37 ; Map ID #$37: Cave to Rhone B1 0x01BF97|$06:$BF87:40 ; Map ID #$40: Spring of Bravery 0x01BF98|$06:$BF88:43 ; Map ID #$43: Cave to Rimuldar 0x01BF99|$06:$BF89:44 ; Map ID #$44: Hargon's Castle 2F 0x01BF9A|$06:$BF8A:49 ; Map ID #$49: Moon Tower 1F 0x01BF9B|$06:$BF8B:50 ; Map ID #$50: Lighthouse 1F 0x01BF9C|$06:$BF8C:58 ; Map ID #$58: Wind Tower 1F 0x01BF9D|$06:$BF8D:60 ; Map ID #$60: Dragon Horn South 1F 0x01BF9E|$06:$BF8E:66 ; Map ID #$66: Dragon Horn North 1F ; pointer to warp point data used when casting Outside ; indexed data load target (from $BF2E) ; indirect data load target 0x01BF9F|$06:$BF8F:A8 ; indexed data load target (from $BF33) 0x01BFA0|$06:$BF90: A2 ; $02:$A2A8; Map ID #$2B: Cave to Hamlin 0x01BFA1|$06:$BF91:CF A2 ; $02:$A2CF; Map ID #$2C: Lake Cave B1 0x01BFA3|$06:$BF93:D2 A2 ; $02:$A2D2; Map ID #$2E: Sea Cave B1 0x01BFA5|$06:$BF95:D8 A2 ; $02:$A2D8; Map ID #$34: Charlock Castle B1/B2 0x01BFA7|$06:$BF97:DE A2 ; $02:$A2DE; Map ID #$37: Cave to Rhone B1 0x01BFA9|$06:$BF99:ED A2 ; $02:$A2ED; Map ID #$40: Spring of Bravery 0x01BFAB|$06:$BF9B:EA A2 ; $02:$A2EA; Map ID #$43: Cave to Rimuldar 0x01BFAD|$06:$BF9D:A2 A2 ; $02:$A2A2; Map ID #$44: Hargon's Castle 2F 0x01BFAF|$06:$BF9F:E1 A2 ; $02:$A2E1; Map ID #$49: Moon Tower 1F 0x01BFB1|$06:$BFA1:DB A2 ; $02:$A2DB; Map ID #$50: Lighthouse 1F 0x01BFB3|$06:$BFA3:D5 A2 ; $02:$A2D5; Map ID #$58: Wind Tower 1F 0x01BFB5|$06:$BFA5:E4 A2 ; $02:$A2E4; Map ID #$60: Dragon Horn South 1F 0x01BFB7|$06:$BFA7:E7 A2 ; $02:$A2E7; Map ID #$66: Dragon Horn North 1F ; pointer to warp point data used when casting Return ; indexed data load target (from $BF51) ; indirect data load target 0x01BFB9|$06:$BFA9:69 ; indexed data load target (from $BF56) 0x01BFBA|$06:$BFAA: A2 ; $02:$A269; warp point data (map ID, X-pos, Y-pos) used when casting Return; Save Point ID #$00: Midenhall 2F 0x01BFBB|$06:$BFAB:6C A2 ; $02:$A26C; Save Point ID #$01: Cannock 0x01BFBD|$06:$BFAD:6F A2 ; $02:$A26F; Save Point ID #$02: Tantegel 0x01BFBF|$06:$BFAF:72 A2 ; $02:$A272; Save Point ID #$03: Osterfair 0x01BFC1|$06:$BFB1:75 A2 ; $02:$A275; Save Point ID #$04: Beran 0x01BFC3|$06:$BFB3:78 A2 ; $02:$A278; Save Point ID #$05: Rhone Shrine 0x01BFC5|$06:$BFB5:7B A2 ; $02:$A27B; Save Point ID #$06: Hamlin ; data -> free ; indirect data load target 0x01BFC7|$06:$BFB7:FF ; ... skipping $1F FF bytes ; indirect data load target 0x01BFE7|$06:$BFD7:FF ; free -> unknown 0x01BFE8|$06:$BFD8:78 ; SEI 0x01BFE9|$06:$BFD9:EE DF BF ; INC $BFDF 0x01BFEA|$06:$BFDA:DF ; INVALID OPCODE 0x01BFEB|$06:$BFDB:BF ; INVALID OPCODE 0x01BFEC|$06:$BFDC:4C 86 FF ; JMP $FF86 0x01BFED|$06:$BFDD:86 FF ; STX $FF 0x01BFEE|$06:$BFDE:FF ; INVALID OPCODE 0x01BFEF|$06:$BFDF:80 ; INVALID OPCODE 0x01BFF0|$06:$BFE0:44 ; INVALID OPCODE 0x01BFF1|$06:$BFE1:52 ; INVALID OPCODE 0x01BFF2|$06:$BFE2:41 47 ; EOR ($47,X) 0x01BFF3|$06:$BFE3:47 ; INVALID OPCODE 0x01BFF4|$06:$BFE4:4F ; INVALID OPCODE 0x01BFF5|$06:$BFE5:4E 20 57 ; LSR $5720 0x01BFF6|$06:$BFE6:20 57 41 ; JSR $4157 0x01BFF7|$06:$BFE7:57 ; INVALID OPCODE 0x01BFF8|$06:$BFE8:41 52 ; EOR ($52,X) 0x01BFF9|$06:$BFE9:52 ; INVALID OPCODE 0x01BFFA|$06:$BFEA:52 ; INVALID OPCODE 0x01BFFB|$06:$BFEB:49 4F ; EOR #$4F 0x01BFFC|$06:$BFEC:4F ; INVALID OPCODE 0x01BFFD|$06:$BFED:52 ; INVALID OPCODE 0x01BFFE|$06:$BFEE:53 ; INVALID OPCODE 0x01BFFF|$06:$BFEF:32 ; INVALID OPCODE 0x01C000|$06:$BFF0:FF ; INVALID OPCODE 0x01C001|$06:$BFF1:FF ; INVALID OPCODE 0x01C002|$06:$BFF2:00 ; BRK 0x01C003|$06:$BFF3:00 ; BRK 0x01C004|$06:$BFF4:48 ; PHA 0x01C005|$06:$BFF5:04 ; INVALID OPCODE 0x01C006|$06:$BFF6:01 0F ; ORA ($0F,X) 0x01C007|$06:$BFF7:0F ; INVALID OPCODE 0x01C008|$06:$BFF8:07 ; INVALID OPCODE 0x01C009|$06:$BFF9:9D D8 BF ; STA $BFD8,X 0x01C00A|$06:$BFFA:D8 ; CLD 0x01C00B|$06:$BFFB:BF ; INVALID OPCODE 0x01C00C|$06:$BFFC:D8 ; CLD 0x01C00D|$06:$BFFD:BF ; INVALID OPCODE 0x01C00E|$06:$BFFE:D8 ; CLD 0x01C00F|$06:$BFFF:BF ; INVALID OPCODE