"FILE0965430" PRG ACCESS TO GREY CRYPT
#$EA | 234 | EOR all bytes against 11101010
2 blocks; bytes (70EA TO 71E7 Inclusive; 9A00 to ????)
Access file for entering the Grey Crypt. Very similar to the Maze of Dread file.
Code: Select all
.C:9a00 E6 C1 INC $C1
.C:9a02 A2 10 LDX #$10
.C:9a04 20 1B 08 JSR $081B Display picture #$10
.C:9a07 A9 9A LDA #$9A
.C:9a09 85 59 STA $59
.C:9a0b A9 73 LDA #$73
.C:9a0d 85 58 STA $58
.C:9a0f 20 0F 08 JSR $080F Display "Crypt" caption
.C:9a12 20 E1 08 JSR $08E1
.C:9a15 A0 9A LDY #$9A
.C:9a17 A2 F9 LDX #$F9
.C:9a19 20 06 08 JSR $0806 "Name this crypt..."
.C:9a1c 20 36 08 JSR $0836 Get input from player
.C:9a1f B0 3E BCS $9A5F [ENTER]? Go $9a5f
.C:9a21 A2 03 LDX #$03
.C:9a23 BD 34 03 LDA $0334,X Get password
.C:9a26 DD 48 9B CMP $9B48,X Compare it to input
.C:9a29 D0 34 BNE $9A5F Wrong? Go $9a5f
.C:9a2b CA DEX
.C:9a2c 10 F5 BPL $9A23
.C:9a2e 20 E1 08 JSR $08E1
.C:9a31 A0 9A LDY #$9A
.C:9a33 A2 79 LDX #$79
.C:9a35 20 06 08 JSR $0806 "...a passage leads down..."
.C:9a38 20 78 08 JSR $0878 Get keypress
.C:9a3b 20 87 08 JSR $0887 Analyze keypress
.C:9a3e C9 D4 CMP #$D4
.C:9a40 F0 14 BEQ $9A56 Take passage? Go $9a56
.C:9a42 C9 C5 CMP #$C5
.C:9a44 D0 F2 BNE $9A38 Exit? No? Go $9a38
.C:9a46 A9 00 LDA #$00 Begin exit routine
.C:9a48 85 24 STA $24 Face party north
.C:9a4a E6 28 INC $28 Move party 1 square north
.C:9a4c A9 00 LDA #$00
.C:9a4e 85 2F STA $2F Pizza Hut???
.C:9a50 20 E1 08 JSR $08E1
.C:9a53 4C 00 90 JMP $9000 Return to main engine.
.C:9a56 A9 14 LDA #$14
.C:9a58 85 E0 STA $E0 T/S table offset #$14
.C:9a5a A9 01 LDA #$01 Floor #1
.C:9a5c 4C 99 08 JMP $0899 Dungeon loader thingy
.C:9a5f 20 E1 08 JSR $08E1
.C:9a62 A0 9B LDY #$9B
.C:9a64 A2 4C LDX #$4C
.C:9a66 20 06 08 JSR $0806 "...an empty crypt."
.C:9a69 20 78 08 JSR $0878 Get keypress
.C:9a6c C9 C5 CMP #$C5
.C:9a6e D0 F9 BNE $9A69 Exit? No? Go $9a69
.C:9a70 4C 46 9A JMP $9A46 Done
.C:9a73 C3 F2 DCP ($F2,X) [C][r]
.C:9a75 F9 F0 F4 SBC $F4F0,Y [y][p][t]
.C:9a78 DC D9 EF NOOP $EFD9,X [EOT][Y][o]
.C:9a7b F5 A0 SBC $A0,X [u][_]
.C:9a7d F3 F4 ISB ($F4),Y [s][t]
.C:9a7f E1 EE SBC ($EE,X) [a][n]
.C:9a81 E4 A0 CPX $A0 [d][_]
.C:9a83 E9 EE SBC #$EE [i][n]
.C:9a85 A0 F4 LDY #$F4 [_][t]
.C:9a87 E8 INX [h]
.C:9a88 E5 A0 SBC $A0 [e][_]
.C:9a8a E5 EE SBC $EE [e][n]
.C:9a8c F4 F2 NOOP $F2,X [t][r]
.C:9a8e F9 A0 F4 SBC $F4A0,Y [y][_][t]
.C:9a91 EF A0 E1 ISB $E1A0 [o][_][a]
.C:9a94 EE A0 E1 INC $E1A0 [n][_][a]
.C:9a97 EE E3 E9 INC $E9E3 [n][c][i]
.C:9a9a E5 EE SBC $EE [e][n]
.C:9a9c F4 A0 NOOP $A0,X [t][_]
.C:9a9e E3 F2 ISB ($F2,X) [c][r]
.C:9aa0 F9 F0 F4 SBC $F4F0,Y [y][p][t]
.C:9aa3 AE A0 C1 LDX $C1A0 [.][_][A
.C:9aa6 A0 F0 LDY #$F0 [_][p]
.C:9aa8 E1 F3 SBC ($F3,X) [a][s]
.C:9aaa F3 E1 ISB ($E1),Y [s][a]
.C:9aac E7 E5 ISB $E5 [g][e]
.C:9aae A0 EC LDY #$EC [_][l]
.C:9ab0 E5 E1 SBC $E1 [e][a]
.C:9ab2 E4 F3 CPX $F3 [d][s]
.C:9ab4 A0 E9 LDY #$E9 [_][i]
.C:9ab6 EE F4 EF INC $EFF4 [n][t][o]
.C:9ab9 A0 F4 LDY #$F4 [_][t]
.C:9abb E8 INX [h]
.C:9abc E5 A0 SBC $A0 [e][_]
.C:9abe E4 E1 CPX $E1 [d][a]
.C:9ac0 F2 JAM [r]
.C:9ac1 EB A0 USBC #$A0 [k][_]
.C:9ac3 F5 EE SBC $EE,X [u][n]
.C:9ac5 EB EE USBC #$EE [k][n]
.C:9ac7 EF F7 EE ISB $EEF7 [o][w][n]
.C:9aca AE A0 D9 LDX $D9A0 [.][_][Y]
.C:9acd EF F5 A0 ISB $A0F5 [o][u][_]
.C:9ad0 E3 E1 ISB ($E1,X) [c][a]
.C:9ad2 EE 00 00 INC $0000 [n][CR][CR]
.C:9ad5 A8 TAY [(]
.C:9ad6 D4 A9 NOOP $A9,X [T][)]
.C:9ad8 E1 EB SBC ($EB,X) [a][k]
.C:9ada E5 A0 SBC $A0 [e][_]
.C:9adc F4 E8 NOOP $E8,X [t][h]
.C:9ade E5 A0 SBC $A0 [e][_]
.C:9ae0 F0 E1 BEQ $9AC3 [p][a]
.C:9ae2 F3 F3 ISB ($F3),Y [s][s]
.C:9ae4 E1 E7 SBC ($E7,X) [a][g]
.C:9ae6 E5 00 SBC $00 [e][CR]
.C:9ae8 A8 TAY [(]
.C:9ae9 C5 A9 CMP $A9 [E][)]
.C:9aeb F8 SED [x]
.C:9aec E9 F4 SBC #$F4 [i][t]
.C:9aee A0 F4 LDY #$F4 [_][t]
.C:9af0 E8 INX [h]
.C:9af1 E5 A0 SBC $A0 [e][_]
.C:9af3 E3 F2 ISB ($F2,X) [c][r]
.C:9af5 F9 F0 F4 SBC $F4F0,Y [y][p][t]
.C:9af8 DC C1 A0 NOOP $A0C1,X [EOT][A][_]
.C:9afb F3 F4 ISB ($F4),Y [s][t]
.C:9afd E1 F4 SBC ($F4,X) [a][t]
.C:9aff F5 E5 SBC $E5,X [u][e]
.C:9b01 A0 E3 LDY #$E3 [_][c]
.C:9b03 EF ED E5 ISB $E5ED [o][m][e]
.C:9b06 F3 A0 ISB ($A0),Y [s][_]
.C:9b08 F4 EF NOOP $EF,X [t][o]
.C:9b0a A0 EC LDY #$EC [_][l]
.C:9b0c E9 E6 SBC #$E6 [i][f]
.C:9b0e E5 A0 SBC $A0 [e][_]
.C:9b10 E2 E5 NOOP #$E5 [b][e]
.C:9b12 E6 EF INC $EF [f][o]
.C:9b14 F2 JAM [r]
.C:9b15 E5 A0 SBC $A0 [e][_]
.C:9b17 F9 EF F5 SBC $F5EF,Y [y][o][u]
.C:9b1a AC A0 E1 LDY $E1A0 [,][_][a]
.C:9b1d EE E4 A0 INC $A0E4 [n][d][_]
.C:9b20 F3 E1 ISB ($E1),Y [s][a]
.C:9b22 F9 F3 AC SBC $ACF3,Y [y][s][,]
.C:9b25 A0 A2 LDY #$A2 [_]["]
.C:9b27 CE E1 ED DEC $EDE1 [N][a][m]
.C:9b2a E5 A0 SBC $A0 [e][_]
.C:9b2c F4 E8 NOOP $E8,X [t][h]
.C:9b2e E9 F3 SBC #$F3 [i][s]
.C:9b30 A0 E3 LDY #$E3 [_][c]
.C:9b32 F2 JAM [r]
.C:9b33 F9 F0 F4 SBC $F4F0,Y [y][p][t]
.C:9b36 A0 F4 LDY #$F4 [_][t]
.C:9b38 EF A0 00 ISB $00A0 [o][_][CR]
.C:9b3b E5 EE SBC $EE [e][n]
.C:9b3d F4 E5 NOOP $E5,X [t][e]
.C:9b3f F2 JAM [r]
.C:9b40 A0 E9 LDY #$E9 [_][i]
.C:9b42 F4 AE NOOP $AE,X [t][.]
.C:9b44 A2 00 LDX #$00 ["][CR]
.C:9b46 00 BRK [CR]
.C:9b47 FF C7 D2 ISB $D2C7,X [Input][G][R]
.C:9b4a C5 D9 CMP $D9 [E][Y]
.C:9b4c D9 EF F5 CMP $F5EF,Y [Y][o][u]
.C:9b4f A0 E1 LDY #$E1 [_][a]
.C:9b51 F2 JAM [r]
.C:9b52 E5 A0 SBC $A0 [e][_]
.C:9b54 E9 EE SBC #$EE [i][n]
.C:9b56 A0 E1 LDY #$E1 [_][a]
.C:9b58 EE A0 E5 INC $E5A0 [n][_][e]
.C:9b5b ED F0 F4 SBC $F4F0 [m][p][t]
.C:9b5e F9 A0 E3 SBC $E3A0,Y [y][_][c]
.C:9b61 F2 JAM [r]
.C:9b62 F9 F0 F4 SBC $F4F0,Y [y][p][t]
.C:9b65 AE A0 D9 LDX $D9A0 [.][_][Y]
.C:9b68 EF F5 A0 ISB $A0F5 [o][u]
.C:9b6b E3 E1 ISB ($E1,X) [c][a]
.C:9b6d EE 00 00 INC $0000 [n][CR][CR]
.C:9b70 A8 TAY [(]
.C:9b71 C5 A9 CMP $A9 [E]
.C:9b73 F8 SED [x]
.C:9b74 E9 F4 SBC #$F4 [i][t]
.C:9b76 A0 F4 LDY #$F4 [_][t]
.C:9b78 E8 INX [h]
.C:9b79 E5 A0 SBC $A0 [e][_]
.C:9b7b F2 JAM [r]
.C:9b7c EF EF ED ISB $EDEF [o][o][m]
.C:9b7f DC [EOT]