* * Genesys v1.2.4 * Main program: segment 4 * mx %00 rel lst off *---------------------------- use 4/Ctl.Macs use 4/Int.Macs use 4/Line.Macs use 4/Mem.Macs use 4/Menu.Macs use 4/QD.Macs use 4/QDAux.Macs use 4/Resource.Macs use 4/Std.Macs use 4/Text.Macs use 4/TextEdit.Macs use 4/Util.Macs use 4/Window.Macs use GESEG4.X.S *---------------------------- L040000 ENT TSC SEC SBC #$0024 TCS PHD TCD LDX $2A LDA $28 STX L027EA9 STA L027EA7 LDA #$0000 SEP #$20 STA L027EB0 REP #$20 LDA #$007F SEP #$20 STA L027EAF REP #$20 STZ L027ECF LDA #$0022 STA L027ECD STZ L027EB7 LDA #$002E STA L027EB5 LDA #$0000 STA L027ECB LDX L027EA9 LDA L027EA7 STA $01 STX $03 LDY #$0004 LDA [$01],Y PHA _SetCurResourceFile PHA PEA $0001 _SetResourceFileDepth PLA STA $0B JSL L040D38 STA $07 LDA $07 BEQ L0400C7 LDX L027EC1 LDA L027EBF PHX PHA PEA ^L028230 PEA L028230 PEA $0004 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 JSL L02ACFE PHA PEI $0B _SetResourceFileDepth PLA STA $0B LDA $07 CMP #$FFFF BEQ L0400BF JSL L0409D2 LDA $07 STA $05 BRL L0406A7 L0400BF LDA #$0000 STA $05 BRL L0406A7 L0400C7 LDX L027EA9 LDA L027EA7 STA $01 STX $03 LDY #$0002 LDA [$01],Y TAX LDA [$01] STX L027EBD STA L027EBB LDX L027EBD LDA L027EBB STX L0280F7 STA L0280F5 STX L027EEF STA L027EED STX L0280AF STA L0280AD PEA $2002 PEA ^L0280AB PEA L0280AB JSL L02C243 LDX L027EA9 LDA L027EA7 STA $01 STX $03 LDY #$000A LDA [$01],Y PHA LDY #$0008 LDA [$01],Y PHA PEA $0000 PEA $007F JSL L02D6DE BEQ L040189 LDA #$0004 STA L027EF3 PEA ^L027EF5 PEA L027EF5 PLA STA $01 PLA STA $03 LDA #$0000 STA [$01] LDY #$0002 STA [$01],Y LDX L027EA9 LDA L027EA7 STA $01 STX $03 LDY #$000A LDA [$01],Y PHA LDY #$0008 LDA [$01],Y PHA LDA #$00FF LDX #$0000 LDY #$0001 CMP $01,S BEQ L040166 DEY L040166 TXA CMP $03,S BEQ L04016E LDY #$0000 L04016E PLA PLA TYA BEQ L040187 LDA #$0080 SEP #$20 STA L027EB0 REP #$20 LDA #$00FF SEP #$20 STA L027EAF REP #$20 L040187 BRA L0401BB L040189 LDA #$00B0 STA L027EF3 LDX L027EA9 LDA L027EA7 STA $01 STX $03 LDY #$000A LDA [$01],Y TAX LDY #$0008 LDA [$01],Y PHX PHA PEA ^L027EF5 PEA L027EF5 PLA STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y L0401BB PEA $2001 PEA ^L027EEB PEA L027EEB JSL L02C243 JSL L02CA27 STA $07 LDA $07 BEQ L040217 LDX L027EC1 LDA L027EBF PHX PHA PEA ^L028230 PEA L028230 PEA $0004 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 JSL L02ACFE JSL L0409D2 PHA PEI $0B _SetResourceFileDepth PLA STA $0B LDA $07 STA $05 BRL L0406A7 L040217 LDA #$0002 STA L0280F1 PEA $2010 PEA ^L0280F1 PEA L0280F1 JSL L02C243 JSL L02CA27 STA $07 LDA $07 BEQ L040279 LDX L027EC1 LDA L027EBF PHX PHA PEA ^L028230 PEA L028230 PEA $0004 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 JSL L02ACFE JSL L0409D2 PHA PEI $0B _SetResourceFileDepth PLA STA $0B LDA $07 STA $05 BRL L0406A7 L040279 PEA ^L027F61 PEA L027F61 LDA L0280F3 PLX STX $01 PLX STX $03 STA [$01] PHA _CountTypes PLA STA $0D LDX L027EC1 LDA L027EBF PHX PHA PEA ^L028230 PEA L028230 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 JSL L02ACFE PEA $0001 JSL L0406BA LDA #$0001 STA $07 LDA #$0000 STA L027EB9 L0402D4 LDA $0D LDX #$0001 SEC SBC $07 BVS L0402E1 EOR #$8000 L0402E1 BMI L0402E4 DEX L0402E4 TXA CMP #$0000 BEQ L040307 LDA L027EB9 LDX #$0001 SEC SBC #$FFFE BEQ L0402FD BVS L0402FB EOR #$8000 L0402FB BMI L0402FE L0402FD DEX L0402FE TXA CMP #$0000 BEQ L040307 LDA #$0001 L040307 TAX BNE L04030D BRL L04064F L04030D PHA PEI $07 _GetIndType PLA STA $17 CMP #$8014 BNE L040325 BRL L04064A L040325 LDX L027EC1 LDA L027EBF PHX PHA PEA ^L028230 PEA L028230 PEA $0001 PEA $0000 PEI $07 PEA $0000 PEI $0D PEA $0000 PEA $0000 PEI $17 JSL L02ACFE LDX L027EA9 LDA L027EA7 STA $01 STX $03 LDY #$000E LDA [$01],Y AND #$8000 LDX #$0000 CMP #$0000 BEQ L040367 INX L040367 TXA BNE L04036E LDA $17 BRA L040371 L04036E LDA #$8014 L040371 PHA JSL L042616 STX $1F STA $1D PHA PHA PEI $17 _CountResources PLA PLX STA $0F LDA #$0001 STA $09 L040391 LDA $0F LDX #$0001 SEC SBC $09 BVS L04039E EOR #$8000 L04039E BMI L0403A1 DEX L0403A1 TXA CMP #$0000 BEQ L0403C4 LDA L027EB9 LDX #$0001 SEC SBC #$FFFF BEQ L0403BA BVS L0403B8 EOR #$8000 L0403B8 BMI L0403BB L0403BA DEX L0403BB TXA CMP #$0000 BEQ L0403C4 LDA #$0001 L0403C4 TAX BNE L0403CA BRL L04064A L0403CA PHA PHA PEI $17 LDA $09 LDX #$0000 TAY BPL L0403D7 DEX L0403D7 PHX PHA _GetIndResource PLA STA $19 PLA STA $1B LDX L027EC1 LDA L027EBF PHX PHA PEA ^L028230 PEA L028230 PEA $0002 PEI $09 PEI $07 PEI $0F PEI $0D LDX $1B LDA $19 PHX PHA PEI $17 JSL L02ACFE PHA PEI $17 LDX $1B LDA $19 PHX PHA _GetResourceAttr PLA STA $11 PEA $000C PEI $17 LDX $1B LDA $19 PHX PHA _SetResourceAttr PHA PHA PEI $17 LDX $1B LDA $19 PHX PHA _LoadResource PLA STA $21 PLA STA $23 LDX $23 LDA $21 PHX PHA _HLock PEI $11 PEI $17 LDX $1B LDA $19 PHX PHA _SetResourceAttr LDX $1F LDA $1D STX L027EC5 STA L027EC3 LDY #$0002 LDA [$21],Y TAX LDA [$21] STX L027EC1 STA L027EBF LDX L027EC5 LDA L027EC3 PHX PHA PEA ^L028258 PEA L028258 PLA STA $01 PLA STA $03 PLA STA [$01] PLA STA [$01],Y LDX L027EC1 LDA L027EBF PHX PHA PEA ^L02825C PEA L02825C PLA STA $01 PLA STA $03 PLA STA [$01] PLA STA [$01],Y PHA PHA LDX $23 LDA $21 PHX PHA _GetHandleSize PEA ^L028260 PEA L028260 PLA STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y LDA $17 PEA $0000 PHA PEA ^L028264 PEA L028264 PLA STA $01 PLA STA $03 PLA STA [$01] PLA STA [$01],Y PEA ^L028268 PEA L028268 PLA STA $01 PLA STA $03 LDA $19 STA [$01] LDA $1B STA [$01],Y LDA $09 LDX #$0000 TAY BPL L04051F DEX L04051F PHX PHA PEA ^L02826C PEA L02826C PLA STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y PEA ^L028270 PEA L028270 PLA STA $01 PLA STA $03 LDA #$0000 PHA PHA STA [$01] STA $03,S STA [$01],Y PEA ^L028274 PEA L028274 PLA STA $01 PLA STA $03 PLA STA [$01] PLA STA [$01],Y LDA $0F LDX #$0000 TAY BPL L040568 DEX L040568 PHX PHA PEA ^L028278 PEA L028278 PLA STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y PEI $11 JSL L0426A8 PHX PHA PEA ^L02827C PEA L02827C PLA STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y JSL L041442 LDA L027EB9 BNE L0405CC LDX L027EC1 LDA L027EBF PHX PHA PEA ^L028230 PEA L028230 PEA $0003 PEI $09 PEI $07 PEI $0F PEI $0D LDX $1B LDA $19 PHX PHA PEI $17 JSL L02ACFE BRA L040630 L0405CC LDA L027EB9 CMP #$FFFF BNE L0405FE LDX L027EC1 LDA L027EBF PHX PHA PEA ^L028230 PEA L028230 PEA $0005 PEI $09 PEI $07 PEI $0F PEI $0D LDX $1B LDA $19 PHX PHA PEI $17 JSL L02ACFE STA L027EB9 BRA L040630 L0405FE LDA L027EB9 BMI L040606 DEC BPL L040608 L040606 BRA L040630 L040608 LDX L027EC1 LDA L027EBF PHX PHA PEA ^L028230 PEA L028230 PEA $0006 PEI $09 PEI $07 PEI $0F PEI $0D LDX $1B LDA $19 PHX PHA PEI $17 JSL L02ACFE STA L027EB9 L040630 PEA $FFFF PEI $17 LDX $1B LDA $19 PHX PHA _ReleaseResource INC $09 BRL L040391 L04064A INC $07 BRL L0402D4 L04064F PEA $0002 JSL L0406BA LDX L027EC1 LDA L027EBF PHX PHA PEA ^L028230 PEA L028230 PEA $0004 PEI $09 PEI $07 PEI $0F PEI $0D PEA $0000 PEA $0000 PEI $17 JSL L02ACFE LDA #$0001 STA L0280F1 PEA $2014 PEA ^L0280F1 PEA L0280F1 JSL L02C243 JSL L0409D2 PHA PEI $0B _SetResourceFileDepth PLA STA $0B LDA #$0000 STA $05 L0406A7 LDA $26 STA $2A LDA $25 STA $29 LDY $05 PLD TSC CLC ADC #$0028 TCS TYA RTL L0406BA TSC SEC SBC #$0004 TCS PHD TCD LDX L027EC1 LDA L027EBF PHX PHA PEA ^L028230 PEA L028230 LDA $08 CLC ADC #$0008 PHA PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 JSL L02ACFE LDX L027EA9 LDA L027EA7 STA $01 STX $03 LDY #$000E LDA [$01],Y AND #$8000 BEQ L04070A LDA $08 INC INC STA $08 L04070A LDA L027ED5 ORA L027ED7 BEQ L040758 LDX L027ED7 LDA L027ED5 STX L027EC5 STA L027EC3 LDA $08 LDX #$0000 TAY BPL L040727 DEX L040727 PHX PHA PEA ^L028274 PEA L028274 PLA STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y JSL L041442 PEA ^L028274 PEA L028274 PLA STA $01 PLA STA $03 LDA #$0000 STA [$01] LDY #$0002 STA [$01],Y L040758 LDA $06 STA $08 LDA $05 STA $07 PLD TSC CLC ADC #$0006 TCS RTL L040768 TSC SEC SBC #$000C TCS PHD TCD LDA $10 ORA $12 BNE L0407DF PHA PHA PEA $0000 PEA $000A LDX L027EA9 LDA L027EA7 STA $01 STX $03 LDY #$0006 LDA [$01],Y PHA PEA $C018 PEA $0000 PEA $0000 _NewHandle PLA STA $09 PLA STA $0B LDX $0B LDA $09 PHX PHA _HLock LDY #$0002 LDA [$09],Y TAX LDA [$09] STX $12 STA $10 LDA $14 STA [$10] LDA $16 STA [$10],Y INY INY LDA $18 STA [$10],Y LDY #$0006 LDA #$0000 STA [$10],Y INY INY STA [$10],Y BRA L04080B L0407DF LDA [$10] CMP $14 BEQ L04080B LDX $18 LDA $16 PHX PHA PEI $14 LDY #$0008 LDA [$10],Y TAX LDY #$0006 LDA [$10],Y PHX PHA JSL L040768 PHX PHA LDY #$0006 PLA STA [$10],Y INY INY PLA STA [$10],Y L04080B LDA $10 LDX $12 STA $05 STX $07 LDA $0E STA $18 LDA $0D STA $17 LDX $07 LDY $05 PLD TSC CLC ADC #$0016 TCS TYA RTL L040828 TSC SEC SBC #$000C TCS PHD TCD LDA $10 STA $0B BRA L040898 L040836 PEA ^L040916 PEA L040916 PLA STA $07 PLA STA $09 BRA L0408BC L040844 PEA ^L04092F PEA L04092F PLA STA $07 PLA STA $09 BRA L0408BC L040852 PEA ^L040949 PEA L040949 PLA STA $07 PLA STA $09 BRA L0408BC L040860 PEA ^L04095B PEA L04095B PLA STA $07 PLA STA $09 BRA L0408BC L04086E PEA ^L040978 PEA L040978 PLA STA $07 PLA STA $09 BRA L0408BC L04087C PEA ^L040988 PEA L040988 PLA STA $07 PLA STA $09 BRA L0408BC L04088A PEA ^L0409AB PEA L0409AB PLA STA $07 PLA STA $09 BRA L0408BC L040898 LDA $0B SEC SBC #$0100 CMP #$0006 BCC L0408A6 LDA #$0006 L0408A6 ASL TAX LDAL $0408AE,X PHA RTS L0408AE DA L040836-1 DA L040852-1 DA L040844-1 DA L040860-1 DA L04086E-1 DA L04087C-1 DA L04088A-1 L0408BC LDX $09 LDA $07 PHX PHA PEA ^L0409B3 PEA L0409B3 LDA L027F63 LDX L027F63+2 PHX PHA JSL L02C68C LDX #$0000 TAY BPL L0408DB DEX L0408DB PHX PHA PEA ^L027F67 PEA L027F67 PLA STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y PEA $2013 PEA ^L027F5F PEA L027F5F JSL L02C243 LDA $10 STA $05 LDA $0E STA $10 LDA $0D STA $0F LDY $05 PLD TSC CLC ADC #$000E TCS TYA RTL L040916 ASC 'BAD BIT COMMAND MODIFIER'00 L04092F ASC 'BAD READ COMMAND MODIFIER'00 L040949 ASC 'UNDEFINED COMMAND'00 L04095B ASC 'UNASSIGNED CTRL COMMAND CODE'00 L040978 ASC 'DIV/MOD BY ZERO'00 L040988 ASC 'AND/OR COMMAND WITHOUT ADJACENT IF'00 L0409AB ASC 'UNKNOWN'00 L0409B3 ASC 0D ASC '<<< TEMPLATE ERROR - %s >>>'0D0D00 L0409D2 TSC SEC SBC #$000E TCS PHD TCD LDX L027EC9 LDA L027EC7 STX $09 STA $07 L0409E4 LDA $07 ORA $09 BEQ L040A1F LDY #$0008 LDA [$07],Y TAX LDY #$0006 LDA [$07],Y STX $0D STA $0B PHA PHA LDX $09 LDA $07 PHX PHA _FindHandle _DisposeHandle LDA $0B LDX $0D STA $07 STX $09 BRA L0409E4 L040A1F LDA #$0000 STA $05 L040A24 LDA $05 ASL ASL TAX LDY L028732,X LDA L028730,X PHY PHA LDA #$0000 TAX LDY #$0001 CMP $01,S BEQ L040A3D DEY L040A3D TXA CMP $03,S BEQ L040A45 LDY #$0000 L040A45 PLA PLA TYA EOR #$0001 CMP #$0000 BEQ L040A6C LDA #$0010 LDX #$0001 SEC SBC $05 BEQ L040A62 BVS L040A60 EOR #$8000 L040A60 BMI L040A63 L040A62 DEX L040A63 TXA CMP #$0000 BEQ L040A6C LDA #$0001 L040A6C TAX BEQ L040A8A LDA $05 ASL ASL TAX LDY L028732,X LDA L028730,X PHY PHA _DisposeHandle INC $05 BRA L040A24 L040A8A PLD TSC CLC ADC #$000E TCS RTL L040A92 TSC SEC SBC #$0010 TCS PHD TCD LDA #$0000 STA $0D STA $0F LDA #L027F71 STA $09 LDA #^L027F71 STA $0B L040AAB LDX L027EC1 LDA L027EBF STA $01 STX $03 LDA [$01] AND #$00FF TAX LDA L02C277,X AND #$00FF AND #$0080 CMP #$0000 BEQ L040ADD PEI $16 PEI $14 PEI $0F PEI $0D JSL L02D6DE CMP #$0000 BEQ L040ADD LDA #$0001 L040ADD CMP #$0000 BEQ L040B0A LDX L027EC1 LDA L027EBF STA $01 STX $03 LDA [$01] AND #$00FF PHA LDX L027ECF LDA L027ECD SEC SBC $01,S PLX TAX BEQ L040B02 LDA #$0001 L040B02 CMP #$0000 BEQ L040B0A LDA #$0001 L040B0A TAX BEQ L040B3D PEI $0B PEI $09 INC $09 BNE L040B17 INC $0B L040B17 LDX L027EC1 LDA L027EBF INC L027EBF BNE L040B25 INC L027EC1 L040B25 STA $01 STX $03 LDA [$01] AND #$00FF PLX STX $01 PLX STX $03 SEP #$20 STA [$01] REP #$20 BRL L040BEE L040B3D PEI $0F PEI $0D PEA $0000 PEA $0000 JSL L02D6DE BEQ L040BB0 SEP #$20 LDA #$00 STA [$09] REP #$20 PEA ^L028270 PEA L028270 PLA STA $01 PLA STA $03 LDA $0D STA [$01] LDY #$0002 LDA $0F STA [$01],Y LDX $16 LDA $14 LDY #$0000 CMP $0D BNE L040B79 CPX $0F L040B79 BNE L040B7C INY L040B7C TYA BNE L040B87 PEA $0000 PEA $0002 BRA L040B8D L040B87 PEA $0000 PEA $0000 L040B8D PEA ^L028274 PEA L028274 PLA STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y PEA ^L027F71 PEA L027F71 PLA STA $05 PLA STA $07 BRA L040BF7 L040BB0 PEA ^L028270 PEA L028270 PLA STA $01 PLA STA $03 LDA #$0001 STA [$01] LDY #$0002 LDA #$0000 STA [$01],Y PEA ^L028274 PEA L028274 PLA STA $01 PLA STA $03 LDA #$0001 STA [$01] LDA #$0000 STA [$01],Y PEA $0001 JSL L040C0C PHX STA $05 PLA STA $07 BRA L040BF7 L040BEE INC $0D BNE L040BF4 INC $0F L040BF4 BRL L040AAB L040BF7 LDA $12 STA $16 LDA $11 STA $15 LDX $07 LDY $05 PLD TSC CLC ADC #$0014 TCS TYA RTL L040C0C TSC SEC SBC #$0010 TCS PHD TCD PHA CLC LDA L027EBF STA $0D ADC $14 STA L027EBF LDA L027EC1 STA $0F ADC #$0000 STA L027EC1 PLA LDY #$0002 LDA [$0D],Y TAX LDA [$0D] STX $0B STA $09 LDA $14 CMP #$0001 BNE L040C56 PEI $0B LDA $09 AND #$00FF PHA LDA $03,S AND #$0000 STA $03,S PLA STA $09 PLA STA $0B BRA L040C72 L040C56 LDA $14 CMP #$0002 BNE L040C72 PEI $0B LDA $09 AND #$FFFF PHA LDA $03,S AND #$0000 STA $03,S PLA STA $09 PLA STA $0B L040C72 LDA $09 LDX $0B STA $05 STX $07 LDA $12 STA $14 LDA $11 STA $13 LDX $07 LDY $05 PLD TSC CLC ADC #$0012 TCS TYA RTL L040C8F TSC SEC SBC #$000C TCS PHD TCD LDA #$0000 STA $09 STA $0B L040C9E LDA [$10] AND #$00FF TAX LDA L02C277,X AND #$00FF AND #$0040 BEQ L040D1B PEI $0B PEI $09 PEA $0000 PEA $0004 JSL L02DCF2 PLA STA $09 PLA STA $0B LDA [$10] AND #$00FF LDX #$0001 SEC SBC #$0039 BEQ L040CD8 BVS L040CD6 EOR #$8000 L040CD6 BMI L040CD9 L040CD8 DEX L040CD9 TXA BNE L040CE7 LDA [$10] AND #$00FF SEC SBC #$0030 BRA L040CF5 L040CE7 LDA [$10] AND #$00FF PHA JSL L02CA2C SEC SBC #$0037 L040CF5 LDX #$0000 TAY BPL L040CFC DEX L040CFC PHX PHA PEI $0B PEI $09 CLC PLA ADC $03,S STA $03,S PLA ADC $03,S STA $03,S PLA STA $09 PLA STA $0B INC $10 BNE L040D19 INC $12 L040D19 BRA L040C9E L040D1B LDA $09 LDX $0B STA $05 STX $07 LDA $0E STA $12 LDA $0D STA $11 LDX $07 LDY $05 PLD TSC CLC ADC #$0010 TCS TYA RTL L040D38 TSC SEC SBC #$000E TCS PHD TCD PEA $0001 PEA ^L027F3D PEA L027F3D JSL L026E47 TAX BEQ L040D73 PEA $0000 LDX L027EA9 LDA L027EA7 STA $01 STX $03 LDY #$0002 LDA [$01],Y TAX LDA [$01] PHX PHA JSL L026E47 LDA #$FFFF STA $05 BRL L041145 L040D73 STZ L027EC9 STZ L027EC7 PEA ^L027F3D PEA L027F3D PEA ^L027F07 PEA L027F07 PLA STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y PEA ^L028854 PEA L028854 PEA ^L028075 PEA L028075 PLA STA $01 PLA STA $03 PLA STA [$01] PLA STA [$01],Y PEA ^L028854 PEA L028854 PEA ^L0280BD PEA L0280BD PLA STA $01 PLA STA $03 PLA STA [$01] PLA STA [$01],Y PEA $2010 PEA ^L027F03 PEA L027F03 JSL L02C243 PEA ^L0280B5 PEA L0280B5 LDA L027F05 PLX STX $01 PLX STX $03 STA [$01] STZ L027ED7 STZ L027ED5 LDA #$0000 STA $0B L040DED LDA $0B BMI L040DF9 CMP #$0010 BCC L040DF9 BRL L0410D4 L040DF9 LDA $0B ASL ASL CLC ADC #L028730 PEA ^L028730 STA $01 PLA STA $03 LDA #$0000 STA [$01] LDY #$0002 STA [$01],Y LDA #$0020 STA L028854 PEA $201C PEA ^L0280B3 PEA L0280B3 JSL L02C243 JSL L02CA27 STA $0D TAX BEQ L040E3E LDA $0D CMP #$0061 BNE L040E3B LDA #$0000 STA $0D L040E3B BRL L0410D4 L040E3E LDA L0280C3 LDX #$0000 CMP #$00B0 BNE L040E4A INX L040E4A TXA CMP #$0000 BEQ L040E88 LDA L0280DF LDX L0280E1 PHX PHA LDX L027EA9 LDA L027EA7 STA $01 STX $03 LDY #$000A LDA [$01],Y TAX LDY #$0008 LDA [$01],Y LDY #$0001 CMP $01,S BEQ L040E75 DEY L040E75 TXA CMP $03,S BEQ L040E7D LDY #$0000 L040E7D PLA PLA TYA CMP #$0000 BEQ L040E88 LDA #$0001 L040E88 TAX BNE L040E8E BRL L0410D1 L040E8E PEA ^L028854 PEA L028854 LDA L028856 INC INC PLX STX $01 PLX STX $03 STA [$01] LDA #$3A35 STA L028856 PEA $2010 PEA ^L028071 PEA L028071 JSL L02C243 LDA #$0004 STA L027ED9 PEA ^L027EDB PEA L027EDB LDA L028073 PLX STX $01 PLX STX $03 STA [$01] PHA PHA LDA L02809B LDX L02809D PHX PHA LDX L027EA9 LDA L027EA7 STA $01 STX $03 LDY #$0006 LDA [$01],Y PHA PEA $C018 PEA $0000 PEA $0000 _NewHandle LDA $0B ASL ASL CLC ADC #L028730 PEA ^L028730 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y JSL L02CA27 STA $0D LDA $0D BEQ L040F1E BRL L0410CF L040F1E LDA $0B ASL ASL TAX LDY L028732,X LDA L028730,X PHY PHA _HLock LDA $0B ASL ASL TAX LDY L028732,X LDA L028730,X TYX STA $01 STX $03 LDY #$0002 LDA [$01],Y PHA LDA [$01] PHA PEA ^L027EDD PEA L027EDD PLA STA $01 PLA STA $03 PLA STA [$01] PLA STA [$01],Y LDA L02809B LDX L02809D PHX PHA PEA ^L027EE1 PEA L027EE1 PLA STA $01 PLA STA $03 PLA STA [$01] PLA STA [$01],Y PEA $2012 PEA ^L027ED9 PEA L027ED9 JSL L02C243 LDA #$0001 STA L027ED9 PEA $2014 PEA ^L027ED9 PEA L027ED9 JSL L02C243 LDA L027EDD LDX L027EDF STX L027EC5 STA L027EC3 LDA L02809B LDX L02809D PHX PHA LDX L027EC5 LDA L027EC3 PHX PHA CLC PLA ADC $03,S STA $03,S PLA ADC $03,S STA $03,S PLA STA $07 PLA STA $09 L040FC7 LDX L027EC5 LDA L027EC3 PHX PHA JSL L0421B5 PHX STA L027EC3 PLA STA L027EC5 LDA L027EB3 CMP #$001C BNE L041036 LDX L027EC1 LDA L027EBF PHX PHA PEA ^L028230 PEA L028230 PEA $0001 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 LDX L027ED3 LDA L027ED1 PHA JSL L02ACFE LDX L027EC5 LDA L027EC3 PHX PHA LDX L027ED3 LDA L027ED1 PHA LDX L027EC9 LDA L027EC7 PHX PHA JSL L040768 PHX STA L027EC7 PLA STA L027EC9 BRA L04108D L041036 LDA L027EB3 CMP #$0028 BNE L04104C LDX L027EC5 LDA L027EC3 STX L027ED7 STA L027ED5 BRA L04108D L04104C LDA L027EB3 LDX #$0000 CMP #$0026 BNE L041058 INX L041058 TXA CMP #$0000 BEQ L041063 LDA #$0001 BRA L041078 L041063 LDA L027EB3 LDX #$0000 CMP #$001E BNE L04106F INX L04106F TXA CMP #$0000 BEQ L041078 LDA #$0001 L041078 TAX BEQ L04108D LDX L027EC5 LDA L027EC3 PHX PHA JSL L0421B5 STX L027EC5 STA L027EC3 L04108D LDX L027EC5 LDA L027EC3 STX $01 ORA $01 BEQ L0410C6 LDA L027EC3 PHX PHA LDX $09 LDA $07 TAY TXA LDX #$0001 CMP $03,S BNE L0410AE TYA CMP $01,S L0410AE BEQ L0410B2 BCS L0410B3 L0410B2 DEX L0410B3 PLA PLA TXA LDX #$0000 TAY BPL L0410BD DEX L0410BD STX $01 ORA $01 BEQ L0410C6 LDA #$0001 L0410C6 BEQ L0410CB BRL L040FC7 L0410CB INC $0B BRA L0410D1 L0410CF BRA L0410D4 L0410D1 BRL L040DED L0410D4 LDA #$0001 STA L027ED9 PEA ^L027EDB PEA L027EDB LDA L0280B5 PLX STX $01 PLX STX $03 STA [$01] PEA $2014 PEA ^L027ED9 PEA L027ED9 JSL L02C243 LDY #$0000 LDA L027EC7 ORA L027EC9 BNE L041104 INY L041104 TYA CMP #$0000 BEQ L04111E LDA $0D LDX #$0000 CMP #$0000 BNE L041115 INX L041115 TXA CMP #$0000 BEQ L04111E LDA #$0001 L04111E TAX BEQ L041126 LDA #$0046 STA $0D L041126 PEA $0000 LDX L027EA9 LDA L027EA7 STA $01 STX $03 LDY #$0002 LDA [$01],Y TAX LDA [$01] PHX PHA JSL L026E47 LDA $0D STA $05 L041145 LDY $05 PLD TSC CLC ADC #$000E TCS TYA RTL L041150 TSC SEC SBC #$0011 TCS PHD TCD LDA #L02812B STA $0A LDA #^L02812B STA $0C PEA ^L028230 PEA L028230 PLA STA $01 PLA STA $03 LDA #$0000 STA [$01] LDY #$0002 STA [$01],Y L041178 PEI $17 PEI $15 INC $15 BNE L041182 INC $17 L041182 PLA PLX STA $01 STX $03 LDA [$01] AND #$00FF SEP #$20 STA $09 REP #$20 CMP #$000D BNE L04119B BRL L04134E L04119B LDA $09 AND #$00FF BIT #$0080 BEQ L0411A8 ORA #$FF00 L0411A8 CMP #$0000 CMP #$0025 BNE L0411D6 PEA ^L028230 PEA L028230 PLA STA $0E PLA STA $10 LDY #$0002 LDA [$0E],Y PHA LDA [$0E] CLC ADC #$0001 PHA LDA $01,S STA [$0E] LDA $03,S STA [$0E],Y PLA PLA BRL L041325 L0411D6 LDA $09 AND #$00FF BIT #$0080 BEQ L0411E3 ORA #$FF00 L0411E3 CMP #$0000 CMP #$005C BEQ L0411EE BRL L041325 L0411EE PEI $17 PEI $15 INC $15 BNE L0411F8 INC $17 L0411F8 PLA PLX STA $01 STX $03 LDA [$01] AND #$00FF PHA JSL L02CA0D SEP #$20 STA $09 REP #$20 LDX #$0000 CMP #$006E BNE L041217 INX L041217 TXA CMP #$0000 BEQ L041222 LDA #$0001 BRA L041244 L041222 LDA $09 AND #$00FF BIT #$0080 BEQ L04122F ORA #$FF00 L04122F CMP #$0000 LDX #$0000 CMP #$0072 BNE L04123B INX L04123B TXA CMP #$0000 BEQ L041244 LDA #$0001 L041244 TAX BEQ L041253 LDA #$000D SEP #$20 STA $09 REP #$20 BRL L041325 L041253 LDA $09 AND #$00FF BIT #$0080 BEQ L041260 ORA #$FF00 L041260 CMP #$0000 CMP #$0074 BNE L041274 LDA #$0009 SEP #$20 STA $09 REP #$20 BRL L041325 L041274 LDA $09 AND #$00FF BIT #$0080 BEQ L041281 ORA #$FF00 L041281 CMP #$0000 CMP #$0078 BEQ L04128C BRL L041325 L04128C LDA [$15] AND #$00FF LDX #$0001 SEC SBC #$0039 BEQ L0412A1 BVS L04129F EOR #$8000 L04129F BMI L0412A2 L0412A1 DEX L0412A2 TXA BNE L0412B4 LDA [$15] AND #$00FF SEC SBC #$0030 ASL ASL ASL ASL BRA L0412C6 L0412B4 LDA [$15] AND #$00FF PHA JSL L02CA2C SEC SBC #$0037 ASL ASL ASL ASL L0412C6 SEP #$20 STA $09 REP #$20 INC $15 BNE L0412D2 INC $17 L0412D2 LDA $09 AND #$00FF BIT #$0080 BEQ L0412DF ORA #$FF00 L0412DF CMP #$0000 PHA LDA [$15] AND #$00FF LDX #$0001 SEC SBC #$0039 BEQ L0412F8 BVS L0412F6 EOR #$8000 L0412F6 BMI L0412F9 L0412F8 DEX L0412F9 TXA BNE L041307 LDA [$15] AND #$00FF SEC SBC #$0030 BRA L041315 L041307 LDA [$15] AND #$00FF PHA JSL L02CA2C SEC SBC #$0037 L041315 CLC ADC $01,S PLX SEP #$20 STA $09 REP #$20 INC $15 BNE L041325 INC $17 L041325 PEI $0C PEI $0A INC $0A BNE L04132F INC $0C L04132F PLA PLX STA $01 STX $03 LDA $09 AND #$00FF BIT #$0080 BEQ L041342 ORA #$FF00 L041342 CMP #$0000 SEP #$20 STA [$01] REP #$20 BRL L041178 L04134E SEP #$20 LDA #$00 STA [$0A] REP #$20 LDA L028230 BEQ L041369 ASL ASL TAX INX INX L041360 LDA L028230,X PHA DEX DEX CPX #$0002 L041369 BNE L041360 PEA ^L02812B PEA L02812B LDA L027F63 LDX L027F63+2 PHX PHA JSL L02C68C LDX #$0000 TAY BPL L041384 DEX L041384 PHX PHA PEA ^L027F67 PEA L027F67 PLA STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y LDA L027F63 LDX L027F63+2 STX $0C STA $0A L0413A5 LDA [$0A] AND #$00FF BEQ L041418 LDA $0A LDX $0C STA $0E STX $10 PEI $10 PEI $0E LDA [$0E] AND #$00FF PHA LDA L027EB0 AND #$00FF BIT #$0080 BEQ L0413CC ORA #$FF00 L0413CC CMP #$0000 ORA $01,S PLX PLX STX $01 PLX STX $03 SEP #$20 STA [$01] REP #$20 LDA $0A LDX $0C STA $0E STX $10 PEI $10 PEI $0E LDA [$0E] AND #$00FF PHA LDA L027EAF AND #$00FF BIT #$0080 BEQ L0413FE ORA #$FF00 L0413FE CMP #$0000 AND $01,S PLX PLX STX $01 PLX STX $03 SEP #$20 STA [$01] REP #$20 INC $0A BNE L041416 INC $0C L041416 BRA L0413A5 L041418 PEA $2013 PEA ^L027F5F PEA L027F5F JSL L02C243 LDA $15 LDX $17 STA $05 STX $07 LDA $13 STA $17 LDA $12 STA $16 LDX $07 LDY $05 PLD TSC CLC ADC #$0015 TCS TYA RTL L041442 TSC SEC SBC #$001A TCS PHD TCD L04144A LDA L027EC3 ORA L027EC5 BNE L041455 BRL L0421AD L041455 LDA L027EB9 BNE L041487 LDX L027EC1 LDA L027EBF PHX PHA PEA ^L028230 PEA L028230 PEA $0007 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 JSL L02ACFE STA L027EB9 L041487 LDX L027EC5 LDA L027EC3 PHX PHA JSL L0421B5 STX L027EC5 STA L027EC3 LDA L027EB3 STA $13 L04149E BRL L042146 L0414A1 BRL L0421AA L0414A4 LDA L027EAB BNE L0414E1 PEA ^L028230 PEA L028230 LDA L027EB1 ASL ASL CLC ADC $01,S STA $01,S PLA STA $15 PLA STA $17 LDY #$0002 LDA [$15],Y PHA LDA [$15] PHA LDX L027ED3 LDA L027ED1 PHX AND $03,S STA $03,S PLA AND $03,S STA $03,S PLA STA [$15] PLA STA [$15],Y BRL L041667 L0414E1 LDA L027EAB CMP #$0017 BNE L04154D PEA ^L028230 PEA L028230 LDA L027EB1 ASL ASL CLC ADC $01,S STA $01,S PLA STA $15 PLA STA $17 LDY #$0002 LDA [$15],Y PHA LDA [$15] PHA LDX L027ED3 LDA L027ED1 PHX ORA $03,S STA $03,S PLA ORA $03,S STA $03,S PLA STA [$15] PLA STA [$15],Y PEA ^L028230 PEA L028230 LDA L027EB1 ASL ASL CLC ADC $01,S STA $01,S PLA STA $15 PLA STA $17 LDA [$15],Y PHA LDA [$15] EOR #$FFFF PHA LDA $03,S EOR #$FFFF STA $03,S PLA STA [$15] PLA STA [$15],Y BRL L041667 L04154D LDA L027EAB CMP #$0019 BNE L04158D PEA ^L028230 PEA L028230 LDA L027EB1 ASL ASL CLC ADC $01,S STA $01,S PLA STA $15 PLA STA $17 LDY #$0002 LDA [$15],Y PHA LDA [$15] PHA LDX L027ED3 LDA L027ED1 PHX ORA $03,S STA $03,S PLA ORA $03,S STA $03,S PLA STA [$15] PLA STA [$15],Y BRL L041667 L04158D LDA L027EAB CMP #$001F BNE L0415CD PEA ^L028230 PEA L028230 LDA L027EB1 ASL ASL CLC ADC $01,S STA $01,S PLA STA $15 PLA STA $17 LDY #$0002 LDA [$15],Y PHA LDA [$15] PHA LDX L027ED3 LDA L027ED1 PHX EOR $03,S STA $03,S PLA EOR $03,S STA $03,S PLA STA [$15] PLA STA [$15],Y BRL L041667 L0415CD LDA L027EAB CMP #$0024 BNE L041615 PEA ^L028230 PEA L028230 LDA L027EB1 ASL ASL CLC ADC $01,S STA $01,S PLA STA $15 PLA STA $17 LDY #$0002 LDA [$15],Y PHA LDA [$15] PHA LDX L027ED3 LDA L027ED1 PHX AND #$001F PHA LDA $03,S AND #$0000 STA $03,S JSL L02DCF2 PLA STA [$15] LDY #$0002 PLA STA [$15],Y BRA L041667 L041615 LDA L027EAB CMP #$0025 BNE L04165D PEA ^L028230 PEA L028230 LDA L027EB1 ASL ASL CLC ADC $01,S STA $01,S PLA STA $15 PLA STA $17 LDY #$0002 LDA [$15],Y PHA LDA [$15] PHA LDX L027ED3 LDA L027ED1 PHX AND #$001F PHA LDA $03,S AND #$0000 STA $03,S JSL L02CA46 PLA STA [$15] LDY #$0002 PLA STA [$15],Y BRA L041667 L04165D PEA $0100 JSL L040828 STA L027EB9 L041667 BRL L0421AA L04166A LDA L027EB1 ASL ASL TAX LDY L028232,X LDA L028230,X PHY STA L027EC3 PLA STA L027EC5 BRL L0421AA L041681 LDX L027ED3 LDA L027ED1 STA $19 BRL L041956 L04168C LDA #$0080 SEP #$20 STA L027EB0 REP #$20 LDA #$00FF SEP #$20 STA L027EAF REP #$20 LDX L027ED3 LDA L027ED1 PHX PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y BRL L04197B L0416C5 LDA #$0000 SEP #$20 STA L027EB0 REP #$20 LDA #$007F SEP #$20 STA L027EAF REP #$20 LDX L027ED3 LDA L027ED1 PHX PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y BRL L04197B L0416FE LDA L027EB1 ASL ASL TAX LDY L028232,X LDA L028230,X PHY PHA LDA #$0000 TAX LDY #$0001 CMP $01,S BEQ L041718 DEY L041718 TXA CMP $03,S BEQ L041720 LDY #$0000 L041720 PLA PLA TYA BEQ L041728 BRL L0421AD L041728 BRL L04197B L04172B LDA L027EB1 ASL ASL TAX LDY L028232,X LDA L028230,X PHY PHA LDA #$0000 TAX LDY #$0001 CMP $01,S BEQ L041745 DEY L041745 TXA CMP $03,S BEQ L04174D LDY #$0000 L04174D PLA PLA TYA BNE L041755 BRL L0421AD L041755 BRL L04197B L041758 PEA ^L028274 PEA L028274 PLA STA $01 PLA STA $03 LDA #$0001 STA [$01] LDY #$0002 LDA #$0000 STA [$01],Y LDA L027EB1 ASL ASL TAX LDY L028232,X LDA L028230,X PHY PHA PEA $0000 PEA $001F JSL L02D6DE CMP #$0000 BEQ L0417AE PEA $0000 PEA $007F LDA L027EB1 ASL ASL TAX LDY L028232,X LDA L028230,X PHY PHA JSL L02D6DE CMP #$0000 BEQ L0417AE LDA #$0001 L0417AE CMP #$0000 BEQ L0417D7 LDA L027EB1 ASL ASL TAX LDY L028232,X LDA L028230,X TYX LDY #$0000 CMP L027ECD BNE L0417CB CPX L027ECF L0417CB BEQ L0417CE INY L0417CE TYA CMP #$0000 BEQ L0417D7 LDA #$0001 L0417D7 TAX BEQ L041829 PEA ^L028230 PEA L028230 LDA L027EB1 ASL ASL CLC ADC $01,S STA $01,S PEA ^L02822B PEA L02822B JSL L02C78E PHX PLA PEA ^L02822B PEA L02822B LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y PEA ^L028274 PEA L028274 PLA STA $01 PLA STA $03 LDA #$0000 STA [$01] STA [$01],Y L041829 BRL L04197B L04182C PEA $0000 PEA $0020 LDA L027EB1 ASL ASL TAX LDY L028232,X LDA L028230,X PHY PHA JSL L02D6DE CMP #$0000 BEQ L04184E LDA #$0001 BRA L04186E L04184E LDA L027EB1 ASL ASL TAX LDY L028232,X LDA L028230,X PHY PHA PEA $0000 PEA $007F JSL L02D6DE CMP #$0000 BEQ L04186E LDA #$0001 L04186E TAX BEQ L041893 LDX L027EB7 LDA L027EB5 PHX PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y L041893 PEA ^L028230 PEA L028230 LDA L027EB1 ASL ASL CLC ADC $01,S STA $01,S PEA ^L02822B PEA L02822B JSL L02C78E PHX PLA PEA ^L02822B PEA L02822B LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y BRL L04197B L0418D2 LDA L027EB1 ASL ASL TAX LDY L028232,X LDA L028230,X PHY PHA PEA $0000 PEA $001F JSL L02D6DE BEQ L04190C LDA L027EB1 ASL ASL TAX LDY L028232,X LDA L028230,X PHY AND #$007F PHA LDA $03,S AND #$0000 STA $03,S PLA STA L027ECD PLA STA L027ECF L04190C BRA L04197B L04190E LDA L027EB1 ASL ASL TAX LDY L028232,X LDA L028230,X PHY PHA PEA $0000 PEA $001F JSL L02D6DE BEQ L041948 LDA L027EB1 ASL ASL TAX LDY L028232,X LDA L028230,X PHY AND #$007F PHA LDA $03,S AND #$0000 STA $03,S PLA STA L027EB5 PLA STA L027EB7 L041948 BRA L04197B L04194A PEA $0103 JSL L040828 STA L027EB9 BRA L04197B L041956 LDA $19 DEC CMP #$0008 BCC L041961 LDA #$0008 L041961 ASL TAX LDAL L041969,X PHA RTS L041969 DA L04168C-1 DA L0416C5-1 DA L0416FE-1 DA L04172B-1 DA L041758-1 DA L04182C-1 DA L0418D2-1 DA L04190E-1 DA L04194A-1 L04197B BRL L0421AA L04197E PEA ^L028230 PEA L028230 LDA L027EB1 ASL ASL CLC ADC $01,S STA $01,S PLA STA $15 PLA STA $17 LDX L027ED3 LDA L027ED1 PHX PHA LDY #$0002 LDA [$15],Y PHA LDA [$15] PHA SEC PLA SBC $03,S STA $03,S PLA SBC $03,S STA $03,S PLA STA [$15] PLA STA [$15],Y BRL L0421AA L0419B9 LDY #$0000 LDA L027ED1 ORA L027ED3 BNE L0419C5 INY L0419C5 TYA CMP #$0000 BEQ L0419D0 LDA #$0001 BRA L0419ED L0419D0 LDA L028264 LDX L028266 LDY #$0000 CMP L027ED1 BNE L0419E1 CPX L027ED3 L0419E1 BNE L0419E4 INY L0419E4 TYA CMP #$0000 BEQ L0419ED LDA #$0001 L0419ED TAX BEQ L0419F3 L0419F0 BRL L0421AD L0419F3 LDA L027EB3 CMP #$0009 BEQ L041A11 LDX L027EC5 LDA L027EC3 PHX PHA JSL L0421B5 PHX STA L027EC3 PLA STA L027EC5 L041A0F BRA L0419F3 L041A11 BRL L0421AA L041A14 LDA #$0001 STA L027EAD L041A1A LDX L027EC5 LDA L027EC3 STX $11 STA $0F LDA #$0000 STA $05 LDA L027EB1 ASL ASL TAX LDY L028232,X LDA L028230,X TYX STX $0D STA $0B LDA L027EB3 CMP #$0019 BNE L041A54 LDA L027EAD BNE L041A4F LDA #$0001 STA L027EAD BRA L041A54 L041A4F LDA #$0001 STA $05 L041A54 LDA $05 LDX #$0000 CMP #$0000 BNE L041A5F INX L041A5F TXA CMP #$0000 BNE L041A68 BRL L041BCA L041A68 LDA L027EAB LDX #$0000 CMP #$000A BNE L041A74 INX L041A74 TXA CMP #$0000 BEQ L041A95 LDX L027ED3 LDA L027ED1 LDY #$0000 CMP $0B BNE L041A89 CPX $0D L041A89 BEQ L041A8C INY L041A8C TYA CMP #$0000 BEQ L041A95 LDA #$0001 L041A95 CMP #$0000 BEQ L041A9F LDA #$0001 BRA L041AD1 L041A9F LDA L027EAB LDX #$0000 CMP #$000B BNE L041AAB INX L041AAB TXA CMP #$0000 BEQ L041AC9 LDX L027ED3 LDA L027ED1 PHX PHA PEI $0D PEI $0B JSL L02D6DE CMP #$0000 BEQ L041AC9 LDA #$0001 L041AC9 CMP #$0000 BEQ L041AD1 LDA #$0001 L041AD1 CMP #$0000 BEQ L041ADB LDA #$0001 BRA L041B0D L041ADB LDA L027EAB LDX #$0000 CMP #$000D BNE L041AE7 INX L041AE7 TXA CMP #$0000 BEQ L041B05 LDX L027ED3 LDA L027ED1 PHX PHA LDX $0D LDA $0B JSL L02D6AD CMP #$0000 BEQ L041B05 LDA #$0001 L041B05 CMP #$0000 BEQ L041B0D LDA #$0001 L041B0D CMP #$0000 BEQ L041B17 LDA #$0001 BRA L041B49 L041B17 LDA L027EAB LDX #$0000 CMP #$0010 BNE L041B23 INX L041B23 TXA CMP #$0000 BEQ L041B41 PEI $0D PEI $0B LDX L027ED3 LDA L027ED1 PHX PHA JSL L02D6DE CMP #$0000 BEQ L041B41 LDA #$0001 L041B41 CMP #$0000 BEQ L041B49 LDA #$0001 L041B49 CMP #$0000 BEQ L041B53 LDA #$0001 BRA L041B83 L041B53 LDA L027EAB LDX #$0000 CMP #$0014 BNE L041B5F INX L041B5F TXA CMP #$0000 BEQ L041B7B PEI $0D PEI $0B LDX L027ED3 LDA L027ED1 JSL L02D6AD CMP #$0000 BEQ L041B7B LDA #$0001 L041B7B CMP #$0000 BEQ L041B83 LDA #$0001 L041B83 CMP #$0000 BEQ L041B8D LDA #$0001 BRA L041BC2 L041B8D LDA L027EAB LDX #$0000 CMP #$0016 BNE L041B99 INX L041B99 TXA CMP #$0000 BEQ L041BBA LDX L027ED3 LDA L027ED1 LDY #$0000 CMP $0B BNE L041BAE CPX $0D L041BAE BNE L041BB1 INY L041BB1 TYA CMP #$0000 BEQ L041BBA LDA #$0001 L041BBA CMP #$0000 BEQ L041BC2 LDA #$0001 L041BC2 CMP #$0000 BEQ L041BCA LDA #$0001 L041BCA TAX BEQ L041BD3 LDA #$0000 STA L027EAD L041BD3 LDX L027EC5 LDA L027EC3 PHX PHA JSL L0421B5 STX L027EC5 STA L027EC3 LDA L027EB3 LDX #$0000 CMP #$0000 BNE L041BF1 INX L041BF1 TXA CMP #$0000 BEQ L041BFC LDA #$0001 BRA L041C11 L041BFC LDA L027EB3 LDX #$0000 CMP #$0019 BNE L041C08 INX L041C08 TXA CMP #$0000 BEQ L041C11 LDA #$0001 L041C11 BEQ L041C16 BRL L041A1A L041C16 LDA L027EAD BNE L041C5B L041C1B LDA L027EB3 LDX #$0000 CMP #$0009 BEQ L041C27 INX L041C27 TXA CMP #$0000 BEQ L041C42 LDA L027EB3 LDX #$0000 CMP #$0008 BEQ L041C39 INX L041C39 TXA CMP #$0000 BEQ L041C42 LDA #$0001 L041C42 TAX BEQ L041C59 LDX L027EC5 LDA L027EC3 PHX PHA JSL L0421B5 STX L027EC5 STA L027EC3 BRA L041C1B L041C59 BRA L041C65 L041C5B LDX $11 LDA $0F STX L027EC5 STA L027EC3 L041C65 BRL L0421AA L041C68 PEA ^L028230 PEA L028230 LDA L027EB1 ASL ASL CLC ADC $01,S STA $01,S PLA STA $15 PLA STA $17 LDX L027ED3 LDA L027ED1 PHX PHA LDY #$0002 LDA [$15],Y PHA LDA [$15] PHA CLC PLA ADC $03,S STA $03,S PLA ADC $03,S STA $03,S PLA STA [$15] PLA STA [$15],Y BRL L0421AA L041CA3 LDX L027ED3 LDA L027ED1 PHX PHA PEA $0000 PEA $0002 JSL L02DCF2 PEA ^L028230 PEA L028230 CLC PLA ADC $03,S STA $03,S PLA ADC $03,S STA $03,S PLA PLX STA $01 STX $03 LDY #$0002 LDA [$01],Y PHA LDA [$01] PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] PLA STA [$01],Y BRL L0421AA L041CEF LDX L027ED3 LDA L027ED1 PHX PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y BRL L0421AA L041D14 LDX L027EC5 LDA L027EC3 PHX PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y BRL L0421AA L041D39 LDA L027ED1 ORA L027ED3 BNE L041D76 PEA $005F LDA L028268 LDX L02826A PHX PHA LDA L028264 LDX L028266 PHA JSL L025A27 PHX PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y BRL L041DF7 L041D76 LDA L027EB1 ASL ASL TAX LDY L028232,X LDA L028230,X PHY PHA LDA #$0000 TAX LDY #$0001 CMP $01,S BEQ L041D90 DEY L041D90 TXA CMP $03,S BEQ L041D98 LDY #$0000 L041D98 PLA PLA TYA BEQ L041DBF PEA ^L0280B1 PEA L0280B1 LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y BRA L041DF7 L041DBF PEA $005F LDA L027EB1 ASL ASL TAX LDY L028232,X LDA L028230,X PHY PHA LDX L027ED3 LDA L027ED1 PHA JSL L025A27 PHX PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y L041DF7 BRL L0421AA L041DFA LDX L027EC5 LDA L027EC3 PHX PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y LDA #$0001 STA $07 L041E21 LDX L027EC5 LDA L027EC3 PHX PHA LDA $07 INC $07 LDX #$0000 TAY BPL L041E34 DEX L041E34 CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S PLA PLX STA $01 STX $03 LDA [$01] AND #$00FF CMP #$000D BNE L041E21 LDX L027EC5 LDA L027EC3 PHX PLX STA $01 STX $03 LDA $07 DEC DEC SEP #$20 STA [$01] REP #$20 LDX L027EC5 LDA L027EC3 PHX PHA LDA $07 LDX #$0000 TAY BPL L041E75 DEX L041E75 CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S PLA STA L027EC3 PLA STA L027EC5 BRL L0421AA L041E8A LDA L027EAB CMP #$0002 BNE L041EB8 PEA $0001 JSL L040C0C PHX PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y BRL L041FEF L041EB8 LDA L027EAB CMP #$0004 BNE L041EF1 LDX L027EC1 LDA L027EBF PHX PHA JSL L02C7C2 PHX PHA JSL L040A92 PHX PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y BRL L041FEF L041EF1 LDA L027EAB CMP #$000C BNE L041F25 PEA $0002 JSL L040C0C PHX PHA JSL L040A92 PHX PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y BRL L041FEF L041F25 LDA L027EAB CMP #$0012 BNE L041F53 PEA $0004 JSL L040C0C PHX PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y BRL L041FEF L041F53 LDA L027EAB CMP #$0018 BNE L041F85 LDX L027ED3 LDA L027ED1 PHX PHA JSL L040A92 PHX PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y BRA L041FEF L041F85 LDA L027EAB CMP #$001A BNE L041FB8 PEA $0001 JSL L040C0C PHX PHA JSL L040A92 PHX PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y BRA L041FEF L041FB8 LDA L027EAB CMP #$001D BNE L041FE5 PEA $0002 JSL L040C0C PHX PHA LDA L027EB1 ASL ASL CLC ADC #L028230 PEA ^L028230 STA $01 PLA STA $03 PLA STA [$01] LDY #$0002 PLA STA [$01],Y BRA L041FEF L041FE5 PEA $0102 JSL L040828 STA L027EB9 L041FEF LDX L027EC1 LDA L027EBF PHX PHA PEA ^L028230 PEA L028230 PEA $0008 LDA L02826C LDX L02826E PHA PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 JSL L02ACFE L04201D BRL L0421AA L042020 BRL L0421AA L042023 LDX L027EC5 LDA L027EC3 PHX PHA JSL L041150 PHX STA L027EC3 PLA STA L027EC5 BRL L0421AA L04203A PEA ^L028230 PEA L028230 LDA L027EB1 ASL ASL CLC ADC $01,S STA $01,S PLA STA $15 PLA STA $17 LDY #$0002 LDA [$15],Y PHA LDA [$15] PHA LDX L027ED3 LDA L027ED1 PHX PHA JSL L02DBC3 PLA STA [$15] LDY #$0002 PLA STA [$15],Y BRL L0421AA L042071 PEA ^L028274 PEA L028274 PLA STA $01 PLA STA $03 LDA #$0000 STA [$01] LDY #$0002 STA [$01],Y LDA L027ED1 ORA L027ED3 BEQ L0420C2 PEA ^L028230 PEA L028230 LDA L027EB1 ASL ASL CLC ADC $01,S STA $01,S PLA STA $15 PLA STA $17 LDA [$15],Y PHA LDA [$15] PHA LDX L027ED3 LDA L027ED1 PHX PHA JSL L02DC66 PLA STA [$15] LDY #$0002 PLA STA [$15],Y BRA L0420CC L0420C2 PEA $0104 JSL L040828 STA L027EB9 L0420CC BRL L0421AA L0420CF PEA ^L028274 PEA L028274 PLA STA $01 PLA STA $03 LDA #$0000 STA [$01] LDY #$0002 STA [$01],Y LDA L027ED1 ORA L027ED3 BEQ L042122 PEA ^L028230 PEA L028230 LDA L027EB1 ASL ASL CLC ADC $01,S STA $01,S PLA STA $15 PLA STA $17 LDA [$15],Y PHA LDA [$15] PHA LDX L027ED3 LDA L027ED1 PHX PHA JSL L02DB10 PLY PLY PLA STA [$15] LDY #$0002 PLA STA [$15],Y BRA L04212C L042122 PEA $0104 JSL L040828 STA L027EB9 L04212C BRA L0421AA L04212E PEA $0105 JSL L040828 STA L027EB9 BRA L0421AA L04213A PEA $0101 JSL L040828 STA L027EB9 BRA L0421AA L042146 LDA $13 CMP #$0028 BCC L042150 LDA #$0028 L042150 ASL TAX LDAL L042158,X PHA RTS L042158 DA L04212E-1 DA L0414A4-1 DA L04213A-1 DA L04166A-1 DA L04213A-1 DA L041681-1 DA L04197E-1 DA L0419B9-1 DA L0419F3-1 DA L041A11-1 DA L04213A-1 DA L04213A-1 DA L04213A-1 DA L04213A-1 DA L041A14-1 DA L041C68-1 DA L04213A-1 DA L041CEF-1 DA L04213A-1 DA L041D14-1 DA L04213A-1 DA L041D39-1 DA L04213A-1 DA L04213A-1 DA L04213A-1 DA L04212E-1 DA L04213A-1 DA L041E8A-1 DA L042020-1 DA L04213A-1 DA L042023-1 DA L04213A-1 DA L0414A1-1 DA L04203A-1 DA L042071-1 DA L0420CF-1 DA L04213A-1 DA L04213A-1 DA L041DFA-1 DA L041CA3-1 DA L04213A-1 L0421AA BRL L04144A L0421AD PLD TSC CLC ADC #$001A TCS RTL L0421B5 TSC SEC SBC #$0012 TCS PHD TCD LDA #$0001 STA $0F LDA #$0000 STA $11 STA $0D STA $0B STA $09 L0421CD PEI $18 PEI $16 LDA $09 LDX #$0000 TAY BPL L0421DA DEX L0421DA CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S PLA PLX STA $01 STX $03 LDA [$01] AND #$00FF LDX #$0000 CMP #$000D BNE L0421F8 INX L0421F8 TXA CMP #$0000 BEQ L042203 LDA #$0001 BRA L042237 L042203 PEI $18 PEI $16 LDA $09 LDX #$0000 TAY BPL L042210 DEX L042210 CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S PLA PLX STA $01 STX $03 LDA [$01] AND #$00FF LDX #$0000 CMP #$0000 BNE L04222E INX L04222E TXA CMP #$0000 BEQ L042237 LDA #$0001 L042237 TAX BEQ L042279 LDA $0B ASL ASL ASL ASL CLC ADC $0D TAX SEP #$20 LDA #$00 STA L028814,X REP #$20 PEI $18 PEI $16 LDA $09 LDX #$0000 TAY BPL L04225A DEX L04225A CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S PLA PLX STA $01 STX $03 LDA [$01] AND #$00FF BNE L042276 LDA #$0001 STA $11 L042276 BRL L042402 L042279 PEI $18 PEI $16 LDA $09 LDX #$0000 TAY BPL L042286 DEX L042286 CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S PLA PLX STA $01 STX $03 LDA [$01] AND #$00FF LDX #$0000 CMP #$0020 BNE L0422A4 INX L0422A4 TXA CMP #$0000 BEQ L0422AF LDA #$0001 BRA L0422E3 L0422AF PEI $18 PEI $16 LDA $09 LDX #$0000 TAY BPL L0422BC DEX L0422BC CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S PLA PLX STA $01 STX $03 LDA [$01] AND #$00FF LDX #$0000 CMP #$0009 BNE L0422DA INX L0422DA TXA CMP #$0000 BEQ L0422E3 LDA #$0001 L0422E3 TAX BNE L0422E9 BRL L0423B2 L0422E9 LDA $0F BNE L04230C LDA $0B INC $0B ASL ASL ASL ASL CLC ADC $0D TAX SEP #$20 LDA #$00 STA L028814,X REP #$20 LDA #$0000 STA $0D LDA #$0001 STA $0F L04230C LDA $0B BMI L042316 DEC DEC DEC DEC BPL L042319 L042316 BRL L0423B0 L042319 PEI $18 PEI $16 LDA $09 LDX #$0000 TAY BPL L042326 DEX L042326 CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S PLA PLX STA $01 STX $03 LDA [$01] AND #$00FF LDX #$0000 CMP #$000D BEQ L042344 INX L042344 TXA CMP #$0000 BEQ L04237E PEI $18 PEI $16 LDA $09 LDX #$0000 TAY BPL L042357 DEX L042357 CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S PLA PLX STA $01 STX $03 LDA [$01] AND #$00FF LDX #$0000 CMP #$0000 BEQ L042375 INX L042375 TXA CMP #$0000 BEQ L04237E LDA #$0001 L04237E TAX BEQ L042385 INC $09 BRA L042319 L042385 PEI $18 PEI $16 LDA $09 LDX #$0000 TAY BPL L042392 DEX L042392 CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S PLA PLX STA $01 STX $03 LDA [$01] AND #$00FF BNE L0423AE LDA #$0001 STA $11 L0423AE BRA L042402 L0423B0 BRA L0423FD L0423B2 LDA #$0000 STA $0F LDA $0B ASL ASL ASL ASL CLC ADC $0D INC $0D CLC ADC #L028814 PEA ^L028814 PHA PEI $18 PEI $16 LDA $09 LDX #$0000 TAY BPL L0423D7 DEX L0423D7 CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S PLA PLX STA $01 STX $03 LDA [$01] AND #$00FF PHA JSL L02CA2C PLX STX $01 PLX STX $03 SEP #$20 STA [$01] REP #$20 L0423FD INC $09 BRL L0421CD L042402 LDA $0B BMI L04240B DEC DEC DEC BPL L042423 L04240B INC $0B LDA $0B ASL ASL ASL ASL CLC ADC #$0000 TAX SEP #$20 LDA #$00 STA L028814,X REP #$20 BRA L042402 L042423 LDA #$FFFF STA L027EAB STA L027EB3 LDA #$0000 STA $0B L042431 LDA $0B BMI L04243A CMP #$0029 BCS L042484 L04243A LDA $0B ASL ASL TAX LDY L028770+2,X LDA L028770,X PHY PHA PEA ^L028814 PEA L028814 JSL L02C751 TAX BNE L042459 LDA $0B STA L027EB3 L042459 LDA $0B ASL ASL TAX LDY L028770+2,X LDA L028770,X PHY PHA PEA ^L028814 PEA L028814 LDA #$0020 CLC ADC $01,S STA $01,S JSL L02C751 TAX BNE L042480 LDA $0B STA L027EAB L042480 INC $0B BRA L042431 L042484 LDA L028824 AND #$00FF CMP #$0052 BNE L0424A4 PEA ^L028824 PEA L028824 LDA #$0001 CLC ADC $01,S STA $01,S JSL L02C377 STA L027EB1 L0424A4 LDA L027EB3 ASL TAX LDA L028878,X STA $0B LDA $0B BMI L0424B5 DEC BPL L0424B8 L0424B5 BRL L0425BA L0424B8 LDA $0B ASL ASL ASL ASL CLC ADC #$0000 TAX LDA L028814,X AND #$00FF CMP #$0052 BNE L0424FB LDA $0B ASL ASL ASL ASL CLC ADC #L028814 PEA ^L028814 PHA LDA #$0001 CLC ADC $01,S STA $01,S JSL L02C377 ASL ASL TAX LDY L028232,X LDA L028230,X TYX STX L027ED3 STA L027ED1 BRL L0425BA L0424FB LDA $0B ASL ASL ASL ASL CLC ADC #$0000 TAX LDA L028814,X AND #$00FF CMP #$0024 BNE L042536 LDA $0B ASL ASL ASL ASL CLC ADC #L028814 PEA ^L028814 PHA LDA #$0001 CLC ADC $01,S STA $01,S JSL L040C8F PHX STA L027ED1 PLA STA L027ED3 BRL L0425BA L042536 LDA $0B ASL ASL ASL ASL CLC ADC #$0000 TAX LDA L028814,X AND #$00FF LDX #$0000 CMP #$0030 BNE L042550 INX L042550 TXA CMP #$0000 BEQ L042579 LDA $0B ASL ASL ASL ASL CLC ADC #$0001 TAX LDA L028814,X AND #$00FF LDX #$0000 CMP #$0058 BNE L042570 INX L042570 TXA CMP #$0000 BEQ L042579 LDA #$0001 L042579 TAX BEQ L0425A0 LDA $0B ASL ASL ASL ASL CLC ADC #L028814 PEA ^L028814 PHA LDA #$0002 CLC ADC $01,S STA $01,S JSL L040C8F PHX STA L027ED1 PLA STA L027ED3 BRA L0425BA L0425A0 LDA $0B ASL ASL ASL ASL CLC ADC #L028814 PEA ^L028814 PHA JSL L02C377 PHX STA L027ED1 PLA STA L027ED3 L0425BA LDA $11 LDX #$0000 CMP #$0000 BNE L0425C5 INX L0425C5 TXA BNE L0425D0 PEA $0000 PEA $0000 BRA L0425FB L0425D0 PEI $18 PEI $16 LDA $09 LDX #$0000 TAY BPL L0425DD DEX L0425DD CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S LDA #$0001 LDX #$0000 TAY BPL L0425F1 DEX L0425F1 CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S L0425FB PLA STA $05 PLA STA $07 LDA $14 STA $18 LDA $13 STA $17 LDX $07 LDY $05 PLD TSC CLC ADC #$0016 TCS TYA RTL L042616 TSC SEC SBC #$000C TCS PHD TCD LDX L027EC9 LDA L027EC7 STX $0B STA $09 L042628 LDA [$09] CMP $10 BEQ L042684 LDY #$0008 LDA [$09],Y PHA LDY #$0006 LDA [$09],Y PHA LDA #$0000 TAX LDY #$0001 CMP $01,S BEQ L042646 DEY L042646 TXA CMP $03,S BEQ L04264E LDY #$0000 L04264E PLA PLA TYA BNE L042664 LDY #$0008 LDA [$09],Y TAX LDY #$0006 LDA [$09],Y STX $0B STA $09 BRA L042682 L042664 LDA $10 BEQ L042679 LDX L027EC9 LDA L027EC7 STX $0B STA $09 LDA #$0000 STA $10 BRA L042682 L042679 LDA #$0000 STA $05 STA $07 BRA L042693 L042682 BRA L042628 L042684 LDY #$0004 LDA [$09],Y TAX LDY #$0002 LDA [$09],Y STX $07 STA $05 L042693 LDA $0E STA $10 LDA $0D STA $0F LDX $07 LDY $05 PLD TSC CLC ADC #$000E TCS TYA RTL L0426A8 TSC SEC SBC #$000C TCS PHD TCD LDA $10 STA $09 STZ $0B LDA $09 LDX $0B STA $05 STX $07 LDA $0E STA $10 LDA $0D STA $0F LDX $07 LDY $05 PLD TSC CLC ADC #$000E TCS TYA RTL L0426D3 TSC SEC SBC #$006C TCS PHD TCD LDX $72 LDA $70 PHX PHA _HLock LDY #$0002 LDA [$70],Y PHA LDA [$70] PHA TYA LDX #$0000 BPL L0426FB DEX L0426FB CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S PLA STA $07 PLA STA $09 LDA #$000F STA $21 LDA $07 STA $25 LDA $09 STA $27 LDA #$0000 STA $29 STA $2B STA $47 STA $49 PEA $2010 PEA $0000 TDC CLC ADC #$0021 PHA JSL L02C243 JSL L02CA27 STA $13 TAX BEQ L04275C PEA $3010 PEI $13 JSL L027CEB LDX $72 LDA $70 PHX PHA _HUnlock LDA $13 STA $05 BRL L0429D0 L04275C LDA #$0001 STA $0B PEA $0000 TDC CLC ADC #$000D PHA LDA $23 PLX STX $01 PLX STX $03 STA [$01] PHA PHA LDA $4B LDX $4D PHX PHA LDA L024112 PHA PEA $0000 PEA $0000 PEA $0000 _NewHandle PLA STA $0F PLA STA $11 JSL L02CA27 STA $13 TAX BEQ L0427DE PEA $3020 PEI $13 JSL L027CEB PEA $2014 PEA $0000 TDC CLC ADC #$000B PHA JSL L02C243 PEA $3021 JSL L02CA27 PHA JSL L027CEB LDX $72 LDA $70 PHX PHA _HUnlock LDA $13 STA $05 BRL L0429D0 L0427DE LDX $11 LDA $0F PHX PHA _HLock LDA #$0004 STA $5B PEA $0000 TDC CLC ADC #$005D PHA LDA $23 PLX STX $01 PLX STX $03 STA [$01] LDY #$0002 LDA [$0F],Y PHA LDA [$0F] STA $5F PLA STA $61 LDA $4B LDX $4D PHX STA $63 PLA STA $65 PEA $2012 PEA $0000 TDC CLC ADC #$005B PHA JSL L02C243 JSL L02CA27 STA $13 TAX BEQ L04288E PEA $3030 PEI $13 JSL L027CEB PEA $2014 PEA $0000 TDC CLC ADC #$000B PHA JSL L02C243 PEA $3031 JSL L02CA27 PHA JSL L027CEB LDX $11 LDA $0F PHX PHA _DisposeHandle PEA $3232 JSL L02CA27 PHA JSL L027CEB LDX $72 LDA $70 PHX PHA _HUnlock LDA $13 STA $05 BRL L0429D0 L04288E PEA $2014 PEA $0000 TDC CLC ADC #$000B PHA JSL L02C243 JSL L02CA27 STA $13 TAX BEQ L0428E6 PEA $3040 JSL L02CA27 PHA JSL L027CEB LDX $11 LDA $0F PHX PHA _DisposeHandle PEA $3041 JSL L02CA27 PHA JSL L027CEB LDX $72 LDA $70 PHX PHA _HUnlock LDA $13 STA $05 BRL L0429D0 L0428E6 LDY #$0002 LDA [$0F],Y TAX LDA [$0F] STX $17 STA $15 LDA $4B LDX $4D PHX PHA PEI $17 PEI $15 CLC PLA ADC $03,S STA $03,S PLA ADC $03,S STA $03,S PLA STA $19 PLA STA $1B L04290D PEI $17 PEI $15 LDX $1B LDA $19 TAY TXA LDX #$0001 CMP $03,S BNE L042921 TYA CMP $01,S L042921 BEQ L042925 BCS L042926 L042925 DEX L042926 PLA PLA TXA BEQ L042953 LDA $15 LDX $17 STA $1D STX $1F PEI $1F PEI $1D LDA [$1D] AND #$00FF AND #$007F PLX STX $01 PLX STX $03 SEP #$20 STA [$01] REP #$20 INC $15 BNE L042951 INC $17 L042951 BRA L04290D L042953 PEA $000D LDX $11 LDA $0F PHX PHA PEA $0000 PEA $0000 PEA $0000 PEA ^L0220FD PEA L0220FD PHA PHA PHA PHA _FrontWindow PEA $0000 PEA $1000 _GetCtlHandleFromID _TESetText PEA $3050 JSL L02CA27 PHA JSL L027CEB LDX $11 LDA $0F PHX PHA _DisposeHandle PEA $3251 JSL L02CA27 PHA JSL L027CEB LDX $72 LDA $70 PHX PHA _HUnlock LDA #$0000 STA $05 L0429D0 LDA $6E STA $72 LDA $6D STA $71 LDY $05 PLD TSC CLC ADC #$0070 TCS TYA RTL L0429E3 ENT TSC SEC SBC #$0028 TCS PHD TCD LDA #$0003 STA $1D STA $23 PEA $007D PEA $0023 PEA $0000 PEA ^L042C30 PEA L042C30 PEA $0000 PEA $0000 PEA ^L02ACEC PEA L02ACEC PEA $0000 TDC CLC ADC #$0015 PHA _SFGetFile2 JSL L02CA27 STA $13 PEA $3110 PEI $13 JSL L027CEB LDA $15 CMP #$0000 BEQ L042A48 LDA $13 BEQ L042A3D LDA #$0001 L042A3D EOR #$0001 CMP #$0000 BEQ L042A48 LDA #$0001 L042A48 TAX BNE L042A4E BRL L042C21 L042A4E _WaitCursor LDA $1F LDX $21 STA $01 STX $03 LDY #$0002 LDA [$01],Y TAX LDA [$01] STX $0D STA $0B PEI $0D PEI $0B LDA #$0003 LDX #$0000 TAY BPL L042A7A DEX L042A7A CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S PEI $0D PEI $0B LDA #$0002 LDX #$0000 TAY BPL L042A92 DEX L042A92 CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S PLA PLX STA $01 STX $03 LDA [$01] AND #$00FF PLX STX $01 PLX STX $03 SEP #$20 STA [$01] REP #$20 PEI $0D PEI $0B LDA #$0003 LDX #$0000 TAY BPL L042AC1 DEX L042AC1 CLC ADC $01,S STA $01,S TXA ADC $03,S STA $03,S PLA STA $0B PLA STA $0D LDA $1F LDX $21 PHX PHA _HLock PHA PHA LDX $0D LDA $0B PHX PHA PEA $0000 PEA $0000 PEA ^L026AB5 PEA L026AB5 PEA $0000 PEA $0000 PEA $0002 PEA $0000 PEA $0FFB PEA $800E _NewWindow2 PLA STA $07 PLA STA $09 PEA $3120 JSL L02CA27 PHA JSL L027CEB PHA PHA PEA $0000 PEA $000C LDA L024112 PHA PEA $0000 PEA $0000 PEA $0000 _NewHandle PLA STA $0F PLA STA $11 PEA $3122 JSL L02CA27 PHA JSL L027CEB LDX $11 LDA $0F PHX PHA LDX $09 LDA $07 PHX PHA _SetWRefCon PEA $3123 JSL L02CA27 PHA JSL L027CEB LDY #$0002 LDA [$0F],Y TAX LDA [$0F] STA $01 STX $03 LDA #$0000 STA [$01] LDA [$0F],Y PHA LDA [$0F] CLC ADC #$0002 STA $01 PLA STA $03 LDA #$0000 STA [$01] STA [$01],Y LDA [$0F],Y TAX LDA [$0F] CLC ADC #$0006 STA $01 STX $03 LDA #$5754 STA [$01] LDA [$0F],Y PHA LDA [$0F] CLC ADC #$0008 STA $01 PLA STA $03 LDA #$0000 STA [$01] STA [$01],Y LDX $09 LDA $07 PHX PHA _SetPort LDA $25 LDX $27 PHX PHA JSL L0426D3 STA $13 LDA $1F LDX $21 PHX PHA _DisposeHandle PEA $3124 JSL L02CA27 PHA JSL L027CEB LDA $25 LDX $27 PHX PHA _DisposeHandle PEA $3125 JSL L02CA27 PHA JSL L027CEB _InitCursor L042C21 LDA $13 STA $05 LDY $05 PLD TSC CLC ADC #$0028 TCS TYA RTL L042C30 STR 'Select a file...' DB $00 L042C42 ENT TSC SEC SBC #$000A TCS PHD TCD PHA PHA PHA PHA _FrontWindow _GetWRefCon PLA STA $07 PLA STA $09 PEA $3210 JSL L02CA27 PHA JSL L027CEB LDY #$0002 LDA [$07],Y TAX LDA [$07] STA $01 STX $03 LDY #$0006 LDA [$01],Y CMP #$5754 BEQ L042C91 LDA #$FFFF STA $05 BRA L042CD4 L042C91 LDX $09 LDA $07 PHX PHA _DisposeHandle PEA $3216 JSL L02CA27 PHA JSL L027CEB PHA PHA _FrontWindow _CloseWindow PEA $3220 JSL L02CA27 PHA JSL L027CEB LDA #$0000 STA $05 L042CD4 LDY $05 PLD TSC CLC ADC #$000A TCS TYA RTL