* * HypercardGS * segment: $12 Commands2 * * (k) 2015, Brutal Deluxe Software * mx %00 rel dsk Commands2.l lst off *--------------------------------------- use Commands2.E use Commands2.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 *--------------------------------------- L120000 ENT PHD TSC CLC ADC #$FFFA TCS TCD STZ L055313 PEA $0001 JSL L0A1225 LDA L0550B7 BEQ L12001B JSL L09A560 L12001B STZ L05530B STZ L055311 STZ L055309 LDA #$0001 STA L05530F PEA $0001 PEA $0001 JSL L090541 LDA #$0007 STA L055305 LDA #$0004 STA L055307 LDA #$0000 STAL L051ED6 LDA #$FFFE STAL L051ED8 LDA #$0008 STAL L051EDA LDA #$0000 STAL L051EDC LDA #$0009 STAL L051EDE JSL L160226 PEA $0001 JSL L1601D2 LDA #$0001 STA L054F9F LDA L054FBB SEC SBC #$0000 BMI L12008E LDA L054FA1 STA $01 LDA #$FFFF STA L054FA1 PEI $01 JSL L0724F7 L12008E PLY PLY PLY PLD RTL L120093 ENT PHD TSC CLC ADC #$FFFC TCS TCD JSL L0A3E52 PLY PLY PLD RTL L1200A3 ENT PHD TSC CLC ADC #$FFFC TCS TCD JSL L11036F PLY PLY PLD RTL L1200B3 PHD TSC CLC ADC #$FFE4 TCS TCD STZ $0D STZ $0F LDA $24 LDX $26 STA $01 STX $03 LDA $22 SEC SBC #$0011 BPL L1200D2 BRL L1202FB L1200D2 CMP #$0032 BMI L1200DA BRL L1202FB L1200DA SEC SBC #$0000 BEQ L12010D DEC BNE L1200E6 BRL L12026E L1200E6 SEC SBC #$0029 BEQ L120121 DEC BEQ L120132 DEC BEQ L120145 DEC BEQ L120158 DEC BEQ L12016B DEC BNE L1200FE BRL L120197 L1200FE DEC BNE L120104 BRL L1201D0 L120104 DEC BNE L12010A BRL L120225 L12010A BRL L1202FB L12010D PEI $26 PEI $24 PEA $0000 PEA $0008 PEA $000C JSL L0E0656 BRL L1202FB L120121 PHY JSL L0E05E8 PLA SEC SBC [$01] STA $0F BRL L1201C1 BRL L1202FB L120132 PHY JSL L0E05E8 LDY #$0002 PLA SEC SBC [$01],Y STA $0D BRA L1201C1 BRL L1202FB L120145 PHY JSL L0E05E8 LDY #$0004 PLA SEC SBC [$01],Y STA $0F BRA L1201C1 BRL L1202FB L120158 PHY JSL L0E05E8 LDY #$0006 PLA SEC SBC [$01],Y STA $0D BRA L1201C1 BRL L1202FB L12016B TDC CLC ADC #$0009 PEA $0000 PHA PEA $0000 PEA $0004 PEA $000B JSL L0E0656 LDA $0B LDY #$0002 SEC SBC [$01],Y STA $0D LDA $09 SEC SBC [$01] STA $0F BRA L1201C1 BRL L1202FB L120197 TDC CLC ADC #$0009 PEA $0000 PHA PEA $0000 PEA $0004 PEA $000B JSL L0E0656 LDA $0B LDY #$0006 SEC SBC [$01],Y STA $0D LDA $09 LDY #$0004 SEC SBC [$01],Y STA $0F L1201C1 PEI $26 PEI $24 PEI $0D PEI $0F JSL L1501AF BRL L1202FB L1201D0 PHY PEA $0000 PHY JSL L0E05E8 JSL L072FA6 PLA STA $11 PHY PEA $0000 LDY #$0006 LDA [$01],Y LDY #$0002 SEC SBC [$01],Y PHA JSL L072FA6 PLA STA $15 PHY LDA $11 SEC SBC $15 PHA PLA CMP #$8000 ROR STA $01,S PLA STA $0D LDY #$0002 LDA [$01],Y SEC SBC $0D LDY #$0002 STA [$01],Y LDY #$0002 LDA $11 CLC ADC [$01],Y LDY #$0006 STA [$01],Y BRL L1202FB L120225 PHY PEA $0000 PHY JSL L0E05E8 JSL L072FA6 PLA STA $13 PHY PEA $0000 LDY #$0004 LDA [$01],Y SEC SBC [$01] PHA JSL L072FA6 PLA STA $17 PHY LDA $13 SEC SBC $17 PHA PLA CMP #$8000 ROR STA $01,S PLA STA $0F LDA [$01] SEC SBC $0F STA [$01] LDA $13 CLC ADC [$01] LDY #$0004 STA [$01],Y BRL L1202FB L12026E TDC CLC ADC #$0005 PEA $0000 PHA PEA $0000 PEA $0004 PEA $000B JSL L0E0656 LDY #$0006 LDA [$01],Y LDY #$0002 SEC SBC [$01],Y STA $15 LDY #$0004 LDA [$01],Y SEC SBC [$01] STA $17 LDA #$0002 CLC ADC $01 LDX $03 BCC L1202A6 INX L1202A6 PHX PHA PEI $07 PHY PEI $15 PLA CMP #$8000 ROR STA $01,S PLA STA $19 PLA SEC SBC $19 PLX STX $19 PLX STX $1B STA [$19] PEI $03 PEI $01 PEI $05 PHY PEI $17 PLA CMP #$8000 ROR STA $01,S PLA STA $19 PLA SEC SBC $19 PLX STX $19 PLX STX $1B STA [$19] LDY #$0002 LDA $15 CLC ADC [$01],Y LDY #$0006 STA [$01],Y LDA $17 CLC ADC [$01] LDY #$0004 STA [$01],Y BRA L1202FB L1202FB PEI $26 PEI $24 JSL L121EEF LDA $20 STA $26 LDA $1F STA $25 LDA $1D TCD TSC CLC ADC #$0024 TCS RTL L120315 PHD TSC CLC ADC #$FEFA TCS ADC #$0015 TCD LDA $FA BEQ L120370 LDA #$001A STA $EB LDA #$0043 CLC ADC $F6 LDX $F8 BCC L120334 INX L120334 CLC ADC #$0004 BCC L12033B INX L12033B STA $ED STX $EF LDA #$000F AND [$ED] DEC DEC BNE L12034D LDA #$001B STA $EB L12034D PEA $0018 PEA $0000 TDC CLC ADC #$FFEB PHA PEI $EB JSL L0B127A JSL L0B0841 PHD LDA $F6 TCD CLC ADC #$0000 TCS JMPL L120B98 L120370 LDA $F4 STA $FA LDA $F3 STA $F9 LDA $F1 TCD TSC CLC ADC #$010E TCS RTL L120382 PHD TSC CLC ADC #$FF62 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $AC PEI $AA PEA $0018 JSL L0313BE PHY PEI $13 PEI $11 PEI $0F TDC CLC ADC #$0043 PEA $0000 PHA JSL L07ABAE PLA LSR BCS L1203C4 PEA $0017 JSL L0B0B7A JSL L0E0000 BRL L120B98 L1203C4 TDC CLC ADC #$0019 PEA $0000 PHA TDC CLC ADC #$0043 PEA $0000 PHA PEA $002A JSL L0313BE LDA #$0001 STA $8F STZ $8D STZ $91 LDX #$0000 LDA #$8000 AND $47 BNE L1203F1 INX L1203F1 TXA STA $8B LDA $A8 SEC SBC #$0003 BPL L1203FF BRL L120AAF L1203FF CMP #$0046 BMI L120407 BRL L120AAF L120407 ASL TAX LDAL L12040F,X PHA RTS L12040F DA L120499+1 DA L1204BE+2 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L1209BF+2 DA L1209BF+2 DA L1209BF+2 DA L1209BF+2 DA L120A1A+2 DA L120AAD+1 DA L12050B+2 DA L1205B9+2 DA L1205B9+2 DA L12094A+2 DA L120955+2 DA L12096B+2 DA L1209A2+2 DA L1209AD+2 DA L120674+2 DA L1206E9+2 DA L120767+2 DA L1207EF+2 DA L1207EF+2 DA L1207EF+2 DA L1207EF+2 DA L1207EF+2 DA L120A40+1 DA L120842+2 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120863+2 DA L120917+2 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L1205B9+2 DA L1205B9+2 DA L1205B9+2 DA L1205B9+2 DA L1205B9+2 DA L1205B9+2 DA L1205B9+2 DA L1205B9+2 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L120AAD+1 DA L12071B+2 L120499 DA L1207A4+2 STZ $8F PHY PEI $13 PEI $11 PEI $0F LDY #$0002 LDA [$A4],Y PHA LDA [$A4] PHA JSL L07D712 PLA EOR #$0001 PHA PEA $0000 PHD JSL L120315 L1204BE BRL L120ABA PEA ^L050C32 PEA L050C32 PEA $001F JSL L0E06F4 PHY PEI $13 PEI $11 PEI $0F PEA ^L050C32 PEA L050C32 JSL L07D64A PLA EOR #$0001 PHA PEA $0000 PHD JSL L120315 LDX #$0000 LDA #$000F AND $47 DEC BNE L1204F8 INX L1204F8 TXA BEQ L120509 PHA LDA #$8000 AND $51 BEQ L120506 LDA #$0001 L120506 AND $01,S PLX L120509 STA $91 L12050B BRL L120ABA PHY JSL L0E05E8 PLA STA $79 LDX #$0000 LDA #$0003 CMP $79 BNE L120521 INX L120521 TXA BNE L120534 PHA LDX #$0000 LDA #$0005 CMP $79 BNE L120530 INX L120530 TXA ORA $01,S PLX L120534 PHA PLA BNE L120548 PHA LDX #$0000 LDA #$0006 CMP $79 BNE L120544 INX L120544 TXA ORA $01,S PLX L120548 CMP #$0000 BEQ L12056A LDX #$0000 LDA #$000F AND $47 DEC DEC BNE L12055A INX L12055A TXA BEQ L12056A PEA $0001 PEA $0000 PHD JSL L120315 BRA L1205B9 L12056A LDX #$0000 LDA #$0007 CMP $79 BNE L120575 INX L120575 TXA BEQ L120594 LDX #$0000 LDA #$000F AND $47 DEC BNE L120584 INX L120584 TXA BEQ L120594 PEA $0001 PEA $0000 PHD JSL L120315 BRA L1205B9 L120594 LDA $51 AND #$FFF0 CLC ADC $79 STA $51 TDC CLC ADC #$006D PEA $0000 PHA TDC CLC ADC #$0049 PEA $0000 PHA PEA $0008 JSL L0313BE BRA L1205E4 L1205B9 BRL L120ABA TDC CLC ADC #$006D PEA $0000 PHA TDC CLC ADC #$0049 PEA $0000 PHA PEA $0008 JSL L0313BE TDC CLC ADC #$006D PEA $0000 PHA PEI $A8 JSL L1200B3 L1205E4 LDA #$000F AND $47 DEC DEC BNE L120600 TDC CLC ADC #$006D PEA $0000 PHA LDA #$000F AND $51 PHA JSL L08567B L120600 PHY TDC CLC ADC #$006D PEA $0000 PHA TDC CLC ADC #$0049 PEA $0000 PHA JSL L1501A9 PLA LSR BCS L120674 LDA $8B BEQ L12065B LDA #$8000 ORA $1D STA $1D PHY PEI $13 PEI $11 TDC CLC ADC #$0019 PEA $0000 PHA JSL L07D585 PLA STA $83 TDC CLC ADC #$001F PEA $0000 PHA PEA ^L0532BD PEA L0532BD JSL L081E14 PEI $13 PEI $11 PEI $0F PEA $0000 JSL L0876F4 L12065B TDC CLC ADC #$0049 PEA $0000 PHA TDC CLC ADC #$006D PEA $0000 PHA PEA $0008 JSL L0313BE L120674 BRL L120ABA LDX #$0000 LDA #$000F AND $47 DEC DEC BNE L120684 INX L120684 PHX PEA $0000 PHD JSL L120315 PHY JSL L0B0072 PLA LSR BCC L1206A4 PHY PHY JSL L0E05AF PLA STA $53 PLX STX $55 BRA L1206E9 L1206A4 PEA ^L050C32 PEA L050C32 JSL L0E06AC PHY PEA $8001 PEA ^L050C32 PEA L050C32 TDC CLC ADC #$0099 PEA $0000 PHA TDC CLC ADC #$0093 PEA $0000 PHA JSL L070A4D PLA LSR BCC L1206DC LDA $93 LDX $95 STA $53 STX $55 BRA L1206E9 L1206DC PEA $002F PEA ^L050C32 PEA L050C32 JSL L0B0841 L1206E9 BRL L120ABA LDX #$0000 LDA #$000F AND $47 DEC DEC BNE L1206F9 INX L1206F9 PHX PEA $0000 PHD JSL L120315 PHY JSL L0E0678 PLA LSR BCC L120714 LDA #$8000 ORA $51 STA $51 BRA L12071B L120714 LDA $51 AND #$7FFF STA $51 L12071B BRL L120ABA LDX #$0000 LDA #$000F AND $47 DEC DEC BNE L12072B INX L12072B PHX PEA $0000 PHD JSL L120315 LDA $0B LDX $0D CMP $11 BNE L12073E CPX $13 L12073E BNE L12074E PEA $0082 JSL L0B0B7A JSL L0E0000 BRL L120B98 L12074E PHY JSL L0E0678 PLA LSR BCC L120760 LDA #$4000 ORA $47 STA $47 BRA L120767 L120760 LDA $47 AND #$BFFF STA $47 L120767 BRL L120ABA LDX #$0000 LDA #$000F AND $47 DEC DEC BNE L120777 INX L120777 PHX PEA $0000 PHD JSL L120315 PHY PHY JSL L0E05E8 PEA $0000 PEA $0009 JSL L071A1B PLA STA $81 LDA #$FF0F AND $47 PHA LDA $81 ASL ASL ASL ASL ORA $01,S PLX STA $47 L1207A4 BRL L120ABA LDX #$0000 LDA #$000F AND $47 DEC BNE L1207B3 INX L1207B3 PHX PEA $0000 PHD JSL L120315 LDA $0B LDX $0D CMP $11 BNE L1207C6 CPX $13 L1207C6 BNE L1207D6 PEA $0082 JSL L0B0B7A JSL L0E0000 BRL L120B98 L1207D6 PHY JSL L0E0678 PLA LSR BCC L1207E8 LDA #$4000 ORA $47 STA $47 BRA L1207EF L1207E8 LDA $47 AND #$BFFF STA $47 L1207EF BRL L120ABA PEA $0800 LDA $A8 SEC SBC #$001B PHA JSL L1505F2 PLA STA $7B LDX #$0000 LDA #$000F AND $47 DEC BNE L12080F INX L12080F PHX PEA $0000 PHD JSL L120315 LDA #$001D CMP $A8 BEQ L120828 LDA #$001E CMP $A8 BEQ L120828 STZ $8F L120828 PHY JSL L0E0678 PLA LSR BCC L120839 LDA $51 ORA $7B STA $51 BRA L120842 L120839 LDA #$FFFF EOR $7B AND $51 STA $51 L120842 BRL L120ABA PHY JSL L0E0678 PLA LSR BCC L12085C LDA $47 AND #$7FFF STA $47 LDA #$0001 STA $8D BRA L120863 L12085C LDA #$8000 ORA $47 STA $47 L120863 BRL L120ABA LDX #$0000 LDA #$000F AND $47 DEC BEQ L120872 INX L120872 PHX PEA $0000 PHD JSL L120315 LDA $51 AND #$000F BEQ L120885 LDA #$0001 L120885 PHA LDA $53 ORA $55 BEQ L12088F LDA #$0001 L12088F ORA $01,S PLX STA $8D LDA $45 STA $87 LDA $0B LDX $0D CMP $11 BNE L1208A2 CPX $13 L1208A2 BNE L1208AC LDA $87 EOR #$FFFF INC STA $87 L1208AC PHY PEI $09 PEI $07 PEI $0D PEI $0B PEI $87 PHY JSL L0E0678 PEA $0001 TDC CLC ADC #$0085 PEA $0000 PHA JSL L07D08A PLA STA $83 LDA $85 BEQ L1208EF LDA #$0001 STA $91 PHY PEI $13 PEI $11 PEI $0F TDC CLC ADC #$0043 PEA $0000 PHA JSL L07ABAE PLA STA $83 L1208EF LDA #$00F0 AND $47 PHA PEA $0004 JSL L1510EF PLA STA $81 LDA $81 BEQ L120917 PEI $0D PEI $0B PEI $09 PEI $07 PEI $13 PEI $11 PEI $81 PEI $45 JSL L095059 L120917 BRL L120ABA STZ $8F LDX #$0000 LDA #$000F AND $47 DEC BEQ L120928 INX L120928 PHX PEA $0000 PHD JSL L120315 PHY JSL L0E0678 PLA LSR BCC L120943 LDA #$2000 ORA $51 STA $51 BRA L12094A L120943 LDA $51 AND #$DFFF STA $51 L12094A BRL L120ABA PHY JSL L0E05E8 PLA STA $5B L120955 BRL L120ABA PHY JSL L0D1154 PLA STA $97 LDA #$FFFF CMP $97 BEQ L12096B LDA $97 STA $5D L12096B BRL L120ABA PHY JSL L0E05E8 PLA STA $77 LDA $77 SEC SBC #$0050 BEQ L120985 BVS L120983 EOR #$8000 L120983 BMI L12099B L120985 LDA $77 STA $5F LDA $5F ASL ASL PHA PEA $0003 JSL L1500F5 PLX PLX STA $63 BRA L1209A2 L12099B PEA $0080 JSL L0B0B7A L1209A2 BRL L120ABA PHY JSL L0E05E8 PLA STA $61 L1209AD BRL L120ABA PHY PHY JSL L0E05E8 PEI $5F JSL L072FA6 PLA STA $63 L1209BF BRL L120ABA LDA $A8 SEC SBC #$000B BEQ L1209E7 BVS L1209CF EOR #$8000 L1209CF BPL L1209E7 LDX #$0000 LDA #$000F AND $47 DEC DEC BNE L1209DE INX L1209DE PHX PEA $0000 PHD JSL L120315 L1209E7 TDC CLC ADC #$0065 STA $9B STZ $9D LDA $A8 SEC SBC #$0009 DEC CLC ADC $9B STA $9B BCC L120A00 INC $9D L120A00 PHY PHY JSL L0E05E8 PLA DEC PHA PEA $0000 PEA $000F JSL L071A1B PLA SEP #$20 STA [$9B] REP #$20 L120A1A BRL L120ABA PEA $000F PHY PHY JSL L0E05E8 PLA DEC PHA PEA $0000 PEA $000F JSL L071A1B PLA STA $9B PLA SEC SBC $9B SEP #$20 STA $57 REP #$20 L120A40 BRA L120ABA LDX #$0000 LDA #$000F AND $51 CMP #$0007 BEQ L120A50 INX L120A50 PHX LDX #$0000 LDA #$000F AND $47 DEC DEC BEQ L120A5E INX L120A5E TXA ORA $01,S PLX LSR BCC L120A6E PEA $0021 JSL L0B0B7A BRA L120AAD L120A6E PHY JSL L0E05E8 PLA STA $7F LDA $45 STA $7D LDA $0B LDX $0D CMP $11 BNE L120A84 CPX $13 L120A84 BNE L120A8E LDA $7D EOR #$FFFF INC STA $7D L120A8E PEI $7F PHY PEI $7D JSL L086029 PLA SEC SBC $01,S STA $01,S PLA BEQ L120AAD PEI $7D PEI $7F JSL L0873D7 LDA #$0001 STA $91 L120AAD BRA L120ABA L120AAF PEA $0001 PEA $0000 PHD JSL L120315 L120ABA LDA $91 BNE L120ADF PHY TDC CLC ADC #$0043 PEA $0000 PHA TDC CLC ADC #$0019 PEA $0000 PHA PEA $002A JSL L070A10 PLA LSR BCC L120ADF BRL L120B98 L120ADF PHY PEI $13 PEI $11 TDC CLC ADC #$0043 PEA $0000 PHA JSL L07D585 PLA EOR #$0001 PHA PEA $0000 PHD JSL L120315 LDA L0551F5 LDX L0551F7 CMP $11 BNE L120B0A CPX $13 L120B0A BEQ L120B11 LDA #$0000 BRA L120B14 L120B11 LDA #$0001 L120B14 PHA LDX #$0000 LDAL L052D34 CMP $45 BNE L120B21 INX L120B21 TXA AND $01,S PLX LSR BCC L120B3E PEA ^L052D32 PEA L052D32 TDC CLC ADC #$0043 PEA $0000 PHA PEA $002A JSL L0313BE L120B3E LDA L055129 LDX L05512B CMP $11 BNE L120B4A CPX $13 L120B4A BEQ L120B51 LDA #$0000 BRA L120B54 L120B51 LDA #$0001 L120B54 PHA LDX #$0000 LDAL L05328D CMP $45 BNE L120B61 INX L120B61 TXA AND $01,S PLX LSR BCC L120B7E PEA ^L05328B PEA L05328B TDC CLC ADC #$0043 PEA $0000 PHA PEA $002A JSL L0313BE L120B7E LDX #$0000 LDA #$8000 AND $47 BNE L120B89 INX L120B89 TXA STA $89 PEI $13 PEI $11 PEI $0F PEI $8D JSL L0876F4 L120B98 LDA $A2 STA $AC LDA $A1 STA $AB LDA $9F TCD TSC CLC ADC #$00AA TCS RTL L120BAA PHD TSC CLC ADC #$FEC0 TCS ADC #$0055 TCD STZ $DF STZ $E5 PHY PHY PEI $FA PEI $F8 JSL L077A5B PLA STA $D9 PLX STX $DB LDA $D9 ORA $DB BNE L120BD2 BRL L120DB4 L120BD2 LDY #$0002 LDA [$D9],Y TAX LDA [$D9] CLC ADC #$0004 BCC L120BE1 INX L120BE1 STA $E7 STX $E9 LDA #$4143 LDX #$4452 CMP [$E7] BNE L120BF5 LDY #$0002 TXA CMP [$E7],Y L120BF5 BEQ L120BFC LDA #$0000 BRA L120BFF L120BFC LDA #$0001 L120BFF STA $E3 LDA $E3 BEQ L120C0C LDA #$001C STA $DD BRA L120C11 L120C0C LDA #$001D STA $DD L120C11 LDA $F6 CMP $DD BEQ L120C1A BRL L120D2B L120C1A LDA $F4 DEC DEC DEC BPL L120C24 BRL L120D2B L120C24 CMP #$0037 BMI L120C2C BRL L120D2B L120C2C SEC SBC #$0000 BEQ L120C5C DEC BEQ L120C74 DEC BNE L120C3B BRL L120D0F L120C3B DEC BNE L120C41 BRL L120D16 L120C41 DEC BNE L120C47 BRL L120D24 L120C47 DEC BEQ L120CBD SEC SBC #$0013 BNE L120C53 BRL L120D1D L120C53 SEC SBC #$001E BEQ L120C96 BRL L120D2B L120C5C PHY PEI $FA PEI $F8 LDY #$0002 LDA [$F0],Y PHA LDA [$F0] PHA JSL L07D3A2 PLA STA $E5 BRL L120D2B L120C74 PEA ^L050C32 PEA L050C32 PEA $001F JSL L0E06F4 PHY PEI $FA PEI $F8 PEA ^L050C32 PEA L050C32 JSL L07D20B PLA STA $E5 BRL L120D2B L120C96 LDA #$0001 STA $E5 LDA $E3 BEQ L120CAE PEI $FA PEI $F8 PHY JSL L0E0678 JSL L099F77 BRA L120CBB L120CAE PEI $FA PEI $F8 PHY JSL L0E0678 JSL L099EA4 L120CBB BRA L120D2B L120CBD TDC CLC ADC #$00B3 PEA $0000 PHA PEA $0000 PEA $0020 PEA $0018 JSL L0E0656 LDY #$0002 LDA [$D9],Y TAX LDA [$D9] CLC ADC #$0010 BCC L120CE2 INX L120CE2 STA $E7 STX $E9 LDA #$1000 AND [$E7] BEQ L120CF0 LDA #$0001 L120CF0 STA $E1 PHY PEI $FA PEI $F8 PEI $E1 TDC CLC ADC #$00B3 PEA $0000 PHA JSL L07CD77 PLA STA $E5 JSL L083E9E BRA L120D2B L120D0F LDA #$8000 STA $DF BRA L120D2B L120D16 LDA #$4000 STA $DF BRA L120D2B L120D1D LDA #$0800 STA $DF BRA L120D2B L120D24 LDA #$1000 STA $DF BRA L120D2B L120D2B LDA $DF BEQ L120DA9 LDA #$0001 STA $E5 PHY JSL L0E0678 PLA STA $D3 LDA $E3 BEQ L120D70 LDY #$0002 LDA [$D9],Y TAX LDA [$D9] STA $AF STX $B1 LDA $D3 BEQ L120D5E LDY #$0010 LDA $DF ORA [$AF],Y LDY #$0010 STA [$AF],Y BRA L120D6E L120D5E LDY #$0010 LDA #$FFFF SEC SBC $DF AND [$AF],Y LDY #$0010 STA [$AF],Y L120D6E BRA L120D9E L120D70 LDY #$0002 LDA [$D9],Y TAX LDA [$D9] STA $AB STX $AD LDA $D3 BEQ L120D8E LDY #$0010 LDA $DF ORA [$AB],Y LDY #$0010 STA [$AB],Y BRA L120D9E L120D8E LDY #$0010 LDA #$FFFF SEC SBC $DF AND [$AB],Y LDY #$0010 STA [$AB],Y L120D9E LDA #$1000 CMP $DF BNE L120DA9 JSL L083E9E L120DA9 PEI $FA PEI $F8 PEA $0001 JSL L074E4D L120DB4 LDA $E5 BNE L120DCE PEA $0018 PEA $0000 TDC CLC ADC #$FFAB PHA PEI $F6 JSL L0B127A JSL L0B0841 L120DCE LDA $EE STA $FA LDA $ED STA $F9 LDA $EB TCD TSC CLC ADC #$014E TCS RTL L120DE0 PHD TSC CLC ADC #$FDC0 TCS ADC #$0153 TCD PEA $0000 TDC CLC ADC #$FFAD PHA PEI $FA PEI $F8 PEA $0018 JSL L0313BE STZ $E7 LDA $F6 SEC SBC #$0003 BPL L120E0C BRL L120EFF L120E0C CMP #$0006 BMI L120E14 BRL L120EFF L120E14 ASL TAX LDAL L120E1C,X PHA RTS L120E1C DA L120E26+1 DA L120E39+2 DA L120E5A+2 DA L120E6B+2 DA L120E75+2 L120E26 DA L120EBB+1 PHY LDY #$0002 LDA [$F2],Y PHA LDA [$F2] PHA JSL L0785BE PLA STA $E7 L120E39 BRL L120EFF PEA $0000 TDC CLC ADC #$FFC5 PHA JSL L0E06AC PHY PEA $0000 TDC CLC ADC #$FFC5 PHA JSL L0782F1 PLA STA $E7 L120E5A BRL L120EFF LDA #$0001 STA $E7 PHY JSL L0E0678 JSL L09992C L120E6B BRL L120EFF LDA #$4000 STA $E5 BRA L120E7D L120E75 BRL L120EFF LDA #$1000 STA $E5 L120E7D LDA #$0001 STA $E7 LDA L05504F BNE L120EAA PHY JSL L0E0678 PLA LSR BCC L120E9C LDAL L053AE9 ORA $E5 STAL L053AE9 BRA L120EAA L120E9C LDA #$FFFF SEC SBC $E5 ANDL L053AE9 STAL L053AE9 L120EAA LDA #$1000 CMP $E5 BNE L120EB5 JSL L083E9E L120EB5 LDA #$0001 STA L05504D L120EBB BRA L120EFF LDA #$0001 STA $E7 LDA L05504F BNE L120EFD TDC CLC ADC #$00C5 PEA $0000 PHA PEA $0000 PEA $0020 PEA $0018 JSL L0E0656 PEA ^L053AFD PEA L053AFD TDC CLC ADC #$00C5 PEA $0000 PHA PEA $0020 JSL L0313BE LDA #$0001 STA L05504D JSL L083E9E L120EFD BRA L120EFF L120EFF LDA $E7 BNE L120F1A PEA $0018 PEA $0000 TDC CLC ADC #$FEAD PHA PEA $001E JSL L0B127A JSL L0B0841 L120F1A LDA $F0 STA $FA LDA $EF STA $F9 LDA $ED TCD TSC CLC ADC #$024C TCS RTL L120F2C PHD TSC CLC ADC #$FFF6 TCS TCD STZ $05 LDA $10 SEC SBC #$0013 BPL L120F41 BRL L1210DB L120F41 CMP #$001A BMI L120F49 BRL L1210DB L120F49 ASL TAX LDAL L120F51,X PHA RTS L120F51 DA L12103D+2 DA L12104F+2 DA L12106C+1 DA L1210AD+1 DA L1210BE+1 DA L1210D9+1 DA L1210D9+1 DA L1210D9+1 DA L1210D9+1 DA L1210D9+1 DA L1210D9+1 DA L1210D9+1 DA L1210D9+1 DA L1210D9+1 DA L1210D9+1 DA L1210D9+1 DA L1210D9+1 DA L120F83+1 DA L120FA0+2 DA L120FAC+2 DA L120FC5+2 DA L120FD1+2 DA L120FDD+2 DA L120FE9+2 DA L120FF8+2 L120F83 DA L121019+2 PHY JSL L0E0678 PLA CMP L055313 BEQ L120FA0 LDA L055313 EOR #$0001 STA L055313 PEA $0001 JSL L1601D2 L120FA0 BRL L1210DB PHY JSL L0E05E8 JSL L0A1225 L120FAC BRL L1210DB LDA L0550B7 PHA PHY JSL L0E0678 PLA SEC SBC $01,S STA $01,S PLA BEQ L120FC5 JSL L09A560 L120FC5 BRL L1210DB PHY JSL L0E0678 PLA STA L05530B L120FD1 BRL L1210DB PHY JSL L0E0678 PLA STA L055311 L120FDD BRL L1210DB PHY JSL L0E05E8 PLA STA L05530F L120FE9 BRL L1210DB PHY JSL L0E05E8 PEA $0001 JSL L090541 L120FF8 BRL L1210DB PHY PHY JSL L0E05E8 PEA $0001 PEA $0020 JSL L071A1B PLA STA L055305 LDA #$0001 STA L054F9F JSL L160226 L121019 BRL L1210DB PHY JSL L0E05E8 PLA STA L055307 LDA L055307 BEQ L12103D PHY LDA L055307 PHA PEA $0003 PEA $0032 JSL L071A1B PLA STA L055307 L12103D BRL L1210DB PHY JSL L0E05E8 PLA STAL L051ED6 LDA #$0001 STA $05 L12104F BRL L1210DB LDA #$0001 STA $05 PHY JSL L0D1154 PLA STA $03 LDA #$FFFF CMP $03 BEQ L12106C LDA $03 STAL L051ED8 L12106C BRA L1210DB PHY JSL L0E05E8 PLA STA $01 LDA $01 SEC SBC #$0050 BEQ L121085 BVS L121083 EOR #$8000 L121083 BMI L1210A6 L121085 LDA #$0001 STA $05 LDA $01 STAL L051EDA LDAL L051EDA ASL ASL PHA PEA $0003 JSL L1500F5 PLX PLX STAL L051EDE BRA L1210AD L1210A6 PEA $0080 JSL L0B0B7A L1210AD BRA L1210DB LDA #$0001 STA $05 PHY JSL L0E05E8 PLA STAL L051EDC L1210BE BRA L1210DB LDA #$0001 STA $05 PHY PHY JSL L0E05E8 LDAL L051EDA PHA JSL L072FA6 PLA STAL L051EDE L1210D9 BRA L1210DB L1210DB LDA $05 BEQ L1210E6 PEA $0001 JSL L1601D2 L1210E6 LDA $0E STA $10 LDA $0D STA $0F LDA $0B TCD TSC CLC ADC #$000E TCS RTL L1210F8 PHD TSC CLC ADC #$FDC6 TCS ADC #$014D TCD PEA $0000 TDC CLC ADC #$FFB3 PHA PEI $FA PEI $F8 PEA $0018 JSL L0313BE LDA $F6 SEC SBC #$0009 BPL L121122 BRL L12148C L121122 CMP #$0042 BMI L12112A BRL L12148C L12112A ASL TAX LDAL L121132,X PHA RTS L121132 DA L12147A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L1213DC+2 DA L1213DC+2 DA L1213DC+2 DA L1213DC+2 DA L1213DC+2 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L1211B4+1 DA L1211D7+2 DA L1213DC+2 DA L1213DC+2 DA L1213DC+2 DA L1213DC+2 DA L1213DC+2 DA L1213DC+2 DA L1213DC+2 DA L1213DC+2 DA L1213DC+2 DA L121207+2 DA L12148A+1 DA L12148A+1 DA L121220+2 DA L1213BA+2 DA L1213D0+2 DA L121274+2 DA L1211CB+2 DA L121237+2 DA L1211E3+2 DA L1211EF+2 DA L1211FB+2 DA L12148A+1 DA L1211BF+2 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L12148A+1 DA L1213E5+2 DA L121402+2 DA L12140E+2 DA L121456+1 DA L12148A+1 DA L12148A+1 DA L12146F+1 L1211B4 DA L12138F+2 PHY JSL L0E05E8 JSL L099CDB L1211BF BRL L1214A3 PHY JSL L0E0678 PLA STA L055243 L1211CB BRL L1214A3 PHY JSL L0E05E8 PLA STA L055215 L1211D7 BRL L1214A3 PHY JSL L0E0678 PLA STA L055219 L1211E3 BRL L1214A3 PHY JSL L0E0678 PLA STA L05521B L1211EF BRL L1214A3 PHY JSL L0E0678 PLA STA L05524D L1211FB BRL L1214A3 PHY JSL L0E0678 PLA STA L055217 L121207 BRL L1214A3 LDA L055153 PHA PHY JSL L0E0678 PLA SEC SBC $01,S STA $01,S PLA BEQ L121220 JSL L09A544 L121220 BRL L1214A3 PEA $0000 TDC CLC ADC #$FFCB PHA JSL L0E06AC PEA $005B JSL L0B0B7A L121237 BRL L1214A3 PEA $0000 TDC CLC ADC #$FFCB PHA JSL L0E06AC LDA #$00FF LDX #$FFCB AND $00,X SEC SBC #$001F BEQ L121267 BVS L12125A EOR #$8000 L12125A BPL L121267 LDX #$FFCB SEP #$20 LDA #$1F STA $00,X REP #$20 L121267 PEA $0000 TDC CLC ADC #$FFCB PHA JSL L0B2C0A L121274 BRL L1214A3 STZ $E5 LDA L054FBB STA $E7 STZ L054FBB PHY JSL L0B0072 PLA LSR BCC L1212B2 PHY PHY JSL L0E05E8 PLA LDX #$0000 BIT #$8000 BEQ L12129A DEX L12129A PHX PHA JSL L072F5C PLA LSR BCC L1212AF LDA #$0002 STA $E5 LDA #$FFFF STA L054FA1 L1212AF BRL L12137A L1212B2 PEA $0000 TDC CLC ADC #$FFCB PHA JSL L0E06AC PHY PEA $0000 TDC CLC ADC #$FFCB PHA PEA ^L040381 PEA L040381 JSL L071C56 PLA LSR BCC L1212DF LDA #$0005 STA $E5 BRL L12137A L1212DF PHY PEA $0000 TDC CLC ADC #$FFCB PHA PEA ^L040386 PEA L040386 JSL L071C56 PLA LSR BCC L1212FD JSL L072328 BRA L12137A L1212FD PHY PEA $0000 TDC CLC ADC #$FFCB PHA PEA ^L04038B PEA L04038B JSL L071C56 PLA LSR BCC L12131C LDA #$0004 STA $E5 BRA L12137A L12131C PHY PEA $0000 TDC CLC ADC #$FFCB PHA PEA ^L040391 PEA L040391 JSL L071C56 PLA LSR BCC L12133B LDA #$0010 STA $E5 BRA L12137A L12133B PHY PEA $8027 PEA $0000 TDC CLC ADC #$FFCB PHA TDC CLC ADC #$00E3 PEA $0000 PHA TDC CLC ADC #$00DF PEA $0000 PHA JSL L070A4D PLA LSR BCC L12137A PHY PEI $E1 PEI $DF JSL L072F5C PLA LSR BCC L12137A LDA #$0002 STA $E5 LDA #$FFFF STA L054FA1 L12137A LDA $E5 BEQ L12138A PEI $E5 JSL L0724F7 LDA #$0001 STA L054F9F L12138A LDA $E7 STA L054FBB L12138F BRL L1214A3 PEA $0000 TDC CLC ADC #$FFCB PHA JSL L0E06AC LDA #$00FF LDX #$FFCB AND $00,X SEC SBC #$0000 BMI L1213BA BEQ L1213BA LDA #$00FF LDX #$FFCC AND $00,X STA L055277 L1213BA BRL L1214A3 PHY JSL L0E0678 PLA LSR BCC L1213CC JSL L096029 BRA L1213D0 L1213CC JSL L09AED3 L1213D0 BRL L1214A3 PHY JSL L0E0678 PLA STA L0551DD L1213DC BRL L1214A3 PEI $F6 JSL L120F2C L1213E5 BRL L1214A3 LDA L054FA3 LDX L054FA5 PHX PHA JSL L07185A PHY PHY JSL L0E04DE PLA STA L054FA3 PLA STA L054FA5 L121402 BRL L1214A3 PHY JSL L0E0678 PLA STA L054FA7 L12140E BRL L1214A3 TDC CLC ADC #$00CB PEA $0000 PHA PEA $0013 JSL L0E06F4 PHY JSL L16072E PLA LSR BCC L121456 PHY TDC CLC ADC #$00CB PEA $0000 PHA JSL L16074A PLA LSR BCS L12144C PEA $0083 TDC CLC ADC #$00CB PEA $0000 PHA JSL L0B0841 L12144C PEA ^L16074A PEA L16074A JSL L07187A L121456 BRA L1214A3 PHY PHY JSL L0E05E8 PEA $0001 PEA $0010 JSL L071A1B PLA DEC PHA JSL L0B81C9 L12146F BRA L1214A3 PHY JSL L0E0678 PLA STA L055309 L12147A BRA L1214A3 PHY PHY JSL L0E05AF PLA STA L055279 PLA STA L05527B L12148A BRA L1214A3 L12148C PEA $0018 PEA $0000 TDC CLC ADC #$FEB3 PHA PEA $001F JSL L0B127A JSL L0B0841 L1214A3 LDA $F0 STA $FA LDA $EF STA $F9 LDA $ED TCD TSC CLC ADC #$0246 TCS RTL L1214B5 PHD TSC CLC ADC #$FEE8 TCS ADC #$0027 TCD LDA $FA SEC SBC #$0012 BPL L1214CB BRL L12164A L1214CB CMP #$002F BMI L1214D3 BRL L12164A L1214D3 SEC SBC #$0000 BEQ L1214FA SEC SBC #$000F BNE L1214E2 BRL L121620 L1214E2 SEC SBC #$001A BEQ L121543 DEC BEQ L121543 DEC BEQ L121543 DEC BEQ L121543 DEC BEQ L1214FA DEC BEQ L121543 BRL L12164A L1214FA TDC CLC ADC #$00E9 PEA $0000 PHA PEA $0000 PEA $0004 PEA $000B JSL L0E0656 LDA $EB ASL STA $EB TDC CLC ADC #$00E9 PEA $0000 PHA JSL L121E9A LDA L0550ED LDX L0550EF CMP $F6 BNE L12152E CPX $F8 L12152E BEQ L12153C PEI $EB PEI $E9 PEI $F8 PEI $F6 JSL L151029 L12153C JSL L09AFB1 BRL L121661 L121543 PEI $F8 PEI $F6 TDC CLC ADC #$00D9 PEA $0000 PHA JSL L0B1831 STZ $E3 STZ $E1 LDA $FA SEC SBC #$003B BPL L121563 BRL L1215E6 L121563 CMP #$0006 BPL L1215E6 SEC SBC #$0000 BEQ L1215A4 DEC BEQ L1215BE DEC BEQ L1215B1 DEC BEQ L1215D2 DEC DEC BEQ L12157D BRA L1215E6 L12157D TDC CLC ADC #$00E9 PEA $0000 PHA PEA $0000 PEA $0004 PEA $000B JSL L0E0656 LDA $EB ASL SEC SBC $DF STA $E3 LDA $E9 SEC SBC $DD STA $E1 BRA L1215E6 L1215A4 PHY JSL L0E05E8 PLA SEC SBC $D9 STA $E1 BRA L1215E6 L1215B1 PHY JSL L0E05E8 PLA SEC SBC $DD STA $E1 BRA L1215E6 L1215BE PHY JSL L0E05E8 LDA #$0002 JSL L150BEE PLA SEC SBC $DB STA $E3 BRA L1215E6 L1215D2 PHY JSL L0E05E8 LDA #$0002 JSL L150BEE PLA SEC SBC $DF STA $E3 BRA L1215E6 L1215E6 LDA L0550ED LDX L0550EF CMP $F6 BNE L1215F2 CPX $F8 L1215F2 BEQ L12161E TDC CLC ADC #$00D9 PEA $0000 PHA PEI $E3 PEI $E1 JSL L1501AF TDC CLC ADC #$00D9 PEA $0000 PHA JSL L121EEF PEI $DB PEI $D9 PEI $F8 PEI $F6 JSL L151029 L12161E BRA L121661 L121620 LDX #$0000 LDY #$00CE LDA #$0020 AND [$F6],Y CMP #$0000 BEQ L121631 INX L121631 PHX PHY JSL L0E0678 PLA SEC SBC $01,S STA $01,S PLA BEQ L121648 PEI $F8 PEI $F6 JSL L09A5A7 L121648 BRA L121661 L12164A PEA $0018 PEA $0000 TDC CLC ADC #$FFD9 PHA PEA $0020 JSL L0B127A JSL L0B0841 L121661 LDA $F4 STA $FA LDA $F3 STA $F9 LDA $F1 TCD TSC CLC ADC #$0120 TCS RTL L121673 ENT PHD TSC CLC ADC #$FFCC TCS TCD STZ $2B STZ $2D LDA L0553C5 LDX L0553C7 STA $31 STX $33 LDY #$0002 LDA [$31],Y TAX LDA [$31] PHX PHA LDA L0553C3 DEC JSL L150488 TAY BNE L12169F DEX L12169F DEC PEA $0000 PEA $0010 JSL L150D50 PLA PLX JSL L150F53 CLC ADC #$0005 BCC L1216B7 INX L1216B7 STA $31 STX $33 LDA #$00FF AND [$31] BIT #$0080 BEQ L1216C8 ORA #$FF80 L1216C8 DEC DEC BMI L121719 CMP #$0002 BPL L121719 SEC SBC #$0000 BEQ L1216DC DEC BEQ L1216F7 BRA L121719 L1216DC TDC CLC ADC #$0001 PEA $0000 PHA PEA $0000 PEA $0018 PEA $000F PEA $0002 JSL L0B3145 BRA L121728 L1216F7 JSL L0B32A5 PHY PHY JSL L0E061D PLA STA $2B PLX STX $2D LDA $2B ORA $2D BNE L121717 PEA $0084 JSL L0B0B7A BRL L121895 L121717 BRA L121728 L121719 LDA L055039 LDX L05503B STA $03 STX $05 LDA #$0005 STA $01 L121728 TDC CLC ADC #$002F PEA $0000 PHA PEA $0000 PEA $0002 PEA $0015 PEA $0004 JSL L0B3145 LDA #$0003 CMP $2F BNE L1217A9 PHY PHY JSL L0E04DE PLA STA $27 PLX STX $29 PHY PHY LDY #$0002 LDA [$27],Y PHA LDA [$27] PHA JSL L071C98 LDA #$7530 LDX #$0000 JSL L033477 BEQ L121788 BVS L121774 EOR #$8000 L121774 BPL L121788 PEI $29 PEI $27 JSL L07185A PEA $0072 JSL L0B0B7A BRL L121895 L121788 PHY PHY LDY #$0002 LDA [$27],Y PHA LDA [$27] PHA JSL L0B41C8 PLA STA $23 PLX STX $25 PEI $25 PEI $23 PEI $29 PEI $27 JSL L1512FB L1217A9 LDA $2B ORA $2D BEQ L1217BC PEI $2F PEI $2D PEI $2B JSL L1214B5 BRL L121879 L1217BC PHY PEI $05 PEI $03 JSL L0D109F PLA LSR BCS L1217CC BRL L121879 L1217CC LDA $01 DEC BPL L1217D4 BRL L12186E L1217D4 CMP #$0005 BMI L1217DC BRL L12186E L1217DC SEC SBC #$0000 BEQ L1217F0 DEC BEQ L12180A DEC BEQ L121822 DEC BEQ L12183A DEC BEQ L121854 BRA L12186E L1217F0 TDC CLC ADC #$0001 PEA $0000 PHA PEI $2F TDC CLC ADC #$0027 PEA $0000 PHA JSL L120382 BRA L121875 L12180A PEI $0D PEI $0B PEA $001C PEI $2F TDC CLC ADC #$0027 PEA $0000 PHA JSL L120BAA BRA L121875 L121822 PEI $09 PEI $07 PEA $001D PEI $2F TDC CLC ADC #$0027 PEA $0000 PHA JSL L120BAA BRA L121875 L12183A TDC CLC ADC #$0001 PEA $0000 PHA PEI $2F TDC CLC ADC #$0027 PEA $0000 PHA JSL L120DE0 BRA L121875 L121854 TDC CLC ADC #$0001 PEA $0000 PHA PEI $2F TDC CLC ADC #$0027 PEA $0000 PHA JSL L1210F8 BRA L121875 L12186E PEA $0022 JSL L0B0B7A L121875 JSL L0B381C L121879 LDA #$0003 CMP $2F BNE L121895 PEI $29 PEI $27 JSL L07185A TDC CLC ADC #$0001 PEA $0000 PHA JSL L0B1A77 L121895 TSC CLC ADC #$0034 TCS PLD RTL L12189D ENT PHD TSC CLC ADC #$FE6A TCS ADC #$009F TCD STZ $E3 PHY JSL L0314F6 PLA CMP #$0004 BNE L1218D0 LDA #$0001 STA $E3 TDC CLC ADC #$00E9 PEA $0000 PHA PEA $0000 PEA $0004 PEA $000B JSL L0E0656 L1218D0 PHY JSL L0314F6 PLA DEC BPL L1218DC BRL L121BCF L1218DC CMP #$000B BMI L1218E4 BRL L121BCF L1218E4 SEC SBC #$0000 BEQ L121912 DEC BEQ L121934 DEC BNE L1218F3 BRL L1219B1 L1218F3 DEC DEC BNE L1218FA BRL L121B03 L1218FA SEC SBC #$0004 BNE L121903 BRL L121B5F L121903 DEC BNE L121909 BRL L121BA5 L121909 DEC BNE L12190F BRL L121BBA L12190F BRL L121BCF L121912 LDA #$0001 STA L055145 JSL L15147E PEA $0000 PEA $000C PEA $FFFF JSL L08736A JSL L09AFB1 JSL L0E0000 BRL L121BCF L121934 PHY PHY JSL L0E061D PLA STA $E5 PLX STX $E7 LDA $E5 ORA $E7 BNE L121950 PEA $0084 JSL L0B0B7A BRL L121BCF L121950 LDA $E3 BEQ L12197D LDA L0550ED LDX L0550EF CMP $E5 BNE L121960 CPX $E7 L121960 BEQ L12197D TDC CLC ADC #$00E9 PEA $0000 PHA JSL L121E9A LDA $EB ASL PHA PEI $E9 PEI $E7 PEI $E5 JSL L151029 L12197D LDY #$00CE LDA #$0020 AND [$E5],Y CMP #$0000 BNE L121994 PEI $E7 PEI $E5 JSL L09A5A7 BRA L1219AA L121994 LDA L0550ED LDX L0550EF CMP $E5 BNE L1219A0 CPX $E7 L1219A0 BEQ L1219AA PEI $E7 PEI $E5 JSL L1511C8 L1219AA JSL L09AFB1 BRL L121BCF L1219B1 TDC CLC ADC #$00A3 PEA $0000 PHA PEA $0000 PEA $0030 PEA $000A JSL L0E0656 PHY TDC CLC ADC #$00A3 PEA $0000 PHA PEA $0000 JSL L0D0F6E PLA STA $ED LDA $A5 LDX $A7 STA $EF STX $F1 PHY PEI $F1 PEI $EF PEI $ED TDC CLC ADC #$0061 PEA $0000 PHA JSL L07ABAE PLA LSR BCS L1219FE BRL L121B00 L1219FE TDC CLC ADC #$00D3 PEA $0000 PHA TDC CLC ADC #$0067 PEA $0000 PHA PEA $0008 JSL L0313BE LDA $E3 BEQ L121A61 LDA $D9 SEC SBC $D5 STA $DB LDA $D7 SEC SBC $D3 STA $DD PEI $EB PHY PEI $DB PLA CMP #$8000 ROR STA $01,S PLA STA $F3 PLA SEC SBC $F3 STA $D5 PEI $E9 PHY PEI $DD PLA CMP #$8000 ROR STA $01,S PLA STA $F3 PLA SEC SBC $F3 STA $D3 LDA $DB CLC ADC $D5 STA $D9 LDA $DD CLC ADC $D3 STA $D7 L121A61 TDC CLC ADC #$00D3 PEA $0000 PHA JSL L121EEF LDA #$8000 AND $65 BNE L121ABD PHY TDC CLC ADC #$00D3 PEA $0000 PHA TDC CLC ADC #$0067 PEA $0000 PHA JSL L1501A9 PLA LSR BCC L121A93 BRL L121BCF L121A93 LDA #$8000 ORA $65 STA $65 PHY PEI $F1 PEI $EF TDC CLC ADC #$0061 PEA $0000 PHA JSL L07D585 PLA LSR BCC L121ABD PEI $F1 PEI $EF PEI $ED PEA $0000 JSL L0876F4 L121ABD TDC CLC ADC #$0067 PEA $0000 PHA TDC CLC ADC #$00D3 PEA $0000 PHA PEA $0008 JSL L0313BE LDA #$7FFF AND $65 STA $65 PHY PEI $F1 PEI $EF TDC CLC ADC #$0061 PEA $0000 PHA JSL L07D585 PLA LSR BCC L121B00 PEI $F1 PEI $EF PEI $ED PEA $0001 JSL L0876F4 L121B00 BRL L121BCF L121B03 JSL L0E0000 PHY JSL L0314F6 PLA SEC SBC #$0006 BMI L121B55 CMP #$0003 BPL L121B55 SEC SBC #$0000 BEQ L121B26 DEC BEQ L121B39 DEC BEQ L121B47 BRA L121B55 L121B26 LDAL L053ACB TAX LDAL L053AC9 STA $DF STX $E1 JSL L0E0000 BRA L121B55 L121B39 PHY PHY JSL L0E05AF PLA STA $DF PLX STX $E1 BRA L121B55 L121B47 LDA #$FFFF TAX STA $DF STX $E1 JSL L0E0000 BRA L121B55 L121B55 PEI $E1 PEI $DF JSL L099DFC BRA L121BCF L121B5F TDC CLC ADC #$008B PEA $0000 PHA PEA $0000 PEA $0018 PEA $000F JSL L0E0656 LDA $8B DEC DEC BNE L121B88 PEI $97 PEI $95 PEA $0001 JSL L099F77 BRA L121BA3 L121B88 LDA #$0003 CMP $8B BNE L121B9C PEI $93 PEI $91 PEA $0001 JSL L099EA4 BRA L121BA3 L121B9C PEA $0067 JSL L0B0B7A L121BA3 BRA L121BCF L121BA5 LDA L055027 LDX L055029 PHX PHA PEA $0001 JSL L099F77 JSL L0E0000 BRA L121BCF L121BBA LDA L05501F LDX L055021 PHX PHA PEA $0001 JSL L099EA4 JSL L0E0000 BRA L121BCF L121BCF TSC CLC ADC #$0196 TCS PLD RTL L121BD7 ENT PHD TSC CLC ADC #$FF9C TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEA $0000 PEA $0054 PEA $0007 JSL L0E0656 TDC CLC ADC #$0055 PEA $0000 PHA JSL L0E00CC TDC CLC ADC #$0001 PEA $0000 PHA JSL L0E0BFC PHY JSL L03198D PLA LSR BCC L121C2B TDC CLC ADC #$0055 PEA $0000 PHA JSL L0E07F9 JSL L100B4B BRA L121C32 L121C2B PEA $000B JSL L0B0B7A L121C32 TDC CLC ADC #$0001 PEA $0000 PHA PEA $0002 JSL L0E0184 TSC CLC ADC #$0064 TCS PLD RTL L121C4A ENT PHD TSC CLC ADC #$FFFC TCS TCD JSL L0A405F PLY PLY PLD RTL L121C5A ENT PHD TSC CLC ADC #$FEF6 TCS ADC #$0013 TCD PHY JSL L0314F6 PLA CMP #$0002 BNE L121C88 TDC CLC ADC #$00ED PEA $0000 PHA PEA $0000 PEA $0006 PEA $000D JSL L0E0656 BRA L121C9B L121C88 TDC CLC ADC #$00ED PEA $0000 PHA PEA $0000 PEA $0006 JSL L071EC5 L121C9B PEA $0000 TDC CLC ADC #$FFED PHA JSL L0E06AC PEA $0000 TDC CLC ADC #$FFED PHA PEI $ED PEI $EF PEI $F1 JSL L0B104C TSC CLC ADC #$010A TCS PLD RTL L121CC3 ENT PHD TSC CLC ADC #$FFFA TCS TCD PHY JSL L0314F6 PLA CMP #$0003 BNE L121CFA PHY JSL L16072E PLA LSR BCC L121CF4 PHY PEA $0000 JSL L16073C PLA STA $01 PEA ^L16073C PEA L16073C JSL L07187A L121CF4 JSL L0E0000 BRA L121D33 L121CFA PHY JSL L0314F6 PLA CMP #$0002 BEQ L121D0A LDA #$0000 BRA L121D0D L121D0A LDA #$0001 L121D0D STA L0550BD LDA L0550BD BEQ L121D28 PEA ^L0530AF PEA L0530AF PEA $0000 PEA $0008 PEA $0017 JSL L0E0656 L121D28 JSL L0E0000 JSL L09AED3 STZ L0550BD L121D33 PLY PLY PLY PLD RTL L121D38 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L0550BF SEC SBC #$000A BVS L121D4C EOR #$8000 L121D4C BPL L121D54 JSL L0E0000 BRA L121D7D L121D54 LDA L0550BF INC STA L0550BF LDA L0550BF DEC ASL ASL ASL TAX TXA CLC ADC #L0530B7 LDX #^L0530B7 BCC L121D6E INX L121D6E PHX PHA PEA $0000 PEA $0008 PEA $0017 JSL L0E0656 L121D7D PLY PLY PLD RTL L121D81 ENT PHD TSC CLC ADC #$FDF0 TCS ADC #$0119 TCD TDC CLC ADC #$00E7 PEA $0000 PHA JSL L0B2A02 L121D99 PHY LDA L0553D1 LDX L0553D3 STA $F3 STX $F5 LDY #$0002 LDA [$F3],Y TAX LDA [$F3] CLC ADC #$01BA BCC L121DB3 INX L121DB3 STA $F3 STX $F5 LDA [$F3] PHA JSL L0B4D5D PLA BEQ L121DD0 LDX #$0000 LDAL L051BDE DEC DEC BNE L121DCD INX L121DCD TXA BNE L121DFA L121DD0 PEA $0040 PEA $0000 TDC CLC ADC #$FFE7 PHA PEA $0073 JSL L0B127A PEA $0000 TDC CLC ADC #$FEE7 PHA PEA $0025 JSL L0B127A JSL L0B0897 BRL L121E92 L121DFA PHY JSL L0314F6 PLA CMP #$0003 BNE L121E29 PHY JSL L0E0678 PLA LSR BCC L121E27 TDC CLC ADC #$00E7 PEA $0000 PHA JSL L0B2965 PHY JSL L07005C PLA LSR BCS L121E27 BRL L121D99 L121E27 BRA L121E92 L121E29 LDA #$0001 LDX #$0000 STA $EB STX $ED PHY JSL L0314F6 PLA CMP #$0002 BNE L121E4A PHY PHY JSL L0E05AF PLA STA $EB PLX STX $ED L121E4A PHY PHY JSL L151319 PEI $ED PEI $EB PHY PHY JSL L0E05AF PLA PLX JSL L150D50 PLA PLX JSL L150F53 STA $EF STX $F1 L121E6A PHY JSL L07005C PHY PHY JSL L151319 LDA $EF LDX $F1 JSL L033477 BVS L121E82 EOR #$8000 L121E82 BMI L121E89 LDA #$0000 BRA L121E8C L121E89 LDA #$0001 L121E8C ORA $01,S PLX LSR BCC L121E6A L121E92 TSC CLC ADC #$0210 TCS PLD RTL L121E9A ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA $0A LDX $0C STA $01 STX $03 PHY LDA [$0A] PHA PEA $E0C0 PEA $1F40 JSL L071A1B PLA STA [$01] LDA #$0002 CLC ADC $0A LDX $0C BCC L121EC6 INX L121EC6 STA $01 STX $03 PHY LDY #$0002 LDA [$0A],Y PHA PEA $E0C0 PEA $1F40 JSL L071A1B PLA STA [$01] LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L121EEF PHD TSC CLC ADC #$FFF8 TCS TCD STZ $01 STZ $03 LDY #$0004 LDA [$0E],Y SEC SBC [$0E] SEC SBC #$3E80 BEQ L121F1F BVS L121F0E EOR #$8000 L121F0E BPL L121F1F LDA #$E0C0 STA [$0E] LDA #$1F40 LDY #$0004 STA [$0E],Y BRA L121F53 L121F1F LDY #$0004 LDA [$0E],Y SEC SBC #$1F40 BEQ L121F3E BVS L121F2F EOR #$8000 L121F2F BPL L121F3E LDA #$1F40 LDY #$0004 SEC SBC [$0E],Y STA $03 BRA L121F53 L121F3E LDA [$0E] SEC SBC #$E0C0 BVS L121F49 EOR #$8000 L121F49 BMI L121F53 LDA #$E0C0 SEC SBC [$0E] STA $03 L121F53 LDY #$0006 LDA [$0E],Y LDY #$0002 SEC SBC [$0E],Y SEC SBC #$3E80 BEQ L121F7D BVS L121F69 EOR #$8000 L121F69 BPL L121F7D LDA #$E0C0 LDY #$0002 STA [$0E],Y LDA #$1F40 LDY #$0006 STA [$0E],Y BRA L121FB7 L121F7D LDY #$0006 LDA [$0E],Y SEC SBC #$1F40 BEQ L121F9C BVS L121F8D EOR #$8000 L121F8D BPL L121F9C LDA #$1F40 LDY #$0006 SEC SBC [$0E],Y STA $01 BRA L121FB7 L121F9C LDY #$0002 LDA [$0E],Y SEC SBC #$E0C0 BVS L121FAA EOR #$8000 L121FAA BMI L121FB7 LDA #$E0C0 LDY #$0002 SEC SBC [$0E],Y STA $01 L121FB7 LDA $03 ORA $01 BEQ L121FC9 PEI $10 PEI $0E PEI $01 PEI $03 JSL L1501AF L121FC9 LDA $0C STA $10 LDA $0B STA $0F LDA $09 TCD TSC CLC ADC #$000E TCS RTL L121FDB ENT PHD TSC CLC ADC #$FECE TCS ADC #$0041 TCD PEA $0000 TDC CLC ADC #$FFED PHA PEI $FA PEI $F8 PEA $0100 JSL L0313BE LDA #L051BE6 LDX #^L051BE6 CMP L0553B9 BNE L122008 CPX L0553BB L122008 BNE L122019 PEA $0000 TDC CLC ADC #$FFED PHA JSL L0B07EA BRA L122048 L122019 PEA ^L0403F7 PEA L0403F7 PEA $0000 TDC CLC ADC #$FFBF PHA LDA $F6 JSL L150488 PHX PHA JSL L07346C PEA $0000 TDC CLC ADC #$FFD3 PHA PEA $0002 JSL L1509CE JSL L0B2D94 L122048 LDA $F4 STA $FA LDA $F3 STA $F9 LDA $F1 TCD TSC CLC ADC #$013A TCS RTL L12205A ENT PHD TSC CLC ADC #$FECE TCS ADC #$0043 TCD PEA $0000 TDC CLC ADC #$FFEB PHA PEI $F8 PEI $F6 PEA $0100 JSL L0313BE LDA #L051BE6 LDX #^L051BE6 CMP L0553B9 BNE L122087 CPX L0553BB L122087 BNE L12209A PEI $FA PEA $0000 TDC CLC ADC #$FFEB PHA JSL L0B0841 BRA L1220C9 L12209A PEA ^L0403FE PEA L0403FE PEA $0000 TDC CLC ADC #$FFBD PHA LDA $F4 JSL L150488 PHX PHA JSL L07346C PEA $0000 TDC CLC ADC #$FFD1 PHA PEA $0002 JSL L1509CE JSL L0B2D94 L1220C9 LDA $F2 STA $FA LDA $F1 STA $F9 LDA $EF TCD TSC CLC ADC #$013C TCS RTL L1220DB ENT PHD TSC CLC ADC #$FEFC TCS ADC #$000F TCD LDA #L051BE6 LDX #^L051BE6 CMP L0553B9 BNE L1220F4 CPX L0553BB L1220F4 BNE L12210B PEA $0000 TDC CLC ADC #$FFF1 PHA PEI $FA JSL L072809 JSL L0B07EA BRA L12211E L12210B PEA $0000 TDC CLC ADC #$FFF1 PHA PEI $FA JSL L072809 JSL L0B2D94 L12211E LDA $F8 STA $FA LDA $F7 STA $F9 LDA $F5 TCD TSC CLC ADC #$0108 TCS RTL L122130 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA #$0BB8 CLC ADC $0A PHA JSL L1220DB LDA $08 STA $0A LDA $07 STA $09 LDA $05 TCD PLY PLY PLY PLY RTL