;Disassembly of mm5pageF.rom
;Generated by NESDasm7

 .mem    8
 .index  8
 .list
 .dasm

 .org    $008000
 .base   $C000

Temp0 = $0
Temp1 = $1
Temp2 = $2
Temp3 = $3
Temp4 = $4
Temp5 = $5
Temp6 = $6
Temp7 = $7
Temp8 = $8
Temp9 = $9
TempA = $A
TempB = $B
TempC = $C
TempD = $D
TempE = $E
TempF = $F
ILC_Low = $10
ILC_High = $11
r12 = $12
r13 = $13
r14 = $14
r15 = $15
Joy_ButtonBits = $16
r17 = $17
PalWrite_CtrlReg = $18
r19 = $19
r1A = $1A
r1B = $1B
r1C = $1C
r1D = $1D
r1E = $1E
r1F = $1F
r20 = $20
r21 = $21
r22 = $22
r23 = $23
Next_Screen_Pos = $24
Tile_ScrollX = $25
Level = $26
r27 = $27
r28 = $28
Scroll_DirType = $29
Scroll_ScrUnk = $2A
Scroll_ScrPassed = $2B
NTMirroring = $2C
r2D = $2D
r2E = $2E
r2F = $2F
MM_MoveType = $30
MM_Direction = $31
r32 = $32
r33 = $33
r34 = $34
r35 = $35
r36 = $36
r37 = $37
r38 = $38
r39 = $39
r3A = $3A
r3B = $3B
MM_PosXC = $3C
MM_ScrPos = $3D
MM_PosYC = $3E
r3F = $3F
r40 = $40
r41 = $41
r42 = $42
r43 = $43
ScrollXUnk = $44
ScrollYUnk = $45
r46 = $46
r47 = $47
r48 = $48
r49 = $49
r4A = $4A
r4B = $4B
r4C = $4C
r4D = $4D
r4E = $4E
r4F = $4F
Weapon = $50
r51 = $51
r52 = $52
r53 = $53
r54 = $54
r55 = $55
r56 = $56
EffectCount1 = $57
r58 = $58
r59 = $59
r5A = $5A
r5B = $5B
r5C = $5C
r5D = $5D
r5E = $5E
r5F = $5F
r60 = $60
r61 = $61
r62 = $62
r63 = $63
r64 = $64
r65 = $65
r66 = $66
r67 = $67
AltCHRSet = $68
r69 = $69
r6A = $6A
r6B = $6B
LevelC = $6C
r6D = $6D
r6E = $6E
r6F = $6F
r70 = $70
r71 = $71
r72 = $72
r73 = $73
r74 = $74
r75 = $75
r76 = $76
r77 = $77
r78 = $78
r79 = $79
r7A = $7A
r7B = $7B
r7C = $7C
r7D = $7D
r7E = $7E
r7F = $7F
r80 = $80
r81 = $81
r82 = $82
r83 = $83
r84 = $84
r85 = $85
r86 = $86
r87 = $87
r88 = $88
r89 = $89
r8A = $8A
r8B = $8B
r8C = $8C
r8D = $8D
r8E = $8E
r8F = $8F
r90 = $90
r91 = $91
Frame_Counter1 = $92
r93 = $93
r94 = $94
r95 = $95
r96 = $96
r97 = $97
r98 = $98
r99 = $99
r9A = $9A
r9B = $9B
r9C = $9C
r9D = $9D
r9E = $9E
r9F = $9F
rA0 = $A0
MM_Gravity = $A1
ScrollXC = $A2
rA3 = $A3
ScrollYC = $A4
rA5 = $A5
rA6 = $A6
rA7 = $A7
rA8 = $A8
rA9 = $A9
rAA = $AA
PalAnim_PalHndCounter = $AB
MM_Direction2 = $AC
Obj_Next = $AD
Obj_Prev = $AE
rAF = $AF
MM_HP = $B0
rB1 = $B1
rB2 = $B2
rB3 = $B3
rB4 = $B4
rB5 = $B5
rB6 = $B6
rB7 = $B7
rB8 = $B8
rB9 = $B9
rBA = $BA
rBB = $BB
rBC = $BC
rBD = $BD
rBE = $BE
rBF = $BF
rC0 = $C0
rC1 = $C1
rC2 = $C2
rC3 = $C3
rC4 = $C4
rC5 = $C5
rC6 = $C6
rC7 = $C7
rC8 = $C8
rC9 = $C9
rCA = $CA
rCB = $CB
rCC = $CC
rCD = $CD
rCE = $CE
rCF = $CF
rD0 = $D0
rD1 = $D1
rD2 = $D2
rD3 = $D3
rD4 = $D4
rD5 = $D5
rD6 = $D6
rD7 = $D7
rD8 = $D8
rD9 = $D9
rDA = $DA
rDB = $DB
rDC = $DC
rDD = $DD
rDE = $DE
rDF = $DF
rE0 = $E0
rE1 = $E1
rE2 = $E2
rE3 = $E3
RandDig = $E4
rE8 = $E8
rE9 = $E9
Mapping_BGCHR0 = $EA
Mapping_BGCHR1 = $EB
Mapping_SPRCHR0 = $EC
Mapping_SPRCHR1 = $ED
Mapping_SPRCHR2 = $EE
Mapping_SPRCHR3 = $EF
rF0 = $F0
rF1 = $F1
Write8000 = $F2
rF3 = $F3
rF4 = $F4
rF5 = $F5
rF6 = $F6
rF7 = $F7
rF8 = $F8
ScrPos = $F9
ScrollX = $FA
rFB = $FB
ScrollY = $FC
rFD = $FD
Write2001 = $FE
rFF = $FF
Stack = $100
SprDMA = $200
r300 = $300
r301 = $301
r302 = $302
r303 = $303
r304 = $304
r305 = $305
r306 = $306
r307 = $307
r308 = $308
r309 = $309
r30A = $30A
r30B = $30B
r30C = $30C
r30D = $30D
r30E = $30E
r30F = $30F
r310 = $310
r311 = $311
r312 = $312
r313 = $313
r314 = $314
r315 = $315
r316 = $316
r317 = $317
r318 = $318
r319 = $319
r31A = $31A
r31B = $31B
r31C = $31C
r31D = $31D
r31E = $31E
r31F = $31F
r320 = $320
r321 = $321
r322 = $322
r323 = $323
r324 = $324
r325 = $325
r326 = $326
r327 = $327
r328 = $328
r329 = $329
r32A = $32A
r32B = $32B
r32C = $32C
r32D = $32D
r32E = $32E
r32F = $32F
r330 = $330
r331 = $331
r332 = $332
r333 = $333
r334 = $334
r335 = $335
r336 = $336
r337 = $337
r338 = $338
r339 = $339
r33A = $33A
r33B = $33B
r33C = $33C
r33D = $33D
r33E = $33E
r33F = $33F
r340 = $340
r341 = $341
r342 = $342
r343 = $343
r344 = $344
r345 = $345
r346 = $346
r347 = $347
r348 = $348
r349 = $349
r34A = $34A
r34B = $34B
r34C = $34C
r34D = $34D
r34E = $34E
r34F = $34F
r350 = $350
r351 = $351
r352 = $352
r353 = $353
r354 = $354
r355 = $355
r356 = $356
r357 = $357
r358 = $358
r359 = $359
r35A = $35A
r35B = $35B
r35C = $35C
r35D = $35D
r35E = $35E
r35F = $35F
r360 = $360
r361 = $361
r362 = $362
r363 = $363
r364 = $364
r365 = $365
r366 = $366
r367 = $367
r368 = $368
r369 = $369
r36A = $36A
r36B = $36B
r36C = $36C
r36D = $36D
r36E = $36E
r36F = $36F
r370 = $370
r371 = $371
r372 = $372
r373 = $373
r374 = $374
r375 = $375
r376 = $376
r377 = $377
r378 = $378
r379 = $379
r37A = $37A
r37B = $37B
r37C = $37C
r37D = $37D
r37E = $37E
r37F = $37F
r380 = $380
r381 = $381
r382 = $382
r383 = $383
r384 = $384
r385 = $385
r386 = $386
r387 = $387
r388 = $388
r389 = $389
r38A = $38A
r38B = $38B
r38C = $38C
r38D = $38D
r38E = $38E
r38F = $38F
r390 = $390
r391 = $391
r392 = $392
r393 = $393
r394 = $394
r395 = $395
r396 = $396
r397 = $397
r398 = $398
r399 = $399
r39A = $39A
r39B = $39B
r39C = $39C
r39D = $39D
r39E = $39E
r39F = $39F
r3A0 = $3A0
r3A1 = $3A1
r3A2 = $3A2
r3A3 = $3A3
r3A4 = $3A4
r3A5 = $3A5
r3A6 = $3A6
r3A7 = $3A7
r3A8 = $3A8
r3A9 = $3A9
r3AA = $3AA
r3AB = $3AB
r3AC = $3AC
r3AD = $3AD
r3AE = $3AE
r3AF = $3AF
r3B0 = $3B0
r3B1 = $3B1
r3B2 = $3B2
r3B3 = $3B3
r3B4 = $3B4
r3B5 = $3B5
r3B6 = $3B6
r3B7 = $3B7
r3B8 = $3B8
r3B9 = $3B9
r3BA = $3BA
r3BB = $3BB
r3BC = $3BC
r3BD = $3BD
r3BE = $3BE
r3BF = $3BF
r3C0 = $3C0
r3C1 = $3C1
r3C2 = $3C2
r3C3 = $3C3
r3C4 = $3C4
r3C5 = $3C5
r3C6 = $3C6
r3C7 = $3C7
r3C8 = $3C8
r3C9 = $3C9
r3CA = $3CA
r3CB = $3CB
r3CC = $3CC
r3CD = $3CD
r3CE = $3CE
r3CF = $3CF
r3D0 = $3D0
r3D1 = $3D1
r3D2 = $3D2
r3D3 = $3D3
r3D4 = $3D4
r3D5 = $3D5
r3D6 = $3D6
r3D7 = $3D7
r3D8 = $3D8
r3D9 = $3D9
r3DA = $3DA
r3DB = $3DB
r3DC = $3DC
r3DD = $3DD
r3DE = $3DE
r3DF = $3DF
r3E0 = $3E0
r3E1 = $3E1
r3E2 = $3E2
r3E3 = $3E3
r3E4 = $3E4
r3E5 = $3E5
r3E6 = $3E6
r3E7 = $3E7
r3E8 = $3E8
r3E9 = $3E9
r3EA = $3EA
r3EB = $3EB
r3EC = $3EC
r3ED = $3ED
r3EE = $3EE
r3EF = $3EF
r3F0 = $3F0
r3F1 = $3F1
r3F2 = $3F2
r3F3 = $3F3
r3F4 = $3F4
r3F5 = $3F5
r3F6 = $3F6
r3F7 = $3F7
r3F8 = $3F8
r3F9 = $3F9
r3FA = $3FA
r3FB = $3FB
r3FC = $3FC
r3FD = $3FD
r3FE = $3FE
r3FF = $3FF
r400 = $400
r401 = $401
r402 = $402
r403 = $403
r404 = $404
r405 = $405
r406 = $406
r407 = $407
r408 = $408
r409 = $409
r40A = $40A
r40B = $40B
r40C = $40C
r40D = $40D
r40E = $40E
r40F = $40F
r410 = $410
r411 = $411
r412 = $412
r413 = $413
r414 = $414
r415 = $415
r416 = $416
r417 = $417
r418 = $418
r419 = $419
r41A = $41A
r41B = $41B
r41C = $41C
r41D = $41D
r41E = $41E
r41F = $41F
r420 = $420
r421 = $421
r422 = $422
r423 = $423
r424 = $424
r425 = $425
r426 = $426
r427 = $427
r428 = $428
r429 = $429
r42A = $42A
r42B = $42B
r42C = $42C
r42D = $42D
r42E = $42E
r42F = $42F
r430 = $430
r431 = $431
r432 = $432
r433 = $433
r434 = $434
r435 = $435
r436 = $436
r437 = $437
r438 = $438
r439 = $439
r43A = $43A
r43B = $43B
r43C = $43C
r43D = $43D
r43E = $43E
r43F = $43F
r440 = $440
r441 = $441
r442 = $442
r443 = $443
r444 = $444
r445 = $445
r446 = $446
r447 = $447
r448 = $448
r449 = $449
r44A = $44A
r44B = $44B
r44C = $44C
r44D = $44D
r44E = $44E
r44F = $44F
r450 = $450
r451 = $451
r452 = $452
r453 = $453
r454 = $454
r455 = $455
r456 = $456
r457 = $457
r458 = $458
r459 = $459
r45A = $45A
r45B = $45B
r45C = $45C
r45D = $45D
r45E = $45E
r45F = $45F
r460 = $460
r461 = $461
r462 = $462
r463 = $463
r464 = $464
r465 = $465
r466 = $466
r467 = $467
r468 = $468
r469 = $469
r46A = $46A
r46B = $46B
r46C = $46C
r46D = $46D
r46E = $46E
r46F = $46F
r470 = $470
r471 = $471
r472 = $472
r473 = $473
r474 = $474
r475 = $475
r476 = $476
r477 = $477
r478 = $478
r479 = $479
r47A = $47A
r47B = $47B
r47C = $47C
r47D = $47D
r47E = $47E
r47F = $47F
r480 = $480
r481 = $481
r482 = $482
r483 = $483
r484 = $484
r485 = $485
r486 = $486
r487 = $487
r488 = $488
r489 = $489
r48A = $48A
r48B = $48B
r48C = $48C
r48D = $48D
r48E = $48E
r48F = $48F
r490 = $490
r491 = $491
r492 = $492
r493 = $493
r494 = $494
r495 = $495
r496 = $496
r497 = $497
r498 = $498
r499 = $499
r49A = $49A
r49B = $49B
r49C = $49C
r49D = $49D
r49E = $49E
r49F = $49F
r4A0 = $4A0
r4A1 = $4A1
r4A2 = $4A2
r4A3 = $4A3
r4A4 = $4A4
r4A5 = $4A5
r4A6 = $4A6
r4A7 = $4A7
r4A8 = $4A8
r4A9 = $4A9
r4AA = $4AA
r4AB = $4AB
r4AC = $4AC
r4AD = $4AD
r4AE = $4AE
r4AF = $4AF
r4B0 = $4B0
r4B1 = $4B1
r4B2 = $4B2
r4B3 = $4B3
r4B4 = $4B4
r4B5 = $4B5
r4B6 = $4B6
r4B7 = $4B7
r4B8 = $4B8
r4B9 = $4B9
r4BA = $4BA
r4BB = $4BB
r4BC = $4BC
r4BD = $4BD
r4BE = $4BE
r4BF = $4BF
r4C0 = $4C0
r4C1 = $4C1
r4C2 = $4C2
r4C3 = $4C3
r4C4 = $4C4
r4C5 = $4C5
r4C6 = $4C6
r4C7 = $4C7
r4C8 = $4C8
r4C9 = $4C9
r4CA = $4CA
r4CB = $4CB
r4CC = $4CC
r4CD = $4CD
r4CE = $4CE
r4CF = $4CF
r4D0 = $4D0
r4D1 = $4D1
r4D2 = $4D2
r4D3 = $4D3
r4D4 = $4D4
r4D5 = $4D5
r4D6 = $4D6
r4D7 = $4D7
r4D8 = $4D8
r4D9 = $4D9
r4DA = $4DA
r4DB = $4DB
r4DC = $4DC
r4DD = $4DD
r4DE = $4DE
r4DF = $4DF
r4E0 = $4E0
r4E1 = $4E1
r4E2 = $4E2
r4E3 = $4E3
r4E4 = $4E4
r4E5 = $4E5
r4E6 = $4E6
r4E7 = $4E7
r4E8 = $4E8
r4E9 = $4E9
r4EA = $4EA
r4EB = $4EB
r4EC = $4EC
r4ED = $4ED
r4EE = $4EE
r4EF = $4EF
r4F0 = $4F0
r4F1 = $4F1
r4F2 = $4F2
r4F3 = $4F3
r4F4 = $4F4
r4F5 = $4F5
r4F6 = $4F6
r4F7 = $4F7
r4F8 = $4F8
r4F9 = $4F9
r4FA = $4FA
r4FB = $4FB
r4FC = $4FC
r4FD = $4FD
r4FE = $4FE
r4FF = $4FF
r500 = $500
r501 = $501
r502 = $502
r503 = $503
r504 = $504
r505 = $505
r506 = $506
r507 = $507
r508 = $508
r509 = $509
r50A = $50A
r50B = $50B
r50C = $50C
r50D = $50D
r50E = $50E
r50F = $50F
r510 = $510
r511 = $511
r512 = $512
r513 = $513
r514 = $514
r515 = $515
r516 = $516
r517 = $517
r518 = $518
r519 = $519
r51A = $51A
r51B = $51B
r51C = $51C
r51D = $51D
r51E = $51E
r51F = $51F
r520 = $520
r521 = $521
r522 = $522
r523 = $523
r524 = $524
r525 = $525
r526 = $526
r527 = $527
r528 = $528
r529 = $529
r52A = $52A
r52B = $52B
r52C = $52C
r52D = $52D
r52E = $52E
r52F = $52F
r530 = $530
r531 = $531
r532 = $532
r533 = $533
r534 = $534
r535 = $535
r536 = $536
r537 = $537
r538 = $538
r539 = $539
r53A = $53A
r53B = $53B
r53C = $53C
r53D = $53D
r53E = $53E
r53F = $53F
r540 = $540
r541 = $541
r542 = $542
r543 = $543
r544 = $544
r545 = $545
r546 = $546
r547 = $547
r548 = $548
r549 = $549
r54A = $54A
r54B = $54B
r54C = $54C
r54D = $54D
r54E = $54E
r54F = $54F
r550 = $550
r551 = $551
r552 = $552
r553 = $553
r554 = $554
r555 = $555
r556 = $556
r557 = $557
r558 = $558
r559 = $559
r55A = $55A
r55B = $55B
r55C = $55C
r55D = $55D
r55E = $55E
r55F = $55F
r560 = $560
r561 = $561
r562 = $562
r563 = $563
r564 = $564
r565 = $565
r566 = $566
r567 = $567
r568 = $568
r569 = $569
r56A = $56A
r56B = $56B
r56C = $56C
r56D = $56D
r56E = $56E
r56F = $56F
r570 = $570
r571 = $571
r572 = $572
r573 = $573
r574 = $574
r575 = $575
r576 = $576
r577 = $577
r578 = $578
r579 = $579
r57A = $57A
r57B = $57B
r57C = $57C
r57D = $57D
r57E = $57E
r57F = $57F
r580 = $580
r581 = $581
r582 = $582
r583 = $583
r584 = $584
r585 = $585
r586 = $586
r587 = $587
r588 = $588
r589 = $589
r58A = $58A
r58B = $58B
r58C = $58C
r58D = $58D
r58E = $58E
r58F = $58F
r590 = $590
r591 = $591
r592 = $592
r593 = $593
r594 = $594
r595 = $595
r596 = $596
r597 = $597
r598 = $598
r599 = $599
r59A = $59A
r59B = $59B
r59C = $59C
r59D = $59D
r59E = $59E
r59F = $59F
r5A0 = $5A0
r5A1 = $5A1
r5A2 = $5A2
r5A3 = $5A3
r5A4 = $5A4
r5A5 = $5A5
r5A6 = $5A6
r5A7 = $5A7
r5A8 = $5A8
r5A9 = $5A9
r5AA = $5AA
r5AB = $5AB
r5AC = $5AC
r5AD = $5AD
r5AE = $5AE
r5AF = $5AF
r5B0 = $5B0
r5B1 = $5B1
r5B2 = $5B2
r5B3 = $5B3
r5B4 = $5B4
r5B5 = $5B5
r5B6 = $5B6
r5B7 = $5B7
r5B8 = $5B8
r5B9 = $5B9
r5BA = $5BA
r5BB = $5BB
r5BC = $5BC
r5BD = $5BD
r5BE = $5BE
r5BF = $5BF
r5C0 = $5C0
r5C1 = $5C1
r5C2 = $5C2
r5C3 = $5C3
r5C4 = $5C4
r5C5 = $5C5
r5C6 = $5C6
r5C7 = $5C7
r5C8 = $5C8
r5C9 = $5C9
r5CA = $5CA
r5CB = $5CB
r5CC = $5CC
r5CD = $5CD
r5CE = $5CE
r5CF = $5CF
CHRAnimID = $5D0
CHRAnimPhaseC = $5D1
CHRAnimFrameC = $5D2
r5D3 = $5D3
r5D4 = $5D4
r5D5 = $5D5
r5D6 = $5D6
r5D7 = $5D7
r5D8 = $5D8
r5D9 = $5D9
r5DA = $5DA
r5DB = $5DB
r5DC = $5DC
r5DD = $5DD
r5DE = $5DE
r5DF = $5DF
r5E0 = $5E0
r5E1 = $5E1
r5E2 = $5E2
r5E3 = $5E3
r5E4 = $5E4
r5E5 = $5E5
r5E6 = $5E6
r5E7 = $5E7
r5E8 = $5E8
r5E9 = $5E9
r5EA = $5EA
r5EB = $5EB
r5EC = $5EC
r5ED = $5ED
r5EE = $5EE
r5EF = $5EF
PalAnimID = $5F0
PalAnimPhaseC = $5F4
PALAnimFrameC = $5F8
r5FC = $5FC
r5FD = $5FD
r5FE = $5FE
r5FF = $5FF
BGPalW = $600
BGPalC = $610
BGPalW = $620
BGPalC = $630
AttrTab = $640
r680 = $680
r681 = $681
r682 = $682
r683 = $683
r684 = $684
r685 = $685
r686 = $686
r687 = $687
r688 = $688
r689 = $689
r68A = $68A
r68B = $68B
r68C = $68C
r68D = $68D
r68E = $68E
r68F = $68F
r690 = $690
r691 = $691
r692 = $692
r693 = $693
r694 = $694
r695 = $695
r696 = $696
r697 = $697
r698 = $698
r699 = $699
r69A = $69A
r69B = $69B
r69C = $69C
r69D = $69D
r69E = $69E
r69F = $69F
r6A0 = $6A0
r6A1 = $6A1
r6A2 = $6A2
r6A3 = $6A3
r6A4 = $6A4
r6A5 = $6A5
r6A6 = $6A6
r6A7 = $6A7
r6A8 = $6A8
r6A9 = $6A9
r6AA = $6AA
r6AB = $6AB
r6AC = $6AC
r6AD = $6AD
r6AE = $6AE
r6AF = $6AF
r6B0 = $6B0
r6B1 = $6B1
r6B2 = $6B2
r6B3 = $6B3
r6B4 = $6B4
r6B5 = $6B5
r6B6 = $6B6
r6B7 = $6B7
r6B8 = $6B8
r6B9 = $6B9
r6BA = $6BA
r6BB = $6BB
r6BC = $6BC
r6BD = $6BD
r6BE = $6BE
r6BF = $6BF
r6C0 = $6C0
r6C1 = $6C1
r6C2 = $6C2
r6C3 = $6C3
r6C4 = $6C4
r6C5 = $6C5
r6C6 = $6C6
r6C7 = $6C7
r6C8 = $6C8
r6C9 = $6C9
r6CA = $6CA
r6CB = $6CB
r6CC = $6CC
r6CD = $6CD
r6CE = $6CE
r6CF = $6CF
r6D0 = $6D0
r6D1 = $6D1
r6D2 = $6D2
r6D3 = $6D3
r6D4 = $6D4
r6D5 = $6D5
r6D6 = $6D6
r6D7 = $6D7
r6D8 = $6D8
r6D9 = $6D9
r6DA = $6DA
r6DB = $6DB
r6DC = $6DC
r6DD = $6DD
r6DE = $6DE
r6DF = $6DF
r6E0 = $6E0
r6E1 = $6E1
r6E2 = $6E2
r6E3 = $6E3
r6E4 = $6E4
r6E5 = $6E5
r6E6 = $6E6
r6E7 = $6E7
r6E8 = $6E8
r6E9 = $6E9
r6EA = $6EA
r6EB = $6EB
r6EC = $6EC
r6ED = $6ED
r6EE = $6EE
r6EF = $6EF
r6F0 = $6F0
r6F1 = $6F1
r6F2 = $6F2
r6F3 = $6F3
r6F4 = $6F4
r6F5 = $6F5
r6F6 = $6F6
r6F7 = $6F7
r6F8 = $6F8
r6F9 = $6F9
r6FA = $6FA
r6FB = $6FB
r6FC = $6FC
r6FD = $6FD
r6FE = $6FE
r6FF = $6FF
SoundRAM = $700


