"FILE3159450" PRG Movement Engine
#$EA | 234 | EOR all bytes against 11101010
10 blocks; 2369 bytes 7AEA to 842B (9000 - 9941) T: 5 S: 1
This is the movement engine. A great many unidentified subroutines and a few arcane data fields.
Interestingly, if you press "!" while wandering around a city (not the Wilderness), it brings up the game credits...
Code: Select all
.C:9000 4C 09 90 JMP $9009
.C:9003 4C 23 92 JMP $9223
.C:9006 4C 2E 96 JMP $962E
.C:9009 20 93 08 JSR $0893
.C:900c A2 FF LDX #$FF
.C:900e 9A TXS
.C:900f A5 A8 LDA $A8
.C:9011 D0 03 BNE $9016
.C:9013 4C D1 94 JMP $94D1
.C:9016 A5 28 LDA $28 Get party's N co-ordinate
.C:9018 85 93 STA $93 Store it in $93
.C:901a A5 29 LDA $29 Get party's E co-ordinate
.C:901c 85 94 STA $94 Store it in $94
.C:901e 20 A0 93 JSR $93A0
.C:9021 C9 00 CMP #$00
.C:9023 F0 07 BEQ $902C
.C:9025 4A LSR A
.C:9026 4A LSR A
.C:9027 4A LSR A
.C:9028 4A LSR A
.C:9029 4C C0 90 JMP $90C0
.C:902c 20 BC 91 JSR $91BC
.C:902f 20 2C 09 JSR $092C
.C:9032 20 23 92 JSR $9223
.C:9035 A9 00 LDA #$00
.C:9037 85 99 STA $99
.C:9039 20 2E 96 JSR $962E
.C:903c 20 8B 91 JSR $918B
.C:903f A2 FF LDX #$FF
.C:9041 9A TXS
.C:9042 20 AB 08 JSR $08AB
.C:9045 90 15 BCC $905C
.C:9047 20 E1 08 JSR $08E1 Clear text window.
.C:904a 20 BC 91 JSR $91BC
.C:904d 4C 32 90 JMP $9032
.C:9050 20 3F 91 JSR $913F
.C:9053 4C 16 90 JMP $9016
.C:9056 20 65 91 JSR $9165
.C:9059 4C 16 90 JMP $9016
.C:905c 20 87 08 JSR $0887 Evaluate keypress
.C:905f C9 CA CMP #$CA
.C:9061 F0 ED BEQ $9050 "J"? Go $9050 {Turn left}
.C:9063 C9 88 CMP #$88
.C:9065 F0 E9 BEQ $9050 "????" Go $9050
.C:9067 C9 CC CMP #$CC
.C:9069 F0 EB BEQ $9056 "L"? Go $9056 {Turn right}
.C:906b C9 95 CMP #$95
.C:906d F0 E7 BEQ $9056 "????" Go $9056
.C:906f C9 CB CMP #$CB
.C:9071 F0 3C BEQ $90AF "K"? Go $90AF {Kick in door/enter building}
.C:9073 C9 8D CMP #$8D
.C:9075 F0 38 BEQ $90AF "????" Go $90af
.C:9077 C9 8A CMP #$8A
.C:9079 F0 1C BEQ $9097 "????" Go $9097
.C:907b C9 C9 CMP #$C9
.C:907d F0 18 BEQ $9097 "I"? Go $9097 {Move forward}
.C:907f C9 A1 CMP #$A1
.C:9081 F0 09 BEQ $908C "!"? Go $908c {Display game credits when in a city}
.C:9083 C9 BF CMP #$BF
.C:9085 D0 BB BNE $9042 "?"? no? Go $9042
.C:9087 A9 14 LDA #$14
.C:9089 4C 11 91 JMP $9111
.C:908c A9 83 LDA #$83
.C:908e 20 17 91 JSR $9117
.C:9091 20 00 A2 JSR $A200
.C:9094 4C 09 90 JMP $9009
.C:9097 AD 98 03 LDA $0398
.C:909a 29 0F AND #$0F
.C:909c D0 03 BNE $90A1
.C:909e 4C 1C 91 JMP $911C
.C:90a1 A9 8C LDA #$8C
.C:90a3 85 1F STA $1F
.C:90a5 A9 06 LDA #$06
.C:90a7 85 20 STA $20
.C:90a9 20 96 08 JSR $0896
.C:90ac 4C 42 90 JMP $9042
.C:90af AD 98 03 LDA $0398
.C:90b2 29 0F AND #$0F
.C:90b4 F0 66 BEQ $911C
.C:90b6 20 73 91 JSR $9173
.C:90b9 AD 98 03 LDA $0398
.C:90bc 4A LSR A
.C:90bd 4A LSR A
.C:90be 4A LSR A
.C:90bf 4A LSR A
.C:90c0 C9 06 CMP #$06
.C:90c2 D0 1D BNE $90E1
.C:90c4 8D E0 90 STA $90E0
.C:90c7 A2 00 LDX #$00
.C:90c9 86 44 STX $44
.C:90cb A9 0F LDA #$0F
.C:90cd 20 F0 08 JSR $08F0
.C:90d0 90 0A BCC $90DC
.C:90d2 E6 44 INC $44
.C:90d4 A6 44 LDX $44
.C:90d6 E0 07 CPX #$07
.C:90d8 90 F1 BCC $90CB
.C:90da B0 03 BCS $90DF
.C:90dc 4C 32 90 JMP $9032
.C:90df A9 06 LDA #$06
.C:90e1 C9 0F CMP #$0F
.C:90e3 D0 23 BNE $9108
.C:90e5 A2 00 LDX #$00
.C:90e7 A5 28 LDA $28
.C:90e9 DD 13 92 CMP $9213,X
.C:90ec D0 13 BNE $9101
.C:90ee A5 29 LDA $29
.C:90f0 DD 17 92 CMP $9217,X
.C:90f3 D0 0C BNE $9101
.C:90f5 A5 A8 LDA $A8
.C:90f7 DD 1B 92 CMP $921B,X
.C:90fa D0 05 BNE $9101
.C:90fc BD 1F 92 LDA $921F,X
.C:90ff D0 10 BNE $9111
.C:9101 E8 INX
.C:9102 E0 04 CPX #$04
.C:9104 90 E1 BCC $90E7
.C:9106 A9 00 LDA #$00
.C:9108 C9 00 CMP #$00
.C:910a D0 02 BNE $910E
.C:910c A9 07 LDA #$07
.C:910e 18 CLC
.C:910f 69 04 ADC #$04
.C:9111 20 17 91 JSR $9117
.C:9114 4C 00 9A JMP $9A00 Execute "Game Credits" file, loaded into $9a00
.C:9117 85 E0 STA $E0 T/S offset byte to load a file to $9a00...
.C:9119 4C A8 08 JMP $08A8 Load "Game Credits" file?
.C:911c A5 37 LDA $37
.C:911e F0 07 BEQ $9127
.C:9120 A9 00 LDA #$00
.C:9122 85 37 STA $37
.C:9124 20 E1 08 JSR $08E1 Clear text window.
.C:9127 20 73 91 JSR $9173
.C:912a A5 28 LDA $28
.C:912c C9 10 CMP #$10 Is party's north co-ordinate 16?
.C:912e 90 03 BCC $9133 Yes? Go $9133
.C:9130 4C 88 94 JMP $9488
.C:9133 A5 29 LDA $29
.C:9135 C9 10 CMP #$10 Is party's east co-ordinate 16?
.C:9137 90 03 BCC $913C Yes? Go $913c
.C:9139 4C 88 94 JMP $9488
.C:913c 4C 16 90 JMP $9016
.C:913f C6 24 DEC $24 Rotate party 90 degrees counter-clockwise
.C:9141 10 04 BPL $9147
.C:9143 A9 03 LDA #$03
.C:9145 85 24 STA $24 Face party east.
.C:9147 20 2C 09 JSR $092C
.C:914a 20 E1 08 JSR $08E1 Clear text window.
.C:914d A0 91 LDY #$91
.C:914f A2 9E LDX #$9E
.C:9151 20 06 08 JSR $0806 "Facing "
.C:9154 A5 24 LDA $24 Get party's facing
.C:9156 0A ASL A Do something or other
.C:9157 AA TAX
.C:9158 BC 97 91 LDY $9197,X
.C:915b BD 96 91 LDA $9196,X
.C:915e AA TAX
.C:915f 20 06 08 JSR $0806 "north", "east", "south", or "west"...
.C:9162 E6 37 INC $37
.C:9164 60 RTS
.C:9165 E6 24 INC $24 Rotate party 90 degrees clockwise
.C:9167 A5 24 LDA $24 Get party's facing
.C:9169 C9 04 CMP #$04 Are they facing west?
.C:916b 90 DA BCC $9147 Yes? Go $9147
.C:916d A9 00 LDA #$00
.C:916f 85 24 STA $24 Face party north
.C:9171 F0 D4 BEQ $9147 Facing north? Go $9147
.C:9173 A5 24 LDA $24 Get party's facing
.C:9175 F0 0B BEQ $9182 Facing north? Go $9182
.C:9177 C9 01 CMP #$01
.C:9179 F0 0D BEQ $9188 Facing east? Go $9188
.C:917b C9 02 CMP #$02
.C:917d F0 06 BEQ $9185 Facing south? Go $9185
.C:917f C6 29 DEC $29 Move party 1 square west
.C:9181 60 RTS
.C:9182 E6 28 INC $28 Move party 1 square north
.C:9184 60 RTS
.C:9185 C6 28 DEC $28 Move party 1 square south
.C:9187 60 RTS
.C:9188 E6 29 INC $29 Move party 1 square east
.C:918a 60 RTS
.C:918b A9 F0 LDA #$F0
.C:918d 85 1F STA $1F
.C:918f A9 02 LDA #$02
.C:9191 85 20 STA $20
.C:9193 4C 96 08 JMP $0896
.C:9196 A6 91 LDX $91
.C:9198 AC 91 B1 LDY $B191
.C:919b 91 B7 STA ($B7),Y
.C:919d 91
.C:919e C6 [F]
.C:919f E1 E3 SBC ($E3,X) [a][c]
.C:91a1 E9 EE SBC #$EE [i][n]
.C:91a3 E7 A0 ISB $A0 [g][_]
.C:91a5 DC EE EF NOOP $EFEE,X [EOT][n][o
.C:91a8 F2 JAM [r]
.C:91a9 F4 E8 NOOP $E8,X [t][h]
.C:91ab DC E5 E1 NOOP $E1E5,X [EOT][e][a]
.C:91ae F3 F4 ISB ($F4),Y [s][t]
.C:91b0 DC F3 EF NOOP $EFF3,X [EOT][s][o]
.C:91b3 F5 F4 SBC $F4,X [u][t]
.C:91b5 E8 INX [h]
.C:91b6 DC F7 E5 NOOP $E5F7,X [EOT][W][e]
.C:91b9 F3 F4 ISB ($F4),Y [s][t]
.C:91bb DC A5 A8 NOOP $A8A5,X [EOT]
.C:91be 0A ASL A
.C:91bf AA TAX
.C:91c0 BD CB 91 LDA $91CB,X
.C:91c3 85 58 STA $58
.C:91c5 BD CC 91 LDA $91CC,X
.C:91c8 85 59 STA $59
.C:91ca 4C 0F 08 JMP $080F
.C:91cd D9 91 E5 CMP $E591,Y
.C:91d0 91 ED STA ($ED),Y
.C:91d2 91 F6 STA ($F6),Y
.C:91d4 91 FE STA ($FE),Y
.C:91d6 91 06 STA ($06),Y
.C:91d8 92 JAM
.C:91d9 D4 E1 NOOP $E1,X [T][a]
.C:91db EE E7 F2 INC $F2E7 [n][g][r]
.C:91de E1 ED SBC ($ED,X) [a][m]
.C:91e0 E1 F9 SBC ($F9,X) [a][y]
.C:91e2 EE E5 DC INC $DCE5 [n][e][EOT]
.C:91e5 C5 F0 CMP $F0 [E][p]
.C:91e7 E8 INX [h]
.C:91e8 E5 F3 SBC $F3 [e][s]
.C:91ea F5 F3 SBC $F3,X [u][s]
.C:91ec DC D0 E8 NOOP $E8D0,X [EOT][P][h]
.C:91ef E9 EC SBC #$EC [i][l]
.C:91f1 E9 F0 SBC #$F0 [i][p]
.C:91f3 F0 E9 BEQ $91DE [p][i]
.C:91f5 DC C3 EF NOOP $EFC3,X [EOT][C][o]
.C:91f8 EC EF F3 CPX $F3EF [l][o][s]
.C:91fb F3 E5 ISB ($E5),Y [s][e]
.C:91fd DC C3 EF NOOP $EFC3,X [EOT][C][o]
.C:9200 F2 JAM [r]
.C:9201 E9 EE SBC #$EE [i][n]
.C:9203 F4 E8 NOOP $E8,X [t][h]
.C:9205 DC D4 E8 NOOP $E8D4,X [EOT][T][h]
.C:9208 E5 F3 SBC $F3 [e][s]
.C:920a F3 E1 ISB ($E1),Y [s][a]
.C:920c EC EF EE CPX $EEEF [l][o][n]
.C:920f E9 E3 SBC #$E3 [i][c]
.C:9211 E1 DC SBC ($DC,X) [a][EOT]
.C:9213 0E 0D 08 ASL $080D
.C:9216 0D 0B 08 ORA $080B
.C:9219 0F 02 06 SLO $0602
.C:921c 05 01 ORA $01
.C:921e 04 13 NOOP $13
.C:9220 5D 5F 73 EOR $735F,X
.C:9223 A5 24 LDA $24
.C:9225 D0 03 BNE $922A
.C:9227 4C 46 93 JMP $9346
.C:922a C9 01 CMP #$01
.C:922c D0 03 BNE $9231
.C:922e 4C EC 92 JMP $92EC
.C:9231 C9 02 CMP #$02
.C:9233 D0 03 BNE $9238
.C:9235 4C 92 92 JMP $9292
.C:9238 A5 29 LDA $29
.C:923a 38 SEC
.C:923b E9 03 SBC #$03
.C:923d 85 94 STA $94
.C:923f A5 28 LDA $28
.C:9241 85 93 STA $93
.C:9243 20 A0 93 JSR $93A0
.C:9246 8D 92 03 STA $0392
.C:9249 E6 94 INC $94
.C:924b C6 93 DEC $93
.C:924d 20 A0 93 JSR $93A0
.C:9250 8D 90 03 STA $0390
.C:9253 E6 93 INC $93
.C:9255 20 A0 93 JSR $93A0
.C:9258 8D 95 03 STA $0395
.C:925b E6 93 INC $93
.C:925d 20 A0 93 JSR $93A0
.C:9260 8D 91 03 STA $0391
.C:9263 E6 94 INC $94
.C:9265 C6 93 DEC $93
.C:9267 C6 93 DEC $93
.C:9269 20 A0 93 JSR $93A0
.C:926c 8D 93 03 STA $0393
.C:926f E6 93 INC $93
.C:9271 20 A0 93 JSR $93A0
.C:9274 8D 98 03 STA $0398
.C:9277 E6 93 INC $93
.C:9279 20 A0 93 JSR $93A0
.C:927c 8D 94 03 STA $0394
.C:927f E6 94 INC $94
.C:9281 20 A0 93 JSR $93A0
.C:9284 8D 97 03 STA $0397
.C:9287 C6 93 DEC $93
.C:9289 C6 93 DEC $93
.C:928b 20 A0 93 JSR $93A0
.C:928e 8D 96 03 STA $0396
.C:9291 60 RTS
.C:9292 A5 28 LDA $28
.C:9294 38 SEC
.C:9295 E9 03 SBC #$03
.C:9297 85 93 STA $93
.C:9299 A5 29 LDA $29
.C:929b 85 94 STA $94
.C:929d 20 A0 93 JSR $93A0
.C:92a0 8D 92 03 STA $0392
.C:92a3 E6 93 INC $93
.C:92a5 C6 94 DEC $94
.C:92a7 20 A0 93 JSR $93A0
.C:92aa 8D 91 03 STA $0391
.C:92ad E6 94 INC $94
.C:92af 20 A0 93 JSR $93A0
.C:92b2 8D 95 03 STA $0395
.C:92b5 E6 94 INC $94
.C:92b7 20 A0 93 JSR $93A0
.C:92ba 8D 90 03 STA $0390
.C:92bd E6 93 INC $93
.C:92bf C6 94 DEC $94
.C:92c1 C6 94 DEC $94
.C:92c3 20 A0 93 JSR $93A0
.C:92c6 8D 94 03 STA $0394
.C:92c9 E6 94 INC $94
.C:92cb 20 A0 93 JSR $93A0
.C:92ce 8D 98 03 STA $0398
.C:92d1 E6 94 INC $94
.C:92d3 20 A0 93 JSR $93A0
.C:92d6 8D 93 03 STA $0393
.C:92d9 E6 93 INC $93
.C:92db 20 A0 93 JSR $93A0
.C:92de 8D 96 03 STA $0396
.C:92e1 C6 94 DEC $94
.C:92e3 C6 94 DEC $94
.C:92e5 20 A0 93 JSR $93A0
.C:92e8 8D 97 03 STA $0397
.C:92eb 60 RTS
.C:92ec A5 29 LDA $29
.C:92ee 18 CLC
.C:92ef 69 03 ADC #$03
.C:92f1 85 94 STA $94
.C:92f3 A5 28 LDA $28
.C:92f5 85 93 STA $93
.C:92f7 20 A0 93 JSR $93A0
.C:92fa 8D 92 03 STA $0392
.C:92fd C6 94 DEC $94
.C:92ff E6 93 INC $93
.C:9301 20 A0 93 JSR $93A0
.C:9304 8D 90 03 STA $0390
.C:9307 C6 93 DEC $93
.C:9309 20 A0 93 JSR $93A0
.C:930c 8D 95 03 STA $0395
.C:930f C6 93 DEC $93
.C:9311 20 A0 93 JSR $93A0
.C:9314 8D 91 03 STA $0391
.C:9317 C6 94 DEC $94
.C:9319 E6 93 INC $93
.C:931b E6 93 INC $93
.C:931d 20 A0 93 JSR $93A0
.C:9320 8D 93 03 STA $0393
.C:9323 C6 93 DEC $93
.C:9325 20 A0 93 JSR $93A0
.C:9328 8D 98 03 STA $0398
.C:932b C6 93 DEC $93
.C:932d 20 A0 93 JSR $93A0
.C:9330 8D 94 03 STA $0394
.C:9333 C6 94 DEC $94
.C:9335 20 A0 93 JSR $93A0
.C:9338 8D 97 03 STA $0397
.C:933b E6 93 INC $93
.C:933d E6 93 INC $93
.C:933f 20 A0 93 JSR $93A0
.C:9342 8D 96 03 STA $0396
.C:9345 60 RTS
.C:9346 A5 28 LDA $28
.C:9348 18 CLC
.C:9349 69 03 ADC #$03
.C:934b 85 93 STA $93
.C:934d A5 29 LDA $29
.C:934f 85 94 STA $94
.C:9351 20 A0 93 JSR $93A0
.C:9354 8D 92 03 STA $0392
.C:9357 C6 93 DEC $93
.C:9359 E6 94 INC $94
.C:935b 20 A0 93 JSR $93A0
.C:935e 8D 91 03 STA $0391
.C:9361 C6 94 DEC $94
.C:9363 20 A0 93 JSR $93A0
.C:9366 8D 95 03 STA $0395
.C:9369 C6 94 DEC $94
.C:936b 20 A0 93 JSR $93A0
.C:936e 8D 90 03 STA $0390
.C:9371 C6 93 DEC $93
.C:9373 E6 94 INC $94
.C:9375 E6 94 INC $94
.C:9377 20 A0 93 JSR $93A0
.C:937a 8D 94 03 STA $0394
.C:937d C6 94 DEC $94
.C:937f 20 A0 93 JSR $93A0
.C:9382 8D 98 03 STA $0398
.C:9385 C6 94 DEC $94
.C:9387 20 A0 93 JSR $93A0
.C:938a 8D 93 03 STA $0393
.C:938d C6 93 DEC $93
.C:938f 20 A0 93 JSR $93A0
.C:9392 8D 96 03 STA $0396
.C:9395 E6 94 INC $94
.C:9397 E6 94 INC $94
.C:9399 20 A0 93 JSR $93A0
.C:939c 8D 97 03 STA $0397
.C:939f 60 RTS
.C:93a0 A5 A8 LDA $A8
.C:93a2 F0 23 BEQ $93C7
.C:93a4 A4 93 LDY $93
.C:93a6 C0 10 CPY #$10
.C:93a8 B0 1A BCS $93C4
.C:93aa A6 94 LDX $94
.C:93ac E0 10 CPX #$10
.C:93ae B0 14 BCS $93C4
.C:93b0 B9 48 94 LDA $9448,Y
.C:93b3 18 CLC
.C:93b4 69 00 ADC #$00
.C:93b6 8D C1 93 STA $93C1
.C:93b9 A9 00 LDA #$00
.C:93bb 69 C4 ADC #$C4
.C:93bd 8D C2 93 STA $93C2
.C:93c0 BD 70 C4 LDA $C470,X
.C:93c3 60 RTS
.C:93c4 A9 00 LDA #$00
.C:93c6 60 RTS
.C:93c7 A5 93 LDA $93
.C:93c9 20 D8 95 JSR $95D8
.C:93cc A8 TAY
.C:93cd A5 94 LDA $94
.C:93cf 20 E8 95 JSR $95E8
.C:93d2 AA TAX
.C:93d3 B9 E8 93 LDA $93E8,Y
.C:93d6 18 CLC
.C:93d7 69 00 ADC #$00
.C:93d9 8D E5 93 STA $93E5
.C:93dc B9 18 94 LDA $9418,Y
.C:93df 69 C6 ADC #$C6
.C:93e1 8D E6 93 STA $93E6
.C:93e4 BD 00 C4 LDA $C400,X
.C:93e7 60 RTS
.C:93e8 E0 C0 CPX #$C0
(C:$93ea) d 93ea
.C:93ea A0 80 LDY #$80
.C:93ec 60 RTS
.C:93ed 40 RTI
.C:93ee 20 00 E0 JSR $E000
.C:93f1 C0 A0 CPY #$A0
.C:93f3 80 60 NOOP #$60
.C:93f5 40 RTI
.C:93f6 20 00 E0 JSR $E000
.C:93f9 C0 A0 CPY #$A0
.C:93fb 80 60 NOOP #$60
.C:93fd 40 RTI
.C:93fe 20 00 E0 JSR $E000
.C:9401 C0 A0 CPY #$A0
.C:9403 80 60 NOOP #$60
.C:9405 40 RTI
.C:9406 20 00 E0 JSR $E000
.C:9409 C0 A0 CPY #$A0
.C:940b 80 60 NOOP #$60
.C:940d 40 RTI
.C:940e 20 00 E0 JSR $E000
.C:9411 C0 A0 CPY #$A0
(C:$9413) d 9413
.C:9413 80 60 NOOP #$60
.C:9415 40 RTI
.C:9416 20 00 05 JSR $0500
.C:9419 05 05 ORA $05
.C:941b 05 05 ORA $05
.C:941d 05 05 ORA $05
.C:941f 05 04 ORA $04
.C:9421 04 04 NOOP $04
.C:9423 04 04 NOOP $04
.C:9425 04 04 NOOP $04
.C:9427 04 03 NOOP $03
.C:9429 03 03 SLO ($03,X)
.C:942b 03 03 SLO ($03,X)
.C:942d 03 03 SLO ($03,X)
.C:942f 03 02 SLO ($02,X)
.C:9431 02 JAM
.C:9432 02 JAM
.C:9433 02 JAM
.C:9434 02 JAM
.C:9435 02 JAM
.C:9436 02 JAM
.C:9437 02 JAM
.C:9438 01 01 ORA ($01,X)
.C:943a 01 01 ORA ($01,X)
.C:943c 01 01 ORA ($01,X)
.C:943e 01 01 ORA ($01,X)
.C:9440 00 BRK
.C:9441 00 BRK
.C:9442 00 BRK
.C:9443 00 BRK
.C:9444 00 BRK
.C:9445 00 BRK
.C:9446 00 BRK
.C:9447 00 BRK
.C:9448 F0 E0 BEQ $942A
.C:944a D0 C0 BNE $940C
.C:944c B0 A0 BCS $93EE
.C:944e 90 80 BCC $93D0
.C:9450 70 60 BVS $94B2
.C:9452 50 40 BVC $9494
.C:9454 30 20 BMI $9476
.C:9456 10 00 BPL $9458
.C:9458 A2 06 LDX #$06
.C:945a A5 28 LDA $28
.C:945c DD A7 94 CMP $94A7,X
.C:945f D0 23 BNE $9484
.C:9461 A5 29 LDA $29
.C:9463 DD AE 94 CMP $94AE,X
.C:9466 D0 1C BNE $9484
.C:9468 86 A8 STX $A8
.C:946a BD B5 94 LDA $94B5,X
.C:946d 85 28 STA $28
.C:946f BD BC 94 LDA $94BC,X
.C:9472 85 29 STA $29
.C:9474 BD A0 94 LDA $94A0,X
.C:9477 20 17 91 JSR $9117
.C:947a A9 15 LDA #$15
.C:947c 20 17 91 JSR $9117
.C:947f 68 PLA
.C:9480 68 PLA
.C:9481 4C 00 90 JMP $9000
.C:9484 CA DEX
.C:9485 D0 D3 BNE $945A
.C:9487 60 RTS
.C:9488 A9 16 LDA #$16
.C:948a 20 17 91 JSR $9117
.C:948d A6 A8 LDX $A8
.C:948f BD C3 94 LDA $94C3,X
.C:9492 85 28 STA $28
.C:9494 BD CA 94 LDA $94CA,X
.C:9497 85 29 STA $29
.C:9499 A9 00 LDA #$00
.C:949b 85 A8 STA $A8
.C:949d 4C 00 90 JMP $9000
.C:94a0 00 BRK
.C:94a1 04 17 NOOP $17
.C:94a3 18 CLC
.C:94a4 19 1A 1B ORA $1B1A,Y
.C:94a7 FF 17 29 ISB $2917,X
.C:94aa 0E 20 05 ASL $0520
.C:94ad 07 FF SLO $FF
.C:94af 03 0F SLO ($0F,X)
.C:94b1 0F 16 04 SLO $0416
.C:94b4 19 FF 08 ORA $08FF,Y
.C:94b7 0F 00 06 SLO $0600
.C:94ba 00 BRK
.C:94bb 08 PHP
.C:94bc FF 00 04 ISB $0400,X
.C:94bf 07 00 SLO $00
.C:94c1 06 0F ASL $0F
.C:94c3 FF 17 2A ISB $2A17,X
.C:94c6 0D 20 04 ORA $0420
.C:94c9 07 FF SLO $FF
.C:94cb 02 JAM
.C:94cc 0F 0F 15 SLO $150F
.C:94cf 04 1A NOOP $1A
.C:94d1 20 93 08 JSR $0893
.C:94d4 A5 28 LDA $28
.C:94d6 85 93 STA $93
.C:94d8 A5 29 LDA $29
.C:94da 85 94 STA $94
.C:94dc 20 A0 93 JSR $93A0
.C:94df C9 00 CMP #$00
.C:94e1 F0 07 BEQ $94EA
.C:94e3 4A LSR A
.C:94e4 4A LSR A
.C:94e5 4A LSR A
.C:94e6 4A LSR A
.C:94e7 4C A7 95 JMP $95A7
.C:94ea 20 90 08 JSR $0890
.C:94ed A5 5A LDA $5A
.C:94ef 29 1F AND #$1F
.C:94f1 D0 09 BNE $94FC
.C:94f3 A9 00 LDA #$00
.C:94f5 85 E1 STA $E1
.C:94f7 A9 FF LDA #$FF
.C:94f9 4C 99 08 JMP $0899
.C:94fc A9 96 LDA #$96
.C:94fe 85 59 STA $59
.C:9500 A9 17 LDA #$17
.C:9502 85 58 STA $58
.C:9504 20 0F 08 JSR $080F
.C:9507 20 2C 09 JSR $092C
.C:950a 20 23 92 JSR $9223
.C:950d 20 58 94 JSR $9458
.C:9510 A9 00 LDA #$00
.C:9512 85 99 STA $99
.C:9514 20 2E 96 JSR $962E
.C:9517 20 8B 91 JSR $918B
.C:951a A2 FF LDX #$FF
.C:951c 9A TXS
.C:951d 20 AB 08 JSR $08AB
.C:9520 90 1D BCC $953F
.C:9522 20 E1 08 JSR $08E1
.C:9525 A9 96 LDA #$96
.C:9527 85 59 STA $59
.C:9529 A9 17 LDA #$17
.C:952b 85 58 STA $58
.C:952d 20 0F 08 JSR $080F
.C:9530 4C 0A 95 JMP $950A
.C:9533 20 3F 91 JSR $913F
.C:9536 4C D4 94 JMP $94D4
.C:9539 20 65 91 JSR $9165
.C:953c 4C D4 94 JMP $94D4
.C:953f C9 CA CMP #$CA
.C:9541 F0 F0 BEQ $9533
.C:9543 C9 88 CMP #$88
.C:9545 F0 EC BEQ $9533
.C:9547 C9 CC CMP #$CC
.C:9549 F0 EE BEQ $9539
.C:954b C9 95 CMP #$95
.C:954d F0 EA BEQ $9539
.C:954f C9 CB CMP #$CB
.C:9551 F0 2D BEQ $9580
.C:9553 C9 8D CMP #$8D
.C:9555 F0 29 BEQ $9580
.C:9557 C9 8A CMP #$8A
.C:9559 F0 0D BEQ $9568
.C:955b C9 C9 CMP #$C9
.C:955d F0 09 BEQ $9568
.C:955f C9 BF CMP #$BF
.C:9561 D0 BA BNE $951D
.C:9563 A9 14 LDA #$14
.C:9565 4C D0 95 JMP $95D0
.C:9568 AD 98 03 LDA $0398
.C:956b 29 0F AND #$0F
.C:956d D0 03 BNE $9572
.C:956f 4C F8 95 JMP $95F8
.C:9572 A9 8C LDA #$8C
.C:9574 85 1F STA $1F
.C:9576 A9 06 LDA #$06
.C:9578 85 20 STA $20
.C:957a 20 96 08 JSR $0896
.C:957d 4C 1D 95 JMP $951D
.C:9580 AD 98 03 LDA $0398
.C:9583 29 0F AND #$0F
.C:9585 F0 71 BEQ $95F8
.C:9587 C9 0C CMP #$0C
.C:9589 F0 04 BEQ $958F
.C:958b C9 01 CMP #$01
.C:958d D0 E3 BNE $9572
.C:958f 20 73 91 JSR $9173
.C:9592 A5 28 LDA $28
.C:9594 20 D8 95 JSR $95D8
.C:9597 85 28 STA $28
.C:9599 A5 29 LDA $29
.C:959b 20 E8 95 JSR $95E8
.C:959e 85 29 STA $29
.C:95a0 AD 98 03 LDA $0398
.C:95a3 4A LSR A
.C:95a4 4A LSR A
.C:95a5 4A LSR A
.C:95a6 4A LSR A
.C:95a7 C9 0F CMP #$0F
.C:95a9 D0 1C BNE $95C7
.C:95ab A2 00 LDX #$00
.C:95ad A5 28 LDA $28
.C:95af DD 22 96 CMP $9622,X
.C:95b2 D0 0C BNE $95C0
.C:95b4 A5 29 LDA $29
.C:95b6 DD 26 96 CMP $9626,X
.C:95b9 D0 05 BNE $95C0
.C:95bb BD 2A 96 LDA $962A,X
.C:95be D0 10 BNE $95D0
.C:95c0 E8 INX
.C:95c1 E0 04 CPX #$04
.C:95c3 90 E8 BCC $95AD
.C:95c5 A9 00 LDA #$00
.C:95c7 C9 00 CMP #$00
.C:95c9 D0 02 BNE $95CD
.C:95cb A9 07 LDA #$07
.C:95cd 18 CLC
.C:95ce 69 04 ADC #$04
.C:95d0 85 E0 STA $E0
.C:95d2 20 A8 08 JSR $08A8
.C:95d5 4C 00 9A JMP $9A00
.C:95d8 C9 30 CMP #$30
.C:95da 90 0B BCC $95E7
.C:95dc C9 F0 CMP #$F0
.C:95de B0 04 BCS $95E4
.C:95e0 38 SEC
.C:95e1 E9 30 SBC #$30
.C:95e3 60 RTS
.C:95e4 18 CLC
.C:95e5 69 30 ADC #$30
.C:95e7 60 RTS
.C:95e8 C9 20 CMP #$20
.C:95ea 90 0B BCC $95F7
.C:95ec C9 F0 CMP #$F0
.C:95ee B0 04 BCS $95F4
.C:95f0 38 SEC
.C:95f1 E9 20 SBC #$20
.C:95f3 60 RTS
.C:95f4 18 CLC
.C:95f5 69 20 ADC #$20
.C:95f7 60 RTS
.C:95f8 A5 37 LDA $37
.C:95fa F0 07 BEQ $9603
.C:95fc A9 00 LDA #$00
.C:95fe 85 37 STA $37
.C:9600 20 E1 08 JSR $08E1
.C:9603 20 73 91 JSR $9173
.C:9606 A5 28 LDA $28
.C:9608 20 D8 95 JSR $95D8
.C:960b 85 28 STA $28
.C:960d A5 29 LDA $29
.C:960f 20 E8 95 JSR $95E8
.C:9612 85 29 STA $29
.C:9614 4C D4 94 JMP $94D4
.C:9617 D7 E9 DCP $E9,X
.C:9619 EC E4 E5 CPX $E5E4
.C:961c F2 JAM
.C:961d EE E5 F3 INC $F3E5
.C:9620 F3 DC ISB ($DC),Y
.C:9622 13 1F SLO ($1F),Y
.C:9624 02 JAM
.C:9625 FF 19 08 ISB $0819,X
.C:9628 09 FF ORA #$FF
.C:962a 5C 5E 74 NOOP $745E,X
.C:962d 00 BRK
.C:962e AD 98 03 LDA $0398
.C:9631 29 0F AND #$0F
.C:9633 F0 2D BEQ $9662
.C:9635 A8 TAY
.C:9636 A5 A8 LDA $A8
.C:9638 F0 14 BEQ $964E
.C:963a A5 EB LDA $EB
.C:963c D0 08 BNE $9646
.C:963e BE CE 96 LDX $96CE,Y
.C:9641 E6 C1 INC $C1
.C:9643 4C 1B 08 JMP $081B
.C:9646 BE DE 96 LDX $96DE,Y
.C:9649 E6 C1 INC $C1
.C:964b 4C 1B 08 JMP $081B
.C:964e A5 EB LDA $EB
.C:9650 D0 08 BNE $965A
.C:9652 BE EE 96 LDX $96EE,Y
.C:9655 E6 C1 INC $C1
.C:9657 4C 1B 08 JMP $081B
(C:$965a) d 965a
.C:965a BE FE 96 LDX $96FE,Y
.C:965d E6 C1 INC $C1
.C:965f 4C 1B 08 JMP $081B
.C:9662 A9 00 LDA #$00
.C:9664 85 31 STA $31
.C:9666 20 B9 98 JSR $98B9
.C:9669 A4 31 LDY $31
.C:966b B9 90 03 LDA $0390,Y
.C:966e 29 0F AND #$0F
.C:9670 F0 08 BEQ $967A
.C:9672 AA TAX
.C:9673 CA DEX
.C:9674 20 91 96 JSR $9691
.C:9677 20 4F 97 JSR $974F
.C:967a E6 31 INC $31
.C:967c A5 31 LDA $31
.C:967e C9 08 CMP #$08
.C:9680 90 E7 BCC $9669
.C:9682 A9 FF LDA #$FF
(C:$9684) d 9684
.C:9684 85 2D STA $2D
.C:9686 A6 A8 LDX $A8
.C:9688 BD 0E 97 LDA $970E,X
.C:968b 20 72 08 JSR $0872
.C:968e 4C FF 98 JMP $98FF
.C:9691 BD 16 97 LDA $9716,X
.C:9694 A6 31 LDX $31
.C:9696 18 CLC
.C:9697 7D 25 97 ADC $9725,X
.C:969a AA TAX
.C:969b BD 00 E0 LDA $E000,X
.C:969e 85 33 STA $33
.C:96a0 BD 01 E0 LDA $E001,X
.C:96a3 85 34 STA $34
.C:96a5 A0 00 LDY #$00
.C:96a7 B1 33 LDA ($33),Y
.C:96a9 85 32 STA $32
.C:96ab C8 INY
.C:96ac B1 33 LDA ($33),Y
.C:96ae 85 52 STA $52
.C:96b0 C8 INY
.C:96b1 B1 33 LDA ($33),Y
.C:96b3 85 54 STA $54
.C:96b5 C8 INY
.C:96b6 B1 33 LDA ($33),Y
.C:96b8 AA TAX
.C:96b9 A4 31 LDY $31
.C:96bb B9 47 97 LDA $9747,Y
.C:96be 85 35 STA $35
.C:96c0 F0 06 BEQ $96C8
.C:96c2 BD 3A 97 LDA $973A,X
.C:96c5 4C CB 96 JMP $96CB
.C:96c8 BD 2D 97 LDA $972D,X
.C:96cb 85 55 STA $55
.C:96cd 60 RTS
.C:96ce 00 BRK
.C:96cf 00 BRK
.C:96d0 01 02 ORA ($02,X)
.C:96d2 03 0A SLO ($0A,X)
.C:96d4 0B 08 ANC #$08
.C:96d6 09 2C ORA #$2C
.C:96d8 31 32 AND ($32),Y
.C:96da 33 1C RLA ($1C),Y
.C:96dc 00 BRK
.C:96dd 00 BRK
.C:96de 00 BRK
.C:96df 04 05 NOOP $05
.C:96e1 06 07 ASL $07
.C:96e3 0E 0F 0C ASL $0C0F
.C:96e6 0D 1D 47 ORA $471D
.C:96e9 1A NOOP
.C:96ea 46 1C LSR $1C
.C:96ec 00 BRK
.C:96ed 00 BRK
.C:96ee 00 BRK
.C:96ef 01 40 ORA ($40,X)
.C:96f1 41 42 EOR ($42,X)
.C:96f3 0A ASL A
.C:96f4 0B 08 ANC #$08
.C:96f6 09 2C ORA #$2C
.C:96f8 31 32 AND ($32),Y
.C:96fa 33 1C RLA ($1C),Y
.C:96fc 00 BRK
.C:96fd 00 BRK
.C:96fe 00 BRK
.C:96ff 05 43 ORA $43
.C:9701 44 45 NOOP $45
.C:9703 0E 0F 0C ASL $0C0F
.C:9706 0D 1D 47 ORA $471D
.C:9709 1A NOOP
.C:970a 46 1C LSR $1C
.C:970c 00 BRK
.C:970d 00 BRK
.C:970e 56 26 LSR $26,X
.C:9710 26 26 ROL $26
.C:9712 26 26 ROL $26
.C:9714 26 26 ROL $26
.C:9716 00 BRK
.C:9717 0A ASL A
.C:9718 14 1E NOOP $1E,X
.C:971a 1E 0A 0A ASL $0A0A,X
.C:971d 00 BRK
.C:971e 1E 0A 14 ASL $140A,X
.C:9721 00 BRK
.C:9722 00 BRK
.C:9723 00 BRK
.C:9724 00 BRK
.C:9725 04 04 NOOP $04
.C:9727 06 02 ASL $02
.C:9729 02 JAM
.C:972a 08 PHP
.C:972b 00 BRK
.C:972c 00 BRK
.C:972d 00 BRK
.C:972e 00 BRK
.C:972f 10 18 BPL $9749
.C:9731 20 28 30 JSR $3028
.C:9734 38 SEC
.C:9735 40 RTI
.C:9736 48 PHA
.C:9737 50 58 BVC $9791
.C:9739 60 RTS
.C:973a 00 BRK
.C:973b 00 BRK
.C:973c 60 RTS
.C:973d 58 CLI
.C:973e 50 48 BVC $9788
.C:9740 40 RTI
.C:9741 38 SEC
.C:9742 30 28 BMI $976C
.C:9744 20 18 10 JSR $1018
.C:9747 00 BRK
.C:9748 01 00 ORA ($00,X)
.C:974a 00 BRK
.C:974b 01 00 ORA ($00,X)
.C:974d 00 BRK
.C:974e 01 A5 ORA ($A5,X)
.C:9750 33 18 RLA ($18),Y
.C:9752 69 04 ADC #$04
.C:9754 8D 76 97 STA $9776
.C:9757 A5 34 LDA $34
.C:9759 69 00 ADC #$00
.C:975b 8D 77 97 STA $9777
.C:975e A5 52 LDA $52
.C:9760 85 36 STA $36
.C:9762 A6 54 LDX $54
.C:9764 BD C3 97 LDA $97C3,X
.C:9767 18 CLC
.C:9768 65 55 ADC $55
.C:976a 85 50 STA $50
.C:976c BD 3B 98 LDA $983B,X
.C:976f 69 BC ADC #$BC
.C:9771 85 51 STA $51
.C:9773 A0 00 LDY #$00
.C:9775 AD 00 20 LDA $2000
.C:9778 A6 35 LDX $35
.C:977a F0 04 BEQ $9780
(C:$977c) d 977c
.C:977c AA TAX
.C:977d BD 00 F7 LDA $F700,X
.C:9780 8D 8C 97 STA $978C
.C:9783 AA TAX
.C:9784 BD 00 F6 LDA $F600,X
.C:9787 49 FF EOR #$FF
.C:9789 31 50 AND ($50),Y
.C:978b 09 00 ORA #$00
.C:978d 91 50 STA ($50),Y
.C:978f E6 50 INC $50
.C:9791 EE 76 97 INC $9776
.C:9794 D0 03 BNE $9799
.C:9796 EE 77 97 INC $9777
.C:9799 C6 36 DEC $36
.C:979b F0 13 BEQ $97B0
.C:979d A5 50 LDA $50
.C:979f 29 07 AND #$07
.C:97a1 D0 D2 BNE $9775
.C:97a3 A5 50 LDA $50
(C:$97a5) d 97a5
.C:97a5 18 CLC
.C:97a6 69 78 ADC #$78
.C:97a8 85 50 STA $50
.C:97aa 90 C9 BCC $9775
.C:97ac E6 51 INC $51
.C:97ae D0 C5 BNE $9775
.C:97b0 A5 35 LDA $35
.C:97b2 D0 09 BNE $97BD
.C:97b4 A5 55 LDA $55
.C:97b6 18 CLC
.C:97b7 69 08 ADC #$08
.C:97b9 85 55 STA $55
.C:97bb D0 07 BNE $97C4
.C:97bd A5 55 LDA $55
.C:97bf 38 SEC
.C:97c0 E9 08 SBC #$08
.C:97c2 85 55 STA $55
.C:97c4 C6 32 DEC $32
.C:97c6 D0 96 BNE $975E
.C:97c8 60 RTS
.C:97c9 00 BRK
.C:97ca 01 02 ORA ($02,X)
.C:97cc 03 04 SLO ($04,X)
.C:97ce 05 06 ORA $06
.C:97d0 07 80 SLO $80
.C:97d2 81 82 STA ($82,X)
.C:97d4 83 84 SAX ($84,X)
.C:97d6 85 86 STA $86
.C:97d8 87 00 SAX $00
.C:97da 01 02 ORA ($02,X)
.C:97dc 03 04 SLO ($04,X)
.C:97de 05 06 ORA $06
.C:97e0 07 80 SLO $80
.C:97e2 81 82 STA ($82,X)
.C:97e4 83 84 SAX ($84,X)
.C:97e6 85 86 STA $86
.C:97e8 87 00 SAX $00
.C:97ea 01 02 ORA ($02,X)
.C:97ec 03 04 SLO ($04,X)
.C:97ee 05 06 ORA $06
.C:97f0 07 80 SLO $80
.C:97f2 81 82 STA ($82,X)
.C:97f4 83 84 SAX ($84,X)
.C:97f6 85 86 STA $86
(C:$97f8) d 97f8
.C:97f8 87 00 SAX $00
.C:97fa 01 02 ORA ($02,X)
.C:97fc 03 04 SLO ($04,X)
.C:97fe 05 06 ORA $06
.C:9800 07 80 SLO $80
.C:9802 81 82 STA ($82,X)
.C:9804 83 84 SAX ($84,X)
.C:9806 85 86 STA $86
.C:9808 87 00 SAX $00
.C:980a 01 02 ORA ($02,X)
.C:980c 03 04 SLO ($04,X)
.C:980e 05 06 ORA $06
.C:9810 07 80 SLO $80
.C:9812 81 82 STA ($82,X)
.C:9814 83 84 SAX ($84,X)
.C:9816 85 86 STA $86
.C:9818 87 00 SAX $00
.C:981a 01 02 ORA ($02,X)
.C:981c 03 04 SLO ($04,X)
.C:981e 05 06 ORA $06
.C:9820 07 80 SLO $80
(C:$9822) d 9822
.C:9822 81 82 STA ($82,X)
.C:9824 83 84 SAX ($84,X)
.C:9826 85 86 STA $86
.C:9828 87 00 SAX $00
.C:982a 01 02 ORA ($02,X)
.C:982c 03 04 SLO ($04,X)
.C:982e 05 06 ORA $06
.C:9830 07 80 SLO $80
.C:9832 81 82 STA ($82,X)
.C:9834 83 84 SAX ($84,X)
.C:9836 85 86 STA $86
.C:9838 87 00 SAX $00
.C:983a 01 02 ORA ($02,X)
.C:983c 03 04 SLO ($04,X)
.C:983e 05 06 ORA $06
.C:9840 07 00 SLO $00
.C:9842 00 BRK
.C:9843 00 BRK
.C:9844 00 BRK
.C:9845 00 BRK
.C:9846 00 BRK
.C:9847 00 BRK
.C:9848 00 BRK
.C:9849 00 BRK
.C:984a 00 BRK
.C:984b 00 BRK
.C:984c 00 BRK
.C:984d 00 BRK
.C:984e 00 BRK
.C:984f 00 BRK
.C:9850 00 BRK
.C:9851 01 01 ORA ($01,X)
.C:9853 01 01 ORA ($01,X)
.C:9855 01 01 ORA ($01,X)
.C:9857 01 01 ORA ($01,X)
.C:9859 01 01 ORA ($01,X)
.C:985b 01 01 ORA ($01,X)
.C:985d 01 01 ORA ($01,X)
.C:985f 01 01 ORA ($01,X)
.C:9861 02 JAM
.C:9862 02 JAM
.C:9863 02 JAM
.C:9864 02 JAM
.C:9865 02 JAM
.C:9866 02 JAM
.C:9867 02 JAM
.C:9868 02 JAM
.C:9869 02 JAM
.C:986a 02 JAM
.C:986b 02 JAM
.C:986c 02 JAM
.C:986d 02 JAM
.C:986e 02 JAM
.C:986f 02 JAM
.C:9870 02 JAM
.C:9871 03 03 SLO ($03,X)
.C:9873 03 03 SLO ($03,X)
.C:9875 03 03 SLO ($03,X)
.C:9877 03 03 SLO ($03,X)
.C:9879 03 03 SLO ($03,X)
.C:987b 03 03 SLO ($03,X)
.C:987d 03 03 SLO ($03,X)
.C:987f 03 03 SLO ($03,X)
.C:9881 04 04 NOOP $04
.C:9883 04 04 NOOP $04
.C:9885 04 04 NOOP $04
.C:9887 04 04 NOOP $04
.C:9889 04 04 NOOP $04
.C:988b 04 04 NOOP $04
.C:988d 04 04 NOOP $04
.C:988f 04 04 NOOP $04
.C:9891 05 05 ORA $05
.C:9893 05 05 ORA $05
.C:9895 05 05 ORA $05
.C:9897 05 05 ORA $05
.C:9899 05 05 ORA $05
.C:989b 05 05 ORA $05
.C:989d 05 05 ORA $05
.C:989f 05 05 ORA $05
.C:98a1 06 06 ASL $06
.C:98a3 06 06 ASL $06
.C:98a5 06 06 ASL $06
.C:98a7 06 06 ASL $06
.C:98a9 06 06 ASL $06
.C:98ab 06 06 ASL $06
.C:98ad 06 06 ASL $06
.C:98af 06 06 ASL $06
.C:98b1 07 07 SLO $07
.C:98b3 07 07 SLO $07
.C:98b5 07 07 SLO $07
.C:98b7 07 07 SLO $07
.C:98b9 A2 00 LDX #$00
.C:98bb 86 2F STX $2F
.C:98bd A9 0B LDA #$0B
.C:98bf 85 52 STA $52
.C:98c1 A5 EB LDA $EB
.C:98c3 F0 07 BEQ $98CC
.C:98c5 A9 00 LDA #$00
.C:98c7 8D E3 98 STA $98E3
.C:98ca F0 05 BEQ $98D1
.C:98cc A9 AA LDA #$AA
.C:98ce 8D E3 98 STA $98E3
.C:98d1 BD C9 97 LDA $97C9,X
.C:98d4 8D E5 98 STA $98E5
.C:98d7 BD 41 98 LDA $9841,X
.C:98da 18 CLC
.C:98db 69 BC ADC #$BC
.C:98dd 8D E6 98 STA $98E6
.C:98e0 A0 00 LDY #$00
.C:98e2 A9 00 LDA #$00
.C:98e4 99 00 80 STA $8000,Y
.C:98e7 C8 INY
.C:98e8 10 F8 BPL $98E2
.C:98ea 8A TXA
.C:98eb 18 CLC
.C:98ec 69 08 ADC #$08
.C:98ee AA TAX
.C:98ef E0 68 CPX #$68
.C:98f1 F0 0B BEQ $98FE
.C:98f3 E0 30 CPX #$30
.C:98f5 D0 DA BNE $98D1
.C:98f7 A9 55 LDA #$55
.C:98f9 8D E3 98 STA $98E3
.C:98fc D0 D3 BNE $98D1
.C:98fe 60 RTS
.C:98ff A9 BC LDA #$BC
.C:9901 8D 19 99 STA $9919
.C:9904 A9 90 LDA #$90
.C:9906 8D 18 99 STA $9918
.C:9909 A9 21 LDA #$21
.C:990b 8D 1C 99 STA $991C
.C:990e A9 50 LDA #$50
.C:9910 8D 1B 99 STA $991B
.C:9913 A2 0B LDX #$0B
.C:9915 A0 00 LDY #$00
.C:9917 B9 10 BC LDA $BC10,Y
.C:991a 99 50 21 STA $2150,Y
.C:991d C8 INY
.C:991e C0 58 CPY #$58
.C:9920 90 F5 BCC $9917
.C:9922 AD 18 99 LDA $9918
.C:9925 18 CLC
.C:9926 69 80 ADC #$80
.C:9928 8D 18 99 STA $9918
.C:992b 90 03 BCC $9930
.C:992d EE 19 99 INC $9919
.C:9930 AD 1B 99 LDA $991B
.C:9933 18 CLC
.C:9934 69 40 ADC #$40
.C:9936 8D 1B 99 STA $991B
.C:9939 AD 1C 99 LDA $991C
.C:993c 69 01 ADC #$01
.C:993e 8D 1C 99 STA $991C
.C:9941 CA DEX
.C:9942 D0 D1 BNE $9915
.C:9944 60 RTS