antoine-source/dlld/terravision/source/DOLESSON.S

2324 lines
47 KiB
ArmAsm

*---------------------------------------------------------*
* Disassembled with The Flaming Bird Disassembler *
* (c) Phoenix corp. 1992,93 - All rights reserved *
*---------------------------------------------------------*
REL
L090000 PHD
TSC
SEC
SBC #$00FB
TCD
ADC #$00D2
TCS
LDA #$004B
PHA
LDA L020056
PHA
INC
STA L020056
PLA
CLC
JSL L012E82
PLA
TAY
BNE L090065
PEA $0000
PEA $0000
TDC
CLC
ADC #$00D6
PHA
_GetColorTable
BCS L090039
LDA #$0000
L090039 STAL L020002
LDA $EE
STA $D4
LDA $EC
STA $EE
LDA $D4
STA $EC
PEA $0000
PEA $0000
TDC
CLC
ADC #$00D6
PHA
_SetColorTable
BCS L090061
LDA #$0000
L090061 STAL L020002
L090065 LDA #$0000
TAY
TSC
CLC
ADC #$0028
TCS
TYA
PLD
RTL
L090072 ENT
PHD
TSC
SEC
SBC #$00FB
TCD
ADC #$00EC
TCS
STZ L020072
PEA ^L031DFE
PEA L031DFE
JSL L0133D4
PLY
PLY
L09008C LDA L020052
BEQ L090094
BRL L0912EF
L090094 LDA L020072
CMP #$001C
BEQ L0900A2
LDA L020072
STA L020074
L0900A2 LDA L020072
BRL L0912D3
L0900A8 JSL L0117E0
LDA L020058
BEQ L0900B8
JSL L012D95
STZ L020058
L0900B8 PEA $0108
_DisableMItem
BCS L0900C7
LDA #$0000
L0900C7 STAL L020002
PEA ^L031E0A
PEA L031E0A
JSL L0133D4
PLY
PLY
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L090000
PEA L090000
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L0804DD
TAY
TSC
CLC
ADC #$0014
TCS
TYA
PEA ^L0321A8
PEA L0321A8
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0000
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
PEA $0108
_EnableMItem
BCS L090136
LDA #$0000
L090136 STAL L020002
LDA L020072
CMP #$0000
BEQ L090148
LDA #$0001
STA L020058
L090148 BRL L0912E0
L09014B PEA ^L031E10
PEA L031E10
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L0A06DC
PLY
PLY
STA L020072
BRL L0912E0
L090188 PEA ^L031E17
PEA L031E17
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L0A06DC
PLY
PLY
STA L020072
BRL L0912E0
L0901C5 PEA ^L031E21
PEA L031E21
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L0322E7
PEA L0322E7
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0003
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L09020E PEA ^L031E27
PEA L031E27
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L03245E
PEA L03245E
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0004
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090257 PEA ^L031E2F
PEA L031E2F
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L0324BE
PEA L0324BE
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0005
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L0902A0 PEA ^L031E37
PEA L031E37
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L03251E
PEA L03251E
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0006
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L0902E9 PEA ^L031E3F
PEA L031E3F
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L03257E
PEA L03257E
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0007
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090332 PEA ^L031E47
PEA L031E47
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L0329BD
PEA L0329BD
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0008
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L09037B PEA ^L031E4F
PEA L031E4F
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L0325D4
PEA L0325D4
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0009
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L0903C4 PEA ^L031E58
PEA L031E58
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L03262A
PEA L03262A
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $000A
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L09040D PEA ^L031E61
PEA L031E61
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032680
PEA L032680
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $000B
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090456 PEA ^L031E6A
PEA L031E6A
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L0326D6
PEA L0326D6
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $000C
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L09049F PEA ^L031E73
PEA L031E73
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L03272C
PEA L03272C
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $000D
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L0904E8 PEA ^L031E7C
PEA L031E7C
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032782
PEA L032782
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $000E
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090531 PEA ^L031E85
PEA L031E85
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L0327D8
PEA L0327D8
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $000F
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L09057A PEA ^L031E8E
PEA L031E8E
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L03282E
PEA L03282E
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0010
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L0905C3 PEA ^L031E97
PEA L031E97
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032884
PEA L032884
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0011
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L09060C PEA ^L031EA0
PEA L031EA0
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032A09
PEA L032A09
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0012
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090655 PEA ^L031EA8
PEA L031EA8
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032A61
PEA L032A61
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0013
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L09069E PEA ^L031EB1
PEA L031EB1
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032AB9
PEA L032AB9
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0014
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L0906E7 PEA ^L031EBA
PEA L031EBA
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032AFC
PEA L032AFC
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0015
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090730 PEA ^L031EC3
PEA L031EC3
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032B54
PEA L032B54
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0016
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090779 PEA ^L031ECC
PEA L031ECC
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032409
PEA L032409
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0017
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L0907C2 PEA ^L031ED5
PEA L031ED5
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L0A061E
PLY
PLY
STA L020072
BRL L0912E0
L0907FF PEA ^L031EDA
PEA L031EDA
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L0A0484
PLY
PLY
STA L020072
BRL L0912E0
L09083C PEA ^L031EDF
PEA L031EDF
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L0A0316
PLY
PLY
STA L020072
BRL L0912E0
L090879 PEA ^L031EE4
PEA L031EE4
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032BC8
PEA L032BC8
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $001B
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L0908C2 PEA ^L031EE9
PEA L031EE9
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032C24
PEA L032C24
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0021
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L09090B PEA ^L031EEF
PEA L031EEF
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032C80
PEA L032C80
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0022
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090954 PEA ^L031EF5
PEA L031EF5
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032CDC
PEA L032CDC
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0023
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L09099D PEA ^L031EFB
PEA L031EFB
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032D38
PEA L032D38
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0024
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L0909E6 PEA ^L031F01
PEA L031F01
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032D98
PEA L032D98
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0025
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090A2F PEA ^L031F08
PEA L031F08
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032DF8
PEA L032DF8
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0026
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090A78 PEA ^L031F0F
PEA L031F0F
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032E58
PEA L032E58
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0027
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090AC1 PEA $010A
_DisableMItem
BCS L090AD0
LDA #$0000
L090AD0 STAL L020002
PEA ^L031F16
PEA L031F16
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L0A021A
PLY
PLY
STA L020072
PEA $010A
_EnableMItem
BCS L090B1D
LDA #$0000
L090B1D STAL L020002
BRL L0912E0
L090B24 PEA ^L031F1B
PEA L031F1B
JSL L0133D4
PLY
PLY
JSL L01160B
PEA ^L031F25
PEA L031F25
JSL L0133D4
PLY
PLY
JSL L01151A
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L011647
PEA L011647
PEA $0000
PEA $0000
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L0800C0
TAY
TSC
CLC
ADC #$001C
TCS
TYA
PEA ^L032E8D
PEA L032E8D
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $001D
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090BA3 PEA ^L031F2F
PEA L031F2F
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032320
PEA L032320
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $001E
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090BEC JSL L0D0522
CMP #$0000
BNE L090BF8
BRL L090C33
L090BF8 PEA ^L031F38
PEA L031F38
JSL L0133D4
PLY
PLY
JSL L0D0000
TAY
BEQ L090C25
PEA ^L031F48
PEA L031F48
JSL L0133D4
PLY
PLY
PEA ^L031F53
PEA L031F53
JSL L0133D4
PLY
PLY
BRA L090C31
L090C25 PEA ^L031F63
PEA L031F63
JSL L0133D4
PLY
PLY
L090C31 BRA L090C3F
L090C33 PEA ^L031F73
PEA L031F73
JSL L0133D4
PLY
PLY
L090C3F JSL L0D0DEE
PEA ^L031F7E
PEA L031F7E
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L0323AD
PEA L0323AD
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0028
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090C8C LDX L0200D4
LDA L0200D2
STA $F6
STX $F8
LDY #$000A
LDA [$F6],Y
TAX
LDY #$0008
LDA [$F6],Y
PHX
PHA
JSL L0133D4
PLY
PLY
PEA $0000
PEA $0000
LDX L0200D4
LDA L0200D2
PHX
PHA
JSL L0D097D
PLY
PLY
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L0D1184
PLY
PLY
STA L020072
BRL L0912E0
L090CF0 LDX L0200D8
LDA L0200D6
STA $F6
STX $F8
LDY #$0006
LDA [$F6],Y
TAX
LDY #$0004
LDA [$F6],Y
PHX
PHA
JSL L0133D4
PLY
PLY
LDX L0200D8
LDA L0200D6
PHX
PHA
LDX L0200D4
LDA L0200D2
PHX
PHA
JSL L0D097D
PLY
PLY
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L0D127E
PLY
PLY
STA L020072
BRL L0912E0
L090D56 JSL L0D0522
CMP #$0001
BNE L090D72
JSL L0D0637
STX L0200E2
STA L0200E0
LDA #$0033
STA L020072
BRL L0912E0
L090D72 PEA ^L031F8F
PEA L031F8F
JSL L0133D4
PLY
PLY
JSL L0D002A
PEA ^L031FA1
PEA L031FA1
JSL L0133D4
PLY
PLY
JSL L0D0198
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L0D03D5
PEA L0D03D5
PEA $0000
PEA $0000
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L0800C0
TAY
TSC
CLC
ADC #$001C
TCS
TYA
PEA ^L033259
PEA L033259
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0032
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090DF1 STZ $EE
JSL L01200B
JSL L011BFE
LDX L0200E2
LDA L0200E0
STA $F6
STX $F8
LDY #$000C
LDA [$F6],Y
TAX
LDY #$000A
LDA [$F6],Y
PHX
PHA
JSL L0133D4
PLY
PLY
JSL L011A39
LDX L0200E2
LDA L0200E0
STA $F6
STX $F8
LDY #$0010
LDA [$F6],Y
TAX
LDY #$000E
LDA [$F6],Y
PHX
PHA
JSL L0133D4
PLY
PLY
JSL L011C23
TAY
BEQ L090E5D
JSL L0121F5
JSL L0122B0
PEA ^L031FB3
PEA L031FB3
JSL L0133D4
PLY
PLY
LDA #$0034
STA L020072
BRL L0912E0
L090E5D LDA $EE
BEQ L090E64
BRL L090F14
L090E64 PEA $0000
PEA $0034
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L0800C0
TAY
TSC
CLC
ADC #$001C
TCS
TYA
PEA ^L03332C
PEA L03332C
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0033
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
LDA L020072
CMP #$0035
BNE L090EE1
PEI $F2
PEI $F0
JSL L011E16
PLY
PLY
PEI $F2
PEI $F0
JSL L011C91
PLY
PLY
BRL L090E5D
BRA L090F08
L090EE1 LDA L020072
CMP #$0036
BNE L090F08
PEI $F2
PEI $F0
JSL L011E16
PLY
PLY
PEI $F2
PEI $F0
JSL L011CAE
PLY
PLY
LDA #$0033
STA L020072
LDA #$0001
STA $EE
L090F08 JSL L011BFE
LDA #$0001
STA $EE
BRL L090E5D
L090F14 LDA L020072
CMP #$0033
BEQ L090F20
JSL L0121F5
L090F20 BRL L0912E0
L090F23 PEA ^L031FBF
PEA L031FBF
JSL L0133D4
PLY
PLY
LDX L0200E2
LDA L0200E0
STA $F6
STX $F8
LDY #$0014
LDA [$F6],Y
TAX
LDY #$0012
LDA [$F6],Y
PHX
PHA
JSL L0133D4
PLY
PLY
PEA ^L031FD0
PEA L031FD0
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L03333C
PEA L03333C
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0034
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090F95 PEA ^L031FE1
PEA L031FE1
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032EC6
PEA L032EC6
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0020
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L090FDE PEA ^L031FEA
PEA L031FEA
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032FE6
PEA L032FE6
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $002E
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L091027 PEA ^L031FF5
PEA L031FF5
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032FE6
PEA L032FE6
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $002E
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L091070 PEA ^L032003
PEA L032003
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L0330CC
PEA L0330CC
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $002F
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L0910B9 PEA ^L03200E
PEA L03200E
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L0330CC
PEA L0330CC
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $002F
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L091102 PEA ^L03201C
PEA L03201C
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L032FF6
PEA L032FF6
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $002C
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L09114B PEA ^L032028
PEA L032028
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L0323D1
PEA L0323D1
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $001F
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L091194 JSL L01194F
TAY
BEQ L0911A4
LDA #$0037
STA L020072
BRL L0912E0
L0911A4 PEA ^L032031
PEA L032031
JSL L0133D4
PLY
PLY
JSL L011976
PEA ^L032040
PEA L032040
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L0331F8
PEA L0331F8
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0030
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L0911FD PEA ^L03204F
PEA L03204F
JSL L0133D4
PLY
PLY
LDAL L031DDC
TAX
LDAL L031DDA
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
JSL L080498
PLY
PLY
PLY
PLY
PEA ^L033249
PEA L033249
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEA $0037
JSL L0A0F31
PLY
PLY
PLY
PLY
PLY
STA L020072
BRL L0912E0
L091246 PEA ^L03205E
PEA L03205E
JSL L0133D4
PLY
PLY
LDA #$0037
STA L020072
BRL L0912E0
L09125B BRL L0912E0
BRL L0912E0
L091261 DA L0900A8
DA L09014B
DA L090188
DA L0901C5
DA L09020E
DA L090257
DA L0902A0
DA L0902E9
DA L090332
DA L09037B
DA L0903C4
DA L09040D
DA L090456
DA L09049F
DA L0904E8
DA L090531
DA L09057A
DA L0905C3
DA L09060C
DA L090655
DA L09069E
DA L0906E7
DA L090730
DA L090779
DA L0907C2
DA L0907FF
DA L09083C
DA L090879
DA L090AC1
DA L090B24
DA L090BA3
DA L09114B
DA L090F95
DA L0908C2
DA L09090B
DA L090954
DA L09099D
DA L0909E6
DA L090A2F
DA L090A78
DA L090BEC
DA L090C8C
DA L090CF0
DA L090FDE
DA L091102
DA L091070
DA L091027
DA L0910B9
DA L091194
DA L091246
DA L090D56
DA L090DF1
DA L090F23
DA L09125B
DA L09125B
DA L0911FD
DA L09125B
L0912D3 CMP #$0038
BCC L0912DB
LDA #$0038
L0912DB ASL
TAX
JMP (L091261,X)
L0912E0 PEA $0000
PEA $0000
JSL L012E43
PLY
PLY
BRL L09008C
L0912EF TSC
CLC
ADC #$000E
TCS
PLD
RTL