NMI:
	php
	pha
	txa
	pha
	tya
	pha
	lda	<rF0
	beq	brC00D
	jmp	jpC107
brC00D:
	lda	<r95
	beq	brC014
	jmp	jpC0BE
brC014:
	lda	<r19
	ora	<r1A
	sta	<r60
	lda	<ScrollX
	sta	<ScrollXC
	lda	<ScrollY
	sta	<ScrollYC
	lda	<rFD
	and	#$3
	sta	<rA5
	lda	<r9B
	sta	<r9C
	lda	<r99
	sta	<r9A
	cmp	#$5
	bne	brC038
	lda	<r78
	sta	<ScrollYC
brC038:
	lda	<rFF
	and	#$78
	sta	$2000
	lda	#$0
	sta	$2001
	sta	$2003
	lda	#$2
	sta	$4014
	lda	<r1C
	beq	brC059
	lda	#$0
	sta	<r1C
	ldx	#$50
	jsr	jsC29C
brC059:
	lda	<r19
	beq	brC060
	jsr	jsC298
brC060:
	lda	<r1A
	beq	brC07B
	lda	<rFF
	and	#$7F
	ora	#$4
	sta	$2000
	ldx	#$0
	stx	<r1A
	jsr	jsC29C
	lda	<rFF
	and	#$7F
	sta	$2000
brC07B:
	lda	<PalWrite_CtrlReg
	beq	brC0AC
	lda	<r60
	bne	brC0AC
	ldx	#$0
	stx	<PalWrite_CtrlReg
	lda	$2002
	lda	#$3F
	sta	$2006
	stx	$2006
	ldy	#$20
brC094:
	lda	BGPalW,x
	sta	$2007
	inx
	dey
	bne	brC094
	lda	#$3F
	sta	$2006
	sty	$2006
	sty	$2006

jsC0A9:
	sty	$2006
brC0AC:
	ldx	#$5
brC0AE:
	stx	$8000
	lda	<Mapping_BGCHR0,x
	sta	$8001
	dex
	bpl	brC0AE
	lda	<Write8000
	sta	$8000
jpC0BE:
	lda	<r9A
	cmp	#$4
	bne	brC0D3
	lda	$2002
	lda	<r78
	sta	$2005
	lda	#$0
	sta	$2005
	beq	brC0E0
brC0D3:
	lda	$2002
	lda	<ScrollYC
	sta	$2005
	lda	<ScrollXC
	sta	$2005
brC0E0:
	lda	<Write2001
	sta	$2001
	lda	<rA5
	ora	<rFF
	sta	$2000
	lda	<r9C
	sta	$C000
	sta	$C001
	ldx	<r96
	sta	$E000,x
	beq	brC107
	ldx	<r9A
	lda	datC280,x
	sta	<r97
	lda	datC288,x
	sta	<r98
brC107:
jpC107:
	inc	<Frame_Counter1
	ldx	#$FF
	stx	<r90
	inx
	ldy	#$4
brC110:
	lda	<r80,x
	cmp	#$1
	bne	brC11E
	dec	<r81,x
	bne	brC11E
	lda	#$4
	sta	<r80,x
brC11E:
	inx
	inx
	inx
	inx
	dey
	bne	brC110
	lda	<r9A
	cmp	#$4
	beq	brC140
jpC12B:
	tsx
	lda	Stack+7,x
	sta	<rE9
	lda	Stack+6,x
	sta	<rE8
	lda	#$C1
	sta	$107,x
	lda	#$47
	sta	$106,x
brC140:
	pla
	tay
	pla
	tax
	pla
	plp
	rti
	php
	php
	php
	pha
	txa
	pha
	tya
	pha
	tsx
	sec
	lda	<rE8
	sbc	#$1
	sta	$105,x
	lda	<rE9
	sbc	#$0
	sta	$106,x
	jsr	jsFF68
	pla
	tay
	pla
	tax
	pla
	plp
	rts

IRQ:
	php
	pha
	txa
	pha
	tya
	pha
	sta	$E000
	sta	$E001
	ldx	<r9A
	lda	datC290,x
	bne	brC182
	ldx	#$7
brC17E:
	nop
	dex
	bne	brC17E
brC182:
	jmp	($97)
	lda	$2002
	lda	<ScrollYC
	lsr	A
	lsr	A
	lsr	A
	ora	<r78
	ldy	<r79
	sty	$2006
	sta	$2006
	lda	<rFF
	sta	$2000
	lda	<ScrollYC
	sta	$2005
	lda	#$0
	sta	$2005
	jmp	jpC276
	lda	$2002
	lda	#$23
	sta	$2006
	lda	#$0
	sta	$2006
	lda	#$0
	sta	$2005
	sta	$2005
	lda	<rA5
	eor	#$1
	ora	<rFF
	sta	$2000
	jmp	jpC276
	lda	$2002
	lda	<r78
	sta	$2005
	lda	#$0
	sta	$2005
	lda	#$2E
	sta	$C000
	lda	#$4
	sta	<r97
	lda	#$C2
	sta	<r98
	jmp	jpC279
	lda	$2002
	lda	<r79
	sta	$2005
	lda	<ScrollXC
	sta	$2005
	lda	<r7A
	sta	$C000
	lda	#$4
	sta	<r97
	lda	#$C2
	sta	<r98
	jmp	jpC12B
	lda	$2002
	lda	<ScrollYC
	sta	$2005
	lda	<ScrollXC
	sta	$2005
	beq	brC276
	lda	$2002
	lda	<r7A
	sta	$2006
	lda	<r7B
	sta	$2006
	lda	#$0
	sta	$2005
	sta	$2005
	lda	<rFF
	sta	$2000
	bne	brC276
	lda	$2002
	lda	#$29
	sta	$2006
	lda	#$C0
	sta	$2006
	lda	#$0
	sta	$2005
	sta	$2005
	lda	<rFF
	ora	#$2
	sta	$2000
	bne	brC276
	lda	$2002
	lda	<r78
	sta	$2005
	lda	#$0
	sta	$2005
	lda	#$1F
	sta	$C000
	lda	#$69
	sta	<r97
	lda	#$C2
	sta	<r98
	bne	brC279
	lda	$2002
	lda	<r79
	sta	$2005
	lda	#$0
	sta	$2005
brC276:
jpC276:
	sta	$E000
brC279:
jpC279:
	pla
	tay
	pla
	tax
brC27D:
	pla
	plp
	rti

datC280:
 .db $76
	sta	<rA9
	dex
brC287:

datC288:

datC290:
 .db $E7,$13,$2F,$4D,$C2,$C1,$C1,$C1,$C1,$C2,$C2,$C2,$0,$0,$0,$1
 .db $1,$0,$0,$1

jsC298:
	ldx	#$0
	stx	<r19

jsC29C:
brC29C:

jsC29C:
	lda	SoundRAM+128,x
 .db $30,$1B
	sta	$2006
	lda	SoundRAM+129,x
	sta	$2006
 .db $BC,$82,$7
brC2AD:
	lda	SoundRAM+131,x
	sta	$2007
	inx
	dey
	bpl	brC2AD
	inx
	inx
	inx
	bne	brC29C
	rts
	lda	<rFF
	and	#$11
	sta	<rFF
	sta	$2000
	rts
	lda	<rFF
	ora	#$80
	sta	<rFF
brC2CD:
	sta	$2000
	rts

jsC2D1:
	inc	<rF0
	lda	#$0
	sta	<Write2001
	sta	$2001
	rts

jsC2DB:
	dec	<rF0
	lda	#$18
	sta	<Write2001
	sta	$2001
	rts

jsC2E5:
	ldx	#$1
	stx	$4016
	dex
	stx	$4016
	ldx	#$8
brC2F0:
	lda	$4016
	lsr	A
	rol	<r14
	lsr	A
	rol	<Temp0
	lda	$4017
	lsr	A
	rol	<r15
	lsr	A
	rol	<Temp1
	dex
	bne	brC2F0
	lda	<Temp0
	ora	<r14
	sta	<r14
	lda	<Temp1
	ora	<r15
	sta	<r15
	ldx	#$1
brC313:
	lda	<r14,x
	tay
	eor	<Joy_ButtonBits,x
	and	<r14,x
	sta	<r14,x
	sty	<Joy_ButtonBits,x
	dex
	bpl	brC313
	ldx	#$3
brC323:
	lda	<r14,x
	and	#$C
	cmp	#$C
	beq	brC333
	lda	<r14,x
	and	#$3
	cmp	#$3
	bne	brC339
brC333:
	lda	<r14,x
	and	#$F0
	sta	<r14,x
brC339:
	dex
	bpl	brC323
	lda	#$0
	sta	<r15
	sta	<r17
	rts

jsC343:
	sta	<Temp0
	stx	<Temp1
 .db $84,$2
	lda	$2002
	lda	<rFF
	and	#$FE
	sta	$2000
	lda	<Temp0
	sta	$2006
	ldy	#$0
	sty	$2006
	ldx	#$4
	cmp	#$20
 .db $B0,$2
	ldx	<Temp2
	ldy	#$0
	lda	<Temp1
brC369:
	sta	$2007
	dey
	bne	brC369
	dex
	bne	brC369
	ldy	<Temp2
	lda	<Temp0
	cmp	#$20
 .db $90,$12,$69,$2
	sta	$2006
	lda	#$C0
	sta	$2006
	ldx	#$40
brC386:
	sty	$2007
	dex
	bne	brC386
	ldx	<Temp1
	rts

jsC38F:
	ldx	#$0

jsC391:
	lda	#$F8
brC393:
	sta	$200,x
	inx
	inx
	inx
	inx
	bne	brC393
	rts

jsC39D:
	ldx	#$17
brC39F:
	lda	#$0
	sta	$300,x
	sta	$5A0,x
	sta	$5B8,x
	sta	$450,x
	lda	#$FF
	sta	$438,x
	dex
	bne	brC39F
	stx	<r74
	rts

jsC3B8:
	lda	#$0
	sta	<r99
	sta	<r46
	sta	<r78
brC3C0:
	sta	<r79
	sta	<r7A
	sta	<r7B
	sta	<ScrollX
	sta	<rFB
	sta	<ScrollY
	sta	<rFD
	ldy	#$88
 .db $84,$9B
	ldy	#$3F
brC3D4:
 .db $99,$80,$6
	dey
	bpl	brC3D4
	sta	<r58
	lda	#$50
	sta	<EffectCount1
	lda	<Level
	cmp	#$A
	bne	brC3EA
	lda	#$0
	sta	<r43
brC3EA:
	rts
jpC3EB:
	lda	#$30
	ldx	#$F0
	bne	brC3F4

jsC3F1:
	lda	#$10
	tax
brC3F4:
	sta	<TempF
	stx	<TempD
	inc	<r1B
	ldy	#$4
 .db $84,$E
brC3FE:
	lda	<rA9
	pha
	ldy	#$1F
brC403:
	tya
	and	#$3
	cmp	#$3
	bne	brC414
 .db $46
	lda	#$90
 .db $6
	dey
	dey
	dey
	jmp	jpC421
brC414:
 .db $B9
 .db $E5,$F
	bpl	brC41E
	lda	#$F
brC41E:
 .db $99,$0,$6
jpC421:
	dey
	bpl	brC403
	lda	BGPalW
	sta	$610
 .db $84
	clc
	pla
	sta	<rA9
	lda	<TempE
brC431:
	pha
	jsr	jsFF22
	pla
	sec
	sbc	#$1
	bne	brC431
	lda	<TempF
	clc
 .db $65,$D
	sta	<TempF
	cmp	#$50
	beq	brC44A
	lda	<TempF
	bpl	brC3FE
brC44A:
	lda	#$0
	sta	<rA9
	dec	<r1B
	rts
	pla
	sta	<Temp2
	pla
	sta	<Temp3
	ldy	#$1
 .db $B1,$2
	sta	<Temp4
 .db $C8,$B1,$2
	sta	<Temp5
	ldy	#$0
 .db $B1,$4
	beq	brC48B
	sta	$2006
	jsr	jsC49B
 .db $B1,$4
	sta	$2006
	jsr	jsC49B
 .db $B1,$4
	sta	<Temp6
	jsr	jsC49B
brC47D:
 .db $B1,$4
	sta	$2007
	jsr	jsC49B
	dec	<Temp6
	bpl	brC47D
 .db $30,$D9
brC48B:
	lda	<Temp2
	clc
 .db $69,$2
	sta	<Temp2
	lda	<Temp3
 .db $69,$0
	pha
	lda	<Temp2
	pha
	rts

jsC49B:
 .db $C8
	bne	brC4A0
	inc	<Temp5
brC4A0:
	rts

jsC4A1:
	jsr	jsC6DB
	lda	<r17
	and	#$8
	beq	brC4AD
	jmp	jpC5A7
brC4AD:
 .db $B9,$7,$C8
	sta	<r40
	tay
 .db $B9,$37,$C8
	sta	<Temp6
	lda	#$0
	sta	<Temp2
	jsr	jsC7AA
	lda	r390,x
	sta	<Temp3
 .db $B9
	sec
 .db $C8
	pha
	clc
 .db $65,$11
	sta	<ILC_High
	pla
 .db $30,$17,$B0,$6
	lda	<ILC_High
	cmp	#$F0
 .db $90,$2C
	lda	<r46
	beq	brC4F7
	lda	<ILC_High
 .db $69,$F
	sta	<ILC_High
	dec	<r13
	jmp	jpC504
 .db $B0,$1B
	lda	<r46
	beq	brC4F7
	lda	<ILC_High
	sbc	#$F
	sta	<ILC_High
	inc	<r13
	bne	brC504
brC4F7:
	lda	#$0
	ldy	<Temp6
brC4FB:
 .db $99
	pha
 .db $0
	dey
brC4FF:
	bpl	brC4FB
	jmp	jpC737
brC504:
jpC504:
	lda	<Temp3

datC506:
	bne	brC4F7
	lda	<ILC_High
	lsr	A
	lsr	A
	pha
	and	#$38
	sta	<r22
	pla
	lsr	A
	and	#$2
	sta	<Temp3
	lda	#$0
	sta	<Temp4
 .db $B9,$39,$C8
	bpl	brC522
	dec	<Temp4
brC522:
	clc
 .db $7D,$30,$3
	sta	<r12
	lda	<r13
 .db $65,$4
	sta	<r13
	lda	<r12
	lsr	A
	lsr	A
	lsr	A
	lsr	A
	pha
	and	#$1
	ora	<Temp3
	sta	<Temp3
	pla
	lsr	A
	ora	<r22
	sta	<r22
jpC541:
	ldy	<r13
	jsr	jsD7A3
brC546:
	jsr	jsD758
brC549:
	ldy	<Temp3
 .db $B1,$0
	tay
 .db $B9,$0,$B1
	and	#$F0
	jsr	jsC74E
	jsr	jsC77C
	ldy	<Temp2
 .db $99
	pha
 .db $0,$C5,$42,$90,$2
	sta	<r42
	ora	<ILC_Low
	sta	<ILC_Low
	lda	<Temp2
 .db $C5,$6
	beq	brC5A7
	inc	<Temp2
	inc	<r40
	ldy	<r40
brC574:
	lda	<r12
	pha
	and	#$10
	sta	<Temp4
	pla
	clc
 .db $79,$39,$C8
	sta	<r12
	and	#$10
 .db $C5,$4
	beq	brC549
	lda	<Temp3
	eor	#$1
	sta	<Temp3
	and	#$1
	bne	brC549
	inc	<r22
	lda	<r22
	and	#$7
brC598:
	bne	brC546
	inc	<r13
	dec	<r22
	lda	<r22
	and	#$38
	sta	<r22
	jmp	jpC541
brC5A7:
jpC5A7:
	jmp	jpC737

jsC5AA:
	jsr	jsC6DB
	lda	<r17
	and	#$8
	beq	brC5B6
	jmp	jpC6D8
brC5B6:
 .db $B9,$E2,$C8
	sta	<r40
	tay
 .db $B9,$12
	cmp	#$85
 .db $6
	lda	#$0
	sta	<Temp2
	lda	#$0
	sta	<Temp4
	sta	<Temp5
 .db $B9,$13
	cmp	#$10
 .db $2
	dec	<Temp4
brC5D2:
	clc
 .db $7D,$30,$3
	sta	<r12
	lda	<r13
 .db $65,$4
	sta	<r13
	lda	<r12
	lsr	A
	lsr	A
	lsr	A
	lsr	A
	pha
	and	#$1
	sta	<Temp3
	pla
	lsr	A
	sta	<r22
	lda	r390,x
 .db $30,$3E
	bne	brC618
	lda	<ILC_High
	clc
 .db $79,$14
	cmp	#$85
 .db $11,$B9,$14
	cmp	#$30
 .db $1F,$B0,$6
	lda	<ILC_High
	cmp	#$F0
 .db $90,$2D
	lda	<r46
	beq	brC618
	lda	<ILC_High
 .db $69,$F
brC611:
	sta	<ILC_High
	dec	<r13
	jmp	jpC636
brC618:
	lda	#$EF
	sta	<ILC_High
brC61C:
	inc	<Temp5
	bne	brC636
 .db $B0,$14
	lda	<r46
	beq	brC630
	lda	<ILC_High
	sbc	#$F
	sta	<ILC_High
	inc	<r13
	bne	brC636
brC630:
	lda	#$0
	sta	<ILC_High
	inc	<Temp5
brC636:
jpC636:
	lda	<ILC_High
	lsr	A
	lsr	A
	pha
	and	#$38
	ora	<r22
	sta	<r22
	pla
	lsr	A
	and	#$2
	ora	<Temp3
	sta	<Temp3
jpC649:
	ldy	<r13
	jsr	jsD7A3
brC64E:
	jsr	jsD758
brC651:
	ldy	<Temp3
 .db $B1,$0
	tay
 .db $B9,$0,$B1
	and	#$F0
	cmp	#$40
	bne	brC661
	lda	#$20
brC661:
	jsr	jsC74E
	jsr	jsC77C
	ldy	<Temp2
 .db $99
	pha
 .db $0,$C5,$42,$90,$2
	sta	<r42
	ora	<ILC_Low
	sta	<ILC_Low
	lda	<Temp2
 .db $C5,$6
	beq	brC6D8
	inc	<Temp2
	inc	<r40
	lda	<Temp5
	bne	brC651
	ldy	<r40
	lda	<ILC_High
	pha
	and	#$10
	sta	<Temp4
	pla
	clc
 .db $79,$14
	cmp	#$85
 .db $11
	and	#$10
 .db $C5,$4
	beq	brC651
	lda	<Temp3
	eor	#$2
	sta	<Temp3
	and	#$2
	beq	brC6B8
	lda	<r22
	cmp	#$38
 .db $90,$A7
	lda	<r46
	bne	brC6C1
	lda	<Temp3
	eor	#$2
	sta	<Temp3
brC6B4:
	inc	<Temp5
	bne	brC651
brC6B8:
	lda	<r22
	clc
 .db $69
	php
	sta	<r22
	bne	brC64E
brC6C1:
	lda	<ILC_High
	and	#$F
	sta	<ILC_High
	lda	<r22
	and	#$7
	sta	<r22
	lda	<Temp3
	and	#$1
	sta	<Temp3
	dec	<r13
	jmp	jpC649
brC6D8:
jpC6D8:
	jmp	jpC737

jsC6DB:
	lda	#$0
	sta	<ILC_Low
	sta	<r42
	lda	<rF6
	sta	<rF1
	lda	r348,x
	sta	<r13
	lda	r378,x
	sta	<ILC_High
	lda	<r46
	beq	brC736
	lda	<Level
	cmp	#$E
	bne	brC705
	lda	<ILC_High
	cmp	#$60
 .db $90,$37
	clc
 .db $65,$79
	sta	<ILC_High
	rts
brC705:
	lda	r390,x
	beq	brC712
	lda	<r13
	sec
 .db $FD,$90,$3
	sta	<r13
brC712:
	lda	<r13
	clc
 .db $65,$FB
	sta	<r13
	lda	r378,x
	clc
 .db $65,$FA,$B0,$4
	cmp	#$F0
 .db $90,$4
	dec	<r13
 .db $69,$F
	sta	<ILC_High
	lda	<Level
	cmp	#$C
	bne	brC736
	lda	r348,x
	sta	<r13
brC736:
	rts
jpC737:
 .db $E0,$0
	bne	brC747
	lda	<r36
	bne	brC747
	lda	<r42
	cmp	#$D0
 .db $90,$2
	sta	<r36
brC747:
	lda	<rF1
	sta	<rF6
	jmp	jpFF43

jsC74E:
	sta	<Temp7
	ldy	<r43
	beq	brC779
brC754:
 .db $B9,$BC,$6,$C5,$13
	bne	brC773
 .db $B9
	lda	datC506,x
 .db $22
	bne	brC773
 .db $B9,$BE,$6,$C5,$3
	bne	brC773
 .db $B9,$BF,$6
	tay
 .db $B9,$0,$B1
	and	#$F0
	rts
brC773:
	dey
	dey
	dey
	dey
	bne	brC754
brC779:
	lda	<Temp7
	rts

jsC77C:
	pha
	lda	<r1E
	bne	brC7A8
	lda	<r22
	and	#$1
 .db $A,$A
	ora	<Temp3
	tay
 .db $B9,$B2,$F2
	sta	<Temp7
	lda	<r13
	and	#$1
	tay
	lda	<r22
	lsr	A
 .db $19,$C2,$F2
	tay
 .db $B9,$80,$6,$25,$7
	beq	brC7A8
	pla
	and	#$10
	eor	#$10
	pha
brC7A8:
	pla
	rts

jsC7AA:
 .db $84,$0
	ldy	<Level
 .db $B9,$E7,$C7
	sta	<Temp1
 .db $B9,$F7,$C7
	sta	<Temp3
	ldy	<Temp0
	lda	<r46
	beq	brC7E6
	lda	<Temp1
	beq	brC7E6
	lda	<Level
	cmp	#$C
	bne	brC7CC
 .db $E0,$0
	beq	brC7E6
brC7CC:
 .db $B9
	sec
 .db $C8,$30,$15
	clc
 .db $7D
brC7D3:
	sei
 .db $3,$B0,$F,$C5,$1,$90,$B
	lda	r378,x
	sta	<ILC_High
	lda	<Temp3
 .db $30,$2
	sta	<r13
brC7E6:
	rts
brC7EF:
brC7F0:
 .db $0,$0,$0,$C0,$0,$0,$0,$0,$0,$0,$0,$C0
	bne	brC7F5
brC7F5:
 .db $0,$0,$0,$0,$0,$13,$0,$0,$0,$0,$0,$0,$0,$0,$FF,$0
 .db $0,$0,$0
	ora	<Temp9
 .db $E,$13
	clc
 .db $1D
 .db $2D,$32,$36,$3A,$3F,$44
	eor	#$4E
 .db $52,$56,$59,$5C,$61,$66,$6A,$6E,$73
	sei
 .db $7C,$7F,$82,$87
	sty	$938F
 .db $97,$9A
	sta	$A5A1,x
	tay
 .db $AB,$AB,$AB,$AB,$AB,$AB,$AB,$2,$C,$F9,$7,$7,$1,$F6,$F9,$E
 .db $2,$F2,$F2,$E,$E,$2,$C,$F2,$E,$E,$2,$A,$F2,$E,$E,$2
brC857:
brC85C:
 .db $F8,$F2,$E,$E,$0,$0,$0,$1,$6,$FB,$A,$1,$FA,$FB,$A,$2
	bpl	brC857
 .db $B,$B,$2
brC865:
	beq	brC85C
brC86A:
 .db $B,$B,$1,$4,$F9,$E,$1,$FC,$F9,$E,$2
	bpl	brC865
 .db $F,$F,$2
	beq	brC86A
 .db $F,$F,$2,$1C,$F1,$F,$F,$2,$E4,$F1,$F,$F,$1,$14,$F9,$E
 .db $1,$EC,$F9,$E,$0,$4,$0,$0,$FC,$0,$2,$C,$F5,$B,$B,$2
 .db $F4,$F5,$B,$B,$1
	php
 .db $F9,$E,$1,$F8,$F9,$E,$2,$14,$F5,$B,$B,$2,$EC,$F5,$B,$B
 .db $1,$0,$F9,$E,$0
	bpl	brC8B6
