"FILE1530255" PRG KAZDEK'S HUT
#$EA | 234 | EOR all bytes against 11101010
3 blocks; bytes (70EA TO 73A1 Inclusive; 9A00 to 9AC9 memory)
Interestingly, I couldn't extrapolate the precise # of bytes in this file from the hex end address...
Code: Select all
.C:9a00 E6 C1 INC $C1
.C:9a02 A2 2F LDX #$2F
.C:9a04 20 1B 08 JSR $081B Load picture #$2f
.C:9a07 A9 9A LDA #$9A
.C:9a09 85 59 STA $59
.C:9a0b A9 DB LDA #$DB
.C:9a0d 85 58 STA $58
.C:9a0f 20 0F 08 JSR $080F Display "Stone Man" caption
.C:9a12 A9 00 LDA #$00 [$9a12 - 9a28: Scan party for "Item of K"]
.C:9a14 85 44 STA $44
.C:9a16 A6 44 LDX $44
.C:9a18 A9 10 LDA #$10
.C:9a1a 20 F0 08 JSR $08F0
.C:9a1d B0 03 BCS $9A22
.C:9a1f 4C C7 9A JMP $9AC7 Found Item of K in party? Go $9ac7
.C:9a22 E6 44 INC $44
.C:9a24 A5 44 LDA $44
.C:9a26 C9 07 CMP #$07
.C:9a28 90 EC BCC $9A16
.C:9a2a 20 E1 08 JSR $08E1
.C:9a2d A0 9B LDY #$9B
.C:9a2f A2 2F LDX #$2F
.C:9a31 20 06 08 JSR $0806 "Welcome, my friends, ..."
.C:9a34 20 78 08 JSR $0878 Get keypress
.C:9a37 20 87 08 JSR $0887 Analyze keypress
.C:9a3a C9 C5 CMP #$C5
.C:9a3c F0 6A BEQ $9AA8 (S)peak? Go to $9aa8
.C:9a3e C9 D3 CMP #$D3
.C:9a40 D0 F2 BNE $9A34 (E)xit? No? Go to $9a34
.C:9a42 A0 9B LDY #$9B
.C:9a44 A2 E7 LDX #$E7
.C:9a46 20 06 08 JSR $0806 "What will you say?"
.C:9a49 20 36 08 JSR $0836 Get text input string from player
.C:9a4c B0 6A BCS $9AB8 Password wrong? Go $9ab8
.C:9a4e A2 05 LDX #$05 Buffer is 6 characters
.C:9a50 BD 34 03 LDA $0334,X Scan first 6 letters of input
.C:9a53 DD D8 9B CMP $9BD8,X Analyze first 6 letters of input
.C:9a56 D0 60 BNE $9AB8 Password wrong? Go $9ab8
.C:9a58 CA DEX
.C:9a59 10 F5 BPL $9A50
.C:9a5b 20 E1 08 JSR $08E1
.C:9a5e A0 9C LDY #$9C
.C:9a60 A2 13 LDX #$13
.C:9a62 20 06 08 JSR $0806 "'You called?' He says..."
.C:9a65 20 78 08 JSR $0878 Get keypress
.C:9a68 A9 00 LDA #$00 [Between 9a68 and 9a92, give player Item of K]
.C:9a6a 85 44 STA $44
.C:9a6c A9 73 LDA #$73
.C:9a6e 85 70 STA $70
.C:9a70 A9 00 LDA #$00
.C:9a72 85 73 STA $73
.C:9a74 8D 4C 03 STA $034C
.C:9a77 A5 44 LDA $44
.C:9a79 20 5D 08 JSR $085D
.C:9a7c 90 0A BCC $9A88
.C:9a7e E6 44 INC $44
.C:9a80 A5 44 LDA $44
.C:9a82 C9 07 CMP #$07
.C:9a84 90 F1 BCC $9A77
.C:9a86 B0 18 BCS $9AA0
.C:9a88 A5 44 LDA $44
.C:9a8a 0A ASL A
.C:9a8b AA TAX
.C:9a8c BC AD 9C LDY $9CAD,X
.C:9a8f BD AC 9C LDA $9CAC,X
.C:9a92 AA TAX
.C:9a93 20 E1 08 JSR $08E1
.C:9a96 20 06 08 JSR $0806 [BUILD CHARACTER NAME]
.C:9a99 A0 9B LDY #$9B
.C:9a9b A2 DE LDX #$DE
.C:9a9d 20 06 08 JSR $0806 " got it."
.C:9aa0 A9 08 LDA #$08
.C:9aa2 20 1A 09 JSR $091A
.C:9aa5 4C C7 9A JMP $9AC7
.C:9aa8 A9 02 LDA #$02 Begin exit routine
.C:9aaa 85 24 STA $24
.C:9aac C6 28 DEC $28
.C:9aae A9 00 LDA #$00
.C:9ab0 85 2F STA $2F
.C:9ab2 20 E1 08 JSR $08E1
.C:9ab5 4C 00 90 JMP $9000 Return to main program.
.C:9ab8 A0 9B LDY #$9B
.C:9aba A2 FE LDX #$FE
.C:9abc 20 06 08 JSR $0806 "He does not awake."
.C:9abf A9 08 LDA #$08
.C:9ac1 20 1A 09 JSR $091A
.C:9ac4 4C 2A 9A JMP $9A2A
.C:9ac7 20 E1 08 JSR $08E1
.C:9aca A0 9A LDY #$9A
.C:9acc A2 E5 LDX #$E5
.C:9ace 20 06 08 JSR $0806 "You stand in Kazdek's hut. There is..."
.C:9ad1 20 78 08 JSR $0878 Get keypress
.C:9ad4 C9 C5 CMP #$C5
.C:9ad6 D0 F9 BNE $9AD1 Exit? No? Back to $9ad1
.C:9ad8 4C A8 9A JMP $9AA8 Done
.C:9adb D3 F4 DCP ($F4),Y [S][t]
.C:9add EF EE E5 ISB $E5EE [o][n][e]
.C:9ae0 A0 CD LDY #$CD [_][M]
.C:9ae2 E1 EE SBC ($EE,X) [a][n]
.C:9ae4 DC D9 EF NOOP $EFD9,X [EOT][Y][o]
.C:9ae7 F5 A0 SBC $A0,X [u][_]
.C:9ae9 F3 F4 ISB ($F4),Y [s][t]
.C:9aeb E1 EE SBC ($EE,X) [a][n]
.C:9aed E4 A0 CPX $A0 [d][_]
.C:9aef E9 EE SBC #$EE [i][n]
.C:9af1 A0 CB LDY #$CB [_][K]
.C:9af3 E1 FA SBC ($FA,X) [a][z]
.C:9af5 E4 E5 CPX $E5 [d][e]
.C:9af7 EB A7 USBC #$A7 [k][']
.C:9af9 F3 A0 ISB ($A0),Y [s][_]
.C:9afb E8 INX [h]
.C:9afc F5 F4 SBC $F4,X [u][t]
.C:9afe AE A0 D4 LDX $D4A0 [.][_][T]
.C:9b01 E8 INX [h]
.C:9b02 E5 F2 SBC $F2 [e][r]
.C:9b04 E5 A0 SBC $A0 [e][_]
.C:9b06 E9 F3 SBC #$F3 [i][s]
.C:9b08 A0 EE LDY #$EE [_][n]
.C:9b0a EF A0 EF ISB $EFA0 [o][_][o]
.C:9b0d EE E5 A0 INC $A0E5 [n][e][_]
.C:9b10 E8 INX [h]
.C:9b11 E5 F2 SBC $F2 [e][r]
.C:9b13 E5 AE SBC $AE [e][.]
.C:9b15 A0 D9 LDY #$D9 [_][Y]
.C:9b17 EF F5 A0 ISB $A0F5 [o][u][_]
.C:9b1a E3 E1 ISB ($E1,X) [c][a]
.C:9b1c EE 00 00 INC $0000 [n][CR][CR]
.C:9b1f A8 TAY [(]
.C:9b20 C5 A9 CMP $A9 [E][)]
.C:9b22 F8 SED [x]
.C:9b23 E9 F4 SBC #$F4 [i][t]
.C:9b25 A0 F4 LDY #$F4 [_][t]
.C:9b27 E8 INX [h]
.C:9b28 E5 A0 SBC $A0 [e][_]
.C:9b2a F2 JAM [r]
.C:9b2b EF EF ED ISB $EDEF [o][o][m]
.C:9b2e DC A2 D7 NOOP $D7A2,X [EOT]["][W]
.C:9b31 E5 EC SBC $EC [e][l]
.C:9b33 E3 EF ISB ($EF,X) [c][o]
.C:9b35 ED E5 AC SBC $ACE5 [m][e][,]
.C:9b38 A0 ED LDY #$ED [_][m]
.C:9b3a F9 A0 E6 SBC $E6A0,Y [y][_][f]
.C:9b3d F2 JAM [r]
.C:9b3e E9 E5 SBC #$E5 [i][e]
.C:9b40 EE E4 F3 INC $F3E4 [n][d][s]
.C:9b43 AC A2 A0 LDY $A0A2 [,]["][_]
.C:9b46 E1 A0 SBC ($A0,X) [a][_]
.C:9b48 F3 F4 ISB ($F4),Y [s][t]
.C:9b4a EF EE E5 ISB $E5EE [o][n][e]
.C:9b4d A0 ED LDY #$ED [_][m]
.C:9b4f E1 EE SBC ($EE,X) [a][n]
.C:9b51 A0 E5 LDY #$E5 [_][e]
.C:9b53 F8 SED [x]
.C:9b54 E3 EC ISB ($EC,X) [c][l]
.C:9b56 E1 E9 SBC ($E9,X) [a][i]
.C:9b58 ED F3 AE SBC $AEF3 [m][s][.]
.C:9b5b A0 A2 LDY #$A2 [_]["]
.C:9b5d CD F9 A0 CMP $A0F9 [M][y][_]
.C:9b60 E8 INX [h]
.C:9b61 EF ED E5 ISB $E5ED [o][m][e]
.C:9b64 A0 E9 LDY #$E9 [_][i]
.C:9b66 F3 AC ISB ($AC),Y [s][,]
.C:9b68 A0 EF LDY #$EF [_][o]
.C:9b6a E6 A0 INC $A0 [f][_]
.C:9b6c E3 EF ISB ($EF,X) [c][o]
.C:9b6e F5 F2 SBC $F2,X [u][r]
.C:9b70 F3 E5 ISB ($E5),Y [s][e]
.C:9b72 AC A0 F9 LDY $F9A0 [,][_][y]
.C:9b75 EF F5 F2 ISB $F2F5 [o][u][r]
.C:9b78 A0 E8 LDY #$E8 [_][h]
.C:9b7a EF ED E5 ISB $E5ED [o][m][e]
.C:9b7d AE A0 D3 LDX $D3A0 [.][_][S]
.C:9b80 F4 E1 NOOP $E1,X [t][a]
.C:9b82 F9 A0 E1 SBC $E1A0,Y [y][_][a]
.C:9b85 F3 A0 ISB ($A0),Y [s][_]
.C:9b87 EC EF EE CPX $EEEF [l][o][n]
.C:9b8a E7 A0 ISB $A0 [g][_]
.C:9b8c E1 F3 SBC ($F3,X) [a][s]
.C:9b8e A0 F9 LDY #$F9 [_][y]
.C:9b90 EF F5 A0 ISB $A0F5 [o][u][_]
.C:9b93 EC E9 EB CPX $EBE9 [l][i][k]
.C:9b96 E5 AE SBC $AE [e][.]
.C:9b98 A2 A0 LDX #$A0 ["][_]
.C:9b9a C8 INY [H]
.C:9b9b E5 A0 SBC $A0 [e][_]
.C:9b9d F4 E8 NOOP $E8,X [t][h]
.C:9b9f E5 EE SBC $EE [e][n]
.C:9ba1 A0 E6 LDY #$E6 [_][f]
.C:9ba3 E1 EC SBC ($EC,X) [a][l]
.C:9ba5 EC F3 A0 CPX $A0F3 [l][s][_]
.C:9ba8 E1 F3 SBC ($F3,X) [a][s]
.C:9baa EC E5 E5 CPX $E5E5 [l][e][e]
.C:9bad F0 AE BEQ $9B5D [p][.]
.C:9baf A0 D9 LDY #$D9 [_][Y]
.C:9bb1 EF F5 A0 ISB $A0F5 [o][u][_]
.C:9bb4 E3 E1 ISB ($E1,X) [c][a]
.C:9bb6 EE 00 00 INC $0000 [n][CR][CR]
.C:9bb9 A8 TAY [(]
.C:9bba D3 A9 DCP ($A9),Y [S][)]
.C:9bbc F0 E5 BEQ $9BA3 [p][e]
.C:9bbe E1 EB SBC ($EB,X) [a][k]
.C:9bc0 A0 F4 LDY #$F4 [_][t]
.C:9bc2 EF A0 E8 ISB $E8A0 [o][_][h]
.C:9bc5 E9 ED SBC #$ED [i][m]
.C:9bc7 00 BRK [CR]
.C:9bc8 A8 TAY [(]
.C:9bc9 C5 A9 CMP $A9 [E][)]
.C:9bcb F8 SED [x]
.C:9bcc E9 F4 SBC #$F4 [i][t]
.C:9bce A0 F4 LDY #$F4 [_][t]
.C:9bd0 E8 INX [h]
.C:9bd1 E5 A0 SBC $A0 [e][_]
.C:9bd3 F2 JAM [r]
.C:9bd4 EF EF ED ISB $EDEF [o][o][m]
.C:9bd7 DC CB C1 NOOP $C1CB,X [EOT][K][A]
.C:9bda DA NOOP [Z]
.C:9bdb C4 C5 CPY $C5 [D][E]
.C:9bdd CB A0 SBX #$A0 [K][_]
.C:9bdf E7 EF ISB $EF [g][o]
.C:9be1 F4 A0 NOOP $A0,X [t][_]
.C:9be3 E9 F4 SBC #$F4 [i][t]
.C:9be5 AE DC 00 LDX $00DC [.][EOT][CR]
.C:9be8 00 BRK [CR]
.C:9be9 D7 E8 DCP $E8,X [W][h]
.C:9beb E1 F4 SBC ($F4,X) [a][t]
.C:9bed A0 F7 LDY #$F7 [_][w]
.C:9bef E9 EC SBC #$EC [i][l]
.C:9bf1 EC A0 F9 CPX $F9A0 [l][_][y]
.C:9bf4 EF F5 A0 ISB $A0F5 [o][u][_]
.C:9bf7 F3 E1 ISB ($E1),Y [s][a]
.C:9bf9 F9 BF 00 SBC $00BF,Y [y][?][CR]
.C:9bfc 00 BRK [CR]
.C:9bfd FF 00 00 ISB $0000,X [Input][CR][CR]
.C:9c00 C8 INY [H]
.C:9c01 E5 A0 SBC $A0 [e][_]
.C:9c03 E4 EF CPX $EF [d][o]
.C:9c05 E5 F3 SBC $F3 [e][s]
.C:9c07 A0 EE LDY #$EE [_][n]
.C:9c09 EF F4 A0 ISB $A0F4 [o][t][_]
.C:9c0c E1 F7 SBC ($F7,X) [a][w]
.C:9c0e E1 EB SBC ($EB,X) [a][k]
.C:9c10 E5 AE SBC $AE [e][.]
.C:9c12 DC A2 D9 NOOP $D9A2,X [EOT]["][Y]
.C:9c15 EF F5 A0 ISB $A0F5 [o][u][_]
.C:9c18 E3 E1 ISB ($E1,X) [c][a]
.C:9c1a EC EC E5 CPX $E5EC [l][l][e]
.C:9c1d E4 BF CPX $BF [d][?]
.C:9c1f A2 A0 LDX #$A0 ["][_]
.C:9c21 E8 INX [h]
.C:9c22 E5 A0 SBC $A0 [e][_]
.C:9c24 F3 E1 ISB ($E1),Y [s][a]
.C:9c26 F9 F3 AC SBC $ACF3,Y [y][s][,]
.C:9c29 A0 E1 LDY #$E1 [_][a]
.C:9c2b F3 A0 ISB ($A0),Y [s][_]
.C:9c2d E8 INX [h]
.C:9c2e E5 A0 SBC $A0 [e][_]
.C:9c30 E1 F7 SBC ($F7,X) [a][w]
.C:9c32 E1 EB SBC ($EB,X) [a][k]
.C:9c34 E5 F3 SBC $F3 [e][s]
.C:9c36 AE A0 A2 LDX $A2A0 [.][_]["]
.C:9c39 CF E8 AC DCP $ACE8 [O][h][,]
.C:9c3c A0 F9 LDY #$F9 [_][y]
.C:9c3e EF F5 A0 ISB $A0F5 [o][u][_]
.C:9c41 F7 EF ISB $EF,X [w][o]
.C:9c43 F5 EC SBC $EC,X [u][l]
.C:9c45 E4 A0 CPX $A0 [d][_]
.C:9c47 EC E9 EB CPX $EBE9 [l][i][k]
.C:9c4a E5 A0 SBC $A0 [e][_]
.C:9c4c E1 EE SBC ($EE,X) [a][n]
.C:9c4e A0 E9 LDY #$E9 [_][i]
.C:9c50 F4 E5 NOOP $E5,X [t][e]
.C:9c52 ED A0 EF SBC $EFA0 [m][_][o]
.C:9c55 E6 A0 INC $A0 [f][_]
.C:9c57 ED E9 EE SBC $EEE9 [m][i][n]
.C:9c5a E5 AE SBC $AE [e][.]
.C:9c5c A2 A0 LDX #$A0 ["][_]
.C:9c5e C8 INY [H]
.C:9c5f E5 A0 SBC $A0 [e][_]
.C:9c61 F0 F5 BEQ $9C58 [p][u]
.C:9c63 EC EC F3 CPX $F3EC [l][l][s]
.C:9c66 A0 F3 LDY #$F3 [_][s]
.C:9c68 EF ED E5 ISB $E5ED [o][m][e]
.C:9c6b F4 E8 NOOP $E8,X [t][h]
.C:9c6d E9 EE SBC #$EE [i][n]
.C:9c6f E7 A0 ISB $A0 [g][_]
.C:9c71 E6 F2 INC $F2 [f][r]
.C:9c73 EF ED A0 ISB $A0ED [o][m][_]
.C:9c76 F4 E8 NOOP $E8,X [t][h]
.C:9c78 E5 A0 SBC $A0 [e][_]
.C:9c7a E1 E9 SBC ($E9,X) [a][i]
.C:9c7c F2 JAM [r]
.C:9c7d AE A0 A2 LDX $A2A0 [.][_]["]
.C:9c80 D4 E1 NOOP $E1,X [T][a]
.C:9c82 EB E5 USBC #$E5 [k][e]
.C:9c84 A0 F4 LDY #$F4 [_][t]
.C:9c86 E8 INX [h]
.C:9c87 E9 F3 SBC #$F3 [i][s]
.C:9c89 AE A2 A0 LDX $A0A2 [.]["][_]
.C:9c8c C8 INY [H]
.C:9c8d E5 A0 SBC $A0 [e][_]
.C:9c8f F4 E8 NOOP $E8,X [t][h]
.C:9c91 E5 EE SBC $EE [e][n]
.C:9c93 A0 F6 LDY #$F6 [_][v]
.C:9c95 E1 EE SBC ($EE,X) [a][n]
.C:9c97 E9 F3 SBC #$F3 [i][s]
.C:9c99 E8 INX [h]
.C:9c9a E5 F3 SBC $F3 [e][s]
.C:9c9c AE 00 A8 LDX $A800 [.][CR][(]
.C:9c9f D0 F2 BNE $9C93 [P][r]
.C:9ca1 E5 F3 SBC $F3 [e][s]
.C:9ca3 F3 A0 ISB ($A0),Y [s][_]
.C:9ca5 E1 A0 SBC ($A0,X) [a][_]
.C:9ca7 EB E5 USBC #$E5 [k][e]
.C:9ca9 F9 A9 DC SBC $DCA9,Y [y][)][EOT]