"FILE3025065" PRG ACCESS TO DARGOTH'S TOWER
#$EA | 234 | EOR all bytes against 11101010
2 blocks; bytes (70EA TO 71E7 Inclusive; 9A00 to ????)
Access file for entering Dargoth's Tower.
Displays a page of text, waits for keypress; evaluates, and branches accordingly.
If "T" is pressed, loads dungeon file found at T?S? ($E0 is offset by #$08), floor 1.
If "E' is pressed, faces party north, moves them south 1 square and carries on.
Not entirely clear on $2f.
Code: Select all
.C:9a00 E6 C1 INC $C1
.C:9a02 A2 11 LDX #$11
.C:9a04 20 1B 08 JSR $081B Display picture #$11
.C:9a07 A9 9A LDA #$9A
.C:9a09 85 59 STA $59
.C:9a0b A9 43 LDA #$43
.C:9a0d 85 58 STA $58
.C:9a0f 20 0F 08 JSR $080F Display "Tower" caption
.C:9a12 20 E1 08 JSR $08E1
.C:9a15 A0 9A LDY #$9A
.C:9a17 A2 49 LDX #$49
.C:9a19 20 06 08 JSR $0806 "You stand in the..."
.C:9a1c 20 78 08 JSR $0878 Get keypress
.C:9a1f 20 87 08 JSR $0887 Analyze keypress
.C:9a22 C9 D4 CMP #$D4
.C:9a24 F0 14 BEQ $9A3A Take stairs? Go $9a3a
.C:9a26 C9 C5 CMP #$C5
.C:9a28 D0 F2 BNE $9A1C Exit? No? Go $9a1c
.C:9a2a A9 00 LDA #$00 Begin exit routine
.C:9a2c 85 24 STA $24 Face party north
.C:9a2e C6 28 DEC $28 Move party 1 sq south
.C:9a30 A9 00 LDA #$00
.C:9a32 85 2F STA $2F ????
.C:9a34 20 E1 08 JSR $08E1 ????
.C:9a37 4C 00 90 JMP $9000 Back to main engine.
.C:9a3a A9 08 LDA #$08
.C:9a3c 85 E0 STA $E0 Load T/S offset #$08
.C:9a3e A9 01 LDA #$01 Floor 1?
.C:9a40 4C 99 08 JMP $0899 Go to dungeon loader thingy
.C:9a43 D4 EF NOOP $EF,X [T][o]
.C:9a45 F7 E5 ISB $E5,X [w][e]
.C:9a47 F2 JAM [r]
.C:9a48 DC D9 EF NOOP $EFD9,X [EOT][Y][o]
.C:9a4b F5 A0 SBC $A0,X [u][_]
.C:9a4d F3 F4 ISB ($F4),Y [s][t]
.C:9a4f E1 EE SBC ($EE,X) [a][n]
.C:9a51 E4 A0 CPX $A0 [d][_]
.C:9a53 E9 EE SBC #$EE [i][n]
.C:9a55 A0 F4 LDY #$F4 [_][t]
.C:9a57 E8 INX [h]
.C:9a58 E5 A0 SBC $A0 [e][_]
.C:9a5a E5 EE SBC $EE [e][n]
.C:9a5c F4 F2 NOOP $F2,X [t][r]
.C:9a5e F9 A0 F4 SBC $F4A0,Y [y][_][t]
.C:9a61 EF A0 C4 ISB $C4A0 [o][_][D]
.C:9a64 E1 F2 SBC ($F2,X) [a][r]
.C:9a66 E7 EF ISB $EF [g][o]
.C:9a68 F4 E8 NOOP $E8,X [t][h]
.C:9a6a A7 F3 LAX $F3 ['][s]
.C:9a6c A0 D4 LDY #$D4 [_][T]
.C:9a6e EF F7 E5 ISB $E5F7 [o][w][e]
.C:9a71 F2 JAM [r]
.C:9a72 AE A0 C1 LDX $C1A0 [.][_][A]
.C:9a75 A0 F3 LDY #$F3 [_][s]
.C:9a77 F4 E1 NOOP $E1,X [t][a]
.C:9a79 E9 F2 SBC #$F2 [i][r]
.C:9a7b F7 E1 ISB $E1,X [w][a]
.C:9a7d F9 A0 EC SBC $ECA0,Y [y][_][l]
.C:9a80 E5 E1 SBC $E1 [e][a]
.C:9a82 E4 F3 CPX $F3 [d][s]
.C:9a84 A0 F5 LDY #$F5 [_][u]
.C:9a86 F0 F7 BEQ $9A7F [p][w]
.C:9a88 E1 F2 SBC ($F2,X) [a][r]
.C:9a8a E4 A0 CPX $A0 [d][_]
.C:9a8c E9 EE SBC #$EE [i][n]
.C:9a8e F4 EF NOOP $EF,X [t][o]
.C:9a90 A0 F4 LDY #$F4 [_][t]
.C:9a92 E8 INX [h]
.C:9a93 E5 A0 SBC $A0 [e][_]
.C:9a95 E4 E1 CPX $E1 [d][a]
.C:9a97 F2 JAM [r]
.C:9a98 EB EE USBC #$EE [k][n]
.C:9a9a E5 F3 SBC $F3 [e][s]
.C:9a9c F3 AE ISB ($AE),Y [s][.]
.C:9a9e A0 D9 LDY #$D9 [_][Y]
.C:9aa0 EF F5 A0 ISB $A0F5 [o][u][_]
.C:9aa3 E3 E1 ISB ($E1,X) [c][a]
.C:9aa5 EE 00 00 INC $0000 [n][_][_]
.C:9aa8 A8 TAY [(]
.C:9aa9 D4 A9 NOOP $A9,X [T][)]
.C:9aab E1 EB SBC ($EB,X) [a][k]
.C:9aad E5 A0 SBC $A0 [e][_]
.C:9aaf F4 E8 NOOP $E8,X [t][h]
.C:9ab1 E5 A0 SBC $A0 [e][_]
.C:9ab3 F3 F4 ISB ($F4),Y [s][t]
.C:9ab5 E1 E9 SBC ($E9,X) [a][i]
.C:9ab7 F2 JAM [r]
.C:9ab8 F7 E1 ISB $E1,X [w][a]
.C:9aba F9 00 A8 SBC $A800,Y [y][CR][(]
.C:9abd C5 A9 CMP $A9 [E][)]
.C:9abf F8 SED [x]
.C:9ac0 E9 F4 SBC #$F4 [i][t]
.C:9ac2 A0 F4 LDY #$F4 [_][t]
.C:9ac4 E8 INX [h]
.C:9ac5 E5 A0 SBC $A0 [e][_]
.C:9ac7 D4 EF NOOP $EF,X [T][o]
.C:9ac9 F7 E5 ISB $E5,X [w][e]
.C:9acb F2 JAM [r]
.C:9acc DC [EOT]