brC8B6:
 .db $0
	beq	brC8B9
brC8B9:
 .db $2,$C,$F1,$F,$F,$2,$F4,$F1,$F,$F,$0,$36,$0,$1,$C,$F9
 .db $E,$1,$F4,$F9,$E,$0
	php
 .db $0,$0,$F8,$0,$1,$FA,$F9,$E,$1
	ora	<ScrPos
 .db $E,$0,$C,$0,$0,$F4,$0,$0
	ora	<TempA
 .db $F,$14
	clc
 .db $1C
 .db $2A,$2F,$34
	sec
 .db $3C
	rti
 .db $44
	eor	#$4E
	eor	<r5C,x
 .db $62
	pla
 .db $6D,$72,$77,$7C,$7F,$82
	stx	<r8A
	sta	$9490
	tya
 .db $9B,$9E,$A3
	tay
 .db $AE,$B4,$B9,$BE,$C1,$C4,$C8,$CB,$CB,$2
	php
 .db $F7
	ora	#$B
 .db $2,$F8,$F7
	ora	#$B
 .db $2,$0,$F5,$B
	ora	<Temp2
 .db $0,$FB
	ora	<TempB
 .db $1,$F,$FB,$E,$1,$F1,$FB,$E,$1,$F,$F9,$0,$1,$F1,$F9,$0
 .db $0,$F,$4,$0,$F1,$4,$2,$C,$F1,$F,$F,$2,$F4,$F1,$F,$F
 .db $1
	php
brC948:
brC94A:
brC94F:
 .db $FD,$6,$1,$F8,$FD,$6,$1,$6,$FB,$A,$1,$FA,$FB,$A,$2
	bpl	brC94A
 .db $F,$F,$2
	beq	brC94F
 .db $F,$F,$4
	bpl	brC948
 .db $F,$F,$F
	ora	#$4
	beq	brC94F
 .db $F,$F,$F
	ora	#$3
	php
 .db $ED
	bpl	brC983
 .db $6,$3,$F8,$ED
	bpl	brC989
brC979:
brC97A:
brC980:
brC983:
 .db $6,$2,$C,$F5,$B,$B,$2,$F4,$F5,$B,$B,$2,$7,$F5,$B,$B
brC989:
 .db $2,$F9,$F5,$B,$B,$0,$4,$0,$0,$FC,$0,$1
	php
 .db $F9,$E,$1,$F8,$F9,$E,$0,$C,$0,$0,$F4,$0,$1
	bpl	brC9A5
brC9A5:
brC9A8:
brC9AD:
 .db $C,$1,$F1,$0,$C,$0,$14,$0,$0,$EC,$0,$2
	bpl	brC9A8
 .db $B,$B,$2
	beq	brC9AD
 .db $B,$B,$3,$C,$ED
	bpl	brC9CF
 .db $6,$3,$F4,$ED
	bpl	brC9D5
brC9C6:
 .db $6,$2
	php
brC9CC:
brC9CF:
 .db $F5,$B,$B,$2,$F8,$F5,$B,$B,$0
	php
brC9D5:
 .db $0,$0,$F8,$0,$1,$0,$FA
	php
 .db $0,$0
	ora	<rA5
	rol	<rC9
 .db $1
	bne	brCA31
	lda	<Scroll_DirType
	and	#$1F
	cmp	#$8
	beq	brC9EF
	cmp	#$A
	bne	brCA31
brC9EF:
	lda	<r99
	bne	brCA03
	sta	<r78
	sta	<r79
	lda	#$4F
	sta	<r7A
	lda	#$40
	sta	<r9B
	lda	#$4
	sta	<r99
brCA03:
	lda	r330
	clc
 .db $69,$3
	sta	$330
	lda	r348
 .db $69,$0
	sta	$348
	lda	<ScrollY
	bne	brCA24
	sta	<ILC_High
	lda	<ScrPos
	cmp	#$23
	beq	brCA2E
	cmp	#$3F
	beq	brCA2E
brCA24:
	inc	<r78
	inc	<r79
brCA28:
	inc	<r79
	lda	#$3
	sta	<ILC_High
brCA2E:
	jmp	jpCAB4
brCA31:
	lda	<MM_MoveType
	cmp	#$22
	bne	brCA38
	rts
brCA38:
	lda	<Scroll_DirType
	and	#$C0
	bne	brCA59
	lda	r330
	sec
 .db $E5,$FC
	sta	<ILC_Low
	lda	r330
	sec
 .db $E5,$3C
	sta	<ILC_High
	lda	r348
 .db $E5,$3D
	ora	<ILC_High
 .db $90
	ora	<rD0
 .db $4B
brCA59:
	jmp	jpCD10
	lda	<ILC_Low
	cmp	#$81
 .db $B0,$F7
	lda	<ILC_High
	eor	#$FF
 .db $69,$1
	cmp	#$8
 .db $90,$2
	lda	#$8
	sta	<ILC_High
	lda	<ScrollY
brCA72:
	sec
 .db $E5,$11
	sta	<ScrollY
	php
	lda	<ScrPos
	sta	<ILC_High
	sbc	#$0
	sta	<ScrPos
	plp
	lda	<Scroll_ScrPassed
	sbc	#$0
	sta	<Scroll_ScrPassed
 .db $B0,$17
	lda	#$0
	sta	<ScrollY
	sta	<Scroll_ScrPassed
	lda	<ILC_High
	sta	<ScrPos
	lda	#$10
 .db $CD,$30,$3,$90,$6
	sta	$330
	jmp	jpCC49
	lda	#$2
	bne	brCAE9
brCAA4:
	beq	brCAE6
	lda	<ILC_Low
	cmp	#$80
 .db $90,$3A
	lda	#$8
 .db $C5,$11,$B0,$2
	sta	<ILC_High
jpCAB4:
	lda	<ScrollY
brCAB6:
	clc
 .db $65,$11
	sta	<ScrollY
	php
	lda	<ScrPos
 .db $69,$0
	sta	<ScrPos
	plp
	lda	<Scroll_ScrPassed
 .db $69,$0
	sta	<Scroll_ScrPassed
 .db $C5,$2A
	bne	brCAE2
	lda	#$0
	sta	<ScrollY
	lda	#$F0
 .db $CD,$30,$3,$B0,$A
	sta	$330
	lda	#$0
	sta	<ScrollY
	jmp	jpCB5F
brCAE2:
	lda	#$1
	bne	brCAE9
brCAE6:
	jmp	jpCD10
brCAE9:
	sta	<ILC_Low
	sta	<MM_Direction2
	lda	<ScrollY
	sec
 .db $E5,$44
	bpl	brCAF9
	eor	#$FF
	clc
 .db $69,$1
brCAF9:
	sta	<ILC_High
	beq	brCAE6
	lda	<ILC_Low
	and	#$1
	beq	brCB08
	lda	<ScrollXUnk
	jmp	jpCB0C
brCB08:
	lda	<ScrollXUnk
	eor	#$FF
jpCB0C:
	and	#$7
	clc
 .db $65,$11
	lsr	A
	lsr	A
	lsr	A
	beq	brCB5C
	lda	<ILC_Low
 .db $C5
	plp
	sta	<r28
	php
	and	#$1
	tay
	plp
	bne	brCB31
	lda	<Tile_ScrollX
	clc
 .db $79
	dec	<rD0
brCB29:
	cmp	#$20
	and	#$1F
	sta	<Tile_ScrollX
 .db $90
	php
brCB31:
	lda	<Next_Screen_Pos
	clc
 .db $79
	dec	<rD0
	sta	<Next_Screen_Pos
	lda	<Tile_ScrollX
	bne	brCB4D
	lda	<Level
	cmp	#$5
	bne	brCB4D
	lda	<Next_Screen_Pos
	cmp	#$B
	beq	brCB5C
	cmp	#$1A
	beq	brCB5C
brCB4D:
	lda	<rF6
	pha
	jsr	jsD8EB
	jsr	jsD4E2
	pla
	sta	<rF6
	jsr	jsFF43
brCB5C:
	jmp	jpCD10
jpCB5F:
	lda	<r55
	bne	brCB5C
	lda	<Scroll_DirType
	and	#$1F
	tay
 .db $B9,$51
	lda	#$29
	jsr	jsEDF0
 .db $B9,$51
	lda	#$29
 .db $C0
	bne	brCB5C
 .db $C8,$84,$0,$B9,$50
	lda	#$29
	sta	<Scroll_DirType
 .db $B9,$50
	lda	#$29
 .db $1F
	sta	<Scroll_ScrUnk
	lda	#$0
	sta	<Scroll_ScrPassed
 .db $B9
	pla
	lda	#$48
	bpl	brCB96
	jsr	jsD0FC
brCB96:
	jsr	jsC3B8
	jsr	jsC39D
	jsr	jsF32D
	jsr	jsD07F
	lda	<r28
	pha
	lda	#$1
	sta	<r28
	sta	<MM_Direction2
	pla
	and	#$1
	bne	brCBB4
	inc	<Next_Screen_Pos
	dec	<Tile_ScrollX
jpCBB4:
brCBB4:
	lda	<ScrollY
	clc
brCBB7:
 .db $69,$4
	sta	<ScrollY
	lda	<ScrPos
 .db $69,$0
	sta	<ScrPos
	lda	r318
	clc
 .db $69
	ldy	#$8D
	clc
 .db $3
	lda	r330
 .db $69,$0
	sta	$330
	lda	r348
 .db $69,$0
	sta	$348
	lda	<ScrollY
	sec
 .db $E5,$44
	sta	<ILC_High
	beq	brCBFE
	lda	<ScrollXUnk
	and	#$7
	clc
 .db $65,$11
	lsr	A
	lsr	A
	lsr	A
	beq	brCBFE
	inc	<Tile_ScrollX
	lda	<Tile_ScrollX
	and	#$1F
	sta	<Tile_ScrollX
	bne	brCBFB
	inc	<Next_Screen_Pos
brCBFB:
	jsr	jsD4E2
brCBFE:
	lda	<ScrollY
	sta	<ScrollXUnk
	lda	#$4
	sta	<r9F
	jsr	jsC38F
	lda	<rF6
	pha
	lda	#$12
	jsr	jsFF3D
	jsr	jsDF5E
	lda	r558
	cmp	#$1D
	bne	brCC20
	lda	#$0
	sta	$570
brCC20:
	pla
	sta	<rF6
	jsr	jsFF43
	lda	#$1
	sta	$300
	lda	#$0
	sta	<r95
	jsr	jsFF22
	inc	<r95
	lda	<ScrollY
	beq	brCC3B
	jmp	jpCBB4
brCC3B:
	pla
	bpl	brCC41
	jsr	jsD16B
brCC41:
	lda	#$0
	sta	<r35
	rts
brCC46:
	jmp	jpCD10
jpCC49:
	lda	<Scroll_DirType
	and	#$1F
	beq	brCC46
	tay
 .db $B9
	pla
	lda	#$29
	rti
	beq	brCC46
 .db $B9,$4F
	lda	#$29
	jsr	jsE8F0
	dey
 .db $84,$0,$B9,$50
	lda	#$29
	sta	<Scroll_DirType
 .db $B9,$50
	lda	#$29
 .db $1F
	sta	<Scroll_ScrUnk
	sta	<Scroll_ScrPassed
	jsr	jsC3B8
	jsr	jsC39D
	jsr	jsF32D
	lda	<r28
	pha
	lda	#$2
	sta	<r28
	sta	<MM_Direction2
	pla
	and	#$2
	bne	brCC8E
	dec	<Next_Screen_Pos
	inc	<Tile_ScrollX
brCC8E:
	lda	<ScrollY
	sec
	sbc	#$4
	sta	<ScrollY
	lda	<ScrPos
	sbc	#$0
	sta	<ScrPos
	lda	r318
	sec
	sbc	#$80
	sta	$318
	lda	r330
	sbc	#$0
	sta	$330
	lda	r348
	sbc	#$0
	sta	$348
	lda	<ScrollY
	sec
 .db $E5,$44
	bpl	brCCC0
	eor	#$FF
	clc
 .db $69,$1
brCCC0:
	sta	<ILC_High
	beq	brCCDF
	lda	<ScrollXUnk
	eor	#$FF
	and	#$7
	clc
 .db $65,$11
	lsr	A
	lsr	A
	lsr	A
	beq	brCCDF
	dec	<Tile_ScrollX
	bpl	brCCDC
	lda	#$1F
	sta	<Tile_ScrollX
	dec	<Next_Screen_Pos
brCCDC:
	jsr	jsD4E2
brCCDF:
	lda	<ScrollY
	sta	<ScrollXUnk
	lda	#$4
	sta	<r9F
	jsr	jsC38F
	lda	<rF6
	pha
	lda	#$12
	jsr	jsFF3D
	jsr	jsDF5E
	pla
	sta	<rF6
	jsr	jsFF43
	lda	#$1
	sta	$300
	lda	#$0
	sta	<r95
	jsr	jsFF22
	inc	<r95
	lda	<ScrollY
	bne	brCC8E
	sta	<r35
brCD0F:
	rts
jpCD10:
	lda	<ScrollY
	bne	brCD0F
	lda	#$10
 .db $CD,$30,$3,$B0,$7
brCD1B:
	lda	#$F0
 .db $CD,$30,$3,$B0,$3
	sta	$330
	ldy	<Level
 .db $B9,$CC
	bne	brCD1B
 .db $7,$C5
	and	#$D0
 .db $3
	jmp	jpCF5D
brCD33:
	lda	r390
	bne	brCD0F
	lda	<rAF
	beq	brCD57
	lda	#$80
	sta	<Temp1
	lda	r378
	cmp	#$8
brCD46:
 .db $90,$2D
	cmp	#$E8
 .db $90,$C4
	lda	<MM_MoveType
	cmp	#$3
	bne	brCD0F
	lda	#$40
	sta	<Temp1
	bne	brCD74
brCD57:
	lda	#$40
	sta	<Temp1
	lda	r378
	cmp	#$E8
 .db $B0,$12
	cmp	#$8
 .db $B0
	lda	#$A5
 .db $37
	bne	brCD70
	lda	<MM_MoveType
	cmp	#$3
	bne	brCD0F
brCD70:
	lda	#$80
brCD72:
	sta	<Temp1
brCD74:
	jsr	jsCFF0
 .db $B0,$53
	lda	<Scroll_DirType
	and	#$C0
	beq	brCDEE
	lda	<Temp1
 .db $25
	and	#$F0
 .db $36
	lda	<Scroll_ScrPassed
 .db $C5,$2A
	beq	brCD9B
	inc	<Scroll_ScrPassed
jpCD8D:
	inc	<Next_Screen_Pos
	inc	<ScrPos
 .db $EE
	pha
 .db $3
	lda	#$1
	sta	<MM_Direction2
	jmp	jpCE7C
brCD9B:
	inc	<Scroll_DirType
	lda	<Scroll_DirType
	and	#$1F
	sta	<Scroll_DirType
	tay
 .db $B9,$50
	lda	#$29
 .db $E0
	ora	<Scroll_DirType
	sta	<Scroll_DirType
	lda	#$0
	sta	<Scroll_ScrPassed
 .db $B9,$50
	lda	#$29
 .db $1F
	sta	<Scroll_ScrUnk
	jmp	jpCD8D
brCDBB:
	lda	<Scroll_ScrPassed
	beq	brCDCF
	dec	<Scroll_ScrPassed
jpCDC1:
	dec	<Next_Screen_Pos
	dec	<ScrPos
 .db $CE
	pha
 .db $3
	lda	#$2
	sta	<MM_Direction2
	jmp	jpCE7C
brCDCF:
	dec	<Scroll_DirType
	lda	<Scroll_DirType
	and	#$1F
	sta	<Scroll_DirType
	tay
 .db $B9,$50
	lda	#$29
 .db $E0
	ora	<Scroll_DirType
brCDDF:
	sta	<Scroll_DirType
 .db $B9,$50
	lda	#$29
 .db $1F
	sta	<Scroll_ScrPassed
	sta	<Scroll_ScrUnk
	jmp	jpCDC1
brCDED:
	rts
brCDEE:
	lda	<ScrollY
	bne	brCDED
	lda	<Scroll_DirType
	and	#$1F
	tay
	lda	<Scroll_ScrUnk
	bne	brCE04
 .db $B9,$51
	lda	#$25
 .db $1
	bne	brCE0C
	beq	brCE2B
brCE04:
	lda	<Scroll_ScrPassed
	beq	brCE2B
 .db $C5,$2A
	bne	brCE7B
brCE0C:
 .db $C8,$B9,$50
	lda	#$29
 .db $C0
	beq	brCE7B
brCE14:
	sta	<ILC_Low
	lda	#$0
	sta	<ILC_High
 .db $B9,$50
	lda	#$29
 .db $1F
	sta	<r12
	lda	#$1
	sta	<r13
	lda	#$1
	sta	<Temp2
	bne	brCE4A
brCE2B:
 .db $B9,$50
	lda	#$88
 .db $30
	lsr	A
	and	#$C0
	beq	brCE7B
	eor	#$C0
	sta	<ILC_Low
 .db $B9,$50
	lda	#$29
 .db $1F
	sta	<ILC_High
	sta	<r12
	lda	#$FF
	sta	<r13
	lda	#$2
	sta	<Temp2
brCE4A:
	lda	<Temp1
 .db $25
	bpl	brCE3F
 .db $2B,$84
	bpl	brCE0C
 .db $50
	lda	#$29
 .db $E0
	ora	<ILC_Low
	sta	<Scroll_DirType
	lda	<ILC_High
	sta	<Scroll_ScrPassed
	lda	<r12
	sta	<Scroll_ScrUnk
	lda	<ScrPos
	clc
 .db $65,$13
	sta	<ScrPos
	sta	<Next_Screen_Pos
	sta	$348
	lda	<Temp2
	sta	<MM_Direction2
	lda	#$0
	jsr	jsFFB7
	jmp	jpCE7C
brCE7B:
	rts
jpCE7C:
	lda	<Temp1
	lsr	A
	lsr	A
	lsr	A
	lsr	A
	sta	<r28
	and	#$4
	lsr	A
	lsr	A
	sta	<ILC_High
	tax
brCE8B:
	lda	datD0C8,x
	sta	<Tile_ScrollX
	jsr	jsC3B8
	jsr	jsF32D
	lda	<r37
	beq	brCEA0
	lda	<r28
	and	#$4
	beq	brCEA3
brCEA0:
	jsr	jsC39D
jpCEA3:
brCEA3:
	lda	<r28
	and	#$4
	beq	brCED3
	lda	<ScrollX
	clc
 .db $69,$4
	sta	<ScrollX
	cmp	#$F0
 .db $90,$4,$69,$F
	sta	<ScrollX
	lda	r360
	sec
	sbc	#$80
	sta	$360
	lda	r378
	sbc	#$3
	sta	$378
 .db $B0,$36
	sbc	#$F
	sta	$378
	jmp	jpCF01
brCED3:
	lda	<ScrollX
	sec
	sbc	#$4
	sta	<ScrollX
 .db $B0,$4
	sbc	#$F
	sta	<ScrollX
	lda	<r37
	beq	brCEE7
	jsr	jsD04F
brCEE7:
	lda	r360
	clc
 .db $69,$80
	sta	$360
	lda	r378
 .db $69,$3
	sta	$378
	cmp	#$F0
 .db $90
	ora	<r69
 .db $F
	sta	$378
jpCF01:
	jsr	jsCF94
	lda	<ILC_High
	pha
	lda	#$4
	sta	<r9F
	jsr	jsC38F
	lda	<rF6
	pha
	lda	#$12
	jsr	jsFF3D
	jsr	jsDF5E
	pla
	sta	<rF6
	jsr	jsFF43
	lda	#$1
	sta	$300
	lda	#$0
	sta	<r95
	jsr	jsFF22
	pla
	sta	<ILC_High
	inc	<r95
	lda	<ScrollX
	sta	<ScrollYUnk
	beq	brCF39
	jmp	jpCEA3
brCF39:
	lda	r378
	and	#$F8
	sta	$378
	lda	<Scroll_DirType
	and	#$20
	beq	brCF5C
	lda	<Scroll_DirType
	and	#$3F
	sta	<Scroll_DirType
	lda	#$0
	sta	<Tile_ScrollX
	inc	<Next_Screen_Pos
brCF53:
	lda	#$1
	sta	<r28
	lda	#$1
	jsr	jsFFB7
brCF5C:
	rts
brCF5D:
jpCF5D:
	lda	#$8
	sta	<r28
	lda	#$0
	sta	<ILC_High
	ldy	<Level
	lda	<Next_Screen_Pos
 .db $D9,$EC
	bne	brCF5D
 .db $51
	jsr	jsCF94
	lda	<Tile_ScrollX
brCF73:
	bpl	brCF93
	lda	#$1D
	sta	<Tile_ScrollX
	inc	<Next_Screen_Pos
	ldy	<Level
	lda	<Next_Screen_Pos
 .db $D9,$DC
	bne	brCF53
 .db $F,$B9,$EC
	bne	brCF0D
 .db $24
	ldy	#$3F
	lda	#$0
brCF8D:
 .db $99,$80,$6
	dey
	bpl	brCF8D
brCF93:
	rts

jsCF94:
	lda	<ScrollX
	sec
 .db $E5,$45
brCF99:
	bpl	brCFA0
	eor	#$FF
	clc
 .db $69,$1
brCFA0:
	and	#$F
	sta	<ILC_Low
	beq	brCF93
	lda	<r28
	and	#$4
	beq	brCFB1
	lda	<ScrollYUnk
	jmp	jpCFB5
brCFB1:
	lda	<ScrollYUnk
	eor	#$FF
jpCFB5:
	and	#$7
	clc
 .db $65
	bpl	brD005
	lsr	A
	lsr	A
	beq	brCF93
brCFBF:
	ldx	<ILC_High
	lda	<Tile_ScrollX
	and	#$1
 .db $DD
	dex
	bne	brCF99
 .db $F
	lda	<rF6
	pha
	jsr	jsD583
	pla
	sta	<rF6
	jsr	jsFF43
	jmp	jpCFE5
brCFD9:
	lda	<rF6
	pha
	jsr	jsD674
	pla
	sta	<rF6
	jsr	jsFF43
jpCFE5:
	ldx	<ILC_High
	lda	<Tile_ScrollX
	clc
 .db $7D
	dec	<rD0
	sta	<Tile_ScrollX
	rts

jsCFF0:
	ldx	#$0
brCFF2:
	lda	$A9E0,x
 .db $30,$56,$CD
	pha
 .db $3
	bne	brD047
	lda	$A9E1,x
 .db $C5,$1
	bne	brD04D
	lda	$A9E2,x
	sta	<Next_Screen_Pos
	sta	<ScrPos
	sta	$348
 .db $BC,$E3
	lda	#$A5
	and	#$29
 .db $1F,$DD,$E3
	lda	#$90
 .db $F
	lda	#$2
	sta	<MM_Direction2
 .db $B9,$50
	lda	#$29
 .db $1F
	sta	<Scroll_ScrPassed
	lda	#$2
	bne	brD02E
	lda	#$0
	sta	<Scroll_ScrPassed
	lda	#$1
brD02E:
	sta	<MM_Direction2
 .db $B9,$50
	lda	#$48
	and	#$1F
	sta	<Scroll_ScrUnk
	pla
	and	#$E0
 .db $1D,$E3
	lda	#$85
	and	#$A9
 .db $0
	jsr	jsFFB7
	sec
	rts
brD047:
	inx
	inx
	inx
	inx
	bne	brCFF2
brD04D:
	clc
	rts

jsD04F:
	ldy	#$17
brD051:
 .db $B9,$0,$3
	cmp	#$D
	bne	brD078
	lda	#$0
 .db $99,$70
	ora	<Obj_Next
	pha
 .db $3,$99
	pha
 .db $3,$B9
	rts
 .db $3
	clc
 .db $69,$80,$99
	rts
 .db $3,$B9
	sei
 .db $3,$69,$3,$99
	sei
 .db $3
	cmp	#$F0
 .db $90,$3
brD078:
	jsr	jsF2FE
	dey
	bne	brD051
	rts

