* * HypercardGS * segment: $18 HyperEdit * * (k) 2015, Brutal Deluxe Software * mx %00 rel dsk HyperEdit.l lst off *--------------------------------------- use HyperEdit.E use HyperEdit.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 *--------------------------------------- L180000 ENT PHD TSC CLC ADC #$FFF2 TCS TCD PHY PHY LDA L05501F LDX L055021 PHX PHA JSL L079836 PLA STA $07 PLX STX $09 LDA $07 ORA $09 BNE L18002B PEA $000F JSL L0727E0 BRA L18006A L18002B PHY PHY PHY PHY JSL L07B114 PEI $09 PEI $07 JSL L079A19 PLA STA $03 PLX STX $05 LDA $03 ORA $05 BNE L180050 PEA $0001 JSL L0727E0 BRA L180061 L180050 PEI $05 PEI $03 PEA $0000 PEA $0000 PEA $0002 JSL L0968AD L180061 LDA L055153 BNE L18006A JSL L140E96 L18006A TSC CLC ADC #$000E TCS PLD RTL L180072 ENT PHD TSC CLC ADC #$FDE0 TCS ADC #$012D TCD JSL L0A3283 LDA #$0003 STA $D5 LDA $FA DEC BNE L180094 LDA #$0002 STA $D5 JSL L0A20CA L180094 LDA $D5 CMP L0550BB BEQ L1800A9 PEA $02BC LDA #$02BC CLC ADC $D5 PHA JSL L09971B L1800A9 LDA L055153 BEQ L1800BC LDA L05501F LDX L055021 STA L0551F5 STX L0551F7 BRA L1800C8 L1800BC LDA L055027 LDX L055029 STA L0551F5 STX L0551F7 L1800C8 LDA L055051 AND L055245 BEQ L1800DD STZ L0551F5 STZ L0551F7 JSL L0903A6 BRL L180403 L1800DD PHY LDA L0551F5 LDX L0551F7 PHX PHA PEI $FA PEA ^L052D32 PEA L052D32 JSL L079CC4 PLA LSR BCS L180106 STZ L0551F5 STZ L0551F7 PEA $000E JSL L0727E0 BRL L180403 L180106 PEA ^L05312F PEA L05312F JSL L151131 LDA $F8 BNE L180117 BRL L1802AD L180117 STZ $D7 LDX #$0000 LDA $FA DEC BNE L180122 INX L180122 PHX LDA L055231 EOR #$0001 AND $01,S PLX LSR BCC L180158 LDAL L052D40 AND #$000F STA $D9 LDX #$0000 LDA #$0003 CMP $D9 BNE L180143 INX L180143 PHX LDX #$0000 LDAL L052D42 ORAL L052D44 BNE L180152 INX L180152 TXA AND $01,S PLX STA $D7 L180158 LDAL L052D6E STA $E3 PHY LDAL L052D70 PHA PLA CMP #$8000 ROR STA $01,S PLA STA $E5 LDA #$03E8 STA $ED L180173 PHY JSL L099DCE PLA LSR BCC L180182 LDA #$0001 STA L05522F L180182 LDA L0550ED LDX L0550EF PHX PHA JSL L151131 TDC CLC ADC #$00E7 PEA $0000 PHA JSL L093E80 PHY PEI $E9 PLA CMP #$8000 ROR STA $01,S PLA STA $E9 PEA ^L05312F PEA L05312F JSL L151131 PHY TDC CLC ADC #$00E7 PEA $0000 PHA TDC CLC ADC #$00EB PEA $0000 PHA JSL L150B2E PLA LSR BCC L1801D0 BRL L18029C L1801D0 PEA ^L052D38 PEA L052D38 PEA ^L0532BD PEA L0532BD JSL L081E14 PEI $E9 PEI $E7 PEI $E5 PEI $E3 PEA ^L052D38 PEA L052D38 JSL L071937 LDAL L052D3E INC STAL L052D3E LDAL L052D3C INC STAL L052D3C LDAL L052D3E SEC SBCL L052D3A SEC SBC #$000F BVS L180216 EOR #$8000 L180216 BPL L18021D LDA #$0000 BRA L180220 L18021D LDA #$0001 L180220 PHA LDAL L052D3C SEC SBCL L052D38 SEC SBC #$0008 BVS L180233 EOR #$8000 L180233 BPL L18023A LDA #$0000 BRA L18023D L18023A LDA #$0001 L18023D ORA $01,S PLX LSR BCC L18024F PEA ^L052D38 PEA L052D38 JSL L08273B BRA L180262 L18024F LDA $D7 AND L05522F BEQ L180262 LDA #$0016 CLC ADCL L052D38 STAL L052D3C L180262 PEA ^L052D38 PEA L052D38 PEA ^L0532BD PEA L0532BD JSL L081E14 PHY LDA L0551F5 LDX L0551F7 PHX PHA PEA ^L052D32 PEA L052D32 JSL L07D585 PLA LSR BCS L180290 PEA $000E JSL L0727E0 L180290 JSL L085DC0 LDA $E7 LDX $E9 STA $EB STX $ED L18029C PHY JSL L096CC4 PLA EOR #$0001 BNE L1802AA BRL L180173 L1802AA BRL L180371 L1802AD LDA $FA DEC BNE L18031D PEA $0000 TDC CLC ADC #$FFD3 PHA PEA $0000 TDC CLC ADC #$FED3 PHA PEA $0003 JSL L073002 PEA $0100 JSL L0313BE LDA #$0089 STAL L052D3A LDA #$00B7 STAL L052D3E LDA #$005A STAL L052D38 LDA #$0068 STAL L052D3C LDA #$A002 STAL L052D40 PHY LDA L0551F5 LDX L0551F7 PHX PHA LDAL L052D34 PHA PEA $0000 TDC CLC ADC #$FFD3 PHA JSL L07D64A PLA LSR BCS L18031B PEA $000E JSL L0727E0 L18031B BRA L18033F L18031D LDA $FA DEC DEC BNE L18033F LDA #$006E STAL L052D3A LDA #$00D2 STAL L052D3E LDA #$003C STAL L052D38 LDA #$0091 STAL L052D3C L18033F PHY LDA L0551F5 LDX L0551F7 PHX PHA PEA ^L052D32 PEA L052D32 JSL L07D585 PLA LSR BCS L18035D PEA $000E JSL L0727E0 L18035D PEA ^L052D38 PEA L052D38 PEA ^L0532BD PEA L0532BD JSL L081E14 JSL L085DC0 L180371 PHY PEA ^L052D38 PEA L052D38 JSL L081A64 PLA LSR BCC L1803C9 PHY LDA L0551F5 LDX L0551F7 PHX PHA LDAL L052D34 PHA JSL L07A2F0 PLA LSR BCC L1803C7 PEA ^L052D38 PEA L052D38 TDC CLC ADC #$00DB PEA $0000 PHA JSL L0808E0 TDC CLC ADC #$00DB PEA $0000 PHA JSL L085216 TDC CLC ADC #$00DB PEA $0000 PHA JSL L087BAE JSL L0A3283 L1803C7 BRA L1803FD L1803C9 LDA $FA DEC BNE L1803D5 LDA #$000C STA $D3 BRA L1803DA L1803D5 LDA #$000D STA $D3 L1803DA PEI $D3 LDA L0551F5 LDX L0551F7 PHX PHA LDAL L052D34 PHA LDA L055027 LDX L055029 PHX PHA LDA L05501F LDX L055021 PHX PHA JSL L0998E6 L1803FD LDA #$0001 STA L055133 L180403 LDA $F6 STA $FA LDA $F5 STA $F9 LDA $F3 TCD TSC CLC ADC #$0226 TCS RTL L180415 ENT PHD TSC CLC ADC #$FF88 TCS TCD LDA L055229 SEC SBC #$0001 BEQ L18042D BVS L18042B EOR #$8000 L18042B BMI L180432 L18042D LDA #$0000 BRA L180435 L180432 LDA #$0001 L180435 PHA LDAL L052D34 BEQ L18043F LDA #$0001 L18043F AND $01,S PLX LSR BCC L18045D LDA $7E DEC BNE L180453 PEA $0002 JSL L0A3F63 BRA L18045A L180453 PEA $0004 JSL L0A3F63 L18045A BRL L1809B4 L18045D PEA ^L052D38 PEA L052D38 JSL L086CDB LDA $7E DEC BNE L180470 JSL L0A20CA L180470 JSL L0A3283 PHY LDAL L052D70 PHA LDAL L052D6E PHA PEI $7E PEA ^L0551F5 PEA L0551F5 PEA ^L052D32 PEA L052D32 JSL L0A2034 PLA LSR BCS L180498 BRL L1809B4 L180498 LDA L055051 AND L055245 BEQ L1804F3 LDA L0551F5 LDX L0551F7 PHX PHA LDAL L052D34 PHA JSL L099243 TDC CLC ADC #$006D PEA $0000 PHA JSL L096A7B L1804BE PHY JSL L096CC4 PLA LSR BCC L1804F0 TDC CLC ADC #$0071 PEA $0000 PHA JSL L096A7B PHY PEI $73 PEI $71 PEI $6F PEI $6D PEA $0002 JSL L071984 PLA LSR BCS L1804EE JSL L0903A6 BRA L1804F0 L1804EE BRA L1804BE L1804F0 BRL L1809B4 L1804F3 LDA L055231 BEQ L180574 PHY LDA L0551F5 LDX L0551F7 PHX PHA PEI $7E TDC CLC ADC #$0001 PEA $0000 PHA JSL L079CC4 PLA LSR BCC L180574 PHY PHY LDA L0551F5 LDX L0551F7 PHX PHA LDAL L052D34 PHA JSL L07B168 PLA STA $35 PLX STX $37 LDA $35 ORA $37 BEQ L180574 LDY #$0002 LDA [$35],Y TAX LDA [$35] CLC ADC #$0002 BCC L180542 INX L180542 STA $75 STX $77 LDA $03 STA [$75] LDA $03 STAL L052D34 PHY LDA L0551F5 LDX L0551F7 PHX PHA PEI $37 PEI $35 JSL L07DD58 PLA LSR BCS L18056C PEA $000E JSL L0727E0 L18056C PEI $37 PEI $35 JSL L07185A L180574 PEA ^L050008 PEA L050008 PEA ^L052D32 PEA L052D32 PEA $002A JSL L0313BE LDA L0551F5 LDX L0551F7 STA L055427 STX L055429 LDAL L052D40 AND #$000F STA $2D LDA #$000F STA $55 LDA #$0008 STA $53 LDA #$0007 CMP $2D BNE L1805B9 LDA #$001E STA $55 LDA #$0022 STA $53 BRA L1805CB L1805B9 LDA $2D SEC SBC #$0005 BVS L1805C4 EOR #$8000 L1805C4 BPL L1805CB LDA #$0009 STA $53 L1805CB LDAL L052D70 TAX LDAL L052D6E STA $71 STX $73 PHY PEI $73 PLA CMP #$8000 ROR STA $01,S PLA STA $73 LDA $71 LDX $73 STA $6D STX $6F LDAL L052D70 PHA LDAL L052D6E PHA JSL L094E90 LDA #$0001 STA $39 LDAL L052D3E SEC SBCL L052D3A STA $59 LDAL L052D3C SEC SBCL L052D38 STA $5B PHY PEA $0004 PEI $59 PEA $0004 JSL L1500F5 PLX PLX PHA JSL L072FA6 PLA STA $57 LDAL L052D3E SEC SBC $57 STA $75 LDA $73 SEC SBC $75 BVS L180640 EOR #$8000 L180640 BPL L18065F LDA #L052D3E LDX #^L052D3E STA $3B STX $3D LDA $55 SEC SBC $59 STA $47 LDA #$0140 SEC SBCL L052D3E STA $49 BRA L180695 L18065F LDA $57 CLC ADCL L052D3A STA $75 LDA $73 SEC SBC $75 BEQ L180676 BVS L180674 EOR #$8000 L180674 BMI L180693 L180676 LDA #L052D3A LDX #^L052D3A STA $3B STX $3D LDAL L052D3A EOR #$FFFF INC STA $47 LDA $59 SEC SBC $55 STA $49 BRA L180695 L180693 STZ $39 L180695 PHY PEA $0004 PEI $5B PEA $0004 JSL L1500F5 PLX PLX PHA JSL L072FA6 PLA STA $57 LDAL L052D3C SEC SBC $57 STA $75 LDA $71 SEC SBC $75 BVS L1806BF EOR #$8000 L1806BF BPL L1806DE LDA #L052D3C LDX #^L052D3C STA $3F STX $41 LDA $53 SEC SBC $5B STA $43 LDA #$00C8 SEC SBCL L052D3C STA $45 BRA L180714 L1806DE LDA $57 CLC ADCL L052D38 STA $75 LDA $71 SEC SBC $75 BEQ L1806F5 BVS L1806F3 EOR #$8000 L1806F3 BMI L180712 L1806F5 LDA #L052D38 LDX #^L052D38 STA $3F STX $41 LDAL L052D38 EOR #$FFFF INC STA $43 LDA $5B SEC SBC $53 STA $45 BRA L180714 L180712 STZ $39 L180714 LDA L055231 BEQ L18071B STZ $39 L18071B LDA $39 BNE L180747 LDAL L052D3A EOR #$FFFF INC STA $47 LDAL L052D38 EOR #$FFFF INC STA $43 LDA #$0140 SEC SBCL L052D3E STA $49 LDA #$00C8 SEC SBCL L052D3C STA $45 L180747 TDC CLC ADC #$0065 PEA $0000 PHA PEA ^L052D38 PEA L052D38 PEA $0008 JSL L0313BE TDC CLC ADC #$0065 PEA $0000 PHA PEA ^L0532BD PEA L0532BD JSL L081E14 PEA ^L05312F PEA L05312F JSL L151131 STZ $4B STZ $4D LDA #$0001 STA $33 LDA #$0001 STA $2F L180788 PHY JSL L096CC4 PLA LSR BCS L180794 BRL L180916 L180794 LDA L0550ED LDX L0550EF PHX PHA JSL L151131 TDC CLC ADC #$0071 PEA $0000 PHA JSL L096A7B PHY PEI $73 PLA CMP #$8000 ROR STA $01,S PLA STA $73 LDA $2F BEQ L180809 PHY PEI $73 PEI $71 PEI $6F PEI $6D PEA $0002 JSL L071984 PLA LSR BCC L180809 LDA L054FB7 LDX L054FB9 STA $75 STX $77 LDY #$0002 LDA [$75],Y TAX LDA [$75] PHX PHA LDAL L052D6C TAX LDAL L052D6A CLC ADC #$0014 BCC L1807F6 INX L1807F6 JSL L033477 BVS L1807FF EOR #$8000 L1807FF BMI L180809 LDA $6D LDX $6F STA $71 STX $73 L180809 PHY JSL L099DCE PLA LSR BCC L180818 LDA #$0001 STA L05522F L180818 LDA $73 ASL STA $73 TDC CLC ADC #$0071 PEA $0000 PHA JSL L09457C PHY PEI $73 PLA CMP #$8000 ROR STA $01,S PLA STA $73 PEA ^L05312F PEA L05312F JSL L151131 PHY LDA $73 SEC SBC $6F PHA PEI $47 PEI $49 JSL L071A1B PLA STA $4F PHY LDA $71 SEC SBC $6D PHA PEI $43 PEI $45 JSL L071A1B PLA STA $51 LDX #$0000 LDA $4B CMP $4F BEQ L18086F INX L18086F PHX LDX #$0000 LDA $4D CMP $51 BEQ L18087A INX L18087A TXA ORA $01,S PLX STA $31 * LDA $31 ORA $33 BNE L180889 BRL L180913 L180889 PEA ^L052D38 PEA L052D38 PEA ^L0532BD PEA L0532BD JSL L081E14 PEA ^L052D38 PEA L052D38 TDC CLC ADC #$0065 PEA $0000 PHA PEA $0008 JSL L0313BE LDA $39 BEQ L1808C3 LDA $4F CLC ADC [$3B] STA [$3B] LDA $51 CLC ADC [$3F] STA [$3F] BRA L1808D1 L1808C3 PEA ^L052D38 PEA L052D38 PEI $4F PEI $51 JSL L1501AF L1808D1 PEA ^L052D38 PEA L052D38 PEA ^L0532BD PEA L0532BD JSL L081E14 PHY LDA L0551F5 LDX L0551F7 PHX PHA PEA ^L052D32 PEA L052D32 JSL L07D585 PLA LSR BCS L1808FF PEA $000E JSL L0727E0 L1808FF JSL L085DC0 LDA $4F STA $4B LDA $51 STA $4D LDA $31 BEQ L180911 STZ $2F L180911 STZ $33 L180913 BRL L180788 L180916 PEA ^L052D38 PEA L052D38 PEA ^L0532BD PEA L0532BD JSL L081E14 JSL L085DC0 LDA L055231 BEQ L1809AE LDA $2F BEQ L18097C PHY LDA L0551F5 LDX L0551F7 PHX PHA LDAL L052D34 PHA JSL L07A2F0 PLA LSR BCC L18097A PEA ^L052D38 PEA L052D38 TDC CLC ADC #$005D PEA $0000 PHA JSL L0808E0 TDC CLC ADC #$005D PEA $0000 PHA JSL L085216 TDC CLC ADC #$005D PEA $0000 PHA JSL L087BAE JSL L0A3283 L18097A BRA L1809AE L18097C LDA #$000D STA $2B LDA $7E DEC BNE L18098B LDA #$000C STA $2B L18098B PEI $2B LDA L0551F5 LDX L0551F7 PHX PHA LDAL L052D34 PHA LDA L055027 LDX L055029 PHX PHA LDA L05501F LDX L055021 PHX PHA JSL L0998E6 L1809AE LDA #$0001 STA L055133 L1809B4 LDA $7C STA $7E LDA $7B STA $7D LDA $79 TCD TSC CLC ADC #$007C TCS RTL L1809C6 ENT PHD TSC CLC ADC #$FA4E TCS ADC #$04BB TCD STZ $E9 STZ $EB STZ $E5 STZ $E7 STZ $CF STZ $D1 LDA L05542B LDX L05542D PHX PHA JSL L1511C8 PHY TDC CLC ADC #$00EF PEA $0000 PHA LDAL L052D70 PHA LDAL L052D6E PHA LDA L05542B LDX L05542D PHX PHA JSL L150482 PLA BNE L180A0F BRL L180F7A L180A0F PHY LDAL L052D70 PHA LDAL L052D6E PHA PEA $0000 PEA $0000 PEI $F1 PEI $EF JSL L150B0A PLA BNE L180A2E BRL L180F7A L180A2E PHY PHY PEI $F1 PEI $EF JSL L150132 PLA PLX STA $ED LDX #$0000 LDAL L050038 BNE L180A46 INX L180A46 PHX LDX #$0000 LDA #$0004 CMP $ED BNE L180A52 INX L180A52 TXA ORA $01,S PLX LSR BCC L180A5C BRL L180F5E L180A5C LDA L05542B LDX L05542D PHX PHA JSL L072634 STZ L05542B STZ L05542D JSL L09AFB1 PHY PHY LDA L05503F LDX L055041 PHX PHA JSL L070525 PLA STA $E9 PLX STX $EB PHY PHY LDA L055043 LDX L055045 PHX PHA JSL L070525 PLA STA $E5 PLX STX $E7 LDA L055027 LDX L055029 STA $E1 STX $E3 LDA L055039 LDX L05503B STA $DD STX $DF STZ $D7 LDA $DD LDX $DF CMP L05542F BNE L180ABC CPX L055431 L180ABC BNE L180AC3 LDA #$0000 BRA L180AC6 L180AC3 LDA #$0001 L180AC6 STA $D5 LDA $D5 BNE L180ACF BRL L180B58 L180ACF LDA #$0001 STA $45 LDA L055433 LDX L055435 STA $47 STX $49 LDA #$0006 STA $71 LDA L05542F LDX L055431 STA $9D STX $9F PHY TDC CLC ADC #$0045 PEA $0000 PHA PEA $0000 JSL L095416 PLA STA $D3 LDA #$0001 STA $45 LDA $E1 LDX $E3 STA $47 STX $49 LDA #$0006 STA $71 PHY PHY PEI $E7 PEI $E5 JSL L078841 PLA STA $9D PLX STX $9F LDA #$0001 STA L055255 PHY TDC CLC ADC #$0045 PEA $0000 PHA PEA $0000 JSL L095416 PLA STA $D3 STZ L055255 LDA $DD LDX $DF CMP L055039 BNE L180B4C CPX L05503B L180B4C BNE L180B53 LDA #$0000 BRA L180B56 L180B53 LDA #$0001 L180B56 STA $D7 L180B58 PHY PHY LDA L05542F LDX L055431 PHX PHA JSL L07899F PLA STA $D9 PLX STX $DB LDA L055433 LDX L055435 PHX PHA PEI $DB PEI $D9 PEA $0000 JSL L0968AD PEI $DB PEI $D9 JSL L07185A PEA $0002 JSL L090635 PEA ^L052D32 PEA L052D32 PEA ^L050036 PEA L050036 PEA $002A JSL L0313BE LDA L055437 LDX L055439 STA L0551F5 STX L0551F7 LDAL L040160 STA $B3 SEP #$20 LDA #$0D STA $B4 REP #$20 TDC CLC ADC #$00AE PEA $0000 PHA PEA ^L040162 PEA L040162 PEA $0005 JSL L0313BE SEP #$20 LDA #$0D STA $AF REP #$20 LDA $D7 BEQ L180C2D PEA $0000 TDC CLC ADC #$FF45 PHA PEA ^L040167 PEA L040167 PEA $0000 TDC CLC ADC #$FC45 PHA PEI $EB PEI $E9 JSL L072CD4 PEA $0000 TDC CLC ADC #$FB45 PHA PEI $E7 PEI $E5 JSL L072CD4 PEA ^L04016F PEA L04016F PEA $0000 TDC CLC ADC #$FD45 PHA PEA $0004 JSL L1509CE PEA $0100 JSL L0313BE BRA L180C6A L180C2D PEA $0000 TDC CLC ADC #$FF45 PHA PEA ^L040171 PEA L040171 PEA $0000 TDC CLC ADC #$FC45 PHA PEI $E7 PEI $E5 JSL L072CD4 PEA ^L040179 PEA L040179 PEA $0000 TDC CLC ADC #$FD45 PHA PEA $0003 JSL L1509CE PEA $0100 JSL L0313BE L180C6A LDA #$0003 CMP $ED BNE L180CA2 PEA $0000 TDC CLC ADC #$FE45 PHA PEA ^L04017B ; go PEA L04017B PEA $0000 TDC CLC ADC #$FF45 PHA PEA $0000 TDC CLC ADC #$FD45 PHA PEA $0002 JSL L1509CE PEA $0100 JSL L0313BE BRA L180D15 L180CA2 PEA $0000 TDC CLC ADC #$FE45 PHA PEA ^L04017F ; go card id PEA L04017F PEA $0000 TDC CLC ADC #$FD31 PHA PEI $E3 PEI $E1 JSL L0715D9 PEA $0000 TDC CLC ADC #$FE25 PHA PEA $0002 JSL L1509CE PEA $001F JSL L0313BE LDA $D5 BEQ L180D15 PEA $0000 TDC CLC ADC #$FE45 PHA PEA $0000 TDC CLC ADC #$FE45 PHA PEA ^L04018B PEA L04018B PEA $0000 TDC CLC ADC #$FF45 PHA PEA $0000 TDC CLC ADC #$FD45 PHA PEA $0003 JSL L1509CE PEA $0100 JSL L0313BE L180D15 PHY PHY LDA L055437 LDX L055439 PHX PHA LDAL L050038 PHA JSL L07AE68 PLA STA $CF PLX STX $D1 LDA $CF ORA $D1 BNE L180D37 BRL L180F5E L180D37 PHY PHY PEI $D1 PEI $CF JSL L151301 PLA PLX CLC ADC #$0100 BCC L180D4A INX L180D4A STA $CB STX $CD PHY PEI $D1 PEI $CF PEI $CD PEI $CB JSL L078A05 PLA LSR BCS L180D62 BRL L180F5E L180D62 LDY #$0002 LDA [$CF],Y TAX LDA [$CF] PEI $CD PEI $CB JSL L150F53 STA $C7 STX $C9 PHY PHY TDC CLC ADC #$00AE PEA $0000 PHA LDY #$0002 LDA [$CF],Y PHA LDA [$CF] PHA JSL L071CCD PLA STA $BF PLX STX $C1 LDA $BF ORA $C1 BEQ L180DD8 LDA $BF LDX $C1 INC BNE L180DA2 INX L180DA2 STA $BF STX $C1 LDA $BF LDX $C1 STA $B9 STX $BB TDC CLC ADC #$00B9 PEA $0000 PHA JSL L071B83 PEI $BB PEI $B9 PEI $C1 PEI $BF PEI $C9 PEI $C7 LDA $B9 LDX $BB JSL L1512A5 PHX PHA JSL L1511CE BRL L180EE5 L180DD8 PHY PHY PEA ^L040190 PEA L040190 LDY #$0002 LDA [$CF],Y PHA LDA [$CF] PHA JSL L071CCD PLA STA $BF PLX STX $C1 LDA $BF ORA $C1 BEQ L180E30 TDC CLC ADC #$00A1 PEA $0000 PHA PEA ^L04019B PEA L04019B PEA $000D JSL L0313BE SEP #$20 LDA #$0D STA $A2 REP #$20 PHY PHY TDC CLC ADC #$00A1 PEA $0000 PHA PEI $C1 PEI $BF JSL L071CCD PLA STA $BF PLX STX $C1 L180E30 LDA $BF ORA $C1 BNE L180E9D PEA $0000 TDC CLC ADC #$FE45 PHA PEA ^L0401A8 PEA L0401A8 TDC CLC ADC #$00B3 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FE45 PHA TDC CLC ADC #$00B3 PEA $0000 PHA PEA ^L0401B3 ; end mouseUp PEA L0401B3 TDC CLC ADC #$00B3 PEA $0000 PHA TDC CLC ADC #$00B3 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FD45 PHA PEA $0007 JSL L1509CE PEA $0100 JSL L0313BE LDY #$0002 LDA [$CF],Y TAX LDA [$CF] STA $BF STX $C1 BRA L180EE5 L180E9D LDX $C1 LDA $BF BNE L180EA4 DEX L180EA4 DEC STA $C3 STX $C5 LDA #$00FF AND [$C3] CMP #$000D BEQ L180EE5 PEA $0000 TDC CLC ADC #$FE45 PHA TDC CLC ADC #$00B3 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FE45 PHA PEA $0000 TDC CLC ADC #$FD45 PHA PEA $0002 JSL L1509CE PEA $0100 JSL L0313BE L180EE5 LDA #$00FF LDX #$FE45 AND $00,X STA $BD PEI $C1 PEI $BF LDA $BD JSL L150488 JSL L150F53 STA $B5 STX $B7 PEI $C1 PEI $BF PEI $B7 PEI $B5 PEI $C9 PEI $C7 LDA $B5 LDX $B7 JSL L1512A5 PHX PHA JSL L1511CE PEA $0000 TDC CLC ADC #$FE46 PHA PEI $C1 PEI $BF LDA $BD JSL L150488 PHX PHA JSL L070597 LDA L055437 LDX L055439 PHX PHA LDAL L050038 PHA JSL L0B878F PHY LDA L055437 LDX L055439 PHX PHA LDAL L050038 PHA PEI $D1 PEI $CF JSL L07D712 PLA STA $D3 L180F5E PEI $D1 PEI $CF JSL L07185A PEI $EB PEI $E9 JSL L07185A PEI $E7 PEI $E5 JSL L07185A JSL L0A20CA L180F7A TSC CLC ADC #$05B2 TCS PLD RTL L180F82 ENT PHD TSC CLC ADC #$FED2 TCS ADC #$0037 TCD LDA L05502B LDX L05502D CMP L055039 BNE L180F9B CPX L05503B L180F9B BNE L180FA7 PEA $0007 JSL L0727E0 BRL L181109 L180FA7 LDA #$4000 ANDL L053AE9 BEQ L180FB3 LDA #$0001 L180FB3 STA $E9 LDA L05504F ORA $E9 BEQ L180FC6 PEA $0008 JSL L0727E0 BRL L181109 L180FC6 PHY PHY LDA L05503F LDX L055041 PHX PHA LDA L055043 LDX L055045 PHX PHA JSL L072B9F PLA STA $E1 PLX STX $E3 PEA $0000 TDC CLC ADC #$00C9 PHA LDAL L053ACB PHA LDAL L053AC9 PHA JSL L07346C PEA $0000 TDC CLC ADC #$FFC9 PHA PEI $E3 PEI $E1 JSL L072CD4 PEA ^L04021A PEA L04021A PEA ^L04021B PEA L04021B JSL L073C22 PHY JSL L0727BF PLA STA $ED PHY PHY PEA $1770 JSL L072834 PLA STA $EF PLX STX $F1 PEI $F1 PEI $EF PEA $0003 JSL L073D2E PEI $F1 PEI $EF JSL L15102F L181044 PHY PEA $0000 JSL L0736C8 PLA STA $EB LDA #$FFFF CMP $EB BNE L181077 PEA $0001 PEI $F1 PEI $EF PEA $0001 JSL L072E7C PEA $0000 PEI $F1 PEI $EF PEA $0000 JSL L072E7C LDA #$0001 STA $EB L181077 LDX #$0000 LDA $EB DEC BNE L181080 INX L181080 PHX LDX #$0000 LDA $EB DEC DEC BNE L18108B INX L18108B TXA ORA $01,S PLX LSR BCC L181044 PEI $F1 PEI $EF JSL L072634 PEI $ED JSL L0724F7 JSL L09AFB1 LDA $EB DEC DEC BNE L181101 LDA L055039 LDX L05503B STA $E5 STX $E7 PEA $0004 JSL L098852 LDA $E5 LDX $E7 CMP L055039 BNE L1810C7 CPX L05503B L1810C7 BEQ L1810FA PEI $E7 PEI $E5 PEA $0001 JSL L0B883D LDY #$0002 LDA [$E1],Y PHA LDA [$E1] PHA JSL L075B09 LDAL L05565D BNE L1810F1 PEI $E7 PEI $E5 JSL L09538D BRA L1810F8 L1810F1 PEA $0009 JSL L0727E0 L1810F8 BRA L181101 L1810FA PEA $0009 JSL L0727E0 L181101 PEI $E3 PEI $E1 JSL L07185A L181109 TSC CLC ADC #$012E TCS PLD RTL L181111 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L05542B LDX L05542D PHX PHA JSL L1517CD PLY PLY PLD RTL L181129 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L055051 AND L055245 BEQ L18113F JSL L0903A6 BRA L181171 L18113F LDAL L052D34 BNE L18114E PEA $0029 JSL L0727E0 BRA L181171 L18114E PHY LDA L0551F5 LDX L0551F7 PHX PHA LDAL L052D34 PHA PEI $0A PEA $0000 JSL L07C09C PLA AND L05522F BEQ L18116D BRA L18114E L18116D JSL L14174B L181171 LDA $08 STA $0A LDA $07 STA $09 LDA $05 TCD PLY PLY PLY PLY RTL