* * HypercardGS * segment: $0F TalkEdit * * (k) 2015, Brutal Deluxe Software * mx %00 rel dsk TalkEdit.l lst off *--------------------------------------- use TalkEdit.E use TalkEdit.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 *--------------------------------------- L0F0000 ENT PHD TSC CLC ADC #$FE92 TCS ADC #$008B TCD PEA $0000 TDC CLC ADC #$FF7D PHA PEI $FA PEI $F8 PEA $0100 JSL L0313BE PHY JSL L073CDF PLA STA $D9 LDA L05510D BEQ L0F0037 PEA $0000 JSL L15000C JSL L15059E L0F0037 PHY JSL L095FB4 PLA LSR BCS L0F004B PEI $F6 PEI $F4 JSL L07185A BRL L0F061D L0F004B LDA L0550F3 BEQ L0F0065 PEA ^L04050F PEA L04050F JSL L07010A PEI $F6 PEI $F4 JSL L07185A BRL L0F061D L0F0065 LDA #$0001 STA L0550F1 PHY PHY JSL L150493 PLA STA $DB PLX STX $DD PHY PHY PEA $1450 JSL L072834 PLA STA $D5 PLX STX $D7 PEA $0000 TDC CLC ADC #$FF7D PHA PEA ^L040528 PEA L040528 PEA ^L040529 PEA L040529 PEA ^L04052A PEA L04052A JSL L073C22 PHY PHY PEI $D7 PEI $D5 PEA $0000 PEA $0005 JSL L151367 PLA STA $D1 PLX STX $D3 LDA $E8 BPL L0F00C1 STZ $E8 L0F00C1 PHY PHY PEI $F6 PEI $F4 LDA L0550F5 LDX L0550F7 PHX PHA PEA $0000 PEA $FFFF TDC CLC ADC #$00E8 PEA $0000 PHA JSL L0F12F1 PLA STA $AB PLX STX $AD PEI $F6 PEI $F4 JSL L07185A STZ $F4 STZ $F6 PEA $0001 LDA L0550F5 LDX L0550F7 PHX PHA PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEI $D3 PEI $D1 JSL L151645 LDA $E8 JSL L150488 PHX PHA LDA $E8 JSL L150488 PHX PHA PEI $D3 PEI $D1 JSL L150006 LDA L055051 BEQ L0F0190 LDY #$0002 LDA [$D1],Y TAX LDA [$D1] TXY LDX #$FF79 STA $00,X TYA STA $02,X LDX #$FF79 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0028 BCC L0F0154 INX L0F0154 PHX PHA PHY PHY LDX #$FF79 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0028 BCC L0F0168 INX L0F0168 STA $DF STX $E1 LDY #$0002 LDA [$DF],Y TAX LDA [$DF] PHX PHA PEA $0400 PEA $0000 JSL L150241 PLA PLY PLX STX $DF PLX STX $E1 STA [$DF] TYA LDY #$0002 STA [$DF],Y L0F0190 JSL L151484 PEI $D7 PEI $D5 JSL L15102F PEI $D7 PEI $D5 JSL L151131 PEA $0004 JSL L0724F7 L0F01AB PHY PEA $0001 JSL L0736C8 PLA STA $CF LDAL L0540AD STA $C5 LDA #$0800 AND $C5 BEQ L0F01C6 LDA #$0001 L0F01C6 STA $C3 LDA #$0100 AND $C5 BEQ L0F01D2 LDA #$0001 L0F01D2 STA $C1 L0F01D4 PHY JSL L09771E PHY JSL L090A90 PLA STA $DF PLA AND $DF BEQ L0F0224 PEA $0004 JSL L0724F7 STZ $CF PHY PEA $000A PEA ^L05409F PEA L05409F JSL L150070 PLA LSR BCC L0F0204 BRL L0F0309 L0F0204 LDAL L0540AD STA $C5 LDA #$0800 AND $C5 BEQ L0F0214 LDA #$0001 L0F0214 STA $C3 LDA #$0100 AND $C5 BEQ L0F0220 LDA #$0001 L0F0220 STA $C1 BRA L0F01D4 L0F0224 LDA $CF BEQ L0F022B BRL L0F02E8 L0F022B LDA #$0000 STAL L05409F PHY PEA $0001 PEI $D7 PEI $D5 PEA ^L05409F PEA L05409F JSL L150365 PLA STA $C9 PHY TDC CLC ADC #$00BB PEA $0000 PHA LDAL L0540AB PHA LDAL L0540A9 PHA PEI $D7 PEI $D5 JSL L150482 PLA STA $BF LDA $BF BEQ L0F02E1 LDY #$0002 LDA [$BB],Y TAX LDA [$BB] TXY LDX #$FF75 STA $00,X TYA STA $02,X PEA ^L0540A9 PEA L0540A9 JSL L150BE8 LDX #$FF75 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0014 BCC L0F0295 INX L0F0295 STA $DF STX $E1 LDA #$0000 LDX #$8500 CMP [$DF] BNE L0F02A9 LDY #$0002 TXA CMP [$DF],Y L0F02A9 BEQ L0F02B0 LDA #$0000 BRA L0F02B3 L0F02B0 LDA #$0001 L0F02B3 PHA PHY PEA ^L0540A9 PEA L0540A9 LDY #$0002 LDA [$BB],Y TAX LDA [$BB] CLC ADC #$0040 BCC L0F02CA INX L0F02CA PHX PHA JSL L1512CB PLA STA $DF PLA AND $DF BEQ L0F02E1 PEA $0008 JSL L0724F7 BRA L0F02E8 L0F02E1 PEA $0004 JSL L0724F7 L0F02E8 LDA #$FFFD CMP $CF BEQ L0F02F2 BRL L0F04D1 L0F02F2 LDA #$00FF ANDL L0540A1 STA $C7 LDA #$000D CMP $C7 BNE L0F0373 LDA #$2000 AND $C5 BEQ L0F0328 L0F0309 PEA $0001 PEI $D7 PEI $D5 PEA $0001 JSL L072E7C PEA $0000 PEI $D7 PEI $D5 PEA $0001 JSL L072E7C BRL L0F04D9 L0F0328 LDA L055051 BEQ L0F0330 BRL L0F05EF L0F0330 LDA $C3 BEQ L0F0356 LDA #$0003 STA $7D LDA #$00C2 LDX #$0000 STA $7F STX $81 STZ $8B TDC CLC ADC #$007D PEA $0000 PHA PEI $D3 PEI $D1 JSL L151299 L0F0356 PEA ^L05409F PEA L05409F PEI $D3 PEI $D1 JSL L151299 PEI $D7 PEI $D5 PEI $D3 PEI $D1 JSL L0F1566 BRL L0F04D1 L0F0373 LDA #$0009 CMP $C7 BNE L0F03B3 PEI $D7 PEI $D5 PEI $D3 PEI $D1 JSL L0F1566 TDC CLC ADC #$00B3 PEA $0000 PHA TDC CLC ADC #$00AF PEA $0000 PHA PEI $D3 PEI $D1 JSL L150000 PEI $B5 PEI $B3 PEI $B1 PEI $AF PEI $D3 PEI $D1 JSL L150006 BRL L0F04D1 L0F03B3 LDA $C1 BNE L0F03BA BRL L0F048C L0F03BA LDA $C3 BEQ L0F03DE STZ $B9 L0F03C0 LDX $B9 LDA #$00FF ANDL L041573,X CMP $C7 BNE L0F03D0 BRL L0F0309 L0F03D0 LDA #$000B CMP $B9 BEQ L0F03DB INC $B9 BRA L0F03C0 L0F03DB BRL L0F048A L0F03DE PHY PEI $C7 JSL L071498 PLA SEC SBC #$0061 BMI L0F0468 CMP #$0018 BPL L0F0468 SEC SBC #$0000 BEQ L0F0410 DEC DEC BEQ L0F0426 SEC SBC #$0004 BEQ L0F0430 DEC BEQ L0F043A SEC SBC #$000E BEQ L0F0444 DEC DEC BEQ L0F0456 BRA L0F0468 L0F0410 PEA $0000 PEA $0000 PEA $7FFF PEA $FFFF PEI $D3 PEI $D1 JSL L150006 BRA L0F048A L0F0426 PEI $D3 PEI $D1 JSL L150FED BRA L0F048A L0F0430 PEI $D3 PEI $D1 JSL L0F0AD1 BRA L0F048A L0F043A PEI $D3 PEI $D1 JSL L0F0CFF BRA L0F048A L0F0444 LDA L055051 BEQ L0F044C BRL L0F05EF L0F044C PEI $D3 PEI $D1 JSL L150B58 BRA L0F048A L0F0456 LDA L055051 BEQ L0F045E BRL L0F05EF L0F045E PEI $D3 PEI $D1 JSL L15128D BRA L0F048A L0F0468 PHY PEA $0000 PEI $D7 PEI $D5 PEA ^L05409F PEA L05409F JSL L150365 PLA LSR BCC L0F0486 LDAL L0540C5 STA $CF BRA L0F048A L0F0486 JSL L072314 L0F048A BRA L0F04D1 L0F048C LDA #$001B CMP $C7 BNE L0F04B4 PEA $0001 PEI $D7 PEI $D5 PEA $0002 JSL L072E7C PEA $0000 PEI $D7 PEI $D5 PEA $0002 JSL L072E7C BRL L0F0604 BRA L0F04D1 L0F04B4 LDA L055051 BEQ L0F04BC BRL L0F05EF L0F04BC PHY PEA $0000 PEI $D7 PEI $D5 PEA ^L05409F PEA L05409F JSL L150365 PLA STA $C9 L0F04D1 LDA $CF DEC BEQ L0F04D9 BRL L0F05C0 L0F04D9 LDY #$0002 LDA [$D1],Y TAX LDA [$D1] CLC ADC #$0010 BCC L0F04E8 INX L0F04E8 STA $DF STX $E1 LDA #$00FF AND [$DF] AND #$0040 BEQ L0F04F9 LDA #$0001 L0F04F9 PHA LDA L055051 EOR #$0001 AND $01,S PLX LSR BCS L0F0509 BRL L0F05BE L0F0509 PHY PHY PEA $0001 LDA L0550F5 LDX L0550F7 PHX PHA PEA $0000 PEA $FFFF PEA $0000 PEA $0000 PEA $0000 PEI $D3 PEI $D1 JSL L150B22 PLA STA $CB PLX STX $CD STZ $C9 LDAL L05565D BNE L0F05B3 PEI $CD PEI $CB LDA #$1388 LDX #$0000 JSL L033477 BEQ L0F0559 BVS L0F0550 EOR #$8000 L0F0550 BPL L0F0559 PEA $0006 JSL L0724F7 L0F0559 PHY PHY LDA L0550F5 LDX L0550F7 PHX PHA JSL L0B41C8 PLA STA $CB PLX STX $CD LDA #L0550F5 LDX #^L0550F5 STA $AB STX $AD LDA $F0 ORA $F2 BNE L0F058B PHY PEI $AD PEI $AB JSL L0785BE PLA STA $C9 BRA L0F05B3 L0F058B LDA $EA BNE L0F05A1 PHY PEI $F2 PEI $F0 PEI $AD PEI $AB JSL L07D3A2 PLA STA $C9 BRA L0F05B3 L0F05A1 PHY PEI $F2 PEI $F0 PEI $EA PEI $AD PEI $AB JSL L07D712 PLA STA $C9 L0F05B3 LDA $C9 BNE L0F0604 PEA $003E JSL L0727E0 L0F05BE BRA L0F0604 L0F05C0 LDA $CF DEC DEC BEQ L0F0604 LDA #$0003 CMP $CF BNE L0F05D5 PEI $D3 PEI $D1 JSL L0F0BD7 L0F05D5 LDA #$0004 CMP $CF BNE L0F05ED PEA $0000 TDC CLC ADC #$FF7D PHA PEI $D3 PEI $D1 JSL L0F1459 L0F05ED BRA L0F0601 L0F05EF LDA L054FB3 STA $B7 LDA #$0001 STA L054FB3 JSL L0903A6 STZ L054FB3 L0F0601 BRL L0F01AB L0F0604 PEI $D7 PEI $D5 JSL L072634 PEI $DD PEI $DB JSL L151131 LDA L055145 BEQ L0F061D JSL L15147E L0F061D PEI $D9 JSL L0724F7 LDA $E6 STA $FA LDA $E5 STA $F9 LDA $E3 TCD TSC CLC ADC #$0184 TCS RTL L0F0635 ENT PHD TSC CLC ADC #$F9B8 TCS ADC #$0557 TCD STZ $FC LDA #$0003 STA L0553B3 STZ $E7 STZ $B3 STZ $B5 STZ $B7 PHY LDY #$0004 LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA JSL L0D109F PLA LSR BCS L0F0667 BRL L0F094B L0F0667 LDA [$F8] DEC BPL L0F066F BRL L0F0948 L0F066F CMP #$0004 BMI L0F0677 BRL L0F0948 L0F0677 SEC SBC #$0000 BEQ L0F0692 DEC BNE L0F0683 BRL L0F07A4 L0F0683 DEC BNE L0F0689 BRL L0F083C L0F0689 DEC BNE L0F068F BRL L0F08D3 L0F068F BRL L0F0948 L0F0692 PHY LDY #$0012 LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA LDY #$000E LDA [$F8],Y PHA TDC CLC ADC #$00B9 PEA $0000 PHA JSL L07ABAE PLA LSR BCS L0F06B8 BRL L0F0ABF L0F06B8 LDA #$0013 STA $E5 LDA #$000F AND $BD DEC DEC BNE L0F06CB LDA #$0012 STA $E5 L0F06CB LDA #$001C STA $E3 PHY PHY LDY #$0012 LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA JSL L075EA8 PLA PLX CMP #$4B42 BNE L0F06EB CPX #$4447 L0F06EB BNE L0F06F2 LDA #$001D STA $E3 L0F06F2 PEA $0000 TDC CLC ADC #$FFAD PHA PEA $0000 TDC CLC ADC #$FCA9 PHA LDY #$0012 LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA PEI $BB JSL L07ACF0 PEA $0100 JSL L0313BE PEA $0000 TDC CLC ADC #$FEAD PHA PEA $0000 TDC CLC ADC #$FCA9 PHA PEI $E3 JSL L073002 PEA $0000 TDC CLC ADC #$FBA9 PHA PEI $E5 JSL L073002 PEA $0000 TDC CLC ADC #$FB95 PHA LDA $BB JSL L150488 PHX PHA JSL L07346C PEA $0000 TDC CLC ADC #$FDAD PHA PEA $0003 JSL L1509CE PEA $0100 JSL L0313BE PHY PHY LDY #$0012 LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA LDY #$000E LDA [$F8],Y PHA JSL L07AE68 PLA STA $E9 PLX STX $EB LDY #$0012 LDA [$F8],Y TAX DEY DEY LDA [$F8],Y STA $B5 STX $B7 LDY #$000E LDA [$F8],Y STA $B3 BRL L0F094B L0F07A4 PEA $0000 TDC CLC ADC #$FFAD PHA PEA $0000 TDC CLC ADC #$FCA9 PHA LDY #$000C LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA JSL L07AA4B PEA $0100 JSL L0313BE PEA $0000 TDC CLC ADC #$FEAD PHA PEA $0000 TDC CLC ADC #$FCA9 PHA PEA $0010 JSL L073002 PEA $0000 TDC CLC ADC #$FC95 PHA LDY #$000C LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA JSL L0715D9 PEA $0000 TDC CLC ADC #$FDAD PHA PEA $0002 JSL L1509CE PEA $0100 JSL L0313BE PHY PHY LDY #$000C LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA JSL L07AACB PLA STA $E9 PLX STX $EB LDY #$000C LDA [$F8],Y TAX DEY DEY LDA [$F8],Y STA $B5 STX $B7 BRL L0F094B L0F083C PEA $0000 TDC CLC ADC #$FFAD PHA PEA $0000 TDC CLC ADC #$FCA9 PHA LDY #$0008 LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA JSL L07AA4B PEA $0100 JSL L0313BE PEA $0000 TDC CLC ADC #$FEAD PHA PEA $0000 TDC CLC ADC #$FCA9 PHA PEA $000F JSL L073002 PEA $0000 TDC CLC ADC #$FC95 PHA LDY #$0008 LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA JSL L0715D9 PEA $0000 TDC CLC ADC #$FDAD PHA PEA $0002 JSL L1509CE PEA $0100 JSL L0313BE PHY PHY LDY #$0008 LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA JSL L07AACB PLA STA $E9 PLX STX $EB LDY #$0008 LDA [$F8],Y TAX DEY DEY LDA [$F8],Y STA $B5 STX $B7 BRA L0F094B L0F08D3 LDAL L04052B LDX #$FFAD SEP #$20 STA $00,X REP #$20 PEA $0000 TDC CLC ADC #$FEAD PHA PEA $0000 TDC CLC ADC #$FCA9 PHA PEA $000E JSL L073002 PEA $0000 TDC CLC ADC #$FBA9 PHA LDA L05503F LDX L055041 PHX PHA JSL L072CD4 PEA $0000 TDC CLC ADC #$FAA9 PHA LDA L055043 LDX L055045 PHX PHA JSL L072CD4 PEA $0000 TDC CLC ADC #$FDAD PHA PEA $0003 JSL L1509CE PEA $0100 JSL L0313BE PHY PHY JSL L076220 PLA STA $E9 PLX STX $EB BRA L0F094B L0F0948 BRL L0F0ABF L0F094B LDA #$00FF LDX #$FFAD AND $00,X SEC SBC #$0000 BMI L0F0990 BEQ L0F0990 PEA $0000 TDC CLC ADC #$FFAD PHA PEA ^L04052C PEA L04052C PEA $0000 TDC CLC ADC #$FFAD PHA PEA ^L040531 PEA L040531 PEA $0000 TDC CLC ADC #$FDAD PHA PEA $0003 JSL L1509CE PEA $0100 JSL L0313BE L0F0990 PEA $0000 TDC CLC ADC #$FEAD PHA PEA $0000 TDC CLC ADC #$FCA9 PHA PEA $0011 JSL L073002 PEA $0000 TDC CLC ADC #$FEAD PHA PEA $0000 TDC CLC ADC #$FFAD PHA PEA $0000 TDC CLC ADC #$FDAD PHA PEA $0003 JSL L1509CE PEA $0100 JSL L0313BE LDA $E9 ORA $EB BNE L0F09DB BRL L0F0AAF L0F09DB LDA #$FFFF STA $B1 LDA $F6 BNE L0F09E7 BRL L0F0A89 L0F09E7 LDA #L051BE6 LDX #^L051BE6 CMP L0553B9 BNE L0F09F5 CPX L0553BB L0F09F5 BNE L0F09FA BRL L0F0A89 L0F09FA LDA L0553B9 LDX L0553BB CLC ADC #$003A BCC L0F0A07 INX L0F0A07 TXY LDX #$FDA9 STA $00,X TYA STA $02,X LDA L0553B5 LDX L0553B7 STA $AD STX $AF LDX #$FDA9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$000A BCC L0F0A2A INX L0F0A2A STA $ED STX $EF LDA [$ED] BEQ L0F0A62 LDX #$FDA9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0008 BCC L0F0A42 INX L0F0A42 PHX PHA LDX #$FDA9 LDA $02,X TAY LDA $00,X TYX CLC ADC #$000A BCC L0F0A54 INX L0F0A54 STA $ED STX $EF LDA [$ED] PLX STX $ED PLX STX $EF STA [$ED] L0F0A62 LDA L0553B9 LDX L0553BB CLC ADC #$003A BCC L0F0A6F INX L0F0A6F PHX PHA PEA $0000 JSL L0B2AF9 LDAL L051BE2 STA $B1 PEI $AF PEI $AD PEA $0000 JSL L0B2AF9 L0F0A89 PEA $0000 TDC CLC ADC #$FEAD PHA PEI $EB PEI $E9 PEI $B7 PEI $B5 LDA L055039 LDX L05503B PHX PHA PEI $B3 PEI $B1 JSL L0F0000 LDA #$0001 STA $FC L0F0AAF LDA $E7 BEQ L0F0ABB PEI $FA PEI $F8 JSL L0B1A77 L0F0ABB JSL L0B381C L0F0ABF LDA $F4 STA $FA LDA $F3 STA $F9 LDA $F1 TCD TSC CLC ADC #$0650 TCS RTL L0F0AD1 PHD TSC CLC ADC #$FFE4 TCS TCD LDA L05540F ORA L055411 BNE L0F0AE4 BRL L0F0BC5 L0F0AE4 PHY PHY PEA $0019 TDC CLC ADC #$0015 PEA $0000 PHA PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEI $24 PEI $22 JSL L150B22 PLA STA $11 PLX STX $13 LDAL L05565D BEQ L0F0B1F PEA $003D JSL L0727E0 BRL L0F0BC5 L0F0B1F TDC CLC ADC #$000D PEA $0000 PHA TDC CLC ADC #$0009 PEA $0000 PHA PEI $24 PEI $22 JSL L150000 PHY PHY LDA L05540F LDX L055411 STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] PHX PHA LDY #$0002 LDA [$15],Y TAX LDA [$15] PEI $0B PEI $09 JSL L150F53 PHX PHA JSL L071CE4 PLA STA $05 PLX STX $07 LDA $05 ORA $07 BNE L0F0B77 JSL L072314 BRA L0F0BBD L0F0B77 PEI $07 PEI $05 LDY #$0002 LDA [$15],Y TAX LDA [$15] JSL L1512A5 STA $01 STX $03 PEI $03 PEI $01 PEI $03 PEI $01 PHY PHY LDA L05540F LDX L055411 STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] PHX PHA JSL L071C98 PLA PLX JSL L150F53 PHX PHA PEI $24 PEI $22 JSL L150006 L0F0BBD PEI $17 PEI $15 JSL L07185A L0F0BC5 LDA $20 STA $24 LDA $1F STA $23 LDA $1D TCD TSC CLC ADC #$0022 TCS RTL L0F0BD7 PHD TSC CLC ADC #$FEF0 TCS ADC #$001D TCD PHY JSL L0727BF PLA STA $E9 PHY PHY JSL L150493 PLA STA $EB PLX STX $ED PHY PHY PEA $1388 JSL L072834 PLA STA $E5 PLX STX $E7 LDA L05540F ORA L055411 BEQ L0F0C30 LDA L05540F LDX L055411 STA $EF STX $F1 LDY #$0002 LDA [$EF],Y TAX LDA [$EF] PHX PHA PEA $0000 TDC CLC ADC #$FFE3 PHA JSL L071FF8 BRA L0F0C3D L0F0C30 LDAL L040533 LDX #$FFE3 SEP #$20 STA $00,X REP #$20 L0F0C3D PEI $E7 PEI $E5 PEA $0004 PEA $0000 TDC CLC ADC #$FFE3 PHA JSL L073A7B PEI $E7 PEI $E5 PEA $0004 PEA $0000 PEA $7FFF JSL L0739E4 PEI $E7 PEI $E5 JSL L15102F L0F0C6A PHY PEA $0001 JSL L0736C8 PLA STA $E3 LDX #$0000 LDA $E3 DEC BNE L0F0C7E INX L0F0C7E PHX LDX #$0000 LDA $E3 DEC DEC BNE L0F0C89 INX L0F0C89 TXA ORA $01,S PLX LSR BCC L0F0C6A PEI $E7 PEI $E5 PEA $0004 PEA $0000 TDC CLC ADC #$FFE3 PHA JSL L071169 PEI $E7 PEI $E5 JSL L072634 PEI $E9 JSL L0724F7 PEI $ED PEI $EB JSL L151131 LDA $E3 DEC DEC BNE L0F0CC2 BRA L0F0CED L0F0CC2 LDA L05540F LDX L055411 PHX PHA JSL L07185A PHY PHY PEA $0000 TDC CLC ADC #$FFE3 PHA JSL L0734F5 PLA STA L05540F PLA STA L055411 PEI $FA PEI $F8 JSL L0F0AD1 L0F0CED LDA $F6 STA $FA LDA $F5 STA $F9 LDA $F3 TCD TSC CLC ADC #$0116 TCS RTL L0F0CFF PHD TSC CLC ADC #$FFE8 TCS TCD TDC CLC ADC #$0011 PEA $0000 PHA TDC CLC ADC #$000D PEA $0000 PHA PEI $20 PEI $1E JSL L150000 LDAL L05565D BNE L0F0D75 PEI $0F PEI $0D LDA $11 LDX $13 JSL L1512A5 STA $09 STX $0B PEI $0B PEI $09 LDA #$0000 TAX JSL L033477 BEQ L0F0D47 BPL L0F0D4A L0F0D47 BRL L0F0E2B L0F0D4A PHY PHY PEA $0019 TDC CLC ADC #$0001 PEA $0000 PHA PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEI $20 PEI $1E JSL L150B22 PLA STA $05 PLX STX $07 L0F0D75 LDAL L05565D BEQ L0F0D85 PEA $003D JSL L0727E0 BRL L0F0E2B L0F0D85 LDA L05540F LDX L055411 PHX PHA JSL L07185A PHY PHY LDA $09 LDX $0B INC BNE L0F0D9B INX L0F0D9B PHX PHA LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA L05540F PLA STA L055411 LDAL L05565D BEQ L0F0DC4 STZ L05540F STZ L055411 BRA L0F0E1B L0F0DC4 LDY #$0002 LDA [$01],Y TAX LDA [$01] PEI $13 PEI $11 JSL L150F53 PHX PHA LDA L05540F LDX L055411 STA $15 STX $17 LDY #$0002 LDA [$15],Y TAX LDA [$15] PHX PHA PEI $0B PEI $09 JSL L1511CE LDA L05540F LDX L055411 STA $15 STX $17 LDY #$0002 LDA [$15],Y TAX LDA [$15] STA $15 STX $17 LDA $09 LDX $0B INC BNE L0F0E10 INX L0F0E10 DEC TAY LDA #$0000 SEP #$20 STA [$15],Y REP #$20 L0F0E1B PEI $03 PEI $01 JSL L07185A PEI $20 PEI $1E JSL L0F0AD1 L0F0E2B LDA $1C STA $20 LDA $1B STA $1F LDA $19 TCD TSC CLC ADC #$001E TCS RTL L0F0E3D PHD TSC CLC ADC #$FFEC TCS TCD LDA L0553EB BEQ L0F0E4D BRL L0F0F65 L0F0E4D LDA L055403 LDX L055405 STA $11 STX $13 LDA #$00FF AND [$11] BEQ L0F0E61 LDA #$0001 L0F0E61 EOR #$0001 BEQ L0F0EE4 LDA L055403 LDX L055405 PHX PHA LDA L0553FB LDX L0553FD STA $11 STX $13 LDY #$0002 LDA [$11],Y TAX LDA [$11] JSL L033477 BEQ L0F0E8D BVS L0F0E8B EOR #$8000 L0F0E8B BMI L0F0E92 L0F0E8D LDA #$0000 BRA L0F0E95 L0F0E92 LDA #$0001 L0F0E95 BEQ L0F0EE4 LDA L055403 LDX L055405 TAY BNE L0F0EA1 DEX L0F0EA1 DEC STA $01 STX $03 LDA #$00FF AND [$01] CMP #$000D BNE L0F0EC6 JSL L0B4194 LDA L0553F3 LDX L0553F5 STA $11 STX $13 SEP #$20 LDA #$00 STA [$11] REP #$20 L0F0EC6 LDA #$0001 STA L0553EB LDA L0553F3 LDX L0553F5 PHX PHA LDA L0553F7 LDX L0553F9 JSL L1512A5 STA L0553E9 BRL L0F0F65 L0F0EE4 LDA L055403 LDX L055405 PHX PHA LDA L0553FB LDX L0553FD STA $11 STX $13 LDY #$0002 LDA [$11],Y TAX LDA [$11] JSL L1512A5 STA $09 STX $0B PEI $0B PEI $09 LDA L0553E9 JSL L150488 JSL L033477 BVS L0F0F1A EOR #$8000 L0F0F1A BPL L0F0F65 LDA #$0001 STA L0553EB LDA L0553F3 LDX L0553F5 PHX PHA LDA L0553F7 LDX L0553F9 JSL L1512A5 STA $0D STX $0F LDA $1A BEQ L0F0F43 LDA $0D STA L0553E9 BRA L0F0F65 L0F0F43 PEI $0F PEI $0D LDA $09 LDX $0B JSL L1512A5 STA $05 STX $07 LDA L0553E9 JSL L150488 PEI $07 PEI $05 JSL L150F53 STA L0553E9 L0F0F65 LDA $18 STA $1A LDA $17 STA $19 LDA $15 TCD TSC CLC ADC #$0018 TCS RTL L0F0F77 PHD TSC CLC ADC #$FFFC TCS TCD PEA ^L055403 PEA L055403 JSL L071C12 JSL L0B4194 PEA $0001 JSL L0F0E3D PEA ^L055403 PEA L055403 PEA ^L0553F3 PEA L0553F3 JSL L0705FF PEA $0000 JSL L0F0E3D LDA L055403 LDX L055405 STA $01 STX $03 LDA #$00FF AND [$01] BEQ L0F0FDC LDA L055403 LDX L055405 INC BNE L0F0FC6 INX L0F0FC6 STA L055403 STX L055405 LDA L0553F3 LDX L0553F5 INC BNE L0F0FD6 INX L0F0FD6 STA L0553F3 STX L0553F5 L0F0FDC LDA L055403 LDX L055405 STA $01 STX $03 LDA #$00FF AND [$01] BNE L0F0FF4 PEA $0001 JSL L0F0E3D L0F0FF4 PLY PLY PLD RTL L0F0FF8 PHD TSC CLC ADC #$FFF4 TCS TCD LDA #$0001 STA $1A LDA L0553F3 LDX L0553F5 PHX PHA LDA L0553F7 LDX L0553F9 JSL L1512A5 STA $01 STX $03 LDA L0553EF LDX L0553F1 PHX PHA LDA $01 LDX $03 JSL L1512A5 PHX PHA LDA $16 LDX $18 JSL L033477 BVS L0F103A EOR #$8000 L0F103A BPL L0F103F BRL L0F111A L0F103F LDA L0553FF ORA L055401 BNE L0F104A BRL L0F1118 L0F104A LDA L055403 LDX L055405 PHX PHA LDA L0553FB LDX L0553FD STA $09 STX $0B LDY #$0002 LDA [$09],Y TAX LDA [$09] JSL L1512A5 STA $05 STX $07 LDA L0553EF LDX L0553F1 PEI $14 PEI $12 JSL L150F53 STA L0553EF STX L0553F1 PHY LDA L0553FF LDX L055401 PHX PHA LDA L0553EF LDX L0553F1 PHX PHA JSL L078A05 PLA LSR BCS L0F10CA PEA $002D JSL L0B0B7A LDA L0553FF LDX L055401 STA $09 STX $0B LDY #$0002 LDA [$09],Y TAX LDA [$09] STA $09 STX $0B SEP #$20 LDA #$00 STA [$09] REP #$20 LDA L0553E7 PHA JSL L0B2A91 STZ $1A BRA L0F111A L0F10CA LDA L0553FF LDX L055401 STA $09 STX $0B LDY #$0002 LDA [$09],Y TAX LDA [$09] STA L0553F7 STX L0553F9 LDA L0553F7 LDX L0553F9 PEI $03 PEI $01 JSL L150F53 STA L0553F3 STX L0553F5 LDA L0553FB LDX L0553FD STA $09 STX $0B LDY #$0002 LDA [$09],Y TAX LDA [$09] PEI $07 PEI $05 JSL L150F53 STA L055403 STX L055405 BRA L0F111A L0F1118 STZ $1A L0F111A LDA $10 STA $18 LDA $0F STA $17 LDA $0D TCD TSC CLC ADC #$0016 TCS RTL L0F112C PHD TSC CLC ADC #$FFF2 TCS TCD LDA #$0001 STA $14 STZ $09 L0F113B LDA L055403 LDX L055405 STA $0B STX $0D LDA #$00FF AND [$0B] BNE L0F114F BRL L0F1275 L0F114F PHY PEA $0000 PEA $0400 PEA $0000 PEA $0800 JSL L0F0FF8 PLA LSR BCS L0F1169 STZ $14 BRL L0F12E9 L0F1169 LDA L055403 LDX L055405 STA L055407 STX L055409 PEA ^L055407 PEA L055407 LDA L0553E3 LDX L0553E5 PHX PHA JSL L0B0361 PHY LDA L0553E3 LDX L0553E5 PHX PHA PEA ^L041593 PEA L041593 JSL L071C56 PLA LSR BCS L0F11AC L0F119E LDA #$0005 CMP L05536F BNE L0F11AC JSL L0E0154 BRA L0F119E L0F11AC PHY JSL L0B3EC4 PLA STA $01 JSL L0F0F77 LDA $01 EOR #$0001 ORA $09 BNE L0F11C4 BRL L0F1272 L0F11C4 STZ $09 L0F11C6 PEA ^L055407 PEA L055407 JSL L071C12 LDA L055407 LDX L055409 STA $0B STX $0D LDA #$00FF AND [$0B] CMP #$0022 BEQ L0F11E9 LDA #$0000 BRA L0F11EC L0F11E9 LDA #$0001 L0F11EC STA $07 PEA ^L055407 PEA L055407 LDA L0553E3 LDX L0553E5 PHX PHA JSL L0B0361 LDA $07 BNE L0F1227 PHY PEA ^L040534 PEA L040534 LDA L0553E3 LDX L0553E5 PHX PHA JSL L150F73 PLA BEQ L0F121F LDA #$0001 STA $09 L0F121F PHY JSL L0B3EC4 PLA STA $01 L0F1227 LDA $07 EOR #$0001 PHA LDA L0553E3 LDX L0553E5 STA $0B STX $0D LDA #$00FF AND [$0B] BEQ L0F1241 LDA #$0001 L0F1241 EOR #$0001 AND $01,S PLX PHA PHY PEA ^L040536 PEA L040536 LDA L0553E3 LDX L0553E5 PHX PHA JSL L150F73 PLA CMP #$0001 BEQ L0F1266 LDA #$0000 BRA L0F1269 L0F1266 LDA #$0001 L0F1269 ORA $01,S PLX LSR BCS L0F1272 BRL L0F11C6 L0F1272 BRL L0F113B L0F1275 LDA L0553F3 LDX L0553F5 TAY BNE L0F127F DEX L0F127F DEC STA $03 STX $05 PEI $05 PEI $03 LDA L0553F7 LDX L0553F9 JSL L033477 BEQ L0F12E9 BVS L0F1299 EOR #$8000 L0F1299 BPL L0F12E9 LDA #$00FF AND [$03] CMP #$000D BNE L0F12E9 LDA L0553E9 JSL L150488 STA $0B STX $0D LDA L0553F3 LDX L0553F5 PHX PHA LDA L0553F7 LDX L0553F9 JSL L1512A5 CMP $0B BNE L0F12C8 CPX $0D L0F12C8 BNE L0F12E9 LDA L05540D STA L05540B JSL L0B4194 LDA L0553F3 LDX L0553F5 PHX PHA LDA L0553F7 LDX L0553F9 JSL L1512A5 STA L0553E9 L0F12E9 TSC CLC ADC #$000E TCS PLD RTL L0F12F1 ENT PHD TSC CLC ADC #$FDF8 TCS ADC #$0121 TCD LDA L055371 STA L0553E7 PEA $0001 JSL L0E0838 STZ L05540B STZ L05540D STZ L0553EB LDA #$0001 STA L0553ED LDA [$EC] STA L0553E9 TDC CLC ADC #$FFDF STA L0553DF STZ L0553E1 TDC CLC ADC #$FEDF STA L0553E3 STZ L0553E5 LDA $F4 ORA $F6 BNE L0F13AC PHY PHY PEI $FA PEI $F8 JSL L151301 PLA STA L0553EF PLA STA L0553F1 PHY PHY LDA L0553EF LDX L0553F1 PHX PHA LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA L0553FF PLA STA L055401 LDAL L05565D BEQ L0F1392 PEA $002D JSL L0B0B7A PHY PHY PEA ^L040539 PEA L040539 JSL L0734F5 PLA STA L0553FF PLA STA L055401 BRL L0F1430 L0F1392 LDA L0553FF LDX L055401 STA $E3 STX $E5 LDY #$0002 LDA [$E3],Y TAX LDA [$E3] STA L0553F3 STX L0553F5 BRA L0F13C6 L0F13AC STZ L0553FF STZ L055401 LDA $F0 LDX $F2 STA L0553EF STX L0553F1 LDA $F4 LDX $F6 STA L0553F3 STX L0553F5 L0F13C6 LDA L0553F3 LDX L0553F5 STA L0553F7 STX L0553F9 LDA $F8 LDX $FA STA L0553FB STX L0553FD LDY #$0002 LDA [$F8],Y TAX LDA [$F8] STA L055403 STX L055405 PHY JSL L0F112C PLA LSR BCS L0F13F5 BRA L0F1430 L0F13F5 PHY PHY LDA L055403 LDX L055405 PHX PHA JSL L071C98 PLA PLX INC BNE L0F1409 INX L0F1409 STA $DF STX $E1 PHY PEI $E1 PEI $DF PEI $E1 PEI $DF JSL L0F0FF8 PLA LSR BCS L0F1420 BRA L0F1430 L0F1420 PEA ^L055403 PEA L055403 PEA ^L0553F3 PEA L0553F3 JSL L070669 L0F1430 LDA L0553E7 PHA JSL L0B2A91 LDA L0553E9 STA [$EC] LDA L0553FF LDX L055401 STA $FC STX $FE LDA $EA STA $FA LDA $E9 STA $F9 LDA $E7 TCD TSC CLC ADC #$021A TCS RTL L0F1459 PHD TSC CLC ADC #$FFDE TCS TCD PHY PHY PEA $0019 TDC CLC ADC #$0017 PEA $0000 PHA PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEI $2A PEI $28 JSL L150B22 PLA STA $1B PLX STX $1D LDAL L05565D BEQ L0F1495 BRL L0F1554 L0F1495 TDC CLC ADC #$0013 PEA $0000 PHA TDC CLC ADC #$000F PEA $0000 PHA PEI $2A PEI $28 JSL L150000 LDAL L05565D BEQ L0F14B8 BRL L0F154C L0F14B8 LDA $0F LDX $11 CMP $13 BNE L0F14C2 CPX $15 L0F14C2 BEQ L0F1518 LDY #$0002 LDA [$17],Y TAX LDA [$17] PEI $15 PEI $13 JSL L150F53 PHX PHA LDY #$0002 LDA [$17],Y PHA LDA [$17] PHA PEI $11 PEI $0F LDA $13 LDX $15 JSL L1512A5 PHX PHA JSL L1511CE LDY #$0002 LDA [$17],Y TAX LDA [$17] STA $1F STX $21 PEI $11 PEI $0F LDA $13 LDX $15 JSL L1512A5 INC BNE L0F150D INX L0F150D DEC TAY LDA #$0000 SEP #$20 STA [$1F],Y REP #$20 L0F1518 PHY PEA $0023 PEI $19 PEI $17 PEI $2E PEI $2C TDC CLC ADC #$0003 PEA $0000 PHA JSL L160720 PLA STA $0D * PEA ^L160720 * PEA L160720 * JSL L07187A PHY PEA $1000 PEA $0000 JSL L150B28 PLA STA $01 L0F154C PEI $19 PEI $17 JSL L07185A L0F1554 LDA $26 STA $2E LDA $25 STA $2D LDA $23 TCD TSC CLC ADC #$002C TCS RTL L0F1566 PHD TSC CLC ADC #$FFBC TCS TCD LDA L0550F3 BEQ L0F1580 PEA ^L04053A PEA L04053A JSL L07010A BRL L0F17D2 L0F1580 LDA #$0001 STA L0550F1 TDC CLC ADC #$003B PEA $0000 PHA TDC CLC ADC #$0037 PEA $0000 PHA PEI $4C PEI $4A JSL L150000 LDAL L05565D BNE L0F15D0 PHY PHY PEA $0001 LDA L0550F5 LDX L0550F7 PHX PHA PEA $0000 PEA $FFFF PEA $0000 PEA $0000 PEA $0000 PEI $4C PEI $4A JSL L150B22 PLA STA $25 PLX STX $27 L0F15D0 LDAL L05565D BEQ L0F15E0 PEA $003D JSL L0727E0 BRL L0F17D2 L0F15E0 LDA $3B STA $35 LDA #L0550F5 LDX #^L0550F5 STA $31 STX $33 LDA L0550F5 LDX L0550F7 PEI $27 PEI $25 JSL L150F53 CLC ADC #$0002 BCC L0F1603 INX L0F1603 STA $2D STX $2F LDA L0550F5 LDX L0550F7 CLC ADC #$FFFF BCC L0F1614 INX L0F1614 PHX PHA LDA $2D LDX $2F JSL L1512A5 STA $29 STX $2B PHY PHY PEI $33 PEI $31 PEI $2F PEI $2D PEI $2B PEI $29 TDC CLC ADC #$0035 PEA $0000 PHA JSL L0F12F1 PLA STA $31 PLX STX $33 LDY #$0002 LDA [$4A],Y TAX LDA [$4A] STA $09 STX $0B LDY #$0010 LDA #$00FF AND [$09],Y AND #$0040 STA $3F LDA #$0010 CLC ADC $09 LDX $0B BCC L0F1667 INX L0F1667 STA $41 STX $43 LDY #$0010 LDA #$00FF AND [$09],Y ORA #$0080 SEP #$20 STA [$41] REP #$20 LDY #$0098 LDA [$09],Y TAX DEY DEY LDA [$09],Y STA $19 STX $1B LDY #$0006 LDA [$09],Y TAX DEY DEY LDA [$09],Y CLC ADC #$0018 BCC L0F169B INX L0F169B STA $41 STX $43 LDY #$0002 LDA [$41],Y TAX LDA [$41] STA $41 STX $43 LDY #$0002 LDA [$41],Y TAX LDA [$41] STA $05 STX $07 TDC CLC ADC #$000D PEA $0000 PHA LDA #$0002 CLC ADC $05 LDX $07 BCC L0F16CB INX L0F16CB PHX PHA PEA $0008 JSL L0313BE LDA #$0002 CLC ADC $05 LDX $07 BCC L0F16DF INX L0F16DF PHX PHA JSL L08273B PEA $0001 PEI $2F PEI $2D PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEA $0000 PEI $4C PEI $4A JSL L151645 LDA $35 JSL L150488 PHX PHA LDA $35 JSL L150488 PHX PHA PEI $4C PEI $4A JSL L150006 PHY PHY PEA $0004 PEI $1B PEI $19 PEA $0000 PEA $0000 PEI $4C PEI $4A JSL L1505C2 PLA STA $15 PLX STX $17 LDY #$0002 LDA [$4A],Y TAX LDA [$4A] STA $01 STX $03 LDA #$0010 CLC ADC $01 LDX $03 BCC L0F174F INX L0F174F STA $41 STX $43 LDY #$0010 LDA #$00FF AND [$01],Y AND #$003F ORA $3F SEP #$20 STA [$41] REP #$20 LDY #$0006 LDA [$01],Y TAX DEY DEY LDA [$01],Y CLC ADC #$0018 BCC L0F1777 INX L0F1777 STA $41 STX $43 LDY #$0002 LDA [$41],Y TAX LDA [$41] STA $41 STX $43 LDY #$0002 LDA [$41],Y TAX LDA [$41] CLC ADC #$0002 BCC L0F1796 INX L0F1796 PHX PHA TDC CLC ADC #$000D PEA $0000 PHA PEA $0008 JSL L0313BE TDC CLC ADC #$001D PEA $0000 PHA LDA #$0040 CLC ADC $01 LDX $03 BCC L0F17BC INX L0F17BC PHX PHA PEA $0008 JSL L0313BE TDC CLC ADC #$001D PEA $0000 PHA JSL L150B34 L0F17D2 LDA $48 STA $50 LDA $47 STA $4F LDA $45 TCD TSC CLC ADC #$004E TCS RTL