jsD07F:
	lda	<Level
	cmp	#$6
	beq	brD0B0
	cmp	#$1
	bne	brD0AF
	lda	#$8C
	sta	<Temp0
	lda	<Scroll_DirType
	cmp	#$29
	beq	brD09B
	cmp	#$2A
	bne	brD0AF
	lda	#$8F
	sta	<Temp0
brD09B:
	ldy	#$2
brD09D:
	lda	<Temp0
 .db $99
	beq	brD0A7
	lda	#$0
 .db $99,$F8
	ora	<r99
 .db $F4
	ora	<rC6
 .db $0
	dey
	bpl	brD09D
brD0AF:
	rts
brD0B0:
	lda	<Scroll_DirType
	cmp	#$24
	bne	brD0AF
	lda	#$F
	ldy	#$3
brD0BA:
 .db $99,$C,$6,$99,$2C,$6
	dey
	bpl	brD0BA
 .db $84
	clc
	rts
brD0C6:

datD0C8:

jsD0CA:
 .db $FF,$1,$1D,$0,$1,$0,$0,$0,$0
	and	#$0
 .db $0,$0,$0,$0,$0,$0,$80,$0,$0,$0,$0,$0,$0,$0,$16,$0
 .db $0,$0,$0,$0,$0,$0,$3,$0,$0,$0,$0,$0,$0,$0,$1D,$0
 .db $0,$0,$0,$0,$0,$0,$4,$0,$0,$0,$0

jsD0FC:
	lda	#$0
	sta	<r9D
	lda	<Level
 .db $A,$A,$A
	tax
	lda	datD231,x
	sta	$7D0
	lda	datD232,x
	sta	$7D1
	lda	datD233,x
	sta	<r22
	lda	datD234,x
	sta	<ILC_Low
	lda	#$3
	sta	<ILC_High
	lda	#$25
	jsr	jsEC5D
jpD125:
brD125:
 .db $BC
	and	<rD2,x
	jsr	jsD829
	lda	#$FF
	sta	<r1C
brD12F:
	lda	#$0
	sta	<r95
	jsr	jsFF22
	inc	<r95
	inc	<r9D
	lda	<r9D
	and	#$3
	bne	brD12F
	inx
	dec	<ILC_High
	beq	brD16A
	lda	SoundRAM+209
	sec
	sbc	#$40
	sta	$7D1
	lda	SoundRAM+208
	sbc	#$0
	sta	$7D0
	lda	<ILC_Low
brD158:
	eor	#$2
	sta	<ILC_Low
	and	#$2
	beq	brD125
	lda	<r22
	sec
	sbc	#$8
	sta	<r22
	jmp	jpD125
brD16A:
	rts

jsD16B:
	ldy	<Level
	lda	r348
 .db $D9,$1,$D3
	beq	brD16A
	lda	#$0
	sta	<r9D
	lda	<Level
	sta	<Temp0
	cmp	#$E
	bne	brD18A
	ldy	<ScrPos
brD184:
 .db $B9,$93,$D7
brD186:
	sta	<Temp0
	sta	<r27
brD18A:
	lda	<Temp0
 .db $A,$A
	clc
 .db $65,$0
	tax
	lda	datD2B1,x
	sta	$7D0
	lda	datD2B2,x
	sta	$7D1
	lda	datD2B3,x
	sta	<r22
	lda	datD2B4,x
	sta	<ILC_Low
	lda	#$3
	sta	<ILC_High
	lda	datD2B5,x
	sta	<r12
	lda	<rF0
	bne	brD1BA
	lda	#$25
	jsr	jsEC5D
jpD1BA:
brD1BA:
	ldy	<r12
	jsr	jsD829
	ldx	#$0
	jsr	jsD8C7
	ldy	#$0
	sty	$7D2
	sty	$7D7
brD1CC:
 .db $B9,$D4,$7,$99,$D3,$7,$C8,$C0,$4
	bne	brD1CC
	ldy	#$0
brD1D9:
 .db $B9,$D9,$7,$99,$D7,$7,$C8,$C0,$6
	bne	brD1D9
	sta	<r1C
	lda	<rF0
	beq	brD1F6
	lda	#$0
	sta	<r1C
	ldx	#$50
	jsr	jsC29C
	jmp	jpD207
brD1F6:
	lda	#$0
	sta	<r95
	jsr	jsFF22
	inc	<r95
	inc	<r9D
	lda	<r9D
	and	#$3
	bne	brD1F6
jpD207:
	dec	<ILC_High
	beq	brD230
	lda	SoundRAM+209
	clc
 .db $69
	rti
	sta	$7D1
	lda	SoundRAM+208
 .db $69,$0
	sta	$7D0
	lda	<ILC_Low
brD21E:
	eor	#$2
	sta	<ILC_Low
	and	#$2
	bne	brD1BA
	lda	<r22
	clc
 .db $69
	php
	sta	<r22
	jmp	jpD1BA
brD230:
	rts

datD231:

datD232:

datD233:

datD234:
 .db $22,$DE,$2F,$3,$E2,$E2,$E3,$0,$22,$DE,$2F,$3
	jmp	($6F64)
brD24C:
 .db $0,$22,$DE,$2F,$3,$5F,$5F,$0,$0,$22,$DE,$2F,$3,$0,$0,$0
 .db $0,$22,$DE,$2F,$3,$C0,$C0,$C1,$0,$22,$DE,$2F,$3,$1,$1
	bpl	brD261
brD261:
brD268:
 .db $22,$DE,$2F,$3,$50,$50,$51,$0,$22,$DE,$2F,$3,$D
	ora	<Temp0
 .db $0,$22,$DE,$2F,$3,$65,$65,$6D,$0,$22,$DE,$2F,$3
	tax
	tax
 .db $0,$0,$22,$DE,$2F,$3,$16,$15,$11,$0,$22,$1E,$27,$1,$65,$65
 .db $6D,$0,$22,$DE,$2F,$3,$21,$24,$2C,$0,$22,$DE,$2F,$3,$8B,$8B
 .db $15,$0,$22,$DE,$2F,$3,$E2,$E2,$E3,$0,$22,$DE,$2F,$3,$72,$72

datD2B1:

datD2B2:
 .db $7B,$0,$22,$41

datD2B3:
	jsr	jsCA02
 .db $22,$41
 .db $22,$41
 .db $22,$41
 .db $22,$41
 .db $22,$41
	jsr	jsF802
 .db $22,$41
 .db $22,$41
 .db $22,$41
 .db $22,$41
 .db $22,$41
 .db $21,$81
	clc
 .db $0,$A,$22,$41
 .db $22,$41
 .db $22,$41
	jsr	jsCA02
 .db $22,$41
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$1B
	clc
 .db $0,$7

jsD311:
	lda	#$0
	sta	<r95
	jsr	jsC3F1
	inc	<r1B
	jsr	jsC38F
	jsr	jsC39D
	jsr	jsC3B8
	jsr	jsFF22
	jsr	jsC2D1
	jsr	jsF3F2
	lda	<ScrPos
	sta	<Next_Screen_Pos
	sta	$348
	ldy	<Level
 .db $B9,$C2,$D4
	sta	<r27
brD33A:
	jsr	jsD4E2
	lda	<rFF
	ora	#$4
	sta	$2000
	ldx	#$0
	stx	<r1A
	jsr	jsC29C
	lda	<rFF
	sta	$2000
	lda	<Next_Screen_Pos
 .db $C5,$F9
	bne	brD364
	inc	<Tile_ScrollX
	lda	<Tile_ScrollX
	and	#$1F
	sta	<Tile_ScrollX
	bne	brD33A
	inc	<Next_Screen_Pos
	bne	brD33A
brD364:
	lda	<Level
	sta	<rF6
	jsr	jsFF43
	ldy	#$F
brD36D:
 .db $B9
	dey
	lda	#$99
 .db $B2,$D4,$99,$30,$6,$C0,$4,$B0,$E,$B9
	tya
	lda	#$99
	beq	brD388
	lda	#$0
 .db $99,$F4
	ora	<r99
 .db $F8
	ora	<r88
	bpl	brD36D
	lda	BGPalW
	sta	$630
	lda	$A980
	sta	<Mapping_BGCHR0
	lda	$A981
	sta	<Mapping_BGCHR1
	ldy	<ScrPos
 .db $B9,$0,$AC
	sta	<Obj_Next
	sta	<Obj_Prev
	lda	#$1
	sta	<r28
	sta	<MM_Direction2
	lda	#$4C
	sta	$3A8
	lda	#$1
	sta	$3C0
	ldy	<Scroll_DirType
 .db $84,$0,$B9,$50
	lda	#$29
 .db $1F
	sta	<Scroll_ScrUnk
	lda	#$0
	sta	<Scroll_ScrPassed
 .db $B9,$50
	lda	#$29
 .db $E0
	ora	<Temp0
	sta	<Scroll_DirType
	and	#$20
	beq	brD3DD
	lda	<Scroll_DirType
	and	#$3F
	sta	<Scroll_DirType
	lda	#$1
	bne	brD3E3
brD3DD:
	lda	<ScrPos
	sta	<Next_Screen_Pos
	lda	#$0
brD3E3:
	jsr	jsFFB7
	ldy	<Temp0
 .db $B9
	pla
	lda	#$10
 .db $3
	jsr	jsD16B
brD3F0:
	jsr	jsF32D
	ldy	<Level
 .db $B9,$D2,$D4
	jsr	jsEC5B
	lda	#$1
	sta	<rF5
	jsr	jsFF43
	ldy	<Weapon
 .db $B9,$F1
	sta	<r85
 .db $ED
	lda	<Weapon
 .db $A,$A
	tay
 .db $B9,$4B
	sta	<r8D
 .db $31,$6,$B9
 .db $32,$6,$B9,$4D
	sta	<r8D
 .db $33,$6
	lda	<ScrollY
	sta	<ScrollXUnk
	lda	<ScrollX
	sta	<ScrollYUnk
	lda	r378
	sta	<MM_PosYC
	lda	r348
	sta	<MM_ScrPos
	lda	r330
	sta	<MM_PosXC
	lda	#$B
	sta	<rF5
	jsr	jsFF43
	lda	<Level
	cmp	#$E
	bne	brD450
	lda	<ScrPos
	cmp	#$3
	bne	brD450
brD450:
	jsr	jsD474
	jsr	jsC2DB
	jsr	jsFF22
	lda	#$0
	sta	<r1B
	jmp	jpC3EB
	lda	<rF5
	pha
	lda	<rF6
	pha
	jsr	jsD311
	inc	<r95
	pla
	sta	<rF6
	pla
	sta	<rF5
	jmp	jpFF43

jsD474:
	lda	<Level
	cmp	#$B
	bne	brD4B1
	lda	<r69
	cmp	#$4
	bne	brD4B1
	lda	#$1B
	sta	<rF5
	jsr	jsFF43
	ldy	#$36
	ldx	#$28
	stx	<r43
brD48D:
 .db $B9,$7F,$8F
	sta	$6BC,x
 .db $B9,$80,$8F
	sta	$6BD,x
 .db $B9,$81,$8F
	sta	$6BE,x
 .db $B9,$82,$8F
	sta	$6BF,x
	dey
	dey
	dey
	dey
	dey
	dey
	dex
	dex
	dex
	dex
	bne	brD48D
brD4B1:
	rts
 .db $F,$F,$2C,$11,$F,$F
 .db $F
 .db $F
 .db $1,$2,$3,$4
	ora	<Temp6
 .db $7
	php
	ora	#$A
	php
 .db $C,$D,$E,$E,$0,$2,$1
	ora	<Temp3
 .db $6,$7,$4
	php
	php
	php
	php
	ora	#$9
	ora	#$9

jsD4E2:
	ldy	<Next_Screen_Pos
	jsr	jsD7A3
	lda	#$20
	sta	$780
	lda	<Tile_ScrollX
	sta	$781
	lsr	A
	lsr	A
	sta	<r22
	lda	#$1D
	sta	$782
	lda	#$0
	sta	<Temp3
	sta	<Temp4
	lda	<Tile_ScrollX
	and	#$3
	sta	<Temp5
	jsr	jsD6C0
	ldx	<Temp3
	ldy	<Temp5
 .db $B9,$E0
	ora	<r9D
 .db $83,$7,$B9,$E4
	ora	<r9D
 .db $84,$7
	lda	<r22
	cmp	#$38
 .db $B0,$12,$B9
	inx
	ora	<r9D
	sta	<Temp7
 .db $B9,$EC
	ora	<r9D
	stx	<Temp7
	inx
	inx
	inx
	inx
	stx	<Temp3
	lda	<Temp5
	lsr	A
 .db $90,$31
	tay
	ldx	<r22
	lda	AttrTab,x
 .db $39,$7F,$D5
	sta	<Temp0
	lda	<ILC_Low
 .db $39,$81,$D5
	ora	<Temp0
	sta	$640,x
	ldx	<Temp4
	sta	$7A4,x
	lda	#$23
	sta	$7A1,x
	lda	#$C0
	ora	<r22
	sta	$7A2,x
	lda	#$0
	sta	$7A3,x
	inx
	inx
	inx
	inx
	stx	<Temp4
	lda	<r22
	clc
 .db $69
	php
	sta	<r22
	cmp	#$40
 .db $90
	sty	<rA9,x
	tay
	lda	#$FF
 .db $99,$80,$7
	sta	<r1A
	rts
 .db $CC,$33,$33,$CC

jsD583:
	ldy	<Next_Screen_Pos
	jsr	jsD7A3
	lda	<Tile_ScrollX
	and	#$1C
 .db $A
	sta	<r22
	lda	#$0
	sta	<Temp3
	sta	<Temp6
	lda	<Tile_ScrollX
	and	#$3
	tax
	eor	#$1
	tay
	lda	datD6A4,x
	sta	<Temp4
 .db $B9
	ldy	<rD6
	sta	<Temp5
	lda	<Tile_ScrollX
	lsr	A
	lsr	A
	tay
 .db $B9,$B8
	dec	<r8D,x
 .db $80,$7
	sta	$7D0
 .db $B9,$B0
	dec	<r1D,x
	tay
	dec	<r8D,x
brD5BC:
 .db $81,$7
	sta	$7D1
	lda	#$1F
	sta	$782
	sta	$7D2
	lda	#$23
	sta	$7A3
	sta	$7F3
	lda	#$C0
	ora	<r22
	sta	$7A4
	sta	$7F4
	lda	#$7
	sta	$7A5
	sta	$7F5
brD5E3:
	jsr	jsD6C0
	lda	#$4
	sta	<Temp7
	lda	<Temp4
	pha
	lda	<Temp5
	pha
brD5F0:
	ldx	<Temp3
	ldy	<Temp4
 .db $B9,$E0
	ora	<r9D
 .db $83,$7
	ldy	<Temp5
 .db $B9,$E0
	ora	<r9D
 .db $D3,$7
	inc	<Temp3
	inc	<Temp4
	inc	<Temp5
	dec	<Temp7
	bne	brD5F0
	pla
	sta	<Temp5
	pla
	sta	<Temp4
	lda	<Tile_ScrollX
	and	#$3
	lsr	A
	tay
	ldx	<r22
	lda	AttrTab,x
 .db $39
	ldy	#$D6
	sta	<Temp0
	lda	<ILC_Low
 .db $39
	ldx	#$D6
	ora	<Temp0
	sta	$640,x
	ldx	<Temp6
	sta	$7A6,x
	sta	$7F6,x
	inc	<Temp6
	inc	<r22
	lda	<r22
	and	#$7
	bne	brD5E3
	dec	<r22
	lda	<r22
	and	#$38
	sta	<r22
	ldy	<Next_Screen_Pos
 .db $C8
	jsr	jsD7A3
	jsr	jsD6C0
	ldy	<Temp4
 .db $B9,$E0
	ora	<r8D
 .db $83,$7
	ldy	<Temp5
 .db $B9,$E0
	ora	<r8D
brD65E:
 .db $D3,$7
	lda	<r28
	and	#$4
	lsr	A
	lsr	A
	tax
 .db $BC,$AC
	dec	<rA9,x
 .db $FF,$99,$80,$7
	sta	<r19
brD670:
 .db $99
	bne	brD67A
	rts

jsD674:
	ldy	#$2E
brD676:
 .db $B9
	bne	brD680
brD67A:
brD67B:
 .db $99,$80,$7
	dey
	bpl	brD676
	lda	SoundRAM+129
	eor	#$20
	sta	$781
	lda	#$23
	sta	$7A3
	lda	<r28
	and	#$4
	lsr	A
	lsr	A
	eor	#$1
	tax
 .db $BC,$AC
	dec	<rA9,x
 .db $FF,$99,$80,$7
	sta	<r19
	rts
	beq	brD6B1
 .db $F
	beq	brD6A5
brD6A5:
 .db $4
	php
 .db $C,$0
brD6B1:
 .db $23,$2E,$2A,$1F,$0,$80,$0,$80,$0,$80,$0,$80
brD6BE:
 .db $21,$22,$22,$23,$23

jsD6C0:
	jsr	jsD758
	ldy	#$3
 .db $84,$2
	lda	#$0
	sta	<ILC_Low
jpD6CB:
	ldy	<Temp2
 .db $BE,$8B,$D7,$B1,$0
	jsr	jsD703
	tay
 .db $B9,$0
	lda	datE09D
	ora	<rB9
 .db $0,$AE
	sta	$5E1,x
 .db $B9,$0,$AF
	sta	$5E4,x
 .db $B9,$0,$B0
	sta	$5E5,x
 .db $B9,$0,$B1
	and	#$3
	ora	<ILC_Low
	sta	<ILC_Low
	dec	<Temp2
 .db $30,$7,$6
	bpl	brD704
	bpl	brD74C
 .db $CB
	dec	<r60,x

jsD703:
	pha
brD704:
	tay
	lda	<r59
	bne	brD756
	ldy	<r43
	beq	brD72D
brD70D:
 .db $B9,$BC,$6,$C5,$47
	bne	brD727
 .db $B9
	lda	datC506,x
 .db $22
	bne	brD727
 .db $B9,$BE,$6,$C5,$2
	bne	brD727
	pla
 .db $B9,$BF,$6
	rts
brD727:
	dey
	dey
	dey
	dey
	bne	brD70D
brD72D:
	lda	<r1E
	bne	brD756
	lda	<r22
	and	#$1
 .db $A,$A
	ora	<Temp2
	tay
 .db $B9,$B2,$F2
	sta	<RandDig+2
	lda	<r47
	and	#$1
	tay
	lda	<r22
	lsr	A
 .db $19,$C2,$F2
	tay
brD74C:
 .db $B9,$80,$6,$25
	inc	<rF0
 .db $4
	pla
	lda	#$0
	pha
brD756:
	pla
	rts

jsD758:
	lda	<Level
	cmp	#$E
	bne	brD768
	ldy	<r47
 .db $B9,$93,$D7
	sta	<r27
	jmp	jpD76A
brD768:
	lda	<r27
jpD76A:
 .db $C5,$F6
	beq	brD773
	sta	<rF6
	jsr	jsFF43
brD773:
	lda	#$0
	sta	<Temp1
	ldy	<r22
 .db $B1
 .db $1,$A
	rol	<Temp1
	sta	<Temp0
	lda	<Temp1
	clc
 .db $69,$B2
	sta	<Temp1
	rts
 .db $0,$2
	php
 .db $A,$FC,$F3,$CF,$3F,$E,$E,$E,$E,$E,$E,$E,$E,$0,$1,$2
 .db $3,$4
	ora	<Temp6
 .db $7

jsD7A3:
	lda	<Level
 .db $C5,$F6
	beq	brD7AE
	sta	<rF6
	jsr	jsFF43
brD7AE:
 .db $C0,$80,$90,$2
	ldy	#$0
 .db $B9,$0
	lda	#$84
 .db $47
	pha
	lda	#$0
	sta	<Temp0
	pla
 .db $A
	rol	<Temp0
 .db $A
	rol	<Temp0
 .db $A
	rol	<Temp0
 .db $A
	rol	<Temp0
 .db $A
	rol	<Temp0
 .db $A
	rol	<Temp0
	sta	<r20
	lda	<Temp0
	clc
 .db $69,$B6
	sta	<r21
	rts
	lda	#$8
	sta	$7D0
	lda	r378,x
	and	#$F0
 .db $A,$2E
brD7E7:
	bne	brD7F0
 .db $A,$2E
	bne	brD7F4
	sta	$7D1
brD7F0:
	lda	r330,x
	and	#$F0
	lsr	A
	lsr	A
	lsr	A
 .db $D,$D1,$7
	sta	$7D1
	jsr	jsD829
	lda	#$FF
	sta	<r1C
	rts
	lda	#$8
	sta	$7D0
	lda	r378,x
	and	#$F0
 .db $A,$2E
brD812:
	bne	brD81B
 .db $A,$2E
	bne	brD81F
	sta	$7D1
brD81B:
	lda	r330,x
	and	#$F0
	lsr	A
	lsr	A
	lsr	A
 .db $D,$D1,$7
	sta	$7D1

jsD829:
	lda	<rF6
	pha
	lda	<r27
	sta	<rF6
	jsr	jsFF43
	lda	SoundRAM+208
	sta	$7D5
	lda	SoundRAM+209
	ora	#$20
	sta	$7D6
	lda	#$1
	sta	$7D2
	sta	$7D7
brD84A:
 .db $B9,$0
	lda	datD38D
 .db $7,$B9,$0,$AE
	sta	$7D4
 .db $B9,$0,$AF
	sta	$7D8
brD85B:
 .db $B9,$0,$B0
	sta	$7D9
 .db $B9,$0,$B1
	and	#$3
	sta	<Temp0
	ldy	<ILC_Low
	beq	brD873
brD86C:
 .db $6,$0,$6,$0
	dey
	bne	brD86C
brD873:
	ldy	<ILC_Low
 .db $B9,$8F,$D7
brD878:
	ldy	<r22
 .db $39
	rti
 .db $6
	ora	<Temp0
	sta	$7DD
 .db $99
	rti
 .db $6
	lda	#$23
	sta	$7DA
	lda	<r22
	ora	#$C0
	sta	$7DB
	lda	#$0
	sta	$7DC
	lda	#$FF
	sta	$7DE
	pla
	sta	<rF6
	jsr	jsFF43
	rts
	lda	r330,x
	lsr	A
	lsr	A
	lsr	A
	lsr	A
	pha
	and	#$1
	sta	<ILC_Low
	pla
	lsr	A
	sta	<r22
	lda	r378,x
	lsr	A
	lsr	A
	pha
	and	#$38
	ora	<r22
	sta	<r22
	pla
	lsr	A
	and	#$2
	ora	<ILC_Low
	sta	<ILC_Low
	rts

jsD8C7:
	lda	<r22
	and	#$1
 .db $A,$A
	ora	<ILC_Low
	tay
 .db $B9,$B2,$F2
	sta	<Temp0
	lda	r348,x
	and	#$1
	tay
	lda	<r22
	lsr	A
 .db $19,$C2,$F2
	tay
 .db $B9,$80,$6
	ora	<Temp0
 .db $99,$80,$6
	rts

jsD8EB:
	lda	<r46
	beq	brD934
	lda	<ScrPos
	and	#$1
	tay
 .db $B9,$C2,$F2
	sta	<Temp0
	lda	<ScrollY
	lsr	A
	lsr	A
	lsr	A
	lsr	A
	lsr	A
	and	#$7
	clc
brD903:
 .db $69,$4
	cmp	#$8
	and	#$7
	sta	<Temp1
 .db $B0,$6
	lda	<Temp0
	eor	#$20
	sta	<Temp0
	lda	<Temp1
	and	#$1
brD917:
	tay
 .db $B9
	and	<rD9,x
	sta	<Temp2
	lda	<Temp1
	lsr	A
	ora	<Temp0
	tay
	ldx	#$8
brD925:
brD927:
brD92F:
 .db $B9,$80,$6,$25,$2,$99,$80,$6,$C8,$C8,$C8,$C8
	dex
	bne	brD925
brD934:
	rts
	beq	brD946
	lda	<r19
	ora	<r1A
	bne	brD934
	lda	<r1D
	bpl	brD934
	and	#$7F
	sta	<r1D
	and	#$3F
	sta	<r22
	ldy	#$0
	lda	<r1D
	and	#$40
	beq	brD95B
	ldy	#$4
	lda	<Scroll_DirType
	and	#$20
	beq	brD95B
	ldy	#$8
