* * HypercardGS * segment: $14 BrowseOnly * * (k) 2015, Brutal Deluxe Software * mx %00 rel dsk BrowseOnly.l lst off *--------------------------------------- use BrowseOnly.E use BrowseOnly.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 *--------------------------------------- L140000 PHD TSC CLC ADC #$FF38 TCS TCD PHY JSL L095FB4 PLA LSR BCS L14001B PEA $0041 JSL L0727E0 BRL L1406B3 L14001B LDA L0550F3 BEQ L14002D PEA ^L04022A PEA L04022A JSL L07010A BRL L1406B3 L14002D LDA L055121 ORA L055123 BEQ L140047 LDA L055121 LDX L055123 PHX PHA JSL L15106B STZ L055121 STZ L055123 L140047 PHY PEI $D2 PEI $D0 PEI $CE PEA ^L05328B PEA L05328B JSL L07ABAE PLA LSR BCS L140068 STZ L055121 STZ L055123 STZ L05511F BRL L1406B3 L140068 LDA $D0 LDX $D2 STA L055129 STX L05512B LDA L055027 LDX L055029 STA L055125 STX L055127 LDA L05501F LDX L055021 CMP $D0 BNE L14008A CPX $D2 L14008A BEQ L140091 LDA #$0000 BRA L140094 L140091 LDA #$0001 L140094 STA $C1 PEA ^L05328B PEA L05328B PEI $C1 TDC CLC ADC #$00B9 PEA $0000 PHA JSL L083B58 LDX #$0000 LDA #$000F ANDL L053299 CMP #$0007 BNE L1400BB INX L1400BB TXA STA $C3 LDAL L05328D STA $AF LDA $C1 BNE L1400D0 LDA $AF EOR #$FFFF INC STA $AF L1400D0 LDA #$4000 ANDL L05328F BEQ L1400DC LDA #$0001 L1400DC AND $C1 STA $AD STZ $9D STZ $9F STZ $A5 STZ $A7 STZ $A1 STZ $A3 PHY PHY LDA L05501F LDX L055021 PHX PHA JSL L07721A PLA STA $A5 PLX STX $A7 PHY PHY LDA L055027 LDX L055029 PHX PHA JSL L0772AE PLA STA $A1 PLX STX $A3 LDA $A5 ORA $A7 BEQ L140138 LDA $A1 ORA $A3 BEQ L140138 PHY PHY PEI $A7 PEI $A5 PEI $A3 PEI $A1 PEI $AF PEI $AD JSL L07B038 PLA STA $9D PLX STX $9F L140138 LDA $9D ORA $9F BNE L140148 LDA #L053251 LDX #^L053251 STA $9D STX $9F L140148 LDA L0550F5 LDX L0550F7 STA $A9 STX $AB TDC CLC ADC #$009D PEA $0000 PHA TDC CLC ADC #$00A9 PEA $0000 PHA JSL L070669 LDA #$0001 STA L0550F1 LDA $A1 ORA $A3 BEQ L140183 LDA L055027 LDX L055029 PHX PHA PEA $0000 JSL L074A90 L140183 LDA $A5 ORA $A7 BEQ L140198 LDA L05501F LDX L055021 PHX PHA PEA $0000 JSL L074A24 L140198 PEA ^L053291 PEA L053291 TDC CLC ADC #$00B1 PEA $0000 PHA JSL L0808E0 LDA #$000F ANDL L053299 CMP #$0004 BNE L1401C2 LDA $B7 DEC DEC STA $B7 LDA $B5 DEC STA $B5 L1401C2 TDC CLC ADC #$00B1 PEA $0000 PHA PEA $0002 PEA $0001 JSL L151005 STZ L055425 LDA L054FBB SEC SBC #$0000 BPL L140212 LDA #$00FA SEC SBC $B1 STA L055425 TDC CLC ADC #$00B1 PEA $0000 PHA PEA $0000 LDA L055425 PHA JSL L1501AF TDC CLC ADC #$00B9 PEA $0000 PHA PEA $0000 LDA L055425 PHA JSL L1501AF L140212 TDC CLC ADC #$001D PEA $0000 PHA PEA $0000 PEA $0056 JSL L071EC5 LDA #$0017 STA $1D TDC CLC ADC #$0023 PEA $0000 PHA TDC CLC ADC #$00B1 PEA $0000 PHA PEA $0008 JSL L0313BE LDA #$0000 LDX #$8500 STA $2B STX $2D LDA #$0080 STA $2F LDA #$1400 STA $31 LDA #$0000 LDX #$E000 STA $37 STX $39 LDA $B9 SEC SBC $B1 STA $3B LDA $B5 SEC SBC $BD STA $3F LDAL L0532AB STA $47 LDA #$0001 STA $53 LDA #L053251 LDX #^L053251 STA $55 STX $57 LDA #$7530 LDX #$0000 STA $5D STX $5F LDA #L053271 LDX #^L053271 STA $69 STX $6B LDA #$0004 STA $6D LDA $C3 BEQ L1402AB LDA #$FFFF TAX STA $43 STX $45 BRA L1402C1 L1402AB PHY PHY PEI $39 PEI $37 PEA $0800 PEA $0000 JSL L150241 PLA STA $37 PLX STX $39 L1402C1 LDA #$00FF ANDL L0532AD STA $8F PEA $000F LDA #$00FF ANDL L05329F STA $C5 PLA SEC SBC $C5 STA $8D PEA ^L053271 PEA L053271 PEA $0000 PEA $001A JSL L071EC5 PHY PEI $8D JSL L081A92 PLA STAL L053271 PHY PEI $8F JSL L081A92 PLA STAL L053273 LDA $8F ASL ASL ASL ASL STAL L053261 LDA $8D ASL ASL ASL ASL STAL L053267 LDA $8F ORAL L053267 STAL L053263 LDAL L053263 STAL L053265 LDAL L053267 STAL L053269 LDA #$0100 ORAL L053263 STAL L05326D LDAL L053267 STAL L05326F LDA $C3 BEQ L1403A0 LDA L0550ED LDX L0550EF CLC ADC #$0018 BCC L140356 INX L140356 STA $C5 STX $C7 LDY #$0002 LDA [$C5],Y TAX LDA [$C5] STA $C5 STX $C7 LDY #$0002 LDA [$C5],Y TAX LDA [$C5] STA $19 STX $1B TDC CLC ADC #$0095 PEA $0000 PHA LDA #$0002 CLC ADC $19 LDX $1B BCC L140386 INX L140386 PHX PHA PEA $0008 JSL L0313BE LDA #$0002 CLC ADC $19 LDX $1B BCC L14039A INX L14039A PHX PHA JSL L08273B L1403A0 PHY PHY TDC CLC ADC #$001D PEA $0000 PHA JSL L1512EF PLA STA L055121 PLA STA L055123 LDAL L05565D BEQ L140413 STZ L055121 STZ L055123 LDA L0550ED LDX L0550EF CLC ADC #$0018 BCC L1403D0 INX L1403D0 STA $C5 STX $C7 LDY #$0002 LDA [$C5],Y TAX LDA [$C5] STA $C5 STX $C7 LDY #$0002 LDA [$C5],Y TAX LDA [$C5] STA $15 STX $17 LDA #$0002 CLC ADC $15 LDX $17 BCC L1403F7 INX L1403F7 PHX PHA TDC CLC ADC #$0095 PEA $0000 PHA PEA $0008 JSL L0313BE PEA $0035 JSL L0727E0 BRL L1406B3 L140413 LDA $C3 BEQ L140461 LDA L055121 LDX L055123 STA $C5 STX $C7 LDY #$0002 LDA [$C5],Y TAX LDA [$C5] CLC ADC #$0092 BCC L140430 INX L140430 STA $C5 STX $C7 LDY #$0002 LDA [$C5],Y TAX LDA [$C5] STA $C5 STX $C7 LDY #$0002 LDA [$C5],Y TAX LDA [$C5] CLC ADC #$0024 BCC L14044F INX L14044F STA $C5 STX $C7 LDA #L053261 LDX #^L053261 STA [$C5] TXA LDY #$0002 STA [$C5],Y L140461 LDAL L0532A5 STA $73 LDAL L0532A9 SEP #$20 STA $75 REP #$20 LDAL L0532A7 SEP #$20 STA $76 REP #$20 PHY LDA #$00FF ANDL L0532AE PHA JSL L081A92 PLA STA $77 PEA $0072 TDC CLC ADC #$0073 PEA $0000 PHA LDA L055121 LDX L055123 PHX PHA JSL L151077 PEA $0003 TDC CLC ADC #$0087 PEA $0000 PHA LDA L055121 LDX L055123 PHX PHA JSL L15011A LDAL L05565D BEQ L1404C4 BRL L140556 L1404C4 LDY #$0002 LDA [$87],Y TAX LDA [$87] STA $11 STX $13 LDAL L0532A3 LDY #$0006 STA [$11],Y LDA $BB SEC SBC $B3 STA $8B LDA $8B STA [$11] LDA $8B LDY #$0002 STA [$11],Y LDA $BF SEC SBC $B3 STA $8B LDA $C3 BEQ L1404FE LDA $8B SEC SBC #$001A STA $8B L1404FE LDA $8B LDY #$0004 STA [$11],Y PEI $75 PEI $73 PEA $0000 JSL L151663 TDC CLC ADC #$007F PEA $0000 PHA JSL L150178 LDA $81 CLC ADC $7F CLC ADC $85 STA $C5 LDAL L0532AB SEC SBC $C5 LDY #$0008 STA [$11],Y LDA #$0000 LDY #$0010 STA [$11],Y PEA $0001 PEI $89 PEI $87 LDA L055121 LDX L055123 PHX PHA JSL L150114 PEI $89 PEI $87 JSL L07185A L140556 PEA $0001 LDA L0550F5 LDX L0550F7 PHX PHA PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 LDA L055121 LDX L055123 PHX PHA JSL L151645 LDA $C3 BNE L140583 BRL L1406B3 L140583 LDA L055121 LDX L055123 STA $C5 STX $C7 LDY #$0002 LDA [$C5],Y TAX LDA [$C5] CLC ADC #$0092 BCC L14059C INX L14059C STA $C5 STX $C7 LDY #$0002 LDA [$C5],Y TAX LDA [$C5] STA $C5 STX $C7 LDY #$0002 LDA [$C5],Y TAX LDA [$C5] STA $0D STX $0F LDA #$0008 CLC ADC $0D LDX $0F BCC L1405C3 INX L1405C3 STA $09 STX $0B LDA [$09] DEC STA [$09] LDY #$0002 LDA [$09],Y INC INC LDY #$0002 STA [$09],Y LDY #$0004 LDA [$09],Y INC LDY #$0004 STA [$09],Y LDY #$0006 LDA [$09],Y INC INC LDY #$0006 STA [$09],Y LDA #$0028 CLC ADC $0D LDX $0F BCC L1405FA INX L1405FA PHX PHA PEA $0002 PEA $FFFF JSL L1501AF LDA #$0030 CLC ADC $0D LDX $0F BCC L140611 INX L140611 STA $05 STX $07 LDA [$05] DEC STA [$05] LDY #$0002 LDA [$05],Y INC INC LDY #$0002 STA [$05],Y LDY #$0004 LDA [$05],Y INC LDY #$0004 STA [$05],Y LDY #$0006 LDA [$05],Y INC INC LDY #$0006 STA [$05],Y PHY PHY PEA $0004 PHY PEI $AF JSL L086029 PLA LDX #$0000 BIT #$8000 BEQ L140653 DEX L140653 PHX PHA PEA $0000 PEA $0000 LDA L055121 LDX L055123 PHX PHA JSL L1505C2 PLA STA $91 PLX STX $93 LDA L0550ED LDX L0550EF CLC ADC #$0018 BCC L14067A INX L14067A STA $C5 STX $C7 LDY #$0002 LDA [$C5],Y TAX LDA [$C5] STA $C5 STX $C7 LDY #$0002 LDA [$C5],Y TAX LDA [$C5] STA $01 STX $03 LDA #$0002 CLC ADC $01 LDX $03 BCC L1406A1 INX L1406A1 PHX PHA TDC CLC ADC #$0095 PEA $0000 PHA PEA $0008 JSL L0313BE L1406B3 LDA $CC STA $D2 LDA $CB STA $D1 LDA $C9 TCD TSC CLC ADC #$00D0 TCS RTL L1406C5 PHD TSC CLC ADC #$FFC2 TCS TCD LDA L05543B LDX L05543D CMP L055039 BNE L1406DB CPX L05503B L1406DB BEQ L14070B PEA ^L050060 PEA L050060 PEA $0000 PEA $002A JSL L071EC5 STZ L055447 STZ L055449 STZ L055443 STZ L055445 STZ L05543F STZ L055441 LDA L055039 LDX L05503B STA L05543B STX L05543D L14070B TDC CLC ADC #$0011 PEA $0000 PHA PEA ^L050060 PEA L050060 PEA $002A JSL L0313BE LDA L055447 LDX L055449 STA $0D STX $0F LDA L055443 LDX L055445 STA $09 STX $0B LDA L05543F LDX L055441 STA $05 STX $07 PHY LDAL L05008C PHA LDAL L05008A PHA PEA $0000 PEA ^L055447 PEA L055447 PEA ^L050060 PEA L050060 JSL L0A2034 PLA STA $03 LDA L055027 LDX L055029 STA L055443 STX L055445 LDA L05501F LDX L055021 STA L05543F STX L055441 STZ L055211 STZ L05520F LDX #$0000 LDA #$000F ANDL L050064 DEC DEC BNE L14078D INX L14078D PHX LDA L055153 EOR #$0001 AND $01,S PLX LSR BCS L14079D BRL L140828 L14079D LDAL L05006E AND #$000F STA $01 LDX #$0000 LDA #$0007 CMP $01 BNE L1407B1 INX L1407B1 PHX LDAL L05008C PHA LDAL L05006C SEC SBC #$000D ASL PHA PLA LDX #$0001 SEC SBC $01,S BVS L1407CD EOR #$8000 L1407CD BPL L1407D0 DEX L1407D0 PLA TXA AND $01,S PLX LSR BCC L1407E0 LDA #$0001 STA L05520F BRA L140828 L1407E0 LDX #$0000 LDA L0550BB DEC BNE L1407EA INX L1407EA PHX LDA L0551FB SEC SBC #$0001 BEQ L1407FB BVS L1407F9 EOR #$8000 L1407F9 BMI L140800 L1407FB LDA #$0000 BRA L140803 L140800 LDA #$0001 L140803 AND $01,S PLX PHA PHY JSL L090A90 PLA EOR #$0001 AND $01,S PLX PHA LDX #$0000 LDAL L05006E AND #$1000 BNE L140821 INX L140821 TXA AND $01,S PLX STA L055211 L140828 LDA $44 EOR #$0001 ORA L055153 BEQ L140835 BRL L14091B L140835 PHY PHY JSL L15035F LDA L054FA9 LDX L054FAB CLC ADC #$012C BCC L140848 INX L140848 JSL L033477 BVS L140851 EOR #$8000 L140851 BMI L14088B LDA L054FA7 BNE L14085B BRL L14091B L14085B LDA L054FA3 ORA L054FA5 BNE L140866 BRL L14091B L140866 PHY PHY LDA L054FA3 LDX L054FA5 STA $3B STX $3D LDY #$0002 LDA [$3B],Y TAX LDA [$3B] PHX PHA JSL L071C98 PLA PLX STX $3B ORA $3B BNE L14088B BRL L14091B L14088B LDA $0D LDX $0F CMP L055447 BNE L140897 CPX L055449 L140897 BEQ L14089E LDA #$0000 BRA L1408A1 L14089E LDA #$0001 L1408A1 PHA LDX #$0000 LDA $13 CMPL L050062 BNE L1408AE INX L1408AE TXA AND $01,S PLX LSR BCC L1408DB PEA $0018 LDA L055447 LDX L055449 PHX PHA LDAL L050062 PHA LDA L055443 LDX L055445 PHX PHA LDA L05543F LDX L055441 PHX PHA JSL L0998E6 BRA L140914 L1408DB PEA $0019 PEI $0F PEI $0D PEI $13 PEI $0B PEI $09 PEI $07 PEI $05 JSL L0998E6 PEA $0017 LDA L055447 LDX L055449 PHX PHA LDAL L050062 PHA LDA L055443 LDX L055445 PHX PHA LDA L05543F LDX L055441 PHX PHA JSL L0998E6 L140914 PEA $0016 JSL L0998B0 L14091B LDA $42 STA $44 LDA $41 STA $43 LDA $3F TCD TSC CLC ADC #$0042 TCS RTL L14092D ENT PHD TSC CLC ADC #$FDB6 TCS ADC #$0153 TCD JSL L093F21 LDA L0551FB SEC SBC #$0001 BEQ L14094C BVS L14094A EOR #$8000 L14094A BMI L140951 L14094C LDA #$0000 BRA L140954 L140951 LDA #$0001 L140954 PHA LDA L055051 EOR #$0001 AND $01,S PLX STA $F1 LDA L0551FB SEC SBC #$0001 BEQ L140970 BVS L14096E EOR #$8000 L14096E BMI L140975 L140970 LDA #$0000 BRA L140978 L140975 LDA #$0001 L140978 PHA LDA L055243 ORA $F1 AND $01,S PLX STA $EF LDA L054FB5 EOR #$0001 ORA $EF ORA L0551F3 STA $ED STZ $EB LDA L0551FB SEC SBC #$0002 BEQ L1409A2 BVS L1409A0 EOR #$8000 L1409A0 BMI L1409A7 L1409A2 LDA #$0000 BRA L1409AA L1409A7 LDA #$0001 L1409AA AND $ED PHA LDA L0551FB SEC SBC #$0002 BEQ L1409C2 BVS L1409BB EOR #$8000 L1409BB BPL L1409C2 LDA #$0000 BRA L1409C5 L1409C2 LDA #$0001 L1409C5 AND $ED PHA LDX #$0000 LDA L0551E9 BNE L1409D1 INX L1409D1 PHX LDX #$0000 LDA #$1601 CMP L0551E9 BNE L1409DE INX L1409DE TXA ORA $01,S PLX AND $01,S PLX ORA $01,S PLX LSR BCC L1409F0 LDA #$0001 STA $EB L1409F0 PEI $EB PEA $00FD JSL L073077 PEA ^L05259E PEA L05259E PEA $0000 TDC CLC ADC #$FEAD PHA PEA $0007 JSL L073002 PEA ^L052CCE PEA L052CCE PEA $0000 TDC CLC ADC #$FFB1 PHA PEA $0002 JSL L1509CE PEA $0014 JSL L0313BE PEA ^L05254E PEA L05254E PEA ^L040265 PEA L040265 PEA ^L052CBA PEA L052CBA TDC CLC ADC #$0097 PEA $0000 PHA PEA $0002 JSL L1509CE PEA $0014 JSL L0313BE PEA ^L05259E PEA L05259E PEA $00FD JSL L15039B LDA L054FB5 EOR #$0001 STA $E9 LDAL L04026C SEP #$20 STA $C5 REP #$20 LDAL L04026D SEP #$20 STA $B1 REP #$20 LDA L054FB5 BNE L140A86 BRL L140BF7 L140A86 STZ $E7 LDA L0551F3 BEQ L140AE2 LDA L055111 LDX L055113 STA $F3 STX $F5 LDY #$0002 LDA [$F3],Y TAX LDA [$F3] TXY LDX #$FFAD STA $00,X TYA STA $02,X LDX #$FFAD LDA $02,X TAY LDA $00,X TYX CLC ADC #$0020 BCC L140AB8 INX L140AB8 STA $F3 STX $F5 LDA [$F3] PHA LDX #$FFAD LDA $02,X TAY LDA $00,X TYX CLC ADC #$0022 BCC L140ACF INX L140ACF STA $F3 STX $F5 PLA CMP [$F3] BNE L140ADD LDA #$0000 BRA L140AE0 L140ADD LDA #$0001 L140AE0 STA $E7 L140AE2 LDA L05511F BEQ L140B27 TDC CLC ADC #$00DD PEA $0000 PHA TDC CLC ADC #$00D9 PEA $0000 PHA LDA L055121 LDX L055123 PHX PHA JSL L150000 PEI $E7 PEI $DF PEI $DD LDA $D9 LDX $DB JSL L033477 BVS L140B18 EOR #$8000 L140B18 BPL L140B1F LDA #$0000 BRA L140B22 L140B1F LDA #$0001 L140B22 ORA $01,S PLX STA $E7 L140B27 LDA $E7 BEQ L140B66 LDA #$0001 STA $E9 TDC CLC ADC #$00C5 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FEAD PHA PEA $0008 JSL L073002 PEA $0014 JSL L0313BE TDC CLC ADC #$00B1 PEA $0000 PHA PEA ^L04026E PEA L04026E PEA $0005 JSL L0313BE L140B66 LDAL L052D34 BNE L140B6F BRL L140BF7 L140B6F LDA #$0001 STA $E9 LDA #$000F ANDL L052D36 DEC BNE L140BB6 TDC CLC ADC #$00C5 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FEAD PHA PEA $000B JSL L073002 PEA $0014 JSL L0313BE TDC CLC ADC #$00B1 PEA $0000 PHA PEA ^L040273 PEA L040273 PEA $0007 JSL L0313BE BRA L140BF7 L140BB6 LDA #$000F ANDL L052D36 DEC DEC BNE L140BF7 TDC CLC ADC #$00C5 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FEAD PHA PEA $000C JSL L073002 PEA $0014 JSL L0313BE TDC CLC ADC #$00B1 PEA $0000 PHA PEA ^L04027A PEA L04027A PEA $0006 JSL L0313BE L140BF7 PEA ^L0525C6 PEA L0525C6 PEA $0000 TDC CLC ADC #$FEAD PHA PEA $0004 JSL L073002 TDC CLC ADC #$00C5 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FFB1 PHA PEA $0002 JSL L1509CE PEA $0014 JSL L0313BE PEA ^L052576 PEA L052576 PEA ^L040280 PEA L040280 TDC CLC ADC #$00B1 PEA $0000 PHA TDC CLC ADC #$0099 PEA $0000 PHA PEA $0002 JSL L1509CE PEA $0014 JSL L0313BE PEA ^L0525B2 PEA L0525B2 PEA $0000 TDC CLC ADC #$FEAD PHA PEA $0005 JSL L073002 TDC CLC ADC #$00C5 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FFB1 PHA PEA $0002 JSL L1509CE PEA $0014 JSL L0313BE PEA ^L052562 PEA L052562 PEA ^L040285 PEA L040285 TDC CLC ADC #$00B1 PEA $0000 PHA TDC CLC ADC #$0097 PEA $0000 PHA PEA $0002 JSL L1509CE PEA $0014 JSL L0313BE PEA ^L05258A PEA L05258A PEA $0000 TDC CLC ADC #$FEAD PHA PEA $0006 JSL L073002 TDC CLC ADC #$00C5 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FFB1 PHA PEA $0002 JSL L1509CE PEA $0014 JSL L0313BE PEA ^L05253A PEA L05253A PEA ^L04028B PEA L04028B TDC CLC ADC #$00B1 PEA $0000 PHA TDC CLC ADC #$0097 PEA $0000 PHA PEA $0002 JSL L1509CE PEA $0014 JSL L0313BE PEA ^L0525C6 PEA L0525C6 PEA $00FB JSL L15039B PEA ^L0525B2 PEA L0525B2 PEA $00FC JSL L15039B PEA ^L05258A PEA L05258A PEA $00FE JSL L15039B LDA L054FB5 BEQ L140D66 LDA L0551CB ORA L0551CD BEQ L140D54 LDA #$0001 L140D54 ORA L05511F PHA LDAL L05000A BEQ L140D61 LDA #$0001 L140D61 ORA $01,S PLX STA $E3 L140D66 PEI $E9 PEA $00FC JSL L073077 LDA $ED AND $E9 PHA PEA $00FB JSL L073077 LDA $ED AND $E9 PHA PEA $00FE JSL L073077 PEI $E3 PEA $00FA JSL L073077 PEI $F1 PEA $01FC JSL L073077 PEI $F1 PEA $051C JSL L073077 PEI $F1 PEA $01FD JSL L073077 PEI $F1 PEA $051D JSL L073077 PEI $F1 PEA $01FE JSL L073077 PEI $F1 PEA $032C JSL L073077 PEI $F1 PEA $0195 JSL L073077 LDX #$0000 LDA #$4000 ANDL L053AE9 BNE L140DDC INX L140DDC PHX LDA L05504F EOR #$0001 AND $01,S PLX STA $E1 PEI $E1 PEA $0197 JSL L073077 LDAL L052D34 BEQ L140DFA LDA #$0001 L140DFA ORA L05511F AND $EF PHA PEA $0201 JSL L073077 LDA L055153 PHA PEA $0202 JSL L15167B LDAL L052D34 BEQ L140E1B LDA #$0001 L140E1B AND $EF STA $E5 PEI $E5 PEA $0327 JSL L073077 PEI $E5 PEA $0328 JSL L073077 LDX #$0000 LDA #$000F ANDL L052D36 DEC BNE L140E3F INX L140E3F PHX PEA $0321 JSL L073077 LDX #$0000 LDA #$000F ANDL L052D36 DEC DEC BNE L140E56 INX L140E56 TXA ORA L05511F PHA PEA $0322 JSL L073077 PEI $EF PEA $032A JSL L073077 PEI $EF PEA $032B JSL L073077 PEA $0000 PEA $0000 PEA $01F4 JSL L1505D4 PEA $0000 PEA $0000 PEA $0514 JSL L1505D4 TSC CLC ADC #$024A TCS PLD RTL L140E96 ENT PHD TSC CLC ADC #$FFF4 TCS TCD JSL L0A3283 JSL L0903F2 PEA $0000 PEA $0000 JSL L090000 LDA L055153 EOR #$0001 STA L055153 PEA ^L053259 PEA L053259 JSL L085216 PEA ^L053259 PEA L053259 JSL L087BAE JSL L083E9E JSL L087268 TSC CLC ADC #$000C TCS PLD RTL L140EDD ENT PHD TSC CLC ADC #$FFDE TCS TCD LDA L055235 STA $0D LDA L055237 STA $0B LDA L055239 STA $09 LDA L05523B STA $07 LDA L055211 STA $17 LDA L05520F STA $15 PHY JSL L099DCE PLA STA L055235 PHY JSL L09771E PLA STA L055237 PHY JSL L090A90 PLA STA L055239 PHY JSL L0903C7 PLA STA L05523B LDA $2A LDX $2C STAL L05008A TXA STAL L05008C PEI $28 JSL L1406C5 LDA $0D CMP L055235 BEQ L140F47 LDA #$0001 STA L0551EB L140F47 LDA L05520D STA $13 LDA L055209 STA $11 LDA L05524B BEQ L140F67 LDA #$0013 STA $19 LDA L0550ED LDX L0550EF STA $1B STX $1D BRA L140F7C L140F67 PHY TDC CLC ADC #$001B PEA $0000 PHA PEI $2C PEI $2A JSL L150B9A PLA STA $19 L140F7C PHY PEI $1D PEI $1B JSL L0A12DB PLA LSR BCC L140F92 LDA #$0001 STA L054F9F BRL L14110C L140F92 STZ L05520D STZ L055209 LDA #$0013 CMP $19 BNE L140FD1 LDA L0550E1 LDX L0550E3 CMP $1B BNE L140FAB CPX $1D L140FAB BEQ L140FB2 LDA #$0000 BRA L140FB5 L140FB2 LDA #$0001 L140FB5 STA L05520D LDA L0550ED LDX L0550EF CMP $1B BNE L140FC4 CPX $1D L140FC4 BEQ L140FCB LDA #$0000 BRA L140FCE L140FCB LDA #$0001 L140FCE STA L055209 L140FD1 LDA L05520B STA $0F LDA L05520D STA L05520B LDA L05520D BEQ L14101A LDA L0550E1 LDX L0550E3 PHX PHA JSL L151131 LDA $2A LDX $2C STA $01 STX $03 TDC CLC ADC #$0001 PEA $0000 PHA JSL L150BE8 PHY TDC CLC ADC #$0001 PEA $0000 PHA PEA ^L053249 PEA L053249 JSL L1512CB PLA STA L05520B L14101A LDA L054F9F BNE L14102F PHA LDX #$0000 LDA $0D CMP L055235 BEQ L14102B INX L14102B TXA ORA $01,S PLX L14102F PHA PLA BNE L141043 PHA LDX #$0000 LDA $0B CMP L055237 BEQ L14103F INX L14103F TXA ORA $01,S PLX L141043 PHA PLA BNE L141057 PHA LDX #$0000 LDA $09 CMP L055239 BEQ L141053 INX L141053 TXA ORA $01,S PLX L141057 PHA PLA BNE L14106B PHA LDX #$0000 LDA $17 CMP L055211 BEQ L141067 INX L141067 TXA ORA $01,S PLX L14106B PHA PLA BNE L14107F PHA LDX #$0000 LDA $11 CMP L055209 BEQ L14107B INX L14107B TXA ORA $01,S PLX L14107F PHA PLA BNE L141093 PHA LDX #$0000 LDA $0F CMP L05520B BEQ L14108F INX L14108F TXA ORA $01,S PLX L141093 CMP #$0000 BNE L1410A6 LDX #$0000 LDA $15 CMP L05520F BEQ L1410A3 INX L1410A3 TXA BEQ L14110C L1410A6 LDA #$0004 STA $05 LDA L05520B BEQ L1410B5 LDA #$0008 STA $05 L1410B5 LDA L055209 BEQ L1410EF LDA L0550BB DEC BNE L1410DF LDA L055211 BEQ L1410CC LDA #$0008 STA $05 BRA L1410DD L1410CC LDA L05520F BEQ L1410D8 LDA #$0004 STA $05 BRA L1410DD L1410D8 LDA #$0005 STA $05 L1410DD BRA L1410EF L1410DF LDA L055237 EOR #$0001 AND L055239 BEQ L1410EF LDA #$0007 STA $05 L1410EF LDA L054F9F BEQ L141103 LDA L054FBB SEC SBC #$0000 BMI L141103 LDA #$FFFF STA L054FA1 L141103 STZ L054F9F PEI $05 JSL L0724F7 L14110C LDA $26 STA $2C LDA $25 STA $2B LDA $23 TCD TSC CLC ADC #$002A TCS RTL L14111E ENT PHD TSC CLC ADC #$FFE6 TCS TCD LDA L055423 STA $15 LDA L054FB7 LDX L054FB9 STA $17 STX $19 LDY #$0002 LDA [$17],Y TAX LDA [$17] PHX PHA PEA $0000 PEA $0004 JSL L150290 PLY PLY PLY PLY AND #$000F STA L055423 LDA $15 CMP L055423 BNE L14115D BRL L1412E6 L14115D PEA ^L05312F PEA L05312F JSL L151131 JSL L1510A1 PEA $0002 PEA $0001 JSL L151083 PEA ^L054F6B PEA L054F6B JSL L082570 PEA ^L054F6B PEA L054F6B JSL L151198 PEA ^L052D38 PEA L052D38 TDC CLC ADC #$0005 PEA $0000 PHA JSL L0808E0 TDC CLC ADC #$0005 PEA $0000 PHA JSL L151418 JSL L1510A1 PEA ^L05312F PEA L05312F JSL L151131 TDC CLC ADC #$000D PEA $0000 PHA LDAL L05314D TAX LDAL L05314B STA $17 STX $19 LDY #$0002 LDA [$17],Y TAX LDA [$17] CLC ADC #$0002 BCC L1411DC INX L1411DC PHX PHA PEA $0008 JSL L0313BE LDAL L05314D TAX LDAL L05314B STA $17 STX $19 LDY #$0002 LDA [$17],Y TAX LDA [$17] CLC ADC #$0002 BCC L141201 INX L141201 PHX PHA TDC CLC ADC #$0005 PEA $0000 PHA PEA $0008 JSL L0313BE LDA L05501F LDX L055021 CMP L0551F5 BNE L141221 CPX L0551F7 L141221 BNE L141299 LDAL L052D34 PHA PEA $0004 PEA $0000 JSL L084F9B LDA L055153 BNE L141297 LDA L0550FD LDX L0550FF PHX PHA PEA ^L053127 PEA L053127 JSL L084FD4 LDAL L05314D TAX LDAL L05314B STA $17 STX $19 LDY #$0002 LDA [$17],Y TAX LDA [$17] CLC ADC #$0002 BCC L141265 INX L141265 STA $01 STX $03 LDY #$0002 LDA #$FFF8 AND [$01],Y LDY #$0002 STA [$01],Y LDY #$0006 LDA #$0007 CLC ADC [$01],Y AND #$FFF8 LDY #$0006 STA [$01],Y PEA $0000 PEA $0002 PEA $0000 PEA $0000 JSL L081517 L141297 BRA L1412AB L141299 LDAL L052D34 PHA PEA $0004 PEA $0000 PEA $0000 JSL L081517 L1412AB TDC CLC ADC #$0005 PEA $0000 PHA JSL L087BAE LDAL L05314D TAX LDAL L05314B STA $17 STX $19 LDY #$0002 LDA [$17],Y TAX LDA [$17] CLC ADC #$0002 BCC L1412D4 INX L1412D4 PHX PHA TDC CLC ADC #$000D PEA $0000 PHA PEA $0008 JSL L0313BE L1412E6 TSC CLC ADC #$001A TCS PLD RTL L1412EE ENT PHD TSC CLC ADC #$FFFC TCS TCD LDX #$0000 LDAL L05328D CMP $0C BEQ L141302 INX L141302 PHX LDA L055129 LDX L05512B CMP $0E BNE L14130F CPX $10 L14130F BNE L141316 LDA #$0000 BRA L141319 L141316 LDA #$0001 L141319 ORA $01,S PLX PHA LDA L055125 LDX L055127 CMP L055027 BNE L14132B CPX L055029 L14132B BNE L141332 LDA #$0000 BRA L141335 L141332 LDA #$0001 L141335 ORA $01,S PLX LSR BCC L14135B PEA $0001 JSL L09091E LDA L055121 ORA L055123 BEQ L141351 PEA $0000 JSL L09091E L141351 PEI $10 PEI $0E PEI $0C JSL L140000 L14135B LDA L055121 ORA L055123 BEQ L141366 LDA #$0001 L141366 AND $0A BEQ L14137C LDA L055121 LDX L055123 PHX PHA JSL L096D12 LDA #$0001 STA L05511F L14137C LDA $08 STA $10 LDA $07 STA $0F LDA $05 TCD TSC CLC ADC #$000E TCS RTL L14138E ENT PHD TSC CLC ADC #$FF80 TCS TCD LDX #$0000 LDA L0550BB DEC BEQ L1413A0 INX L1413A0 TXA STA $69 PHY JSL L099DCE PLA STA $61 L1413AB LDA $61 STA $5F LDA #$0001 STA $6B LDX #$0000 LDA L0550BB DEC BNE L1413BE INX L1413BE TXA AND $61 BEQ L1413C5 STZ $6B L1413C5 LDA #$0003 CMP L0550BB BNE L1413D9 LDA $61 BEQ L1413D4 BRL L1415A2 L1413D4 LDA #$0002 STA $6B L1413D9 PEA $0001 JSL L09091E PEA ^L0532BD PEA L0532BD JSL L085216 PEA ^L05312F PEA L05312F JSL L151131 PHY PHY LDA L05501F LDX L055021 PHX PHA JSL L07721A PLA STA $75 PLX STX $77 LDA $75 ORA $77 BNE L141411 BRL L14149A L141411 PHY PHY LDA L055027 LDX L055029 PHX PHA JSL L0772AE PLA STA $79 PLX STX $7B LDA $79 ORA $7B BEQ L14148B PEI $7B PEI $79 PEI $77 PEI $75 PEI $69 PEI $6B TDC CLC ADC #$006D PEA $0000 PHA JSL L083245 LDA L0550FD LDX L0550FF PHX PHA TDC CLC ADC #$006D PEA $0000 PHA JSL L083985 PEA ^L05312F PEA L05312F JSL L151131 PEI $7B PEI $79 PEI $77 PEI $75 PEI $69 PEI $6B TDC CLC ADC #$006D PEA $0000 PHA JSL L083245 LDA L055027 LDX L055029 PHX PHA PEA $0000 JSL L074A90 L14148B LDA L05501F LDX L055021 PHX PHA PEA $0000 JSL L074A24 L14149A PHY JSL L099DCE PLA STA $61 PHY JSL L09771E PHY JSL L090A90 PLA STA $7D PLA AND $7D STA $5D PHY PEA $000A TDC CLC ADC #$002B PEA $0000 PHA JSL L096BB1 PLA STA $67 LDA L0551FB SEC SBC #$0005 BVS L1414D4 EOR #$8000 L1414D4 BPL L1414DB LDA #$0000 BRA L1414DE L1414DB LDA #$0001 L1414DE AND $67 BEQ L1414E8 JSL L072314 STZ $67 L1414E8 LDX #$0000 LDA $5F CMP $61 BEQ L1414F2 INX L1414F2 TXA ORA $67 PHA LDA $5D EOR #$0001 ORA $01,S PLX LSR BCC L14149A LDA L0550FD LDX L0550FF PHX PHA TDC CLC ADC #$006D PEA $0000 PHA JSL L083985 LDX #$0000 LDA $5F CMP $61 BEQ L141520 INX L141520 TXA AND $5D BEQ L141528 BRL L1413AB L141528 LDA $67 BEQ L1415A2 JSL L0A3283 LDA $2B DEC BNE L141588 LDA L0550ED LDX L0550EF PHX PHA JSL L151131 TDC CLC ADC #$0035 PEA $0000 PHA JSL L150BE8 PHY PEI $37 PEI $35 PEI $6B TDC CLC ADC #$0063 PEA $0000 PHA TDC CLC ADC #$0001 PEA $0000 PHA JSL L0A2034 PLA LSR BCC L141586 PEI $65 PEI $63 TDC CLC ADC #$0001 PEA $0000 PHA JSL L0B838F LDA #$0001 STA L055249 L141586 BRA L1415A2 L141588 LDA #$0003 CMP $2B BNE L1415A2 PHY LDA $2D AND #$00FF PHA JSL L09AB66 PLA LSR BCS L1415A2 JSL L072314 L1415A2 TSC CLC ADC #$0080 TCS PLD RTL L1415AA ENT PHD TSC CLC ADC #$FFF8 TCS TCD LDA L0550BB CMP $0E BEQ L1415C3 PEA ^L053259 PEA L053259 JSL L086C8B L1415C3 LDA L05514B STA $03 LDA L05514D STA $01 LDX #$0000 LDA #$0003 CMP $0E BNE L1415D8 INX L1415D8 PHX LDA L0551FB SEC SBC #$0003 BEQ L1415E9 BVS L1415E7 EOR #$8000 L1415E7 BMI L1415EE L1415E9 LDA #$0000 BRA L1415F1 L1415EE LDA #$0001 L1415F1 AND $01,S PLX STA L05514B LDX #$0000 LDA $0E DEC DEC BNE L141601 INX L141601 PHX LDA L0551FB SEC SBC #$0003 BEQ L141612 BVS L141610 EOR #$8000 L141610 BMI L141617 L141612 LDA #$0000 BRA L14161A L141617 LDA #$0001 L14161A AND $01,S PLX STA L05514D PEI $0E JSL L099B9B LDX #$0000 LDA $01 CMP L05514D BEQ L141631 INX L141631 PHX LDX #$0000 LDA $03 CMP L05514B BEQ L14163D INX L14163D TXA ORA $01,S PLX LSR BCC L141648 JSL L0875FA L141648 LDA $0C STA $0E LDA $0B STA $0D LDA $09 TCD TSC CLC ADC #$000C TCS RTL L14165A ENT PHD TSC CLC ADC #$FFE0 TCS TCD PHY LDA L055129 LDX L05512B PHX PHA PEA ^L05328B PEA L05328B JSL L07D585 PLA LSR BCS L141683 PEA $000E JSL L0727E0 BRL L141735 L141683 LDAL L0532A5 STA $11 LDAL L0532A9 SEP #$20 STA $13 REP #$20 LDAL L0532A7 SEP #$20 STA $14 REP #$20 PEA $0062 TDC CLC ADC #$0011 PEA $0000 PHA LDA L055121 LDX L055123 PHX PHA JSL L151077 PEA $0003 TDC CLC ADC #$0005 PEA $0000 PHA LDA L055121 LDX L055123 PHX PHA JSL L15011A LDAL L05565D BNE L141731 LDY #$0002 LDA [$05],Y TAX LDA [$05] STA $01 STX $03 LDAL L0532A3 LDY #$0006 STA [$01],Y PEI $13 PEI $11 PEA $0000 JSL L151663 TDC CLC ADC #$0009 PEA $0000 PHA JSL L150178 LDA $0B CLC ADC $09 CLC ADC $0F STA $1D LDAL L0532AB SEC SBC $1D LDY #$0008 STA [$01],Y PEA $0001 PEI $07 PEI $05 LDA L055121 LDX L055123 PHX PHA JSL L150114 PEI $07 PEI $05 JSL L07185A L141731 JSL L0879C5 L141735 PEA ^L053291 PEA L053291 JSL L086CDB JSL L0875FA TSC CLC ADC #$0020 TCS PLD RTL L14174B ENT PHD TSC CLC ADC #$FFFC TCS TCD PEA ^L052D38 PEA L052D38 PEA ^L0532BD PEA L0532BD JSL L081E14 JSL L0875FA PLY PLY PLD RTL