It behaves similarly to the Healing Temples File.
The non-text code simply handles which party member pays for restoration, based on how many spell points they are down from their maximum.
It includes an "error handling" subroutine for when the player tries to restore someone who is already at their maximum spellpoints.
Code: Select all
BT2 Character Disk
"FILE1851555" PRG ROSCOE'S ENERGY EMPORIUM
#$EA | 234 | EOR all bytes against 11101010
3 blocks; 644 bytes (70EA to 736E Inclusive)
This is the event file for when the party visits Roscue's Energy Emporium.
70ea 0c ???
70eb 2b ???
70ec 48 pha
70ed f2 ???
70ee ca dex
70ef f1
70f0 e2 sbc ($e2),y
70f1 43 ???
70f2 76
70f3 6f ror $6f,x
70f4 b3 ???
70f5 43 ???
70f6 b7 ???
70f7 6f ???
70f8 b2 ???
70f9 ca dex
70fa e5
70fb e2 sbc $e2
70fc ca dex
70fd 0b ???
70fe e2 ???
70ff 4a lsr a
7100 71
7101 48 adc ($48),y
7102 b9
7103 ca
7104 ec lda $ecca,y
7105 e2 ???
7106 ca dex
7107 92 ???
7108 e2 ???
7109 ca dex
710a 6d
710b e2
710c 23 adc $23e2
710d 2f ???
710e 3a ???
710f fe
7110 4c
7111 ce inc $ce4c,x
7112 57 ???
7113 a5
7114 71 lda $71
7115 6f ???
7116 ce
7117 ca
7118 dd dec $ddca
7119 71
711a 43 adc ($43),y
711b ea nop
711c 6f ???
711d c5
711e ca cmp $ca
711f 0b ???
7120 e2 ???
7121 a6
7122 ea ldx $ea
7123 7a ???
7124 23 ???
7125 5a ???
7126 7a ???
7127 34 ???
7128 23 ???
7129 5d
712a 5a
712b 30 eor $305a,x
712c d2 ???
712d 03 ???
712e 5a ???
712f e0
7130 40 cpx #$40
7131 57 ???
7132 8c
7133 76
7134 6f sty $6f76
7135 71
7136 57 adc ($57),y
7137 8d
7138 76
7139 6f sta $6f76
713a 76
713b 4a ror $4a,x
713c ea nop
713d 5b ???
713e 71
713f 1a adc ($1a),y
7140 2f ???
7141 ca dex
7142 0b ???
7143 e2 ???
7144 4c
7145 71
7146 4e jmp $4e71
7147 76
7148 ca ror $ca,x
7149 ec
714a e2
714b 4a cpx $4ae2
714c df ???
714d 5b ???
714e 71
714f 22 adc ($22),y
7150 22 ???
7151 d2 ???
7152 1b ???
7153 71
7154 6f adc ($6f),y
7155 84
7156 4a sty $4a
7157 de
7158 5b
7159 71 dec $715b,x
715a 22 ???
715b 22 ???
715c 1b ???
715d 71
715e 6f adc ($6f),y
715f 85
7160 4f sta $4f
7161 84
7162 3a sty $3a
7163 f9
7164 4f
7165 85 sbc $854f,y
7166 3a ???
7167 e5
7168 4a sbc $4a
7169 71
716a 48 adc ($48),y
716b 27 ???
716c ca dex
716d ec
716e e2
716f 43 cpx $43e2
7170 e0
7171 ca cpx #$ca
7172 f0
7173 e3 beq $7157
7174 a6
7175 f8 ldx $f8
7176 70
7177 4a bvs $71c2
7178 76
7179 48 ror $48,x
717a cc
717b ca
717c ec cpy $ecca
717d e2 ???
717e 43 ???
717f ea nop
7180 6f ???
7181 89 ???
7182 6f ???
7183 8e
7184 43
7185 e5 stx $e543
7186 f2 ???
7187 8f ???
7188 89 ???
7189 6f ???
718a 89 ???
718b 7a ???
718c e8 inx
718d 0c ???
718e 8e
718f 4f
7190 84 stx $844f
7191 d2 ???
7192 03 ???
7193 eb ???
7194 6f ???
7195 84
7196 7a sty $7a
7197 e0
7198 23 cpx #$23
7199 ea nop
719a 3a ???
719b 02 ???
719c 4f ???
719d 85
719e 1a sta $1a
719f ed
71a0 3a
71a1 08 sbc $083a
71a2 2c
71a3 85
71a4 a6 bit $a685
71a5 70
71a6 70 bvs $7217
71a7 ca dex
71a8 da ???
71a9 e2 ???
71aa 4a lsr a
71ab 71
71ac 48 adc ($48),y
71ad 06
71ae ca asl $ca
71af ec
71b0 e2
71b1 ca cpx $cae2
71b2 67 ???
71b3 e2 ???
71b4 7a ???
71b5 e9
71b6 a6 sbc #$a6
71b7 f8 sed
71b8 70
71b9 6e bvs $7228
71ba 84
71bb 6f sty $6f
71bc 85
71bd 4a sta $4a
71be ea nop
71bf 5b ???
71c0 84
71c1 1a sty $1a
71c2 04 ???
71c3 4f ???
71c4 71
71c5 a2 adc ($a2),y
71c6 4f ???
71c7 76
71c8 a2 ror $a2,x
71c9 4f ???
71ca 84
71cb 6f sty $6f
71cc 71
71cd 4f adc ($4f),y
71ce 85
71cf 6f sta $6f
71d0 76
71d1 4a ror $4a,x
71d2 ce
71d3 6e
71d4 65 dec $656e
71d5 ca dex
71d6 cb ???
71d7 e2 ???
71d8 7a ???
71d9 f1
71da 82 sbc ($82),y
71db 6f ???
71dc 76
71dd 82 ror $82,x
71de 6f ???
71df 71
71e0 ca adc ($ca),y
71e1 e6
71e2 e2 inc $e2
71e3 ca dex
71e4 e6
71e5 e2 inc $e2
71e6 4a lsr a
71e7 76
71e8 48 ror $48,x
71e9 9e ???
71ea ca dex
71eb ec
71ec e2
71ed 43 cpx $43e2
71ee e4
71ef ca cpx $ca
71f0 f0
71f1 e3 beq $71d5
71f2 a6
71f3 bd ldx $bd
71f4 70
71f5 ca bvs $71c0
71f6 ce
71f7 e2
71f8 82 dec $82e2
71f9 6f ???
71fa 76
71fb 82 ror $82,x
71fc 6f ???
71fd 71
71fe 4a adc ($4a),y
71ff de
7200 5b
7201 71 dec $715b,x
7202 a2
7203 22 ldx #$22
7204 5b ???
7205 71
7206 40 adc ($40),y
7207 22 ???
7208 82 ???
7209 7b ???
720a 71
720b 22 adc ($22),y
720c 60 rts
720d 7b ???
720e 71
720f 4a adc ($4a),y
7210 76
7211 48 ror $48,x
7212 e1
7213 ca sbc ($ca,x)
7214 ec
7215 e2
7216 43 cpx $43e2
7217 e3 ???
7218 ca dex
7219 f0
721a e3 beq $71fe
721b ca dex
721c a2
721d e2 ldx #$e2
721e a6
721f f8 ldx $f8
7220 70
7221 4f bvs $7271
7222 ce
7223 1a
7224 e1 dec $e11a
7225 23 ???
7226 eb ???
7227 1a ???
7228 e7 ???
7229 23 ???
722a e8 inx
722b 1a ???
722c ec
722d 2c
722e c3 cpx $c32c
722f 8a txa
7230 0c ???
7231 c2 ???
7232 8a txa
7233 2c
7234 c2
7235 8a bit $8ac2
7236 0c ???
7237 c3 ???
7238 8a txa
7239 e8 inx
723a e9
723b ea sbc #$ea
723c eb ???
723d 3d W
723e 0f e
723f 06 and $060f,x l
7240 09 c
7241 05 ora #$05 o
7242 07 ??? m
7243 0f ??? e
7244 46 ,
7245 4a lsr $4a [SPC]
7246 07 ??? m
7247 13 ??? y
7248 4a lsr a [SPC]
7249 0c ??? f
724a 18 clc r
724b 03 ??? i
724c 0f ??? e
724d 04 ??? n
724e 0e d
724f 19 s
7250 46 asl $4619 ,
7251 4a lsr a [SPC]
7252 1e t
7253 05 o
7254 4a asl $4a05,x [SPC]
7255 38 sec R
7256 05 o
7257 19 ora $19 s
7258 09 c
7259 05 ora #$05 o
725a 0f ??? e
725b 4d '
725c 19 s
725d 4a eor $4a19 [SPC]
725e 2f ??? E
725f 04 ??? n
7260 0f ??? e
7261 18 clc r
7262 0d g
7263 13 y
7264 4a ora $4a13 [SPC]
7265 2f ??? E
7266 07 ??? m
7267 1a ??? p
7268 05 o
7269 18 ora $18 r
726a 03 ??? i
726b 1f ??? u
726c 07 ??? m
726d 4a lsr a [SPC]
726e 42 ??? (
726f 0c ??? f
7270 18 clc r
7271 0b ??? a
7272 04 ??? n
7273 09 c
7274 02 ora #$02 h
7275 03 ??? i
7276 19 s
7277 0f e
7278 0e ora $0e0f,y d
7279 43 ??? )
727a 44 ??? .
727b 4a lsr a [SPC]
727c 3d W
727d 02 h
727e 05 and $0502,x o
727f 4a lsr a [SPC]
7280 04 ??? n
7281 0f ??? e
7282 0f ??? e
7283 0e d
7284 0f e
7285 1e asl $1e0f t
7286 02 ??? h
7287 4a lsr a [SPC]
7288 19 s
7289 1a p
728a 0f ora $0f1a,y e
728b 06 l
728c 06 asl $06 l
728d 4a lsr a [SPC]
728e 1a ??? p
728f 05 o
7290 03 ora $03 i
7291 04 ??? n
7292 1e t
7293 19 s
7294 4a asl $4a19,x [SPC]
7295 18 clc r
7296 0f ??? e
7297 19 s
7298 1e t
7299 05 ora $051e,y o
729a 18 clc r
729b 0f ??? e
729c 0e d
729d 55 ?
729e ea asl $ea55 [CR]
729f ea nop [CR]
72a0 2f ??? E
72a1 04 ??? n
72a2 1e t
72a3 0f e
72a4 18 asl $180f,x r
72a5 4a lsr a [SPC]
72a6 49 #
72a7 42 eor #$42 (
72a8 5a ??? 1
72a9 47 ??? -
72aa 5c ??? 6
72ab 43 ??? )
72ac 4a lsr a [SPC]
72ad 05 o
72ae 18 ora $18 r
72af ea nop [CR]
72b0 42 ??? (
72b1 2f ??? E
72b2 43 ??? )
72b3 12 ??? x
72b4 03 ??? i
72b5 1e t
72b6 36 [EOT]
72b7 4a asl $4a36,x [SPC]
72b8 0e d
72b9 05 o
72ba 0f asl $0f05 e
72bb 19 s
72bc 4a [SPC]
71bd 04 ora $044a,y n
72be 05 o
72bf 1e ora $1e t
72c0 4a lsr a [SPC]
72c1 18 clc r
72c2 0f ??? e
72c3 1b ??? q
72c4 1f ??? u
72c5 03 ??? i
72c6 18 clc r
72c7 0f ??? e
72c8 4a lsr a [SPC]
72c9 18 clc r
72ca 0f ??? e
72cb 19 s
72cc 1e t
72cd 05 ora $051e,y o
72ce 18 clc r
72cf 0b ??? a
72d0 1e t
72d1 03 i
71d2 05 asl $0503,x o
72d3 04 ??? n
72d4 44 ??? .
72d5 36 [EOT]
72d6 4a rol $4a,x [SPC]
72d7 03 ??? i
72d8 04 ??? n
72d9 4a lsr a [SPC]
72da 0d g
72db 05 o
72dc 06 ora $0605 l
72dd 0e d
72de 44 .
72df 4a asl $4a44 [SPC]
72e0 3d W
72e1 02 h
72e2 05 and $0502,x o
72e3 4a lsr a [SPC]
72e4 1d w
72e5 03 i
72e6 06 ora $0603,x l
72e7 06 l
72e8 4a asl $4a [SPC]
72e9 1a ??? p
72ea 0b ??? a
72eb 13 ??? y
72ec 55 ?
72ed 4a eor $4a,x [SPC]
72ee 49 #
72ef 42 eor #$42 (
72f0 5a ??? 0
72f1 47 ??? -
72f2 5c ??? 6
72f3 43 ??? )
72f4 36 [EOT]
82f5 ea rol $ea,x [CR]
72f6 ea nop [CR]
72f7 38 sec R
72f8 05 o
72f9 19 ora $19 s
72fa 09 c
72fb 05 ora #$05 o
72fc 0f ??? e
72fd 4a lsr a [SPC]
72fe 18 clc r
72ff 0f ??? e
7300 47 ??? -
7301 0f ??? e
7302 04 ??? n
7303 0f ??? e
7304 18 clc r
7305 0d g
7306 03 i
7307 10 ora $1003 z
7308 0f ??? e
7309 19 s
730a 4a [SPC]
730b 02 ora $024a,y h
730c 03 ??? i
730d 07 ??? m
730e 44 ??? .
730f 36 [EOT]
7310 4a rol $4a,x [SPC]
7311 02 ??? h
7312 0b ??? a
7313 19 s
7314 4a [SPC]
7315 19 ora $194a,y s
7316 05 o
7317 07 ora $07 m
7318 0f ??? e
7319 4a lsr a [SPC]
731a 0e d
731b 0f e
731c 0c asl $0c0f f
731d 03 ??? i
731e 04 ??? n
731f 03 ??? i
7320 1e t
7321 0f e
7322 4a asl $4a0f,x [SPC]
7323 19 s
7324 1a p
7325 0f ora $0f1a,y e
7326 06 l
7327 06 asl $06 l
7328 4a lsr a [SPC]
7329 1a ??? p
732a 05 o
732b 03 ora $03 i
732c 04 ??? n
732d 1e t
732e 4a [SPC]
732f 1a asl $1a4a,x p
7330 18 clc r
7331 05 o
7332 08 ora $08 b
7333 06 l
7334 0f asl $0f e
7335 07 ??? m
7336 19 s
7337 44 .
7338 4a ora $4a44,y [SPC]
7339 23 ??? I
733a 1e t
733b 4a [SPC]
733c 1d asl $1d4a,x w
733d 03 ??? i
733e 06 l
733f 06 asl $06 l
7340 4a lsr a [SPC]
7341 09 c
7342 05 ora #$05 o
7343 19 s
7344 1e t
7345 4a ora $4a1e,y [SPC]
7346 36 [EOT]
7347 38 rol $38,x R
7348 05 o
7349 19 ora $19 s
734a 09 c
734b 05 ora #$05 o
734c 0f ??? e
734d 4d '
734e 19 s
734f 36 eor $3619 [EOT]
7350 ea nop
7351 52 ???
7352 6a ror a
7353 52 ???
7354 ea nop
7355 53 ???
7356 6a ror a
7357 53 ???
7358 ea nop
7359 50
735a 6a bvc $73c5
735b 50
735c ea bvc $7347
735d 51
735e 24 eor ($24),y
735f 05
7360 1e ora $1e
7361 4a lsr a
7362 0f ???
7363 04 ???
7364 05
7365 1f ora $1f
7366 0d
7367 02
7368 4a ora $4a02
7369 0d
736a 05
736b 06 ora $0605
736c 0e
736d 44
736e 4a asl $4a44