brD95B:
 .db $84
	bpl	brD903
 .db $22
	pha
	and	#$7
 .db $A,$A
	sta	$781
	lda	#$2
	sta	$780
	pla
	and	#$F8
brD97A:
 .db $A,$2E,$80,$7,$A,$2E,$80,$7,$A,$2E,$80,$7,$A,$2E,$80,$7
 .db $D,$81,$7
	sta	$781
	clc
 .db $69
 .db $7,$69
 .db $7,$69
 .db $7
	lda	<r22
	ora	#$C0
	sta	$79D
	lda	SoundRAM+128
	ora	<ILC_Low
	sta	$780
	sta	$787
	sta	$78E
	sta	$795
	ora	#$3
	sta	$79C
	lda	#$3
	sta	$782
	sta	$789
	sta	$790
	sta	$797
	lda	#$0
	sta	$79E
	ldy	<r23
	jsr	jsD7A3
	jsr	jsD6C0
	ldx	#$3
brD9CF:
	lda	r5E0,x
	sta	$783,x
	lda	r5E4,x
	sta	$78A,x
brD9DB:
	lda	r5E8,x
	sta	$791,x
brD9E1:
	lda	r5EC,x
	sta	$798,x
brD9E7:
	dex
	bpl	brD9CF
	lda	<ILC_Low
	sta	$79F
	stx	$7A0
	lda	<r22
	and	#$3F
	cmp	#$38
 .db $90,$B
	ldx	#$4
brD9FC:
	lda	SoundRAM+156,x
	sta	$78E,x
	dex
	bpl	brD9FC
	stx	<r19
	rts
brDA08:
	lda	#$0
	sta	<r1E
	lda	<ILC_Low
	ora	#$3
	sta	$780
	lda	#$C0
	sta	$781
brDA18:
	ldy	#$3F
	sty	$782
brDA1D:
 .db $B9,$80,$6,$99,$83,$7
	lda	#$0
brDA25:
 .db $99,$80,$6
	dey
	bpl	brDA1D
	sty	$7C3
 .db $84,$19
brDA30:
	rts

jsDA31:
	lda	#$4
	sta	<ILC_Low
	lda	<NTMirroring
	beq	brDA3B
 .db $6
	bpl	brD9E1
	bpl	brDA47
	lda	<r19
	ora	<r1A
	bne	brDA30

jsDA47:
brDA47:
	lda	<r1E
	beq	brDA30
	cmp	#$40
	beq	brDA08
	and	#$7F
	sta	<r1E
	ldy	<r23
	jsr	jsD7A3
	lda	<r1E
	sta	<r22
	pha
	and	#$7
 .db $A,$A
	sta	$781
	lda	#$2
	sta	$780
	pla
	and	#$F8
brDA6E:
 .db $A,$2E,$80,$7,$A,$2E,$80,$7,$A,$2E,$80,$7,$A,$2E,$80,$7
 .db $D,$81,$7
	sta	$781
	clc
 .db $69
 .db $7,$69
 .db $7,$69
 .db $7
	lda	SoundRAM+128
	ora	<ILC_Low
	sta	$780
	sta	$793
	sta	$7A6
	sta	$7B9
	lda	#$F
	sta	$782
	sta	$795
	sta	$7A8
	sta	$7BB
brDAB1:
	jsr	jsD6C0
	lda	<r22
	and	#$3
	tax
 .db $BC,$F8,$DA
	ldx	#$0
brDABE:
	lda	r5E0,x
 .db $99,$80,$7,$C8
	inx
	txa
	and	#$3
	bne	brDABE
	tya
	clc
 .db $69,$F
	pha
	ldy	<r22
	lda	<ILC_Low
 .db $99,$80,$6
	pla
	tay
 .db $C0
	jmp	jpE190
	inc	<r1E
	inc	<r22
	lda	<r22
	and	#$3
	bne	brDAB1
	lda	#$FF
	sta	$7CC
	ldy	<r22
 .db $C0,$39,$90,$3
	sta	$7A6
	sta	<r19
	rts
 .db $3,$7,$B,$F
	lda	<rF5
	pha
	lda	<rF6
	pha
	lda	#$3F
	sta	<r22
brDB06:
	lda	<ILC_Low
	pha
	jsr	jsD95D
	pla
	sta	<ILC_Low
	jsr	jsC298
	dec	<r22
	bpl	brDB06
	lda	#$0
	sta	<r22
	pla
	sta	<rF6
	pla
	sta	<rF5
	jmp	jpFF43
	lda	<rF5
	pha
	lda	<rF6
	pha
	lda	#$80
	sta	<r1E
brDB2D:
	lda	<ILC_Low
	pha
brDB30:
	jsr	jsDA47
	pla
	sta	<ILC_Low
	jsr	jsFF22
	lda	<r1E
	bne	brDB2D
	pla
	sta	<rF6
	pla
	sta	<rF5
	jmp	jpFF43
	ldx	#$AF
 .db $9A
jpDB49:
	ldx	#$0
	ldy	#$4
	lda	<RandDig,x
	and	#$2
brDB51:
	sta	<Temp0
	lda	<RandDig+1,x
	and	#$2
brDB57:
 .db $45,$0
	clc
	beq	brDB5D
	sec
brDB5D:
 .db $76,$E4
	inx
	dey
	bne	brDB5D
	jsr	jsDB6C
	jsr	jsFF22
	jmp	jpDB49

jsDB6C:
	lda	<r19
	ora	<r1A
	ora	<r1B
	bne	brDBD0
	lda	#$3
	sta	<PalAnim_PalHndCounter
brDB78:
	lda	<PalWrite_CtrlReg
	and	#$1
	sta	<Temp1
	lda	#$0
	sta	<PalWrite_CtrlReg
brDB82:
	ldx	<PalAnim_PalHndCounter
	lda	PalAnimID,x
	bpl	brDB8F
	and	#$7F
	tay
brDB8C:
	jsr	jsDBD1
brDB8F:
	dec	<PalAnim_PalHndCounter
	bpl	brDB82
	lda	<Temp1
	sta	<PalWrite_CtrlReg
	lda	CHRAnimID
	bpl	brDBD0
	and	#$7F
	tax
brDB9F:
 .db $BC,$B3,$DD
	lda	CHRAnimFrameC
brDBA6:
 .db $EE,$D2
	ora	<rD9
 .db $BC,$DD
	bne	brDBD0
	lda	#$0
	sta	$5D2
	lda	CHRAnimPhaseC
 .db $EE,$D1
	ora	<rD9
 .db $BB,$DD
	bne	brDBC2
	lda	#$0
	sta	$5D1
brDBC2:
 .db $BE
	lda	$98DD,x
	clc
 .db $6D,$D1
	ora	<rA8
 .db $B9,$BE,$DD
	sta	<Mapping_BGCHR0,x
brDBD0:
	rts

jsDBD1:
 .db $B9,$1,$DD
	tay
	lda	PALAnimFrameC,x
 .db $FE,$F8
	ora	<rD9
 .db $22,$DD
	bne	brDC1F
	lda	#$0
	sta	$5F8,x
	lda	PalAnimPhaseC,x
 .db $FE,$F4
	ora	<rD9
 .db $21,$DD
	bne	brDBF5
	lda	#$0
	sta	$5F4,x
brDBF5:
	tya
	clc
 .db $7D,$F4
	ora	<rAA
	lda	datDD23,x
	beq	brDC20
 .db $A,$7D,$23,$DD
	tax
	lda	<PalAnim_PalHndCounter
 .db $A,$A
	tay
	lda	#$3
	sta	<Temp0
brDC0E:
	lda	datDC26,x
 .db $99,$1,$6,$99,$21,$6,$C8
	inx
	dec	<Temp0
	bne	brDC0E
	inc	<Temp1
brDC1F:
	rts
brDC20:
	ldx	<PalAnim_PalHndCounter
	sta	$5F0,x
	rts

datDC26:
brDC2A:
 .db $0,$0,$0,$6,$1B,$B,$16,$1B,$B
	rol	<r1B
 .db $B
 .db $30,$3C,$2C,$30,$30,$3C,$30,$30,$30
 .db $F,$14,$4,$17,$14,$4,$27,$14,$4
	and	#$19
	ora	#$19
	ora	#$29
	ora	#$29
 .db $19
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0
 .db $2C
	bpl	brDC9A
	bpl	brDC8B
brDC8B:
 .db $1,$0,$F,$F
	bpl	brDCA0
 .db $11,$0,$F,$1
	bpl	brDCB6
brDC9A:
brDCA0:
 .db $C,$0,$C,$F,$F,$F,$F,$21,$11,$1,$11,$1,$21,$1,$21,$11
brDCB6:
 .db $11,$31,$21,$31,$21,$11,$21,$11,$31,$13,$1,$F,$13,$1,$A,$36
 .db $1B,$B,$37
	clc
	php
 .db $27
	clc
	php
 .db $7
	clc
	php
 .db $13,$1,$1A,$F,$21
	ora	#$6
 .db $F
	and	#$30
 .db $0
	ora	<MM_MoveType
 .db $0,$F,$31,$1C,$27,$31,$1C,$F
	rol	<ILC_High
 .db $F,$27
	rol	<Temp6
	rol	<Temp6
 .db $27,$6,$27
	rol	<MM_PosXC
 .db $2C
 .db $2C,$2C
	bpl	brDD1E
 .db $2C,$1C
	bpl	brDD06
 .db $2C,$1C,$25,$4,$F,$4,$F,$25,$F,$25,$4,$0,$6,$C,$12
	clc
brDD06:
 .db $1E,$1E,$1E,$1E,$1E,$22
	and	#$30
 .db $36,$3D,$44
	lsr	A
 .db $4F,$54,$5A,$5F,$65,$69,$6D,$73
	sei
 .db $7D,$82,$87
brDD1E:
	sty	$9292
 .db $3
	php
brDD23:

datDD23:
 .db $1,$2,$3,$31,$3
	php
	ora	<Temp6
 .db $7,$6,$3
	php
	php
 .db $12
	ora	#$A
 .db $3
	php
 .db $C,$D,$E,$D,$3
	php
	ora	#$A
	php
 .db $12,$1,$B,$1E,$1F,$4
	php
	plp
 .db $0,$4
	php
 .db $23,$24,$25
	plp
 .db $0,$3
	php
	rol	<r27
	plp
 .db $0,$4
	php
	plp
 .db $22,$21
	php
	plp
 .db $25,$24,$23,$0,$3
	php
	plp
 .db $27
	rol	<Temp0
 .db $2,$6
	and	#$2A
 .db $2B,$2,$4,$2C,$2D,$2E,$3
	php
 .db $2F,$30
	and	<MM_MoveType,x
 .db $2
	php
 .db $32,$33,$34,$3
	php
 .db $4,$B
	ora	#$A
 .db $1
	php
	sec
 .db $39,$1
	php
 .db $3A,$3B,$3
	php
	ora	#$A
 .db $4,$B,$2
	php
 .db $F
	bpl	brDDAA
 .db $2
	php
 .db $36,$37,$3C,$2
	php
 .db $3D,$3E,$3F,$2
	php
	rti
 .db $41,$42,$2
	php
brDDAA:
 .db $43,$44,$45,$3
	php
 .db $46,$47
	pha
 .db $47,$0,$6,$B,$11,$16,$1C,$21
	rol	<Temp2
 .db $4,$1
	stx	$FEFC
 .db $1,$4,$1
	stx	$2FC
 .db $4,$0
	ldy	<r70
 .db $72,$1,$4,$0,$B0
	jmp	($402)
 .db $0
	ldy	<r70
 .db $72,$1
	bpl	brDDDB
brDDDB:
 .db $9A,$6E,$1
	php
 .db $1,$EE,$6A,$3
	ora	<Temp0
 .db $80,$F4,$F6,$F2
	ldx	#$8F
 .db $9A
	lda	#$40
	sta	<MM_Gravity
 .db $58
	lda	#$1
	sta	<r96
	lda	#$DB
	sta	<r94
	lda	#$46
	sta	<r93
	lda	#$1
	jsr	jsFEF3
	lda	#$0
	sta	<ScrPos
	sta	<Scroll_DirType
	sta	$330
	sta	$348
	sta	$378
	sta	$390
	sta	<r95
	lda	#$17
	sta	<rF5
	lda	#$C
	sta	<rF6
	jsr	jsFF43
	ldx	#$0
	stx	<r14
	stx	<r15
	stx	<Joy_ButtonBits
	stx	<r17
	lda	#$1A
	jsr	jsEA98
	jsr	jsEA1E
	lda	#$1
	sta	$300
	lda	#$80
	sta	$528
	sta	$330
	sta	$378
	jsr	jsD311
	lda	<rBD
	ora	#$80
	sta	<rBD
	lda	<rBE
	ora	#$80
	sta	<rBE
	lda	#$80
	sta	<r2D
	lda	#$9C
	sta	<MM_HP
	lda	#$8
	sta	<MM_MoveType
	lda	#$DE
	sta	<r94
	lda	#$70
	sta	<r93
	lda	#$0
	jsr	jsFEF3
	jmp	jpFF0B
	ldx	#$DF
 .db $9A
jpDE73:
	lda	<r15
	and	#$2
	beq	brDE7F
	lda	<rA0
	eor	#$1
	sta	<rA0
brDE7F:
	lda	<rA0
	beq	brDE89
	jsr	jsFF22
	jmp	jpDE73
brDE89:
	lda	<MM_MoveType
	cmp	#$4
 .db $B0,$1D
	lda	<r54
	bne	brDEAC
	lda	<r14
	and	#$10
	beq	brDEAC
	lda	#$1
	sta	<rF5
	lda	#$8
	sta	<rF6
	jsr	jsFF43
	lda	#$29
	jsr	jsEC5D
brDEAC:
	lda	#$1B
	jsr	jsFF3D
	lda	#$1C
	jsr	jsFF3D
	lda	<Level
	sta	<rF6
	jsr	jsFF43
	jsr	jsC9DD
	lda	#$1B
	sta	<rF5
	lda	<Level
	sta	<rF6
	jsr	jsFF43
	jsr	jsDA31
	lda	<ScrollY
	sta	<ScrollXUnk
	lda	<ScrollX
	sta	<ScrollYUnk
	lda	r378
	sta	<MM_PosYC
	lda	r390
	sta	<r3F
	lda	r330
	sta	<MM_PosXC
	lda	r348
	sta	<MM_ScrPos
 .db $C5,$69,$90,$2
	sta	<r69
	lda	<Level
	bne	brDF1A
	lda	<ScrollY
	lsr	A
	and	#$3
	tay
	lda	<Scroll_DirType
	and	#$1F
	tax
	lda	datDF53,x
	bne	brDF15
	lda	<r9D
	lsr	A
	lsr	A
	lsr	A
	and	#$3
	tay
brDF15:
 .db $B9,$4F,$DF
	sta	<Mapping_BGCHR0
brDF1A:
	lda	#$4
	sta	<r9F
	jsr	jsC38F
	jsr	jsDF5E
	lda	#$0
	sta	<r95
	sta	<r73
	lda	<r15
	and	#$1
	beq	brDF47
	lda	<Mapping_SPRCHR0
	pha
	lda	<Mapping_SPRCHR1
	pha
	lda	#$C2
	sta	<Mapping_SPRCHR0
	lda	#$C3
	sta	<Mapping_SPRCHR1
	jsr	jsE4A6
	pla
	sta	<Mapping_SPRCHR1
	pla
	sta	<Mapping_SPRCHR0
brDF47:
	jsr	jsFF22
	inc	<r95
	jmp	jpDE73

datDF53:
 .db $80,$F4,$F6,$F2,$0,$0,$FF,$FF,$0,$0,$0,$0,$0,$0,$0

jsDF5E:
	lda	#$FF
	sta	<Mapping_SPRCHR0
	sta	<Mapping_SPRCHR2
	sta	<Mapping_SPRCHR3
	lda	<r74
	beq	brDF71
	jsr	jsE2E7
	lda	#$28
	sta	<Mapping_SPRCHR2
brDF71:
	inc	<r9D
	lda	<r9D
	lsr	A
 .db $B0,$19
	jsr	jsE260
	ldx	#$0
	stx	<r9E
brDF7F:
	lda	r300,x
	beq	brDF87
	jsr	jsDFC3
brDF87:
	inc	<r9E
	ldx	<r9E
 .db $E0
	clc
	bne	brDF7F
	beq	brDFB8
	ldx	<r56
	lda	r300,x
	pha
	cmp	#$6E
	bne	brDF9E
	jsr	jsE260
brDF9E:
	ldx	#$17
	stx	<r9E
brDFA2:
	lda	r300,x
	beq	brDFAA
	jsr	jsDFC3
brDFAA:
	dec	<r9E
	ldx	<r9E
	bpl	brDFA2
	pla
	cmp	#$6E
	beq	brDFB8
	jsr	jsE270
brDFB8:
	lda	<Mapping_SPRCHR3
	bpl	brDFC2
	lda	<Mapping_SPRCHR2
	sta	<Mapping_SPRCHR3
	inc	<Mapping_SPRCHR3
brDFC2:
	rts

jsDFC3:
	lda	r528,x
	and	#$7F
	sta	$528,x
	lda	r330,x
	sec
 .db $E5,$FC
	sta	<r13
	lda	r348,x
 .db $E5,$F9
	beq	brDFF9
	lda	r528,x
	and	#$8
	beq	brE057
	lda	<r13
 .db $B0,$4
	eor	#$FF
 .db $69,$1
	cmp	#$30
 .db $B0,$2A
	lda	r390,x
	beq	brDFF6
	bpl	brE017
 .db $30,$17
brDFF6:
	jmp	jpE08F
brDFF9:
	lda	r378,x
	sta	<r12
	lda	r390,x
	beq	brE082
	bpl	brE017
 .db $E0,$0
	bne	brE00D
	lda	<rAF
	bne	brE01F
brE00D:
	lda	<r12
	cmp	#$80
 .db $B0,$7C,$E0,$0
	beq	brE08F
brE017:
 .db $E0,$0
	bne	brE057
	lda	<rAF
	bne	brE08E
brE01F:
	lda	<r17
	and	#$40
	bne	brE042
	lda	#$7
 .db $C5,$30
	beq	brE08E
	sta	<MM_MoveType
	lda	#$2C
	sta	$468
	lda	#$1
	sta	$480
	lda	#$F0
	jsr	jsEC5B
	lda	#$1D
	jsr	jsEC5D
	rts
brE042:
	lda	#$0
	sta	$3D8
	lda	<rAF
	bne	brE051
	lda	#$C
	sta	$3F0
	rts
brE051:
	lda	#$F4
brE053:
	sta	$3F0
	rts
jpE057:
brE057:
	lda	r300,x
brE05A:
	cmp	#$4A
	beq	brE08F
	cmp	#$4B
	beq	brE08F
	cmp	#$78
	beq	brE08F
	cmp	#$AB
	beq	brE08F
	cmp	#$BA
	beq	brE08F
	lda	#$0
	sta	$5A0,x
	sta	$300,x
	sta	$5B8,x
	sta	$450,x
	lda	#$FF
	sta	$438,x
	rts
brE082:
	lda	r528,x
	ora	#$80
	sta	$528,x
	and	#$4
	beq	brE08F
brE08E:
	rts
brE08F:
jpE08F:
 .db $BC,$0,$3,$B9,$3B,$E3,$C5,$F5
	beq	brE09C
	jsr	jsFF3D
brE09C:
	lda	r528,x
	and	#$70
 .db $A
	pha
	and	#$C0
	sta	<ILC_Low
	pla
	and	#$20
	sta	<ILC_High
 .db $BC,$58
	ora	<rF0
 .db $DD,$B9,$0
	stx	<r85
 .db $0,$B9,$0,$87
	sta	<Temp1
	ldy	#$0
 .db $B1,$0
	sta	<Temp2
	and	#$7F
	sta	<Temp3
	lda	r5B8,x
 .db $30
	rol	<rA5
 .db $5A
	bne	brE0F0
	lda	r570,x
 .db $FE,$70
	ora	<rA0
 .db $1,$D1,$0
	bne	brE0F0
	lda	#$0
	sta	$570,x
	lda	r540,x
	and	#$7F
 .db $FE
	rti
	ora	<rC5
 .db $3
	bne	brE0F0
	lda	#$0
	sta	$540,x
brE0F0:
	lda	r5B8,x
	and	#$7F
	sta	$5B8,x
	beq	brE133
 .db $DE,$B8
	ora	<rBC
 .db $0,$3,$C0,$44
	beq	brE128
 .db $C0,$4F
	beq	brE128
 .db $C0,$7C
	beq	brE128
 .db $C0
	ldy	#$F0
	clc
brE110:
 .db $C0
	lda	<rF0
 .db $14,$C0
	tax
	beq	brE128
 .db $E4,$56
	bne	brE12F
	ldy	<r2F
	bpl	brE12F
	lsr	A
	lsr	A
 .db $90,$F
	ldy	#$54
	bne	brE14E
brE128:
	lsr	A
	lsr	A
	jsr	jsE208
 .db $30,$4
brE12F:
	lsr	A
	lsr	A
 .db $B0
	bpl	brE0F1
	rti
	ora	<Scroll_DirType
 .db $7F
	clc
 .db $69,$2
	tay
 .db $B1,$0
	bne	brE144
	jmp	jpE057
brE143:
	rts
brE144:
	tay
	lda	r528,x
	bpl	brE143
	lda	<Temp2
brE14E:
 .db $30,$D,$B9,$0,$80
	sta	<Temp2
 .db $B9,$0,$82
	sta	<Temp3
	jmp	jpE165
 .db $B9,$0,$81
	sta	<Temp2
 .db $B9,$0,$83
	sta	<Temp3
jpE165:
	ldy	#$3
 .db $B1,$2,$2A,$2A,$2A
	and	#$3
	cmp	#$1
	beq	brE182
	tax
	ldy	#$0
	lda	<Mapping_SPRCHR0,x
 .db $30
	ora	<rD1
 .db $2
	beq	brE182
	rts
 .db $B1,$2
	sta	<Mapping_SPRCHR0,x
brE182:
	ldy	#$1
 .db $B1,$2
	sta	<Temp4
 .db $C8,$B1,$2
	tax
	lda	$8400,x
	sec
jpE190:
	sbc	#$3
	sta	<Temp5
	lda	$8500,x
	sbc	#$0
	sta	<Temp6
	ldx	<r9F
	beq	brE1FF
brE19F:
 .db $C8,$B1,$2
	sta	$201,x
 .db $B1
	ora	<r85
 .db $7
	lda	<ILC_Low
	bpl	brE1B4
	lda	#$F8
	sec
 .db $E5,$7
	sta	<Temp7
brE1B4:
	lda	<r12
	clc
 .db $65,$7
	sta	$200,x
brE1BC:
	lda	<Temp7
 .db $30,$4,$90,$4,$B0,$3C,$90,$3A,$C8,$B1,$2,$45
	bpl	brE1D1
 .db $11
	sta	$202,x
 .db $B1
brE1D1:
	ora	<r85
 .db $7
	lda	<ILC_Low
	and	#$40
	beq	brE1E1
	lda	#$F8
	sec
 .db $E5,$7
	sta	<Temp7
brE1E1:
	lda	<r13
	clc
 .db $65,$7
	sta	$203,x
	lda	<Temp7
 .db $30,$4,$90,$4,$B0
	bpl	brE182
 .db $E
	inx
	inx
	inx
	inx
	stx	<r9F
	beq	brE1FF
brE1FB:
	dec	<Temp4
	bpl	brE19F
brE1FF:
	rts
brE200:
 .db $C8
	lda	#$F8
	sta	$200,x
	bne	brE1FB

jsE208:
 .db $66
	ora	<rC0
 .db $4F,$B0
	and	#$A0
brE210:
 .db $2,$B9,$21,$6,$99,$1,$6,$B9,$25,$6,$99
	ora	<Temp6
 .db $B9
	and	#$6
 .db $99
brE220:
	ora	#$6
	lda	<Temp5
	bpl	brE231
	lda	#$30
 .db $99,$1,$6,$99
	ora	<Temp6
 .db $99
	ora	#$6
brE231:
	dey
	bpl	brE210
 .db $84
	clc
	rts
	ldy	#$2
brE239:
 .db $B9,$25,$6,$99
	ora	<Temp6
 .db $B9
	and	#$6
 .db $99
	ora	#$6
 .db $B9,$2D,$6,$99,$D,$6
	lda	<Temp5
	bpl	brE25A
	lda	#$30
 .db $99
	ora	<Temp6
 .db $99
	ora	#$6
 .db $99,$D,$6
