"FILE0965430" PRG ACCESS TO GREY CRYPT
#$EA | 234 | EOR all bytes against 11101010
2 blocks; 382 bytes (70EA TO 7268 Inclusive)
This file handles when the party enters the Grey Crypt.
Similar to the Oscon's Fortress file, except it doesn't scan the party's inventory. Instead it simply asks for the password ("GREY"); if correct it shows the option to enter and waits for that key to be pressed. If not, it simply shows the "empty room" message and waits for the "E" key to be pressed.
The caption "Crypt" is stored at 715d, directly in front of the file's text entries.
Code: Select all
70ea 0c ???
70eb 2b ???
70ec 48 pha
70ed fa ???
70ee ca dex
70ef f1 e2 sbc ($e2),y
70f1 43 ???
70f2 70 6f bvs $7163
70f4 b3 ???
70f5 43 ???
70f6 99 6f b2 sta $b26f,y
70f9 ca dex
70fa e5 e2 sbc $e2
70fc ca dex
70fd 0b ???
70fe e2 ???
70ff 4a lsr a
7100 70 48 bvs $714a
7102 13 ???
7103 ca dex
7104 ec e2 ca cpx $cae2
7107 dc ???
7108 e2 ???
7109 5a ???
710a d4 ???
710b 48 pha
710c e9 57 sbc #$57
710e de e9 37 dec $37e9,x
7111 a2 71 ldx #$71
7113 3a ???
7114 de 20 fa dec $fa20,x
7117 1f ???
7118 ca dex
7119 0b ???
711a e2 ???
711b 4a lsr a
711c 70 48 bvs $7166
711e 93 ???
711f ca dex
7120 ec e2 ca cpx $cae2
7123 92 ???
7124 e2 ???
7125 ca dex
7126 6d
7127 e2
7128 23 adc $23e2
7129 3e
712a 1a
712b fe rol $fe1a,x
712c 23 ???
712d 2f ???
712e 3a ???
712f 18 clc
7130 43 ???
7131 ea nop
7132 6f ???
7133 ce
7134 0c
7135 c2 dec $c20c
7136 43 ???
7137 ea nop
7138 6f ???
7139 c5
713a ca cmp $ca
713b 0b ???
713c e2 ???
713d a6
713e ea ldx $ea
713f 7a ???
7140 43 ???
7141 fe
7142 6f
7143 0a inc $0a6f,x
7144 43 ???
7145 eb ???
7146 a6
7147 73 ldx $73
7148 e2 ???
7149 ca dex
714a 0b ???
714b e2 ???
714c 4a lsr a
714d 71
714e 48 adc ($48),y
714f a6
7150 ca ldx $ca
7151 ec
7152 e2
7153 ca cpx $cae2
7154 92 ???
7155 e2 ???
7156 23 ???
7157 2f ???
7158 3a ???
7159 13 ???
715a a6
715b ac ldx $ac
715c 70
715d 29 bvs $7187 C
715e 18 clc r
715f 13 ??? y
7160 1a ??? p
7161 1e t
7162 36 [EOT]
7163 33 asl $3336,x Y
7164 05 o
7165 1f ora $1f u
7166 4a lsr a [SPC]
7167 19 s
7168 1e t
7169 0b ora $0b1e,y a
716a 04 ??? n
716b 0e d
716c 4a [SPC]
716d 03 asl $034a i
716e 04 ??? n
716f 4a lsr a [SPC]
7170 1e t
7171 02 h
7172 0f asl $0f02,x e
7173 4a lsr a [SPC]
7174 0f ??? e
7175 04 ??? n
7176 1e t
7177 18 r
7178 13 asl $1318,x y
7179 4a lsr a [SPC]
717a 1e t
717b 05 o
717c 4a asl $4a05,x [SPC]
717d 0b ??? a
717e 04 ??? n
717f 4a lsr a [SPC]
7180 0b ??? a
7181 04 ??? n
7182 09 c
7183 03 ora #$03 i
7184 0f ??? e
7185 04 ??? n
7186 1e t
7187 4a [SPC]
7188 09 asl $094a,x c
7189 18 clc r
718a 13 ??? y
718b 1a ??? p
718c 1e t
718d 44 .
718e 4a asl $4a44,x [SPC]
718f 2b ??? A
7190 4a lsr a [SPC]
7191 1a ??? p
7192 0b ??? a
7193 19 s
7194 19 s
7195 0b ora $0b19,y a
7196 0d g
7197 0f e
7198 4a ora $4a0f [SPC]
7199 06 l
719a 0f asl $0f e
719b 0b ??? a
719c 0e d
71cd 19 s
71ce 4a asl $4a19 [SPC]
719f 03 ??? i
71a0 04 ??? n
71a1 1e t
71a2 05 o
71a3 4a asl $4a05,x [SPC]
71a4 1e t
71a5 02 h
71a6 0f asl $0f02,x e
71a7 4a lsr a [SPC]
71a8 0e d
71a9 0b a
71aa 18 asl $180b r
71ab 01 k
71ac 4a ora ($4a,x) [SPC]
71ad 1f ??? u
71ae 04 ??? n
71af 01 k
71b0 04 ora ($04,x) n
71b1 05 o
71b2 1d ora $1d w
71b3 04 ??? n
71b4 44 ??? .
71b5 4a lsr a [SPC]
71b6 33 ??? Y
71b7 05 o
71b8 1f ora $1f u
71b9 4a lsr a [SPC]
71ba 09 c
71bb 0b ora #$0b a
71bc 04 ??? n
71bd ea nop [CR]
71be ea nop {CR]
71bf 42 ??? (
71c0 3e T
71c1 43 )
71c2 0b rol $0b43,x a
71c3 01 k
71c4 0f ora ($0f,x) e
71c5 4a lsr a [SPC]
71c6 1e t
71c7 02 h
71c8 0f asl $0f02,x e
71c9 4a lsr a [SPC]
71ca 1a ??? p
71cb 0b ??? a
71cc 19 s
71cd 19 s
71ce 0b ora $0b19,y a
71cf 0d g
71d0 0f e
71d1 ea ora $ea0f [CR]
71d2 42 ??? (
71d3 2f ??? E
71d4 43 ??? )
71d5 12 ??? x
71d6 03 ??? i
71d7 1e t
71d8 4a [SPC]
71d9 1e asl $1e4a,x t
71da 02 ??? h
71db 0f ??? e
71dc 4a lsr a [SPC]
71dd 09 c
71de 18 ora #$18 r
71df 13 ??? y
71e0 1a ??? p
71e1 1e t
71e2 36 [EOT]
71e3 2b asl $2b36,x A
71e4 4a lsr a [SPC]
71e5 19 s
71e6 1e t
71e7 0b ora $0b1e,y a
71e8 1e t
71e9 1f u
71ea 0f asl $0f1f,x e
71eb 4a lsr a [SPC]
71ec 09 c
71ed 05 ora #$05 o
71ee 07 ??? m
71ef 0f ??? e
71f0 19 s
71f1 4a [SPC]
71f2 1e ora $1e4a,y t
71f3 05 o
71f3 4a ora $4a [SPC]
71f5 06 l
71f6 03 asl $03 i
71f7 0c ??? f
71f8 0f ??? e
71f9 4a lsr a [SPC]
71fa 08 php b
71fb 0f ??? e
71fc 0c ??? f
71fd 05 o
71fe 18 ora $18 r
71ff 0f ??? e
7200 4a lsr a [SPC]
7201 13 ??? y
7202 05 o
7203 1f ora $1f u
7204 46 ,
7205 4a lsr $4a [SPC]
7206 0b ??? a
7207 04 ??? n
7208 0e d
7209 4a [SPC]
720a 19 asl $194a s
720b 0b ??? a
720c 13 ??? y
720d 19 s
720e 46 ,
720f 4a ora $4a46,y [SPC]
7210 48 pha "
7211 24 N
7212 0b bit $0b a
7213 07 ??? m
7214 0f ??? e
7215 4a lsr a [SPC]
7216 1e t
7217 02 h
7218 03 asl $0302,x i
7219 19 s
721a 4a [SPC]
721b 09 ora $094a,y c
721c 18 clc r
721d 13 ??? y
721e 1a ??? p
721f 1e t
7220 4a [SPC]
7221 1e asl $1e4a,x t
7222 05 o
7223 4a ora $4a [SPC]
7224 ea nop [CR]
7225 0f ??? e
7226 04 ??? n
7227 1e t
7228 0f e
7229 18 asl $180f,x r
722a 4a lsr a [SPC]
722b 03 ??? i
722c 1e t
722d 44 .
722e 48 asl $4844,x "
722f ea nop [CR]
7230 ea nop [CR]
7231 15 >
7232 2d ora $2d,x G Password "GREY"
7233 38 sec R
7234 2f ??? E
7235 33 ??? Y
7236 33 ??? Y
7237 05 o
7238 1f ora $1f u
7239 4a lsr a [SPC]
723a 0b ??? a
723b 18 clc r
723c 0f ??? e
723d 4a lsr a [SPC]
723e 03 ???i i
723f 04 ??? n
7240 4a lsr a [SPC]
7241 0b ??? a
7242 04 ??? n
7243 4a lsr a [SPC]
7244 0f ??? e
7245 07 ??? m
7246 1a ??? p
7247 1e t
7248 13 y
7249 4a asl $4a13,x [SPC]
724a 09 c
724b 18 ora #$18 r
724c 13 ??? y
724d 1a ??? p
724e 1e t
724f 44 .
7250 4a asl $4a44,x [SPC]
7251 33 ??? Y
7252 05 o
7253 1f ora $1f u
7254 4a lsr a [SPC]
7255 09 c
7256 0b ora #$0b a
7257 04 ??? n
7258 ea nop [CR]
7259 ea nop [CR]
725a 42 ??? (
725b 2f ??? E
725c 43 ??? )
725d 12 ??? x
725e 03 ??? i
725f 1e t
7260 4a [SPC]
7261 1e asl $1e4a,x t
7262 02 ??? h
7263 0f ??? e
7264 4a lsr a [SPC]
7265 18 clc r
7266 05 o
7267 05 ora $05 o
7268 07 ??? m
