* * HypercardGS * segment: $09 HyperTools * * (k) 2015, Brutal Deluxe Software * mx %00 rel dsk HyperTools.l lst off *--------------------------------------- use HyperTools.E use HyperTools.X use 4/Ctl.Macs use 4/Desk.Macs use 4/Dialog.Macs use 4/Event.Macs use 4/Int.Macs use 4/Line.Macs use 4/List.Macs use 4/Locator.Macs use 4/Mem.Macs use 4/Menu.Macs use 4/MidiSyn.Macs use 4/Misc.Macs use 4/Qd.Macs use 4/Sound.Macs use 4/Std.Macs use 4/Text.Macs use 4/Util.Macs use 4/Window.Macs *--------------------------------------- L090000 ENT PHD TSC CLC ADC #$FFEE TCS TCD JSL L079752 LDA L055137 STA $05 JSL L083CFB LDA L055051 BNE L09001D BRL L09013A L09001D PHY LDA L055027 LDX L055029 PHX PHA JSL L0771D3 PLA STA $03 PHY LDA L05501F LDX L055021 PHX PHA JSL L0771D3 PLA STA $01 PEA $0001 JSL L07479E LDA $03 BEQ L0900A5 LDA L055027 LDX L055029 PHX PHA PEA $0001 JSL L0B86C4 LDA L055155 BNE L0900A5 PHY PHY LDA L055027 LDX L055029 PHX PHA JSL L0772AE PLA STA $0B PLX STX $0D LDA $0B ORA $0D BEQ L0900A5 LDY #$0002 LDA [$0B],Y TAX LDA [$0B] CLC ADC #$0010 BCC L090085 INX L090085 STA $0F STX $11 LDA #$2000 AND [$0F] BEQ L090093 LDA #$0001 L090093 STA L055151 LDA L055027 LDX L055029 PHX PHA PEA $0000 JSL L074A90 L0900A5 LDA $01 BEQ L090106 LDA L05501F LDX L055021 PHX PHA PEA $0001 JSL L0B8607 LDA L055155 BNE L090106 PHY PHY LDA L05501F LDX L055021 PHX PHA JSL L07721A PLA STA $07 PLX STX $09 LDA $07 ORA $09 BEQ L090106 LDY #$0002 LDA [$07],Y TAX LDA [$07] CLC ADC #$0010 BCC L0900E6 INX L0900E6 STA $0F STX $11 LDA #$2000 AND [$0F] BEQ L0900F4 LDA #$0001 L0900F4 STA L05514F LDA L05501F LDX L055021 PHX PHA PEA $0000 JSL L074A24 L090106 LDA $01 ORA $03 ORA $05 BEQ L09013A PEA ^L0532BD PEA L0532BD JSL L082712 STZ L055139 LDA $01 BEQ L090122 STZ L055135 L090122 LDA $1A BEQ L09013A LDA L0550B9 DEC BNE L090132 JSL L1601B6 BRA L090136 L090132 JSL L0A3163 L090136 JSL L083E9E L09013A LDA $16 STA $1A LDA $15 STA $19 LDA $13 TCD TSC CLC ADC #$0018 TCS RTL L09014C ENT PHD TSC CLC ADC #$FFD2 TCS TCD LDA L055051 BEQ L09015F JSL L0903A6 BRA L090199 L09015F PHY PHY PHY PHY JSL L07B114 LDA L05501F LDX L055021 PHX PHA JSL L079A19 PLA STA $01 PLX STX $03 LDA $01 ORA $03 BNE L090188 PEA $0001 JSL L0727E0 BRA L090199 L090188 PEI $03 PEI $01 PEA $0000 PEA $0000 PEA $0003 JSL L0968AD L090199 TSC CLC ADC #$002E TCS PLD RTL L0901A1 PHD TSC CLC ADC #$FCC8 TCS ADC #$0249 TCD PEA $0000 TDC CLC ADC #$FEB7 PHA PEI $FA PEI $F8 PEA $0020 JSL L0313BE PEA $0000 TDC CLC ADC #$FFD7 PHA PEA $0000 TDC CLC ADC #$FDB7 PHA PEI $F6 PEI $F4 JSL L072CD4 PEA $0100 JSL L0313BE PHY PHY PEA $0000 TDC CLC ADC #$FEB7 PHA JSL L0B88AC PLA STA $E7 PLX STX $E9 LDA $E7 ORA $E9 BNE L0901FF BRL L09030C L0901FF LDY #$0002 LDA [$E7],Y TAX LDA [$E7] STA $E3 STX $E5 L09020B TDC CLC ADC #$00E3 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FED7 PHA JSL L0712B0 PHY PEA $0000 TDC CLC ADC #$FED7 PHA PEA $0000 TDC CLC ADC #$FFD7 PHA JSL L071C56 PLA LSR BCC L09023F BRL L090304 L09023F LDA #$00FF LDX #$FED7 AND $00,X BNE L09020B PHY PHY LDY #$0002 LDA [$E7],Y PHA LDA [$E7] PHA JSL L071C98 PLA STA $DF PLX STX $E1 PHY PEI $E9 PEI $E7 PEI $E1 PEI $DF LDA #$00FF LDX #$FFD7 AND $00,X JSL L150488 JSL L150F53 CLC ADC #$0002 BCC L09027E INX L09027E PHX PHA JSL L078A05 PLA LSR BCS L09028A BRA L090304 L09028A LDY #$0002 LDA [$E7],Y TAX LDA [$E7] PEI $E1 PEI $DF JSL L150F53 STA $D7 STX $D9 LDX $D9 LDA $D7 BNE L0902A5 DEX L0902A5 DEC STA $EB STX $ED LDA #$00FF AND [$EB] CMP #$000D BEQ L0902C8 SEP #$20 LDA #$0D STA [$D7] REP #$20 LDA $D7 LDX $D9 INC BNE L0902C4 INX L0902C4 STA $D7 STX $D9 L0902C8 PHY PHY PEA $0000 TDC CLC ADC #$FFD7 PHA JSL L071F3F PLA STA $DB PLX STX $DD TDC CLC ADC #$00DB PEA $0000 PHA TDC CLC ADC #$00D7 PEA $0000 PHA JSL L070669 PEA $0000 TDC CLC ADC #$FEB7 PHA PEI $E9 PEI $E7 JSL L0B8C17 L090304 PEI $E9 PEI $E7 JSL L07185A L09030C LDA $F2 STA $FA LDA $F1 STA $F9 LDA $EF TCD TSC CLC ADC #$0342 TCS RTL L09031E PHD TSC CLC ADC #$FFF4 TCS TCD LDA $16 DEC PHA PEA $0006 JSL L150318 PLX PLX STA $07 LDA $16 DEC PHA PEA $0006 JSL L1500F5 PLX PLX STA $05 LDA $12 LDX $14 STA $01 STX $03 LDA $01 LDX $03 STA $09 STX $0B LDA $05 PEA $0019 JSL L150BEE PLA STA [$09] LDA #$0002 CLC ADC $01 LDX $03 BCC L09036B INX L09036B STA $09 STX $0B LDA $07 PEA $0050 JSL L150BEE PLA STA [$09] LDA #$0019 CLC ADC [$01] LDY #$0004 STA [$01],Y LDY #$0002 LDA #$0050 CLC ADC [$01],Y LDY #$0006 STA [$01],Y LDA $10 STA $16 LDA $0F STA $15 LDA $0D TCD TSC CLC ADC #$0014 TCS RTL L0903A6 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L05504F BEQ L0903BC PEA $0031 JSL L0727E0 BRA L0903C3 L0903BC PEA $0030 JSL L0727E0 L0903C3 PLY PLY PLD RTL L0903C7 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L05524B BEQ L0903D8 STZ $0A BRA L0903EE L0903D8 * PHY * PEA $0000 * PEA $C025 * JSL L071A89 * PLA ldal $c025 ; AV 202208 AND #$0004 BEQ L0903EC LDA #$0001 L0903EC STA $0A L0903EE PLY PLY PLD RTL L0903F2 ENT PHD TSC CLC ADC #$FFBA TCS TCD LDA L055027 LDX L055029 CMP L05513F BNE L090408 CPX L055141 L090408 BEQ L09040D BRL L090499 L09040D LDA L055039 LDX L05503B CMP L05513B BNE L09041B CPX L05513D L09041B BEQ L09041F BRA L090499 L09041F TDC CLC ADC #$0023 PEA $0000 PHA JSL L085F5A PEA $0000 TDC CLC ADC #$0003 PEA $0000 PHA JSL L150300 PHY TDC CLC ADC #$0023 PEA $0000 PHA TDC CLC ADC #$0003 PEA $0000 PHA PEA $0020 JSL L070A10 PLA LSR BCS L090499 LDA L055153 BEQ L09047D PHY LDA L05501F LDX L055021 PHX PHA PEA $0001 TDC CLC ADC #$0003 PEA $0000 PHA JSL L07CD77 PLA STA $01 BRA L090499 L09047D PHY LDA L055027 LDX L055029 PHX PHA PEA $0001 TDC CLC ADC #$0003 PEA $0000 PHA JSL L07CD77 PLA STA $01 L090499 TSC CLC ADC #$0046 TCS PLD RTL L0904A1 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L0550B9 BNE L0904B4 JSL L14092D BRA L0904B8 L0904B4 JSL L1601C4 L0904B8 PLY PLY PLD RTL L0904BC ENT PHD TSC CLC ADC #$FFF8 TCS TCD LDA $0E BEQ L0904CB STZ L0551ED L0904CB LDA #$02BC CMP L0551ED BNE L0904DF LDA L0550E9 LDX L0550EB STA $01 STX $03 BRA L090509 L0904DF LDA #$0258 CMP L0551ED BNE L0904F3 LDA L0550E5 LDX L0550E7 STA $01 STX $03 BRA L090509 L0904F3 LDA #$044C CMP L0551ED BNE L090507 LDA L0550DD LDX L0550DF STA $01 STX $03 BRA L090509 L090507 BRA L09052F L090509 LDAL L0523CE PHA LDA #$0006 CLC ADCL L0523CC PHA PEI $03 PEI $01 JSL L151029 PEI $03 PEI $01 JSL L15102F PEI $03 PEI $01 JSL L1511C8 L09052F LDA $0C STA $10 LDA $0B STA $0F LDA $09 TCD TSC CLC ADC #$000E TCS RTL L090541 ENT PHD TSC CLC ADC #$FFF8 TCS TCD LDX #$0000 LDA $10 BEQ L090552 BPL L090553 L090552 INX L090553 TXA PHA LDA $10 SEC SBC #$0021 BVS L090560 EOR #$8000 L090560 BMI L090567 LDA #$0000 BRA L09056A L090567 LDA #$0001 L09056A ORA $01,S PLX LSR BCC L090573 BRL L090623 L090573 LDA L0550B5 CMP $10 BNE L09057C STZ $0E L09057C LDA $10 STA L0550B5 LDA $10 SEC SBC #$0010 BEQ L090590 BVS L09058E EOR #$8000 L09058E BMI L0905B5 L090590 PHY LDA $10 DEC PHA JSL L081A92 PLA STA $01 STZ $03 L09059E LDA $03 ASL TAX LDA $01 STAL L052D12,X LDA #$000F CMP $03 BEQ L0905B3 INC $03 BRA L09059E L0905B3 BRA L0905DD L0905B5 PEA ^L052D12 PEA L052D12 LDA L0550B5 SEC SBC #$0010 DEC ASL ASL ASL ASL ASL TAX TXA CLC ADC #L053C9D LDX #^L053C9D BCC L0905D4 INX L0905D4 PHX PHA PEA $0020 JSL L0313BE L0905DD LDA L0550CD LDX L0550CF CLC ADC #$00CE BCC L0905EA INX L0905EA STA $05 STX $07 LDA #$0020 AND [$05] BEQ L0905F8 LDA #$0001 L0905F8 AND $0E BEQ L090612 LDA L0550DD LDX L0550DF PHX PHA JSL L151131 PEA ^L0531E1 PEA L0531E1 JSL L0854D9 L090612 LDA $0E BEQ L090623 LDA L0550B9 DEC BNE L090623 PEA $0001 JSL L1601D2 L090623 LDA $0C STA $10 LDA $0B STA $0F LDA $09 TCD TSC CLC ADC #$000E TCS RTL L090635 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA $0A SEC SBC #$0001 BVS L090648 EOR #$8000 L090648 BPL L09064F LDA #$0000 BRA L090652 L09064F LDA #$0001 L090652 PHA LDA $0A SEC SBC #$0012 BEQ L090662 BVS L090660 EOR #$8000 L090660 BMI L090667 L090662 LDA #$0000 BRA L09066A L090667 LDA #$0001 L09066A ORA $01,S PLX LSR BCC L090672 BRA L090686 L090672 LDA L0550B9 DEC BNE L090680 PEI $0A JSL L0A02BC BRA L090686 L090680 PEI $0A JSL L0A213D L090686 LDA $08 STA $0A LDA $07 STA $09 LDA $05 TCD PLY PLY PLY PLY RTL L090696 ENT PHD TSC CLC ADC #$FFE6 TCS TCD TDC CLC ADC #$0013 PEA $0000 PHA JSL L150801 PEI $24 PEI $22 PEI $20 TDC CLC ADC #$000B PEA $0000 PHA JSL L072B17 LDA $11 SEC SBC $0D DEC DEC PHA PEA $0004 JSL L1500F5 PLX PLX STA $09 LDA $0F SEC SBC $0B DEC PHA PEA $0004 JSL L1500F5 PLX PLX STA $07 PHY LDA $15 SEC SBC $0D PHA PEI $09 JSL L1500F5 PLX PLX PHA PEA $0000 PEA $0003 JSL L071A1B PLA STA $03 PHY LDA $13 SEC SBC $0B PHA PEI $07 JSL L1500F5 PLX PLX PHA PEA $0000 PEA $0003 JSL L071A1B PLA STA $05 LDA $05 ASL ASL CLC ADC $03 STA $01 PEI $01 PEI $24 PEI $22 PEI $20 JSL L073B05 PEI $24 PEI $22 PEI $20 JSL L070834 LDA $01 STA $26 LDA $1E STA $24 LDA $1D STA $23 LDA $1B TCD TSC CLC ADC #$0022 TCS RTL L090752 ENT PHD TSC CLC ADC #$FFE6 TCS TCD PEA ^L052D6E PEA L052D6E JSL L150BE8 LDAL L052D70 PHA PEA $001C JSL L1500F5 PLX PLX STA $15 LDAL L052D6E PHA PEA $000C JSL L1500F5 PLX PLX STA $13 LDA $13 DEC DEC BNE L09079E LDA $15 SEC SBC #$0001 BEQ L09079E BVS L090797 EOR #$8000 L090797 BPL L09079E LDA $15 DEC STA $15 L09079E LDA #$0259 CLC ADC $15 PHA LDA $13 ASL ASL STA $17 PLA CLC ADC $17 STA $11 LDA $13 DEC DEC BNE L0907C2 LDA $15 DEC DEC BNE L0907C2 LDA #$0003 STA $15 L0907C2 LDA $13 PEA $000C JSL L150BEE PLA STA $09 LDA $15 PEA $001C JSL L150BEE PLA STA $0B LDA #$000C CLC ADC $09 DEC STA $0D LDA #$001C CLC ADC $0B DEC DEC STA $0F LDA $13 DEC DEC BNE L090800 LDA $15 DEC BNE L090800 LDA #$001C CLC ADC $0F STA $0F L090800 TDC CLC ADC #$0009 PEA $0000 PHA JSL L150383 LDA #$0001 STA $07 L090812 PHY PEA $0000 JSL L15164B PLA LSR BCC L09085E TDC CLC ADC #$0001 PEA $0000 PHA JSL L150801 PHY TDC CLC ADC #$0001 PEA $0000 PHA TDC CLC ADC #$0009 PEA $0000 PHA JSL L1512CB PLA STA $05 LDA $07 CMP $05 BEQ L090858 TDC CLC ADC #$0009 PEA $0000 PHA JSL L150383 L090858 LDA $05 STA $07 BRA L090812 L09085E LDA $07 BEQ L090878 TDC CLC ADC #$0009 PEA $0000 PHA JSL L150383 PEA $0258 PEI $11 JSL L09971B L090878 LDA L0550E5 LDX L0550E7 PHX PHA JSL L1511C8 LDA L0550E5 LDX L0550E7 PHX PHA JSL L09B242 TSC CLC ADC #$001A TCS PLD RTL L090898 ENT PHD TSC CLC ADC #$FFFA TCS TCD LDA L0550DD LDX L0550DF PHX PHA JSL L151131 PEA ^L052D6E PEA L052D6E JSL L150BE8 LDA L0550DD LDX L0550DF PHX PHA JSL L1511C8 LDAL L052D6E PHA PEA $000A JSL L1500F5 PLX PLX CLC ADC #$044D PHA LDAL L052D70 PHA PEA $001C JSL L1500F5 PLX PLX ASL ASL ASL STA $03 PLA CLC ADC $03 STA $01 PEA $044C PEI $01 JSL L09971B L0908F7 PHY PEA $0000 JSL L15164B PLA LSR BCC L090905 BRA L0908F7 L090905 LDA L055229 SEC SBC #$0001 BEQ L090919 BVS L090913 EOR #$8000 L090913 BPL L090919 JSL L1601E0 L090919 PLY PLY PLY PLD RTL L09091E ENT PHD TSC CLC ADC #$FFEE TCS TCD LDA L05511F BEQ L09092E STZ L05511F L09092E LDAL L05328D BNE L090937 BRL L090A5F L090937 LDA L0550F3 BEQ L090949 PEA ^L0408FB PEA L0408FB JSL L07010A BRL L090A5F L090949 LDA L055129 LDX L05512B STA $0B STX $0D LDAL L05328D STA $09 LDA $09 STA $07 LDA L055027 LDX L055029 CMP $0B BNE L090969 CPX $0D L090969 BNE L090973 LDA $07 EOR #$FFFF INC STA $07 L090973 PEA ^L053291 PEA L053291 JSL L086CDB JSL L0879C5 PEA ^L05328B PEA L05328B PEA $0000 PEA $002A JSL L071EC5 STZ L055129 STZ L05512B STZ L055125 STZ L055127 LDA L05511D BEQ L0909A5 STZ L05511D L0909A5 PHY PHY PEA $0001 LDA L0550F5 LDX L0550F7 PHX PHA PEA $0000 PEA $FFFF PEA $0000 PEA $0000 PEA $0000 LDA L055121 LDX L055123 PHX PHA JSL L150B22 PLA STA $03 PLX STX $05 LDA #$0001 STA L0550F1 LDAL L05565D BEQ L0909F8 PEA $002C JSL L0727E0 LDA L0550F5 LDX L0550F7 STA $0F STX $11 SEP #$20 LDA #$00 STA [$0F] REP #$20 L0909F8 LDA L055121 LDX L055123 PHX PHA JSL L15106B STZ L055121 STZ L055123 PHY LDA L05501F LDX L055021 PHX PHA LDA L055027 LDX L055029 PHX PHA PEI $07 LDA L0550F5 LDX L0550F7 PHX PHA TDC CLC ADC #$0001 PEA $0000 PHA JSL L07D80F PLA BEQ L090A3C PEA $002C JSL L0727E0 L090A3C LDA $18 AND $01 BEQ L090A5F PEA $0008 PEI $0D PEI $0B PEI $09 LDA L055027 LDX L055029 PHX PHA LDA L05501F LDX L055021 PHX PHA JSL L0998E6 L090A5F LDA $16 STA $18 LDA $15 STA $17 LDA $13 TCD TSC CLC ADC #$0016 TCS RTL L090A71 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L055111 LDX L055113 PHX PHA JSL L1516E7 STZ L0551F3 JSL L151466 PLY PLY PLD RTL L090A90 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L05524B BEQ L090AA4 LDA L055193 STA $0A BRA L090ABA L090AA4 * PHY * PEA $0000 * PEA $C025 * JSL L071A89 * PLA ldal $c025 ; AV 202208 AND #$0080 BEQ L090AB8 LDA #$0001 L090AB8 STA $0A L090ABA PLY PLY PLD RTL L090ABE PHD TSC CLC ADC #$FFFC TCS TCD LDY #$001D LDA [$0A],Y INY INY ORA [$0A],Y BEQ L090AE0 LDA L055027 LDX L055029 PHX PHA PEA $0000 JSL L074A90 L090AE0 LDY #$000B LDA [$0A],Y INY INY ORA [$0A],Y BEQ L090AFA LDA L05501F LDX L055021 PHX PHA PEA $0000 JSL L074A24 L090AFA PEA $0036 JSL L0727E0 JSL L150395 PHD LDA $0A TCD CLC ADC #$0000 TCS JMPL L090F52 LDA $08 STA $0E LDA $07 STA $0D LDA $05 TCD TSC CLC ADC #$000C TCS RTL L090B24 PHD TSC CLC ADC #$FFF8 TCS TCD PEI $18 PEI $16 LDA #$0000 TAX JSL L033477 BMI L090BAB BEQ L090BAB PHY PEI $18 PEI $16 JSL L0718FA PLA STA $03 PHY LDY #$0002 LDA [$16],Y TAX LDA [$16] STA $05 STX $07 LDY #$0002 LDA [$05],Y TAX LDA [$05] PHX PHA PEI $12 LDY #$0002 LDA [$16],Y PHA LDA [$16] PHA JSL L0732FD PLA STA $01 LDA $14 BEQ L090B7F PEI $18 PEI $16 JSL L151053 BRA L090B9B L090B7F PEI $18 PEI $16 PEI $03 JSL L0718DA LDY #$001B LDA [$0E],Y PHA DEY DEY LDA [$0E],Y PHA PEA $0000 JSL L074A5A L090B9B LDA $01 BNE L090BAB PEA $0005 PEA $0000 PEI $0E JSL L090ABE L090BAB LDA $0C STA $18 LDA $0B STA $17 LDA $09 TCD TSC CLC ADC #$0016 TCS RTL L090BBD ENT PHD TSC CLC ADC #$FFDC TCS TCD JSL L150395 JSL L15136D STZ $0B STZ $0D PHY PHY LDA L055027 LDX L055029 PHX PHA JSL L0772AE PLA STA $1D PLX STX $1F LDA $1D ORA $1F BNE L090BF6 PEA $0002 PEA $0000 PHD JSL L090ABE L090BF6 PHY PEI $1F PEI $1D JSL L079558 PLA LSR BCC L090C0E PEA $0003 PEA $0000 PHD JSL L090ABE L090C0E LDY #$0002 LDA [$1D],Y TAX LDA [$1D] CLC ADC #$000C BCC L090C1D INX L090C1D STA $21 STX $23 LDY #$0002 LDA [$21],Y TAX LDA [$21] STA $19 STX $1B PHY PEI $1F PEI $1D JSL L0718FA PLA STA $17 PHY LDY #$0002 LDA [$1D],Y TAX LDA [$1D] STA $21 STX $23 LDY #$0002 LDA [$21],Y TAX LDA [$21] PHX PHA PEA $1604 LDY #$0002 LDA [$1D],Y PHA LDA [$1D] PHA JSL L0732FD PLA STA $15 PEI $1F PEI $1D PEI $17 JSL L0718DA LDA L055027 LDX L055029 PHX PHA PEA $0000 JSL L074A90 STZ $1D STZ $1F LDA $15 BNE L090C8F PEA $0004 PEA $0000 PHD JSL L090ABE L090C8F LDA L055153 EOR #$0001 AND L055137 STA $13 LDA $13 BEQ L090CBC PHY PHY LDA L055101 LDX L055103 PHX PHA LDA L055105 LDX L055107 PHX PHA JSL L086D20 PLA STA $0F PLX STX $11 BRA L090CCF L090CBC PHY PHY PEI $1B PEI $19 PEA $0000 JSL L077264 PLA STA $0F PLX STX $11 L090CCF PEI $11 PEI $0F PEI $13 PEA $1605 PEA $0000 PHD JSL L090B24 PHY PHY LDA L05501F LDX L055021 PHX PHA JSL L07721A PLA STA $0B PLX STX $0D LDA $0B ORA $0D BNE L090D05 PEA $0006 PEA $0000 PHD JSL L090ABE L090D05 PHY PEI $0D PEI $0B JSL L07947E PLA LSR BCC L090D1D PEA $0007 PEA $0000 PHD JSL L090ABE L090D1D LDY #$0002 LDA [$0B],Y TAX LDA [$0B] CLC ADC #$000C BCC L090D2C INX L090D2C STA $21 STX $23 LDY #$0002 LDA [$21],Y TAX LDA [$21] STA $19 STX $1B PHY PEI $0D PEI $0B JSL L0718FA PLA STA $17 PHY LDY #$0002 LDA [$0B],Y TAX LDA [$0B] STA $21 STX $23 LDY #$0002 LDA [$21],Y TAX LDA [$21] PHX PHA PEA $1606 LDY #$0002 LDA [$0B],Y PHA LDA [$0B] PHA JSL L0732FD PLA STA $15 PEI $0D PEI $0B PEI $17 JSL L0718DA LDA L05501F LDX L055021 PHX PHA PEA $0000 JSL L074A24 STZ $0B STZ $0D LDA $15 BNE L090D9E PEA $0008 PEA $0000 PHD JSL L090ABE L090D9E LDA L055153 AND L055137 STA $13 LDA $13 BEQ L090DE7 LDA L0550B9 BNE L090DCB PHY PHY PEA $FFFF PEA $FFFF LDA L055109 LDX L05510B PHX PHA JSL L086D20 PLA STA $0F PLX STX $11 BRA L090DE5 L090DCB PHY PHY PEA $FFFF PEA $FFFF LDA L055105 LDX L055107 PHX PHA JSL L086D20 PLA STA $0F PLX STX $11 L090DE5 BRA L090DFA L090DE7 PHY PHY PEI $1B PEI $19 PEA $0000 JSL L077264 PLA STA $0F PLX STX $11 L090DFA PEI $11 PEI $0F PEI $13 PEA $1607 PEA $0000 PHD JSL L090B24 LDA #$0001 STA $09 L090E10 LDA $09 DEC ASL ASL ASL TAX TXA CLC ADC #L05233C LDX #^L05233C BCC L090E22 INX L090E22 STA $01 STX $03 LDA L055027 LDX L055029 CMP [$01] BNE L090E36 LDY #$0002 TXA CMP [$01],Y L090E36 BNE L090E4C LDY #$0006 LDA [$01],Y TAX DEY DEY LDA [$01],Y CMP L055039 BNE L090E4A CPX L05503B L090E4A BEQ L090E5A L090E4C LDA #$0012 CMP $09 BEQ L090E57 INC $09 BRA L090E10 L090E57 BRL L090F52 L090E5A LDA #$0001 STA L055133 JSL L096253 PEA ^L05312F PEA L05312F JSL L151131 PEA ^L05231C PEA L05231C JSL L1506A7 PEA ^L053137 PEA L053137 PHY PEA $0230 PLA CMP #$8000 ROR STA $01,S PHY PEA $00AF PLA CMP #$8000 ROR STA $01,S JSL L1501AF PHY PHY PEA ^L053137 PEA L053137 JSL L1502FA PLA STA $05 PLX STX $07 PEA ^L053137 PEA L053137 JSL L150FF9 PEA ^L05231C PEA L05231C PEA ^L05312F PEA L05312F PEA ^L052324 PEA L052324 PEA ^L053137 PEA L053137 PEA $0000 PEA $0000 PEA $0000 JSL L1505E6 JSL L151400 LDX #$0000 LDAL L05565D BNE L090EE7 INX L090EE7 TXA STA $15 PEA ^L053259 PEA L053259 JSL L150FF9 PEA ^L053239 PEA L053239 JSL L1506A7 LDA $15 BNE L090F0D PEA $000A PEA $0000 PHD JSL L090ABE L090F0D PEI $07 PEI $05 JSL L150BB8 PHY PHY PHY PEI $07 PEI $05 JSL L151301 PEA $0001 LDY #$0002 LDA [$05],Y PHA LDA [$05] PHA JSL L0732FD PLA STA $15 PEI $07 PEI $05 JSL L1516B7 PEI $07 PEI $05 JSL L1502F4 LDA $15 BNE L090F52 PEA $000B PEA $0000 PHD JSL L090ABE L090F52 TSC CLC ADC #$0024 TCS PLD RTL L090F5A PHD TSC CLC ADC #$FFFC TCS TCD PHY PEI $0C PEI $0A JSL L0960E8 PLA LSR BCC L090F80 LDA L05519F LDX L0551A1 TAY BNE L090F79 DEX L090F79 DEC STA L05519F STX L0551A1 L090F80 LDX #$0000 LDA L05519F ORA L0551A1 BNE L090F8C INX L090F8C TXA STA $0E LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L090FA0 PHD TSC CLC ADC #$FFF8 TCS TCD PHY PHY LDA $0E LDX $10 PEA $0000 PEA $0023 JSL L150F53 STA $05 STX $07 LDA [$05] PHA PEI $14 PEI $12 PEI $18 PEI $16 PEA $0000 JSL L075E55 PLA STA $01 PLX STX $03 LDAL L05565D STA $1A LDAL L05565D BEQ L091025 LDA $0E LDX $10 PEA $0000 PEA $0023 JSL L150F53 STA $05 STX $07 LDA [$05] PHA JSL L075A4F LDA $0E LDX $10 PEA $0000 PEA $0013 JSL L150F53 STA $05 STX $07 LDY #$0002 LDA [$05],Y TAX LDA [$05] STA $05 STX $07 LDY #$0002 LDA [$05],Y TAX LDA [$05] PHX PHA JSL L075B09 L091025 LDA $0C STA $18 LDA $0B STA $17 LDA $09 TCD TSC CLC ADC #$0016 TCS RTL L091037 ENT PHD TSC CLC ADC #$FAD8 TCS ADC #$0437 TCD PEA $0000 TDC CLC ADC #$FCE9 PHA PEI $FA PEI $F8 PEA $0100 JSL L0313BE LDX #$FFE9 STZ $00,X PEA $0000 JSL L07479E L091062 STZ L0551AF LDA #$00FF LDX #$FCE9 AND $00,X BNE L09109F PHY PHY PEA $0000 TDC CLC ADC #$FBC9 PHA PEA $0017 JSL L073002 PEA ^L040914 PEA L040914 PEA $0001 JSL L093CCE PLA STA $17 PLX STX $19 LDA $17 ORA $19 BNE L09109D BRL L092535 L09109D BRA L0910C8 L09109F LDA #$0001 LDX #$FFE9 STA $00,X LDA $F6 STA L0551AF JSL L09999B PHY PHY PEA $0000 TDC CLC ADC #$FCE9 PHA PEA $0000 JSL L0730BE PLA STA $17 PLX STX $19 L0910C8 PEI $19 PEI $17 JSL L0718BF LDA #$3FFF STA $21 LDY #$0002 LDA [$17],Y PHA LDA [$17] PHA PEA $0055 PEA $0000 PEA $0001 PEA $0005 LDA $21 JSL L150488 PHX PHA PEA $0000 PEA $0000 JSL L075A86 LDA #$0047 CMPL L05565D BNE L091143 LDX #$FFE9 LDA $00,X BEQ L09110F BRL L092535 L09110F LDY #$0002 LDA [$17],Y PHA LDA [$17] PHA JSL L075B09 LDY #$0002 LDA [$17],Y PHA LDA [$17] PHA PEA $0055 PEA $0000 PEA $0001 PEA $0005 LDA $21 JSL L150488 PHX PHA PEA $0000 PEA $0000 JSL L075A86 L091143 LDAL L05565D BNE L09115D PHY LDY #$0002 LDA [$17],Y PHA LDA [$17] PHA PEA $0000 JSL L075D3B PLA STA $23 L09115D LDAL L05565D BEQ L091177 LDX #$FFE9 LDA $00,X BEQ L09116D BRL L092535 L09116D PEA $0002 JSL L0727E0 BRL L091062 L091177 PEI $19 PEI $17 JSL L07191C LDX #$FFF9 STZ $00,X PHY JSL L150705 PLA AND #$00FF JSL L150488 STA $E5 STX $E7 LDA #$0800 ORA $E5 JSL L150488 STA $E9 STX $EB PHY JSL L150705 PLA AND #$00FF JSL L150488 STA $CD STX $CF LDA #$0900 ORA $CD JSL L150488 STA $D1 STX $D3 PHY JSL L150705 PLA AND #$00FF JSL L150488 STA $B5 STX $B7 LDA #$0A00 ORA $B5 JSL L150488 STA $B9 STX $BB PHY JSL L150705 PLA AND #$00FF JSL L150488 STA $9D STX $9F LDA #$0B00 ORA $9D JSL L150488 STA $A1 STX $A3 PHY JSL L150705 PLA AND #$00FF JSL L150488 STA $6D STX $6F LDA #$0C00 ORA $6D JSL L150488 STA $71 STX $73 PHY JSL L150705 PLA AND #$00FF JSL L150488 STA $59 STX $5B LDA #$0D00 ORA $59 JSL L150488 STA $5D STX $5F LDA #$0080 LDX #$0000 STA $DD STX $DF PHY PHY PEI $DF PEI $DD LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $D9 PLX STX $DB LDAL L05565D BEQ L091268 BRL L0924DD L091268 LDY #$0002 LDA [$D9],Y PHA LDA [$D9] PHA PEI $DF PEI $DD JSL L071EC5 LDY #$0002 LDA [$D9],Y TAX LDA [$D9] TXY LDX #$FCE5 STA $00,X TYA STA $02,X LDX #$FCE5 LDA $02,X TAY LDA $00,X TYX STA $ED STX $EF LDA $DD LDX $DF STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCE5 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L0912B3 INX L0912B3 STA $ED STX $EF LDA #$494C LDX #$5453 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCE5 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0008 BCC L0912D5 INX L0912D5 STA $ED STX $EF LDA $E9 LDX $EB STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCE5 LDA $02,X TAY LDA $00,X TYX CLC ADC #$000C BCC L0912F5 INX L0912F5 STA $ED STX $EF LDA #$0001 LDX #$0000 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCE5 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0010 BCC L091317 INX L091317 STA $ED STX $EF LDA #$0800 LDX #$0000 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCE5 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0014 BCC L091339 INX L091339 STA $ED STX $EF LDA #$0001 LDX #$0000 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCE5 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0018 BCC L09135B INX L09135B STA $ED STX $EF LDA #$0010 STA [$ED] LDX #$FCE5 LDA $02,X TAY LDA $00,X TYX CLC ADC #$001A BCC L091374 INX L091374 STA $ED STX $EF LDA #$0001 STA [$ED] LDX #$FCE5 LDA $02,X TAY LDA $00,X TYX CLC ADC #$001C BCC L09138D INX L09138D STA $ED STX $EF LDA #$0003 STA [$ED] LDX #$FCE5 LDA $02,X TAY LDA $00,X TYX CLC ADC #$001E BCC L0913A6 INX L0913A6 STA $ED STX $EF LDA #$0004 STA [$ED] LDY #$0002 LDA [$D9],Y TAX LDA [$D9] CLC ADC #$0028 BCC L0913BE INX L0913BE STA $D5 STX $D7 LDA $D1 LDX $D3 STA [$D5] TXA LDY #$0002 STA [$D5],Y LDA #$0001 LDY #$0004 STA [$D5],Y LDA #$0800 LDX #$0000 STA $C5 STX $C7 PHY PHY PEI $C7 PEI $C5 LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $C1 PLX STX $C3 LDAL L05565D BEQ L091406 BRL L0924DD L091406 LDY #$0002 LDA [$C1],Y PHA LDA [$C1] PHA PEI $C7 PEI $C5 JSL L071EC5 LDY #$0002 LDA [$C1],Y TAX LDA [$C1] TXY LDX #$FCE1 STA $00,X TYA STA $02,X LDX #$FCE1 LDA $02,X TAY LDA $00,X TYX STA $ED STX $EF LDA $C5 LDX $C7 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCE1 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L091451 INX L091451 STA $ED STX $EF LDA #$4150 LDX #$4547 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCE1 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0008 BCC L091473 INX L091473 STA $ED STX $EF LDA $D1 LDX $D3 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCE1 LDA $02,X TAY LDA $00,X TYX CLC ADC #$000C BCC L091493 INX L091493 STA $ED STX $EF LDA $E9 LDX $EB STA [$ED] TXA LDY #$0002 STA [$ED],Y LDY #$0002 LDA [$C1],Y TAX LDA [$C1] CLC ADC #$0018 BCC L0914B2 INX L0914B2 STA $BD STX $BF LDA $A1 LDX $A3 STA [$BD] TXA LDY #$0002 STA [$BD],Y LDA #$0002 LDY #$0004 STA [$BD],Y STZ $8D STZ $8F STZ $89 STZ $8B STZ $81 STZ $83 STZ $7D STZ $7F LDA #$0004 STA $03 STZ $05 LDA L0551AF BNE L0914E9 BRL L091719 L0914E9 PHY PHY LDA L05501F LDX L055021 PHX PHA JSL L07721A PLA STA $A5 PLX STX $A7 LDA $A5 ORA $A7 BNE L09150A PEA $7EBB JSL L07272E L09150A LDY #$0002 LDA [$A5],Y TAX LDA [$A5] CLC ADC #$000C BCC L091519 INX L091519 STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] STA $79 STX $7B LDA $79 ORA $7B BNE L091532 BRL L0915ED L091532 PHY PHY PEI $7B PEI $79 PEA $0000 JSL L077264 PLA STA $75 PLX STX $77 LDA $75 ORA $77 BNE L09154E BRL L0915ED L09154E LDY #$0002 LDA [$75],Y TAX LDA [$75] STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] STA $81 STX $83 PHY PHY PEI $83 PEI $81 LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $7D PLX STX $7F LDAL L05565D BNE L0915E2 LDY #$0002 LDA [$75],Y PHA LDA [$75] PHA LDY #$0002 LDA [$7D],Y PHA LDA [$7D] PHA PEI $83 PEI $81 JSL L070597 PHY JSL L150705 PLA AND #$00FF JSL L150488 STA $89 STX $8B LDA $89 LDX $8B CLC ADC #$0E00 BCC L0915BF INX L0915BF STA $8D STX $8F LDY #$0002 LDA [$7D],Y TAX LDA [$7D] CLC ADC #$0008 BCC L0915D2 INX L0915D2 STA $ED STX $EF LDA $8D LDX $8F STA [$ED] TXA LDY #$0002 STA [$ED],Y L0915E2 PEI $7B PEI $79 PEA $0000 JSL L074A5A L0915ED LDY #$0002 LDA [$A5],Y TAX LDA [$A5] STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] STA $AD STX $AF PHY PHY PEI $AF PEI $AD LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $A9 PLX STX $AB LDAL L05565D BEQ L09163A LDA L05501F LDX L055021 PHX PHA PEA $0000 JSL L074A24 BRL L0924DD L09163A LDY #$0002 LDA [$A5],Y PHA LDA [$A5] PHA LDY #$0002 LDA [$A9],Y PHA LDA [$A9] PHA PEI $AF PEI $AD JSL L070597 LDY #$0002 LDA [$A9],Y TAX LDA [$A9] TXY LDX #$FCDD STA $00,X TYA STA $02,X LDX #$FCDD LDA $02,X TAY LDA $00,X TYX CLC ADC #$0008 BCC L091675 INX L091675 STA $ED STX $EF LDA $B9 LDX $BB STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCDD LDA $02,X TAY LDA $00,X TYX CLC ADC #$000C BCC L091695 INX L091695 STA $ED STX $EF LDA $8D LDX $8F STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCDD LDA $02,X TAY LDA $00,X TYX CLC ADC #$0014 BCC L0916B5 INX L0916B5 STA $ED STX $EF LDA #$0001 LDX #$0000 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCDD LDA $02,X TAY LDA $00,X TYX CLC ADC #$0018 BCC L0916D7 INX L0916D7 STA $ED STX $EF LDA $B9 LDX $BB STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCDD LDA $02,X TAY LDA $00,X TYX CLC ADC #$001C BCC L0916F7 INX L0916F7 STA $ED STX $EF LDA $B9 LDX $BB STA [$ED] TXA LDY #$0002 STA [$ED],Y LDA L05501F LDX L055021 PHX PHA PEA $0000 JSL L074A24 BRL L091865 L091719 PHY PHY PEA $0000 PEA $0038 JSL L07704E PLA STA $AD PLX STX $AF PHY PHY PEI $AF PEI $AD LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $A9 PLX STX $AB LDAL L05565D BEQ L091751 BRL L0924DD L091751 LDY #$0002 LDA [$A9],Y PHA LDA [$A9] PHA PEI $AF PEI $AD JSL L071EC5 LDY #$0002 LDA [$A9],Y TAX LDA [$A9] TXY LDX #$FCD9 STA $00,X TYA STA $02,X LDX #$FCD9 LDA $02,X TAY LDA $00,X TYX STA $ED STX $EF LDA $AD LDX $AF STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCD9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L09179C INX L09179C STA $ED STX $EF LDA #$4B42 LDX #$4447 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCD9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0008 BCC L0917BE INX L0917BE STA $ED STX $EF LDA $B9 LDX $BB STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCD9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0014 BCC L0917DE INX L0917DE STA $ED STX $EF LDA #$0001 LDX #$0000 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCD9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0018 BCC L091800 INX L091800 STA $ED STX $EF LDA $B9 LDX $BB STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCD9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$001C BCC L091820 INX L091820 STA $ED STX $EF LDA $B9 LDX $BB STA [$ED] TXA LDY #$0002 STA [$ED],Y LDY #$0002 LDA [$A9],Y TAX LDA [$A9] CLC ADC #$0032 BCC L09183F INX L09183F INC BNE L091843 INX L091843 TXY LDX #$FFFF STA $00,X TYA STA $02,X LDX #$FFFF LDA $02,X TAY LDA $00,X TYX STA $ED STX $EF LDA $03 LDX $05 STA [$ED] TXA LDY #$0002 STA [$ED],Y L091865 PHY PHY PEA $0000 PEA $0038 JSL L07704E PLA STA $95 PLX STX $97 PHY PHY PEI $97 PEI $95 LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $91 PLX STX $93 LDAL L05565D BEQ L09189D BRL L0924DD L09189D LDY #$0002 LDA [$91],Y PHA LDA [$91] PHA PEI $97 PEI $95 JSL L071EC5 LDY #$0002 LDA [$91],Y TAX LDA [$91] TXY LDX #$FCD5 STA $00,X TYA STA $02,X LDX #$FCD5 LDA $02,X TAY LDA $00,X TYX STA $ED STX $EF LDA $95 LDX $97 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCD5 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L0918E8 INX L0918E8 STA $ED STX $EF LDA #$4143 LDX #$4452 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCD5 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0008 BCC L09190A INX L09190A STA $ED STX $EF LDA $A1 LDX $A3 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCD5 LDA $02,X TAY LDA $00,X TYX CLC ADC #$001C BCC L09192A INX L09192A STA $ED STX $EF LDA $D1 LDX $D3 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCD5 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0020 BCC L09194A INX L09194A STA $ED STX $EF LDA $B9 LDX $BB STA [$ED] TXA LDY #$0002 STA [$ED],Y LDY #$0002 LDA [$91],Y TAX LDA [$91] CLC ADC #$0032 BCC L091969 INX L091969 INC BNE L09196D INX L09196D TXY LDX #$FFFF STA $00,X TYA STA $02,X LDX #$FFFF LDA $02,X TAY LDA $00,X TYX STA $ED STX $EF LDA $03 LDX $05 STA [$ED] TXA LDY #$0002 STA [$ED],Y PHY PHY PEA $0000 PEA $04A0 JSL L07704E PLA STA $51 PLX STX $53 PHY PHY PEI $53 PEI $51 LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $4D PLX STX $4F LDAL L05565D BEQ L0919C7 BRL L0924DD L0919C7 PHY ; Load segment name HPrintMain PEA ^L040915 ; it is now already in memory! PEA L040915 JSL L0946A2 PLA LSR BCS L0919D9 BRL L0924DD L0919D9 PEI $4F PEI $4D PEA $0000 JSL L1601EE * PEA ^L1601EE * PEA L1601EE * JSL L07187A LDY #$0002 LDA [$4D],Y TAX LDA [$4D] TXY LDX #$FCD1 STA $00,X TYA STA $02,X LDX #$FCD1 LDA $02,X TAY LDA $00,X TYX STA $ED STX $EF LDA $51 LDX $53 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCD1 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L091A28 INX L091A28 STA $ED STX $EF LDA #$5250 LDX #$544E STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCD1 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0008 BCC L091A4A INX L091A4A STA $ED STX $EF LDA $5D LDX $5F STA [$ED] TXA LDY #$0002 STA [$ED],Y PHY PHY PEA $0000 PEA $01DE JSL L07704E PLA STA $65 PLX STX $67 PHY PHY PEI $67 PEI $65 LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $61 PLX STX $63 LDAL L05565D BEQ L091A92 BRL L0924DD L091A92 LDY #$0002 LDA [$61],Y PHA LDA [$61] PHA PEI $67 PEI $65 JSL L071EC5 LDY #$0002 LDA [$61],Y TAX LDA [$61] TXY LDX #$FCCD STA $00,X TYA STA $02,X LDX #$FCCD LDA $02,X TAY LDA $00,X TYX STA $ED STX $EF LDA $65 LDX $67 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCCD LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L091ADD INX L091ADD STA $ED STX $EF LDA #$504D LDX #$5452 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCCD LDA $02,X TAY LDA $00,X TYX CLC ADC #$0008 BCC L091AFF INX L091AFF STA $ED STX $EF LDA $71 LDX $73 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCCD LDA $02,X TAY LDA $00,X TYX CLC ADC #$000C BCC L091B1F INX L091B1F STA $ED STX $EF LDA #$0002 STA [$ED] LDX #$FCCD LDA $02,X TAY LDA $00,X TYX CLC ADC #$000E BCC L091B38 INX L091B38 STA $ED STX $EF LDA #$0001 STA [$ED] LDX #$FCCD LDA $02,X TAY LDA $00,X TYX CLC ADC #$0010 BCC L091B51 INX L091B51 STA $ED STX $EF LDA #$0001 STA [$ED] LDX #$FCCD LDA $02,X TAY LDA $00,X TYX CLC ADC #$009E BCC L091B6A INX L091B6A CLC ADC #$0002 BCC L091B71 INX L091B71 STA $ED STX $EF LDA $5D LDX $5F STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCCD LDA $02,X TAY LDA $00,X TYX CLC ADC #$009E BCC L091B91 INX L091B91 STA $ED STX $EF LDA #$8000 STA [$ED] LDA #$0001 LDX #$0000 STA $0B STX $0D STZ $07 STZ $09 LDA L0551AF BEQ L091BD8 PHY PHY JSL L076220 PLA STA $07 PLX STX $09 LDA $07 ORA $09 BEQ L091BD8 PHY PHY LDY #$0002 LDA [$07],Y PHA LDA [$07] PHA JSL L071C98 PLA PLX INC BNE L091BD4 INX L091BD4 STA $0B STX $0D L091BD8 PHY PHY PEA $FFFF PEA $FE00 LDA $0B LDX $0D CLC ADC #$0803 BCC L091BEB INX L091BEB PHX PHA JSL L15017E PLA STA $49 PLX STX $4B PHY PHY PEI $4B PEI $49 LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $0F PLX STX $11 LDAL L05565D BEQ L091C25 PEI $09 PEI $07 JSL L07185A BRL L0924DD L091C25 LDY #$0002 LDA [$0F],Y PHA LDA [$0F] PHA PEI $4B PEI $49 JSL L071EC5 LDY #$0002 LDA [$0F],Y TAX LDA [$0F] CLC ADC #$0600 BCC L091C45 INX L091C45 TXY LDX #$FFFF STA $00,X TYA STA $02,X LDX #$FFFF LDA $02,X TAY LDA $00,X TYX STA $ED STX $EF LDA $03 LDX $05 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDA $07 ORA $09 BEQ L091CA8 LDX #$FFFF LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L091C7D INX L091C7D TXY LDX #$FFFB STA $00,X TYA STA $02,X LDY #$0002 LDA [$07],Y PHA LDA [$07] PHA LDX #$FFFB LDA $02,X PHA LDA $00,X PHA PEI $0D PEI $0B JSL L070597 PEI $09 PEI $07 JSL L07185A L091CA8 LDA $0F LDX $11 STA $45 STX $47 LDY #$0002 LDA [$45],Y TAX LDA [$45] TXY LDX #$FCC9 STA $00,X TYA STA $02,X LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX STA $ED STX $EF LDA $49 LDX $4B STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L091CEA INX L091CEA STA $ED STX $EF LDA #$5453 LDX #$4B41 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0008 BCC L091D0C INX L091D0C STA $ED STX $EF LDA #$FFFF TAX STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0010 BCC L091D2C INX L091D2C STA $ED STX $EF LDA #$0005 LDX #$0000 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0014 BCC L091D4E INX L091D4E STA $ED STX $EF LDA $49 LDX $4B CLC ADC #$0200 BCC L091D5D INX L091D5D CLC ADC #$0020 BCC L091D64 INX L091D64 PEI $DF PEI $DD JSL L150F53 PEI $C7 PEI $C5 JSL L150F53 PEI $AF PEI $AD JSL L150F53 PEI $97 PEI $95 JSL L150F53 PEI $83 PEI $81 JSL L150F53 PEI $67 PEI $65 JSL L150F53 PEI $53 PEI $51 JSL L150F53 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0018 BCC L091DB4 INX L091DB4 PHX PHA LDX #$FCC9 LDA $02,X PHA LDA $00,X PHA PLA PLX STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] PHX PHA PLA PLY PLX STX $ED PLX STX $EF STA [$ED] TYA LDY #$0002 STA [$ED],Y LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0024 BCC L091DEF INX L091DEF STA $ED STX $EF LDA #$0001 LDX #$0000 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0028 BCC L091E11 INX L091E11 STA $ED STX $EF LDA $B9 LDX $BB STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$002C BCC L091E31 INX L091E31 STA $ED STX $EF LDA #$0001 LDX #$0000 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0030 BCC L091E53 INX L091E53 STA $ED STX $EF LDA $A1 LDX $A3 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0034 BCC L091E73 INX L091E73 STA $ED STX $EF LDA $E9 LDX $EB STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$003C BCC L091E93 INX L091E93 STA $ED STX $EF LDA $71 LDX $73 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0060 BCC L091EB3 INX L091EB3 PHX PHA PEA ^L041CB3 PEA L041CB3 PEA $0020 JSL L0313BE LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0080 BCC L091ED2 INX L091ED2 STA $ED STX $EF LDA L05501B LDX L05501D STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0084 BCC L091EF4 INX L091EF4 STA $ED STX $EF LDA L05501B LDX L05501D STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0088 BCC L091F16 INX L091F16 STA $ED STX $EF LDA L05501B LDX L05501D STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$008C BCC L091F38 INX L091F38 STA $ED STX $EF LDA L05501B LDX L05501D STA [$ED] TXA LDY #$0002 STA [$ED],Y LDA L0551AF BEQ L091F70 LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0200 BCC L091F5F INX L091F5F PHX PHA PEA ^L053C9D PEA L053C9D PEA $0200 JSL L0313BE BRA L091F92 L091F70 PEA ^L041AB3 PEA L041AB3 LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0200 BCC L091F86 INX L091F86 PHX PHA PEA $0000 PEA $0200 JSL L070597 L091F92 LDX #$FCC9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$000C BCC L091FA2 INX L091FA2 STA $ED STX $EF PHY PHY LDY #$0002 LDA [$45],Y PHA LDA [$45] PHA PEA $0000 PEA $0180 JSL L071E31 LDA $03,S EOR #$FFFF TAX PLA EOR #$FFFF PLY INC BNE L091FCA INX L091FCA STA [$ED] TXA LDY #$0002 STA [$ED],Y LDY #$0002 LDA [$45],Y TAX LDA [$45] CLC ADC #$0018 BCC L091FE1 INX L091FE1 STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] CLC ADC #$0200 BCC L091FF4 INX L091FF4 STA $E1 STX $E3 LDA $E1 LDX $E3 PEI $DF PEI $DD JSL L150F53 STA $C9 STX $CB LDA $C9 LDX $CB PEI $C7 PEI $C5 JSL L150F53 STA $B1 STX $B3 LDA $B1 LDX $B3 PEI $AF PEI $AD JSL L150F53 STA $99 STX $9B LDA $99 LDX $9B PEI $97 PEI $95 JSL L150F53 STA $69 STX $6B LDA $69 LDX $6B PEI $67 PEI $65 JSL L150F53 STA $55 STX $57 LDA $55 LDX $57 PEI $53 PEI $51 JSL L150F53 STA $85 STX $87 PEA $0000 TDC CLC ADC #$FDE9 PHA PEA $0000 PEA $0100 JSL L071ECE LDA #$0200 LDX #$0000 TXY LDX #$FDE9 STA $00,X TYA STA $02,X LDA #$414D LDX #$5453 TXY LDX #$FDED STA $00,X TYA STA $02,X LDA #$FFFF TAX TXY LDX #$FDF1 STA $00,X TYA STA $02,X PEI $E7 PEI $E5 PHY PHY LDA $E1 LDX $E3 PEA $0000 PEA $0008 JSL L150D50 PEA $FFFF PEA $FF00 JSL L15017E PLA PLX JSL L150F53 TXY LDX #$FE09 STA $00,X TYA STA $02,X PEI $CF PEI $CD PHY PHY LDA $C9 LDX $CB PEA $0000 PEA $0008 JSL L150D50 PEA $FFFF PEA $FF00 JSL L15017E PLA PLX JSL L150F53 TXY LDX #$FE0D STA $00,X TYA STA $02,X PEI $B7 PEI $B5 PHY PHY LDA $B1 LDX $B3 PEA $0000 PEA $0008 JSL L150D50 PEA $FFFF PEA $FF00 JSL L15017E PLA PLX JSL L150F53 TXY LDX #$FE11 STA $00,X TYA STA $02,X PEI $9F PEI $9D PHY PHY LDA $99 LDX $9B PEA $0000 PEA $0008 JSL L150D50 PEA $FFFF PEA $FF00 JSL L15017E PLA PLX JSL L150F53 TXY LDX #$FE15 STA $00,X TYA STA $02,X PEI $6F PEI $6D PHY PHY LDA $69 LDX $6B PEA $0000 PEA $0008 JSL L150D50 PEA $FFFF PEA $FF00 JSL L15017E PLA PLX JSL L150F53 TXY LDX #$FE19 STA $00,X TYA STA $02,X PEI $5B PEI $59 PHY PHY LDA $55 LDX $57 PEA $0000 PEA $0008 JSL L150D50 PEA $FFFF PEA $FF00 JSL L15017E PLA PLX JSL L150F53 TXY LDX #$FE1D STA $00,X TYA STA $02,X LDA $8D ORA $8F BEQ L0921D7 PEI $8B PEI $89 PHY PHY LDA $85 LDX $87 PEA $0000 PEA $0008 JSL L150D50 PEA $FFFF PEA $FF00 JSL L15017E PLA PLX JSL L150F53 TXY LDX #$FE21 STA $00,X TYA STA $02,X L0921D7 TDC CLC ADC #$0025 PEA $0000 PHA PEA $0000 PEA $0010 JSL L071ECE LDA #$0020 LDX #$0000 STA $25 STX $27 LDA #$4154 LDX #$4C49 STA $29 STX $2B LDA #$FFFF TAX STA $2D STX $2F TDC CLC ADC #$0031 PEA $0000 PHA PEA ^L040920 PEA L040920 PEA $0014 JSL L0313BE PEI $23 PEA $0000 PEA $0000 JSL L075E14 PHY PEI $4B PEI $49 LDY #$0002 LDA [$45],Y PHA LDA [$45] PHA PEA $0000 PHD JSL L090FA0 PLA BEQ L092244 BRL L0924DD L092244 PHY PEA $0000 PEA $0200 PEA $0000 TDC CLC ADC #$FDE9 PHA PEA $0000 PHD JSL L090FA0 PLA BEQ L092262 BRL L0924DD L092262 PHY PEI $DF PEI $DD LDY #$0002 LDA [$D9],Y PHA LDA [$D9] PHA PEA $0000 PHD JSL L090FA0 PLA BEQ L09227E BRL L0924DD L09227E PHY PEI $C7 PEI $C5 LDY #$0002 LDA [$C1],Y PHA LDA [$C1] PHA PEA $0000 PHD JSL L090FA0 PLA BEQ L09229A BRL L0924DD L09229A PHY PEI $AF PEI $AD LDY #$0002 LDA [$A9],Y PHA LDA [$A9] PHA PEA $0000 PHD JSL L090FA0 PLA BEQ L0922B6 BRL L0924DD L0922B6 PHY PEI $97 PEI $95 LDY #$0002 LDA [$91],Y PHA LDA [$91] PHA PEA $0000 PHD JSL L090FA0 PLA BEQ L0922D2 BRL L0924DD L0922D2 PHY PEI $67 PEI $65 LDY #$0002 LDA [$61],Y PHA LDA [$61] PHA PEA $0000 PHD JSL L090FA0 PLA BEQ L0922EE BRL L0924DD L0922EE PHY PEI $53 PEI $51 LDY #$0002 LDA [$4D],Y PHA LDA [$4D] PHA PEA $0000 PHD JSL L090FA0 PLA BEQ L09230A BRL L0924DD L09230A LDA $7D ORA $7F BEQ L092338 PHY PEI $83 PEI $81 LDY #$0002 LDA [$7D],Y PHA LDA [$7D] PHA PEA $0000 PHD JSL L090FA0 PLA BEQ L09232C BRL L0924DD L09232C PEI $7F PEI $7D JSL L07185A STZ $7D STZ $7F L092338 PHY PEA $0000 PEA $0020 TDC CLC ADC #$0025 PEA $0000 PHA PEA $0000 PHD JSL L090FA0 PLA BEQ L092356 BRL L0924DD L092356 PHY PHY PEI $23 JSL L075BBA PLA STA $1D PLX STX $1F PEI $1F PEI $1D LDA $21 JSL L150488 JSL L033477 BVS L092377 EOR #$8000 L092377 BMI L092391 PEI $23 LDA $21 JSL L150488 PHX PHA JSL L075DD3 PEI $23 PEI $1F PEI $1D JSL L075DD3 L092391 LDA L05503D BEQ L092399 LDA #$0001 L092399 AND L0551AF BNE L0923A1 BRL L0924CF L0923A1 PHY PHY PEA $0000 PEA $4000 LDA L054FBD PHA PEA $4000 PEA $0000 PEA $0000 JSL L1513F4 LDX #$FFEF PLA STA $00,X PLA STA $02,X LDAL L05565D BEQ L0923CC BRL L0924DD L0923CC PHY LDY #$0002 LDA [$17],Y PHA LDA [$17] PHA PEA $0001 JSL L075D3B PLA LDX #$FFF7 STA $00,X PHY LDA L05503D PHA JSL L151065 PEA $0000 PEA $0000 JSL L075E14 LDX #$FFF7 LDA $00,X PHA PEA $0000 PEA $0000 JSL L075E14 PHY LDA L05503D PHA JSL L151065 PLA STA $1B L092412 PHY PHY PEI $1B LDX #$FFEF LDA $02,X PHA LDA $00,X PHA PLA PLX STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] PHX PHA PEA $0000 PEA $4000 PEA $0000 JSL L075D80 LDX #$FFEB PLA STA $00,X PLA STA $02,X LDX #$FFEB LDA $02,X PHA LDA $00,X PHA LDA #$0000 TAX JSL L033477 BMI L092494 BEQ L092494 PHY PHY LDX #$FFF7 LDA $00,X PHA LDX #$FFEF LDA $02,X PHA LDA $00,X PHA PLA PLX STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] PHX PHA LDX #$FFEB LDA $02,X PHA LDA $00,X PHA PEA $0000 JSL L075E55 LDX #$FFEB PLA STA $00,X PLA STA $02,X L092494 LDA #$004C CMPL L05565D BEQ L0924AC LDAL L05565D PHA PEA $0000 PEA $D902 JSL L0704CF L0924AC LDA #$004C CMPL L05565D BEQ L0924B8 BRL L092412 L0924B8 LDX #$FFF7 LDA $00,X PHA JSL L075A4F LDX #$FFEF LDA $02,X PHA LDA $00,X PHA JSL L07185A L0924CF PEI $23 JSL L075A4F LDA #$0001 LDX #$FFF9 STA $00,X L0924DD PEI $47 PEI $45 PEI $DB PEI $D9 JSL L071825 PEI $C3 PEI $C1 PEI $AB PEI $A9 JSL L071825 PEI $93 PEI $91 PEI $7F PEI $7D JSL L071825 PEI $63 PEI $61 PEI $4F PEI $4D JSL L071825 LDX #$FFF9 LDA $00,X BEQ L09252E LDX #$FFE9 LDA $00,X BNE L09252C PEA $0000 PEA $0001 PEI $19 PEI $17 PEA $0001 JSL L0968FC L09252C BRA L092535 L09252E PEA $0002 JSL L0727E0 L092535 LDAL L05565D STA $FC PEI $19 PEI $17 JSL L07185A LDA $F4 STA $FA LDA $F3 STA $F9 LDA $F1 TCD TSC CLC ADC #$0530 TCS RTL L092555 PHD TSC CLC ADC #$FFE6 TCS TCD PHY JSL L071BFF PLA STA $15 LDA #$000D CMP [$20] BNE L0925B0 PEA $0001 PHY PEI $26 PEI $24 PEA $000D JSL L1511DA PLA STA $17 PLA SEC SBC $17 PHA PEI $26 PEI $24 PEA $000D JSL L1511D4 PHY PEI $26 PEI $24 PEA $000D JSL L1511DA PLA CMP #$0001 BEQ L0925A5 LDA #$0000 BRA L0925A8 L0925A5 LDA #$0001 L0925A8 STA L0551AF LDA #$0000 STA [$20] L0925B0 PEI $15 JSL L071AA4 LDA $1E STA $26 LDA $1D STA $25 LDA $1B TCD TSC CLC ADC #$0024 TCS RTL L0925C8 PHD TSC CLC ADC #$FFFC TCS TCD LDA #$0001 STA $0E LDA L055051 BEQ L0925E1 JSL L0903A6 BRL L092787 L0925E1 LDA #$0001 LDX #$0000 CMPL L053AC9 BNE L0925F2 TXA CMPL L053ACB L0925F2 BNE L0925FE PEA $0011 JSL L0727E0 BRL L092787 L0925FE LDA #$0000 LDY #$0013 STA [$0A],Y LDA #$0015 CLC ADC $0A LDX $0C BCC L092611 INX L092611 STA $01 STX $03 PHY PHY LDY #$0027 LDA [$0A],Y PHA DEY DEY LDA [$0A],Y PHA JSL L0772AE PLA STA [$01] PLA LDY #$0002 STA [$01],Y LDY #$0015 LDA [$0A],Y INY INY ORA [$0A],Y BNE L09263D BRL L092787 L09263D LDY #$0017 LDA [$0A],Y TAX DEY DEY LDA [$0A],Y STA $01 STX $03 LDY #$0002 LDA [$01],Y TAX LDA [$01] CLC ADC #$0010 BCC L09265A INX L09265A STA $01 STX $03 LDA #$4000 AND [$01] BEQ L092668 LDA #$0001 L092668 LDY #$0013 STA [$0A],Y LDY #$0027 LDA [$0A],Y PHA DEY DEY LDA [$0A],Y PHA PEA $0000 JSL L074A90 LDY #$0013 LDA [$0A],Y BEQ L092690 PEA $0012 JSL L0727E0 BRL L092787 L092690 LDA #$0000 LDY #$0013 STA [$0A],Y LDA #$0019 CLC ADC $0A LDX $0C BCC L0926A3 INX L0926A3 STA $01 STX $03 PHY PHY LDY #$0023 LDA [$0A],Y PHA DEY DEY LDA [$0A],Y PHA JSL L07721A PLA STA [$01] PLA LDY #$0002 STA [$01],Y LDY #$0019 LDA [$0A],Y INY INY ORA [$0A],Y BNE L0926CF BRL L092787 L0926CF LDA #$0011 CLC ADC $0A LDX $0C BCC L0926DA INX L0926DA PHX PHA LDY #$001B LDA [$0A],Y TAX DEY DEY LDA [$0A],Y STA $01 STX $03 LDY #$0002 LDA [$01],Y TAX LDA [$01] CLC ADC #$0014 BCC L0926F9 INX L0926F9 STA $01 STX $03 LDY #$0002 LDA [$01],Y TAX LDA [$01] PHX PHA LDA #$0001 LDX #$0000 JSL L033477 BEQ L09271F BVS L092718 EOR #$8000 L092718 BPL L09271F LDA #$0000 BRA L092722 L09271F LDA #$0001 L092722 PLX STX $01 PLX STX $03 STA [$01] LDY #$0011 LDA [$0A],Y PHA LDY #$001B LDA [$0A],Y TAX DEY DEY LDA [$0A],Y STA $01 STX $03 LDY #$0002 LDA [$01],Y TAX LDA [$01] CLC ADC #$0010 BCC L09274D INX L09274D STA $01 STX $03 LDA #$4000 AND [$01] BEQ L09275B LDA #$0001 L09275B AND $01,S PLX LDY #$0013 STA [$0A],Y LDY #$0023 LDA [$0A],Y PHA DEY DEY LDA [$0A],Y PHA PEA $0000 JSL L074A24 LDY #$0013 LDA [$0A],Y BEQ L092785 PEA $0013 JSL L0727E0 BRA L092787 L092785 STZ $0E L092787 LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L092798 ENT PHD TSC CLC ADC #$FFD4 TCS TCD JSL L093A99 LDA L055027 LDX L055029 STA $25 STX $27 LDA L05501F LDX L055021 STA $21 STX $23 LDA L055039 LDX L05503B STA $1D STX $1F PHY PHY JSL L07B114 PLA STA L0551BF PLA STA L0551C1 LDA L055039 LDX L05503B STA L0551BB STX L0551BD PHY PEA $0000 PHD JSL L0925C8 PLA LSR BCC L0927EC BRL L092AAB L0927EC LDA $11 BEQ L0927F7 LDA #$0005 STA $05 BRA L0927FC L0927F7 LDA #$0006 STA $05 L0927FC PEA $0002 PEI $05 JSL L09694B LDA $25 LDX $27 CMP L055027 BNE L092811 CPX L055029 L092811 BNE L092816 BRL L092AAB L092816 LDA L0551BB LDX L0551BD CMP L055039 BNE L092824 CPX L05503B L092824 BEQ L092829 BRL L092AAB L092829 PHY PEA $0000 PHD JSL L0925C8 PLA LSR BCC L092839 BRL L092AAB L092839 PHY LDAL L053AD3 PHA LDAL L053AD1 PHA LDA L0551BF LDX L0551C1 PHX PHA JSL L079F26 PLA LSR BCS L092857 BRL L092A63 L092857 STZ L055023 STZ L055025 LDA $25 LDX $27 STA L0551CB STX L0551CD LDA L0551CB LDX L0551CD PHX PHA PEA $0001 JSL L0B86C4 LDAL L053ACB TAX LDAL L053AC9 TAY BNE L092883 DEX L092883 DEC STAL L053AC9 * TXA STAL L053ACB LDAL L053ACF TAX LDAL L053ACD CMP L0551CB BNE L09289E CPX L0551CD L09289E BNE L0928C0 PHY PHY LDAL L053AD3 PHA LDAL L053AD1 PHA PEA $0000 PEA $0001 JSL L07B8EA PLA STAL L053ACD PLA STAL L053ACF L0928C0 LDA #$0001 STA L05504D PHY PHY PEI $23 PEI $21 JSL L07721A PLA STA $19 PLX STX $1B LDA $19 ORA $1B BNE L0928E6 PEA $0014 JSL L0727E0 BRL L092A3C L0928E6 LDY #$0002 LDA [$19],Y TAX LDA [$19] STA $01 STX $03 LDY #$0016 LDA [$01],Y TAX DEY DEY LDA [$01],Y TAY BNE L092900 DEX L092900 DEC LDY #$0014 STA [$01],Y INY INY TXA STA [$01],Y LDY #$0016 LDA [$01],Y PHA DEY DEY LDA [$01],Y PHA LDA #$0001 LDX #$0000 JSL L033477 BVS L092925 EOR #$8000 L092925 BPL L09292C LDA #$0000 BRA L09292F L09292C LDA #$0001 L09292F STA $0F LDY #$001E LDA [$01],Y TAX DEY DEY LDA [$01],Y STA $0B STX $0D LDY #$001A LDA [$01],Y TAX DEY DEY LDA [$01],Y STA $07 STX $09 PEI $23 PEI $21 PEA $0001 JSL L074A24 LDA $0F BNE L09295F BRL L092A3C L09295F LDA $21 LDX $23 STA L0551C7 STX L0551C9 LDA L0551C7 LDX L0551C9 PHX PHA PEA $0001 JSL L0B8607 LDAL L053AC3 TAX LDAL L053AC1 TAY BNE L092985 DEX L092985 DEC STAL L053AC1 TXA STAL L053AC3 LDAL L053AC7 TAX LDAL L053AC5 STA L0551C3 STX L0551C5 LDA $21 LDX $23 CMPL L053AC5 BNE L0929AD TXA CMPL L053AC7 L0929AD BNE L0929BC LDA $07 LDX $09 STAL L053AC5 TXA STAL L053AC7 L0929BC PHY PHY PEI $0D PEI $0B JSL L07721A PLA STA $19 PLX STX $1B LDA $19 ORA $1B BEQ L0929FC LDY #$0002 LDA [$19],Y TAX LDA [$19] CLC ADC #$0018 BCC L0929E1 INX L0929E1 STA $29 STX $2B LDA $07 LDX $09 STA [$29] TXA LDY #$0002 STA [$29],Y PEI $0D PEI $0B PEA $0001 JSL L074A24 L0929FC PHY PHY PEI $09 PEI $07 JSL L07721A PLA STA $19 PLX STX $1B LDA $19 ORA $1B BEQ L092A3C LDY #$0002 LDA [$19],Y TAX LDA [$19] CLC ADC #$001C BCC L092A21 INX L092A21 STA $29 STX $2B LDA $0B LDX $0D STA [$29] TXA LDY #$0002 STA [$29],Y PEI $09 PEI $07 PEA $0001 JSL L074A24 L092A3C LDA L0551CB LDX L0551CD PHX PHA JSL L095009 LDAL L053AD3 PHA LDAL L053AD1 PHA LDA L0551BF LDX L0551C1 PHX PHA PEA $0001 JSL L07E171 BRA L092A67 L092A63 JSL L072314 L092A67 LDA L05524D BNE L092AAB LDA L055039 LDX L05503B CMP $1D BNE L092A78 CPX $1F L092A78 BEQ L092A81 PEA $0001 JSL L0998B0 L092A81 LDA L05501F LDX L055021 CMP $21 BNE L092A8D CPX $23 L092A8D BEQ L092A96 PEA $0002 JSL L0998B0 L092A96 LDA L055027 LDX L055029 CMP $25 BNE L092AA2 CPX $27 L092AA2 BEQ L092AAB PEA $0003 JSL L0998B0 L092AAB TSC CLC ADC #$002C TCS PLD RTL L092AB3 ENT PHD TSC CLC ADC #$FEB6 TCS ADC #$0055 TCD LDA #$012D CMP $FA BEQ L092AC8 BRL L092DED L092AC8 PHY PHY PEA ^L040934 PEA L040934 JSL L0B88AC PLA STA $BB PLX STX $BD LDY #$0002 LDA [$BB],Y PHA LDA [$BB] PHA PEA $0000 TDC CLC ADC #$FFBB PHA JSL L071FF8 PHA PEA $0000 TDC CLC ADC #$FFBB PHA PEA ^L04093D PEA L04093D JSL L1503DD PLA LSR BCC L092B1A LDAL L04093E+2 TAX LDAL L04093E TXY LDX #$FFBB STA $00,X TYA STA $02,X L092B1A PEI $BD PEI $BB JSL L07185A TDC CLC ADC #$00C7 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FFAB PHA JSL L15014A PEA $0008 JSL L0313BE LDX #$0000 LDA #$00FF AND $CB CMP #$0016 BNE L092B4D INX L092B4D PHX LDX #$0000 LDA #$00FF AND $CC DEC BNE L092B5A INX L092B5A TXA AND $01,S PLX STA $CF PEA ^L040942 PEA L040942 PEA ^L052526 PEA L052526 PEA $0000 TDC CLC ADC #$FFBB PHA PEA ^L040943 PEA L040943 JSL L073C22 PHY PHY PEA $1F40 JSL L072834 PLA STA $ED PLX STX $EF PEI $EF PEI $ED JSL L15102F PEI $EF PEI $ED JSL L151131 LDA L054FB7 LDX L054FB9 STA $F1 STX $F3 LDY #$0002 LDA [$F1],Y TAX LDA [$F1] CLC ADC #$01F4 BCC L092BB7 INX L092BB7 STA $DF STX $E1 LDA #$0001 STA $DD L092BC0 PHY PEA $0000 JSL L0736C8 PLA STA $E3 LDA #$FFFE CMP $E3 BNE L092C3E PEI $EF PEI $ED JSL L1506B3 PEI $EF PEI $ED JSL L1517CD PEI $EF PEI $ED PEA $0005 TDC CLC ADC #$00BF PEA $0000 PHA JSL L072B17 PHY PHY PEA $8001 PEA $0000 PEA $03EE JSL L15041C PLA STA $D1 PLX STX $D3 LDAL L05565D BNE L092C36 LDY #$0002 LDA [$D1],Y TAX LDA [$D1] PHX PHA PEA $F000 PEI $C1 PEI $BF JSL L15047C PEA $0002 PEA $8001 PEA $0000 PEA $03EE JSL L1510BF L092C36 PEI $EF PEI $ED JSL L1506AD L092C3E LDA L054FB7 LDX L054FB9 STA $F1 STX $F3 LDY #$0002 LDA [$F1],Y TAX LDA [$F1] PHX PHA LDA $DF LDX $E1 JSL L033477 BNE L092C5F BRL L092DC7 L092C5F BVS L092C64 EOR #$8000 L092C64 BMI L092C69 BRL L092DC7 L092C69 LDA $DD PEA $000A JSL L150BEE PLA LDX #$FFB9 STA $00,X LDA $DD PEA $000A JSL L150BEE PLA CLC ADC #$0009 LDX #$FFB7 STA $00,X LDX #$FFB7 LDA $00,X LDX #$FFB9 SEC SBC $00,X BVS L092C9B EOR #$8000 L092C9B BPL L092CD7 LDX #$FFB9 LDA $00,X STA $DB L092CA4 PHY PHY PEI $EF PEI $ED LDA $DB JSL L150488 PHX PHA JSL L151367 PLA STA $D5 PLX STX $D7 LDAL L05565D BNE L092CCA PEI $D7 PEI $D5 JSL L150AFE L092CCA LDA $DB LDX #$FFB7 CMP $00,X BEQ L092CD7 INC $DB BRA L092CA4 L092CD7 LDA $DD INC STA $DD PEI $DD PHY JSL L09771E PLA ORA $CF CLC ADC #$0005 STA $F1 PLA SEC SBC $F1 BEQ L092CFE BVS L092CF7 EOR #$8000 L092CF7 BPL L092CFE LDA #$0001 STA $DD L092CFE LDA $DD PEA $000A JSL L150BEE PLA LDX #$FFB5 STA $00,X LDA $DD PEA $000A JSL L150BEE PLA CLC ADC #$0009 LDX #$FFB3 STA $00,X LDX #$FFB3 LDA $00,X LDX #$FFB5 SEC SBC $00,X BVS L092D30 EOR #$8000 L092D30 BPL L092D6C LDX #$FFB5 LDA $00,X STA $DB L092D39 PHY PHY PEI $EF PEI $ED LDA $DB JSL L150488 PHX PHA JSL L151367 PLA STA $D5 PLX STX $D7 LDAL L05565D BNE L092D5F PEI $D7 PEI $D5 JSL L150AF8 L092D5F LDA $DB LDX #$FFB3 CMP $00,X BEQ L092D6C INC $DB BRA L092D39 L092D6C TDC CLC ADC #$00E5 PEA $0000 PHA LDA #$0008 CLC ADC $ED LDX $EF BCC L092D80 INX L092D80 PHX PHA PEA $0008 JSL L0313BE TDC CLC ADC #$00E5 PEA $0000 PHA JSL L1511B0 LDA L054FB7 LDX L054FB9 STA $F1 STX $F3 LDY #$0002 LDA [$F1],Y TAX LDA [$F1] CLC ADC #$0168 BCC L092DAF INX L092DAF STA $DF STX $E1 LDA $DD DEC BNE L092DC7 LDA $DF LDX $E1 CLC ADC #$0078 BCC L092DC3 INX L092DC3 STA $DF STX $E1 L092DC7 LDA #$0005 CMP $E3 BNE L092DDB PHY JSL L09771E PLA LSR BCC L092DDB JSL L070137 L092DDB LDA $E3 DEC BEQ L092DE3 BRL L092BC0 L092DE3 PEI $EF PEI $ED JSL L072634 BRA L092DFE L092DED PEA $0000 JSL L07479E PHY PEI $FA JSL L1505C8 PLA STA $D9 L092DFE LDA $F8 STA $FA LDA $F7 STA $F9 LDA $F5 TCD TSC CLC ADC #$014E TCS RTL L092E10 ENT PHD TSC CLC ADC #$FFBC TCS TCD LDA L055231 ORA L055233 EOR #$0001 AND L055217 BNE L092E29 BRL L092ED2 L092E29 LDA $4A DEC TAX LDA #$00FF ANDL L04156F,X STA $3F STZ $3D LDA L055233 BEQ L092E42 LDA #$0100 STA $3D L092E42 LDA L055231 BEQ L092E4E LDA #$0800 ORA $3D STA $3D L092E4E LDA L05522F BEQ L092E5A LDA #$0200 ORA $3D STA $3D L092E5A LDA L0551F3 BEQ L092E9E LDA $4A SEC SBC #$0002 BEQ L092E6E BVS L092E6C EOR #$8000 L092E6C BMI L092E80 L092E6E PEI $3F PEI $3D LDA L055111 LDX L055113 PHX PHA JSL L150C40 BRA L092E9E L092E80 STZ $3B LDA #$0004 CMP $4A BNE L092E8E LDA #$7FFF STA $3B L092E8E PEI $3B PEI $3B LDA L055111 LDX L055113 PHX PHA JSL L1512D1 L092E9E LDA L05511F BEQ L092ECF LDA #$0003 STA $0D LDA $3F JSL L150488 STA $0F STX $11 LDA $3D STA $1B TDC CLC ADC #$000D PEA $0000 PHA LDA L055121 LDX L055123 PHX PHA JSL L151299 JSL L0879C5 L092ECF BRL L09301F L092ED2 LDA L055233 BEQ L092EDF LDA #$0004 CLC ADC $4A STA $4A L092EDF LDA $4A SEC SBC #$0001 BPL L092EEA BRL L09301F L092EEA CMP #$0008 BMI L092EF2 BRL L09301F L092EF2 ASL TAX LDAL L092EFA,X PHA RTS L092EFA DA L092F0A-1 DA L092F17-1 DA L092F24-1 DA L092F2E-1 DA L092F38-1 DA L092F4E-1 DA L092F64-1 DA L092FCB-1 L092F0A PEA $0001 PEA $0000 JSL L09694B BRL L09301F L092F17 PEA $0002 PEA $0000 JSL L09694B BRL L09301F L092F24 PEA $0002 JSL L09685F BRL L09301F L092F2E PEA $0001 JSL L09685F BRL L09301F L092F38 PEA $0000 PEA $0001 PEA $0000 PEA $0000 PEA $0000 JSL L0968FC BRL L09301F L092F4E PEA $FFFF PEA $FFFE PEA $0000 PEA $0000 PEA $0000 JSL L0968FC BRL L09301F L092F64 LDA L0551E5 DEC ASL ASL ASL TAX TXA CLC ADC #L052C1A LDX #^L052C1A BCC L092F77 INX L092F77 STA $05 STX $07 PHY PHY LDY #$0006 LDA [$05],Y PHA DEY DEY LDA [$05],Y PHA JSL L07899F PLA STA $09 PLX STX $0B LDY #$0002 LDA [$05],Y PHA LDA [$05] PHA PEI $0B PEI $09 PEA $0000 JSL L0968AD PEI $0B PEI $09 JSL L07185A LDA L0551E5 DEC STA L0551E5 LDA L0551E5 SEC SBC #$0001 BVS L092FC1 EOR #$8000 L092FC1 BMI L092FC9 LDA #$0014 STA L0551E5 L092FC9 BRA L09301F L092FCB LDA L0551E5 INC STA L0551E5 LDA L0551E5 SEC SBC #$0014 BEQ L092FE8 BVS L092FE0 EOR #$8000 L092FE0 BPL L092FE8 LDA #$0001 STA L0551E5 L092FE8 LDA L0551E5 DEC ASL ASL ASL TAX TXA CLC ADC #L052C1A LDX #^L052C1A BCC L092FFB INX L092FFB STA $01 STX $03 LDA L055027 LDX L055029 STA [$01] TXA LDY #$0002 STA [$01],Y LDA L055039 LDX L05503B LDY #$0004 STA [$01],Y INY INY TXA STA [$01],Y BRA L09301F L09301F LDA $48 STA $4A LDA $47 STA $49 LDA $45 TCD TSC CLC ADC #$0048 TCS RTL L093031 ENT PHD TSC CLC ADC #$FFEE TCS TCD LDA L055231 AND L055233 BEQ L093051 PHY LDA L055225 PHA JSL L09AB66 PLA LSR BCC L093051 BRL L0930E2 L093051 PHY PHY LDA L055225 PHA JSL L096BE4 PLA STA $07 PLX STX $09 LDA $09 STA $0B LDA $07 STA $0D LDA #$FFFF CMP $0B BNE L093072 BRA L0930E2 L093072 LDA $0B BNE L09307C JSL L072314 BRA L0930E2 L09307C STZ $01 LDA L054FBB SEC SBC #$0000 BMI L09308B LDA $0B STA $01 L09308B LDA L054FB7 LDX L054FB9 STA $0F STX $11 LDY #$0002 LDA [$0F],Y TAX LDA [$0F] CLC ADC #$0003 BCC L0930A4 INX L0930A4 STA $03 STX $05 PEI $0B PEI $0D JSL L09971B LDA $01 BEQ L0930E2 L0930B4 LDA L054FB7 LDX L054FB9 STA $0F STX $11 LDY #$0002 LDA [$0F],Y TAX LDA [$0F] PHX PHA LDA $03 LDX $05 JSL L033477 BEQ L0930B4 BVS L0930D7 EOR #$8000 L0930D7 BPL L0930B4 PEA $0000 PEI $01 JSL L1505B0 L0930E2 TSC CLC ADC #$0012 TCS PLD RTL L0930EA ENT PHD TSC CLC ADC #$FFF8 TCS TCD LDA L0550ED LDX L0550EF PHX PHA JSL L151131 TDC CLC ADC #$0018 PEA $0000 PHA JSL L151412 TDC CLC ADC #$0014 PEA $0000 PHA JSL L151412 LDA L055215 SEC SBC #$0000 BEQ L093123 BPL L093131 L093123 STZ $03 LDA $1A ASL STA $1A LDA $16 ASL STA $16 BRA L0931B0 L093131 PHY PHY PEI $1A PEI $18 PEI $16 PEI $14 JSL L07245A PLY PLA STA $01 LDA $01 PEA $003C JSL L150BEE LDA L055215 PHA JSL L1500F5 PLX PLX STA $03 LDA $03 SEC SBC #$0001 BVS L093163 EOR #$8000 L093163 BMI L09316A LDA #$0001 STA $03 L09316A LDA $1A ASL STA $1A LDA $16 ASL STA $16 PHY PHY LDA $16 SEC SBC $1A PHA PEI $03 JSL L15133D PLA STA L055187 PLA STA L055189 PHY PHY LDA $14 SEC SBC $18 PHA PEI $03 JSL L15133D PLA STA L055183 PLA STA L055185 LDA $1A STA L055191 STZ L05518F LDA $18 STA L05518D STZ L05518B L0931B0 PHY TDC CLC ADC #$0018 PEA $0000 PHA TDC CLC ADC #$0014 PEA $0000 PHA JSL L150B2E PLA STA L055213 LDA $14 LDX $16 STAL L0523D4 TXA STAL L0523D6 PHY PHY JSL L15035F PLA STA L05517F PLA STA L055181 LDA L05517F LDX L055181 PHX PHA LDA $03 JSL L150488 JSL L150F53 STA L05517B STX L05517D STZ L055177 STZ L055179 STZ L055173 STZ L055175 LDA $12 STA L055197 LDA $10 STA L055195 LDA $0E STA L055193 LDA #$0001 STAL L0523D8 LDA #$0000 STAL L0523DA STAL L0523DC PHY PHY JSL L15035F PLA STAL L0523DE PLA STAL L0523E0 LDA $18 LDX $1A STAL L0523E2 TXA STAL L0523E4 LDA #$0000 STAL L0523E6 LDA L055197 BEQ L09325B LDA #$0200 STAL L0523E6 L09325B LDA L055195 BEQ L09326C LDA #$0800 CLC ADCL L0523E6 STAL L0523E6 L09326C LDA L055193 BEQ L09327D LDA #$0100 CLC ADCL L0523E6 STAL L0523E6 L09327D PEA ^L052D64 PEA L052D64 PEA ^L0523D8 PEA L0523D8 PEA $002E JSL L0313BE LDA #$0001 STA L055199 LDA #$0001 STA L05524B JSL L0A2670 STZ L05524B STZ L055199 LDA $0C STA $1A LDA $0B STA $19 LDA $09 TCD TSC CLC ADC #$0018 TCS RTL L0932B8 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDX #$0000 LDA #$025B CMP $0A BNE L0932CB INX L0932CB PHX LDX #$0000 LDA #$025A CMP $0A BNE L0932D7 INX L0932D7 TXA ORA $01,S PLX LSR BCC L0932E5 PEA $0001 JSL L090635 L0932E5 LDA $0A SEC SBC #$0259 BPL L0932F0 BRL L09339B L0932F0 CMP #$000B BMI L0932F8 BRL L09339B L0932F8 ASL TAX LDAL L093300,X PHA RTS L093300 DA L093316-1 DA L09331F-1 DA L093328-1 DA L093331-1 DA L093337-1 DA L09334C-1 DA L093358-1 DA L093364-1 DA L093389-1 DA L093392-1 DA L093379-1 L093316 PEA $0001 JSL L09685F BRA L09339B L09331F PEA $0000 JSL L098852 BRA L09339B L093328 PEA $0029 JSL L0998B0 BRA L09339B L093331 JSL L09A2DC BRA L09339B L093337 PEA $0000 PEA $0001 PEA $0000 PEA $0000 PEA $0000 JSL L0968FC BRA L09339B L09334C PEA $0001 PEA $0000 JSL L09694B BRA L09339B L093358 PEA $0002 PEA $0000 JSL L09694B BRA L09339B L093364 PEA $FFFF PEA $FFFE PEA $0000 PEA $0000 PEA $0000 JSL L0968FC BRA L09339B L093379 LDAL L053ACB PHA LDAL L053AC9 PHA JSL L099DFC BRA L09339B L093389 PEA $0001 JSL L09A047 BRA L09339B L093392 PEA $0000 JSL L09A047 BRA L09339B L09339B LDA $08 STA $0A LDA $07 STA $09 LDA $05 TCD PLY PLY PLY PLY RTL L0933AB ENT PHD TSC CLC ADC #$FFA0 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $68 PEI $66 PEA $005C JSL L0313BE STZ $6A LDA L0550B9 DEC BNE L0933D5 JSL L1601FC BRA L0933D9 L0933D5 JSL L0A1625 L0933D9 JSL L096253 PHY TDC CLC ADC #$0001 PEA $0000 PHA PEA $0000 JSL L095416 PLA LSR BCC L09340B LDA L0550B9 DEC BNE L0933FE JSL L16020A BRA L093402 L0933FE JSL L0A15C0 L093402 JSL L096253 LDA #$0001 STA $6A L09340B STZ L0550BF LDA $64 STA $68 LDA $63 STA $67 LDA $61 TCD TSC CLC ADC #$0066 TCS RTL L093420 ENT PHD TSC CLC ADC #$FFF4 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $14 LDA $12 SEC SBC #$0004 PHA LDA #$000C CLC ADC $14 PHA PEI $12 JSL L15100B TDC CLC ADC #$0001 PEA $0000 PHA JSL L15037D TDC CLC ADC #$0001 PEA $0000 PHA LDA $14 INC INC PHA LDA $12 SEC SBC #$0007 PHA LDA #$000A CLC ADC $14 PHA PEI $12 JSL L15100B TDC CLC ADC #$0001 PEA $0000 PHA JSL L15162D LDA $10 STA $14 LDA $0F STA $13 LDA $0D TCD TSC CLC ADC #$0012 TCS RTL L093495 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA #$0001 STA $0C LDA #$0010 CMP $0A BEQ L0934CE LDA #$0044 CMP $0A BEQ L0934CE LDA #$0045 CMP $0A BEQ L0934CE LDA #$0046 CMP $0A BEQ L0934CE LDA #$0040 CMP $0A BEQ L0934CE LDA #$002F CMP $0A BEQ L0934CE STZ $0C L0934CE LDA $08 STA $0A LDA $07 STA $09 LDA $05 TCD PLY PLY PLY PLY RTL L0934DE PHD TSC CLC ADC #$FFF8 TCS TCD PHY PHY PEI $12 PEI $18 PEI $16 LDA $14 JSL L150488 PHX PHA PEA $0000 JSL L075E55 PLA STA $01 PLX STX $03 LDAL L05565D LDY #$00D5 STA [$0E],Y LDAL L05565D BEQ L093515 LDA #$0001 L093515 STA $1A LDA $0C STA $18 LDA $0B STA $17 LDA $09 TCD TSC CLC ADC #$0016 TCS RTL L093529 ENT PHD TSC CLC ADC #$F970 TCS ADC #$059D TCD PEA $0000 TDC CLC ADC #$FC7B PHA PEI $FA PEI $F8 PEA $0100 JSL L0313BE PEA ^L0532BD PEA L0532BD JSL L082712 PEA ^L05311F PEA L05311F JSL L082712 JSL L0875FA LDA #$00FF LDX #$FC7B AND $00,X BNE L093591 PHY PHY PEA $0000 TDC CLC ADC #$FA77 PHA PEA $001E JSL L073002 PEA ^L040944 PEA L040944 PEA $0000 JSL L093CCE PLA STA $EB PLX STX $ED BRA L0935AD L093591 JSL L09999B PHY PHY PEA $0000 TDC CLC ADC #$FC7B PHA PEA $0000 JSL L0730BE PLA STA $EB PLX STX $ED L0935AD LDA L0550ED LDX L0550EF PHX PHA JSL L151131 PEA ^L0532BD PEA L0532BD JSL L082712 LDA $EB ORA $ED BNE L0935CC BRL L093854 L0935CC PEA ^L053259 PEA L053259 JSL L087BAE PEI $ED PEI $EB JSL L0718BF LDY #$0002 LDA [$EB],Y PHA LDA [$EB] PHA JSL L075B09 LDY #$0002 LDA [$EB],Y PHA LDA [$EB] PHA PEA $00C0 PEA $0000 PEA $0002 PEA $0001 PEA $0000 PEA $0000 PEA $0000 PEA $0000 JSL L075A86 LDA #$0048 CMPL L05565D BNE L093623 PEA $000C JSL L0727E0 BRL L093854 L093623 LDA #$0005 STA $9B LDY #$0002 LDA [$EB],Y TAX LDA [$EB] STA $9F STX $A1 LDA #$0003 STA $A3 STZ $A5 STZ $A7 TDC CLC ADC #$009B PEA $0000 PHA PEA $2010 JSL GSOS2 STAL L05565D LDAL L05565D BEQ L09365A LDA #$0001 L09365A PHA LDX #$0000 LDA #$0002 AND $A7 BNE L093666 INX L093666 TXA ORA $01,S PLX LSR BCC L093677 PEA $000D JSL L0727E0 BRL L093854 L093677 LDA $9D STA $E9 PEA ^L041A84 PEA L041A84 JSL L085F5A PHY PEA ^L041A75 PEA L041A75 PEA $0031 PEI $E9 PEA $0000 PHD JSL L0934DE PLA LSR BCC L0936A0 BRL L0937F3 L0936A0 LDA #$0001 STA $E7 L0936A5 LDA $E7 ASL ASL CLC ADC #$FD77 TAX STX $EF TDC CLC ADC $EF LDX #$0000 TXY LDX #$FB77 STA $00,X TYA STA $02,X LDX #$FB77 LDA $02,X TAY LDA $00,X TYX STA $EF STX $F1 LDA #$0000 STA [$EF] LDX #$FB77 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L0936E2 INX L0936E2 STA $EF STX $F1 LDA #$0080 STA [$EF] LDA #$00C8 CMP $E7 BEQ L0936F6 INC $E7 BRA L0936A5 L0936F6 PHY PEA $0000 TDC CLC ADC #$FD7B PHA PEA $0320 PEI $E9 PEA $0000 PHD JSL L0934DE PLA LSR BCC L093714 BRL L0937F3 L093714 LDA L0550FD LDX L0550FF STA $E3 STX $E5 LDA L055109 LDX L05510B STA $DD STX $DF LDA #$0351 LDX #$0000 STA $D7 STX $D9 LDA #$0001 STA $E7 L093737 LDA #$00A0 STA $E1 PHY TDC CLC ADC #$00E3 PEA $0000 PHA TDC CLC ADC #$00E1 PEA $0000 PHA PEI $DF PEI $DD PEA $7D00 JSL L15142A PLA STA $DB PHY PEI $DF PEI $DD PEI $DB PEI $E9 PEA $0000 PHD JSL L0934DE PLA LSR BCC L093775 BRL L0937F3 L093775 PEI $D9 PEI $D7 LDA $DB JSL L150488 JSL L150F53 STA $D7 STX $D9 LDA $E7 ASL ASL CLC ADC #$FD77 TAX LDA $DB STA $00,X LDA #$00C8 CMP $E7 BEQ L09379F INC $E7 BRA L093737 L09379F PEI $E9 PEA $0000 PEA $0000 JSL L075E14 LDA $D7 LDX $D9 STAL L041A75 TXA STAL L041A77 PHY PEA ^L041A75 PEA L041A75 PEA $0031 PEI $E9 PEA $0000 PHD JSL L0934DE PLA LSR BCS L0937F3 PHY PEA $0000 TDC CLC ADC #$FD7B PHA PEA $0320 PEI $E9 PEA $0000 PHD JSL L0934DE PLA LSR BCS L0937F3 PEI $E9 JSL L075A4F BRA L093854 L0937F3 LDA #$0048 CMPL L05565D BNE L093805 PEA $000C JSL L0727E0 BRA L093841 L093805 PEA $0000 TDC CLC ADC #$FA77 PHA PEA $001B JSL L072809 PEA $0000 TDC CLC ADC #$FA63 PHA LDA $D5 JSL L150488 PHX PHA PEA $0004 JSL L07334A PEA $0000 TDC CLC ADC #$FB7B PHA PEA $0002 JSL L1509CE JSL L07010A L093841 PEI $E9 JSL L075A4F LDY #$0002 LDA [$EB],Y PHA LDA [$EB] PHA JSL L075B09 L093854 STZ L055135 PEA ^L053117 PEA L053117 JSL L082712 LDA $F6 STA $FA LDA $F5 STA $F9 LDA $F3 TCD TSC CLC ADC #$0696 TCS RTL L093873 PHD TSC CLC ADC #$FFF8 TCS TCD STZ $18 LDA $16 DEC ASL ASL TAX LDAL L054AD4+2,X PHA LDAL L054AD4,X PLX STA $01 STX $03 L093891 LDA [$01] BEQ L0938D2 PHY LDY #$0004 LDA [$01],Y TAX DEY DEY LDA [$01],Y PHX PHA LDY #$0025 LDA [$0E],Y TAX DEY DEY LDA [$0E],Y PHX PHA JSL L071C56 PLA LSR BCC L0938C1 LDA [$01] STA [$12] LDA #$0001 STA $18 BRA L0938D2 L0938C1 LDA $01 LDX $03 CLC ADC #$0006 BCC L0938CC INX L0938CC STA $01 STX $03 BRA L093891 L0938D2 LDA $0C STA $16 LDA $0B STA $15 LDA $09 TCD TSC CLC ADC #$0014 TCS RTL L0938E4 PHD TSC CLC ADC #$FFF8 TCS TCD LDA $12 STA $01 LDA $14 STA $03 LDA $01 LDX $03 STA $16 STX $18 LDA $0C STA $14 LDA $0B STA $13 LDA $09 TCD TSC CLC ADC #$0012 TCS RTL L09390E ENT PHD TSC CLC ADC #$FFCA TCS TCD TDC CLC ADC #$0003 PEA $0000 PHA PEI $3E PEI $3C PEA $0020 JSL L0313BE STZ $40 STZ $42 TDC CLC ADC #$0003 STA $23 STZ $25 STZ $27 PHY TDC CLC ADC #$0003 PEA $0000 PHA PEA ^L052576 PEA L052576 JSL L071C56 PLA LSR BCC L093958 LDA #$00FB STA $27 BRA L0939B3 L093958 PHY TDC CLC ADC #$0003 PEA $0000 PHA PEA ^L052562 PEA L052562 JSL L071C56 PLA LSR BCC L093977 LDA #$00FC STA $27 BRA L0939B3 L093977 PHY TDC CLC ADC #$0003 PEA $0000 PHA PEA ^L05253A PEA L05253A JSL L071C56 PLA LSR BCC L093996 LDA #$00FE STA $27 BRA L0939B3 L093996 PHY TDC CLC ADC #$0003 PEA $0000 PHA PEA ^L05254E PEA L05254E JSL L071C56 PLA LSR BCC L0939B3 LDA #$00FD STA $27 L0939B3 LDA $27 BEQ L0939CF PHY PHY PEA $01F4 PEI $27 PEA $0000 PHD JSL L0938E4 PLA STA $40 PLX STX $42 BRL L093A87 L0939CF LDA #$0001 STA $31 L0939D4 LDA $31 DEC ASL TAX LDAL L0541A5,X STA $2F PHY PHY PEI $2F JSL L1513FA PLA PLX STX $33 ORA $33 BEQ L093A1D PHY PEI $31 TDC CLC ADC #$002D PEA $0000 PHA PEA $0000 PHD JSL L093873 PLA LSR BCC L093A1D PHY PHY PEI $2F PEI $2D PEA $0000 PHD JSL L0938E4 PLA STA $40 PLX STX $42 BRA L093A87 L093A1D LDA #$000C CMP $31 BEQ L093A28 INC $31 BRA L0939D4 L093A28 PHY JSL L1503B3 PLA STA $01 LDA $01 SEC SBC #$0001 BVS L093A3B EOR #$8000 L093A3B BPL L093A87 LDA #$0001 STA $2D L093A42 PHY PHY PEI $2D JSL L1505BC PLA STA $23 PLX STX $25 PHY TDC CLC ADC #$0003 PEA $0000 PHA PEI $25 PEI $23 JSL L071C56 PLA LSR BCC L093A7D PHY PHY PEA $012C PEI $2D PEA $0000 PHD JSL L0938E4 PLA STA $40 PLX STX $42 BRA L093A87 L093A7D LDA $2D CMP $01 BEQ L093A87 INC $2D BRA L093A42 L093A87 LDA $3A STA $3E LDA $39 STA $3D LDA $37 TCD TSC CLC ADC #$003C TCS RTL L093A99 ENT PHD TSC CLC ADC #$FFF0 TCS TCD LDX #$0000 LDA L0551CB ORA L0551CD BNE L093AAD INX L093AAD TXA ORA L055051 BEQ L093AB6 BRL L093C0C L093AB6 PHY PHY LDAL L053AD3 PHA LDAL L053AD1 PHA LDA L0551CB LDX L0551CD PHX PHA JSL L07C5A6 PLA PLX STX $0D ORA $0D BEQ L093ADD PEA $1538 JSL L07272E L093ADD PHY PHY LDA L0551CB LDX L0551CD PHX PHA JSL L0772AE PLA STA $09 PLX STX $0B LDA $09 ORA $0B BNE L093AFA BRL L093BF9 L093AFA LDY #$0002 LDA [$09],Y TAX LDA [$09] CLC ADC #$000C BCC L093B09 INX L093B09 STA $0D STX $0F LDY #$0002 LDA [$0D],Y TAX LDA [$0D] STA $01 STX $03 LDA L0551CB LDX L0551CD PHX PHA PEA $0000 JSL L074A90 PHY LDA L0551CB LDX L0551CD PHX PHA PEA $4452 PEA $4143 JSL L0751BE PLA LSR BCS L093B42 BRL L093BF9 L093B42 LDA $01 ORA $03 BEQ L093B4B LDA #$0001 L093B4B BEQ L093B68 PHY PEI $03 PEI $01 PEA $5041 PEA $4D42 JSL L0751BE PLA EOR #$0001 CMP #$0000 BEQ L093B68 BRL L093BF9 L093B68 LDA L0551C7 ORA L0551C9 BNE L093B73 BRL L093BF7 L093B73 PHY PHY LDA L0551C7 LDX L0551C9 PHX PHA JSL L07721A PLA STA $05 PLX STX $07 LDA $05 ORA $07 BEQ L093BF9 LDY #$0002 LDA [$05],Y TAX LDA [$05] CLC ADC #$000C BCC L093B9C INX L093B9C STA $0D STX $0F LDY #$0002 LDA [$0D],Y TAX LDA [$0D] STA $01 STX $03 LDA L0551C7 LDX L0551C9 PHX PHA PEA $0000 JSL L074A24 PHY LDA L0551C7 LDX L0551C9 PHX PHA PEA $4447 PEA $4B42 JSL L0751BE PLA LSR BCS L093BD4 BRA L093BF9 L093BD4 LDA $01 ORA $03 BEQ L093BDD LDA #$0001 L093BDD BEQ L093BF7 PHY PEI $03 PEI $01 PEA $5041 PEA $4D42 JSL L0751BE PLA EOR #$0001 CMP #$0000 BNE L093BF9 L093BF7 BRA L093C00 L093BF9 PEA $0014 JSL L0727E0 L093C00 STZ L0551CB STZ L0551CD STZ L0551C7 STZ L0551C9 L093C0C TSC CLC ADC #$0010 TCS PLD RTL L093C14 PHD TSC CLC ADC #$FFF6 TCS TCD STZ $12 STZ $14 LDA #$00FB CMP $10 BNE L093C34 LDA #L052576 LDX #^L052576 STA $12 STX $14 BRL L093CBC L093C34 LDA #$00FC CMP $10 BNE L093C47 LDA #L052562 LDX #^L052562 STA $12 STX $14 BRA L093CBC L093C47 LDA #$00FD CMP $10 BNE L093C5A LDA #L05254E LDX #^L05254E STA $12 STX $14 BRA L093CBC L093C5A LDA #$00FE CMP $10 BNE L093C6D LDA #L05253A LDX #^L05253A STA $12 STX $14 BRA L093CBC L093C6D LDA #$0001 STA $01 L093C72 LDA $01 DEC ASL ASL TAX LDAL L054AD4+2,X PHA LDAL L054AD4,X PLX STA $03 STX $05 L093C86 LDA [$03] BEQ L093CB1 LDA $10 CMP [$03] BNE L093CA0 LDY #$0004 LDA [$03],Y TAX DEY DEY LDA [$03],Y STA $12 STX $14 BRA L093CBC L093CA0 LDA $03 LDX $05 CLC ADC #$0006 BCC L093CAB INX L093CAB STA $03 STX $05 BRA L093C86 L093CB1 LDA #$000C CMP $01 BEQ L093CBC INC $01 BRA L093C72 L093CBC LDA $0E STA $10 LDA $0D STA $0F LDA $0B TCD TSC CLC ADC #$000E TCS RTL L093CCE ENT PHD TSC CLC ADC #$FDD8 TCS ADC #$013B TCD PEA $0000 TDC CLC ADC #$FFC5 PHA PEI $FA PEI $F8 PEA $0100 JSL L0313BE PEA $0000 TDC CLC ADC #$FEC5 PHA PEI $F6 PEI $F4 PEA $0100 JSL L0313BE STZ $FC STZ $FE PHY JSL L095F79 PLA LSR BCS L093D11 BRL L093E6E L093D11 PHY JSL L0727BF PLA STA $E7 PHY PHY PEA $0000 TDC CLC ADC #$FEC5 PHA JSL L0735A8 PLA STA $E3 PLX STX $E5 LDA #$0003 STA $CD STZ $CF STZ $D1 LDA #$0003 STA $D3 STZ $D5 STZ $D7 STZ L0551AD LDA $F2 BEQ L093DA1 LDAL L040B7D+2 TAX LDAL L040B7D CLC ADC #$000C BCC L093D57 INX L093D57 STA $E9 STX $EB LDA #$0000 TAX STA [$E9] TXA LDY #$0002 STA [$E9],Y PEA $00A1 PEA $001E PEA $0000 PEA $0000 PEA $0000 PEA $0000 TDC CLC ADC #$FFC5 PHA PEA $0001 PEI $E5 PEI $E3 PEA ^L040B57 PEA L040B57 PEA ^L092555 PEA L092555 TDC CLC ADC #$00C5 PEA $0000 PHA JSL L1504A5 BRA L093DC7 L093DA1 PEA $00A1 PEA $001E PEA $0000 PEA $0000 TDC CLC ADC #$FFC5 PHA PEA $0001 PEI $E5 PEI $E3 TDC CLC ADC #$00C5 PEA $0000 PHA JSL L15049F L093DC7 JSL L09AE88 LDA #$0001 STA L0551AD LDA $C5 BNE L093DD7 BRA L093E54 L093DD7 LDAL L05565D BNE L093E54 LDA $D5 LDX $D7 STA $DD STX $DF LDY #$0002 LDA [$DD],Y TAX LDA [$DD] CLC ADC #$0002 BCC L093DF4 INX L093DF4 STA $E9 STX $EB LDA [$E9] INC INC STA $E1 PHY PHY LDA $E1 JSL L150488 PHX PHA LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $D9 PLX STX $DB LDAL L05565D BNE L093E54 LDY #$0002 LDA [$DD],Y TAX LDA [$DD] CLC ADC #$0002 BCC L093E34 INX L093E34 PHX PHA LDY #$0002 LDA [$D9],Y TAX LDA [$D9] PHX PHA LDA $E1 JSL L150488 PHX PHA JSL L070597 LDA $D9 LDX $DB STA $FC STX $FE L093E54 PEI $E5 PEI $E3 JSL L07185A PEI $D7 PEI $D5 PEI $D1 PEI $CF JSL L071825 PEI $E7 JSL L0724F7 L093E6E LDA $F0 STA $FA LDA $EF STA $F9 LDA $ED TCD TSC CLC ADC #$0234 TCS RTL L093E80 ENT PHD TSC CLC ADC #$FFFC TCS TCD PEI $0C PEI $0A JSL L096A7B LDA #$0002 CLC ADC $0A LDX $0C BCC L093E9B INX L093E9B STA $01 STX $03 PHY LDY #$0002 LDA [$0A],Y PHA LDAL L05325B PHA LDAL L05325F PHA JSL L071A1B PLA STA [$01] LDA $0A LDX $0C STA $01 STX $03 PHY LDA [$0A] PHA LDAL L053259 PHA LDAL L05325D PHA JSL L071A1B PLA STA [$01] LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L093EE5 PHD TSC CLC ADC #$FFF8 TCS TCD PHY PHY PEI $12 JSL L1516BD PLA STA $01 PLX STX $03 LDAL L05565D BNE L093F0D LDA $12 STA L0551E9 LDA #$0001 STA $14 BRA L093F0F L093F0D STZ $14 L093F0F LDA $0C STA $12 LDA $0B STA $11 LDA $09 TCD TSC CLC ADC #$0010 TCS RTL L093F21 ENT PHD TSC CLC ADC #$FEFC TCS ADC #$000D TCD LDA L0551E7 PHA PHY JSL L15104D PLA SEC SBC $01,S STA $01,S PLA BEQ L093F44 LDA #$0001 STA L0551EB L093F44 LDA L0551EB BNE L093F4C BRL L0940DD L093F4C LDA L05522F PHA PHY JSL L099DCE PLA ORA $01,S PLX LSR BCC L093F6C PHY PEA $0001 PEA $0000 PHD JSL L093EE5 PLA LSR BCS L093FC2 L093F6C PHY PEA $1602 PEA $0000 PHD JSL L093EE5 PLA LSR BCS L093FC2 PHY PEA $1603 PEA $0000 PHD JSL L093EE5 PLA LSR BCS L093FC2 PHY PEA $0000 PEA $0000 PHD JSL L093EE5 PLA LSR BCS L093FC2 PHY PEA $1604 PEA $0000 PHD JSL L093EE5 PLA LSR BCS L093FC2 PHY PEA $0001 PEA $0000 PHD JSL L093EE5 PLA LSR BCS L093FC2 LDA #$1601 STA L0551E9 L093FC2 LDA L0551E9 BNE L093FE6 PEA ^L052CCE PEA L052CCE PEA $0000 TDC CLC ADC #$FFF3 PHA PEA $0008 JSL L073002 PEA $0014 JSL L0313BE BRA L094031 L093FE6 LDA L0551E9 DEC BNE L09400B PEA ^L052CCE PEA L052CCE PEA $0000 TDC CLC ADC #$FFF3 PHA PEA $0009 JSL L073002 PEA $0014 JSL L0313BE BRA L094031 L09400B PEA ^L052CCE PEA L052CCE PEA $0000 TDC CLC ADC #$FFF3 PHA LDA L0551E9 SEC SBC #$1601 CLC ADC #$000A PHA JSL L073002 PEA $0014 JSL L0313BE L094031 LDAL L040945 SEP #$20 STAL L052CBA REP #$20 LDA L0551E9 SEC SBC #$0000 BPL L094049 BRL L0940D1 L094049 CMP #$1605 BMI L094051 BRL L0940D1 L094051 SEC SBC #$0000 BEQ L094068 DEC BEQ L09407D SEC SBC #$1601 BEQ L0940A7 DEC BEQ L0940BC DEC BEQ L094092 BRA L0940D1 L094068 PEA ^L052CBA PEA L052CBA PEA ^L040946 PEA L040946 PEA $0005 JSL L0313BE BRA L0940D1 L09407D PEA ^L052CBA PEA L052CBA PEA ^L04094B PEA L04094B PEA $0008 JSL L0313BE BRA L0940D1 L094092 PEA ^L052CBA PEA L052CBA PEA ^L040953 PEA L040953 PEA $0005 JSL L0313BE BRA L0940D1 L0940A7 PEA ^L052CBA PEA L052CBA PEA ^L040958 PEA L040958 PEA $0007 JSL L0313BE BRA L0940D1 L0940BC PEA ^L052CBA PEA L052CBA PEA ^L04095F PEA L04095F PEA $0006 JSL L0313BE BRA L0940D1 L0940D1 PHY JSL L15104D PLA STA L0551E7 STZ L0551EB L0940DD TSC CLC ADC #$0104 TCS PLD RTL L0940E5 ENT PHD TSC CLC ADC #$FFF8 TCS TCD LDA $0E LDX $10 STA $01 STX $03 LDA L055023 ORA L055025 BNE L094114 LDA #$0001 STA [$01] LDA L055027 LDX L055029 LDY #$0002 STA [$01],Y INY INY TXA STA [$01],Y BRA L094129 L094114 LDA #$0002 STA [$01] LDA L055023 LDX L055025 LDY #$0006 STA [$01],Y INY INY TXA STA [$01],Y L094129 LDA #$0006 LDY #$002C STA [$01],Y LDA L055039 LDX L05503B LDY #$0058 STA [$01],Y INY INY TXA STA [$01],Y LDA $0C STA $10 LDA $0B STA $0F LDA $09 TCD TSC CLC ADC #$000E TCS RTL L094153 ENT PHD TSC CLC ADC #$FEFA TCS ADC #$000F TCD PHY LDA L055111 LDX L055113 PHX PHA JSL L150807 PLA STA $F1 LDA $F1 SEC SBC #$00FE BEQ L094182 BVS L09417B EOR #$8000 L09417B BPL L094182 LDA #$00FE STA $F1 L094182 PHY PHY LDA L055111 LDX L055113 PHX PHA JSL L151379 PLA PLX STA $F3 STX $F5 LDY #$0002 LDA [$F3],Y TAX LDA [$F3] PHX PHA PEA $0000 TDC CLC ADC #$FFF2 PHA LDA $F1 JSL L150488 PHX PHA JSL L070597 LDA $F1 CLC ADC #$FFF1 TAX LDA #$00FF AND $00,X CMP #$000D BNE L0941CB LDA $F1 DEC STA $F1 L0941CB LDA $F1 LDX #$FFF1 SEP #$20 STA $00,X REP #$20 LDA $F1 INC CLC ADC #$FFF1 TAX SEP #$20 LDA #$00 STA $00,X REP #$20 PEI $FE PEI $FC PEA $0000 TDC CLC ADC #$FFF1 PHA PEA $0100 JSL L0313BE TSC CLC ADC #$0106 TCS PLD RTL L094202 PHD TSC CLC ADC #$FFE0 TCS TCD LDA $2C SEC SBC #$0001 BVS L094215 EOR #$8000 L094215 BPL L09421C LDA #$0000 BRA L09421F L09421C LDA #$0001 L09421F PHA LDA $2C SEC SBC #$0018 BEQ L09422F BVS L09422D EOR #$8000 L09422D BMI L094234 L09422F LDA #$0000 BRA L094237 L094234 LDA #$0001 L094237 ORA $01,S PLX LSR BCC L094240 BRL L0943C2 L094240 PHY PHY JSL L150493 PLA STA $0D PLX STX $0F LDY #$001A LDA [$0D],Y TAX DEY DEY LDA [$0D],Y STA $05 STX $07 PHY PHY JSL L150BB2 PLA STA $09 PLX STX $0B LDY #$0002 LDA [$09],Y TAX LDA [$09] CLC ADC #$0002 BCC L094275 INX L094275 STA $01 STX $03 LDY #$002E LDA [$26],Y TAX DEY DEY LDA [$26],Y CLC ADC #$0002 BCC L09428A INX L09428A STA $1D STX $1F LDA [$1D] LDY #$0002 STA [$01],Y LDY #$002E LDA [$26],Y TAX DEY DEY LDA [$26],Y STA $1D STX $1F LDA [$1D] STA [$01] LDY #$0002 LDA #$006E CLC ADC [$01],Y LDY #$0006 STA [$01],Y LDA #$0023 CLC ADC [$01] LDY #$0004 STA [$01],Y LDA $09 LDX $0B LDY #$0018 STA [$0D],Y INY INY TXA STA [$0D],Y LDA $2C DEC PHA PEA $0004 JSL L1500F5 PLX PLX STA $11 LDA $2C DEC PHA PEA $0004 JSL L150318 PLX PLX STA $13 LDA $11 DEC DEC BNE L0942FD LDA $13 DEC DEC BNE L0942FD LDA #$0003 STA $13 L0942FD LDY #$002E LDA [$26],Y TAX DEY DEY LDA [$26],Y CLC ADC #$0002 BCC L09430E INX L09430E STA $1D STX $1F LDA $13 PEA $001C JSL L150BEE PLA CLC ADC [$1D] STA $17 LDY #$002E LDA [$26],Y TAX DEY DEY LDA [$26],Y STA $1D STX $1F LDA $11 PEA $000C JSL L150BEE PLA CLC ADC [$1D] STA $15 LDA #$001C CLC ADC $17 DEC DEC STA $1B LDA #$000C CLC ADC $15 DEC STA $19 LDA $11 DEC DEC BNE L094364 LDA $13 DEC BNE L094364 LDA #$001C CLC ADC $1B STA $1B L094364 LDA $2A BEQ L09439F JSL L1510A1 PEA $8002 JSL L150BD6 PEA $0004 PEA $0002 JSL L151083 TDC CLC ADC #$0015 PEA $0000 PHA PEA $FFFE PEA $FFFF JSL L151005 TDC CLC ADC #$0015 PEA $0000 PHA JSL L151418 BRA L0943AC L09439F TDC CLC ADC #$0015 PEA $0000 PHA JSL L150383 L0943AC PEI $0B PEI $09 JSL L151669 LDA $05 LDX $07 LDY #$0018 STA [$0D],Y INY INY TXA STA [$0D],Y L0943C2 LDA $24 STA $2C LDA $23 STA $2B LDA $21 TCD TSC CLC ADC #$002A TCS RTL L0943D4 ENT PHD TSC CLC ADC #$FFE0 TCS TCD PHY JSL L071BFF PLA STA $1B LDA $34 BPL L0943EB BRL L094564 L0943EB CMP #$0006 BMI L0943F3 BRL L094564 L0943F3 ASL TAX LDAL L0943FB,X PHA RTS L0943FB DA L094407-1 DA L094437-1 DA L0944E0-1 DA L09450C-1 DA L094510-1 DA L09455A-1 L094407 PHY PHY JSL L150493 PLA STA $17 PLX STX $19 PEA ^L0531E9 PEA L0531E9 PEI $19 PEI $17 PEA ^L0531F1 PEA L0531F1 PEI $2E PEI $2C PEA $0000 PEA $0000 PEA $0000 JSL L1505E6 BRL L094564 L094437 STZ $36 LDA $2A STA $0D LDA $28 STA $0B PHY TDC CLC ADC #$000B PEA $0000 PHA PEI $2E PEI $2C JSL L1512CB PLA LSR BCC L0944CE LDA $0B SEC SBC [$2C] PHA PEA $000C JSL L1500F5 PLX PLX STA $11 LDA $0D LDY #$0002 SEC SBC [$2C],Y PHA PEA $001C JSL L1500F5 PLX PLX STA $13 LDA $11 DEC DEC BNE L094496 LDA $13 SEC SBC #$0001 BEQ L094496 BVS L09448F EOR #$8000 L09448F BPL L094496 LDA $13 DEC STA $13 L094496 LDA $13 INC PHA LDA $11 ASL ASL STA $1D PLA CLC ADC $1D ORA #$8000 STA $36 LDA L05516B BEQ L0944CC LDA L05516B PHA PEA $0001 PEA $0000 PHD JSL L094202 LDA L05516B PHA PEA $0001 PEA $0000 PHD JSL L094202 L0944CC BRA L0944DD L0944CE PEI $2E PEI $2C PEI $0D PEI $0B PEA $0258 JSL L09A984 L0944DD BRL L094564 L0944E0 LDY #$0002 LDA [$30],Y TAX LDA [$30] STA $01 STX $03 LDY #$0002 LDA [$01],Y BNE L0944FB LDA #$0072 LDY #$0002 STA [$01],Y L0944FB LDY #$0004 LDA [$01],Y BNE L09450A LDA #$0025 LDY #$0004 STA [$01],Y L09450A BRA L094564 L09450C STZ $36 BRA L094564 L094510 LDA #$7FFF AND $26 PHA PHY PEA $0000 JSL L150580 PLA ORA L055167 PHA PEA $0000 PHD JSL L094202 LDX #$0000 LDA $26 BPL L094533 INX L094533 TXA PHA PHY PEA $0000 JSL L150580 PLA STA $1D PLA AND $1D STA L055167 LDA L055167 BEQ L094555 LDA #$7FFF AND $26 STA L05516B BRA L094564 ; was L094558 L094555 STZ L05516B BRA L094564 L09455A LDA #$0258 CLC ADC $26 STA $36 BRA L094564 L094564 PEI $1B JSL L071AA4 LDA $24 STA $34 LDA $23 STA $33 LDA $21 TCD TSC CLC ADC #$0032 TCS RTL L09457C ENT PHD TSC CLC ADC #$FFF8 TCS TCD PHY JSL L099DCE PLA LSR BCC L094593 LDA #$0001 STA L05522F L094593 LDA L05522F BNE L09459B BRL L094690 L09459B LDA L055171 BNE L0945A3 BRL L094683 L0945A3 LDA L05516D AND L05516F BNE L0945AE BRL L094668 L0945AE LDY #$0002 LDA [$0E],Y SEC SBCL L0523D2 BPL L0945BE EOR #$FFFF INC L0945BE STA $01 LDA [$0E] SEC SBCL L0523D0 BPL L0945CD EOR #$FFFF INC L0945CD STA $03 LDA $01 SEC SBC $03 BEQ L0945DD BVS L0945DB EOR #$8000 L0945DB BMI L0945E2 L0945DD LDA #$0000 BRA L0945E5 L0945E2 LDA #$0001 L0945E5 PHA LDA $01 SEC SBC #$0001 BEQ L0945F5 BVS L0945F3 EOR #$8000 L0945F3 BMI L0945FA L0945F5 LDA #$0000 BRA L0945FD L0945FA LDA #$0001 L0945FD AND $01,S PLX LSR BCC L094606 STZ L05516D L094606 LDA $03 SEC SBC $01 BEQ L094614 BVS L094612 EOR #$8000 L094612 BMI L094619 L094614 LDA #$0000 BRA L09461C L094619 LDA #$0001 L09461C PHA LDA $03 SEC SBC #$0001 BEQ L09462C BVS L09462A EOR #$8000 L09462A BMI L094631 L09462C LDA #$0000 BRA L094634 L094631 LDA #$0001 L094634 AND $01,S PLX LSR BCC L09463D STZ L05516F L09463D LDX #$0000 LDA $01 CMP $03 BNE L094647 INX L094647 PHX LDA $01 SEC SBC #$0004 BEQ L094657 BVS L094655 EOR #$8000 L094655 BMI L09465C L094657 LDA #$0000 BRA L09465F L09465C LDA #$0001 L09465F AND $01,S PLX LSR BCC L094668 STZ L05516D L094668 LDA L05516F BEQ L094673 LDAL L0523D0 STA [$0E] L094673 LDA L05516D BEQ L094681 LDAL L0523D2 LDY #$0002 STA [$0E],Y L094681 BRA L094690 L094683 LDY #$0002 LDA [$0E],Y PHA LDA [$0E] PHA JSL L094E90 L094690 LDA $0C STA $10 LDA $0B STA $0F LDA $09 TCD TSC CLC ADC #$000E TCS RTL L0946A2 ENT PHD TSC CLC ADC #$FDDE TCS ADC #$012F TCD PEA $0000 TDC CLC ADC #$FFD1 PHA PEI $FA PEI $F8 PEA $0014 JSL L0313BE PEA $0000 TDC CLC ADC #$FFE5 PHA PEA $0000 TDC CLC ADC #$FED1 PHA LDA L055265 LDX L055267 PHX PHA JSL L072CD4 PEA $0100 JSL L0313BE TDC CLC ADC #$00E5 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FFC7 PHA LDA L054FBF PHA PEA $0000 TDC CLC ADC #$FFE5 PHA PEA $0000 TDC CLC ADC #$FFD1 PHA JSL L03133B PEA $000A JSL L0313BE LDX #$0000 LDAL L05565D BNE L094723 INX L094723 TXA STA $FC LDA $F6 STA $FA LDA $F5 STA $F9 LDA $F3 TCD TSC CLC ADC #$0228 TCS RTL L094738 PHD TSC CLC ADC #$FFFC TCS TCD PHY PHY JSL L15042E LDA #$7FA6 LDX #$0000 JSL L033477 BVS L094755 EOR #$8000 L094755 BPL L09475C LDA #$0000 BRA L09475F L09475C LDA #$0001 L09475F STA $0E LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L094772 ENT PHD TSC CLC ADC #$FFF4 TCS TCD PHY PHY LDA L055027 LDX L055029 PHX PHA JSL L0772AE PLA STA $05 PLX STX $07 PHY PHY LDA L05501F LDX L055021 PHX PHA JSL L07721A PLA STA $01 PLX STX $03 LDA #$0001 STA $12 PHY PEA $0000 PHD JSL L094738 PLA LSR BCC L094818 JSL L151373 JSL L15059E PHY PEA $0000 PHD JSL L094738 PLA LSR BCC L094818 PEA $0000 JSL L07479E JSL L15059E PHY PEA $0000 PHD JSL L094738 PLA LSR BCC L094818 L0947E1 PHY JSL L0301E4 PLA BNE L0947E1 JSL L0B392B JSL L15059E PHY PEA $0000 PHD JSL L094738 PLA LSR BCC L094818 PEA $0000 JSL L15000C JSL L15059E PHY PEA $0000 PHD JSL L094738 PLA EOR #$0001 STA $12 L094818 LDA $05 ORA $07 BEQ L09482D LDA L055027 LDX L055029 PHX PHA PEA $0000 JSL L074A90 L09482D LDA $01 ORA $03 BEQ L094842 LDA L05501F LDX L055021 PHX PHA PEA $0000 JSL L074A24 L094842 TSC CLC ADC #$000C TCS PLD RTL L09484A PHD TSC CLC ADC #$FFC8 TCS TCD LDA L054FB7 LDX L054FB9 STA $35 STX $37 LDY #$0002 LDA [$35],Y TAX LDA [$35] PHX PHA LDY #$0053 LDA [$3E],Y TAX DEY DEY LDA [$3E],Y JSL L033477 BEQ L09487D BVS L09487B EOR #$8000 L09487B BMI L094882 L09487D LDA #$0000 BRA L094885 L094882 LDA #$0001 L094885 STA $01 PHY PHY JSL L072E34 LDA #$0000 LDX #$0001 JSL L033477 BVS L09489C EOR #$8000 L09489C BPL L0948A3 LDA #$0000 BRA L0948A6 L0948A3 LDA #$0001 L0948A6 STA $03 PHY PEA $FFFF TDC CLC ADC #$0007 PEA $0000 PHA JSL L151017 PLA STA $05 LDA $03 ORA $01 ORA $05 STA $42 LDA $3C STA $40 LDA $3B STA $3F LDA $39 TCD TSC CLC ADC #$003E TCS RTL L0948D6 ENT PHD TSC CLC ADC #$FF5E TCS TCD LDA L054FB7 LDX L054FB9 STA $9F STX $A1 LDY #$0002 LDA [$9F],Y TAX LDA [$9F] CLC ADC #$001E BCC L0948F7 INX L0948F7 STA $51 STX $53 PEI $53 PEI $51 LDA L055221 LDX L055223 CLC ADC #$00B4 BCC L09490C INX L09490C JSL L033477 BEQ L09492A BVS L094917 EOR #$8000 L094917 BPL L09492A LDA L055221 LDX L055223 CLC ADC #$00B4 BCC L094926 INX L094926 STA $51 STX $53 L09492A LDA L055047 BNE L094932 BRL L094E88 L094932 STZ L055215 STZ L0550BF STZ L0551DD STZ L0551DF STZ L05524D STZ L054FA7 LDA #$002C STA L055277 JSL L0B392B LDA L054FBB SEC SBC #$0000 BPL L094961 LDA #$FFFF STA L054FBB JSL L09AED3 L094961 LDA L0551FD BEQ L09497B PHY PHY PEA $C000 PEA $0000 _HandleDiskInsert PLA STA $4D PLX STX $4F L09497B STZ $97 STZ $99 STZ $8B STZ $8D STZ $87 STZ $89 STZ $83 STZ $85 STZ $77 STZ $79 STZ $6F STZ $71 STZ $67 STZ $69 STZ $63 STZ $65 STZ $4B LDA L0550FD * LDX L0550FF CMPL L053131 BNE L0949AE * TXA lda L0550FF CMPL L053133 L0949AE BEQ L0949B7 PEA $0D7C JSL L07272E L0949B7 LDA L05512F BEQ L094A05 JSL L083A3C LDA L0550B5 PHA PEA $0001 JSL L090541 LDA L0550CD LDX L0550CF CLC ADC #$00CE BCC L0949D8 INX L0949D8 STA $9F STX $A1 LDA #$0020 AND [$9F] BEQ L094A05 LDA L0550DD LDX L0550DF PHX PHA JSL L151131 PEA ^L0531E1 PEA L0531E1 JSL L0854D9 LDA L0550ED LDX L0550EF PHX PHA JSL L151131 L094A05 LDA L0550B9 BEQ L094A0D BRL L094E88 L094A0D PHY PEA $0000 PHD JSL L09484A PLA LSR BCC L094A1D BRL L094D71 L094A1D PHY PHY LDAL L053AD3 PHA LDAL L053AD1 PHA JSL L0772F8 PLA STA $97 * PLX * STX $99 * LDA $97 * ORA $99 pla sta $99 ora $97 BNE L094A3C BRL L094D71 L094A3C LDY #$0002 LDA [$97],Y * TAX sta $09 LDA [$97] STA $07 * STX $09 LDY #$000E LDA [$07],Y sta $5d * TAX DEY DEY LDA [$07],Y STA $5B * STX $5D PEI $5D PEI $5B LDA #$7FFF LDX #$0000 JSL L033477 BEQ L094A74 BVS L094A6B EOR #$8000 L094A6B BPL L094A74 LDA #$0010 STA $5F BRA L094A81 L094A74 PHY PEI $5B PEA $0010 JSL L072FD5 PLA STA $5F L094A81 LDY #$0016 LDA [$07],Y TAX DEY DEY LDA [$07],Y CMPL L053AC9 BNE L094A96 TXA CMPL L053ACB L094A96 BEQ L094AB1 LDY #$0016 LDA [$07],Y TAX DEY DEY LDA [$07],Y STAL L053AC9 TXA STAL L053ACB LDA #$0001 STA L05504D L094AB1 PHY PHY LDA L055027 LDX L055029 PHX PHA JSL L0772AE PLA STA $8B PLX STX $8D PHY PHY LDA L05501F LDX L055021 PHX PHA JSL L07721A PLA STA $87 PLX STX $89 LDA $8B ORA $8D BEQ L094B0B PHY PHY LDY #$0002 LDA [$8B],Y TAX LDA [$8B] CLC ADC #$000C BCC L094AF0 INX L094AF0 STA $9F STX $A1 LDY #$0002 LDA [$9F],Y TAX LDA [$9F] PHX PHA PEA $0000 JSL L077264 PLA STA $83 PLX STX $85 L094B0B PHY PEA $0000 PHD JSL L09484A PLA LSR BCC L094B1B BRL L094D71 L094B1B PHY PHY JSL L07B114 PLA PLX INC BNE L094B27 INX L094B27 STA $7B STX $7D PEI $7D PEI $7B LDAL L053ACB TAX LDAL L053AC9 JSL L033477 BEQ L094B4F BVS L094B43 EOR #$8000 L094B43 BPL L094B4F LDA #$0001 LDX #$0000 STA $7B STX $7D L094B4F PHY PHY LDAL L053AD3 PHA LDAL L053AD1 PHA PEI $7D PEI $7B JSL L07B8EA PLA STA $7F PLX STX $81 STZ $6B STZ $6D LDA L05501F LDX L055021 STA $73 STX $75 PHY PHY PEI $81 PEI $7F JSL L0772AE PLA STA $77 PLX STX $79 PHY PEA $0000 PHD JSL L09484A PLA LSR BCC L094B97 BRL L094D71 L094B97 LDA $77 ORA $79 BEQ L094BDB LDY #$0002 LDA [$77],Y TAX LDA [$77] CLC ADC #$000C BCC L094BAC INX L094BAC STA $9F STX $A1 LDY #$0002 LDA [$9F],Y TAX LDA [$9F] STA $6B STX $6D LDY #$0002 LDA [$77],Y TAX LDA [$77] CLC ADC #$0020 BCC L094BCB INX L094BCB STA $9F STX $A1 LDY #$0002 LDA [$9F],Y TAX LDA [$9F] STA $73 STX $75 L094BDB PHY PHY PEI $6D PEI $6B PEA $0000 JSL L077264 PLA STA $67 PLX STX $69 PHY PEA $0000 PHD JSL L09484A PLA LSR BCC L094BFE BRL L094D71 L094BFE LDA L05501F LDX L055021 CMP $73 BNE L094C0A CPX $75 L094C0A BEQ L094C78 STZ $6B STZ $6D PHY PHY PEI $75 PEI $73 JSL L07721A PLA STA $6F PLX STX $71 PHY PEA $0000 PHD JSL L09484A PLA LSR BCC L094C30 BRL L094D71 L094C30 LDA $6F ORA $71 BEQ L094C55 LDY #$0002 LDA [$6F],Y TAX LDA [$6F] CLC ADC #$000C BCC L094C45 INX L094C45 STA $9F STX $A1 LDY #$0002 LDA [$9F],Y TAX LDA [$9F] STA $6B STX $6D L094C55 PHY PHY PEI $6D PEI $6B PEA $0000 JSL L077264 PLA STA $63 PLX STX $65 PHY PEA $0000 PHD JSL L09484A PLA LSR BCC L094C78 BRL L094D71 L094C78 LDY #$0002 LDA [$97],Y TAX LDA [$97] CLC ADC #$0028 BCC L094C87 INX L094C87 STA $55 STX $57 LDA $5B STA $05 LDA $05 SEC SBC #$0001 BVS L094C9A EOR #$8000 L094C9A BPL L094CCC LDA #$0001 STA $61 L094CA1 LDA L055081 LDX L055083 CMP [$55] BNE L094CB1 LDY #$0002 TXA CMP [$55],Y L094CB1 BEQ L094CD1 LDA $55 LDX $57 CLC ADC #$0006 BCC L094CBE INX L094CBE STA $55 STX $57 LDA $61 CMP $05 BEQ L094CCC INC $61 BRA L094CA1 L094CCC LDA #$0001 STA $61 L094CD1 LDA $5F STA $03 LDA $03 SEC SBC #$0001 BVS L094CE0 EOR #$8000 L094CE0 BMI L094CE5 BRL L094D71 L094CE5 LDA #$0001 STA $59 L094CEA PHY PHY LDAL L053AD3 PHA LDAL L053AD1 PHA LDA $61 JSL L150488 PHX PHA JSL L07A8A9 PLA STA $93 PLX STX $95 PHY PHY PEI $95 PEI $93 JSL L077A01 PLA STA $8F PLX STX $91 LDA $8F ORA $91 BEQ L094D36 LDA $4B INC STA $4B LDA $4B ASL ASL CLC ADC #$0007 TAX PEI $95 PEI $93 PLA STA $00,X PLA STA $02,X L094D36 LDA $61 INC STA $61 LDA $61 JSL L150488 PHX PHA LDA $5B LDX $5D JSL L033477 BEQ L094D59 BVS L094D52 EOR #$8000 L094D52 BPL L094D59 LDA #$0001 STA $61 L094D59 PHY PEA $0000 PHD JSL L09484A PLA LSR BCS L094D71 LDA $59 CMP $03 BEQ L094D71 INC $59 BRL L094CEA L094D71 LDA $4B STA $01 LDA $01 SEC SBC #$0001 BVS L094D80 EOR #$8000 L094D80 BPL L094DA7 LDA #$0001 STA $59 L094D87 LDA $59 ASL ASL CLC ADC #$0007 TAX LDA $02,X PHA LDA $00,X PHA PEA $0000 JSL L074E17 LDA $59 CMP $01 BEQ L094DA7 INC $59 BRA L094D87 L094DA7 LDA $63 ORA $65 BEQ L094DD1 LDY #$0002 LDA [$6F],Y TAX LDA [$6F] CLC ADC #$000C BCC L094DBC INX L094DBC STA $9F STX $A1 LDY #$0002 LDA [$9F],Y TAX LDA [$9F] PHX PHA PEA $0000 JSL L074A5A L094DD1 LDA $67 ORA $69 BEQ L094DFB LDY #$0002 LDA [$77],Y TAX LDA [$77] CLC ADC #$000C BCC L094DE6 INX L094DE6 STA $9F STX $A1 LDY #$0002 LDA [$9F],Y TAX LDA [$9F] PHX PHA PEA $0000 JSL L074A5A L094DFB LDA $6F ORA $71 BEQ L094E0C PEI $75 PEI $73 PEA $0000 JSL L074A24 L094E0C LDA $77 ORA $79 BEQ L094E1D PEI $81 PEI $7F PEA $0000 JSL L074A90 L094E1D LDA $83 ORA $85 BEQ L094E47 LDY #$0002 LDA [$8B],Y TAX LDA [$8B] CLC ADC #$000C BCC L094E32 INX L094E32 STA $9F STX $A1 LDY #$0002 LDA [$9F],Y TAX LDA [$9F] PHX PHA PEA $0000 JSL L074A5A L094E47 LDA $87 ORA $89 BEQ L094E5C LDA L05501F LDX L055021 PHX PHA PEA $0000 JSL L074A24 L094E5C LDA $8B ORA $8D BEQ L094E71 LDA L055027 LDX L055029 PHX PHA PEA $0000 JSL L074A90 L094E71 LDA $97 ORA $99 BEQ L094E88 LDAL L053AD3 PHA LDAL L053AD1 PHA PEA $0000 JSL L074AC6 L094E88 TSC CLC ADC #$00A2 TCS PLD RTL L094E90 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L05522F STA L055171 LDA L055171 BEQ L094EBC LDA #$0001 STA L05516F LDA #$0001 STA L05516D LDA $0A LDX $0C STAL L0523D0 TXA STAL L0523D2 L094EBC LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L094ECD ENT PHD TSC CLC ADC #$FFF8 TCS TCD STZ $10 LDAL L052D72 AND #$1000 BEQ L094EE7 LDA #$0001 STA $10 BRA L094F57 L094EE7 LDAL L052D66 AND #$00FF STA $03 LDX $03 LDA #$00FF ANDL L041454,X STA $01 LDAL L052D72 AND #$2000 BEQ L094F53 LDA #$0009 CMP $01 BNE L094F10 LDA #$000A STA $01 L094F10 LDA $03 SEC SBC #$0060 BVS L094F1B EOR #$8000 L094F1B BMI L094F22 LDA #$0000 BRA L094F25 L094F22 LDA #$0001 L094F25 PHA LDA $03 SEC SBC #$007A BEQ L094F3A BVS L094F33 EOR #$8000 L094F33 BPL L094F3A LDA #$0000 BRA L094F3D L094F3A LDA #$0001 L094F3D AND $01,S PLX LSR BCC L094F53 LDA $03 SEC SBC #$0060 TAX LDA #$00FF ANDL L041554,X STA $01 L094F53 LDA $01 STA $10 L094F57 LDA $0C STA $0E LDA $0B STA $0D LDA $09 TCD TSC CLC ADC #$000C TCS RTL L094F69 PHD TSC CLC ADC #$FFF4 TCS TCD LDA $18 LDX $1A STA $03 STX $05 LDA $16 STA $01 LDA $01 SEC SBC #$0001 BVS L094F88 EOR #$8000 L094F88 BPL L094FF7 LDA #$0001 STA $07 L094F8F LDY #$000C LDA [$12],Y TAX DEY DEY LDA [$12],Y CMP [$03] BNE L094FA3 LDY #$0002 TXA CMP [$03],Y L094FA3 BEQ L094FAA LDA #$0000 BRA L094FAD L094FAA LDA #$0001 L094FAD PHA LDY #$0006 LDA [$03],Y TAX DEY DEY LDA [$03],Y CMP L055039 BNE L094FC0 CPX L05503B L094FC0 BEQ L094FC7 LDA #$0000 BRA L094FCA L094FC7 LDA #$0001 L094FCA AND $01,S PLX LSR BCC L094FDE PEI $05 PEI $03 PEA $0000 PEA $0008 JSL L071EC5 L094FDE LDA $03 LDX $05 CLC ADC #$0008 BCC L094FE9 INX L094FE9 STA $03 STX $05 LDA $07 CMP $01 BEQ L094FF7 INC $07 BRA L094F8F L094FF7 LDA $10 STA $1A LDA $0F STA $19 LDA $0D TCD TSC CLC ADC #$0018 TCS RTL L095009 PHD TSC CLC ADC #$FFFC TCS TCD PEA ^L0525DA PEA L0525DA PEA $00C8 PEA $0000 PHD JSL L094F69 PEA ^L052C1A PEA L052C1A PEA $0014 PEA $0000 PHD JSL L094F69 PEA ^L05233C PEA L05233C PEA $0012 PEA $0000 PHD JSL L094F69 JSL L095257 LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L095059 ENT PHD TSC CLC ADC #$FFD6 TCS TCD LDA $32 BNE L095068 BRL L095245 L095068 PHY PHY PEI $3E PEI $3C JSL L0772AE PLA STA $23 PLX STX $25 LDA $23 ORA $25 BNE L095081 BRL L095245 L095081 PHY PHY PEI $3A PEI $38 JSL L07721A PLA STA $1F PLX STX $21 LDA $1F ORA $21 BNE L09509A * BRL L09523B L09509A JSL L096029 PHY PEI $25 PEI $23 JSL L0718FA PLA STA $1D PHY PEI $21 PEI $1F JSL L0718FA PLA STA $1B LDA $34 LDX $36 CMP $3C BNE L0950C0 CPX $3E L0950C0 BEQ L0950C7 LDA #$0000 BRA L0950CA L0950C7 LDA #$0001 L0950CA STA $19 STZ $09 STZ $07 LDA $19 BEQ L095100 LDY #$0002 LDA [$23],Y TAX LDA [$23] CLC ADC #$0032 BCC L0950E3 INX L0950E3 STA $15 STX $17 LDY #$0002 LDA [$23],Y TAX LDA [$23] CLC ADC #$0024 BCC L0950F6 INX L0950F6 STA $27 STX $29 LDA [$27] STA $13 BRA L09512A L095100 LDY #$0002 LDA [$1F],Y TAX LDA [$1F] CLC ADC #$0032 BCC L09510F INX L09510F STA $15 STX $17 LDY #$0002 LDA [$1F],Y TAX LDA [$1F] CLC ADC #$0024 BCC L095122 INX L095122 STA $27 STX $29 LDA [$27] STA $13 L09512A LDA $13 STA $01 LDA $01 SEC SBC #$0001 BVS L095139 EOR #$8000 L095139 BMI L09513E BRL L095219 L09513E LDA #$0001 STA $11 L095143 LDA $15 LDX $17 STA $03 STX $05 LDY #$0004 LDA #$00F0 AND [$03],Y PHA PEA $0004 JSL L1510EF PLA CMP $32 BEQ L095163 BRL L0951FC L095163 LDY #$0002 LDA $30 CMP [$03],Y BNE L09516F BRL L0951FC L09516F LDX #$0000 LDY #$000E LDA #$000F AND [$03],Y CMP #$0000 BEQ L095180 INX L095180 PHX LDY #$0010 LDA [$03],Y INY INY ORA [$03],Y BEQ L09518F LDA #$0001 L09518F ORA $01,S PLX STA $0D LDY #$0002 LDA [$03],Y STA $0F LDA $19 BEQ L0951A7 LDA $0F EOR #$FFFF INC STA $0F L0951A7 PHY PEI $3A PEI $38 PEI $3E PEI $3C PEI $0F JSL L07A609 PLA LSR BCC L0951FC PHY PEI $3A PEI $38 PEI $3E PEI $3C PEI $0F PEA $0000 PEA $0001 TDC CLC ADC #$000B PEA $0000 PHA JSL L07D08A PLA LSR BCC L0951FC PEI $36 PEI $34 LDY #$0002 LDA [$03],Y PHA PEI $0D JSL L0876F4 LDA $0B ORA $09 STA $09 LDA $19 BNE L0951FC LDA $0B ORA $07 STA $07 L0951FC PEI $17 PEI $15 LDA [$03] JSL L150488 JSL L150F53 STA $15 STX $17 LDA $11 CMP $01 BEQ L095219 INC $11 BRL L095143 L095219 PEI $21 PEI $1F PEI $1B JSL L0718DA PEI $25 PEI $23 PEI $1D JSL L0718DA JSL L09AED3 PEI $3A PEI $38 PEI $07 JSL L074A24 L09523B PEI $3E PEI $3C PEI $09 JSL L074A90 L095245 LDA $2E STA $3E LDA $2D STA $3D LDA $2B TCD TSC CLC ADC #$003C TCS RTL L095257 PHD TSC CLC ADC #$FFDA TCS TCD PHY PHY JSL L150493 PLA STA $1F PLX STX $21 PEA ^L05312F PEA L05312F JSL L151131 TDC CLC ADC #$0001 PEA $0000 PHA JSL L1506A1 PEA ^L05232C PEA L05232C JSL L1506A7 LDA #L05233C LDX #^L05233C STA $1B STX $1D LDA #$0001 STA $19 L09529B LDA [$1B] LDY #$0002 ORA [$1B],Y BNE L0952C0 PEI $19 TDC CLC ADC #$0011 PEA $0000 PHA JSL L09031E TDC CLC ADC #$0011 PEA $0000 PHA JSL L15123D L0952C0 LDA $1B LDX $1D CLC ADC #$0008 BCC L0952CB INX L0952CB STA $1B STX $1D LDA #$0012 CMP $19 BEQ L0952DA INC $19 BRA L09529B L0952DA TDC CLC ADC #$0001 PEA $0000 PHA JSL L1506A7 PEI $21 PEI $1F JSL L151131 TSC CLC ADC #$0026 TCS PLD RTL L0952F7 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L0550B9 DEC BNE L09530B JSL L160218 BRA L09530F L09530B JSL L0A3283 L09530F PLY PLY PLD RTL L095313 PHD TSC CLC ADC #$FFF4 TCS TCD LDA $18 LDX $1A STA $03 STX $05 LDA $16 STA $01 LDA $01 SEC SBC #$0001 BVS L095332 EOR #$8000 L095332 BPL L09537B LDA #$0001 STA $07 L095339 LDY #$0006 LDA [$03],Y PHA DEY DEY LDA [$03],Y PHA LDY #$000C LDA [$12],Y TAX DEY DEY LDA [$12],Y JSL L033477 BNE L095362 PEI $05 PEI $03 PEA $0000 PEA $0008 JSL L071EC5 L095362 LDA $03 LDX $05 CLC ADC #$0008 BCC L09536D INX L09536D STA $03 STX $05 LDA $07 CMP $01 BEQ L09537B INC $07 BRA L095339 L09537B LDA $10 STA $1A LDA $0F STA $19 LDA $0D TCD TSC CLC ADC #$0018 TCS RTL L09538D ENT PHD TSC CLC ADC #$FFFC TCS TCD PEA ^L0525DA PEA L0525DA PEA $00C8 PEA $0000 PHD JSL L095313 PEA ^L052C1A PEA L052C1A PEA $0014 PEA $0000 PHD JSL L095313 PEA ^L05233C PEA L05233C PEA $0012 PEA $0000 PHD JSL L095313 JSL L095257 LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L0953DD ENT PHD TSC CLC ADC #$FFFA TCS TCD LDA L0551DF STA $01 LDA #$0001 STA L0551DF PHY PEI $0E PEI $0C PEA $0001 JSL L095416 PLA STA $10 LDA $01 STA L0551DF LDA $0A STA $0E LDA $09 STA $0D LDA $07 TCD TSC CLC ADC #$000C TCS RTL L095416 ENT PHD TSC CLC ADC #$FD7E TCS ADC #$0191 TCD PEA $0000 TDC CLC ADC #$FF7F PHA PEI $FA PEI $F8 PEA $005C JSL L0313BE STZ $FC STZ L055257 LDA L055027 LDX L055029 STA $C3 STX $C5 LDA L055023 LDX L055025 STA $C7 STX $C9 LDA L055119 LDX L05511B STA $BF STX $C1 LDA L055151 STA $BD LDA L05501F LDX L055021 STA $B9 STX $BB LDA L055115 LDX L055117 STA $B5 STX $B7 LDA L05514F STA $B3 LDA L05501F LDX L055021 STA $AF STX $B1 STZ $E9 STZ $EB STZ $97 STZ $99 STZ $87 STZ $89 PEA $0000 TDC CLC ADC #$FF7F PHA JSL L0982BA PHY PHY LDX #$FFD7 LDA $02,X PHA LDA $00,X PHA JSL L07899F PLA STA $8B PLX STX $8D PHY PEI $8D PEI $8B JSL L0988BB PLA EOR #$0001 STA $D7 LDA $D7 BEQ L095500 PHY PHY LDA L05503F LDX L055041 PHX PHA LDA L055043 LDX L055045 PHX PHA JSL L072B9F PLA STA $87 PLX STX $89 LDA #$0001 STA L055249 PHY PEI $8D PEI $8B JSL L0971E9 PLA LSR BCS L0954F3 BRL L095F5B L0954F3 LDAL L053AC7 TAX LDAL L053AC5 STA $AF STX $B1 L095500 STZ L0551A7 STZ L0551A9 LDA #$0006 LDX #$FFAB CMP $00,X BNE L095513 BRL L095838 L095513 LDX #$FFAB LDA $00,X DEC BPL L09551E BRL L095838 L09551E CMP #$0004 BMI L095526 BRL L095838 L095526 SEC SBC #$0000 BEQ L09553E DEC BEQ L095553 DEC BNE L095535 BRL L095645 L095535 DEC BNE L09553B BRL L095766 L09553B BRL L095838 L09553E LDX #$FFAD LDA $02,X TAY LDA $00,X TYX STA L0551A7 STX L0551A9 BRL L095838 BRL L095838 L095553 PHY PHY LDX #$FFB1 LDA $02,X PHA LDA $00,X PHA LDAL L053AC3 PHA LDAL L053AC1 PHA JSL L09603C PLA STA $A3 PLX STX $A5 PEI $A5 PEI $A3 LDAL L053AC3 TAX LDAL L053AC1 JSL L033477 BEQ L09558F BVS L09558A EOR #$8000 L09558A BPL L09558F BRL L095F0F L09558F LDAL L053AC7 TAX LDAL L053AC5 STA $AF STX $B1 LDX $A5 LDA $A3 BNE L0955A3 DEX L0955A3 DEC TXY LDX #$FF7B STA $00,X TYA STA $02,X LDX #$FF7B LDA $02,X PHA LDA $00,X PHA LDA #$0001 LDX #$0000 JSL L033477 BVS L0955C5 EOR #$8000 L0955C5 BPL L095635 LDA #$0001 LDX #$0000 STA $A7 STX $A9 L0955D1 PHY PHY PEI $B1 PEI $AF JSL L07721A PLA STA $9F PLX STX $A1 LDA $9F ORA $A1 BNE L0955EA BRL L095F0F L0955EA LDY #$0002 LDA [$9F],Y TAX LDA [$9F] CLC ADC #$0018 BCC L0955F9 INX L0955F9 STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] STA $AB STX $AD PEI $B1 PEI $AF PEA $0000 JSL L074A24 LDA $AB LDX $AD STA $AF STX $B1 LDX #$FF7B LDA $02,X TAY LDA $00,X TYX CMP $A7 BNE L09562B CPX $A9 L09562B BEQ L095635 INC $A7 BNE L095633 INC $A9 L095633 BRA L0955D1 L095635 LDA $AF LDX $B1 STA L0551A7 STX L0551A9 BRL L095838 BRL L095838 L095645 LDA $D7 BEQ L09565B LDAL L053AC7 TAX LDAL L053AC5 STA L0551A7 STX L0551A9 BRL L095838 L09565B LDX #$FFB5 LDA $00,X BNE L095671 LDA L05501F LDX L055021 STA L0551A7 STX L0551A9 BRL L095838 L095671 LDAL L053AC3 PHA LDAL L053AC1 PHA LDA #$0002 LDX #$0000 JSL L033477 BVS L09568A EOR #$8000 L09568A BMI L09568F BRL L095F0F L09568F LDA #$0006 LDX #$FF7F CMP $00,X BNE L0956B2 LDA #$FFFF TAX STA L0551A7 STX L0551A9 PHY PHY JSL L07B114 PLA STA $97 PLX STX $99 BRL L095838 L0956B2 LDX #$FFB5 LDA $00,X DEC DEC BNE L09570B PHY PHY LDA L05501F LDX L055021 PHX PHA JSL L07721A PLA STA $9F PLX STX $A1 LDA $9F ORA $A1 BNE L0956D8 BRL L095F0F L0956D8 LDY #$0002 LDA [$9F],Y TAX LDA [$9F] CLC ADC #$0018 BCC L0956E7 INX L0956E7 STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] STA L0551A7 STX L0551A9 LDA L05501F LDX L055021 PHX PHA PEA $0000 JSL L074A24 BRL L095838 L09570B LDX #$FFB5 LDA $00,X DEC BNE L095763 PHY PHY LDA L05501F LDX L055021 PHX PHA JSL L07721A PLA STA $9F PLX STX $A1 LDA $9F ORA $A1 BNE L095730 BRL L095F0F L095730 LDY #$0002 LDA [$9F],Y TAX LDA [$9F] CLC ADC #$001C BCC L09573F INX L09573F STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] STA L0551A7 STX L0551A9 LDA L05501F LDX L055021 PHX PHA PEA $0000 JSL L074A24 BRL L095838 L095763 BRL L095838 L095766 LDAL L053AC3 TAX LDAL L053AC1 TXY LDX #$FF77 STA $00,X TYA STA $02,X LDX #$FF77 LDA $02,X PHA LDA $00,X PHA LDA #$0001 LDX #$0000 JSL L033477 BVS L095790 EOR #$8000 L095790 BMI L095795 BRL L095833 L095795 LDA #$0001 LDX #$0000 STA $A7 STX $A9 L09579F PHY PHY PEI $B1 PEI $AF JSL L07721A PLA STA $9F PLX STX $A1 LDA $9F ORA $A1 BNE L0957B8 BRL L095F0F L0957B8 LDY #$0002 LDA [$9F],Y TAX LDA [$9F] CLC ADC #$0018 BCC L0957C7 INX L0957C7 STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] STA $AB STX $AD PEI $B1 PEI $AF PEA $0000 JSL L074A24 PHY PEA $0000 TDC CLC ADC #$FFB7 PHA PEA $0000 TDC CLC ADC #$FE6F PHA PEI $B1 PEI $AF JSL L07AA4B JSL L071C56 PLA LSR BCC L095811 LDA $AF LDX $B1 STA L0551A7 STX L0551A9 BRA L095838 L095811 LDA $AB LDX $AD STA $AF STX $B1 LDX #$FF77 LDA $02,X TAY LDA $00,X TYX CMP $A7 BNE L095828 CPX $A9 L095828 BEQ L095833 INC $A7 BNE L095830 INC $A9 L095830 BRL L09579F L095833 BRL L095F0F BRA L095838 L095838 STZ L0551A3 STZ L0551A5 STZ L05507F LDA #$0001 LDX #$0000 STA $9B STX $9D LDA L0551A7 LDX L0551A9 PHX PHA LDA #$0000 TAX JSL L033477 BMI L0958AA BEQ L0958AA PHY PHY LDA L0551A7 LDX L0551A9 PHX PHA JSL L07721A PLA STA $9F PLX STX $A1 LDA $9F ORA $A1 BNE L09587C BRL L095F0F L09587C LDY #$0002 LDA [$9F],Y TAX LDA [$9F] CLC ADC #$0014 BCC L09588B INX L09588B STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] STA $9B STX $9D LDA L0551A7 LDX L0551A9 PHX PHA PEA $0000 JSL L074A24 L0958AA LDAL L053ACF TAX LDAL L053ACD STA $E9 STX $EB LDA #$0001 LDX #$0000 STA $E5 STX $E7 LDA #$0006 LDX #$FF7F CMP $00,X BNE L095933 LDA L05501F LDX L055021 CMP L0551A7 BNE L0958D9 CPX L0551A9 L0958D9 BNE L0958F2 LDA L055027 LDX L055029 STA $E9 STX $EB LDA L055023 LDX L055025 STA $E5 STX $E7 BRL L095D8D L0958F2 LDA #$0003 LDX #$FF7F STA $00,X LDA #$0002 LDX #$FF89 STA $00,X LDA #$0003 LDX #$FFAB CMP $00,X BEQ L095911 LDA #$0000 BRA L095914 L095911 LDA #$0001 L095914 PHA LDX #$FFB5 LDA $00,X DEC BEQ L095922 LDA #$0000 BRA L095925 L095922 LDA #$0001 L095925 AND $01,S PLX LSR BCC L095933 LDA #$0001 LDX #$FF89 STA $00,X L095933 LDX #$FF7F LDA $00,X DEC BPL L09593E BRL L095D70 L09593E CMP #$0005 BMI L095946 BRL L095D70 L095946 SEC SBC #$0000 BEQ L095964 DEC BEQ L095990 DEC BNE L095955 BRL L095A20 L095955 DEC BNE L09595B BRL L095BF0 L09595B DEC BNE L095961 BRL L095CAF L095961 BRL L095D70 L095964 LDX #$FF81 LDA $02,X TAY LDA $00,X TYX STA $E9 STX $EB STZ $E5 STZ $E7 PHY TDC CLC ADC #$00E9 PEA $0000 PHA JSL L0960E8 PLA LSR BCS L09598A BRL L095F0F L09598A BRL L095D8D BRL L095D70 L095990 LDA L0551A7 ORA L0551A9 BNE L0959BA PHY PHY LDX #$FF85 LDA $02,X PHA LDA $00,X PHA LDAL L053ACB PHA LDAL L053AC9 PHA JSL L09603C PLA STA $E5 PLX STX $E7 BRL L095D73 L0959BA PHY PHY LDX #$FF85 LDA $02,X PHA LDA $00,X PHA PEI $9D PEI $9B JSL L09603C PLA STA L05519F PLA STA L0551A1 LDA L05519F LDX L0551A1 PHX PHA LDA #$0001 LDX #$0000 JSL L033477 BVS L0959EC EOR #$8000 L0959EC BMI L0959F1 BRL L095F0F L0959F1 PHY PHY LDAL L053AD3 PHA LDAL L053AD1 PHA PEI $99 PEI $97 PEA $0000 PEA $0000 PEA ^L090F5A PEA L090F5A PEA $0000 JSL L07C7B5 PLA STA $E5 PLX STX $E7 BRL L095D73 BRL L095D70 L095A20 LDA $D7 BEQ L095A27 BRL L095D8D L095A27 LDX #$FF89 LDA $00,X SEC SBC #$0000 BPL L095A35 BRL L095BED L095A35 CMP #$0003 BMI L095A3D BRL L095BED L095A3D SEC SBC #$0000 BEQ L095A4F DEC BNE L095A49 BRL L095B2D L095A49 DEC BEQ L095A7E BRL L095BED L095A4F LDA L055027 LDX L055029 STA $E9 STX $EB LDA L055023 LDX L055025 STA $E5 STX $E7 PHY TDC CLC ADC #$00E9 PEA $0000 PHA JSL L0960E8 PLA LSR BCS L095A78 BRL L095F0F L095A78 BRL L095D8D BRL L095BED L095A7E PHY PHY JSL L07B114 PLA PLX INC BNE L095A8A INX L095A8A STA $E5 STX $E7 PEI $E7 PEI $E5 LDAL L053ACB TAX LDAL L053AC9 JSL L033477 BEQ L095AB2 BVS L095AA6 EOR #$8000 L095AA6 BPL L095AB2 LDA #$0001 LDX #$0000 STA $E5 STX $E7 L095AB2 PHY PHY LDAL L053AD3 PHA LDAL L053AD1 PHA PEI $E7 PEI $E5 JSL L07B8EA PLA STA $E9 PLX STX $EB PHY TDC CLC ADC #$00E9 PEA $0000 PHA JSL L0960E8 PLA LSR BCC L095AE1 BRL L095D8D L095AE1 STZ L0551A3 STZ L0551A5 LDA #$0001 LDX #$0000 STA L05519F STX L0551A1 PHY PHY LDAL L053AD3 PHA LDAL L053AD1 PHA PHY PHY JSL L07B114 PEA $0000 PEA $0000 PEA ^L090F5A PEA L090F5A PEA $0000 JSL L07C7B5 PLA STA $E5 PLX STX $E7 LDA $E5 ORA $E7 BNE L095B27 BRL L095F0F L095B27 BRL L095D73 BRL L095BED L095B2D PHY PHY JSL L07B114 PLA STA $E5 PLX STX $E7 LDAL L053ACB TAX LDAL L053AC9 TXY LDX #$FF73 STA $00,X TYA STA $02,X LDX #$FF73 LDA $02,X PHA LDA $00,X PHA LDA #$0001 LDX #$0000 JSL L033477 BVS L095B63 EOR #$8000 L095B63 BMI L095B68 BRL L095BE8 L095B68 LDA #$0001 LDX #$0000 STA $93 STX $95 L095B72 LDX $E7 LDA $E5 BNE L095B79 DEX L095B79 DEC STA $E5 STX $E7 PEI $E7 PEI $E5 LDA #$0001 LDX #$0000 JSL L033477 BVS L095B91 EOR #$8000 L095B91 BMI L095BA0 LDAL L053ACB TAX LDAL L053AC9 STA $E5 STX $E7 L095BA0 PHY PHY LDAL L053AD3 PHA LDAL L053AD1 PHA PEI $E7 PEI $E5 JSL L07B8EA PLA STA $E9 PLX STX $EB PHY TDC CLC ADC #$00E9 PEA $0000 PHA JSL L0960E8 PLA LSR BCC L095BCF BRL L095D8D L095BCF LDX #$FF73 LDA $02,X TAY LDA $00,X TYX CMP $93 BNE L095BDE CPX $95 L095BDE BEQ L095BE8 INC $93 BNE L095BE6 INC $95 L095BE6 BRA L095B72 L095BE8 BRL L095F0F BRA L095BED L095BED BRL L095D70 L095BF0 LDA $D7 BEQ L095BFA STZ $97 STZ $99 BRA L095C06 L095BFA PHY PHY JSL L07B114 PLA STA $97 PLX STX $99 L095C06 PHY LDAL L053AD3 PHA LDAL L053AD1 PHA PEA $0000 TDC CLC ADC #$FFDB PHA JSL L07A852 PLA LSR BCS L095C25 BRL L095F0F L095C25 TDC CLC ADC #$0003 PEA $0000 PHA PEA $0000 PEA $0084 JSL L071EC5 LDA #$0001 LDX #$0007 STA $00,X PHY PHY PEA $0000 TDC CLC ADC #$FF8B PHA JSL L071F3F PLA STA $8F PLX STX $91 PEI $91 PEI $8F TDC CLC ADC #$0007 PEA $0000 PHA LDX #$FFF9 LDA $00,X PHA LDX #$FFF7 LDA $00,X PHA JSL L078D85 TDC CLC ADC #$FF8B STA L05519B STZ L05519D PHY PHY LDAL L053AD3 PHA LDAL L053AD1 PHA PEI $99 PEI $97 TDC CLC ADC #$0003 PEA $0000 PHA PEA ^L09618C PEA L09618C PEA $0000 JSL L07C7B5 PLA STA $E5 PLX STX $E7 BRL L095D73 BRL L095D70 L095CAF LDA L0551A7 ORA L0551A9 BEQ L095CBA BRL L095F0F L095CBA LDX #$FF89 LDA $00,X DEC DEC BNE L095CCA LDA #$0001 STA $CB BRA L095CF0 L095CCA LDX #$FF89 LDA $00,X DEC BNE L095CD9 LDA #$FFFF STA $CB BRA L095CF0 L095CD9 LDA L055027 LDX L055029 STA $E9 STX $EB LDA L055023 LDX L055025 STA $E5 STX $E7 BRL L095D8D L095CF0 LDA L0551E3 STA $CD L095CF5 LDA $CB CLC ADC $CD STA $CD LDA $CD SEC SBC #$0001 BVS L095D07 EOR #$8000 L095D07 BMI L095D0E LDA #$00C8 STA $CD L095D0E LDA $CD SEC SBC #$00C8 BEQ L095D22 BVS L095D1B EOR #$8000 L095D1B BPL L095D22 LDA #$0001 STA $CD L095D22 LDA $CD DEC ASL ASL ASL TAX LDAL L0525DA,X ORAL L0525DC,X BEQ L095D36 LDA #$0001 L095D36 PHA LDX #$0000 LDA L0551E3 CMP $CD BNE L095D42 INX L095D42 TXA ORA $01,S PLX LSR BCC L095CF5 LDA L0551DF BNE L095D53 LDA $CD STA L0551E3 L095D53 LDA $CD DEC ASL ASL ASL TAX LDAL L0525DC,X PHA LDAL L0525DA,X PLX STA $E9 STX $EB STZ $E5 STZ $E7 BRA L095D8D BRA L095D70 L095D70 BRL L095F0F L095D73 PHY PHY LDAL L053AD3 PHA LDAL L053AD1 PHA PEI $E7 PEI $E5 JSL L07B8EA PLA STA $E9 PLX STX $EB L095D8D LDA $E9 ORA $EB BNE L095D96 BRL L095F0F L095D96 PEI $E7 PEI $E5 LDA #$0000 TAX JSL L033477 BPL L095DA7 BRL L095F0F L095DA7 PEI $E7 PEI $E5 LDAL L053ACB TAX LDAL L053AC9 JSL L033477 BEQ L095DC4 BVS L095DBF EOR #$8000 L095DBF BPL L095DC4 BRL L095F0F L095DC4 PHY PHY PEI $EB PEI $E9 JSL L0772AE PLA PLX STX $ED ORA $ED BNE L095DD9 BRL L095F0F L095DD9 PEI $EB PEI $E9 PEA $0000 JSL L074A90 PEI $EB PEI $E9 PEI $E7 PEI $E5 PEI $F6 JSL L0999E3 LDA L0551DF BEQ L095DFA BRL L095ED3 L095DFA LDA L0551E1 DEC ASL ASL ASL TAX LDAL L0525DC,X PHA LDAL L0525DA,X PLX CMP L055027 BNE L095E14 CPX L055029 L095E14 BNE L095E1B LDA #$0000 BRA L095E1E L095E1B LDA #$0001 L095E1E PHA LDA L0551E1 DEC ASL ASL ASL TAX TXA CLC ADC #L0525DA LDX #^L0525DA BCC L095E32 INX L095E32 CLC ADC #$0004 BCC L095E39 INX L095E39 STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] CMP L055039 BNE L095E4D CPX L05503B L095E4D BNE L095E54 LDA #$0000 BRA L095E57 L095E54 LDA #$0001 L095E57 ORA $01,S PLX LSR BCC L095ED3 LDA L0551E1 INC STA L0551E1 LDA L0551E1 SEC SBC #$00C8 BEQ L095E7A BVS L095E72 EOR #$8000 L095E72 BPL L095E7A LDA #$0001 STA L0551E1 L095E7A LDA L0551E1 DEC ASL ASL ASL TAX TXA CLC ADC #L0525DA LDX #^L0525DA BCC L095E8D INX L095E8D TXY LDX #$FF6F STA $00,X TYA STA $02,X LDX #$FF6F LDA $02,X TAY LDA $00,X TYX STA $ED STX $EF LDA L055027 LDX L055029 STA [$ED] TXA LDY #$0002 STA [$ED],Y LDX #$FF6F LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L095EC1 INX L095EC1 STA $ED STX $EF LDA L055039 LDX L05503B STA [$ED] TXA LDY #$0002 STA [$ED],Y L095ED3 LDA #$0005 LDX #$FF7F CMP $00,X BNE L095EE2 LDA #$0000 BRA L095EE5 L095EE2 LDA #$0001 L095EE5 PHA LDA L0551DF EOR #$0001 AND $01,S PLX LSR BCC L095EF8 LDA L0551E1 STA L0551E3 L095EF8 LDA $D7 BEQ L095F08 LDA L0551F9 PHA JSL L099CDB JSL L09999B L095F08 LDA #$0001 STA $FC BRA L095F5B L095F0F LDA $D7 BEQ L095F1F PHY PEI $89 PEI $87 JSL L0971E9 PLA STA $CF L095F1F LDA $C3 LDX $C5 STA L055027 STX L055029 LDA $C7 LDX $C9 STA L055023 STX L055025 LDA $BF LDX $C1 STA L055119 STX L05511B LDA $BD STA L055151 LDA $B9 LDX $BB STA L05501F STX L055021 LDA $B5 LDX $B7 STA L055115 STX L055117 LDA $B3 STA L05514F L095F5B PEI $8D PEI $8B PEI $89 PEI $87 JSL L071825 LDA $F4 STA $FA LDA $F3 STA $F9 LDA $F1 TCD TSC CLC ADC #$028A TCS RTL L095F79 PHD TSC CLC ADC #$FFFC TCS TCD STZ $0A PEA $0017 PEA $0000 JSL L151337 LDAL L05565D BNE L095F9F LDA L0551B7 PHA LDA L0551AB PHA JSL L1502E2 L095F9F LDAL L05565D BEQ L095FAB JSL L072314 BRA L095FB0 L095FAB LDA #$0001 STA $0A L095FB0 PLY PLY PLD RTL L095FB4 ENT PHD TSC CLC ADC #$FFFC TCS TCD STZ $0A LDA L0551B9 BEQ L095FCA LDA #$0001 STA $0A BRA L096025 L095FCA LDA L0550B9 DEC BNE L095FD9 PEA $0040 JSL L0727E0 BRA L096025 L095FD9 PEA $0022 PEA $0000 JSL L151337 LDAL L05565D BNE L09600B LDA L0551B7 PHA LDA L0551B5 PHA JSL L150665 LDAL L05565D BEQ L09600B JSL L15059E LDA L0551B7 PHA LDA L0551B5 PHA JSL L150665 L09600B LDAL L05565D BEQ L09601A PEA $0041 JSL L0727E0 BRA L096025 L09601A LDA #$0001 STA L0551B9 LDA #$0001 STA $0A L096025 PLY PLY PLD RTL L096029 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L054FBB DEC STA L054FBB PLY PLY PLD RTL L09603C ENT PHD TSC CLC ADC #$FFF8 TCS TCD PEI $10 PEI $0E LDA #$0000 TAX JSL L033477 BEQ L096054 BPL L09605A L096054 STZ $16 STZ $18 BRA L0960D6 L09605A LDA $12 LDX $14 STA $16 STX $18 PEI $14 PEI $12 LDA #$0000 TAX JSL L033477 BPL L0960D6 STZ $16 STZ $18 LDA #$FFFE CMP $12 BNE L096083 LDA $0E LDX $10 STA $16 STX $18 L096083 LDA #$FFFD CMP $12 BNE L0960A4 PEI $10 PEI $0E PEA $0000 PEA $0002 JSL L150290 PLY PLY PLY PLY INC BNE L0960A0 INX L0960A0 STA $16 STX $18 L0960A4 LDA #$FFFC CMP $12 BNE L0960D6 PHY JSL L150705 PLA STA $01 PHY JSL L150705 PLA AND #$7FFF STA $03 PEI $03 PEI $01 PEI $10 PEI $0E JSL L1503B9 PLY PLY PLY PLY INC BNE L0960D2 INX L0960D2 STA $16 STX $18 L0960D6 LDA $0C STA $14 LDA $0B STA $13 LDA $09 TCD TSC CLC ADC #$0012 TCS RTL L0960E8 PHD TSC CLC ADC #$FFF6 TCS TCD LDA #$0001 STA $01 LDA L0551A7 ORA L0551A9 BEQ L096176 LDA L0551A3 ORA L0551A5 BEQ L09611B LDA L05507F BNE L09610C BRA L09611B L09610C LDY #$0004 LDA #$0002 AND [$10],Y CMP #$0000 BNE L09611B BRA L096132 L09611B PHY PHY LDY #$0002 LDA [$10],Y PHA LDA [$10] PHA JSL L0745B2 PLA STA L0551A3 PLA STA L0551A5 L096132 LDA #$FFFF TAX CMP L0551A7 BNE L09613E CPX L0551A9 L09613E BNE L09615C LDA L05501F LDX L055021 CMP L0551A3 BNE L09614E CPX L0551A5 L09614E BNE L096155 LDA #$0000 BRA L096158 L096155 LDA #$0001 L096158 STA $01 BRA L096176 L09615C LDA L0551A7 LDX L0551A9 CMP L0551A3 BNE L09616A CPX L0551A5 L09616A BEQ L096171 LDA #$0000 BRA L096174 L096171 LDA #$0001 L096174 STA $01 L096176 LDA $01 STA $14 LDA $0E STA $12 LDA $0D STA $11 LDA $0B TCD TSC CLC ADC #$0010 TCS RTL L09618C PHD TSC CLC ADC #$FEFC TCS ADC #$0011 TCD STZ $FC STZ L05507F PHY LDA L05519B LDX L05519D PHX PHA PEA $0000 TDC CLC ADC #$FFEF PHA LDY #$0002 LDA [$F8],Y PHA LDA [$F8] PHA JSL L07AA4B JSL L071C56 PLA LSR BCC L0961D5 PHY PEI $FA PEI $F8 JSL L0960E8 PLA LSR BCC L0961D5 LDA #$0001 STA $FC L0961D5 LDA $F6 STA $FA LDA $F5 STA $F9 LDA $F3 TCD TSC CLC ADC #$010A TCS RTL L0961E7 ENT PHD TSC CLC ADC #$FFFA TCS TCD STZ $0C LDA L05521B STA $01 LDX #$0000 LDA L0550B9 DEC BNE L096200 INX L096200 TXA AND L055219 BEQ L096208 STZ $01 L096208 LDA L0550C5 LDX L0550C7 CLC ADC #$00CE BCC L096215 INX L096215 STA $03 STX $05 LDA #$0020 AND [$03] BEQ L096223 LDA #$0001 L096223 ORA $01 BEQ L09624E LDA #$0001 STA $0C LDA L0551F3 BNE L09624E PEA ^L053251 PEA L053251 PEA $0000 LDA L055111 LDX L055113 PHX PHA JSL L151651 JSL L09B1FE JSL L097700 L09624E PLY PLY PLY PLD RTL L096253 ENT PHD TSC CLC ADC #$FFC8 TCS TCD LDA L0551DD ORA L0551DF PHA LDA L054FBB PHA LDX #$0000 PLA BPL L09626D INX L09626D TXA ORA $01,S PLX LSR BCC L096277 BRL L096471 L096277 STZ $33 LDA #$0001 STA $31 L09627E LDA $31 DEC ASL ASL ASL TAX TXA CLC ADC #L05233C LDX #^L05233C BCC L096290 INX L096290 STA $05 STX $07 LDA L055027 LDX L055029 CMP [$05] BNE L0962A4 LDY #$0002 TXA CMP [$05],Y L0962A4 BNE L0962BA LDY #$0006 LDA [$05],Y TAX DEY DEY LDA [$05],Y CMP L055039 BNE L0962B8 CPX L05503B L0962B8 BEQ L0962D8 L0962BA LDA [$05] LDY #$0002 ORA [$05],Y BNE L0962CB LDA $33 BNE L0962CB LDA $31 STA $33 L0962CB LDA #$0012 CMP $31 BEQ L0962D6 INC $31 BRA L09627E L0962D6 STZ $31 L0962D8 LDX #$0000 LDA $31 BNE L0962E0 INX L0962E0 TXA AND L055157 ORA L055133 BNE L0962EC BRL L09646B L0962EC LDA L0550FD LDX L0550FF PHX PHA PEA ^L0520C4 PEA L0520C4 JSL L081F1E LDA $31 BEQ L096305 BRL L096400 L096305 LDA $33 BEQ L09630C BRL L0963FC L09630C PEA ^L05236C PEA L05236C PEA ^L05233C PEA L05233C PEA $0000 PEA $0060 JSL L1511CE PEA ^L05239C PEA L05239C PEA $0000 PEA $0030 JSL L071EC5 LDAL L052332 PHA LDAL L052338 SEC SBC #$0019 JSL L150BEE PLA LDX #$0000 BIT #$8000 BEQ L09634D DEX L09634D STA $25 STX $27 LDAL L052330 TAX LDAL L05232E STA $29 STX $2B PEI $2B PEI $29 LDAL L052332 PEA $0019 JSL L150BEE PLA LDX #$0000 BIT #$8000 BEQ L096377 DEX L096377 JSL L150F53 STA $2D STX $2F PEI $2F PEI $2D PEI $2B PEI $29 PEI $27 PEI $25 JSL L1511CE PHY PHY JSL L150493 PLA STA $19 PLX STX $1B PEA ^L05312F PEA L05312F JSL L151131 TDC CLC ADC #$0009 PEA $0000 PHA JSL L1506A1 PEA ^L05232C PEA L05232C JSL L1506A7 TDC CLC ADC #$001D PEA $0000 PHA PEA $0000 PEA $0032 PEA $01E0 PEA $004B JSL L15100B TDC CLC ADC #$001D PEA $0000 PHA JSL L15123D TDC CLC ADC #$0009 PEA $0000 PHA JSL L1506A7 PEI $1B PEI $19 JSL L151131 LDA #$000D STA $33 L0963FC LDA $33 STA $31 L096400 PEI $31 TDC CLC ADC #$001D PEA $0000 PHA JSL L09031E PEA ^L05231C PEA L05231C PEA ^L05232C PEA L05232C PEA ^L052324 PEA L052324 TDC CLC ADC #$001D PEA $0000 PHA PEA $0000 PEA $0000 PEA $0000 JSL L1505E6 LDA $31 DEC ASL ASL ASL TAX TXA CLC ADC #L05233C LDX #^L05233C BCC L096449 INX L096449 STA $01 STX $03 LDA L055027 LDX L055029 STA [$01] TXA LDY #$0002 STA [$01],Y LDA L055039 LDX L05503B LDY #$0004 STA [$01],Y INY INY TXA STA [$01],Y L09646B STZ L055157 STZ L055133 L096471 TSC CLC ADC #$0038 TCS PLD RTL L096479 ENT PHD TSC CLC ADC #$FF7A TCS TCD LDA L05524D BEQ L096495 PHY PEI $90 PEI $8E JSL L0933AB PLA STA $92 BRL L09684D L096495 STZ $5D STZ $5F STZ $92 LDA L0550B9 DEC BNE L0964A7 JSL L1601FC BRA L0964AB L0964A7 JSL L0A1625 L0964AB JSL L096253 LDA L0551DF STA $67 LDA #$0001 STA $69 LDA #$0001 STA $6B PEI $90 PEI $8E JSL L0982BA PHY PHY LDY #$005A LDA [$8E],Y PHA DEY DEY LDA [$8E],Y PHA JSL L07899F PLA STA $5D PLX STX $5F PHY PEI $5F PEI $5D JSL L0988BB PLA EOR #$0001 STA $6D STZ $61 LDA $6D BEQ L09651B LDX #$0000 LDA #$0005 CMP L054FA1 BNE L0964FE INX L0964FE TXA BNE L096510 LDX #$0000 LDA #$0004 CMP L054FA1 BNE L09650D INX L09650D TXA BEQ L096518 L096510 PHY JSL L073CDF PLA STA $61 L096518 BRL L09673E L09651B LDY #$002C LDA #$0006 CMP [$8E],Y BEQ L096528 BRL L096600 L096528 LDA [$8E] DEC BNE L09653E LDY #$0004 LDA [$8E],Y TAX DEY DEY LDA [$8E],Y STA $7B STX $7D BRL L0966D0 L09653E LDA [$8E] DEC DEC BNE L096568 PHY PHY LDY #$0008 LDA [$8E],Y PHA DEY DEY LDA [$8E],Y PHA LDAL L053ACB PHA LDAL L053AC9 PHA JSL L09603C PLA STA $77 PLX STX $79 BRL L096699 L096568 LDA #$0003 CMP [$8E] BEQ L096572 BRL L096600 L096572 LDY #$000A LDA [$8E],Y DEC DEC BNE L0965B2 PHY PHY JSL L07B114 PLA PLX INC BNE L096587 INX L096587 STA $77 STX $79 PEI $79 PEI $77 LDAL L053ACB TAX LDAL L053AC9 JSL L033477 BEQ L0965AF BVS L0965A3 EOR #$8000 L0965A3 BPL L0965AF LDA #$0001 LDX #$0000 STA $77 STX $79 L0965AF BRL L096699 L0965B2 LDY #$000A LDA [$8E],Y DEC BNE L0965F2 PHY PHY JSL L07B114 PLA PLX SEC SBC #$0001 BCS L0965C9 DEX L0965C9 STA $77 STX $79 PEI $79 PEI $77 LDA #$0001 LDX #$0000 JSL L033477 BVS L0965E0 EOR #$8000 L0965E0 BMI L0965EF LDAL L053ACB TAX LDAL L053AC9 STA $77 STX $79 L0965EF BRL L096699 L0965F2 LDY #$000A LDA [$8E],Y BNE L096600 STZ $69 STZ $6B BRL L09673E L096600 LDA L055027 LDX L055029 STA $73 STX $75 LDA L05501F LDX L055021 STA $6F STX $71 TDC CLC ADC #$0001 PEA $0000 PHA JSL L0940E5 LDA #$0001 STA L0551DF PHY PEI $90 PEI $8E PEA $0000 JSL L095416 PLA LSR BCS L09663A BRL L09683D L09663A LDA $6F LDX $71 CMP L05501F BNE L096646 CPX L055021 L096646 BNE L09664D LDA #$0000 BRA L096650 L09664D LDA #$0001 L096650 STA $6B LDA $73 LDX $75 CMP L055027 BNE L09665E CPX L055029 L09665E BNE L096665 LDA #$0000 BRA L096668 L096665 LDA #$0001 L096668 STA $69 LDA #$0005 CMP [$8E] BEQ L096679 PEI $90 PEI $8E JSL L0940E5 L096679 PHY TDC CLC ADC #$0001 PEA $0000 PHA PEA $0000 JSL L095416 PLA LSR BCS L096691 BRL L09683D L096691 LDA $67 STA L0551DF BRL L09673E L096699 LDA #$0001 LDX #$0000 CMP $77 BNE L0966A5 CPX $79 L0966A5 BNE L0966B6 LDAL L053ACF TAX LDAL L053ACD STA $7B STX $7D BRA L0966D0 L0966B6 PHY PHY LDAL L053AD3 PHA LDAL L053AD1 PHA PEI $79 PEI $77 JSL L07B8EA PLA STA $7B PLX STX $7D L0966D0 PHY PHY PEI $7D PEI $7B JSL L0772AE PLA STA $7F PLX STX $81 LDA $7F ORA $81 BNE L0966EC STZ $69 STZ $6B BRA L09673E L0966EC LDA L055027 LDX L055029 CMP $7B BNE L0966F8 CPX $7D L0966F8 BNE L0966FF LDA #$0000 BRA L096702 L0966FF LDA #$0001 L096702 STA $69 LDY #$0002 LDA [$7F],Y TAX LDA [$7F] CLC ADC #$0020 BCC L096713 INX L096713 STA $83 STX $85 LDA L05501F LDX L055021 CMP [$83] BNE L096727 LDY #$0002 TXA CMP [$83],Y L096727 BNE L09672E LDA #$0000 BRA L096731 L09672E LDA #$0001 L096731 STA $6B PEI $7D PEI $7B PEA $0000 JSL L074A90 L09673E LDA $69 BEQ L096749 PEA $0007 JSL L0998B0 L096749 LDA $6B BEQ L096754 PEA $0006 JSL L0998B0 L096754 LDA $6D BEQ L09675F PEA $0005 JSL L0998B0 L09675F JSL L0952F7 STZ $63 LDA #$0004 CMP $8C BNE L096775 PEA $000E JSL L0998B0 BRA L09679C L096775 LDA $8C SEC SBC #$0005 BVS L096780 EOR #$8000 L096780 BPL L09679C LDA #$0001 STA $63 PEA $0010 JSL L0998B0 LDA #$0005 CMP $8C BNE L09679C PEA $000F JSL L0998B0 L09679C PHY PEI $90 PEI $8E PEA $0000 JSL L095416 PLA LSR BCC L0967CC LDA #$0001 STA $92 LDA L055153 AND $69 BEQ L0967BC JSL L09A544 L0967BC LDA L0550B9 DEC BNE L0967C8 JSL L16020A BRA L0967CC L0967C8 JSL L0A15C0 L0967CC LDA $8C BMI L09680A BEQ L09680A LDA $8C SEC SBC #$0003 BEQ L0967E1 BVS L0967DF EOR #$8000 L0967DF BMI L09680A L0967E1 LDA $8C DEC BNE L0967ED PEA $0009 JSL L0998B0 L0967ED LDA $8C SEC SBC #$0002 BEQ L0967FC BVS L0967FA EOR #$8000 L0967FA BMI L096803 L0967FC PEA $000A JSL L0998B0 L096803 PEA $000B JSL L0998B0 L09680A LDA $63 BNE L09682F LDA $6D BEQ L096819 PEA $0001 JSL L0998B0 L096819 LDA $6B BEQ L096824 PEA $0002 JSL L0998B0 L096824 LDA $69 BEQ L09682F PEA $0003 JSL L0998B0 L09682F JSL L096253 LDA $61 BEQ L09683D PEI $61 JSL L0724F7 L09683D LDA $67 STA L0551DF STZ L0550BF PEI $5F PEI $5D JSL L07185A L09684D LDA $8A STA $90 LDA $89 STA $8F LDA $87 TCD TSC CLC ADC #$008E TCS RTL L09685F PHD TSC CLC ADC #$FF9E TCS TCD LDA #$0005 STA $03 LDA $68 STA $0D LDA #$0006 STA $2F PHY PHY PEA $0000 PEA $0000 JSL L078841 PLA STA $5B PLX STX $5D PHY TDC CLC ADC #$0003 PEA $0000 PHA PEA $0000 JSL L096479 PLA STA $01 LDA $66 STA $68 LDA $65 STA $67 LDA $63 TCD TSC CLC ADC #$0066 TCS RTL L0968AD ENT PHD TSC CLC ADC #$FF9E TCS TCD LDA #$0001 STA $03 LDA $6E LDX $70 STA $05 STX $07 LDA #$0006 STA $2F PHY PHY PEI $6C PEI $6A JSL L078841 PLA STA $5B PLX STX $5D PHY TDC CLC ADC #$0003 PEA $0000 PHA PEI $68 JSL L096479 PLA STA $01 LDA $66 STA $70 LDA $65 STA $6F LDA $63 TCD TSC CLC ADC #$006E TCS RTL L0968FC ENT PHD TSC CLC ADC #$FF9E TCS TCD LDA #$0002 STA $03 LDA $6E LDX $70 STA $09 STX $0B LDA #$0006 STA $2F PHY PHY PEI $6C PEI $6A JSL L078841 PLA STA $5B PLX STX $5D PHY TDC CLC ADC #$0003 PEA $0000 PHA PEI $68 JSL L096479 PLA STA $01 LDA $66 STA $70 LDA $65 STA $6F LDA $63 TCD TSC CLC ADC #$006E TCS RTL L09694B PHD TSC CLC ADC #$FF9E TCS TCD LDA #$0003 STA $03 LDA $6A STA $0D LDA #$0006 STA $2F PHY PHY PEA $0000 PEA $0000 JSL L078841 PLA STA $5B PLX STX $5D PHY TDC CLC ADC #$0003 PEA $0000 PHA PEI $68 JSL L096479 PLA STA $01 LDA $66 STA $6A LDA $65 STA $69 LDA $63 TCD TSC CLC ADC #$0068 TCS RTL L096998 ENT PHD TSC CLC ADC #$FEDE TCS ADC #$002B TCD PHY JSL L071BFF PLA STA $F1 LDA L055145 BNE L0969B3 BRL L096A6D L0969B3 LDA L055153 ORA L055051 BNE L0969BE BRL L096A6D L0969BE PHY PHY JSL L150493 PLA STA $ED PLX STX $EF PHY PHY JSL L151293 JSL L151131 PEA ^L053259 PEA L053259 JSL L150FF9 PHY PHY JSL L1503AD PLA STA $E7 PLX STX $E9 LDY #$0002 LDA [$E7],Y TAX LDA [$E7] CLC ADC #$0008 BCC L0969F9 INX L0969F9 CLC ADC #$0004 BCC L096A00 INX L096A00 STA $F3 STX $F5 LDA [$F3] DEC DEC DEC STA $EB LDA L055051 BEQ L096A19 PEA $0260 PEI $EB JSL L093420 L096A19 LDA L055153 BEQ L096A65 TDC CLC ADC #$00D7 PEA $0000 PHA JSL L1516A5 PHY JSL L1512E9 PLA STA $D5 PEA $0208 PEI $EB JSL L1510C5 PEA $0002 JSL L1512E3 PEA $0000 TDC CLC ADC #$FFD5 PHA PEA $0025 JSL L073002 JSL L150592 PEI $D9 PEI $D7 JSL L1510C5 PEI $D5 JSL L1512E3 L096A65 PEI $EF PEI $ED JSL L151131 L096A6D PEI $F1 JSL L071AA4 TSC CLC ADC #$0122 TCS PLD RTL L096A7B ENT PHD TSC CLC ADC #$FFF4 TCS TCD LDA L055199 BNE L096A8B BRL L096B86 L096A8B LDA L055177 LDX L055179 PHX PHA LDA #$0003 LDX #$0000 JSL L033477 BVS L096AA2 EOR #$8000 L096AA2 BMI L096AC8 LDAL L0523E4 TAX LDAL L0523E2 STA [$12] TXA LDY #$0002 STA [$12],Y LDA L055177 LDX L055179 INC BNE L096ABF INX L096ABF STA L055177 STX L055179 BRL L096B7C L096AC8 LDA L054FB7 LDX L054FB9 STA $09 STX $0B LDY #$0002 LDA [$09],Y TAX LDA [$09] STA $05 STX $07 PEI $07 PEI $05 LDA L05517B LDX L05517D JSL L033477 BVS L096AF1 EOR #$8000 L096AF1 BPL L096B16 LDAL L0523D6 TAX LDAL L0523D4 STA [$12] TXA LDY #$0002 STA [$12],Y LDA L055173 LDX L055175 INC BNE L096B0E INX L096B0E STA L055173 STX L055175 BRA L096B7C L096B16 LDA L05517F LDX L055181 PHX PHA LDA $05 LDX $07 JSL L033477 BVS L096B2B EOR #$8000 L096B2B BMI L096B6F LDA L05518F LDX L055191 PHX PHA LDA L055187 LDX L055189 JSL L150F53 STA L05518F STX L055191 LDA L05518B LDX L05518D PHX PHA LDA L055183 LDX L055185 JSL L150F53 STA L05518B STX L05518D LDA L05517F LDX L055181 INC BNE L096B67 INX L096B67 STA L05517F STX L055181 BRA L096B16 L096B6F LDA L055191 LDY #$0002 STA [$12],Y LDA L05518D STA [$12] L096B7C PEI $14 PEI $12 JSL L150BE8 BRA L096B9F L096B86 TDC CLC ADC #$0001 PEA $0000 PHA JSL L150801 LDA $01 LDX $03 STA [$12] TXA LDY #$0002 STA [$12],Y L096B9F LDA $10 STA $14 LDA $0F STA $13 LDA $0D TCD TSC CLC ADC #$0012 TCS RTL L096BB1 ENT PHD TSC CLC ADC #$FFF8 TCS TCD STZ L05524B LDA $0E LDX $10 STA $01 STX $03 PHY PEI $12 PEI $03 PEI $01 JSL L150070 PLA STA $14 LDA $0C STA $12 LDA $0B STA $11 LDA $09 TCD TSC CLC ADC #$0010 TCS RTL L096BE4 PHD TSC CLC ADC #$FFC0 TCS TCD STZ $48 STZ $4A PHY PHY JSL L150B8E PLA STA $39 PLX STX $3B LDY #$0002 LDA [$39],Y TAX LDA [$39] STA $01 STX $03 LDY #$0010 LDA #$00FF AND [$01],Y STA $37 LDA L054FBB SEC SBC #$0000 BPL L096C2B LDY #$0010 LDA #$0080 ORA $37 PHA PLA SEP #$20 STA [$01],Y REP #$20 L096C2B LDA #$0003 STA $05 PHY PEI $46 JSL L071498 PLA LDX #$0000 BIT #$8000 BEQ L096C41 DEX L096C41 STA $07 STX $09 LDA L05522F BEQ L096C51 LDA #$0300 STA $13 BRA L096C56 L096C51 LDA #$0100 STA $13 L096C56 TDC CLC ADC #$0005 PEA $0000 PHA PEA $0000 PEA $0000 JSL L15129F LDA $15 LDX $17 STA $33 STX $35 LDA $05 BNE L096C8F PHY PHY PEA $FFFF PEA $0000 LDA $33 JSL L150488 PHX PHA JSL L150241 PLA STA $33 PLX STX $35 L096C8F LDA $33 LDX $35 STA $48 STX $4A LDY #$0002 LDA [$39],Y TAX LDA [$39] CLC ADC #$0010 BCC L096CA6 INX L096CA6 STA $3D STX $3F LDA $37 SEP #$20 STA [$3D] REP #$20 LDA $44 STA $46 LDA $43 STA $45 LDA $41 TCD TSC CLC ADC #$0044 TCS RTL L096CC4 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L055199 BEQ L096D03 LDA L055173 LDX L055175 PHX PHA LDA #$0005 LDX #$0000 JSL L033477 BVS L096CE8 EOR #$8000 L096CE8 BPL L096CEF LDA #$0000 BRA L096CF2 L096CEF LDA #$0001 L096CF2 PHA PHY JSL L07005C PLA EOR #$0001 AND $01,S PLX STA $0A BRA L096D0E L096D03 PHY PEA $0000 JSL L15164B PLA STA $0A L096D0E PLY PLY PLD RTL L096D12 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDY #$0002 LDA [$0A],Y TAX LDA [$0A] CLC ADC #$0076 BCC L096D29 INX L096D29 STA $01 STX $03 LDA [$01] BEQ L096D3B PEI $0C PEI $0A JSL L1516E1 BRA L096D3B L096D3B LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L096D4C ENT PHD TSC CLC ADC #$FFFC TCS TCD LDY #$0002 LDA [$0A],Y TAX LDA [$0A] CLC ADC #$0076 BCC L096D63 INX L096D63 STA $01 STX $03 LDA [$01] BNE L096D75 PEI $0C PEI $0A JSL L1516DB BRA L096D75 L096D75 LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L096D86 PHD TSC CLC ADC #$FDDA TCS ADC #$0135 TCD LDA $FA BEQ L096D9F LDY #$00D9 LDA [$F6],Y PHA JSL L075A4F L096D9F LDA L055281 BNE L096DA7 BRL L096E5C L096DA7 LDX #$0000 LDY #$00DB LDA #$004E CMP [$F6],Y BNE L096DB5 INX L096DB5 PHX LDX #$0000 LDY #$00DB LDA #$0050 CMP [$F6],Y BNE L096DC4 INX L096DC4 TXA ORA $01,S PLX LSR BCC L096DD2 LDA #$001C STA $EB BRA L096DD7 L096DD2 LDA #$001B STA $EB L096DD7 PEA $0000 TDC CLC ADC #$FFCB PHA PEA $0000 TDC CLC ADC #$FECB PHA LDY #$00E9 LDA [$F6],Y PHA DEY DEY LDA [$F6],Y PHA JSL L072CD4 PEA $0100 JSL L0313BE TDC CLC ADC #$00CB PEA $0000 PHA PEA $0000 TDC CLC ADC #$FFB7 PHA LDY #$00DB LDA [$F6],Y JSL L150488 PHX PHA PEA $0000 JSL L07334A PEA $0014 JSL L0313BE PEA $0000 TDC CLC ADC #$FFCB PHA PEA $0000 TDC CLC ADC #$FECB PHA PEI $EB JSL L072809 TDC CLC ADC #$00CB PEA $0000 PHA PEA ^L040967 PEA L040967 JSL L073C22 PEA $001A JSL L0727E0 L096E5C LDA #$0001 STA L055257 LDA $F4 STA $FA LDA $F3 STA $F9 LDA $F1 TCD TSC CLC ADC #$022E TCS RTL L096E74 PHD TSC CLC ADC #$FFC2 TCS TCD LDA #$000A STA $01 LDY #$00E1 LDA [$44],Y TAX DEY DEY LDA [$44],Y STA $3B STX $3D LDY #$0002 LDA [$3B],Y TAX LDA [$3B] STA $05 STX $07 LDA $48 STA $09 STZ $0B TDC CLC ADC #$0001 PEA $0000 PHA PEA $2010 JSL GSOS2 STAL L05565D LDAL L05565D LDY #$00DB STA [$44],Y LDA $03 LDY #$00D9 STA [$44],Y LDA $0F LDY #$00D5 STA [$44],Y LDA $11 LDX $13 LDY #$00D1 STA [$44],Y INY INY TXA STA [$44],Y PHY PHY PEA $0001 PEA $0000 PEA $0000 TDC CLC ADC #$001F PEA $0000 PHA _ConvSeconds STAL L05565D PLA STA L055251 PLA STA L055253 LDA $42 STA $48 LDA $41 STA $47 LDA $3F TCD TSC CLC ADC #$0046 TCS RTL L096F13 PHD TSC CLC ADC #$FEB2 TCS ADC #$005B TCD STZ $FC PEA $0000 LDY #$00ED LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA JSL L077086 LDY #$00E1 LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA JSL L07185A LDA #$00DF CLC ADC $F8 LDX $FA BCC L096F4C INX L096F4C STA $EF STX $F1 PHY PHY PEA $0000 TDC CLC ADC #$FFA5 PHA LDY #$00E9 LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA JSL L072CD4 PEA $0000 JSL L0730BE PLA STA [$EF] PLA LDY #$0002 STA [$EF],Y PHY PHY LDA L05503F LDX L055041 PHX PHA LDA L055043 LDX L055045 PHX PHA JSL L072B9F PLA STA $EB PLX STX $ED LDA #$00DD CLC ADC $F8 LDX $FA BCC L096FA1 INX L096FA1 STA $EF STX $F1 PHY LDY #$00E1 LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA PEI $ED PEI $EB JSL L071330 PLA STA [$EF] PEI $ED PEI $EB JSL L07185A LDY #$00DD LDA [$F8],Y BEQ L096FD3 LDA #$0001 STA $FC BRL L0970F9 L096FD3 LDY #$00E1 LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA JSL L0718BF LDA #$0002 STA $A5 LDY #$00E1 LDA [$F8],Y TAX DEY DEY LDA [$F8],Y STA $EF STX $F1 LDY #$0002 LDA [$EF],Y TAX LDA [$EF] STA $A7 STX $A9 TDC CLC ADC #$00A5 PEA $0000 PHA PEA $2006 JSL GSOS2 STAL L05565D LDAL L05565D BEQ L09701E BRL L0970F9 L09701E LDA #$0003 LDY #$00BD STA [$F8],Y LDY #$00BD LDA [$F8],Y PHA PEA $0000 PEI $F8 JSL L096E74 PHY LDY #$00DB LDA [$F8],Y PHA JSL L093495 PLA LSR BCC L097047 BRL L0970F9 L097047 LDY #$00DB LDA #$004E CMP [$F8],Y BNE L097068 LDA #$0001 LDY #$00BD STA [$F8],Y LDY #$00BD LDA [$F8],Y PHA PEA $0000 PEI $F8 JSL L096E74 L097068 LDY #$00DB LDA [$F8],Y BEQ L097088 PEA $0000 PEA $0000 PEI $F8 JSL L096D86 PHD LDA $F8 TCD CLC ADC #$F6A2 TCS JMPL L0976CE L097088 LDX #$0000 LDY #$00D5 LDA #$0055 CMP [$F8],Y BNE L097096 INX L097096 PHX LDY #$00D3 LDA [$F8],Y TAX DEY DEY LDA [$F8],Y CMP #$0001 BNE L0970A9 CPX #$0000 L0970A9 BEQ L0970B0 LDA #$0000 BRA L0970B3 L0970B0 LDA #$0001 L0970B3 AND $01,S PLX LSR BCC L0970EF LDA #$0004 STA $D9 LDA #$000D STA $DB LDA #$0001 STA $DD LDY #$00D9 LDA [$F8],Y STA $DF LDA #$8000 STA $E1 TDC CLC ADC #$00D9 PEA $0000 PHA PEA $2033 JSL GSOS2 STAL L05565D LDA #$0001 STA $FC BRA L0970F9 L0970EF LDY #$00D9 LDA [$F8],Y PHA JSL L075A4F L0970F9 LDA $F6 STA $FA LDA $F5 STA $F9 LDA $F3 TCD TSC CLC ADC #$0154 TCS RTL L09710B PHD TSC CLC ADC #$FF9E TCS TCD LDA #$0001 STA $6C LDY #$00BD LDA [$68],Y DEC BNE L097123 BRL L0971D7 L097123 LDA L05503F LDX L055041 PHX PHA JSL L0718BF LDA #$0002 STA $55 LDA L05503F LDX L055041 STA $5F STX $61 LDY #$0002 LDA [$5F],Y TAX LDA [$5F] STA $57 STX $59 TDC CLC ADC #$0055 PEA $0000 PHA PEA $2020 JSL GSOS2 STAL L05565D LDA L05503F LDX L055041 PHX PHA JSL L07191C LDA #$0003 STA $13 LDA $5B STA $15 TDC CLC ADC #$0031 STA $17 STZ $19 LDA #$0024 STA $31 TDC CLC ADC #$0013 PEA $0000 PHA PEA $202C JSL GSOS2 STAL L05565D LDA #$0040 AND $1B BEQ L0971D7 LDA #$0005 STA $01 LDA $15 STA $03 STZ $05 TDC CLC ADC #$005D STA $07 STZ $09 LDA #$0002 LDX #$0000 STA $0B STX $0D TDC CLC ADC #$0001 PEA $0000 PHA PEA $202D JSL GSOS2 STAL L05565D LDA #$0004 AND $5D BNE L0971D7 STZ $6C L0971D7 LDA $66 STA $6A LDA $65 STA $69 LDA $63 TCD TSC CLC ADC #$0068 TCS RTL L0971E9 ENT PHD TSC CLC ADC #$F5B0 TCS ADC #$095D TCD STZ $FC STZ L055257 STZ L055259 STZ $EB STZ $ED STZ $E7 STZ $E9 STZ $E3 STZ $E5 STZ $C3 STZ $C5 STZ $DF STZ $E1 JSL L09999B PHY PEI $FA PEI $F8 JSL L0988BB PLA LSR BCC L097224 BRL L0976C9 L097224 PHY PHY PEI $FA PEI $F8 JSL L070525 PLA STA $E7 PLX STX $E9 PHY PEI $FA PEI $F8 LDA L055035 LDX L055037 PHX PHA JSL L071330 PLA LSR BCC L09728C PEI $E9 PEI $E7 JSL L07185A PHY PHY LDA L055035 LDX L055037 PHX PHA JSL L070525 PLA STA $E7 PLX STX $E9 PHY PHY LDA L055031 LDX L055033 PHX PHA JSL L070525 PLA STA $EB PLX STX $ED PHY PEA $0000 PHD JSL L096F13 PLA LSR BCC L097289 BRL L097463 L097289 BRL L0976CE L09728C PEI $ED PEI $EB JSL L07185A PHY PHY LDA L05503F LDX L055041 PHX PHA JSL L070525 PLA STA $EB PLX STX $ED PHY PEA $0000 PHD JSL L096F13 PLA LSR BCC L0972B8 BRL L097463 L0972B8 PHY PHY PEA ^L040968 PEA L040968 JSL L0B88AC PLA STA $C3 PLX STX $C5 PEI $C5 PEI $C3 JSL L0718BF LDY #$0002 LDA [$C3],Y TAX LDA [$C3] STA $BF STX $C1 TDC CLC ADC #$00BF PEA $0000 PHA PEA $0000 TDC CLC ADC #$F9A3 PHA JSL L0712B0 L0972F4 LDA #$00FF LDX #$F9A3 AND $00,X BEQ L097352 PEI $ED PEI $EB JSL L07185A PHY PHY PEA $0000 TDC CLC ADC #$F9A3 PHA JSL L0735A8 PLA STA $EB PLX STX $ED PEA $0000 LDA L05503F LDX L055041 PHX PHA JSL L077086 PHY PEA $0000 PHD JSL L096F13 PLA LSR BCC L09733A BRL L097463 L09733A TDC CLC ADC #$00BF PEA $0000 PHA PEA $0000 TDC CLC ADC #$F9A3 PHA JSL L0712B0 BRA L0972F4 L097352 PEI $ED PEI $EB JSL L07185A LDA L055265 LDX L055267 PHX PHA TDC CLC ADC #$00EB PEA $0000 PHA TDC CLC ADC #$00E3 PEA $0000 PHA JSL L07869F PEI $E5 PEI $E3 JSL L07185A STZ $E3 STZ $E5 PHY PEA $0000 PHD JSL L096F13 PLA LSR BCC L097394 BRL L097463 L097394 LDA L055255 BEQ L09739C BRL L0976CE L09739C PEI $ED PEI $EB JSL L07185A PEI $FA PEI $F8 TDC CLC ADC #$00EB PEA $0000 PHA TDC CLC ADC #$00E3 PEA $0000 PHA JSL L07869F PEA $0000 TDC CLC ADC #$F9A3 PHA PEA $0000 TDC CLC ADC #$F6A3 PHA PEI $E5 PEI $E3 JSL L072CD4 PEA $0100 JSL L0313BE PEI $ED PEI $EB PEI $E5 PEI $E3 JSL L071825 STZ $EB STZ $ED PHY PEA $0006 PEA $0055 PEA $0000 PEA $0001 PEA $0000 TDC CLC ADC #$F9A3 PHA TDC CLC ADC #$00E3 PEA $0000 PHA JSL L09B294 PLA LSR BCS L09741F LDA #$0001 STA L055257 BRL L0976CE L09741F PEI $E9 PEI $E7 JSL L07185A PEI $E5 PEI $E3 TDC CLC ADC #$00EB PEA $0000 PHA TDC CLC ADC #$00E7 PEA $0000 PHA JSL L07869F PEI $E5 PEI $E3 JSL L07185A STZ $E3 STZ $E5 PHY PEA $0000 PHD JSL L096F13 PLA LSR BCS L097463 LDA #$0001 STA L055259 BRL L0976CE L097463 LDA $DD BEQ L09746A BRL L0976C9 L09746A PEA ^L053C9D PEA L053C9D PEA $0000 TDC CLC ADC #$F7A3 PHA PEA $0000 PEA $0200 JSL L070597 LDA L055155 STA $B1 LDA #$0001 STA L055155 PEA $0000 PEA $0001 JSL L090000 LDA $B1 STA L055155 JSL L093A99 PEA $0000 JSL L07479E LDA L05500F ORA L055011 BEQ L0974B7 PEA $4D16 JSL L07272E L0974B7 PHY PHY PEI $E1 PEI $DF JSL L078841 PLA STA $B3 PLX STX $B5 LDA L05502B LDX L05502D CMP $B3 BNE L0974D3 CPX $B5 L0974D3 BNE L0974DC LDA L05502F STA $CF BRA L097537 L0974DC PEI $E1 PEI $DF JSL L0718BF PHY PEI $BD PEA $0000 PEA $0000 LDY #$0002 LDA [$DF],Y PHA LDA [$DF] PHA JSL L150B64 PLA STA $CF LDAL L05565D STA $DB LDA $DB BEQ L097537 LDX #$0000 LDA #$004C CMP $DB BEQ L097512 INX L097512 PHX LDX #$0000 LDA #$0063 CMP $DB BEQ L09751E INX L09751E TXA AND $01,S PLX LSR BCC L097535 PEA $0001 PEA $0000 PHD JSL L096D86 BRL L0976CE BRA L097537 L097535 STZ $CF L097537 PHY PEI $D9 PEA $0000 TDC CLC ADC #$FAA3 PHA JSL L076CDB PLA LSR BCS L09755E PEI $D9 JSL L075A4F LDA $CF BEQ L09755B PEI $CF JSL L150B5E L09755B BRL L0976CE L09755E JSL L074D35 LDA $D9 STA L055047 LDA L05503F LDX L055041 PHX PHA LDA L055043 LDX L055045 PHX PHA JSL L071825 PEI $E1 PEI $DF PEA ^L05503F PEA L05503F PEA ^L055043 PEA L055043 JSL L07869F PEA ^L053A9D PEA L053A9D PEA $0000 TDC CLC ADC #$FAA3 PHA PEA $0600 JSL L0313BE LDA $CF STA L05503D LDA $B3 LDX $B5 STA L055039 STX L05503B LDA L055251 LDX L055253 PHX PHA JSL L0781CF PHY PEA $0000 PHD JSL L09710B PLA STA L05504F LDA L055051 STA $BB LDA #$8000 ANDL L053AE9 BEQ L0975DE LDA #$0001 L0975DE ORA L05504F STA L055051 LDA $BB CMP L055051 BEQ L0975EF JSL L087268 L0975EF LDA L05503D BNE L0975FC STZ L05525F STZ L05525D BRA L097644 L0975FC PHY JSL L150B6A PLA STA $B9 LDA L05503D PHA JSL L150B70 PHY PEA $0001 JSL L1506E1 PLA STA $B7 PHY PHY PEA $801E JSL L150BAC PLA PLX STA L05525F PHY PHY PEA $801F JSL L150BAC PLA PLX STA L05525D PHY PEA $FFFF JSL L1506E1 PLA STA $B7 PEI $B9 JSL L150B70 L097644 LDA L05502B LDX L05502D CMP L055039 BNE L097652 CPX L05503B L097652 BNE L097666 LDA L05503D STA L05502F LDA L05525F STA L055275 LDA L05525D STA L055273 L097666 PHY PEA ^L053C9D PEA L053C9D PEA $0000 TDC CLC ADC #$F7A3 PHA PEA $0200 JSL L070A10 PLA LSR BCS L097692 LDA L0550B5 PHA PEA $0000 JSL L090541 LDA #$0001 STA L05512F L097692 STZ L055135 STZ L055139 PEA ^L0532BD PEA L0532BD JSL L082712 LDA #$0001 STA L055133 STZ L055027 STZ L055029 STZ L05501F STZ L055021 STZ L055023 STZ L055025 STZ L055005 STZ L055007 STZ L055081 STZ L055083 STZ L055243 L0976C9 LDA #$0001 STA $FC L0976CE PEI $E1 PEI $DF PEI $E5 PEI $E3 JSL L071825 PEI $E9 PEI $E7 PEI $ED PEI $EB JSL L071825 PEI $C5 PEI $C3 JSL L07185A LDA $F6 STA $FA LDA $F5 STA $F9 LDA $F3 TCD TSC CLC ADC #$0A56 TCS RTL L097700 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L055111 LDX L055113 PHX PHA JSL L1516D5 LDA #$0001 STA L0551F3 PLY PLY PLD RTL L09771E ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L05524B BEQ L097732 LDA L055195 STA $0A BRA L097748 L097732 * PHY * PEA $0000 * PEA $C025 * JSL L071A89 * PLA ldal $c025 ; AV 202208 AND #$0040 BEQ L097746 LDA #$0001 L097746 STA $0A L097748 PLY PLY PLD RTL L09774C PHD TSC CLC ADC #$FFE4 TCS TCD STZ $26 LDY #$00BF LDA [$22],Y TAX DEY DEY LDA [$22],Y STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] STA $05 STX $07 LDY #$00B3 LDA [$22],Y TAX DEY DEY LDA [$22],Y STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] STA $01 STX $03 LDY #$0002 LDA [$01],Y TAX LDA [$01] CMP [$05] BNE L09779C LDY #$0002 TXA CMP [$05],Y L09779C BEQ L0977A1 BRL L097985 L0977A1 LDY #$0010 LDA [$05],Y LDY #$0010 CMP [$01],Y BEQ L0977B0 BRL L097985 L0977B0 LDY #$0012 LDA [$05],Y LDY #$0012 CMP [$01],Y BEQ L0977BF BRL L097985 L0977BF LDY #$0024 LDA [$05],Y LDY #$0024 CMP [$01],Y BEQ L0977CE BRL L097985 L0977CE LDY #$002A LDA [$05],Y PHA DEY DEY LDA [$05],Y PHA LDY #$002A LDA [$01],Y TAX DEY DEY LDA [$01],Y JSL L033477 BEQ L0977EC BRL L097985 L0977EC LDY #$002C LDA [$05],Y LDY #$002C CMP [$01],Y BEQ L0977FB BRL L097985 L0977FB LDY #$0030 LDA [$05],Y PHA DEY DEY LDA [$05],Y PHA LDY #$0030 LDA [$01],Y TAX DEY DEY LDA [$01],Y JSL L033477 BEQ L097819 BRL L097985 L097819 LDA $01 LDX $03 CLC ADC #$0032 BCC L097824 INX L097824 STA $15 STX $17 LDA $05 LDX $07 CLC ADC #$0032 BCC L097833 INX L097833 STA $11 STX $13 PHY PHY LDY #$00B3 LDA [$22],Y PHA DEY DEY LDA [$22],Y PHA JSL L07DF0D PLA PLX SEC SBC #$0032 BCS L097851 DEX L097851 STA $0D STX $0F PHY PEI $17 PEI $15 PEI $13 PEI $11 PEI $0D JSL L070A10 PLA LSR BCS L09786B BRL L097985 L09786B LDY #$00B3 LDA [$22],Y TAX DEY DEY LDA [$22],Y STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] CLC ADC #$000C BCC L097888 INX L097888 STA $19 STX $1B LDA [$19] LDY #$0002 ORA [$19],Y BNE L0978CC LDY #$00BF LDA [$22],Y TAX DEY DEY LDA [$22],Y * STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] CLC ADC #$000C BCC L0978B2 INX L0978B2 STA $19 STX $1B LDA [$19] LDY #$0002 ORA [$19],Y BEQ L0978C4 LDA #$0000 BRA L0978C7 L0978C4 LDA #$0001 L0978C7 STA $26 BRL L097985 L0978CC PHY PHY LDY #$000E LDA [$05],Y PHA DEY DEY LDA [$05],Y PHA PEA $0000 JSL L077264 PLA STA $09 PLX STX $0B LDA $09 ORA $0B BNE L0978EF BRL L097985 L0978EF LDY #$00A7 LDA [$22],Y TAX DEY DEY LDA [$22],Y STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] CLC ADC #$000C BCC L09790C INX L09790C STA $15 STX $17 LDY #$0002 LDA [$09],Y TAX LDA [$09] CLC ADC #$000C BCC L09791F INX L09791F STA $11 STX $13 PHY PHY LDY #$00A7 LDA [$22],Y PHA DEY DEY LDA [$22],Y PHA JSL L07DF0D PLA PLX SEC SBC #$000C BCS L09793D DEX L09793D STA $0D STX $0F PHY PEI $17 PEI $15 PEI $13 PEI $11 PEI $0D JSL L070A10 PLA STA $26 LDY #$00BF LDA [$22],Y TAX DEY DEY LDA [$22],Y STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] CLC ADC #$000C BCC L097970 INX L097970 STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] PHX PHA PEA $0000 JSL L074A5A L097985 LDA $20 STA $24 LDA $1F STA $23 LDA $1D TCD TSC CLC ADC #$0022 TCS RTL L097997 PHD TSC CLC ADC #$FFFC TCS TCD PEA $0010 JSL L0727E0 PHD LDA $0A TCD CLC ADC #$0000 TCS JMPL L0981D6 LDA $08 STA $0E LDA $07 STA $0D LDA $05 TCD TSC CLC ADC #$000C TCS RTL L0979C5 ENT PHD TSC CLC ADC #$FF20 TCS TCD LDA L055051 BEQ L0979D9 JSL L0903A6 BRL L0981FB L0979D9 LDA #$0001 STA L055003 STZ $97 STZ $C9 STZ $CB STZ $BD STZ $BF PHY PHY PEA $1604 JSL L150B1C PLA STA $A1 PLX STX $A3 LDAL L05565D BEQ L097A01 LDA #$0001 L097A01 PHA LDX #$0000 LDA $A3 BMI L097A0D ORA $A1 BNE L097A0E L097A0D INX L097A0E TXA ORA $01,S PLX LSR BCC L097A20 PEA $000A PEA $0000 PHD JSL L097997 L097A20 PHY PHY PEA $1604 JSL L1516BD PLA STA $C5 PLX STX $C7 LDAL L05565D BEQ L097A38 LDA #$0001 L097A38 PHA LDX #$0000 LDA $C5 ORA $C7 BNE L097A43 INX L097A43 TXA ORA $01,S PLX LSR BCC L097A55 PEA $0014 PEA $0000 PHD JSL L097997 L097A55 PHY PEI $C7 PEI $C5 JSL L079558 PLA LSR BCC L097A6D PEA $001E PEA $0000 PHD JSL L097997 L097A6D PHY PHY PEI $A3 PEI $A1 PEA $4452 PEA $4143 LDY #$0002 LDA [$C5],Y TAX LDA [$C5] CLC ADC #$0008 BCC L097A88 INX L097A88 STA $DD STX $DF LDY #$0002 LDA [$DD],Y TAX LDA [$DD] PHX PHA JSL L07502A PLA STA $CD PLX STX $CF LDA $CD ORA $CF BNE L097AB1 PEA $0028 PEA $0000 PHD JSL L097997 L097AB1 PHY PHY PEI $CF PEI $CD JSL L0772AE PLA STA $C9 PLX STX $CB LDA $C9 ORA $CB BNE L097AD2 PEA $0032 PEA $0000 PHD JSL L097997 L097AD2 PHY PHY PEA $1606 JSL L150B1C PLA STA $9D PLX STX $9F LDAL L05565D BEQ L097AEA LDA #$0001 L097AEA PHA LDX #$0000 LDA $9D ORA $9F BNE L097AF5 INX L097AF5 TXA ORA $01,S PLX LSR BCC L097B07 PEA $003C PEA $0000 PHD JSL L097997 L097B07 PHY PHY PEA $1606 JSL L1516BD PLA STA $B1 PLX STX $B3 LDAL L05565D BEQ L097B1F LDA #$0001 L097B1F PHA LDX #$0000 LDA $B1 ORA $B3 BNE L097B2A INX L097B2A TXA ORA $01,S PLX LSR BCC L097B3C PEA $0046 PEA $0000 PHD JSL L097997 L097B3C PHY PEI $B3 PEI $B1 JSL L07947E PLA LSR BCC L097B54 PEA $0050 PEA $0000 PHD JSL L097997 L097B54 PHY PHY PEA $1607 JSL L150B1C PLA STA $99 PLX STX $9B LDX #$0000 LDAL L05565D BNE L097B6D INX L097B6D PHX LDX #$0000 LDA $9B BMI L097B7A ORA $99 BEQ L097B7A INX L097B7A TXA AND $01,S PLX LSR BCC L097BE8 PHY PHY PEA $1607 JSL L1516BD PLA STA $A5 PLX STX $A7 LDAL L05565D BEQ L097B99 LDA #$0001 L097B99 PHA LDX #$0000 LDA $A5 ORA $A7 BNE L097BA4 INX L097BA4 TXA ORA $01,S PLX LSR BCC L097BB6 PEA $005A PEA $0000 PHD JSL L097997 L097BB6 LDY #$0002 LDA [$A5],Y TAX LDA [$A5] CLC ADC #$0004 BCC L097BC5 INX L097BC5 STA $DD STX $DF LDA #$4D42 LDX #$5041 CMP [$DD] BNE L097BD9 LDY #$0002 TXA CMP [$DD],Y L097BD9 BEQ L097BE6 PEA $005F PEA $0000 PHD JSL L097997 L097BE6 BRA L097BEC L097BE8 STZ $99 STZ $9B L097BEC LDA L05501F LDX L055021 STA $D9 STX $DB STZ $C1 STZ $C3 L097BFA PHY PHY PEI $DB PEI $D9 JSL L07721A PLA STA $BD PLX STX $BF LDA $BD ORA $BF BNE L097C1B PEA $0064 PEA $0000 PHD JSL L097997 L097C1B PHY PEA $0000 PHD JSL L09774C PLA LSR BCC L097C30 LDA $D9 LDX $DB STA $C1 STX $C3 L097C30 LDY #$0002 LDA [$BD],Y TAX LDA [$BD] CLC ADC #$0018 BCC L097C3F INX L097C3F STA $DD STX $DF LDY #$0002 LDA [$DD],Y TAX LDA [$DD] STA $D5 STX $D7 PEI $DB PEI $D9 PEA $0000 JSL L074A24 STZ $BD STZ $BF LDA $D5 LDX $D7 STA $D9 STX $DB LDA $C1 ORA $C3 BEQ L097C6F LDA #$0001 L097C6F PHA LDA L05501F LDX L055021 CMP $D9 BNE L097C7C CPX $DB L097C7C BEQ L097C83 LDA #$0000 BRA L097C86 L097C83 LDA #$0001 L097C86 ORA $01,S PLX LSR BCS L097C8F BRL L097BFA L097C8F LDA $C1 ORA $C3 BEQ L097C98 BRL L097F17 L097C98 PHY PHY PEI $9F PEI $9D PEA $4447 PEA $4B42 LDY #$0002 LDA [$B1],Y TAX LDA [$B1] CLC ADC #$0008 BCC L097CB3 INX L097CB3 STA $DD STX $DF LDY #$0002 LDA [$DD],Y TAX LDA [$DD] PHX PHA JSL L07502A PLA STA $C1 PLX STX $C3 LDA $C1 ORA $C3 BNE L097CDC PEA $006E PEA $0000 PHD JSL L097997 L097CDC PHY PHY PEI $C3 PEI $C1 JSL L07721A PLA STA $BD PLX STX $BF LDA $BD ORA $BF BNE L097CFD PEA $0078 PEA $0000 PHD JSL L097997 L097CFD STZ $AD STZ $AF PEI $9B PEI $99 LDA #$0000 TAX JSL L033477 BPL L097D12 BRL L097DA6 L097D12 BNE L097D17 BRL L097DA6 L097D17 PHY PHY PEI $9B PEI $99 PEA $5041 PEA $4D42 PEA $0000 PEA $0000 JSL L07502A PLA STA $AD PLX STX $AF LDA $AD ORA $AF BNE L097D44 PEA $0082 PEA $0000 PHD JSL L097997 L097D44 PHY PHY PEI $AF PEI $AD PEA $0000 JSL L077264 PLA STA $A9 PLX STX $AB LDA $A9 ORA $AB BNE L097D68 PEA $008C PEA $0000 PHD JSL L097997 L097D68 LDY #$0002 LDA [$A5],Y TAX LDA [$A5] CLC ADC #$000C BCC L097D77 INX L097D77 PHX PHA LDY #$0002 LDA [$A9],Y TAX LDA [$A9] CLC ADC #$000C BCC L097D88 INX L097D88 PHX PHA LDA $99 LDX $9B SEC SBC #$000C BCS L097D95 DEX L097D95 PHX PHA JSL L070597 PEI $AF PEI $AD PEA $0001 JSL L074A5A L097DA6 LDA L05501F LDX L055021 STA $D1 STX $D3 PHY PHY PEI $D3 PEI $D1 JSL L07721A PLA STA $B5 PLX STX $B7 LDA $B5 ORA $B7 BNE L097DD1 PEA $0096 PEA $0000 PHD JSL L097997 L097DD1 LDY #$0002 LDA [$B5],Y TAX LDA [$B5] CLC ADC #$0018 BCC L097DE0 INX L097DE0 STA $DD STX $DF LDY #$0002 LDA [$DD],Y TAX LDA [$DD] STA $D5 STX $D7 PHY PHY PEI $D7 PEI $D5 JSL L07721A PLA STA $B9 PLX STX $BB LDA $B9 ORA $BB BNE L097E1C PEI $D3 PEI $D1 PEA $0000 JSL L074A24 PEA $00A0 PEA $0000 PHD JSL L097997 L097E1C LDY #$0002 LDA [$B5],Y TAX LDA [$B5] CLC ADC #$0018 BCC L097E2B INX L097E2B STA $DD STX $DF LDA $C1 LDX $C3 STA [$DD] TXA LDY #$0002 STA [$DD],Y LDY #$0002 LDA [$B9],Y TAX LDA [$B9] CLC ADC #$001C BCC L097E4A INX L097E4A STA $DD STX $DF LDA $C1 LDX $C3 STA [$DD] TXA LDY #$0002 STA [$DD],Y PEI $D3 PEI $D1 PEA $0001 JSL L074A24 PEI $D7 PEI $D5 PEA $0001 JSL L074A24 LDAL L053AC3 TAX LDAL L053AC1 INC BNE L097E7D INX L097E7D STAL L053AC1 TXA STAL L053AC3 LDA #$0001 STA L05504D LDA #$0001 STA $97 LDY #$0002 LDA [$B1],Y TAX LDA [$B1] CLC ADC #$0010 BCC L097EA0 INX L097EA0 PHX PHA LDY #$0002 LDA [$BD],Y TAX LDA [$BD] CLC ADC #$0010 BCC L097EB1 INX L097EB1 PHX PHA LDA $9D LDX $9F SEC SBC #$0010 BCS L097EBE DEX L097EBE PHX PHA JSL L070597 LDY #$0002 LDA [$BD],Y TAX LDA [$BD] STA $09 STX $0B LDA $AD LDX $AF LDY #$000C STA [$09],Y INY INY TXA STA [$09],Y LDA #$0000 TAX LDY #$0014 STA [$09],Y INY INY TXA STA [$09],Y LDA $D5 LDX $D7 LDY #$0018 STA [$09],Y INY INY TXA STA [$09],Y LDA $D1 LDX $D3 LDY #$001C STA [$09],Y INY INY TXA STA [$09],Y PEI $C3 PEI $C1 PEA $0001 JSL L074A24 STZ $BD STZ $BF L097F17 STZ $AD STZ $AF PHY PHY PEA $1605 JSL L150B1C PLA STA $99 PLX STX $9B LDX #$0000 LDAL L05565D BNE L097F34 INX L097F34 PHX LDX #$0000 LDA $9B BMI L097F41 ORA $99 BEQ L097F41 INX L097F41 TXA AND $01,S PLX LSR BCS L097F4B BRL L09802A L097F4B PHY PHY PEA $1605 JSL L1516BD PLA STA $A5 PLX STX $A7 LDAL L05565D BEQ L097F6B PEA $00AA PEA $0000 PHD JSL L097997 L097F6B LDY #$0002 LDA [$A5],Y TAX LDA [$A5] CLC ADC #$0004 BCC L097F7A INX L097F7A STA $DD STX $DF LDA #$4D42 LDX #$5041 CMP [$DD] BNE L097F8E LDY #$0002 TXA CMP [$DD],Y L097F8E BEQ L097F9B PEA $00B4 PEA $0000 PHD JSL L097997 L097F9B PHY PHY PEI $9B PEI $99 PEA $5041 PEA $4D42 PEA $0000 PEA $0000 JSL L07502A PLA STA $AD PLX STX $AF LDA $AD ORA $AF BNE L097FC8 PEA $00BE PEA $0000 PHD JSL L097997 L097FC8 PHY PHY PEI $AF PEI $AD PEA $0000 JSL L077264 PLA STA $A9 PLX STX $AB LDA $A9 ORA $AB BNE L097FEC PEA $00C8 PEA $0000 PHD JSL L097997 L097FEC LDY #$0002 LDA [$A5],Y TAX LDA [$A5] CLC ADC #$000C BCC L097FFB INX L097FFB PHX PHA LDY #$0002 LDA [$A9],Y TAX LDA [$A9] CLC ADC #$000C BCC L09800C INX L09800C PHX PHA LDA $99 LDX $9B SEC SBC #$000C BCS L098019 DEX L098019 PHX PHA JSL L070597 PEI $AF PEI $AD PEA $0001 JSL L074A5A L09802A TDC CLC ADC #$000F PEA $0000 PHA PEA $0000 PEA $0084 JSL L071EC5 LDA $CD LDX $CF STA $0F STX $11 PHY PHY JSL L07B114 PLA STA $93 PLX STX $95 PHY LDAL L053AD3 PHA LDAL L053AD1 PHA PEI $95 PEI $93 TDC CLC ADC #$000F PEA $0000 PHA JSL L07B2EC PLA LSR BCS L09807C PEA $00D2 PEA $0000 PHD JSL L097997 L09807C LDA $93 LDX $95 INC BNE L098084 INX L098084 STA $93 STX $95 LDY #$0002 LDA [$C5],Y TAX LDA [$C5] CLC ADC #$0010 BCC L098097 INX L098097 PHX PHA LDY #$0002 LDA [$C9],Y TAX LDA [$C9] CLC ADC #$0010 BCC L0980A8 INX L0980A8 PHX PHA LDA $A1 LDX $A3 SEC SBC #$0010 BCS L0980B5 DEX L0980B5 PHX PHA JSL L070597 LDY #$0002 LDA [$C9],Y TAX LDA [$C9] STA $05 STX $07 LDA $AD LDX $AF LDY #$000C STA [$05],Y INY INY TXA STA [$05],Y LDA $C1 LDX $C3 LDY #$0020 STA [$05],Y INY INY TXA STA [$05],Y LDA #$0000 TAX LDY #$0014 STA [$05],Y INY INY TXA STA [$05],Y LDA #$0000 TAX LDY #$0018 STA [$05],Y INY INY TXA STA [$05],Y LDA L055005 LDX L055007 LDY #$001C STA [$05],Y INY INY TXA STA [$05],Y PEI $CF PEI $CD PEA $0001 JSL L074A90 STZ $C9 STZ $CB STZ L055003 LDAL L053ACB TAX LDAL L053AC9 INC BNE L09812E INX L09812E STAL L053AC9 TXA STAL L053ACB LDA #$0001 STA L05504D PHY PHY PEI $C3 PEI $C1 JSL L07721A PLA STA $BD PLX STX $BF LDA $BD ORA $BF BEQ L098186 LDY #$0002 LDA [$BD],Y TAX LDA [$BD] STA $01 STX $03 LDY #$0016 LDA [$01],Y TAX DEY DEY LDA [$01],Y INC BNE L09816D INX L09816D LDY #$0014 STA [$01],Y INY INY TXA STA [$01],Y PEI $C3 PEI $C1 PEA $0001 JSL L074A24 STZ $BD STZ $BF L098186 LDAL L053AD3 PHA LDAL L053AD1 PHA PEI $95 PEI $93 PEA $0001 JSL L07E171 LDAL L053AD3 PHA LDAL L053AD1 PHA LDA $93 LDX $95 INC BNE L0981AD INX L0981AD PHX PHA PEA $0001 JSL L07E171 LDA $97 BEQ L0981C1 LDA #$0002 STA $0D BRA L0981C6 L0981C1 LDA #$0003 STA $0D L0981C6 PEI $CF PEI $CD PEA $0000 PEA $0000 PEI $0D JSL L0968AD L0981D6 LDA $BD ORA $BF BEQ L0981E7 PEI $C3 PEI $C1 PEA $0001 JSL L074A24 L0981E7 LDA $C9 ORA $CB BEQ L0981F8 PEI $CF PEI $CD PEA $0001 JSL L074A90 L0981F8 STZ L055003 L0981FB TSC CLC ADC #$00E0 TCS PLD RTL L098203 PHD TSC CLC ADC #$FFF4 TCS TCD LDA $18 LDX $1A STA $03 STX $05 LDA $16 STA $01 LDA $01 SEC SBC #$0001 BVS L098222 EOR #$8000 L098222 BPL L09826D LDA #$0001 STA $07 L098229 LDY #$0006 LDA [$03],Y PHA DEY DEY LDA [$03],Y PHA LDY #$000C LDA [$12],Y TAX DEY DEY LDA [$12],Y JSL L033477 BNE L098254 LDA L055039 LDX L05503B LDY #$0004 STA [$03],Y INY INY TXA STA [$03],Y L098254 LDA $03 LDX $05 CLC ADC #$0008 BCC L09825F INX L09825F STA $03 STX $05 LDA $07 CMP $01 BEQ L09826D INC $07 BRA L098229 L09826D LDA $10 STA $1A LDA $0F STA $19 LDA $0D TCD TSC CLC ADC #$0018 TCS RTL L09827F ENT PHD TSC CLC ADC #$FFFC TCS TCD PEA ^L0525DA PEA L0525DA PEA $00C8 PEA $0000 PHD JSL L098203 PEA ^L05233C PEA L05233C PEA $0012 PEA $0000 PHD JSL L098203 LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L0982BA PHD TSC CLC ADC #$FFF8 TCS TCD LDA #$0005 CMP [$0E] BEQ L0982CC BRL L098376 L0982CC LDY #$000A LDA [$0E],Y DEC DEC BNE L0982DC LDA #$0001 STA $03 BRA L0982EE L0982DC LDY #$000A LDA [$0E],Y DEC BNE L0982EB LDA #$FFFF STA $03 BRA L0982EE L0982EB BRL L098376 L0982EE LDA L0551E3 STA $01 L0982F3 LDA $03 CLC ADC $01 STA $01 LDA $01 SEC SBC #$0001 BVS L098305 EOR #$8000 L098305 BMI L09830C LDA #$00C8 STA $01 L09830C LDA $01 SEC SBC #$00C8 BEQ L098320 BVS L098319 EOR #$8000 L098319 BPL L098320 LDA #$0001 STA $01 L098320 LDA $01 DEC ASL ASL ASL TAX LDAL L0525DA,X ORAL L0525DC,X BEQ L098334 LDA #$0001 L098334 PHA LDX #$0000 LDA L0551E3 CMP $01 BNE L098340 INX L098340 TXA ORA $01,S PLX LSR BCC L0982F3 LDA $01 DEC ASL ASL ASL TAX TXA CLC ADC #L0525DA LDX #^L0525DA BCC L098359 INX L098359 CLC ADC #$0004 BCC L098360 INX L098360 STA $05 STX $07 LDY #$0002 LDA [$05],Y TAX LDA [$05] LDY #$0058 STA [$0E],Y INY INY TXA STA [$0E],Y L098376 LDA $0C STA $10 LDA $0B STA $0F LDA $09 TCD TSC CLC ADC #$000E TCS RTL L098388 PHD TSC CLC ADC #$FFE0 TCS TCD LDA $2C SEC SBC #$0001 BVS L09839B EOR #$8000 L09839B BPL L0983A2 LDA #$0000 BRA L0983A5 L0983A2 LDA #$0001 L0983A5 PHA LDA $2C SEC SBC #$0020 BEQ L0983B5 BVS L0983B3 EOR #$8000 L0983B3 BMI L0983BA L0983B5 LDA #$0000 BRA L0983BD L0983BA LDA #$0001 L0983BD ORA $01,S PLX LSR BCC L0983C6 BRL L09857D L0983C6 PHY PHY JSL L150493 PLA STA $0D PLX STX $0F LDY #$001A LDA [$0D],Y TAX DEY DEY LDA [$0D],Y STA $05 STX $07 PHY PHY JSL L150BB2 PLA STA $09 PLX STX $0B LDY #$0002 LDA [$09],Y TAX LDA [$09] CLC ADC #$0002 BCC L0983FB INX L0983FB STA $01 STX $03 LDY #$002C LDA [$26],Y TAX DEY DEY LDA [$26],Y CLC ADC #$0002 BCC L098410 INX L098410 STA $1D STX $1F LDA [$1D] LDY #$0002 STA [$01],Y LDY #$002C LDA [$26],Y TAX DEY DEY LDA [$26],Y STA $1D STX $1F LDA [$1D] STA [$01] LDY #$0002 LDA #$006F CLC ADC [$01],Y LDY #$0006 STA [$01],Y LDA #$004F CLC ADC [$01] LDY #$0004 STA [$01],Y LDA $09 LDX $0B LDY #$0018 STA [$0D],Y INY INY TXA STA [$0D],Y LDA $2C DEC PHA PEA $0008 JSL L150318 PLX PLX STA $11 LDA $2C DEC PHA PEA $0008 JSL L1500F5 PLX PLX STA $13 LDY #$002C LDA [$26],Y TAX DEY DEY LDA [$26],Y CLC ADC #$0002 BCC L098483 INX L098483 STA $1D STX $1F LDA $13 PEA $001C JSL L150BEE PLA CLC ADC [$1D] STA $17 LDY #$002C LDA [$26],Y TAX DEY DEY LDA [$26],Y STA $1D STX $1F LDA $11 PEA $000A JSL L150BEE PLA CLC ADC [$1D] STA $15 LDA #$001C CLC ADC $17 DEC DEC STA $1B LDA #$000A CLC ADC $15 DEC STA $19 LDA $2A BEQ L098501 JSL L1510A1 PEA $8002 JSL L150BD6 PEA $0004 PEA $0002 JSL L151083 TDC CLC ADC #$0015 PEA $0000 PHA PEA $FFFE PEA $FFFF JSL L151005 TDC CLC ADC #$0015 PEA $0000 PHA JSL L151418 BRA L098567 L098501 JSL L1510A1 TDC CLC ADC #$0015 PEA $0000 PHA PEA $FFFA PEA $FFFD JSL L151005 PEA $0002 PEA $0001 JSL L151083 PEA $0000 JSL L081DD8 TDC CLC ADC #$0015 PEA $0000 PHA JSL L151418 TDC CLC ADC #$0015 PEA $0000 PHA PEA $0002 PEA $0001 JSL L151005 PEA $0002 PEA $0001 JSL L151083 PEA $FFFF JSL L081DD8 TDC CLC ADC #$0015 PEA $0000 PHA JSL L151418 L098567 PEI $0B PEI $09 JSL L151669 LDA $05 LDX $07 LDY #$0018 STA [$0D],Y INY INY TXA STA [$0D],Y L09857D LDA $24 STA $2C LDA $23 STA $2B LDA $21 TCD TSC CLC ADC #$002A TCS RTL L09858F ENT PHD TSC CLC ADC #$FFE2 TCS TCD PHY JSL L071BFF PLA STA $19 LDA $32 BPL L0985A6 BRL L098724 L0985A6 CMP #$0006 BMI L0985AE BRL L098724 L0985AE ASL TAX LDAL L0985B6,X PHA RTS L0985B6 DA L0985C2-1 DA L098610-1 DA L0986A0-1 DA L0986CC-1 DA L0986D0-1 DA L09871A-1 L0985C2 LDA L05512F BEQ L0985CB JSL L083A3C L0985CB PHY PHY JSL L150493 PLA STA $15 PLX STX $17 PEA ^L0531D9 PEA L0531D9 PEI $17 PEI $15 PEA ^L0531E1 PEA L0531E1 PEI $2C PEI $2A PEA $0000 PEA $0000 PEA $0000 JSL L1505E6 LDA L0550B5 PHA PEA $0000 PEA $0000 PHD JSL L098388 STZ L055165 STZ L05516B BRL L098724 L098610 STZ $34 LDA $28 STA $0B LDA $26 STA $09 PHY TDC CLC ADC #$0009 PEA $0000 PHA PEI $2C PEI $2A JSL L1512CB PLA LSR BCC L09868E LDA $09 SEC SBC [$2A] PHA PEA $000A JSL L1500F5 PLX PLX STA $0F LDA $0B LDY #$0002 SEC SBC [$2A],Y PHA PEA $001C JSL L1500F5 PLX PLX STA $11 LDA $0F INC PHA LDA $11 ASL ASL ASL STA $1B PLA CLC ADC $1B ORA #$8000 STA $34 LDA L05516B BEQ L09868C LDA L05516B PHA PEA $0001 PEA $0000 PHD JSL L098388 LDA L05516B PHA PEA $0001 PEA $0000 PHD JSL L098388 L09868C BRA L09869D L09868E PEI $2C PEI $2A PEI $0B PEI $09 PEA $044C JSL L09A984 L09869D BRL L098724 L0986A0 LDY #$0002 LDA [$2E],Y TAX LDA [$2E] STA $01 STX $03 LDY #$0002 LDA [$01],Y BNE L0986BB LDA #$0073 LDY #$0002 STA [$01],Y L0986BB LDY #$0004 LDA [$01],Y BNE L0986CA LDA #$0051 LDY #$0004 STA [$01],Y L0986CA BRA L098724 L0986CC STZ $34 BRA L098724 L0986D0 LDA #$7FFF AND $24 PHA PHY PEA $0000 JSL L150580 PLA ORA L055165 PHA PEA $0000 PHD JSL L098388 LDX #$0000 LDA $24 BPL L0986F3 INX L0986F3 TXA PHA PHY PEA $0000 JSL L150580 PLA STA $1B PLA AND $1B STA L055165 LDA L055165 BEQ L098715 LDA #$7FFF AND $24 STA L05516B BRA L098724 ; WAS L098718 L098715 STZ L05516B BRA L098724 L09871A LDA #$044C CLC ADC $24 STA $34 BRA L098724 L098724 PEI $19 JSL L071AA4 LDA $22 STA $32 LDA $21 STA $31 LDA $1F TCD TSC CLC ADC #$0030 TCS RTL L09873C ENT PHD TSC CLC ADC #$FDF0 TCS ADC #$011D TCD PEA $0000 TDC CLC ADC #$FFE3 PHA PEI $FA PEI $F8 PEA $0100 JSL L0313BE PHY PHY JSL L150493 PLA STA $EB PLX STX $ED LDA L0550E1 LDX L0550E3 PHX PHA JSL L151131 JSL L090A71 PHA PEA $0000 TDC CLC ADC #$FFE3 PHA PEA $0000 TDC CLC ADC #$FEE3 PHA JSL L094153 JSL L150434 PLA LSR BCC L0987E1 PHY PHY PEA $0000 TDC CLC ADC #$FFE3 PHA JSL L071F3F PLA STA $E7 PLX STX $E9 LDA $E7 LDX $E9 STA $E3 STX $E5 TDC CLC ADC #$00E3 PEA $0000 PHA JSL L071B83 PEI $E9 PEI $E7 PEI $E5 PEI $E3 LDA $E7 LDX $E9 JSL L1512A5 PHA LDA L055111 LDX L055113 PHX PHA JSL L151651 JSL L09B1FE L0987E1 LDA L0550C5 LDX L0550C7 CLC ADC #$00CE BCC L0987EE INX L0987EE STA $EF STX $F1 LDA #$0020 AND [$EF] BNE L098805 LDA L0550E1 LDX L0550E3 PHX PHA JSL L09A5A7 L098805 STZ L0551F1 PEI $ED PEI $EB JSL L151131 LDA $F6 STA $FA LDA $F5 STA $F9 LDA $F3 TCD TSC CLC ADC #$0216 TCS RTL L098822 ENT PHD TSC CLC ADC #$FFFC TCS TCD PEA $0000 PEA $000F LDA L05515D LDX L05515F PHX PHA JSL L1510E3 PEA $0000 PEA $0006 LDA L054FAD LDX L054FAF PHX PHA JSL L1510E3 PLY PLY PLD RTL L098852 ENT PHD TSC CLC ADC #$FF9E TCS TCD LDA #$0002 STA $01 LDA L055279 LDX L05527B STA $07 STX $09 LDA #$0006 STA $2D LDA L05502B LDX L05502D STA $59 STX $5B PHY TDC CLC ADC #$0001 PEA $0000 PHA PEI $68 JSL L096479 PLA LSR BCS L0988A9 LDA #$0001 LDX #$0000 STA $07 STX $09 PHY TDC CLC ADC #$0001 PEA $0000 PHA PEI $68 JSL L096479 PLA STA $5D L0988A9 LDA $66 STA $68 LDA $65 STA $67 LDA $63 TCD TSC CLC ADC #$0066 TCS RTL L0988BB ENT PHD TSC CLC ADC #$FEE0 TCS ADC #$002D TCD LDA #$0001 STA $FC LDA $F8 ORA $FA BNE L0988D4 BRL L098A65 L0988D4 PHY PEI $FA PEI $F8 LDA L055035 LDX L055037 PHX PHA JSL L071330 PLA LSR BCC L098922 PHY LDA L055043 LDX L055045 PHX PHA LDA L055035 LDX L055037 PHX PHA JSL L071330 PLA BEQ L09891D PHA PHY LDA L05503F LDX L055041 PHX PHA LDA L055031 LDX L055033 PHX PHA JSL L071330 PLA STA $EF PLA AND $EF L09891D STA $FC BRL L098A65 L098922 STZ $EB STZ $ED STZ $DB STZ $DD PEI $FA PEI $F8 TDC CLC ADC #$00E3 PEA $0000 PHA TDC CLC ADC #$00DF PEA $0000 PHA JSL L07869F PHY PEI $E1 PEI $DF LDA L055043 LDX L055045 PHX PHA JSL L071330 PLA LSR BCS L09895C BRL L098A43 L09895C LDA $E3 ORA $E5 BNE L098965 BRL L098A45 L098965 PHY PHY LDA L05503F LDX L055041 PHX PHA LDA L055043 LDX L055045 PHX PHA JSL L072B9F PLA STA $DB PLX STX $DD PHY PEI $FA PEI $F8 PEI $DD PEI $DB JSL L071330 PLA LSR BCC L098995 BRL L098A45 L098995 PHY PHY PEA ^L04096F PEA L04096F JSL L0B88AC PLA STA $EB PLX STX $ED PEI $ED PEI $EB JSL L0718BF LDY #$0002 LDA [$EB],Y TAX LDA [$EB] STA $E7 STX $E9 TDC CLC ADC #$00E7 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FFD3 PHA JSL L0712B0 L0989D1 LDA #$00FF LDX #$FFD3 AND $00,X SEC SBC #$0000 BMI L098A43 BEQ L098A43 PHY PHY PEA $0000 TDC CLC ADC #$FFD3 PHA JSL L0735A8 PLA STA $D3 PLX STX $D5 PHY PHY PEI $D5 PEI $D3 PEI $FA PEI $F8 JSL L072B9F PLA STA $D7 PLX STX $D9 PEI $D5 PEI $D3 JSL L07185A PHY PEI $D9 PEI $D7 PEI $DD PEI $DB JSL L071330 PLA LSR BCS L098A45 PEI $D9 PEI $D7 JSL L07185A TDC CLC ADC #$00E7 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FFD3 PHA JSL L0712B0 BRA L0989D1 L098A43 STZ $FC L098A45 PEI $ED PEI $EB PEI $DD PEI $DB JSL L071825 PEI $E5 PEI $E3 PEI $E1 PEI $DF JSL L071825 PEI $D9 PEI $D7 JSL L07185A L098A65 LDA $F6 STA $FA LDA $F5 STA $F9 LDA $F3 TCD TSC CLC ADC #$0126 TCS RTL L098A77 PHD TSC CLC ADC #$FFE8 TCS TCD LDX #$0000 LDA $24 BNE L098A87 INX L098A87 PHX LDX #$0000 LDA #$004C CMP $24 BNE L098A93 INX L098A93 TXA ORA $01,S PLX LSR BCC L098A9D BRL L098B1F L098A9D PEI $22 JSL L075A4F LDY #$00EB LDA [$1E],Y TAX DEY DEY LDA [$1E],Y STA $15 STX $17 LDY #$0002 LDA [$15],Y TAX LDA [$15] PHX PHA JSL L075B09 LDY #$00D3 LDA [$1E],Y BEQ L098B0B LDA #$0048 CMP $24 BNE L098AD6 PEA $000C JSL L0727E0 BRA L098B0B L098AD6 PEA $0000 TDC CLC ADC #$0001 PHA LDA $24 JSL L150488 PHX PHA PEA $0002 JSL L07334A PEA ^L040976 PEA L040976 PEA ^L040977 PEA L040977 PEA ^L040978 PEA L040978 JSL L073C22 PEA $0045 JSL L0727E0 L098B0B LDA $24 LDY #$00FC STA [$1E],Y PHD LDA $1E TCD CLC ADC #$FA4E TCS JMPL L099152 L098B1F LDA $1C STA $24 LDA $1B STA $23 LDA $19 TCD TSC CLC ADC #$0022 TCS RTL L098B31 ENT PHD TSC CLC ADC #$F95E TCS ADC #$05B1 TCD PEA $0000 TDC CLC ADC #$FF4F PHA PEI $FA PEI $F8 PEA $0100 JSL L0313BE STZ $FC LDA #$0001 STA $D3 LDA L054FA1 STA $BD STZ $CB STZ $CD L098B60 STZ $D5 LDA #$00FF LDX #$FF4F AND $00,X BNE L098BDF PHY PHY PEA $0000 TDC CLC ADC #$FD4F PHA PEA $0018 JSL L073002 PEA $0000 TDC CLC ADC #$FC4F PHA PEA $0023 JSL L073002 PEA $0000 TDC CLC ADC #$FB4F PHA LDA L055043 LDX L055045 PHX PHA JSL L072CD4 PEA $0000 TDC CLC ADC #$FA4F PHA PEA $0024 JSL L073002 PEA $0000 TDC CLC ADC #$FE4F PHA PEA $0003 JSL L1509CE PEA $0000 JSL L093CCE PLA STA $E9 PLX STX $EB JSL L09AFB1 LDA $E9 ORA $EB BNE L098BDD BRL L099152 L098BDD BRA L098BFF L098BDF JSL L09999B PHY PHY PEA $0000 TDC CLC ADC #$FF4F PHA PEA $0000 JSL L0730BE PLA STA $E9 PLX STX $EB LDA $F6 STA $D3 L098BFF LDA $E9 ORA $EB BNE L098C18 LDA $D3 BEQ L098C10 PEA $000D JSL L0727E0 L098C10 LDA #$0040 STA $FC BRL L099152 L098C18 PEI $EB PEI $E9 JSL L0718BF JSL L0903F2 PEA $0001 PEA $0001 JSL L090000 PHY PHY LDA L055047 PHA JSL L075B7B PLA STA $E5 PLX STX $E7 LDA L05503D BEQ L098C5A PHY PHY PHY LDA L05503D PHA JSL L151065 JSL L075B7B PLA STA $E1 PLX STX $E3 BRA L098C5E L098C5A STZ $E1 STZ $E3 L098C5E PHY PHY PEI $EB PEI $E9 JSL L0752E6 PLA STA $DD PLX STX $DF LDAL L05565D BEQ L098C88 LDA $D3 BEQ L098C7F PEA $000D JSL L0727E0 L098C7F LDAL L05565D STA $FC BRL L098D09 L098C88 TDC CLC ADC #$0089 PEA $0000 PHA PEA $0000 PEA $0034 JSL L071EC5 LDA #$000B STA $89 LDY #$0002 LDA [$E9],Y TAX LDA [$E9] STA $8B STX $8D TDC CLC ADC #$0089 PEA $0000 PHA PEA $2006 JSL GSOS2 STAL L05565D LDAL L05565D BNE L098CDE LDA $DD LDX $DF PEI $AF PEI $AD JSL L150F53 PEI $B7 PEI $B5 JSL L150F53 STA $DD STX $DF L098CDE PEI $DF PEI $DD LDA $E5 LDX $E7 PEI $E3 PEI $E1 JSL L150F53 JSL L033477 BVS L098CF7 EOR #$8000 L098CF7 BMI L098D1E LDA $D3 BEQ L098D04 PEA $000C JSL L0727E0 L098D04 LDA #$0048 STA $FC L098D09 PHY PEA $FFFF PEA $0000 JSL L150B28 PLA STA $C9 JSL L09AFB1 BRL L098E56 L098D1E LDY #$0002 LDA [$E9],Y PHA LDA [$E9] PHA JSL L075B09 LDY #$0002 LDA [$E9],Y PHA LDA [$E9] PHA PEA $0055 PEA $0000 PEA $0001 PEA $0005 PEI $E7 PEI $E5 PEI $E3 PEI $E1 JSL L075A86 LDA #$0048 CMPL L05565D BNE L098D7A LDA $D3 BEQ L098D60 PEA $000C JSL L0727E0 L098D60 PHY PEA $FFFF PEA $0000 JSL L150B28 PLA STA $C9 JSL L09AFB1 LDA #$0048 STA $FC BRL L098E56 L098D7A LDAL L05565D BEQ L098D83 BRL L098E2F L098D83 LDA #$0005 STA $4F LDY #$0002 LDA [$E9],Y TAX LDA [$E9] STA $53 STX $55 STZ $57 STZ $59 TDC CLC ADC #$004F PEA $0000 PHA PEA $2010 JSL GSOS2 STAL L05565D LDA $51 STA $DB LDX #$0000 LDAL L05565D BNE L098DBA INX L098DBA PHX LDA #$0002 AND $5B BEQ L098DC5 LDA #$0001 L098DC5 AND $01,S PLX LSR BCC L098E2F LDA #$0005 STA $4F LDY #$0002 LDA [$E9],Y TAX LDA [$E9] STA $53 STX $55 STZ $57 LDA #$0001 STA $59 TDC CLC ADC #$004F PEA $0000 PHA PEA $2010 JSL GSOS2 STAL L05565D LDA $51 STA $D9 LDX #$0000 LDAL L05565D BNE L098E05 INX L098E05 PHX LDA #$0002 AND $5B BEQ L098E10 LDA #$0001 L098E10 AND $01,S PLX LSR BCC L098E1D LDA #$0001 STA $D5 BRA L098E2F L098E1D LDAL L05565D BNE L098E29 PEI $D9 JSL L075A4F L098E29 PEI $DB JSL L075A4F L098E2F LDA $D5 BNE L098E56 LDA $D3 BEQ L098E3E PEA $000D JSL L0727E0 L098E3E LDAL L05565D STA $FC PHY PEA $FFFF PEA $0000 JSL L150B28 PLA STA $C9 JSL L09AFB1 L098E56 LDA $D5 EOR #$0001 PHA LDA $D3 EOR #$0001 ORA $F6 AND $01,S PLX LSR BCC L098E6C BRL L099152 L098E6C LDA $D5 BNE L098E73 BRL L098B60 L098E73 JSL L072328 PEA $0000 JSL L07479E LDA $E5 LDX $E7 STA $CF STX $D1 PEI $E3 PEI $E1 LDA $CF LDX $D1 JSL L033477 BEQ L098EA3 BVS L098E99 EOR #$8000 L098E99 BPL L098EA3 LDA $E1 LDX $E3 STA $CF STX $D1 L098EA3 PHY PHY JSL L15042E LDA $CF LDX $D1 CLC ADC #$4000 BCC L098EB4 INX L098EB4 JSL L033477 BVS L098EBD EOR #$8000 L098EBD BMI L098ECA JSL L15059E PEA $0000 JSL L15000C L098ECA PHY PHY JSL L15042E LDA $CF LDX $D1 CLC ADC #$4000 BCC L098EDB INX L098EDB JSL L033477 BVS L098EE4 EOR #$8000 L098EE4 BMI L098EF9 PHY PHY JSL L15042E PLA PLX SEC SBC #$4000 BCS L098EF5 DEX L098EF5 STA $CF STX $D1 L098EF9 PEI $D1 PEI $CF LDA #$0400 LDX #$0000 JSL L033477 BVS L098F0C EOR #$8000 L098F0C BMI L098F18 PEA $0035 JSL L0727E0 BRL L099152 L098F18 PHY PHY PEI $D1 PEI $CF PEA $FFFF PEA $FC00 JSL L15017E PLA STA $CF PLX STX $D1 PHY PHY PEI $D1 PEI $CF LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $CB PLX STX $CD LDAL L05565D BEQ L098F58 PEA $0DA0 JSL L07272E L098F58 LDA L055047 PHA PEA $0000 PEA $0000 JSL L075E14 PEI $DB PEA $0000 PEA $0000 JSL L075E14 STZ $C1 STZ $C3 L098F76 JSL L072328 PHY PHY LDA L055047 PHA LDY #$0002 LDA [$CB],Y PHA LDA [$CB] PHA PEI $D1 PEI $CF PEA $0000 JSL L075D80 PLA STA $C5 PLX STX $C7 JSL L072328 PHY PHY PEI $DB LDY #$0002 LDA [$CB],Y PHA LDA [$CB] PHA PEI $C7 PEI $C5 PEA $0000 JSL L075E55 PLA STA $C5 PLX STX $C7 LDA $C1 LDX $C3 PEI $C7 PEI $C5 JSL L150F53 STA $C1 STX $C3 LDAL L05565D BEQ L098FD5 LDA #$0001 L098FD5 PHA LDA $E5 LDX $E7 CMP $C1 BNE L098FE0 CPX $C3 L098FE0 BEQ L098FE7 LDA #$0000 BRA L098FEA L098FE7 LDA #$0001 L098FEA ORA $01,S PLX LSR BCC L098F76 LDAL L05565D PHA PEI $DB PEA $0000 PHD JSL L098A77 PEI $DB PEI $E7 PEI $E5 JSL L075DD3 PEI $DB JSL L075A4F LDA L05503D BNE L099017 BRL L0990C6 L099017 PHY LDA L05503D PHA JSL L151065 PLA STA $D7 PEI $D7 PEA $0000 PEA $0000 JSL L075E14 PEI $D9 PEA $0000 PEA $0000 JSL L075E14 STZ $C1 STZ $C3 L09903F JSL L072328 PHY PHY PEI $D7 LDY #$0002 LDA [$CB],Y PHA LDA [$CB] PHA PEI $D1 PEI $CF PEA $0000 JSL L075D80 PLA STA $C5 PLX STX $C7 JSL L072328 PHY PHY PEI $D9 LDY #$0002 LDA [$CB],Y PHA LDA [$CB] PHA PEI $C7 PEI $C5 PEA $0000 JSL L075E55 PLA STA $C5 PLX STX $C7 LDA $C1 LDX $C3 PEI $C7 PEI $C5 JSL L150F53 STA $C1 STX $C3 LDAL L05565D BEQ L09909C LDA #$0001 L09909C PHA LDA $E1 LDX $E3 CMP $C1 BNE L0990A7 CPX $C3 L0990A7 BEQ L0990AE LDA #$0000 BRA L0990B1 L0990AE LDA #$0001 L0990B1 ORA $01,S PLX LSR BCC L09903F LDAL L05565D PHA PEI $D9 PEA $0000 PHD JSL L098A77 L0990C6 PEI $D9 PEI $E3 PEI $E1 JSL L075DD3 PEI $D9 JSL L075A4F PEA $0000 LDA L05503F LDX L055041 PHX PHA JSL L077086 LDA #$0007 STA $89 LDA L055043 LDX L055045 STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] STA $8B STX $8D TDC CLC ADC #$0089 PEA $0000 PHA PEA $2006 JSL GSOS2 STAL L05565D LDA #$0005 STA $89 LDY #$0002 LDA [$E9],Y TAX LDA [$E9] STA $8B STX $8D TDC CLC ADC #$0089 PEA $0000 PHA PEA $2006 JSL GSOS2 STAL L05565D LDA #$0007 STA $89 TDC CLC ADC #$0089 PEA $0000 PHA PEA $2005 JSL GSOS2 STAL L05565D L099152 PEI $CD PEI $CB PEI $EB PEI $E9 JSL L071825 PEI $BD JSL L0724F7 LDA $F4 STA $FA LDA $F3 STA $F9 LDA $F1 TCD TSC CLC ADC #$06AA TCS RTL L099176 ENT PHD TSC CLC ADC #$FFFC TCS TCD PEA $0007 JSL L0998B0 PEA $0006 JSL L0998B0 PEA $0005 JSL L0998B0 PEI $0A JSL L0998B0 LDA $08 STA $0A LDA $07 STA $09 LDA $05 TCD PLY PLY PLY PLY RTL L0991A9 ENT PHD TSC CLC ADC #$FFF8 TCS TCD LDA L0551F3 BEQ L0991F0 LDA L055111 LDX L055113 STA $05 STX $07 LDY #$0002 LDA [$05],Y TAX LDA [$05] STA $01 STX $03 LDX #$0000 LDY #$0020 LDA [$01],Y CMP $12 BNE L0991D9 INX L0991D9 PHX LDX #$0000 LDY #$0022 LDA [$01],Y CMP $0E BNE L0991E7 INX L0991E7 TXA AND $01,S PLX LSR BCC L0991F0 BRA L099231 L0991F0 LDA L0551F3 BNE L0991F9 JSL L0952F7 L0991F9 LDA L0550C5 LDX L0550C7 CLC ADC #$00CE BCC L099206 INX L099206 STA $05 STX $07 LDA #$0020 AND [$05] BNE L09921D LDA L0550E1 LDX L0550E3 PHX PHA JSL L09A5A7 L09921D PEI $12 PEI $0E LDA L055111 LDX L055113 PHX PHA JSL L1512D1 JSL L097700 L099231 LDA $0C STA $14 LDA $0B STA $13 LDA $09 TCD TSC CLC ADC #$0012 TCS RTL L099243 ENT PHD TSC CLC ADC #$FFD0 TCS TCD LDA L0551FB SEC SBC #$0004 BVS L099257 EOR #$8000 L099257 BMI L09925C BRL L09933B L09925C LDA L055027 LDX L055029 CMP $38 BNE L099268 CPX $3A L099268 BEQ L09926F LDA #$0000 BRA L099272 L09926F LDA #$0001 L099272 PHA LDA L05501F LDX L055021 CMP $38 BNE L09927F CPX $3A L09927F BEQ L099286 LDA #$0000 BRA L099289 L099286 LDA #$0001 L099289 ORA $01,S PLX PHA PHY PEI $3A PEI $38 PEI $36 TDC CLC ADC #$0003 PEA $0000 PHA JSL L07ABAE PLA STA $2D PLA AND $2D PHA LDX #$0000 LDA $07 BMI L0992B0 INX L0992B0 TXA AND $01,S PLX LSR BCS L0992BA BRL L09933B L0992BA LDA #$0002 STA $01 LDA #$000F AND $07 DEC DEC BNE L0992CD LDA #$0003 STA $01 L0992CD LDA L0550BB CMP $01 BEQ L0992DA PEI $01 JSL L090635 L0992DA PEA ^L052D32 PEA L052D32 TDC CLC ADC #$0003 PEA $0000 PHA PEA $002A JSL L0313BE LDA $38 LDX $3A STA L0551F5 STX L0551F7 PEA ^L052D38 PEA L052D38 PEA ^L0532BD PEA L0532BD JSL L081E14 PEA ^L05312F PEA L05312F JSL L151131 PEA ^L052D38 PEA L052D38 PEA ^L0532BD PEA L0532BD JSL L081E14 JSL L085DC0 PEA ^L0532BD PEA L0532BD PEA ^L053259 PEA L053259 PEA $0008 JSL L0313BE L09933B LDA $34 STA $3A LDA $33 STA $39 LDA $31 TCD TSC CLC ADC #$0038 TCS RTL L09934D ENT PHD TSC CLC ADC #$FFB8 TCS TCD LDA L055027 LDX L055029 CMP $58 BNE L099361 CPX $5A L099361 BEQ L099368 LDA #$0000 BRA L09936B L099368 LDA #$0001 L09936B PHA LDA L05501F LDX L055021 CMP $58 BNE L099378 CPX $5A L099378 BEQ L09937F LDA #$0000 BRA L099382 L09937F LDA #$0001 L099382 ORA $01,S PLX LSR BCS L09938B BRL L09950C L09938B PHY PEI $5A PEI $58 PEI $56 TDC CLC ADC #$0015 PEA $0000 PHA JSL L07ABAE PLA LSR BCS L0993A6 BRL L09950C L0993A6 LDA $19 BPL L0993AD BRL L09950C L0993AD JSL L090A71 LDA L0550BB DEC BEQ L0993BE PEA $0001 JSL L090635 L0993BE PHY JSL L095FB4 PLA LSR BCS L0993CA BRL L099505 L0993CA LDA L055129 LDX L05512B STA $41 STX $43 LDAL L05328D STA $3F PEI $5A PEI $58 PEI $56 PEA $0001 JSL L1412EE PEI $54 PEI $52 PEI $50 PEI $4E LDA L055121 LDX L055123 PHX PHA JSL L150006 JSL L0879C5 LDA $41 LDX $43 CMP $58 BNE L099409 CPX $5A L099409 BNE L099410 LDA #$0000 BRA L099413 L099410 LDA #$0001 L099413 PHA LDX #$0000 LDA $3F CMP $56 BEQ L09941E INX L09941E TXA ORA $01,S PLX LSR BCC L09944B LDA #$0001 STA L05511D PEA ^L053291 PEA L053291 TDC CLC ADC #$000D PEA $0000 PHA JSL L0808E0 TDC CLC ADC #$000D PEA $0000 PHA JSL L085216 L09944B LDA L055121 LDX L055123 STA $45 STX $47 LDY #$0002 LDA [$45],Y TAX LDA [$45] STA $09 STX $0B LDA #$0010 CLC ADC $09 LDX $0B BCC L09946C INX L09946C STA $45 STX $47 LDY #$0010 LDA #$00FF AND [$09],Y AND #$007F SEP #$20 STA [$45] REP #$20 LDA L0550ED LDX L0550EF PHX PHA JSL L151131 LDA L055121 LDX L055123 PHX PHA JSL L150BCA LDA L055121 LDX L055123 STA $45 STX $47 LDY #$0002 LDA [$45],Y TAX LDA [$45] STA $05 STX $07 LDY #$0092 LDA [$05],Y INY INY ORA [$05],Y BEQ L099503 LDY #$0094 LDA [$05],Y TAX DEY DEY LDA [$05],Y STA $45 STX $47 LDY #$0002 LDA [$45],Y TAX LDA [$45] STA $01 STX $03 LDA #$0010 CLC ADC $01 LDX $03 BCC L0994DF INX L0994DF STA $45 STX $47 LDY #$0010 LDA #$00FF AND [$01],Y AND #$007F SEP #$20 STA [$45] REP #$20 LDY #$0094 LDA [$05],Y PHA DEY DEY LDA [$05],Y PHA JSL L151041 L099503 BRA L09950C L099505 PEA $0041 JSL L0727E0 L09950C LDA $4C STA $5A LDA $4B STA $59 LDA $49 TCD TSC CLC ADC #$0058 TCS RTL L09951E ENT PHD TSC CLC ADC #$FFC6 TCS TCD LDA #$0001 STA $40 LDAL L052D72 AND #$1000 BEQ L099574 PEA ^L052406 PEA L052406 PEA ^L040979 PEA L040979 PEA $0000 TDC CLC ADC #$0001 PHA LDA L055225 JSL L150488 PHX PHA JSL L07346C TDC CLC ADC #$0015 PEA $0000 PHA PEA $0002 JSL L1509CE PEA $001F JSL L0313BE JSL L0B8B50 BRL L099713 L099574 LDA L055227 SEC SBC #$003D BVS L099580 EOR #$8000 L099580 BMI L099587 LDA #$0000 BRA L09958A L099587 LDA #$0001 L09958A PHA LDA L055227 SEC SBC #$004B BEQ L0995A0 BVS L099599 EOR #$8000 L099599 BPL L0995A0 LDA #$0000 BRA L0995A3 L0995A0 LDA #$0001 L0995A3 AND $01,S PLX LSR BCC L0995EE PEA ^L052406 PEA L052406 PEA ^L040985 PEA L040985 PEA $0000 TDC CLC ADC #$0001 PHA LDA L055227 INC SEC SBC #$003D JSL L150488 PHX PHA JSL L07346C TDC CLC ADC #$0015 PEA $0000 PHA PEA $0002 JSL L1509CE PEA $0020 JSL L0313BE JSL L0B8B50 BRL L099713 L0995EE LDA #$0035 CMP L055227 BNE L099603 PEA $0004 PEA $025B JSL L09971B BRL L099713 L099603 LDA #$0036 CMP L055227 BNE L099618 PEA $0004 PEA $025A JSL L09971B BRL L099713 L099618 LDA #$0037 CMP L055227 BNE L09962D PEA $0004 PEA $0260 JSL L09971B BRL L099713 L09962D LDA #$0009 CMP L055227 BNE L099683 LDA L05511F BEQ L099679 LDA L055245 STA L05523F PEA ^L052406 PEA L052406 PEA ^L040992 PEA L040992 PEA $000E JSL L0313BE LDA L055129 LDX L05512B PHX PHA LDAL L05328D PHA LDA L055027 LDX L055029 PHX PHA LDA L05501F LDX L055021 PHX PHA JSL L0B8B91 STZ L05523F BRA L099680 L099679 PEA $0021 JSL L0998B0 L099680 BRL L099713 L099683 LDA #$000A CMP L055227 BNE L0996CF LDA L05511F BEQ L0996C6 PEA ^L052406 PEA L052406 PEA ^L0409A0 PEA L0409A0 PEA $000D JSL L0313BE LDA L055129 LDX L05512B PHX PHA LDAL L05328D PHA LDA L055027 LDX L055029 PHX PHA LDA L05501F LDX L055021 PHX PHA JSL L0B8B91 BRA L0996CD L0996C6 PEA $0023 JSL L0998B0 L0996CD BRA L099713 L0996CF STZ $35 LDA #$0005 CMP L055227 BNE L0996DE LDA #$0025 STA $35 L0996DE LDA #$0006 CMP L055227 BNE L0996EB LDA #$0026 STA $35 L0996EB LDA #$0007 CMP L055227 BNE L0996F8 LDA #$0027 STA $35 L0996F8 LDA #$0008 CMP L055227 BNE L099705 LDA #$0028 STA $35 L099705 LDA $35 BEQ L099711 PEI $35 JSL L0998B0 BRA L099713 L099711 STZ $40 L099713 TSC CLC ADC #$003A TCS PLD RTL L09971B ENT PHD TSC CLC ADC #$FEE4 TCS ADC #$0029 TCD LDX #$0000 LDA $FA BNE L09972E INX L09972E PHX LDX #$0000 LDA $F8 BNE L099737 INX L099737 TXA ORA $01,S PLX LSR BCC L099741 BRL L09989E L099741 LDA #$02BC CMP $FA BNE L099787 PEA ^L052406 PEA L052406 PEA ^L0409AD PEA L0409AD PEA $0000 TDC CLC ADC #$FFD7 PHA LDA $F8 SEC SBC #$02BC JSL L150488 PHX PHA JSL L07346C TDC CLC ADC #$00CB PEA $0000 PHA PEA $0002 JSL L1509CE PEA $0020 JSL L0313BE BRL L09988E L099787 LDA #$044C CMP $FA BNE L0997CD PEA ^L052406 PEA L052406 PEA ^L0409BA PEA L0409BA PEA $0000 TDC CLC ADC #$FFD7 PHA LDA $F8 SEC SBC #$044C JSL L150488 PHX PHA JSL L07346C TDC CLC ADC #$00C7 PEA $0000 PHA PEA $0002 JSL L1509CE PEA $0023 JSL L0313BE BRL L09988E L0997CD LDX #$0000 LDA #$01F4 CMP $FA BNE L0997D8 INX L0997D8 PHX LDX #$0000 LDA #$0514 CMP $FA BNE L0997E4 INX L0997E4 TXA ORA $01,S PLX LSR BCC L0997EF JSL L0904A1 L0997EF LDX #$0000 LDA #$012C CMP $FA BNE L0997FA INX L0997FA PHX LDX #$0000 LDA #$012D CMP $F8 BNE L099806 INX L099806 TXA AND $01,S PLX PHA LDA $FA SEC SBC #$012C BEQ L09981A BVS L099818 EOR #$8000 L099818 BMI L09981F L09981A LDA #$0000 BRA L099822 L09981F LDA #$0001 L099822 PHA LDA $FA SEC SBC #$0578 BEQ L099837 BVS L099830 EOR #$8000 L099830 BPL L099837 LDA #$0000 BRA L09983A L099837 LDA #$0001 L09983A AND $01,S PLX ORA $01,S PLX LSR BCC L099853 PHY PHY PEI $F8 JSL L093C14 PLA STA $EB PLX STX $ED BRA L099861 L099853 PHY PHY PEI $F8 JSL L1505BC PLA STA $EB PLX STX $ED L099861 PEA ^L052406 PEA L052406 PEA ^L0409CA PEA L0409CA PEI $ED PEI $EB PEA ^L0409D3 PEA L0409D3 PEA $0000 TDC CLC ADC #$FFEB PHA PEA $0003 JSL L1509CE PEA $0100 JSL L0313BE L09988E LDA L05524B EOR #$0001 STA L055241 JSL L0B8B50 STZ L055241 L09989E LDA $F6 STA $FA LDA $F5 STA $F9 LDA $F3 TCD TSC CLC ADC #$0122 TCS RTL L0998B0 ENT PHD TSC CLC ADC #$FFFC TCS TCD PEA ^L052406 PEA L052406 PHY PHY LDA #$01F4 CLC ADC $0A PHA JSL L0711EB PEA $0100 JSL L0313BE JSL L0B8B50 LDA $08 STA $0A LDA $07 STA $09 LDA $05 TCD PLY PLY PLY PLY RTL L0998E6 ENT PHD TSC CLC ADC #$FFFC TCS TCD PEA ^L052406 PEA L052406 PHY PHY LDA #$01F4 CLC ADC $18 PHA JSL L0711EB PEA $0100 JSL L0313BE PEI $16 PEI $14 PEI $12 PEI $10 PEI $0E PEI $0C PEI $0A JSL L0B8B91 LDA $08 STA $18 LDA $07 STA $17 LDA $05 TCD TSC CLC ADC #$0016 TCS RTL L09992C ENT PHD TSC CLC ADC #$FFF8 TCS TCD LDA L05504F BEQ L09993B BRA L099989 L09993B LDA #$8000 ANDL L053AE9 BEQ L099947 LDA #$0001 L099947 STA $03 LDA $0E CMP $03 BEQ L099960 LDA #$8000 EORL L053AE9 STAL L053AE9 LDA #$0001 STA L05504D L099960 LDA $0E ORA L05504F STA $01 LDA L055051 CMP $01 BEQ L099989 JSL L0952F7 PEA $0001 PEA $0001 JSL L090000 JSL L077AA5 LDA $01 STA L055051 JSL L087268 L099989 LDA $0C STA $0E LDA $0B STA $0D LDA $09 TCD TSC CLC ADC #$000C TCS RTL L09999B ENT PHD TSC CLC ADC #$FFFC TCS TCD PEA $0000 LDA L05503F LDX L055041 PHX PHA JSL L077086 PEA $0005 LDA L055261 LDX L055263 PHX PHA JSL L077086 PEA $0006 LDA L055031 LDX L055033 PHX PHA JSL L077086 PEA $0007 LDA L05503F LDX L055041 PHX PHA JSL L077086 PLY PLY PLD RTL L0999E3 PHD TSC CLC ADC #$FFE2 TCS TCD LDA $2A ORA $2C BNE L0999F8 PEA $340D JSL L07272E L0999F8 LDA L055027 LDX L055029 CMP $2A BNE L099A04 CPX $2C L099A04 BNE L099A09 BRL L099B89 L099A09 PEI $28 PEI $26 LDA #$0000 TAX JSL L033477 BPL L099A1E PEA $340E JSL L07272E L099A1E PEI $28 PEI $26 LDAL L053ACB TAX LDAL L053AC9 JSL L033477 BEQ L099A3F BVS L099A36 EOR #$8000 L099A36 BPL L099A3F PEA $340F JSL L07272E L099A3F LDA L055027 LDX L055029 STA $0F STX $11 LDA L05501F LDX L055021 STA $0B STX $0D LDA $0F LDX $11 CMP $2A BNE L099A5D CPX $2C L099A5D BNE L099A64 LDA #$0000 BRA L099A67 L099A64 LDA #$0001 L099A67 PHA LDA $24 EOR #$0001 AND $01,S PLX LSR BCC L099AA4 LDA L055155 STA $09 LDA #$0001 STA L055155 PEA $0000 PEA $0001 JSL L090000 LDA $09 STA L055155 JSL L086C29 STZ L055139 PEA ^L0532BD PEA L0532BD JSL L082712 LDA #$0001 STA L055157 L099AA4 PHY PHY PEI $2C PEI $2A JSL L0772AE PLA STA $17 PLX STX $19 LDA $17 ORA $19 BEQ L099B1A LDY #$0002 LDA [$17],Y TAX LDA [$17] STA $05 STX $07 LDA $2A LDX $2C STA L055027 STX L055029 LDA $26 LDX $28 STA L055023 STX L055025 LDY #$0022 LDA [$05],Y TAX DEY DEY LDA [$05],Y STA L05501F STX L055021 LDY #$000E LDA [$05],Y TAX DEY DEY LDA [$05],Y STA L055119 STX L05511B LDX #$0000 LDY #$0010 LDA #$2000 AND [$05],Y CMP #$0000 BEQ L099B0B INX L099B0B TXA STA L055151 PEI $2C PEI $2A PEA $0000 JSL L074A90 L099B1A LDA $0B LDX $0D CMP L05501F BNE L099B26 CPX L055021 L099B26 BEQ L099B89 PHY PHY LDA L05501F LDX L055021 PHX PHA JSL L07721A PLA STA $13 PLX STX $15 LDA $13 ORA $15 BEQ L099B82 LDY #$0002 LDA [$13],Y TAX LDA [$13] STA $01 STX $03 LDY #$000E LDA [$01],Y TAX DEY DEY LDA [$01],Y STA L055115 STX L055117 LDX #$0000 LDY #$0010 LDA #$2000 AND [$01],Y CMP #$0000 BEQ L099B6F INX L099B6F TXA STA L05514F LDA L05501F LDX L055021 PHX PHA PEA $0000 JSL L074A24 L099B82 LDA $24 BNE L099B89 STZ L055135 L099B89 LDA $22 STA $2C LDA $21 STA $2B LDA $1F TCD TSC CLC ADC #$002A TCS RTL L099B9B ENT PHD TSC CLC ADC #$FFF4 TCS TCD LDA L0551FB SEC SBC #$0003 BVS L099BAF EOR #$8000 L099BAF BPL L099BB6 LDA #$0000 BRA L099BB9 L099BB6 LDA #$0001 L099BB9 PHA LDA $12 SEC SBC #$0001 BEQ L099BC9 BVS L099BC7 EOR #$8000 L099BC7 BMI L099BCE L099BC9 LDA #$0000 BRA L099BD1 L099BCE LDA #$0001 L099BD1 AND $01,S PLX PHA LDX #$0000 LDA #$0003 CMP L0551FB BNE L099BE1 INX L099BE1 PHX LDX #$0000 LDA #$0003 CMP $12 BNE L099BED INX L099BED PHX LDX #$0000 LDA $12 DEC DEC BNE L099BF8 INX L099BF8 TXA ORA $01,S PLX AND $01,S PLX ORA $01,S PLX LSR BCC L099C0F PEA $0024 JSL L0727E0 BRL L099CC9 L099C0F STZ $03 LDA $12 SEC SBC #$0003 BEQ L099C25 BVS L099C1E EOR #$8000 L099C1E BPL L099C25 LDA #$0001 STA $03 L099C25 PHY PHY JSL L150493 PLA STA $05 PLX STX $07 LDA L0550E9 LDX L0550EB PHX PHA JSL L151131 LDA L0550BB CMP $12 BEQ L099C51 JSL L086B8B LDA $12 STA L0550BB JSL L086B8B L099C51 LDA L0550B9 CMP $03 BEQ L099C86 PHY JSL L073CDF PLA STA $01 LDA L0550B9 BNE L099C69 JSL L0A1A5F L099C69 LDA L0550B9 DEC BNE L099C73 JSL L0A0024 L099C73 LDA $03 BNE L099C7D JSL L0A3E17 BRA L099C86 L099C7D LDA $03 DEC BNE L099C86 JSL L0A0100 L099C86 LDA L0550B9 DEC BNE L099CBB LDA L0550BB PHA PEA ^L0409D5 PEA L0409D5 PLY PLX TSC CLC ADC #$FFFD TCS PEA $0000 INC PHA PHX PHY PEA $0003 JSL L0313BE PEA $0003 JSL L1511F2 PLA STA L0551EF JSL L160226 L099CBB LDA #$0001 STA L054F9F PEI $07 PEI $05 JSL L151131 L099CC9 LDA $10 STA $12 LDA $0F STA $11 LDA $0D TCD TSC CLC ADC #$0010 TCS RTL L099CDB ENT PHD TSC CLC ADC #$FFF6 TCS TCD PHY PEI $10 PEA $0001 PEA $0005 JSL L071A1B PLA STA L0551F9 PHY LDA L0551F9 PHA LDAL L053AE5 PHA JSL L072FD5 PLA STA $01 LDA L0551FB CMP $01 BNE L099D0F BRL L099DBC L099D0F LDA #$0001 STA $03 LDA #$0003 CMP L0551FB BNE L099D21 LDA #$0002 STA $03 L099D21 LDA L0551FB SEC SBC #$0003 BEQ L099D36 BVS L099D2F EOR #$8000 L099D2F BPL L099D36 LDA #$0003 STA $03 L099D36 LDA $01 STA L0551FB LDA #$0001 STA $05 LDA #$0003 CMP L0551FB BNE L099D4D LDA #$0002 STA $05 L099D4D LDA L0551FB SEC SBC #$0003 BEQ L099D62 BVS L099D5B EOR #$8000 L099D5B BPL L099D62 LDA #$0003 STA $05 L099D62 LDA $03 CMP $05 BEQ L099D6C JSL L09B058 L099D6C LDA L0551FB SEC SBC #$0003 BVS L099D78 EOR #$8000 L099D78 BPL L099D7F LDA #$0000 BRA L099D82 L099D7F LDA #$0001 L099D82 PHA LDX #$0000 LDA #$0003 CMP L0551FB BNE L099D8F INX L099D8F PHX LDX #$0000 LDA #$0003 CMP L0550BB BNE L099D9C INX L099D9C PHX LDX #$0000 LDA L0550BB DEC DEC BNE L099DA8 INX L099DA8 TXA ORA $01,S PLX AND $01,S PLX ORA $01,S PLX LSR BCC L099DBC PEA $0001 JSL L090635 L099DBC LDA $0E STA $10 LDA $0D STA $0F LDA $0B TCD TSC CLC ADC #$000E TCS RTL L099DCE ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L05524B BEQ L099DE2 LDA L055197 STA $0A BRA L099DF8 L099DE2 * PHY * PEA $0000 * PEA $C025 * JSL L071A89 * PLA ldal $c025 ; AV 202208 AND #$0001 BEQ L099DF6 LDA #$0001 L099DF6 STA $0A L099DF8 PLY PLY PLD RTL L099DFC ENT PHD TSC CLC ADC #$FF6C TCS TCD LDA L0551DF STA $8F LDA #$0001 STA L0551DF TDC CLC ADC #$002F PEA $0000 PHA JSL L0940E5 LDA #$0003 STA $2F LDA #$0002 STA $39 L099E26 LDA $9A ORA $9C BEQ L099E2F LDA #$0001 L099E2F PHA PHY JSL L07005C PLA EOR #$0001 AND $01,S PLX PHA PHY PEA $0002 TDC CLC ADC #$0001 PEA $0000 PHA JSL L151017 PLA EOR #$0001 AND $01,S PLX LSR BCC L099E7B PHY TDC CLC ADC #$002F PEA $0000 PHA JSL L0933AB PLA STA $8D JSL L151307 LDX $9C LDA $9A BNE L099E74 DEX L099E74 DEC STA $9A STX $9C BRA L099E26 L099E7B PHY PEA $0006 PEA $0000 JSL L150B28 PLA STA $8B LDA $8F STA L0551DF JSL L096253 LDA $98 STA $9C LDA $97 STA $9B LDA $95 TCD TSC CLC ADC #$009A TCS RTL L099EA4 ENT PHD TSC CLC ADC #$FFF2 TCS TCD PHY PHY PEI $18 PEI $16 JSL L07721A PLA STA $07 PLX STX $09 LDA $07 ORA $09 BNE L099EC5 BRL L099F65 L099EC5 STZ $05 LDY #$0002 LDA [$07],Y TAX LDA [$07] STA $01 STX $03 LDX #$0000 LDY #$0010 LDA #$2000 AND [$01],Y CMP #$0000 BEQ L099EE4 INX L099EE4 TXA CMP $14 BNE L099EEE LDA #$2000 STA $05 L099EEE LDY #$0010 LDA [$01],Y EOR $05 LDY #$0010 STA [$01],Y PEI $18 PEI $16 LDA $05 BEQ L099F05 LDA #$0001 L099F05 PHA JSL L074A24 LDA L05501F LDX L055021 CMP $16 BNE L099F16 CPX $18 L099F16 BNE L099F65 LDA $14 EOR #$0001 STA L05514F LDA $05 BEQ L099F27 LDA #$0001 L099F27 PHA LDA L055115 ORA L055117 BEQ L099F33 LDA #$0001 L099F33 ORA L055137 AND $01,S PLX LSR BCC L099F65 JSL L096029 LDA L055135 BEQ L099F57 PEA ^L053117 PEA L053117 PEA ^L0532BD PEA L0532BD JSL L081E53 BRA L099F61 L099F57 PEA ^L0532BD PEA L0532BD JSL L082712 L099F61 JSL L09AED3 L099F65 LDA $12 STA $18 LDA $11 STA $17 LDA $0F TCD TSC CLC ADC #$0016 TCS RTL L099F77 ENT PHD TSC CLC ADC #$FFF2 TCS TCD PHY PHY PEI $18 PEI $16 JSL L0772AE PLA STA $07 PLX STX $09 LDA $07 ORA $09 BNE L099F98 BRL L09A035 L099F98 STZ $05 LDY #$0002 LDA [$07],Y TAX LDA [$07] STA $01 STX $03 LDX #$0000 LDY #$0010 LDA #$2000 AND [$01],Y CMP #$0000 BEQ L099FB7 INX L099FB7 TXA CMP $14 BNE L099FC1 LDA #$2000 STA $05 L099FC1 LDY #$0010 LDA [$01],Y EOR $05 LDY #$0010 STA [$01],Y PEI $18 PEI $16 LDA $05 BEQ L099FD8 LDA #$0001 L099FD8 PHA JSL L074A90 LDA L055027 LDX L055029 CMP $16 BNE L099FE9 CPX $18 L099FE9 BNE L09A035 LDA $14 EOR #$0001 STA L055151 LDA $05 BEQ L09A035 LDA L055153 BNE L09A035 LDA L055119 ORA L05511B BEQ L09A007 LDA #$0001 L09A007 ORA L055137 BEQ L09A035 JSL L096029 LDA L055139 BEQ L09A027 PEA ^L05310F PEA L05310F PEA ^L0532BD PEA L0532BD JSL L081E53 BRA L09A031 L09A027 PEA ^L0532BD PEA L0532BD JSL L082712 L09A031 JSL L09AED3 L09A035 LDA $12 STA $18 LDA $11 STA $17 LDA $0F TCD TSC CLC ADC #$0016 TCS RTL L09A047 PHD TSC CLC ADC #$FCFA TCS ADC #$0211 TCD JSL L0952F7 LDA $FA BNE L09A05D BRL L09A12E L09A05D LDA L0550C5 LDX L0550C7 CLC ADC #$00CE BCC L09A06A INX L09A06A STA $F1 STX $F3 LDA #$0020 AND [$F1] BEQ L09A078 LDA #$0001 L09A078 EOR #$0001 STA $EF LDA L05522F BEQ L09A0A4 PEA $0000 TDC CLC ADC #$FFEF PHA PEA $0000 TDC CLC ADC #$FDEF PHA PEA $001F JSL L073002 PEA $0100 JSL L0313BE BRA L09A0C4 L09A0A4 PEA $0000 TDC CLC ADC #$FFEF PHA PEA $0000 TDC CLC ADC #$FDEF PHA PEA $001B JSL L073002 PEA $0100 JSL L0313BE L09A0C4 PEA $0000 TDC CLC ADC #$FFEF PHA PEA ^L0538E9 PEA L0538E9 PEA $0000 TDC CLC ADC #$FDEF PHA PEA $0021 JSL L073002 PEA $0000 TDC CLC ADC #$FEEF PHA PEA $0003 * JSL L1509CE JSL L09873C LDA #$00FF LDX #$FFEF AND $00,X PHA LDA #$00FF LDX #$FFEF AND $00,X PHA LDA #$00FF ANDL L0538E9 STA $F1 PLA CLC ADC $F1 PHA LDA L055111 LDX L055113 PHX PHA JSL L1512D1 JSL L097700 LDA $EF STA L0551F1 BRA L09A166 L09A12E JSL L090A71 LDA L0550E1 LDX L0550E3 PHX PHA JSL L09A5A7 LDA L055111 LDX L055113 STA $F1 STX $F3 LDY #$0002 LDA [$F1],Y TAX LDA [$F1] CLC ADC #$0004 BCC L09A157 INX L09A157 STA $F1 STX $F3 LDA [$F1] BNE L09A163 JSL L097700 L09A163 STZ L0551F1 L09A166 LDA $F8 STA $FA LDA $F7 STA $F9 LDA $F5 TCD TSC CLC ADC #$030A TCS RTL L09A178 PHD TSC CLC ADC #$FFF4 TCS TCD PEA ^L05232C PEA L05232C LDY #$007D LDA [$12],Y TAX DEY DEY LDA [$12],Y PHX PHA PEA ^L052334 PEA L052334 LDA #$0069 CLC ADC $12 LDX $14 BCC L09A1A3 INX L09A1A3 PHX PHA PEA $0000 PEA $0000 PEA $0000 JSL L1505E6 LDY #$0075 LDA [$12],Y DEC PHA PEA $0006 JSL L1500F5 PLX PLX STA $05 LDY #$0075 LDA [$12],Y DEC PHA PEA $0006 JSL L150318 PLX PLX STA $07 LDA #$0061 CLC ADC $12 LDX $14 BCC L09A1E1 INX L09A1E1 STA $01 STX $03 LDA $01 LDX $03 STA $09 STX $0B LDA $05 PEA $0019 JSL L150BEE LDY #$0069 PLA CLC ADC [$12],Y STA [$09] LDA #$0002 CLC ADC $01 LDX $03 BCC L09A20A INX L09A20A PHX PHA LDA $07 PEA $0050 JSL L150BEE LDA #$0069 CLC ADC $12 LDX $14 BCC L09A220 INX L09A220 CLC ADC #$0002 BCC L09A227 INX L09A227 STA $09 STX $0B PLA CLC ADC [$09] PLX STX $09 PLX STX $0B STA [$09] LDA #$0019 CLC ADC [$01] LDY #$0004 STA [$01],Y LDY #$0002 LDA #$0050 CLC ADC [$01],Y LDY #$0006 STA [$01],Y JSL L1510A1 LDA #$0061 CLC ADC $12 LDX $14 BCC L09A25F INX L09A25F PHX PHA PEA $FFFA PEA $FFFD JSL L151005 PEA $0002 PEA $0001 JSL L151083 PEA $0000 JSL L081DD8 LDA #$0061 CLC ADC $12 LDX $14 BCC L09A287 INX L09A287 PHX PHA JSL L151418 LDA #$0061 CLC ADC $12 LDX $14 BCC L09A298 INX L09A298 PHX PHA PEA $0002 PEA $0001 JSL L151005 PEA $0004 PEA $0002 JSL L151083 PEA $FFFF JSL L081DD8 LDA #$0061 CLC ADC $12 LDX $14 BCC L09A2C0 INX L09A2C0 PHX PHA JSL L151418 JSL L1510A1 LDA $10 STA $14 LDA $0F STA $13 LDA $0D TCD TSC CLC ADC #$0012 TCS RTL L09A2DC PHD TSC CLC ADC #$FF7E TCS TCD JSL L096253 PHY JSL L0727BF PLA STA $79 PHY PHY PEA $1B58 JSL L072834 PLA STA $7B PLX STX $7D PEI $7D PEI $7B JSL L151131 PEI $7D PEI $7B JSL L15102F PEI $7D PEI $7B PEA $0003 TDC CLC ADC #$0069 PEA $0000 PHA JSL L072B17 LDA #$0001 STA $75 L09A328 LDA $75 DEC ASL ASL ASL TAX TXA CLC ADC #L05233C LDX #^L05233C BCC L09A33A INX L09A33A STA $01 STX $03 LDA L055027 LDX L055029 CMP [$01] BNE L09A34E LDY #$0002 TXA CMP [$01],Y L09A34E BEQ L09A355 LDA #$0000 BRA L09A358 L09A355 LDA #$0001 L09A358 PHA LDY #$0006 LDA [$01],Y TAX DEY DEY LDA [$01],Y CMP L055039 BNE L09A36B CPX L05503B L09A36B BEQ L09A372 LDA #$0000 BRA L09A375 L09A372 LDA #$0001 L09A375 AND $01,S PLX LSR BCS L09A386 LDA #$0012 CMP $75 BEQ L09A386 INC $75 BRA L09A328 L09A386 PEA $0000 PHD JSL L09A178 LDA #$0001 STA $05 LDA $75 DEC ASL ASL ASL TAX LDAL L05233E,X PHA LDAL L05233C,X PLX STA $07 STX $09 LDA #$0006 STA $31 LDA $75 DEC ASL ASL ASL TAX TXA CLC ADC #L05233C LDX #^L05233C BCC L09A3BF INX L09A3BF CLC ADC #$0004 BCC L09A3C6 INX L09A3C6 STA $7F STX $81 LDY #$0002 LDA [$7F],Y TAX LDA [$7F] STA $5D STX $5F L09A3D6 PHY PEA $0001 JSL L0736C8 PLA STA $77 LDA #$0003 CMP $77 BEQ L09A3EB BRL L09A4E7 L09A3EB LDAL L0540BB DEC DEC BNE L09A417 PEA $0001 PEI $7D PEI $7B PEA $0001 JSL L072E7C PEA $0000 PEI $7D PEI $7B PEA $0001 JSL L072E7C LDA #$0001 STA $77 BRL L09A4E7 L09A417 PEA ^L0540A9 PEA L0540A9 JSL L150BE8 LDAL L0540AB SEC SBC $6B PHA PEA $0050 JSL L1500F5 PLX PLX STA $71 PHY PEI $71 PEA $0000 PEA $0005 JSL L071A1B PLA STA $71 LDAL L0540A9 SEC SBC $69 PHA PEA $0019 JSL L1500F5 PLX PLX STA $73 PHY PEI $73 PEA $0000 PEA $0002 JSL L071A1B PLA STA $73 LDA $71 INC PHA LDA $73 PEA $0006 JSL L150BEE PLA CLC ADC $01,S PLX STA $75 LDA $75 DEC ASL ASL ASL TAX LDAL L05233E,X PHA LDAL L05233C,X PLX STA $07 STX $09 LDA $75 DEC ASL ASL ASL TAX TXA CLC ADC #L05233C LDX #^L05233C BCC L09A4A2 INX L09A4A2 CLC ADC #$0004 BCC L09A4A9 INX L09A4A9 STA $7F STX $81 LDY #$0002 LDA [$7F],Y TAX LDA [$7F] STA $5D STX $5F LDA $07 ORA $09 BEQ L09A4E7 TDC CLC ADC #$0061 PEA $0000 PHA PEA $FFFE PEA $FFFF JSL L151005 TDC CLC ADC #$0061 PEA $0000 PHA JSL L15123D PEA $0000 PHD JSL L09A178 L09A4E7 LDX #$0000 LDA $77 DEC BNE L09A4F0 INX L09A4F0 PHX LDX #$0000 LDA $77 DEC DEC BNE L09A4FB INX L09A4FB TXA ORA $01,S PLX LSR BCS L09A505 BRL L09A3D6 L09A505 PEI $7D PEI $7B JSL L072634 PEI $79 JSL L0724F7 JSL L09AFB1 LDA $77 DEC DEC BEQ L09A53C LDA $07 ORA $09 BEQ L09A53C PHY TDC CLC ADC #$0005 PEA $0000 PHA PEA $0000 JSL L096479 PLA LSR BCS L09A53C JSL L072314 L09A53C TSC CLC ADC #$0082 TCS PLD RTL L09A544 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L0550B9 DEC BNE L09A558 JSL L0A0F21 BRA L09A55C L09A558 JSL L140E96 L09A55C PLY PLY PLD RTL L09A560 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L0550B7 EOR #$0001 STA L0550B7 JSL L087A30 LDA L0550D5 LDX L0550D7 CLC ADC #$00CE BCC L09A582 INX L09A582 STA $01 STX $03 LDA #$0020 AND [$01] BEQ L09A5A3 LDA L0550E9 LDX L0550EB PHX PHA JSL L151131 PEA ^L053201 PEA L053201 JSL L0855E6 L09A5A3 PLY PLY PLD RTL L09A5A7 ENT PHD TSC CLC ADC #$FFF8 TCS TCD LDA $0E LDX $10 STA $01 STX $03 LDY #$00CE LDA #$0020 AND [$01],Y CMP #$0000 BEQ L09A5E4 LDA L0550E1 LDX L0550E3 CMP $0E BNE L09A5D0 CPX $10 L09A5D0 BNE L09A5D6 JSL L090A71 L09A5D6 PEI $10 PEI $0E JSL L0732B7 JSL L09AFB1 BRA L09A612 L09A5E4 PEI $10 PEI $0E JSL L15102F LDA L0550ED LDX L0550EF CMP $0E BNE L09A5F8 CPX $10 L09A5F8 BEQ L09A602 PEI $10 PEI $0E JSL L1511C8 L09A602 PEI $10 PEI $0E JSL L151131 PEI $10 PEI $0E JSL L0A3183 L09A612 LDA $0C STA $10 LDA $0B STA $0F LDA $09 TCD TSC CLC ADC #$000E TCS RTL L09A624 PHD TSC CLC ADC #$FFE0 TCS TCD LDA $2C SEC SBC #$0001 BVS L09A637 EOR #$8000 L09A637 BPL L09A63E LDA #$0000 BRA L09A641 L09A63E LDA #$0001 L09A641 PHA LDA $2C SEC SBC #$0018 BEQ L09A651 BVS L09A64F EOR #$8000 L09A64F BMI L09A656 L09A651 LDA #$0000 BRA L09A659 L09A656 LDA #$0001 L09A659 ORA $01,S PLX LSR BCC L09A662 BRL L09A7C9 L09A662 PHY PHY JSL L150493 PLA STA $0D PLX STX $0F LDY #$001A LDA [$0D],Y TAX DEY DEY LDA [$0D],Y STA $05 STX $07 PHY PHY JSL L150BB2 PLA STA $09 PLX STX $0B LDY #$0002 LDA [$09],Y TAX LDA [$09] CLC ADC #$0002 BCC L09A697 INX L09A697 STA $01 STX $03 LDY #$002E LDA [$26],Y TAX DEY DEY LDA [$26],Y CLC ADC #$0002 BCC L09A6AC INX L09A6AC STA $1D STX $1F LDA [$1D] LDY #$0002 STA [$01],Y LDY #$002E LDA [$26],Y TAX DEY DEY LDA [$26],Y STA $1D STX $1F LDA [$1D] STA [$01] LDY #$0002 LDA #$0052 CLC ADC [$01],Y LDY #$0006 STA [$01],Y LDA #$0048 CLC ADC [$01] LDY #$0004 STA [$01],Y LDA $09 LDX $0B LDY #$0018 STA [$0D],Y INY INY TXA STA [$0D],Y LDA $2C DEC PHA PEA $0003 JSL L1500F5 PLX PLX STA $11 LDA $2C DEC PHA PEA $0003 JSL L150318 PLX PLX STA $13 LDY #$002E LDA [$26],Y TAX DEY DEY LDA [$26],Y CLC ADC #$0002 BCC L09A71F INX L09A71F STA $1D STX $1F LDA $13 PEA $001C JSL L150BEE PLA CLC ADC [$1D] STA $17 LDY #$002E LDA [$26],Y TAX DEY DEY LDA [$26],Y STA $1D STX $1F LDA $11 PEA $000C JSL L150BEE PLA CLC ADC [$1D] STA $15 LDA $11 BEQ L09A758 LDA $15 INC STA $15 L09A758 LDA #$001C CLC ADC $17 DEC DEC STA $1B LDA #$000C CLC ADC $15 DEC STA $19 LDA $2A BEQ L09A7A6 JSL L1510A1 PEA $8002 JSL L150BD6 PEA $0004 PEA $0002 JSL L151083 TDC CLC ADC #$0015 PEA $0000 PHA PEA $FFFE PEA $FFFF JSL L151005 TDC CLC ADC #$0015 PEA $0000 PHA JSL L151418 BRA L09A7B3 L09A7A6 TDC CLC ADC #$0015 PEA $0000 PHA JSL L150383 L09A7B3 PEI $0B PEI $09 JSL L151669 LDA $05 LDX $07 LDY #$0018 STA [$0D],Y INY INY TXA STA [$0D],Y L09A7C9 LDA $24 STA $2C LDA $23 STA $2B LDA $21 TCD TSC CLC ADC #$002A TCS RTL L09A7DB ENT PHD TSC CLC ADC #$FFE0 TCS TCD PHY JSL L071BFF PLA STA $1B LDA $34 BPL L09A7F2 BRL L09A96C L09A7F2 CMP #$0006 BMI L09A7FA BRL L09A96C L09A7FA ASL TAX LDAL L09A802,X PHA RTS L09A802 DA L09A80E-1 DA L09A853-1 DA L09A8E8-1 DA L09A914-1 DA L09A918-1 DA L09A962-1 L09A80E PHY PHY JSL L150493 PLA STA $17 PLX STX $19 PEA ^L0531F9 PEA L0531F9 PEI $19 PEI $17 PEA ^L053201 PEA L053201 PEI $2E PEI $2C PEA $0000 PEA $0000 PEA $0000 JSL L1505E6 LDA L0550BB PHA PEA $0000 PEA $0000 PHD JSL L09A624 STZ L055169 STZ L05516B BRL L09A96C L09A853 STZ $36 LDA $2A STA $0D LDA $28 STA $0B PHY TDC CLC ADC #$000B PEA $0000 PHA PEI $2E PEI $2C JSL L1512CB PLA LSR BCC L09A8D6 LDA $0B SEC SBC [$2C] DEC DEC PHA PEA $000C JSL L1500F5 PLX PLX STA $11 LDA $0D LDY #$0002 SEC SBC [$2C],Y PHA PEA $001C JSL L1500F5 PLX PLX STA $13 LDA $13 INC PHA LDA $11 PEA $0003 JSL L150BEE PLA CLC ADC $01,S PLX ORA #$8000 STA $36 LDA L05516B BEQ L09A8D4 LDA L05516B PHA PEA $0001 PEA $0000 PHD JSL L09A624 LDA L05516B PHA PEA $0001 PEA $0000 PHD JSL L09A624 L09A8D4 BRA L09A8E5 L09A8D6 PEI $2E PEI $2C PEI $0D PEI $0B PEA $02BC JSL L09A984 L09A8E5 BRL L09A96C L09A8E8 LDY #$0002 LDA [$30],Y TAX LDA [$30] STA $01 STX $03 LDY #$0002 LDA [$01],Y BNE L09A903 LDA #$0056 LDY #$0002 STA [$01],Y L09A903 LDY #$0004 LDA [$01],Y BNE L09A912 LDA #$004A LDY #$0004 STA [$01],Y L09A912 BRA L09A96C L09A914 STZ $36 BRA L09A96C L09A918 LDA #$7FFF AND $26 PHA PHY PEA $0000 JSL L150580 PLA ORA L055169 PHA PEA $0000 PHD JSL L09A624 LDX #$0000 LDA $26 BPL L09A93B INX L09A93B TXA PHA PHY PEA $0000 JSL L150580 PLA STA $1D PLA AND $1D STA L055169 LDA L055169 BEQ L09A95D LDA #$7FFF AND $26 STA L05516B BRA L09A96C ; WAS L09A960 L09A95D STZ L05516B BRA L09A96C L09A962 LDA #$02BC CLC ADC $26 STA $36 BRA L09A96C L09A96C PEI $1B JSL L071AA4 LDA $24 STA $34 LDA $23 STA $33 LDA $21 TCD TSC CLC ADC #$0032 TCS RTL L09A984 PHD TSC CLC ADC #$FFD6 TCS TCD TDC CLC ADC #$0005 PEA $0000 PHA PEI $38 PEI $36 PEA $0008 JSL L0313BE TDC CLC ADC #$001F PEA $0000 PHA TDC CLC ADC #$0005 PEA $0000 PHA PEA $0008 JSL L0313BE TDC CLC ADC #$001F PEA $0000 PHA PEA $FFEC PEA $FFF6 JSL L151005 STZ L0551ED LDA $32 SEC SBC #$0014 BEQ L09A9DE BVS L09A9DC EOR #$8000 L09A9DC BMI L09A9E3 L09A9DE LDA #$0000 BRA L09A9E6 L09A9E3 LDA #$0001 L09A9E6 PHA PHY TDC CLC ADC #$0032 PEA $0000 PHA TDC CLC ADC #$001F PEA $0000 PHA JSL L1512CB PLA EOR #$0001 AND $01,S PLX LSR BCS L09AA0B BRL L09AB54 L09AA0B LDA $30 STA L0551ED PHY PHY JSL L150493 PLA STA $17 PLX STX $19 LDY #$001A LDA [$17],Y TAX DEY DEY LDA [$17],Y STA $13 STX $15 PHY PHY JSL L150BB2 PLA STA $0F PLX STX $11 LDY #$0002 LDA [$0F],Y TAX LDA [$0F] CLC ADC #$0002 BCC L09AA45 INX L09AA45 STA $01 STX $03 LDA #$0000 LDY #$0002 STA [$01],Y LDA #$000F STA [$01] LDA #$0280 LDY #$0006 STA [$01],Y LDA #$00C8 LDY #$0004 STA [$01],Y LDA $0F LDX $11 LDY #$0018 STA [$17],Y INY INY TXA STA [$17],Y LDA $09 SEC SBC $05 STA $1D LDA $0B SEC SBC $07 STA $1B PHY PEI $32 PHY PEI $1D PLA CMP #$8000 ROR STA $01,S PLA STA $27 PLA SEC SBC $27 SEC SBC #$0006 PHA PEA $000F JSL L072FA6 PLA STA $05 PHY PEI $34 PHY PEI $1B PLA CMP #$8000 ROR STA $01,S PLA STA $27 PLA SEC SBC $27 DEC DEC PHA PEA $0000 JSL L072FA6 PLA STA $07 LDA $1D CLC ADC $05 CLC ADC #$0008 STA $09 LDA $1B CLC ADC $07 CLC ADC #$0004 STA $0B JSL L1510A1 PEA $8002 JSL L150BD6 PEA $0002 PEA $0001 JSL L151083 TDC CLC ADC #$0005 PEA $0000 PHA JSL L151418 PHY PEA $0000 JSL L150580 PLA STA $0D PEA $0002 JSL L0706CF PHY PEA $0000 JSL L150580 PLA STA $0D TDC CLC ADC #$0005 PEA $0000 PHA JSL L151418 JSL L1510A1 PEI $11 PEI $0F JSL L151669 LDA $13 LDX $15 LDY #$0018 STA [$17],Y INY INY TXA STA [$17],Y LDA #$FFFE AND $07 INC INC STAL L0523CE LDA $05 INC STAL L0523CC L09AB54 LDA $2E STA $38 LDA $2D STA $37 LDA $2B TCD TSC CLC ADC #$0036 TCS RTL L09AB66 ENT PHD TSC CLC ADC #$FFFA TCS TCD STZ $0E STZ $01 L09AB72 LDX $01 LDA #$00FF ANDL L041573,X CMP $0C BNE L09ABB9 LDA L0551FB SEC SBC #$0005 BVS L09AB8B EOR #$8000 L09AB8B BMI L09AB96 PEA $0024 JSL L0727E0 BRA L09ABB2 L09AB96 LDA L0550B9 DEC BNE L09ABA5 PEA $0040 JSL L0727E0 BRA L09ABB2 L09ABA5 LDA $01 LSR LSR CLC ADC #$002A PHA JSL L0998B0 L09ABB2 LDA #$0001 STA $0E BRA L09ABC4 L09ABB9 LDA #$000B CMP $01 BEQ L09ABC4 INC $01 BRA L09AB72 L09ABC4 LDA $0A STA $0C LDA $09 STA $0B LDA $07 TCD PLY PLY PLY PLY PLY RTL L09ABD5 ENT PHD TSC CLC ADC #$FF5C TCS TCD LDA L0551CB ORA L0551CD BEQ L09ABE8 LDA #$0001 L09ABE8 STA $AA LDX #$0000 LDA L0551CB ORA L0551CD BNE L09ABF6 INX L09ABF6 PHX LDA L0551BB LDX L0551BD CMP L055039 BNE L09AC05 CPX L05503B L09AC05 BNE L09AC0C LDA #$0000 BRA L09AC0F L09AC0C LDA #$0001 L09AC0F ORA $01,S PLX LSR BCC L09AC18 BRL L09AE62 L09AC18 PHY PHY LDA L0551CB LDX L0551CD PHX PHA JSL L0772AE PLA STA $95 PLX STX $97 LDA $95 ORA $97 BNE L09AC35 BRL L09AE62 L09AC35 LDY #$0002 LDA [$95],Y TAX LDA [$95] CLC ADC #$0020 BCC L09AC44 INX L09AC44 STA $A1 STX $A3 LDY #$0002 LDA [$A1],Y TAX LDA [$A1] STA $9D STX $9F LDA L0551CB LDX L0551CD PHX PHA PEA $0000 JSL L074A90 TDC CLC ADC #$0005 PEA $0000 PHA PEA $0000 PEA $0084 JSL L071EC5 LDA L0551CB LDX L0551CD STA $05 STX $07 PHY LDAL L053AD3 PHA LDAL L053AD1 PHA LDA L0551BF LDX L0551C1 TAY BNE L09AC95 DEX L09AC95 DEC PHX PHA TDC CLC ADC #$0005 PEA $0000 PHA JSL L07B2EC PLA LSR BCS L09ACAC BRL L09AE62 L09ACAC LDAL L053AD3 PHA LDAL L053AD1 PHA LDA L0551BF LDX L0551C1 PHX PHA PEA $0001 JSL L07E171 LDAL L053AD3 PHA LDAL L053AD1 PHA LDA L0551BF LDX L0551C1 INC BNE L09ACD9 INX L09ACD9 PHX PHA PEA $0001 JSL L07E171 LDAL L053ACB TAX LDAL L053AC9 INC BNE L09ACEF INX L09ACEF STAL L053AC9 TXA STAL L053ACB LDA #$0001 LDX #$0000 CMP L0551BF BNE L09AD06 CPX L0551C1 L09AD06 BNE L09AD17 LDA L0551CB LDX L0551CD STAL L053ACD TXA STAL L053ACF L09AD17 LDA #$0001 STA L05504D PHY PHY PEI $9F PEI $9D JSL L07721A PLA STA $99 PLX STX $9B LDY #$0002 LDA [$99],Y TAX LDA [$99] STA $01 STX $03 LDY #$0016 LDA [$01],Y TAX DEY DEY LDA [$01],Y INC BNE L09AD47 INX L09AD47 LDY #$0014 STA [$01],Y INY INY TXA STA [$01],Y LDY #$001E LDA [$01],Y TAX DEY DEY LDA [$01],Y STA $91 STX $93 LDY #$001A LDA [$01],Y TAX DEY DEY LDA [$01],Y STA $8D STX $8F PEI $9F PEI $9D PEA $0001 JSL L074A24 LDA L0551C7 ORA L0551C9 BNE L09AD83 BRL L09AE41 L09AD83 LDA L0551C7 LDX L0551C9 CMP $9D BNE L09AD8F CPX $9F L09AD8F BEQ L09AD98 PEA $7327 JSL L07272E L09AD98 LDAL L053AC3 TAX LDAL L053AC1 INC BNE L09ADA5 INX L09ADA5 STAL L053AC1 TXA STAL L053AC3 LDA L0551C3 LDX L0551C5 STAL L053AC5 TXA STAL L053AC7 PHY PHY PEI $93 PEI $91 JSL L07721A PLA STA $99 PLX STX $9B LDA $99 ORA $9B BEQ L09ADFF LDY #$0002 LDA [$99],Y TAX LDA [$99] CLC ADC #$0018 BCC L09ADE2 INX L09ADE2 STA $A1 STX $A3 LDA L0551C7 LDX L0551C9 STA [$A1] TXA LDY #$0002 STA [$A1],Y PEI $93 PEI $91 PEA $0001 JSL L074A24 L09ADFF PHY PHY PEI $8F PEI $8D JSL L07721A PLA STA $99 PLX STX $9B LDA $99 ORA $9B BEQ L09AE41 LDY #$0002 LDA [$99],Y TAX LDA [$99] CLC ADC #$001C BCC L09AE24 INX L09AE24 STA $A1 STX $A3 LDA L0551C7 LDX L0551C9 STA [$A1] TXA LDY #$0002 STA [$A1],Y PEI $8F PEI $8D PEA $0001 JSL L074A24 L09AE41 LDA L0551CB LDX L0551CD STA $89 STX $8B STZ L0551CB STZ L0551CD PEI $8B PEI $89 PEA $0000 PEA $0000 PEA $0000 JSL L0968AD L09AE62 STZ L0551CB STZ L0551CD STZ L0551BF STZ L0551C1 STZ L0551BB STZ L0551BD STZ L0551C7 STZ L0551C9 STZ L0551C3 STZ L0551C5 TSC CLC ADC #$00A4 TCS PLD RTL L09AE88 PHD TSC CLC ADC #$FFFC TCS TCD JSL L151454 PEA $0017 JSL L151331 PLY PLY PLD RTL L09AE9F ENT PHD TSC CLC ADC #$FFFA TCS TCD LDA L0551B9 BNE L09AEAE BRA L09AECE L09AEAE PEA $0000 JSL L09091E JSL L1506ED PEA $0022 JSL L151331 PEA $4022 JSL L15000C JSL L15059E STZ L0551B9 L09AECE PLY PLY PLY PLD RTL L09AED3 ENT PHD TSC CLC ADC #$FFF2 TCS TCD LDA L054FBB SEC SBC #$0000 BMI L09AEE7 BRL L09AFA9 L09AEE7 LDX #$0000 LDA #$FFFF CMP L054FBB BNE L09AEF3 INX L09AEF3 PHX LDX #$0000 LDA L0550B9 BNE L09AEFD INX L09AEFD TXA AND $01,S PLX LSR BCC L09AF0B PEA $0001 JSL L09091E L09AF0B LDA L054FBB INC STA L054FBB LDA L054FBB BEQ L09AF1A BRL L09AFA9 L09AF1A LDA L0550B9 DEC BNE L09AF41 LDA #$0001 STAL L0552BF LDA #$0001 STAL L0552C1 PEA ^L0532BD PEA L0532BD JSL L082712 PEA $0000 JSL L1601A8 BRA L09AF60 L09AF41 LDA L0550BD BNE L09AF4E LDA L0550BF STA $09 STZ L0550BF L09AF4E JSL L0A1625 JSL L0A15C0 LDA L0550BD BNE L09AF60 LDA $09 STA L0550BF L09AF60 JSL L083E9E LDA L055143 BEQ L09AF6D JSL L087268 L09AF6D LDA L055131 BEQ L09AF8B LDA L0550E9 LDX L0550EB PHX PHA JSL L151131 PEA ^L053201 PEA L053201 JSL L0855E6 STZ L055131 L09AF8B LDA L05512D BEQ L09AFA9 LDA L0550DD LDX L0550DF PHX PHA JSL L151131 PEA ^L0531E1 PEA L0531E1 JSL L0854D9 STZ L05512D L09AFA9 TSC CLC ADC #$000E TCS PLD RTL L09AFB1 ENT PHD TSC CLC ADC #$FFF4 TCS TCD LDA L0550ED LDX L0550EF PHX PHA JSL L09B242 LDA L0550E5 LDX L0550E7 PHX PHA JSL L09B242 LDA L0550E1 LDX L0550E3 PHX PHA JSL L09B242 LDA L0550E9 LDX L0550EB PHX PHA JSL L09B242 LDA L0550DD LDX L0550DF PHX PHA JSL L09B242 LDA L0551B1 ORA L0551B3 BNE L09AFFF BRA L09B050 L09AFFF LDA L0551B1 LDX L0551B3 STA $01 STX $03 L09B009 LDY #$0002 LDA [$01],Y TAX LDA [$01] STA $09 STX $0B LDY #$0002 LDA [$09],Y TAX LDA [$09] STA $05 STX $07 LDY #$0002 LDA [$01],Y TAX LDA [$01] CLC ADC #$0004 BCC L09B030 INX L09B030 STA $09 STX $0B LDY #$0002 LDA [$09],Y TAX LDA [$09] PHX PHA JSL L09B242 LDA $05 LDX $07 STA $01 STX $03 LDA $01 ORA $03 BNE L09B009 L09B050 TSC CLC ADC #$000C TCS PLD RTL L09B058 ENT PHD TSC CLC ADC #$FFF8 TCS TCD LDA #$0002 STA $03 L09B065 LDA $03 DEC ASL TAX LDAL L0541A5,X PHA JSL L1512C5 LDA #$000C CMP $03 BEQ L09B07E INC $03 BRA L09B065 L09B07E LDA L0551FB SEC SBC #$0003 BVS L09B08A EOR #$8000 L09B08A BMI L09B10A LDAL L052D08 PHA LDAL L052D06 PHA PEA $012C JSL L150671 LDAL L052D0C PHA LDAL L052D0A PHA PEA $04B0 JSL L150671 LDAL L052CF0 PHA LDAL L052CEE PHA PEA $0514 JSL L150671 LDA L0550D5 LDX L0550D7 CLC ADC #$00CE BCC L09B0CC INX L09B0CC STA $05 STX $07 LDA #$0020 AND [$05] BEQ L09B0E3 LDA L0550E9 LDX L0550EB PHX PHA JSL L09A5A7 L09B0E3 LDA L0550CD LDX L0550CF CLC ADC #$00CE BCC L09B0F0 INX L09B0F0 STA $05 STX $07 LDA #$0020 AND [$05] BEQ L09B107 LDA L0550DD LDX L0550DF PHX PHA JSL L09A5A7 L09B107 BRL L09B1EC L09B10A LDA L0550B9 DEC BNE L09B189 LDAL L052D10 PHA LDAL L052D0E PHA PEA $012C JSL L150671 LDAL L052CEC PHA LDAL L052CEA PHA PEA $0578 JSL L150671 LDAL L052CF0 PHA LDAL L052CEE PHA PEA $01F4 JSL L150671 LDAL L052CF4 PHA LDAL L052CF2 PHA PEA $0258 JSL L150671 LDAL L052CFC PHA LDAL L052CFA PHA PEA $02BC JSL L150671 LDAL L052D00 PHA LDAL L052CFE PHA PEA $0384 JSL L150671 LDAL L052D04 PHA LDAL L052D02 PHA PEA $03E8 JSL L150671 BRA L09B1EC L09B189 LDAL L052CE8 PHA LDAL L052CE6 PHA PEA $012C JSL L150671 LDAL L052CEC PHA LDAL L052CEA PHA PEA $0190 JSL L150671 LDAL L052CF0 PHA LDAL L052CEE PHA PEA $01F4 JSL L150671 LDAL L052CF4 PHA LDAL L052CF2 PHA PEA $0258 JSL L150671 LDA L0551FB SEC SBC #$0004 BVS L09B1D9 EOR #$8000 L09B1D9 BPL L09B1EC LDAL L052CF8 PHA LDAL L052CF6 PHA PEA $02BC JSL L150671 L09B1EC PHY JSL L1503A7 PLA STA $01 JSL L087268 PLY PLY PLY PLY PLD RTL L09B1FE ENT PHD TSC CLC ADC #$FFF8 TCS TCD PHY PHY JSL L150493 PLA STA $01 PLX STX $03 LDA L0550E1 LDX L0550E3 PHX PHA JSL L151131 PEA ^L053249 PEA L053249 JSL L15123D LDA L055111 LDX L055113 PHX PHA JSL L150BD0 PEI $03 PEI $01 JSL L151131 PLY PLY PLY PLY PLD RTL L09B242 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDY #$00CE LDA #$0020 AND [$0A],Y CMP #$0000 BEQ L09B283 PEI $0C PEI $0A JSL L1506B3 PHY LDY #$001E LDA [$0A],Y PHA DEY DEY LDA [$0A],Y PHA JSL L1516AB PLA LSR BCS L09B27B PEI $0C PEI $0A JSL L0A3183 L09B27B PEI $0C PEI $0A JSL L1506AD L09B283 LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L09B294 ENT PHD TSC CLC ADC #$FCB0 TCS ADC #$0269 TCD PEA $0000 TDC CLC ADC #$FF97 PHA PEI $F2 PEI $F0 PEA $0100 JSL L0313BE LDA L054FA1 STA $E1 LDA #$0000 TAX STA [$EC] TXA LDY #$0002 STA [$EC],Y STZ $FC PHY JSL L095F79 PLA LSR BCS L09B2D2 BRL L09B4B3 L09B2D2 LDA #$0001 AND $FA BNE L09B2FE LDA #$0001 STA $97 LDA #$E000 AND $FA LDX #$0099 STA $00,X LDA $F8 LDX #$009B STA $00,X LDA $F4 LDX $F6 TXY LDX #$009D STA $00,X TYA STA $02,X BRA L09B321 L09B2FE LDA #$0002 STA $97 LDA #$8000 LDX #$0099 STA $00,X LDA $F8 LDX #$009B STA $00,X LDA #$8000 LDX #$00A1 STA $00,X LDA $F4 LDX #$00A3 STA $00,X L09B321 LDA #$0002 AND $FA BEQ L09B367 PEA $0000 TDC CLC ADC #$FF97 PHA PEA $0000 TDC CLC ADC #$FD97 PHA PEA $0022 JSL L073002 PEA $0000 TDC CLC ADC #$FF97 PHA PEA ^L0409D9 PEA L0409D9 PEA $0000 TDC CLC ADC #$FE97 PHA PEA $0003 JSL L1509CE PEA $0100 JSL L0313BE L09B367 LDA #$0003 STA $C9 LDA #$0003 STA $CF STZ L0551AD PEA $0079 PEA $001E PEA $0000 PEA $0000 TDC CLC ADC #$FF97 PHA PEA $0000 PEA $0000 TDC CLC ADC #$0097 PEA $0000 PHA TDC CLC ADC #$00C1 PEA $0000 PHA JSL L151639 JSL L09AE88 LDA #$0001 STA L0551AD LDA $C1 BNE L09B3B3 BRL L09B4AD L09B3B3 LDA #$0001 STA $FC PHY PHY PEA ^L0409DB PEA L0409DB PEA $0001 JSL L0730BE PLA STA $D9 PLX STX $DB PEI $D3 PEI $D1 JSL L07185A LDA $CB LDX $CD STA $DD STX $DF LDY #$0002 LDA [$DD],Y TAX LDA [$DD] CLC ADC #$0002 BCC L09B3EC INX L09B3EC PHX PHA LDY #$0002 LDA [$DD],Y PHA LDA [$DD] PHA LDY #$0002 LDA [$DD],Y TAX LDA [$DD] CLC ADC #$0002 BCC L09B406 INX L09B406 STA $E3 STX $E5 LDA [$E3] INC INC JSL L150488 PHX PHA JSL L1511CE LDA $DD LDX $DF STA $D5 STX $D7 LDA $EC LDX $EE STA $E3 STX $E5 PHY PHY PEI $DB PEI $D9 PEI $D7 PEI $D5 JSL L072B9F PLA STA [$E3] PLA LDY #$0002 STA [$E3],Y LDA #$0004 AND $FA BEQ L09B449 LDA #$0001 L09B449 AND L055281 BEQ L09B4A1 LDA #$0055 CMP $F8 BNE L09B465 PEA ^L0409DE PEA L0409DE PEI $DB PEI $D9 JSL L0901A1 BRA L09B4A1 L09B465 LDX #$0000 LDA #$00B3 CMP $F8 BNE L09B470 INX L09B470 PHX LDX #$0000 LDA #$00FF CMP $F8 BNE L09B47C INX L09B47C TXA ORA $01,S PLX LSR BCC L09B493 PEA ^L0409E5 PEA L0409E5 PEI $DB PEI $D9 JSL L0901A1 BRA L09B4A1 L09B493 PEA ^L0409F2 PEA L0409F2 PEI $DB PEI $D9 JSL L0901A1 L09B4A1 PEI $DB PEI $D9 PEI $D7 PEI $D5 JSL L071825 L09B4AD PEI $E1 JSL L0724F7 L09B4B3 LDA $EA STA $FA LDA $E9 STA $F9 LDA $E7 TCD TSC CLC ADC #$0362 TCS RTL