brE25A:
	dey
	bpl	brE239
 .db $84
	clc
	rts

jsE260:
	ldx	#$0
	stx	<ILC_Low
brE264:
	jsr	jsE27E
	inc	<ILC_Low
	ldx	<ILC_Low
 .db $E0,$3
	bne	brE264
	rts

jsE270:
	ldx	#$2
	stx	<ILC_Low
brE274:
	jsr	jsE27E
	dec	<ILC_Low
	ldx	<ILC_Low
	bpl	brE274
brE27D:
	rts

jsE27E:
	lda	<r2D,x
	bpl	brE27D
	and	#$7F
	tay
brE285:
 .db $B9,$B0,$0
	and	#$7F
	sta	<Temp0
brE28C:
 .db $E0,$2
	bne	brE297
	ldy	<r56
 .db $B9,$50,$4
brE295:
	sta	<Temp0
brE297:
	lda	datE2E1,x
	sta	<Temp1
	lda	datE2E4,x
	sta	<Temp2
	ldx	<r9F
	beq	brE2DE
	lda	#$48
	sta	<Temp3
brE2A9:
	lda	<Temp3
	sta	$200,x
	lda	<Temp2
	sta	$203,x
	lda	<Temp1
	sta	$202,x
	ldy	#$4
	lda	<Temp0
	sec
	sbc	#$4
 .db $B0,$4
	ldy	<Temp0
	lda	#$0
	sta	<Temp0
	tya
	ora	#$60
	sta	$201,x
	inx
	inx
	inx
	inx
	beq	brE2DE
	lda	<Temp3
	sec
	sbc	#$8
	sta	<Temp3
	cmp	#$10
	bne	brE2A9
brE2DE:
	stx	<r9F
	rts

datE2E1:
 .db $1,$0,$2

datE2E4:
	clc
	bpl	brE30F

jsE2E7:
	ldx	#$0
brE2E9:
	lda	datE313,x
	sec
 .db $E5,$76,$B0,$2
	sbc	#$F
	sta	$200,x
	lda	datE314,x
	sta	$201,x
	lda	datE315,x
	sta	$202,x
	lda	datE316,x
	sta	$203,x
	inx
	inx
	inx
	inx
 .db $E0
	plp
	bne	brE2E9
	stx	<r9F
	rts

datE313:
	plp

datE314:
	tay

datE315:

datE316:
 .db $21,$4,$58
	tay
 .db $21,$4
	dey
	tay
 .db $21,$4,$B8
	tay
 .db $21,$4
	inx
	tay
 .db $21,$4
	plp
	tay
 .db $21,$F4,$58
	tay
 .db $21,$F4
	dey
	tay
 .db $21,$F4,$B8
	tay
 .db $21,$F4
	inx
	tay
 .db $21,$F4,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12
 .db $12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12
 .db $16,$12,$12,$12,$16,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12
 .db $12,$12,$12,$16,$16,$12,$12,$12,$16,$12,$12,$12,$12,$12,$12,$16
 .db $12,$12,$12,$12,$16,$12,$12,$12,$12,$14,$12,$12,$12,$12,$12,$12
 .db $12,$12,$12,$12,$12,$12,$12,$12,$12,$14,$16,$14,$12,$12,$12,$12
 .db $14,$12,$12,$12,$14,$16,$14,$14,$12,$12,$12,$14,$14,$14,$14,$14
 .db $14,$14,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12
 .db $12,$12,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$12,$14
 .db $14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14,$14
 .db $14,$14,$14,$12,$12,$12,$12,$14,$14,$14,$14,$14,$12,$14,$14,$12
 .db $12,$12,$14,$12,$12,$14,$14,$14,$14,$14,$12,$14,$14,$14,$12,$14
 .db $14,$12,$12,$12,$12,$14,$12,$12,$12,$14,$16,$12,$12,$12,$12,$12
 .db $12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12
 .db $12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12
 .db $12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12,$12
 .db $12,$12
	ldx	#$6F
 .db $9A
jpE43E:
	lda	<r15
	and	#$4
	beq	brE455
	lda	r528
	eor	#$40
	sta	$528
	lda	<rAF
	eor	#$1
	sta	<rAF
	jmp	jpE490
brE455:
	lda	<r15
	and	#$80
	beq	brE48A
	ldy	<Level
 .db $B9,$96,$E4
	sta	<Level
	sta	<LevelC
	lda	#$0
	sta	<Next_Screen_Pos
	sta	<Tile_ScrollX
	sta	<Obj_Next
	sta	<Obj_Prev
	lda	#$DD
	sta	<r94
	lda	#$E8
	sta	<r93
	lda	#$2
	jsr	jsFEF3
	lda	#$0
	jsr	jsFF03
	lda	#$1
	jsr	jsFF03
	lda	#$3
	jmp	jpFF0B
brE48A:
	lda	<r15
	and	#$1
	beq	brE490
brE490:
jpE490:
	jsr	jsFF22
	jmp	jpE43E
 .db $1,$2,$3,$4
	ora	<Temp6
 .db $7
	php
	ora	#$A
 .db $B,$C,$D,$E,$F,$0

jsE4A6:
	jsr	jsC38F
	ldy	#$0
	ldx	#$0
	stx	<r95
	stx	<r9F
	stx	<r77
brE4B3:
	lda	datE614,x
 .db $99,$0,$2
	lda	datE615,x
 .db $99,$3,$2
	inx
	inx
 .db $C8,$C8,$C8,$C8,$E0,$64
	bne	brE4B3
	ldy	#$6
brE4CB:
 .db $B9
	sei
	inc	<r99
 .db $11,$6
	dey
	bpl	brE4CB
jpE4D4:
	lda	<r14
	and	#$20
	beq	brE501
	ldy	#$F
brE4DC:
 .db $B9,$0,$6,$99
brE4E4:
 .db $30,$6,$99
	bpl	brE4EE
	dey
	bpl	brE4DC
	lda	BGPalW
brE4EE:
	sta	$610
	sta	$630
 .db $84
brE4F5:
	clc
	ldy	#$C
	lda	#$9C
brE4FA:
 .db $99,$B0,$0
	dey
	bpl	brE4FA
	rts
brE501:
	lda	<r14
	and	#$F
	beq	brE537
	and	#$3
	bne	brE524
	lda	<r14
	and	#$8
	beq	brE51B
	lda	<r77
	sec
	sbc	#$4
	sta	<r77
brE518:
	jmp	jpE52E
brE51B:
	lda	<r77
	clc
 .db $69,$4
	sta	<r77
brE522:
	bne	brE52E
brE524:
	and	#$1
	beq	brE52C
	inc	<r77
	bne	brE52E
brE52C:
	dec	<r77
brE52E:
jpE52E:
	lda	<r77
	and	#$F
	sta	<r77
	jmp	jpE584
brE537:
	ldy	<r77
 .db $B9,$0,$6
	sta	<ILC_Low
	lda	<r14
	and	#$C0
	beq	brE584
	and	#$80
	beq	brE54D
	inc	<ILC_Low
	jmp	jpE54F
brE54D:
	dec	<ILC_Low
jpE54F:
	lda	<ILC_Low
	cmp	#$F
	beq	brE57C
	lda	<ILC_Low
	and	#$3F
	sta	<ILC_Low
	and	#$F
	cmp	#$D
 .db $90,$1B
	lda	<r14
	and	#$80
	beq	brE574
	lda	<ILC_Low
	and	#$30
 .db $69
	bpl	brE597
 .db $30
	sta	<ILC_Low
	jmp	jpE57C
brE574:
	lda	<ILC_Low
	and	#$30
	ora	#$C
	sta	<ILC_Low
jpE57C:
brE57C:
	lda	<ILC_Low
brE581:
 .db $99,$0,$6,$99
brE585:
 .db $77
	sta	<Temp0
	ldx	#$0
	ldy	#$0
brE58C:
 .db $B9,$0,$6
	pha
	and	#$F0
	lsr	A
brE593:
	lsr	A
	lsr	A
	lsr	A
brE597:
 .db $84,$1
	tay
brE59A:
 .db $B9,$7F
	inc	<ScrollYC
 .db $1
	sta	$201,x
	lda	#$0
 .db $C4,$0
	bne	brE5A9
	lda	#$1
brE5A9:
	sta	$202,x
	sta	$206,x
	pla
	and	#$F
 .db $84,$1
	tay
 .db $B9,$7F
	inc	<ScrollYC
 .db $1
	sta	$205,x
	txa
brE5BE:
	clc
 .db $69
	php
	tax
 .db $C8,$C0
 .db $C0
	bpl	brE59A
 .db $C1
	ldy	#$18
	bne	brE58C
brE5CF:
	lda	r348
	pha
	and	#$F
	sta	<Temp0
	pla
	lsr	A
	lsr	A
	lsr	A
	lsr	A
	tay
brE5DD:
 .db $B9,$7F
	inc	<r9D
 .db $1,$2
	ldy	<Temp0
 .db $B9,$7F
	inc	<r9D
	ora	<Temp2
	lda	#$0
	sta	$202,x
	sta	$206,x
	jsr	jsE68F
	lda	#$FF
	sta	<PalWrite_CtrlReg
	lda	BGPalW
brE5FD:
	sta	$610
	lda	#$0
	sta	$5F8
	sta	$5F9
	sta	$5FA
	sta	$5FB
	jsr	jsFF22
	jmp	jpE4D4

datE614:
	plp

datE615:
 .db $80
	plp
	dey
	plp
	tya
	plp
	ldy	#$28
 .db $B0
	plp
 .db $B8
	plp
 .db $C8
	plp
	bne	brE65D
 .db $80
	sec
	dey
	sec
	tya
	sec
	ldy	#$38
 .db $B0
	sec
 .db $B8
	sec
 .db $C8
	sec
	bne	brE67D
 .db $80
	pha
	dey
	pha
	tya
	pha
	ldy	#$48
 .db $B0
	pha
 .db $B8
	pha
 .db $C8
	pha
	bne	brE69D
 .db $80,$58
	dey
 .db $58
	tya
 .db $58
	ldy	#$58
 .db $B0,$58,$B8,$58,$C8,$58
	bne	brE5DD
 .db $80
	dey
	dey
	dey
	tya
	dey
	ldy	#$88
brE65D:
 .db $B0
	dey
 .db $B8

jsE660:
	dey
 .db $C8
	dey
	bne	brE5FD
 .db $80
	tya
	dey
	tya
	tya
	tya
	ldy	#$98
 .db $B0
	tya
 .db $B8
	tya
 .db $C8
	tya
	bne	brE6ED
 .db $80
	sei
	dey
brE67D:
 .db $30,$30,$30,$F,$16,$16,$16,$30,$31,$32,$33,$34
	and	<r36,x
 .db $37
	sec
 .db $39,$41,$42,$43,$44,$45,$46

jsE68F:
	lda	#$9C
	sec
 .db $E5,$B0
	pha
	and	#$10
	lsr	A
	lsr	A
	lsr	A
	lsr	A
	tay
brE69D:
 .db $B9,$7F
	inc	<r8D
 .db $F9,$2
	lda	#$20
	sta	$2F8
	sta	$2FC
	lda	#$30
	sta	$2FB
	lda	#$0
	sta	$2FA
	sta	$2FE
	pla
	and	#$F
	tay
 .db $B9,$7F
	inc	<r8D
 .db $FD,$2
	lda	#$38
	sta	$2FF
	rts
jpE6C7:
	lda	r528,x
	ora	#$20
	sta	$528,x
 .db $E0,$0
	bne	brE6DD
	lda	r330
	sta	<Temp2
	lda	r348
	sta	<Temp3
brE6DD:
	jsr	jsE8E6
 .db $E0,$0
brE6E2:
	bne	brE6F9
	jsr	jsEDF6
 .db $90
	bpl	brE70A
 .db $15,$EF
	jsr	jsE6F1
	sec
	rts

jsE6F1:
brE6F2:
 .db $90,$6
	beq	brE6F9
 .db $C8
	jmp	jpE738
jpE6F9:
brE6F9:
	jsr	jsC5AA
	clc
	lda	<ILC_Low
	and	#$10
	beq	brE707
	jsr	jsEEAF
	sec
brE707:
	rts
jpE708:
	lda	r528,x
	and	#$DF
	sta	$528,x
 .db $E0,$0
	bne	brE71E
	lda	r330
	sta	<Temp2
	lda	r348
	sta	<Temp3
brE71E:
	jsr	jsE90C
 .db $E0,$0
	bne	brE738
	jsr	jsEDF6
brE729:
 .db $90,$E
	jsr	jsEF29
	jsr	jsE732
	sec
brE731:
	rts

jsE732:
 .db $B0,$4
	dey
	jmp	jpE6F9
brE738:
jpE738:
	jsr	jsC5AA
	clc
	lda	<ILC_Low
	and	#$10
	beq	brE746
	jsr	jsEEC7
	sec
brE746:
	rts
jpE747:
 .db $E0,$0
	bne	brE755
	lda	r378
	sta	<Temp2
	lda	r390
	sta	<Temp3
brE755:
	jsr	jsE92A
 .db $E0,$0
	bne	brE771
	jsr	jsED8F
 .db $90
	bpl	brE782
	lsr	A
 .db $EF
	jsr	jsE769
	sec
brE768:
	rts

jsE769:
brE76A:
 .db $90,$6
	beq	brE771
 .db $C8
	jmp	jpE7A8
jpE771:
brE771:
	jsr	jsC4A1
	clc
	lda	<ILC_Low
	and	#$10
	beq	brE77F
	jsr	jsEEF7
	sec
brE77F:
	rts
jpE780:
 .db $E0,$0
brE782:
	bne	brE78E
	lda	r378
	sta	<Temp2
	lda	r390
	sta	<Temp3
brE78E:
	jsr	jsE94A
 .db $E0,$0
	bne	brE7A8
	jsr	jsED8F
 .db $90,$E
	jsr	jsEF60
	jsr	jsE7A2
	sec
brE7A1:
	rts

jsE7A2:
 .db $B0,$4
	dey
	jmp	jpE771
jpE7A8:
brE7A8:
jpE7A8:
	jsr	jsC4A1
	clc
	lda	<ILC_Low
	and	#$10
	beq	brE7B6
	jsr	jsEEDD
	sec
brE7B6:
	rts
 .db $E0,$0
	bne	brE7CF
	stx	$4C8
	lda	r378
	sta	<Temp2
	lda	r390
	sta	<Temp3
	lda	<rAF
	beq	brE7CF
	jmp	jpE872
brE7CF:
	lda	r3F0,x
	bpl	brE840
	jsr	jsE979
brE7D8:
 .db $E0,$0
	bne	brE81C
	jsr	jsED8F
 .db $90,$3C
	jsr	jsEF4A
	jsr	jsE814
	ldy	<r73
 .db $B9,$0,$3
	cmp	#$45
	bne	brE7F4
	sty	$4C8
	beq	brE83C
brE7F4:
 .db $B9
	beq	brE7FA
	bpl	brE808
	sta	$3F0
 .db $CE
	beq	brE802
brE7FF:
 .db $B9
	cld
 .db $3
brE802:
	sta	$3D8
	jmp	jpE83C
brE808:
	lda	#$0
	sta	$3D8,x
	lda	#$FD
	sta	$3F0,x
	bne	brE83C

jsE814:
brE815:
 .db $90,$6
	beq	brE81C
 .db $C8
	jmp	jpE7A8
brE81C:
	jsr	jsE9B7
	jsr	jsC4A1
	lda	<r42
	cmp	#$40
	bne	brE830
	lda	<ILC_High
	and	#$F
	cmp	#$8
 .db $90,$6
brE830:
	lda	<ILC_Low
	and	#$10
	beq	brE870
	jsr	jsEEF7
	jsr	jsEA1E
brE83C:
jpE83C:
brE83C:
	lda	#$0
	sec
	rts
brE840:
 .db $C8
	jsr	jsE999
 .db $E0,$0
	bne	brE85C
	jsr	jsED8F
 .db $90,$F
	jsr	jsEF60
	jsr	jsE856
	jmp	jpE86B

jsE856:
brE857:
 .db $B0,$4
	dey
	jmp	jpE771
brE85C:
	jsr	jsE9B7
	jsr	jsC4A1
	lda	<ILC_Low
	and	#$10
	beq	brE870
	jsr	jsEEDD
jpE86B:
	jsr	jsEA1E
	lda	#$FF
brE870:
	clc
	rts
jpE872:
	lda	r3F0,x
	bpl	brE8A4
	jsr	jsE979
	jsr	jsED8F
 .db $90,$11
	jsr	jsEF4A
	jsr	jsE888
	jmp	jpE89F

jsE888:
 .db $90,$6
	beq	brE890
 .db $C8
	jmp	jpE7A8
brE890:
	jsr	jsE9E1
	jsr	jsC4A1
	lda	<ILC_Low
	and	#$10
	beq	brE8A2
	jsr	jsEEF7
jpE89F:
	jsr	jsEA29
brE8A2:
	clc
	rts
brE8A4:
 .db $C8
	jsr	jsE999
	jsr	jsED8F
 .db $90,$F
	jsr	jsEF60
	jsr	jsE8B6
	jmp	jpE8D9

jsE8B6:
 .db $B0,$4
	dey
	jmp	jpE771
	jsr	jsE9E1
	jsr	jsC4A1
brE8C2:
	lda	<r42
	cmp	#$40
	bne	brE8D0
	lda	<ILC_High
	and	#$F
	cmp	#$8
 .db $B0,$6
brE8D0:
	lda	<ILC_Low
	and	#$10
	beq	brE8A2
	jsr	jsEEDD
jpE8D9:
	jsr	jsEA29
	sec
	rts
	lda	r528,x
	ora	#$20
	sta	$528,x
jpE8E6:

jsE8E6:
	lda	r318,x
	clc
 .db $7D
	tay
 .db $3
	sta	$318,x

jsE8F0:
	lda	r330,x
 .db $7D,$C0,$3
	sta	$330,x
 .db $90
	php
	lda	r348,x
 .db $69,$0
	sta	$348,x
	rts
	lda	r528,x
	and	#$DF
	sta	$528,x
jpE90C:

jsE90C:
	lda	r318,x
	sec
 .db $FD
	tay
 .db $3
	sta	$318,x
	lda	r330,x
 .db $FD,$C0,$3
	sta	$330,x
brE91F:
 .db $B0
	php
	lda	r348,x
	sbc	#$0
	sta	$348,x
	rts
jpE92A:

jsE92A:
	lda	r360,x
	clc
 .db $7D
	cld
 .db $3
	sta	$360,x
	lda	r378,x
 .db $7D
	beq	brE93D
	sta	$378,x
brE93D:
	cmp	#$F0
 .db $90
	php
 .db $69,$F
	sta	$378,x
 .db $FE,$90,$3
	rts
jpE94A:

jsE94A:
	lda	r360,x
	sec
 .db $FD
	cld
 .db $3
	sta	$360,x
	lda	r378,x
 .db $FD
	beq	brE95D
	sta	$378,x
brE95D:
 .db $B0
	php
	sbc	#$F
	sta	$378,x
 .db $DE,$90,$3
	rts
	lda	r3F0,x
	bpl	brE973
	jsr	jsE979
	jmp	jpE9B7
brE973:
	jsr	jsE999
	jmp	jpE9B7

jsE979:
	lda	r360,x
	sec
 .db $FD
	cld
 .db $3
	sta	$360,x
	lda	r378,x
 .db $FD
	beq	brE98C
	sta	$378,x
brE98C:
	cmp	#$F0
 .db $90
	php
 .db $69,$F
	sta	$378,x
 .db $FE,$90,$3
	rts

jsE999:
	lda	r360,x
	sec
 .db $FD
	cld
 .db $3
	sta	$360,x
	lda	r378,x
 .db $FD
	beq	brE9AC
	sta	$378,x
brE9AC:
 .db $B0
	php
	sbc	#$F
	sta	$378,x
 .db $DE,$90,$3
	rts
jpE9B7:

jsE9B7:
	lda	<r52
	beq	brE9BF
 .db $E0,$0
	beq	brE9E0
brE9BF:
	lda	r3D8,x
	sec
 .db $E5,$A1
	sta	$3D8,x
	lda	r3F0,x
	sbc	#$0
	sta	$3F0,x
	bpl	brE9E0
	cmp	#$F9
 .db $B0,$A
	lda	#$F9
	sta	$3F0,x
	lda	#$0
	sta	$3D8,x
brE9E0:
	rts

jsE9E1:
	lda	r3D8,x
	clc
 .db $65,$A1
	sta	$3D8,x
	lda	r3F0,x
 .db $69,$0
	sta	$3F0,x
 .db $30,$E
	cmp	#$7
 .db $90,$A
	lda	#$7
	sta	$3F0,x
	lda	#$0
	sta	$3D8,x
	rts
	lda	r3D8,x
	clc
 .db $69
	rti
	sta	$3D8,x
	lda	r3F0,x
 .db $69,$0
	sta	$3F0,x
	cmp	#$F
	bne	brEA1D
	lda	#$0
	sta	$3D8,x
brEA1D:
	rts

jsEA1E:
	lda	#$0
	sta	$3D8,x
	lda	#$FF
	sta	$3F0,x
	rts

jsEA29:
	lda	#$0
brEA2B:
	sta	$3D8,x
	lda	#$1
	sta	$3F0,x
	rts
	lda	#$C0
brEA36:
 .db $99
	cld
 .db $3
	lda	#$FF
 .db $99
	beq	brEA41
	rts
	lda	r420,x
	clc
	and	#$3
	beq	brEA97
	and	#$1
	beq	brEA4E
	jmp	jpE6C7
brEA4E:
 .db $C8
	jmp	jpE708
	clc
	lda	r420,x
	and	#$C
	beq	brEA97
	and	#$4
	beq	brEA61
	jmp	jpE747
brEA61:
 .db $C8
	jmp	jpE780
	lda	r420,x
	and	#$3
	beq	brEA97
	and	#$1
	beq	brEA7B
	lda	r528,x
	ora	#$20
	sta	$528,x
	jmp	jpE8E6
brEA7B:
	lda	r528,x
	and	#$DF
	sta	$528,x
	jmp	jpE90C
	lda	r420,x
	and	#$C
	beq	brEA97
	and	#$4
	beq	brEA94
	jmp	jpE92A
brEA94:
	jmp	jpE94A
brEA97:
	rts

jsEA98:
	sta	$558,x
	lda	#$0
	sta	$540,x
	sta	$570,x
	rts
brEAA4:
	pha
	lda	r330,x
 .db $99,$30,$3
	lda	r348,x
 .db $99
	pha
 .db $3
	lda	r378,x
 .db $99
	sei
 .db $3
	lda	r390,x
 .db $99,$90,$3
jpEABD:
	lda	r528,x
	and	#$60
 .db $99
	plp
	ora	<rA9
 .db $0,$99
	clc
 .db $3,$99
	rts
 .db $3,$99,$B8
	ora	<r99
	pla
brEAD3:
 .db $4,$99,$80,$4,$99
	tya
brEAE0:
 .db $4,$99,$B0,$4,$99,$C8,$4,$99,$E0,$4,$99,$F8,$4,$99
	bpl	brEAED
	pla
 .db $99,$58
	ora	<rA9
brEAED:
 .db $0,$99
	rti
	ora	<r99
 .db $70
	ora	<r60
	pha
	stx	<Temp0
	ldx	<ILC_Low
	lda	#$0
	sta	<Temp2
	lda	datEB62,x
	sta	<Temp1
	bpl	brEB07
	dec	<Temp2
brEB07:
	lda	datEBBC,x
	sta	<Temp3
	ldx	<Temp0
	lda	r330,x
	clc
 .db $65,$1,$99,$30,$3
	lda	r348,x
 .db $65,$2,$99
	pha
 .db $3
	lda	r390,x
 .db $99,$90,$3
	lda	r378,x
	clc
 .db $65,$3,$99
	sei
 .db $3
	lda	<Temp3
	bpl	brEB48
 .db $B0,$89,$B9
	sei
 .db $3
	sbc	#$10
 .db $99
	sei
 .db $3,$B9,$90,$3
	sec
	sbc	#$1
 .db $99,$90,$3
	jmp	jpEABD
