BT II - Dargoth's Tower Entrance

Any developer realated stuff
Post Reply
User avatar
Darendor
Posts: 1502
Joined: Wed Jan 14, 2009 1:53 am
Location: Red Deer, Alberta, Canada

BT II - Dargoth's Tower Entrance

Post by Darendor »

BT2 Character Disk
"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]
Post Reply