brEB48:
 .db $B9
	sei
 .db $3,$B0,$4
	cmp	#$F0
 .db $90,$E,$69,$F,$99
	sei
 .db $3,$B9,$90,$3
brEB59:
	clc
 .db $69,$1,$99,$90,$3
	jmp	jpEABD

datEB62:
 .db $F1
	bpl	brEB59
 .db $C
	bpl	brEB72
 .db $0,$F6
brEB6A:
	beq	brEB6C
brEB6C:
	beq	brEB7E
brEB6F:
brEB72:
 .db $0,$0,$F4,$C,$0,$C,$F4
	beq	brEB87
 .db $F4,$C,$0,$0
	beq	brEB8D
brEB7E:
 .db $EC,$C,$0,$F9,$7,$FC,$F8,$4
	php
brEB87:
 .db $FC,$F8,$4
	php
brEB8B:
brEB8D:
 .db $F4,$C,$EC,$14,$F4,$F8,$2,$C,$E,$E,$C,$2,$F8,$F4,$EC,$14
	inx
	clc
 .db $FC,$4,$E0
	inx
	clc
 .db $E2,$1E
	inx
	clc
 .db $F8
	php
	bpl	brEBAC
brEBAC:
	beq	brEBAE
brEBAE:
 .db $0
	inx
	clc
 .db $F8
	php
 .db $E4,$1C,$F4,$C,$FC,$4
	bpl	brEBAB
	bpl	brEBBC
 .db $FF
	php
	php
 .db $E,$14
	clc
 .db $14,$E,$0
	php
	php
brEBCB:
brEBCC:
 .db $14,$EC,$4,$4,$0,$F4,$C,$0,$0,$F4,$C
	beq	brEBE5
	bpl	brEBCB
	beq	brEBE9
brEBDA:
brEBE5:
brEBE6:
 .db $0,$0,$0,$FC,$4,$FC,$4,$4,$FC,$4,$FC,$FC,$FC,$FC,$FC,$2
brEBE9:
 .db $FA,$F4,$F8,$2,$FE
	php
brEBF4:
brEBF6:
brEBF7:
brEBF8:
 .db $C,$6,$FE,$FF,$FF,$4,$4,$E0,$E0,$FA,$FA
	php
	php
 .db $0,$0,$0,$0,$C,$C,$F8,$F8
	beq	brEBF6
	beq	brEBF8
 .db $E0
	bpl	brEC1B
	inx
	inx
 .db $FA,$FA,$FE,$FE,$F4,$F4,$4,$FA,$FA
	lda	#$1
	sta	$420,x
brEC1B:
	lda	r330,x
	sec
 .db $ED,$30,$3
	lda	r348,x
 .db $ED
	pha
 .db $3,$90
	ora	<rA9
 .db $2
	sta	$420,x
	rts
	lda	r420,x
	and	#$3
	beq	brEC49
 .db $6A,$6A,$6A,$6A
	and	#$20
	sta	<Temp0
	lda	r528,x
	and	#$DF
	ora	<Temp0
	sta	$528,x
brEC49:
	rts
	lda	r420,x
	eor	#$3
	sta	$420,x
	lda	r528,x
	eor	#$20
	sta	$528,x
	rts

jsEC5B:
	sta	<rD9

jsEC5D:
	stx	<Temp0
	ldx	<rDA
	sta	<Temp1
	lda	<rDC,x
	cmp	#$88
	bne	brEC73
	lda	<Temp1
	sta	<rDC,x
	inx
	txa
	and	#$7
	sta	<rDA
brEC73:
	ldx	<Temp0
	rts

jsEC76:
	lda	r378
	sec
 .db $FD
	sei
 .db $3,$B0
	ora	<r49
 .db $FF,$69,$1
	clc
	rts
 .db $B9
	sei
 .db $3
	sec
 .db $FD
	sei
 .db $3,$B0
	ora	<r49
 .db $FF,$69,$1
	clc
	rts

jsEC94:
	lda	r330
	sec
 .db $FD,$30,$3
	pha
	lda	r348
 .db $FD
	pha
 .db $3
	pla
 .db $B0
	ora	<r49
 .db $FF,$69,$1
	clc
	rts
 .db $B9,$30,$3
	sec
 .db $FD,$30,$3
	pha
 .db $B9
	pha
 .db $3,$FD
	pha
 .db $3
	pla
 .db $B0
	ora	<r49
 .db $FF,$69,$1
	clc
	rts
	ldy	#$0

jsECC4:
 .db $B9
	sei
 .db $3
	sta	<Temp0
 .db $B9,$30,$3
	sta	<Temp1
 .db $B9
	pha
 .db $3
	sta	<Temp2
	ldy	#$0
	lda	<Temp0
	sec
 .db $FD
	sei
 .db $3
	ldy	#$0
 .db $B0,$6
	eor	#$FF
 .db $69,$1
	ldy	#$4
	sta	<Temp0
	lda	<Temp1
	sec
 .db $FD,$30,$3
	pha
	lda	<Temp2
 .db $FD
	pha
 .db $3
	pla
 .db $B0,$6
	eor	#$FF
 .db $69,$1,$C8,$C8
	sta	<Temp1
 .db $C5,$0,$B0
	ora	#$48
	lda	<Temp0
	sta	<Temp1
	pla
	sta	<Temp0
 .db $C8
	lda	#$0
	sta	<Temp2
	lda	<Temp1
	lsr	A
	lsr	A
 .db $C5,$0,$B0
	ora	#$E6
 .db $2,$A,$C5,$0,$B0,$2
	inc	<Temp2
	tya
 .db $A,$A
	clc
 .db $65,$2
	tay
 .db $B9,$2B,$ED
	rts
 .db $4
	ora	<Temp6
 .db $4
	php
 .db $7,$6,$4,$C,$B,$A,$4
	php
	ora	#$A
 .db $4,$4,$3,$2,$4,$0,$1,$2,$4,$C,$D,$E,$4,$0,$F,$E
 .db $4
	php
	ora	#$9
	ora	#$1
	ora	<Temp5
	ora	<Temp4
 .db $6,$6,$6,$2,$A,$A,$A
	ldy	#$0
	jsr	jsECC4
	sta	<Temp0
	tay
	lda	r4B0,x
	clc
 .db $69
	php
	and	#$F
	sec
 .db $E5,$0
	and	#$F
	sec
	sbc	#$8
	beq	brED7F
 .db $B0
	ora	<Write2001
 .db $B0,$4
	bne	brED7F
 .db $DE,$B0,$4
brED7F:
	lda	r4B0,x
	and	#$F
	sta	$4B0,x
	tay
 .db $B9,$4B,$ED
	sta	$420,x
	rts

jsED8F:
	lda	r528,x
	bpl	brEDF4
	lda	r390,x
	bne	brEDF4
brED99:
 .db $84,$0
	ldy	#$17
brED9F:
 .db $84,$73,$B9,$0,$3
	beq	brEDEC
 .db $B9,$90,$3
	bne	brEDEC
 .db $B9
	plp
	ora	<Scroll_DirType
 .db $4
	bne	brEDEC
 .db $B9
	plp
	ora	<Scroll_DirType
 .db $3
	beq	brEDEC
	and	#$1
	beq	brEDC0
	lda	r3F0,x
	bpl	brEDEC
brEDC0:
	jsr	jsEE4F
	bne	brEDEC
	jsr	jsEE70
 .db $90,$7,$B9
	plp
	ora	<Scroll_DirType
 .db $1
	bne	brEDEC
	lda	<ILC_Low
 .db $C5,$13,$B0,$15
	lda	<r12
	sec
 .db $E5,$11,$90,$E
	sta	<ILC_High
	cmp	#$8
 .db $90,$4
	lda	#$8
brEDE6:
	sta	<ILC_High
	ldy	<Temp0
	sec
	rts
brEDEC:
	dec	<r73
	ldy	<r73

jsEDF0:
	bne	brED9F
	ldy	<Temp0
brEDF4:
	clc
	rts

jsEDF6:
	lda	r528,x
	bpl	brEE4D
	lda	r390,x
	bne	brEE4D
 .db $84,$0
	ldy	#$17
brEE04:
brEE06:
 .db $84,$1,$B9,$0,$3
	beq	brEE45
	cmp	#$2
	beq	brEE45
 .db $B9,$90,$3
	bne	brEE45
 .db $B9
	plp
	ora	<Scroll_DirType
 .db $4
	bne	brEE45
 .db $B9
	plp
	ora	<Scroll_DirType
 .db $2
	beq	brEE45
	jsr	jsEE4F
	bne	brEE45
	jsr	jsEE70
	lda	<ILC_High
 .db $C5,$12,$B0,$15
	lda	<r13
	sec
 .db $E5
	bpl	brEDC6
 .db $E
	sta	<ILC_Low
	cmp	#$8
 .db $90,$4
	lda	#$8
	sta	<ILC_Low
	ldy	<Temp0
	sec
	rts
brEE45:
	dec	<Temp1
	ldy	<Temp1
	bne	brEE06
	ldy	<Temp0
brEE4D:
	clc
	rts

jsEE4F:
	lda	r330
	sec
 .db $F9,$30,$3
	sta	<ILC_Low
	lda	r348
 .db $F9
	pha
 .db $3,$B0,$F
	pha
	lda	<ILC_Low
	eor	#$FF
 .db $69,$1
	sta	<ILC_Low
	pla
	eor	#$FF
 .db $69,$0
	clc
	rts

jsEE70:
 .db $B9
	php
 .db $4
	and	#$3F
	tax
	lda	datF0B1,x
	sta	<r12
	lda	datF0F1,x
	sta	<r13
	lda	<MM_MoveType
	cmp	#$2
	bne	brEE8C
	lda	<r12
	sbc	#$2
	sta	<r12
brEE8C:
	lda	r378
	sec
 .db $F9
	sei
 .db $3,$B0
	ora	<r49
 .db $FF,$69,$1
	clc
	sta	<ILC_High
	php
 .db $90,$C
	lda	<MM_MoveType
	cmp	#$2
	bne	brEEAB
	lda	<r12
	sbc	#$4
	sta	<r12
brEEAB:
	ldx	#$0
brEEAD:
	plp
	rts

jsEEAF:
	lda	<r12
	and	#$F
	sta	<r12
	lda	r330,x
	sec
brEEB9:
 .db $E5,$12
	sta	$330,x
	lda	r348,x
	sbc	#$0
	sta	$348,x
	rts

jsEEC7:
	lda	<r12
	and	#$F
	eor	#$F
brEECD:
	sec
 .db $7D,$30,$3
	sta	$330,x
	lda	r348,x
 .db $69,$0
	sta	$348,x
	rts

jsEEDD:
	lda	<ILC_High
	and	#$F
	eor	#$F
	clc
 .db $7D
	sei
 .db $3
	sta	$378,x
	cmp	#$F0
 .db $90
	php
 .db $69,$F
	sta	$378,x
 .db $FE,$90,$3
	rts

jsEEF7:
	lda	<ILC_High
	pha
	and	#$F
	sta	<ILC_High
brEEFE:
	lda	r378,x
	sec
 .db $E5,$11
	sta	$378,x
 .db $B0
	php
	sbc	#$F
	sta	$378,x
 .db $DE,$90,$3
	pla
	sta	<ILC_High
	rts

jsEF15:
	sec
	lda	r330,x
 .db $E5
	bpl	brEEB9
 .db $30,$3
	lda	r348,x
	sbc	#$0
	sta	$348,x
	jmp	jpEF3A

jsEF29:
	clc
	lda	r330,x
 .db $65
	bpl	brEECD
 .db $30,$3
	lda	r348,x
 .db $69,$0
	sta	$348,x
jpEF3A:
	sec
	lda	<Temp2
 .db $FD,$30,$3
	sta	<Temp2
	lda	<Temp3
 .db $FD
	pha
 .db $3
	ora	<Temp2
	rts

jsEF4A:
	sec
	lda	r378,x
 .db $E5,$11
	sta	$378,x
 .db $B0,$22
	sbc	#$F
	sta	$378,x
 .db $DE,$90,$3
	jmp	jpEF77

jsEF60:
	clc
	lda	r378,x
 .db $65,$11
	sta	$378,x
 .db $B0
	ora	#$C9
	beq	brEEFE
	php
 .db $69,$F
	sta	$378,x
 .db $FE,$90,$3
jpEF77:
	sec
	lda	<Temp2
 .db $FD
	sei
 .db $3
	sta	<Temp2
	lda	<Temp3
 .db $FD,$90,$3
	ora	<Temp2
	rts
	sec
	lda	r528
	bpl	brEFF7
	lda	r390
 .db $1D,$90,$3
	bne	brEFF7
	lda	r528,x
	bpl	brEFF7
	and	#$4
	bne	brEFF7
	lda	r408,x
	and	#$3F
	tay
	lda	r330
	sec
 .db $FD,$30,$3
	pha
	lda	r348
 .db $FD
	pha
 .db $3
	sta	<Temp0
	pla
 .db $B0,$E
	eor	#$FF
 .db $69,$1
brEFBB:
	pha
	lda	<Temp0
	eor	#$FF
 .db $69,$0
	sta	<Temp0
	pla
 .db $D9,$F1
	beq	brEF79
 .db $2D
	sec
	lda	<Temp0
	bne	brEFF7
 .db $B9,$B1
	beq	brEF58
 .db $0
	lda	r558
	cmp	#$14
	beq	brEFE1
	lda	<MM_MoveType
	cmp	#$2
	bne	brEFE8
brEFE1:
	lda	<Temp0
	sec
	sbc	#$7
	sta	<Temp0
brEFE8:
	lda	r378
	sec
 .db $FD
	sei
 .db $3,$B0,$4
	eor	#$FF
 .db $69,$1,$C5,$0
brEFF7:
	rts
	sec
	lda	#$1
	sta	<ILC_Low
	lda	r300,x
	beq	brEFF7
	lda	r528,x
	bpl	brEFF7
	and	#$4
	bne	brEFF7
	lda	r390,x
	bne	brEFF7
	ldy	#$3
brF012:
 .db $B9,$0,$3
	beq	brF068
 .db $B9
	plp
	ora	<ILC_Low
 .db $3
	bne	brF068
 .db $B9,$0,$3
	cmp	#$70
 .db $90
	rti
	jsr	jsF06D
 .db $B9,$30,$3
	sec
brF031:
 .db $FD,$30,$3
	pha
 .db $B9
	pha
 .db $3,$FD
	pha
 .db $3
	sta	<Temp2
	pla
 .db $B0,$E
	eor	#$FF
 .db $69,$1
	pha
	lda	<Temp2
	eor	#$FF
 .db $69,$0
	sta	<Temp2
	pla
 .db $C5,$1,$B0
	clc
	lda	<Temp2
	bne	brF068
 .db $B9
	sei
 .db $3
	sec
 .db $FD
	sei
 .db $3,$B0,$4
	eor	#$FF
 .db $69,$1,$C5,$0,$B0,$3,$84
	bpl	brF0C8
brF068:
	dey
	bne	brF012
	sec
	rts

jsF06D:
 .db $84,$2
	lda	r408,x
	and	#$3F
	tay
 .db $B9,$B1
	beq	brEFFE
 .db $0,$B9,$F1
	beq	brF003
 .db $1
	ldy	<Temp2
	lda	<r32
	cmp	#$1
	beq	brF092
 .db $B9,$0,$3
	cmp	#$C2
	bne	brF09C
	ldy	#$13
	bne	brF09E
brF092:
 .db $B9
	rti
	ora	<rA8
 .db $B9,$59,$F1
	tay
	bne	brF09E
brF09C:
	ldy	<r5B
brF09E:
	lda	<Temp0
	sec
 .db $F9,$31,$F1
	sta	<Temp0
	lda	<Temp1
	sec
 .db $F9,$45,$F1
	sta	<Temp1
	ldy	<Temp2
	rts

datF0B1:
 .db $14,$12,$74,$14,$3C
	bpl	brF0C7
 .db $E,$16,$1C,$E
	clc
	clc
 .db $14,$12
 .db $1A,$1C
brF0C8:
 .db $1C
	plp
 .db $24,$E,$12
	clc
 .db $14,$14,$14,$14,$1C
	bpl	brF0E3
 .db $1C,$34,$1C
	clc
brF0DE:
 .db $54,$54,$24,$24
brF0E3:
 .db $1C,$1C,$C,$C,$C,$C,$C,$C,$C,$C,$C,$C,$C,$C

datF0F1:
	bpl	brF101
	bpl	brF16D
	bpl	brF103
 .db $B,$A,$12,$14,$E,$14,$12,$14
	bpl	brF115
brF101:
 .db $E
brF102:
	bpl	brF114
 .db $E,$E,$E,$C,$12,$E,$14
	bpl	brF117
 .db $A
	sec
 .db $30
	plp
 .db $B
brF115:
	clc
	clc
brF117:
	pha
 .db $30,$C
	sec
	plp
	bpl	brF146
 .db $E
	php
	php
	php
	php
	php
	php
	php
	php
	php
	php
	php
	php
 .db $A
	php
	php
 .db $4
	php
 .db $A,$4
	sty	<TempA,x
 .db $F8,$A,$A
	php
 .db $6,$0
	php
 .db $4,$0,$FC,$0
	ora	<Temp6
 .db $FC
	ora	<Temp0
 .db $FC,$0
	dey
	ora	<rF4
	ora	<Temp5
 .db $4,$2,$0,$4,$6,$6,$6,$FC,$1
	bpl	brF16D
 .db $12,$11
	bpl	brF102
	php
brF161:
	lda	r300,x
	beq	brF16D
	inx
 .db $E0
	clc
	bne	brF161
	sec
	rts
brF16D:
	clc
	rts
	ldy	#$8
brF171:
 .db $B9,$0,$3
	beq	brF17D
 .db $C8,$C0
	clc
	bne	brF171
	sec
	rts
brF17D:
	clc
	rts
	jsr	jsEC94
	sta	<TempA
	lda	#$1
 .db $B0,$2
	lda	#$2
	sta	<TempC
	jsr	jsEC76
	sta	<TempB
	lda	#$4
 .db $B0,$2
	lda	#$8
	ora	<TempC
	sta	<TempC
	lda	<TempB
 .db $C5,$A,$B0,$33
	lda	<Temp2
	sta	$3A8,x
	lda	<Temp3
	sta	$3C0,x
	lda	<TempA
	sta	<Temp1
	lda	#$0
	sta	<Temp0
	jsr	jsF22D
	lda	<Temp4
	sta	<Temp2
	lda	<Temp5
	sta	<Temp3
	lda	<TempB
	sta	<Temp1
	lda	#$0
	sta	<Temp0
	jsr	jsF22D
	lda	<Temp4
	sta	$3D8,x
	lda	<Temp5
	sta	$3F0,x
	rts
	lda	<Temp2
brF1D6:
	sta	$3D8,x
	lda	<Temp3
	sta	$3F0,x
	lda	<TempB
	sta	<Temp1
	lda	#$0
	sta	<Temp0
	jsr	jsF22D
	lda	<Temp4
	sta	<Temp2
	lda	<Temp5
	sta	<Temp3
	lda	<TempA
	sta	<Temp1
	lda	#$0
	sta	<Temp0
	jsr	jsF22D
	lda	<Temp4
	sta	$3A8,x
	lda	<Temp5
	sta	$3C0,x
	rts
	lda	#$0
	sta	<Temp2
	sta	<Temp3
	lda	<Temp0
	ora	<Temp1
	bne	brF216
	sta	<Temp2
	rts
brF216:
	ldy	#$8
brF218:
 .db $6,$2
	rol	<Temp0
	rol	<Temp3
	sec
	lda	<Temp3
 .db $E5,$1,$90,$4
	sta	<Temp3
	inc	<Temp2
	dey
	bne	brF218
	rts

jsF22D:
	lda	#$0
	sta	<Temp6
	sta	<Temp7
	lda	<Temp0
	ora	<Temp1
	ora	<Temp2
	ora	<Temp3
	bne	brF242
	sta	<Temp4
	sta	<Temp5
	rts
brF242:
	stx	<Temp9
	ldy	#$10
brF246:
 .db $6,$6
	rol	<Temp0
	rol	<Temp1
	rol	<Temp7
	sec
	lda	<Temp1
 .db $E5,$2
	tax
	lda	<Temp7
 .db $E5,$3,$90,$6
	stx	<Temp1
	sta	<Temp7
	inc	<Temp6
	dey
	bne	brF246
	lda	<Temp6
	sta	<Temp4
	lda	<Temp0
	sta	<Temp5
	ldx	<Temp9
	rts
	sta	<Temp0
 .db $84,$1
	lda	#$0
	sta	<Temp2
	sta	<Temp3
	sta	<Temp4
	ldy	#$8
brF27C:
 .db $46,$1,$90,$D
	clc
	lda	<Temp0
 .db $65,$2
	sta	<Temp2
	lda	<Temp4
 .db $65,$3
	sta	<Temp3
 .db $6,$0,$66,$4
	dey
	bne	brF27C
	lda	<Temp2
	rts
	lda	r438,x
	and	#$7
	tay
 .db $B9,$B2,$F2
	sta	<Temp0
	lda	r438,x
	lsr	A
	lsr	A
	lsr	A
	tay
 .db $B9,$0,$1
	ora	<Temp0
 .db $99,$0,$1
	rts
 .db $1,$2,$4
	php
	bpl	brF2D8
	rti
 .db $80,$FE,$FD,$FB,$F7,$EF,$DF,$BF,$7F,$0
	jsr	jsFFA9
	sta	$438,x
	lda	#$0
	sta	$5A0,x
	sta	$300,x
	sta	$5B8,x
	sta	$450,x
	sta	$408,x
	sta	$468,x
	sta	$480,x
	sta	$498,x
	sta	$4B0,x
	sta	$4C8,x
	sta	$4E0,x
	sta	$4F8,x
	sta	$510,x
	rts
 .db $B9,$0,$3
	cmp	#$C5
	beq	brF32C
	cmp	#$79
	beq	brF32C

jsF2FE:
	lda	#$FF
 .db $99
	sec
 .db $4
	lda	#$0
 .db $99
	ldy	#$5
 .db $99,$0,$3,$99,$B8
	ora	<r99
 .db $50,$4,$99
	php
 .db $4,$99
	pla
 .db $4,$99,$80,$4,$99
	tya
 .db $4,$99,$B0,$4,$99,$C8,$4,$99,$E0,$4,$99,$F8,$4,$99
	bpl	brF331
brF32C:
	rts

jsF32D:
	lda	<rF5
	pha
	lda	<rF6
	pha
	lda	#$0
	sta	<rF5
	lda	<Level
	sta	<rF6
	jsr	jsFF43
	pla
	sta	<rF6
	pla
	sta	<rF5
	jmp	jpFF43

jsF34A:
	lda	<rF5
	pha
	lda	<rF6
	pha
	lda	#$4
	sta	<r9F
	jsr	jsC38F
	jsr	jsDF5E
	pla
	sta	<rF6
	pla
	sta	<rF5
	jmp	jpFF43
	inc	<r95
	jsr	jsF34A
	lda	#$0
	sta	<r95
	jmp	jpFF22
	lda	<rF5
	pha
	lda	<rF6
	pha
	inc	<r95
	ldx	#$44
	stx	<r9F
	jsr	jsC391
	jsr	jsDF5E
	lda	#$0
	sta	<r95
	pla
	sta	<rF6
	pla
	sta	<rF5
	jsr	jsFF43
	jmp	jpFF22
	lda	<rF5
	pha
	lda	<rF6
	pha
	inc	<r95
	ldx	#$0
	lda	#$F8
brF39D:
	sta	$200,x
	inx
	inx
	inx
	inx
 .db $E0,$C0
	bne	brF39D
	ldx	#$4
	stx	<r9F
	jsr	jsDF5E
	lda	#$0
	sta	<r95
	pla
	sta	<rF6
	pla
	sta	<rF5
	jsr	jsFF43
	jmp	jpFF22
	ldy	#$3
brF3C1:
	lda	<r32
	beq	brF3D4
 .db $B9,$30,$6,$99
	bpl	brF3D1
 .db $B9,$34,$6,$99,$14,$6
brF3D1:
	jmp	jpF3E6
brF3D4:
 .db $B9,$B2,$D4,$99,$30,$6,$99
	bpl	brF3E3
brF3E3:
 .db $B9,$B6,$D4,$99,$34,$6,$99,$14,$6
jpF3E6:
	dey
	bpl	brF3C1
	lda	BGPalW
	sta	$610
 .db $84
	clc
	rts

jsF3F2:
	lda	<MM_MoveType
	sta	<Temp0
	lda	<r2D
	sta	<Temp1
	lda	<r2E
	sta	<Temp2
	lda	<r32
	sta	<Temp3
	lda	<Weapon
	sta	<Temp4
	lda	#$0
	ldy	#$F
brF40A:
 .db $99,$30,$0,$99,$50,$0
	dey
	bpl	brF40A
	sta	<Tile_ScrollX
	sta	<rAF
	sta	<r52
	sta	<r43
	sta	<ScrollY
	sta	<rFD
	sta	<ScrollX
	sta	<rFB
	sta	$5F0
	sta	$5F1
	sta	$5F2
	sta	$5F3
	sta	$5D0
	sta	<r2D
	sta	<r2E
	sta	<r2F
	ldy	#$3F
brF43A:
 .db $99,$C0,$6,$C0,$1F,$B0,$3,$99,$80,$6
	dey
	bpl	brF43A
	lda	<Temp0
	sta	<MM_MoveType
	cmp	#$16
	beq	brF454
	cmp	#$17
	beq	brF454
	rts
brF454:
	lda	<Temp1
	sta	<r2D
	lda	<Temp2
	sta	<r2E
	lda	<Temp3
	sta	<r32
	lda	<Temp4
	sta	<Weapon
	rts
	ldy	#$1F
	lda	#$0
brF469:
 .db $99,$0,$1
	dey
	bpl	brF469
	rts
 .db $84,$0
	sta	<Temp1
 .db $B9,$4B,$ED
	sta	$420,x
	lda	<Temp0
	and	#$7
	ora	<Temp1
	tay
 .db $B9,$9E,$F4
	sta	$3A8,x
 .db $B9,$EE,$F4
	sta	$3C0,x
	tya
	eor	#$4
	tay
 .db $B9,$9E,$F4
	sta	$3D8,x
 .db $B9,$EE,$F4
	sta	$3F0,x
	rts
 .db $0
	clc
brF4A0:
 .db $2D,$3B
	rti
 .db $3B,$2D
	clc
 .db $0,$C3,$6A,$D9,$0,$D9,$6A,$C3,$0,$87,$D4,$B2,$0,$B2,$D4,$87
 .db $0,$9C,$21,$7A,$99,$7A,$21,$9C,$0,$61
	lda	<Mapping_SPRCHR0,x
 .db $0,$EC
	lda	<r61,x
 .db $0,$25,$1F,$C5,$0,$C5,$1F,$25,$0
	sbc	#$89
 .db $9E,$0,$9E,$89
	sbc	#$0
 .db $30,$5A,$76,$80,$76,$5A,$30,$0,$F4,$C4,$4F,$80,$4F,$C4,$F4,$0
 .db $F
	tay
 .db $64,$0,$64
	tay
 .db $F,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$1,$1,$2,$1,$1
 .db $0,$0,$1,$2,$3,$4,$3,$2,$1,$0,$0,$1,$1,$1,$1,$1
 .db $0,$0,$0,$0,$0,$1,$0,$0,$0,$0,$1,$2,$2,$3,$2,$2
 .db $1,$0,$1,$3,$4
	ora	<Temp4
 .db $3,$1,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$1,$2,$2,$2
 .db $1,$0,$0,$3
	ora	<Temp7
	php
 .db $7
	ora	<Temp3
 .db $FF,$75,$FF
	eor	<rFF,x
 .db $D5,$FF
	eor	<rFF,x
 .db $DF,$F7,$FD,$FB
	eor	<rFF,x
 .db $77,$FE,$5D,$FF,$D5,$EF,$45,$FF,$CD,$FF,$D5,$FF,$D5,$FF,$D5,$FA
 .db $7B,$FF,$7F,$FF,$75,$FF,$F7,$FF,$D5,$FF,$D3,$FE,$75,$DF,$F7,$FB
 .db $D7,$FF
	eor	<rFF,x
	eor	<Write2001,x
 .db $C5,$F7,$77,$FE,$75,$FE,$7D,$7F,$5D,$7F,$DD,$F7,$75,$7F,$7B,$FF
 .db $DD,$FF,$41,$FF
	eor	<rFB,x
	eor	<rFB,x
	sta	<Write2001,x
 .db $7D,$FF,$75,$FF,$CF,$FF,$F3,$FF,$5D,$FF,$F5,$FF,$67,$FF,$D7,$DF
	eor	<rFF,x
 .db $5F,$FF,$75,$FF,$D5,$F7,$DD
	sta	$FFDF,x
	eor	<r7F,x
	eor	<rFF,x
 .db $5D,$77
	and	<rFF,x
 .db $5F,$F2,$5D,$FF,$CD,$F7,$D7,$FF
	eor	<r7F,x
	eor	<r7F,x
 .db $D5,$FB,$F7,$7F,$4D,$FF,$7D,$FE,$77,$FF,$FF,$FF,$7D,$FF
	eor	<rBF,x
 .db $5D,$FF,$57,$F9,$D5,$FF,$75,$7F
	eor	<rFD,x
 .db $57,$FF,$45,$FF,$77,$FF,$75,$EF,$F5,$FF
	and	<rDF,x
 .db $5F,$FF,$7D,$FB,$D7,$FF,$65,$FB,$DD,$BF
	lda	<rFF,x
 .db $7D,$FF,$7F,$FB,$DD,$FB,$5F,$FF,$D7,$FF,$75,$FF,$57,$FF,$D5,$FF
 .db $75,$7,$1,$FF,$D1,$FF,$5D,$FF,$53,$FF,$DD,$FD,$77,$D7,$5F,$F7
 .db $FF,$F7,$77,$FF,$57,$FF,$34,$FF
	eor	<r7F,x
 .db $75,$DF,$57,$BF,$59,$F7,$F1,$FD,$5D,$FB,$D5,$FF
	sta	<rDD,x
 .db $D5,$FF,$75,$FF
	eor	<rFF,x
 .db $FD,$FF,$77
	lda	datFFDD,x
 .db $FF,$FF
	eor	<r7F,x
 .db $7D,$DF
	eor	<rFF,x
 .db $D5,$FF,$75,$FF
	eor	<rDF,x
 .db $51,$BF,$5F,$FF,$77,$BF,$5D,$BF,$57,$7F,$5D,$FF,$5F,$7F,$63,$FF
 .db $57,$FE,$5F,$FF,$56,$FF,$D5,$FF,$77,$DF,$75,$FF,$7D,$FB,$75,$FF
 .db $F7,$DF,$F5,$FF,$5D,$FF,$57,$FF,$5D,$FF,$5B,$FF,$7F,$FF,$57,$FF
 .db $37,$DF,$57,$DF
	eor	<rFF,x
 .db $D7,$FF,$77,$FF,$D7,$FF,$77,$FD,$DD,$FE,$5D,$FF,$DC,$F7,$7D,$FF
	eor	<rFD,x
	eor	<rF6,x
 .db $F5,$FF,$57,$FE
	eor	<rFF,x
 .db $57,$FE,$D7,$FF
	eor	<r7F,x
 .db $73,$F7
	eor	<rFF,x
 .db $D5,$DF,$4F,$FF,$71,$EB,$E5,$FF
	eor	<rFF,x
 .db $75,$FF,$D7,$FF,$57,$FF,$D5,$FF,$FD,$7F,$D5,$FF,$75,$FF,$C7,$FD
 .db $5D,$FA,$5D,$FF
	eor	<rFD,x
	eor	<rDF,x
 .db $7D,$F7,$FD,$FF
	sei
 .db $FB,$57,$F9,$75,$FF,$75,$FF
	eor	<rF7,x
 .db $77,$FF,$5D,$F7,$77,$FE,$D7,$FF,$D7,$FF,$5D,$FF,$45,$EE,$4D,$FF
 .db $DD,$FF,$57,$FB,$D5,$FF,$7F,$FF,$45,$FD,$65,$FF,$C5,$FF,$57,$FF
 .db $75,$FF,$5D,$FF,$77,$FF,$75,$FF,$C7,$FD,$DF,$7D,$75,$FF,$75,$F4
 .db $59,$7F,$D5,$FF,$77,$FF
	eor	<rBF,x
 .db $5D,$FF,$5D,$FB,$5F,$77,$F3,$FF
	eor	<rFF,x
 .db $7D,$EF,$57,$FF,$57,$FF,$57,$F7,$5F,$FF,$57,$FF,$F5,$F9,$1,$DF
 .db $D5,$7D,$1,$FF,$5D,$FF,$77,$FF,$5D,$FF
	sty	<Mapping_SPRCHR3,x
 .db $DD,$FF,$7D,$FF,$54,$FF,$57,$FF,$5F,$BE,$7D,$EF,$75,$FF
	eor	<rFF,x
 .db $FF,$FD
	eor	<rDF,x
 .db $71,$FF
	eor	<rFF,x
 .db $75,$FF,$67,$EF
	eor	<rFF,x
 .db $75,$FF,$5D,$FF,$51,$F7
	eor	<rFF,x
 .db $DF,$FF,$75,$FD,$7F,$FF,$7D,$FF,$D5,$FF
	eor	<rFF,x
 .db $5F,$DF,$5D,$FD,$F5,$FF,$DD,$FF
	sta	<rFF,x
 .db $57,$FF,$7D,$DF,$D5,$DB,$5F,$FF,$5F,$FF,$7D,$FF,$5F,$FE
	eor	<rFF,x
 .db $5D,$7E,$5F,$FF,$DF,$BF,$7D,$F7,$B7,$BB,$F5,$FF,$7D,$FF,$75,$FF
 .db $CD,$FF,$75,$FF,$15,$FF
	eor	<rFF,x
 .db $65,$EF,$C5,$EF,$57,$FF,$7E,$FF,$C5,$3F,$75,$FF,$D1,$FF,$FF,$FF
 .db $7D,$BF,$F5,$FF,$79,$FF,$5D,$FF,$D5,$FE,$F5,$FF,$31,$FF,$37,$FF
 .db $57,$FF,$75,$FF,$7D,$BF,$77,$FF,$7D,$EF,$F5,$FB,$5D,$EF,$DD,$FF
 .db $73,$FF,$FD,$FB,$79,$DF
	dec	<rFF,x
	eor	<rFF,x
 .db $FD,$FF,$5F,$FF
	eor	<Write2001,x
 .db $59,$7F
	eor	<rFF,x
 .db $57,$FF,$7E,$FF,$D7,$DF,$FF,$DF,$D7,$FF,$D3,$FF,$57,$FF,$75,$FF
 .db $5D,$FF,$D5,$FF,$5D,$5F,$5D,$E7,$7D,$FF
	eor	<rFF,x
 .db $F5,$FF,$5D,$FF
	eor	<rFF,x
	eor	<rF7,x
 .db $5F,$FF,$F5,$F7
	eor	<rFF,x
	eor	<rFF,x

jsF802:
 .db $71,$FF,$F5,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
	rti
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$1,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0
	rti
 .db $0,$0,$2,$22,$0,$0,$0,$0,$0,$0,$0
	bpl	brF841
brF841:
 .db $0,$0,$0,$0
	bpl	brF847
brF847:
 .db $0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$2,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0
	php
 .db $0
	eor	#$0
 .db $80,$0,$0,$82,$4
	bpl	brF880
brF880:

jsF88D:
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$80,$0,$0,$0,$80,$0
 .db $0,$0,$0,$0,$0,$0,$0
	rti
 .db $0,$0,$0,$0,$0
	bpl	brF89F
brF89F:
 .db $0,$0,$0,$0,$0,$2
	bpl	brF8A7
brF8A7:
 .db $0,$80,$0,$0,$0,$0,$0,$2,$0,$0,$0,$0,$80,$0,$0,$80
 .db $0,$0,$0,$0
 .db $0,$1,$80,$0,$0,$0,$0,$0,$0,$4,$0,$0,$0,$80,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0
	bpl	brF8D9
brF8D9:
 .db $0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$80,$0,$1,$0,$1,$2,$0,$2,$0,$0
	pha
 .db $0,$4,$1
	pha
	php
 .db $0,$0
	ldy	#$0
	bpl	brF8FF
brF8FF:
 .db $44,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$1,$0
	bpl	brF927
brF927:
 .db $0,$0,$A,$0,$0,$0,$0,$0,$0,$0,$0,$2,$0
	php
 .db $0,$0,$0,$2,$0
	php
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0
	bpl	brF955
brF955:
 .db $0,$0
	rti
 .db $0,$0,$0,$80,$0,$0,$0,$0,$0,$0
	php
	rti
 .db $0,$0
	php
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0
	php
 .db $C,$2,$0,$0,$80,$80,$0,$0
	rti
 .db $0,$80
	rti
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$1,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$2,$0
	php
 .db $80,$0,$0,$0,$4,$0,$2,$0,$0,$0,$0,$0
	php
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0
	bpl	brF9C1
brF9C1:
	bpl	brF9C3
brF9C3:
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$2,$81,$0
 .db $0,$0,$0,$0
	php
 .db $0,$0
	php
 .db $2
	php
 .db $0,$0
	bpl	brF9E1
brF9E1:
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0
	php
 .db $0,$0,$0,$14,$0
	bpl	brF9F7
brF9F7:
 .db $80,$0,$2,$0,$0,$22
	rti
 .db $0,$4,$0,$0,$0,$0,$0,$0,$0,$0,$0
	rti
 .db $0,$0,$0,$0,$0
	rti
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0
	php
 .db $0,$0,$0,$0,$44,$0,$80,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0
	php
 .db $0,$0,$0,$0,$0,$0,$0,$0,$41,$0
	php
 .db $0,$1
	php
	bpl	brFA65
brFA65:
 .db $2,$0
	rti
	php
 .db $0,$0,$0,$0
	rti
 .db $0
	rti
 .db $0,$0,$0,$0,$0,$0,$0,$C1,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $4,$0,$0,$0,$2
brFAA1:
 .db $1,$0,$0,$0,$0,$0,$0,$0,$C1,$2
 .db $0
	bpl	brFAA9
brFAA9:
 .db $0,$0
	php
 .db $0,$0,$1,$0
 .db $0,$0,$0,$2
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$4,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$4,$2,$4,$0,$4,$0,$0,$0,$2,$0
	pla
	bpl	brFAF1
brFAF1:
 .db $0,$0,$0,$0,$0,$0,$0,$80
	bpl	brFB1B
 .db $0,$2,$0,$0
	php
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0
	php

jsFB10:
brFB1B:
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$4,$0,$0,$0,$0,$0,$0,$0
	php

jsFB30:
 .db $0,$0,$0,$90,$0,$0,$0,$0,$0
	php
 .db $80,$0,$0,$0,$0,$0,$0,$3,$0
	rti
 .db $0
	rti
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$2,$0,$0,$0
	bpl	brFB57
brFB57:
brFB5B:
 .db $0,$0,$0,$0,$0,$0,$0
	php
 .db $0
	php
 .db $0,$0,$0,$0,$1,$0,$0,$0,$81,$0,$80,$0
	php
 .db $0
 .db $0,$0,$0,$0,$0,$58,$0,$0,$0
 .db $2,$0,$0,$2,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$21,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0,$2,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$4
	php
 .db $0,$0
	rti
 .db $80,$0,$0,$0,$0
	sty	$6002
 .db $0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0
	php
 .db $0,$2,$0,$80,$0,$0,$0
	bpl	brFB5B
 .db $80
	ldy	#$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$80,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$2
	php
 .db $2,$0,$0,$0,$0,$0,$0,$0
	pha
 .db $D3,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$2,$0,$0,$0,$0
 .db $0
	rti
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$80,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$4,$3,$0,$0,$0,$4,$0,$0
 .db $0
 .db $1,$0,$0,$2,$1
	bpl	brFC3C
brFC3C:
 .db $0,$0,$0,$1,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$84,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$1
	bpl	brFC6B
 .db $0,$0,$0
	php
brFC6B:
 .db $0,$1,$0,$0,$44,$E,$0,$0,$41,$0,$0,$0,$0,$0,$0
	pha
 .db $0,$C0
	rti
 .db $0
	rti
 .db $0,$0,$1A,$0,$4,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0
	bpl	brFC90
brFC90:
	bpl	brFC92
brFC92:
 .db $0,$0,$0,$14,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$2,$14
 .db $0,$0
	php
 .db $0,$4,$0,$41
	rti
 .db $0,$0,$0,$0,$B0,$0,$0,$0,$0,$0,$0,$4,$42,$0
	php
 .db $0
 .db $0,$0,$41,$0,$0,$0,$0,$0,$0,$0,$0,$1,$0,$80,$0,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$1,$0,$0,$0,$0,$0
	rti
 .db $0,$0,$4
	rti
 .db $80,$0,$0,$0,$80
	bpl	brFD2B
 .db $0
	ora	#$4
 .db $80,$0,$0,$0
 .db $0
	rti
 .db $0
	rti
 .db $44,$0,$0
	bpl	brFCFC
brFCFC:
 .db $0,$0
	rti
 .db $50,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
	bpl	brFD0C
brFD0C:
 .db $0,$0,$2,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$2,$0,$0,$0,$0,$0,$80,$0,$0,$0,$0,$0
brFD2B:
 .db $0
	rti
 .db $80,$0
	php
 .db $0,$12,$0,$44,$0,$0
	rti
 .db $0
	rti
 .db $4,$0,$0,$0,$0,$0,$0,$0,$0,$1,$0,$0,$0,$0,$0,$0
 .db $0,$0,$0,$0,$1,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
	bpl	brFD5E
brFD5E:
 .db $1,$0,$4,$84,$0,$3,$0,$0,$0,$0,$0,$0,$0,$21,$4,$0
 .db $0,$4,$4,$0,$50,$0,$0,$0,$0,$0,$1,$0,$4,$0,$1,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$4,$0
 .db $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$1,$0
 .db $0,$0,$1,$1
	rti
 .db $0,$0,$0,$0,$1,$1,$0,$1
	php
 .db $0,$0,$0,$80,$1,$0,$0
brFDBF:
 .db $0,$0,$0,$2,$0,$0,$0,$0,$0,$0,$0,$80,$0,$0,$4,$0
brFDD6:
 .db $0,$0,$0,$0,$0,$1,$0,$0,$0,$0,$0,$14,$0,$0,$0,$0
 .db $0,$90,$0,$0,$0,$0
	bpl	brFDE1
brFDE1:
 .db $0,$0,$0
	bpl	brFDE6
brFDE6:
 .db $44,$4,$C4,$0,$0,$0,$0,$0,$0
	rti
 .db $0,$0
	rti
 .db $0,$A,$0
	php
 .db $0,$2E,$0
	ora	#$0
	bpl	brFDFE
brFDFE:
 .db $0,$11

Reset:
	sei
	cld
	lda	#$8
	sta	$2000
	lda	#$40
	sta	$4017
	ldx	#$0
	stx	$2001
	stx	$4010
	stx	$4015
	dex
 .db $9A
	ldx	#$4
brFE1B:
	lda	$2002
	bpl	brFE1B
	lda	$2002
 .db $30,$FB
	dex
	bne	brFE1B
	lda	$2002
	lda	#$10
	tay
brFE2E:
	sta	$2006
	sta	$2006
	eor	#$10
	dey
	bne	brFE2E
	tya
brFE3A:
 .db $99,$0,$0,$99,$0,$1,$99,$0,$2,$99,$0,$3,$99,$0,$4,$99
 .db $0
	ora	<r99
 .db $0,$6,$99,$0,$7
	dey
	bne	brFE3A
	ldx	#$7
	lda	#$88
brFE59:
	sta	<rDC,x
	dex
	bpl	brFE59
	lda	#$18
	sta	<Write2001
	lda	#$1
	jsr	jsFFB7
	ldx	#$5
	lda	#$0
brFE6B:
	stx	$8000
	sta	$8001
	dex
	bpl	brFE6B
	jsr	jsC38F
	lda	#$20
	ldx	#$0
	ldy	#$0
	jsr	jsC343
	lda	#$28
	ldx	#$0
	ldy	#$0
	jsr	jsC343
	lda	#$DD
	sta	<r94
	lda	#$E8
	sta	<r93
	lda	#$2
	jsr	jsFEF3
	lda	#$88
	sta	<RandDig
	sta	<r9B
	sta	<rFF
	sta	$2000
	lda	#$2
	sta	<rBF

jsFEA5:
	lda	#$9C
	sta	<MM_HP
	sta	<rBA
jpFEAB:
	ldx	#$FF
 .db $9A
brFEAE:
jpFEAE:
	ldx	#$0
	stx	<r90
	ldy	#$4
brFEB4:
	lda	<r80,x
	cmp	#$4
 .db $B0,$A
	inx
	inx
	inx
	inx
	dey
	bne	brFEB4
	jmp	jpFEAE
	lda	<r90
	bne	brFEAE
	dey
	tya
	eor	#$3
	sta	<r91
 .db $B4,$80
	lda	#$2
	sta	<r80,x
 .db $C0
	php
	bne	brFEE3
	lda	<r82,x
	sta	<r93
	lda	<r83,x
	sta	<r94
	jmp	($93)
brFEE3:
	lda	<r82,x
	tax
 .db $9A
	lda	<r91
	bne	brFEEE
	jsr	jsC2E5
brFEEE:
	pla
	tay
	pla
	tax
	rts

jsFEF3:
	jsr	jsFF17
	lda	<r93
	sta	<r82,x
	lda	<r94
	sta	<r83,x
	lda	#$8
	sta	<r80,x
	rts

jsFF03:
	jsr	jsFF17
	lda	#$0
	sta	<r80,x
	rts
jpFF0B:
	jsr	jsFF15
	lda	#$0
	sta	<r80,x
	jmp	jpFEAB

jsFF15:
	lda	<r91

jsFF17:
 .db $A,$A
	tax
	rts
brFF1B:
	jsr	jsFF22
	dex
	bne	brFF1B
	rts

jsFF22:
jpFF22:

jsFF22:
	lda	#$1
	sta	<r93
	txa
	pha
	tya
	pha
	jsr	jsFF15
	lda	<r93
	sta	<r81,x
	lda	#$1
	sta	<r80,x
	txa
	tay
	tsx
 .db $96,$82
	jmp	jpFEAB

jsFF3D:
	sta	<rF5
	sta	<rF6
	inc	<rF6
jpFF43:

jsFF43:
jpFF43:

jsFF43:
jpFF43:

jsFF43:
jpFF43:

jsFF43:
jpFF43:
	inc	<rF7
	lda	#$6
	sta	<Write8000
	sta	$8000
	lda	<rF5
	sta	<rF3
	sta	$8001
	lda	#$7
	sta	<Write8000
	sta	$8000
	lda	<rF6
	sta	<rF4
	sta	$8001
	dec	<rF7
	lda	<rF8
	bne	brFF68
	rts
brFF68:

jsFF68:
	lda	<rF7
	bne	brFFB4
	lda	#$6
	sta	<Write8000
	sta	$8000
	lda	#$18
	sta	$8001
	lda	#$7
	sta	<Write8000
	sta	$8000
	lda	#$19
	sta	$8001
jpFF84:
	stx	<rA7
 .db $84
	tay
	ldx	<rDB
	lda	<rDC,x
	cmp	#$88
	beq	brFFA6
	pha
	lda	#$88
	sta	<rDC,x
	inx
	txa
	and	#$7
	sta	<rDB
	pla
	ldx	<rA7
	ldy	<rA8
	jmp	jpFF84
brFFA6:

jsFFA9:
	lda	#$0
	sta	<rF8
	ldx	<rA7
	ldy	<rA8
	jmp	jpFF43
brFFB4:
	inc	<rF8
	rts

jsFFB7:
	sta	$A000
	sta	<NTMirroring
	rts
 .db $0
	rti
 .db $1,$C0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$81,$0,$0,$0,$0
 .db $1,$0,$1,$0
	rti
 .db $0,$4,$0,$1,$0,$0,$0
	rti

datFFDD:
 .db $0,$0,$0,$0,$0,$0,$0,$0,$1,$0,$0,$0,$4,$0,$0,$0
 .db $0,$0
	bpl	brFFF0
brFFF0:
 .db $6B,$3F
	ldx	<r15
 .db $44,$4,$0,$0
	php
 .db $F5

 .dw	NMI
 .dw	Reset
 .dw	IRQ

 .end