* * HypercardGS * segment: $1F HPrintMain * * (k) 2015, Brutal Deluxe Software * mx %00 rel dsk HPrintMain.l lst off *--------------------------------------- use HPrintMain.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 *--------------------------------------- L1F0000 ENT PHD TSC CLC ADC #$FFF6 TCS TCD PHY PEI $14 PEI $12 JSL L0718FA PLA STA $05 LDY #$0002 LDA [$12],Y TAX LDA [$12] STA $01 STX $03 LDA #$000C CLC ADC $01 LDX $03 BCC L1F002B INX L1F002B PHX PHA PHY PHY PEA $0849 JSL L0711EB PEA $0014 JSL L0313BE LDA #$0003 AND $10 CLC ADC #$8000 LDY #$0020 STA [$01],Y LDY #$0002 LDA [$12],Y TAX LDA [$12] CLC ADC #$0022 BCC L1F005A INX L1F005A PHX PHA LDY #$0020 LDA [$01],Y PHA JSL L1F0099 LDA #$01F6 CLC ADC $01 LDX $03 BCC L1F0071 INX L1F0071 PHX PHA PEA $0000 PEA $02AA JSL L071EC5 PEI $14 PEI $12 PEI $05 JSL L0718DA LDA $0E STA $14 LDA $0D STA $13 LDA $0B TCD TSC CLC ADC #$0012 TCS RTL L1F0099 ENT PHD TSC CLC ADC #$FFF6 TCS TCD PHY PEA $0029 JSL L151681 PLA STA $05 PEI $14 PEI $12 PEA $0000 PEA $01D4 JSL L071EC5 PEA ^L1F015C PEA L1F015C PEI $14 PEI $12 PEA $0000 PEA $0038 JSL L070597 LDA $12 LDX $14 STA $01 STX $03 LDA $05 SEC SBC #$0001 BEQ L1F00E5 BVS L1F00E3 EOR #$8000 L1F00E3 BMI L1F00ED L1F00E5 LDA #$0006 LDY #$0014 STA [$01],Y L1F00ED LDA L05501F LDX L055021 LDY #$0016 STA [$01],Y INY INY TXA STA [$01],Y LDA #$0003 AND $10 BNE L1F012F LDA #$0001 LDY #$0030 STA [$01],Y LDA #$0005 LDY #$0026 STA [$01],Y LDA #$0032 CLC ADC $01 LDX $03 BCC L1F011F INX L1F011F CLC ADC #$0002 BCC L1F0126 INX L1F0126 STA $07 STX $09 LDA #$0019 STA [$07] L1F012F LDA #$0103 CLC ADC $01 LDX $03 BCC L1F013A INX L1F013A CLC ADC #$0002 BCC L1F0141 INX L1F0141 STA $07 STX $09 LDA #$0019 STA [$07] LDA $0E STA $14 LDA $0D STA $13 LDA $0B TCD TSC CLC ADC #$0012 TCS RTL L1F015C DW $0001 DW $0001 DW $0001 DW $0001 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0004 DW $0000 DW $0000 DW $000A DW $0032 DW $003F DW $0103 DW $000A DW $0014 DW $0001 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0001 DW $0032 DW $0001 L1F0194 ADRL L1F019A DW $0000 L1F019A DW $0000 DW $A55A L1F019E DW $0000 L1F01A0 DW $0000 L1F01A2 DW $0000 DW $0000 DW $0000 L1F01A8 ADRL L1F01AE DW $0000 L1F01AE DW $0000 DW $A55A L1F01B2 DW $0000 L1F01B4 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 L1F01D8 ENT PHD TSC CLC ADC #$FFC8 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $44 PEI $42 PEA $0008 JSL L0313BE PHY LDA L055323 LDX L055325 PHX PHA JSL L0718A4 PLA STA $2D LDA L055027 LDX L055029 STA $29 STX $2B LDA L05501F LDX L055021 STA $25 STX $27 PHY PEI $40 PEI $3E JSL L1F0C9E PLA LSR BCS L1F0228 BRL L1F03CB L1F0228 PEA ^L051EF8 PEA L051EF8 TDC CLC ADC #$001D PEA $0000 PHA JSL L0808E0 LDAL L051F02 TAX LDAL L051F00 STA $09 STX $0B LDA $0B ASL STA $0B LDA $03 CLC ADC $0B STA $0B LDA $01 CLC ADC $09 STA $09 PHY TDC CLC ADC #$001D PEA $0000 PHA JSL L1500E3 PLA LSR BCC L1F02C3 LDA L055027 LDX L055029 CMP $29 BNE L1F0279 CPX $2B L1F0279 BEQ L1F027E STZ L055139 L1F027E LDA L05501F LDX L055021 CMP $25 BNE L1F028A CPX $27 L1F028A BEQ L1F028F STZ L055135 L1F028F LDA L055149 STA $33 STZ L055149 TDC CLC ADC #$001D PEA $0000 PHA JSL L085216 LDA $33 STA L055149 PEA ^L053239 PEA L053239 TDC CLC ADC #$001D PEA $0000 PHA PEI $0B PEI $09 PEA $0000 JSL L15025A L1F02C3 PHY PHY LDA L05501F LDX L055021 PHX PHA PEA $0002 JSL L07977D PEA $0000 JSL L072FA6 PLA STA $31 PHY PEI $31 PEA $001F JSL L072FD5 PLA STA $31 LDA $31 BNE L1F02F2 BRL L1F03CB L1F02F2 LDA L055323 LDX L055325 PHX PHA JSL L0718BF STZ $2F L1F0300 LDA $2F INC STA $2F LDA L055323 LDX L055325 STA $35 STX $37 LDY #$0002 LDA [$35],Y TAX LDA [$35] PHX PHA LDA $2F JSL L150488 PEA $0000 PEA $001C JSL L150D50 PLA PLX JSL L150F53 CLC ADC #$0006 BCC L1F0336 INX L1F0336 CLC ADC #$0004 BCC L1F033D INX L1F033D PHX PHA TDC CLC ADC #$000D PEA $0000 PHA JSL L0808E0 TDC CLC ADC #$000D PEA $0000 PHA PEI $03 PEI $01 JSL L1501AF PHY TDC CLC ADC #$000D PEA $0000 PHA TDC CLC ADC #$0001 PEA $0000 PHA TDC CLC ADC #$0015 PEA $0000 PHA JSL L150B3A PLA LSR BCS L1F0383 BRA L1F03BC L1F0383 LDA L055323 LDX L055325 STA $35 STX $37 LDY #$0002 LDA [$35],Y TAX LDA [$35] PHX PHA LDA $2F JSL L150488 PEA $0000 PEA $001C JSL L150D50 PLA PLX JSL L150F53 PHX PHA TDC CLC ADC #$0015 PEA $0000 PHA JSL L1F03F9 L1F03BC LDA $2F SEC SBC $31 BVS L1F03C6 EOR #$8000 L1F03C6 BMI L1F03CB BRL L1F0300 L1F03CB PEA $0000 JSL L1516ED PEA $0000 JSL L1511E6 LDA L055323 LDX L055325 PHX PHA PEI $2D JSL L0718DA LDA $3C STA $44 LDA $3B STA $43 LDA $39 TCD TSC CLC ADC #$0042 TCS RTL L1F03F9 ENT PHD TSC CLC ADC #$FC92 TCS ADC #$027F TCD PEA $0000 TDC CLC ADC #$FF89 PHA PEI $F6 PEI $F4 PEA $0008 JSL L0313BE LDA #$0006 CLC ADC $F8 LDX $FA BCC L1F0423 INX L1F0423 TXY LDX #$FE85 STA $00,X TYA STA $02,X LDX #$FE85 LDA $02,X PHA LDA $00,X PHA PLA PLX STA $EB STX $ED LDA [$EB] STA $E3 LDX #$FE85 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L1F044F INX L1F044F STA $EB STX $ED LDA [$EB] STA $E5 LDA #$0080 AND $E3 BNE L1F0461 BRL L1F07DE L1F0461 LDA #$0010 AND $E3 BEQ L1F046B LDA #$0001 L1F046B STA $E9 LDA $E5 BNE L1F0474 BRL L1F07DE L1F0474 PHY LDA L05501F LDX L055021 PHX PHA PEI $E5 TDC CLC ADC #$0091 PEA $0000 PHA JSL L07ABAE PLA LSR BCS L1F0493 BRL L1F07DE L1F0493 LDA $E9 BNE L1F049A BRL L1F0546 L1F049A PEA $0000 TDC CLC ADC #$FF91 PHA PEA $0000 TDC CLC ADC #$FD81 PHA LDA L05501F LDX L055021 PHX PHA PEI $E5 JSL L07ACF0 PEA $0100 JSL L0313BE LDA #$00FF LDX #$FF91 AND $00,X BNE L1F0514 PEA $0000 TDC CLC ADC #$FF91 PHA PHY PHY PEA $0840 JSL L0711EB PEA $0000 TDC CLC ADC #$FE6D PHA LDA $E5 JSL L150488 PHX PHA JSL L07346C PHY PHY PEA $0841 JSL L0711EB PEA $0000 TDC CLC ADC #$FE89 PHA PEA $0003 JSL L1509CE PEA $0100 JSL L0313BE BRA L1F0546 L1F0514 PEA $0000 TDC CLC ADC #$FF91 PHA PEA $0000 TDC CLC ADC #$FF91 PHA PHY PHY PEA $0841 JSL L0711EB PEA $0000 TDC CLC ADC #$FE89 PHA PEA $0002 JSL L1509CE PEA $0100 JSL L0313BE L1F0546 LDA #$4000 AND $95 BEQ L1F0550 LDA #$0001 L1F0550 STA $E7 PHY PHY LDA L055027 LDX L055029 PHX PHA LDA L05501F LDX L055021 PHX PHA PEI $E5 PEI $E7 JSL L07AEBB PLA STA $BF PLX STX $C1 LDA $BF ORA $C1 BNE L1F057B BRL L1F07DE L1F057B LDA [$BF] LDY #$0002 ORA [$BF],Y BNE L1F058F PEI $C1 PEI $BF JSL L07185A BRL L1F07DE L1F058F LDY #$0002 LDA [$BF],Y TAX LDA [$BF] STA $EB STX $ED LDA #$00FF AND [$EB] BEQ L1F05A5 LDA #$0001 L1F05A5 AND $E9 BNE L1F05AC BRL L1F063B L1F05AC PHY PHY PEI $C1 PEI $BF JSL L151301 PLA STA $D3 PLX STX $D5 PEI $D5 PEI $D3 LDA #$00FF LDX #$FF91 AND $00,X JSL L150488 JSL L150F53 STA $CF STX $D1 PHY PEI $C1 PEI $BF PEI $D1 PEI $CF JSL L078A05 PLA LSR BCC L1F063B LDY #$0002 LDA [$BF],Y PHA LDA [$BF] PHA LDA #$00FF LDX #$FF91 AND $00,X JSL L150488 JSL L150F53 STA $C3 STX $C5 LDY #$0002 LDA [$BF],Y PHA LDA [$BF] PHA PEI $C5 PEI $C3 PEI $D5 PEI $D3 JSL L1511CE PEA $0000 TDC CLC ADC #$FF92 PHA LDY #$0002 LDA [$BF],Y PHA LDA [$BF] PHA LDA #$00FF LDX #$FF91 AND $00,X JSL L150488 PHX PHA JSL L070597 L1F063B LDA $AB STA $BB LDA $AF SEP #$20 STA $BD REP #$20 LDA $AD SEP #$20 STA $BE REP #$20 LDA $A9 STA $E1 LDA #$00FF AND $B4 STA $DF LDY #$0006 LDA #$0008 AND [$F8],Y CMP #$0000 BNE L1F066A BRL L1F06EB L1F066A LDA #$0006 CLC ADC $F8 LDX $FA BCC L1F0675 INX L1F0675 CLC ADC #$000C BCC L1F067C INX L1F067C TXY LDX #$FE81 STA $00,X TYA STA $02,X PHY LDX #$FE81 LDA $02,X PHA LDA $00,X PHA PEA ^L053251 PEA L053251 PEA $0004 JSL L070A10 PLA LSR BCS L1F06EB LDX #$FE81 LDA $02,X PHA LDA $00,X PHA PLA PLX STA $EB STX $ED LDY #$0002 LDA [$EB],Y TAX LDA [$EB] STA $BB STX $BD LDX #$FE81 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L1F06CB INX L1F06CB STA $EB STX $ED LDA [$EB] STA $E1 LDX #$FE81 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0008 BCC L1F06E3 INX L1F06E3 STA $EB STX $ED LDA [$EB] STA $DF L1F06EB PEI $BD PEI $BB JSL L1F0EEB PHY PEI $DF JSL L081A92 JSL L1511E6 LDA #$000F AND $9F BEQ L1F070E PEA $0000 JSL L1516ED BRA L1F0715 L1F070E PEA $0004 JSL L1516ED L1F0715 PEI $C1 PEI $BF JSL L0718BF PHY TDC CLC ADC #$00BB PEA $0000 PHA PEA $0080 JSL L1F0AE1 PLA STA $DD TDC CLC ADC #$00C7 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FF89 PHA PEA $0008 JSL L0313BE LDA $CB SEC SBC $C7 STA $DB LDA $DB SEC SBC $DD BEQ L1F0773 BVS L1F075D EOR #$8000 L1F075D BPL L1F0773 PEI $DB PEI $DB PEI $DD JSL L150318 PLX PLX STA $EB PLA SEC SBC $EB STA $DB L1F0773 LDA $DB CLC ADC $C7 STA $CB PHY PHY JSL L150493 PLA STA $D7 PLX STX $D9 LDY #$001A LDA [$D7],Y TAX DEY DEY LDA [$D7],Y STA $EB STX $ED LDY #$0002 LDA [$EB],Y TAX LDA [$EB] CLC ADC #$0002 BCC L1F07A3 INX L1F07A3 PHX PHA TDC CLC ADC #$00C7 PEA $0000 PHA PEA $0008 JSL L0313BE PHY LDY #$0002 LDA [$BF],Y PHA LDA [$BF] PHA TDC CLC ADC #$00C7 PEA $0000 PHA PEI $E1 PEI $DD PEA $0000 JSL L08090C PLA STA $DB PEI $C1 PEI $BF JSL L07185A L1F07DE LDA $F2 STA $FA LDA $F1 STA $F9 LDA $EF TCD TSC CLC ADC #$0378 TCS RTL L1F07F0 PHD TSC CLC ADC #$FFF8 TCS TCD LDY #$0010 LDA [$0E],Y TAX DEY DEY LDA [$0E],Y STA $05 STX $07 LDA #$00FF AND [$05] STA $01 LDA $01 SEC SBC #$0001 BVS L1F0818 EOR #$8000 L1F0818 BPL L1F086F LDA #$0001 STA $03 L1F081F LDY #$0010 LDA [$0E],Y TAX DEY DEY LDA [$0E],Y STA $05 STX $07 LDY $03 LDA #$00FF AND [$05],Y CMP $16 BNE L1F0865 LDY #$0010 LDA [$0E],Y TAX DEY DEY LDA [$0E],Y PHX PHA PEI $03 PEA $0001 JSL L150A64 PEI $14 PEI $12 LDY #$0010 LDA [$0E],Y TAX DEY DEY LDA [$0E],Y PHX PHA PEI $03 JSL L150C4C BRA L1F086F L1F0865 LDA $03 CMP $01 BEQ L1F086F INC $03 BRA L1F081F L1F086F LDA $0C STA $16 LDA $0B STA $15 LDA $09 TCD TSC CLC ADC #$0014 TCS RTL L1F0881 ENT PHD TSC CLC ADC #$FFF8 TCS TCD PEI $10 PEI $0E PEI $14 PEI $12 PEA $0100 JSL L0313BE LDA $16 LDX $18 STA $01 STX $03 PEA $0009 LDA #$0005 CLC ADC $01 LDX $03 BCC L1F08AE INX L1F08AE PHX PHA PEA $0000 PHD JSL L1F07F0 PEA $000D LDA #$000E CLC ADC $01 LDX $03 BCC L1F08C6 INX L1F08C6 PHX PHA PEA $0000 PHD JSL L1F07F0 PEA $0015 LDA #$001B CLC ADC $01 LDX $03 BCC L1F08DE INX L1F08DE PHX PHA PEA $0000 PHD JSL L1F07F0 PEA $0008 PEI $03 PEI $01 PEA $0000 PHD JSL L1F07F0 LDA $0C STA $18 LDA $0B STA $17 LDA $09 TCD TSC CLC ADC #$0016 TCS RTL L1F0909 ENT PHD TSC CLC ADC #$FEDF TCS ADC #$002E TCD TDC CLC ADC #$00D7 PEA $0000 PHA JSL L15132B SEP #$20 LDA #$14 STA $D6 REP #$20 LDA #$0001 STA $EB L1F092E TDC CLC ADC #$00D6 STA $EF STZ $F1 LDY $EB TYA CLC ADC $EF TAX LDA $F1 BCC L1F0943 INC L1F0943 PHA PHX TDC CLC ADC #$00D6 STA $EF STZ $F1 LDY $EB LDA #$00FF AND [$EF],Y AND #$007F PHA PLA PLX STX $EF PLX STX $F1 SEP #$20 STA [$EF] REP #$20 LDA #$0014 CMP $EB BEQ L1F0971 INC $EB BRA L1F092E L1F0971 LDA $F8 LDX $FA STA $D2 STX $D4 TDC CLC ADC #$00D7 PEA $0000 PHA LDA #$0005 CLC ADC $D2 LDX $D4 BCC L1F098D INX L1F098D CLC ADC #$0001 BCC L1F0994 INX L1F0994 PHX PHA PEA $0000 PEA $0008 JSL L070597 LDY #$0005 SEP #$20 LDA #$08 STA [$D2],Y REP #$20 TDC CLC ADC #$00D6 PEA $0000 PHA PEA $0001 PEA $0009 JSL L150A64 LDA #$00FF AND $D6 STA $ED L1F09C5 TDC CLC ADC #$00D6 STA $EF STZ $F1 LDY $ED LDA #$00FF AND [$EF],Y CMP #$0020 BNE L1F09F5 TDC CLC ADC #$00D6 PEA $0000 PHA PEI $ED PEA $0001 JSL L150A64 LDA #$00FF AND $D6 STA $ED BRA L1F09C5 L1F09F5 LDA #$000E CLC ADC $D2 LDX $D4 BCC L1F0A00 INX L1F0A00 PHX PHA TDC CLC ADC #$00D6 PEA $0000 PHA PEA $000D JSL L0313BE LDA #$001B CLC ADC $D2 LDX $D4 BCC L1F0A1D INX L1F0A1D PHX PHA PEA $0000 TDC CLC ADC #$FFD2 PHA LDA L055043 LDX L055045 PHX PHA JSL L072CD4 PEA $0021 JSL L0313BE LDA $F6 STA $FA LDA $F5 STA $F9 LDA $F3 TCD TSC CLC ADC #$0127 TCS RTL L1F0A4D ENT PHD TSC CLC ADC #$FFF2 TCS TCD PHY PHY JSL L150FF3 PLA STA $05 PLX STX $07 LDY #$0002 LDA [$16],Y TAX LDA [$16] CLC ADC #$0018 BCC L1F0A70 INX L1F0A70 STA $01 STX $03 LDA $05 DEC BMI L1F0AC3 CMP #$0003 BPL L1F0AC3 SEC SBC #$0000 BEQ L1F0A8C DEC BEQ L1F0A8C DEC BEQ L1F0AA6 BRA L1F0AC3 L1F0A8C LDA [$01] STA $1A LDA $14 BEQ L1F0A9D LDA #$FFFB AND [$01] STA [$01] BRA L1F0AA4 L1F0A9D LDA #$0004 ORA [$01] STA [$01] L1F0AA4 BRA L1F0AC3 L1F0AA6 LDY #$000C LDA [$01],Y STA $1A LDA #$0000 LDY #$000C STA [$01],Y LDA $14 BEQ L1F0AC1 LDA #$0002 LDY #$000C STA [$01],Y L1F0AC1 BRA L1F0AC3 L1F0AC3 PHY PEI $18 PEI $16 JSL L1511B6 PLA STA $09 LDA $12 STA $18 LDA $11 STA $17 LDA $0F TCD TSC CLC ADC #$0016 TCS RTL L1F0AE1 ENT PHD TSC CLC ADC #$FFEC TCS TCD LDX #$0000 LDA #$0080 AND $1A BNE L1F0AF4 INX L1F0AF4 TXA STA $0F LDA $0F BEQ L1F0B14 PHY PHY JSL L150695 PLA STA $09 PLX STX $0B LDY #$0002 LDA [$1C],Y PHA LDA [$1C] PHA JSL L1F0EEB L1F0B14 TDC CLC ADC #$0001 PEA $0000 PHA JSL L150178 LDA $03 CLC ADC $01 CLC ADC $07 STA $0D LDA #$0001 AND $1A BEQ L1F0B39 LDA $07 CLC ADC $0D STA $0D L1F0B39 LDA $0F BEQ L1F0B45 PEI $0B PEI $09 JSL L1F0EEB L1F0B45 LDA $0D STA $20 LDA $18 STA $1E LDA $17 STA $1D LDA $15 TCD TSC CLC ADC #$001C TCS RTL L1F0B5B ENT PHD TSC CLC ADC #$FF9A TCS TCD LDA #$0000 TAX STA [$70] TXA LDY #$0002 STA [$70],Y LDA #$0000 TAX STA [$6C] TXA LDY #$0002 STA [$6C],Y LDA $78 ORA $7A BEQ L1F0B84 BRL L1F0C62 L1F0B84 LDA $74 ORA $76 BNE L1F0BAC LDA #$0001 LDX #$0000 STA [$70] TXA LDY #$0002 STA [$70],Y LDAL L053ACB TAX LDAL L053AC9 STA [$6C] TXA LDY #$0002 STA [$6C],Y BRL L1F0C60 L1F0BAC TDC CLC ADC #$0001 PEA $0000 PHA JSL L0940E5 PHY PEI $76 PEI $74 JSL L1F0CF8 PLA LSR BCS L1F0BC9 BRL L1F0C8C L1F0BC9 LDA $70 LDX $72 STA $63 STX $65 PHY PHY JSL L07B114 PLA STA [$63] PLA LDY #$0002 STA [$63],Y PHY PHY LDA L05501F LDX L055021 PHX PHA JSL L07721A PLA STA $5D PLX STX $5F LDA $5D ORA $5F BNE L1F0BFD BRL L1F0C8C L1F0BFD PEI $6E PEI $6C LDY #$0002 LDA [$70],Y PHA LDA [$70] PHA LDY #$0002 LDA [$5D],Y TAX LDA [$5D] CLC ADC #$0014 BCC L1F0C19 INX L1F0C19 STA $63 STX $65 LDY #$0002 LDA [$63],Y TAX LDA [$63] JSL L150F53 TAY BNE L1F0C2D DEX L1F0C2D DEC PHX PHA PLA PLY PLX STX $63 PLX STX $65 STA [$63] TYA LDY #$0002 STA [$63],Y LDA L05501F LDX L055021 PHX PHA PEA $0000 JSL L074A24 PHY TDC CLC ADC #$0001 PEA $0000 PHA JSL L0953DD PLA STA $61 L1F0C60 BRA L1F0C8C L1F0C62 LDA #$0001 LDX #$0000 STA [$70] TXA LDY #$0002 STA [$70],Y LDY #$0002 LDA [$78],Y TAX LDA [$78] STA $63 STX $65 LDY #$0002 LDA [$63],Y TAX LDA [$63] STA [$6C] TXA LDY #$0002 STA [$6C],Y L1F0C8C LDA $6A STA $7A LDA $69 STA $79 LDA $67 TCD TSC CLC ADC #$0078 TCS RTL L1F0C9E ENT PHD TSC CLC ADC #$FFA0 TCS TCD LDA #$0001 STA $6A LDA L055027 LDX L055029 CMP $66 BNE L1F0CB7 CPX $68 L1F0CB7 BEQ L1F0CE6 LDA #$0001 STA $01 LDA $66 LDX $68 STA $03 STX $05 LDA #$0006 STA $2D LDA L055039 LDX L05503B STA $59 STX $5B PHY TDC CLC ADC #$0001 PEA $0000 PHA JSL L0953DD PLA STA $6A L1F0CE6 LDA $64 STA $68 LDA $63 STA $67 LDA $61 TCD TSC CLC ADC #$0066 TCS RTL L1F0CF8 ENT PHD TSC CLC ADC #$FFA0 TCS TCD LDA #$0002 STA $01 LDA #$0001 LDX #$0000 STA $07 STX $09 LDA #$0001 STA $2D LDA $66 LDX $68 STA $2F STX $31 LDA L055039 LDX L05503B STA $59 STX $5B PHY TDC CLC ADC #$0001 PEA $0000 PHA JSL L0953DD PLA STA $6A LDA $64 STA $68 LDA $63 STA $67 LDA $61 TCD TSC CLC ADC #$0066 TCS RTL L1F0D49 ENT PHD TSC CLC ADC #$FFF8 TCS TCD PHY PHY JSL L150FF3 PLA STA $01 PLX STX $03 LDX #$0000 LDA #$0003 CMP $01 BEQ L1F0D68 INX L1F0D68 TXA STA $0E PLY PLY PLY PLY PLD RTL L1F0D71 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDAL L05565D BEQ L1F0D88 LDAL L05565D PHA JSL L1F0E0A L1F0D88 PLY PLY PLD RTL L1F0D8C ENT PHD TSC CLC ADC #$FFFA TCS TCD PHY JSL L1511AA PLA STA $01 LDA $01 BEQ L1F0E00 LDA $01 STA L05531B LDX #$0000 LDA #$0080 CMP $01 BEQ L1F0DB0 INX L1F0DB0 TXA AND L05531D BEQ L1F0E00 LDA $01 SEC SBC #$1301 BVS L1F0DC1 EOR #$8000 L1F0DC1 BPL L1F0DC8 LDA #$0000 BRA L1F0DCB L1F0DC8 LDA #$0001 L1F0DCB PHA LDA $01 SEC SBC #$130D BEQ L1F0DDB BVS L1F0DD9 EOR #$8000 L1F0DD9 BMI L1F0DE0 L1F0DDB LDA #$0000 BRA L1F0DE3 L1F0DE0 LDA #$0001 L1F0DE3 ORA $01,S PLX LSR BCC L1F0DEE LDA #$1303 STA $01 L1F0DEE LDA $01 SEC SBC #$1301 CLC ADC #$084A PHA JSL L0727E0 STZ L05531D L1F0E00 LDA L05531B STA $0C PLY PLY PLY PLD RTL L1F0E0A ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA $0A STA L05531B PEI $0A JSL L1504B1 LDA $0A BNE L1F0E27 LDA #$0001 STA L05531D L1F0E27 LDA $08 STA $0A LDA $07 STA $09 LDA $05 TCD PLY PLY PLY PLY RTL L1F0E37 ENT PHD TSC CLC ADC #$FFF8 TCS TCD PHY PHY PEI $12 PEI $10 PEA $0000 PEI $0E JSL L1F0E85 PLA STA $01 PLX STX $03 LDA $01 ORA $03 BEQ L1F0E6B LDY #$0002 LDA [$01],Y PHA LDA [$01] PHA PEI $12 PEI $10 JSL L071EC5 L1F0E6B LDA $01 LDX $03 STA $14 STX $16 LDA $0C STA $12 LDA $0B STA $11 LDA $09 TCD TSC CLC ADC #$0010 TCS RTL L1F0E85 ENT PHD TSC CLC ADC #$FFF4 TCS TCD PHY PHY PEI $18 PEI $16 LDA #$0400 ORA L054FBF PHA PEI $14 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $03 PLX STX $05 LDAL L05565D STA $07 LDA $07 BEQ L1F0ED1 STZ $03 STZ $05 LDA L054FB3 STA $01 LDA #$0001 STA L054FB3 PEA $083E JSL L0727E0 LDA $01 STA L054FB3 L1F0ED1 LDA $03 LDX $05 STA $1A STX $1C LDA $10 STA $18 LDA $0F STA $17 LDA $0D TCD TSC CLC ADC #$0016 TCS RTL L1F0EEB ENT PHD TSC CLC ADC #$FFFC TCS TCD LDAL L051EEC PHA LDAL L051EEA PHA PHY PHY JSL L150C3A PLA PLX JSL L033477 BEQ L1F0F1E LDAL L051EEC PHA LDAL L051EEA PHA LDAL L051EEE PHA JSL L150BC4 L1F0F1E PEI $0C PEI $0A PEA $0000 PEA ^L051EEA PEA L051EEA JSL L1510D7 LDA #$00FF AND $0C PHA JSL L1512E3 LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L1F0F4A ENT PHD TSC CLC ADC #$FFE6 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $22 PEI $20 PEA $0014 JSL L0313BE PHY TDC CLC ADC #$0001 PEA $0000 PHA JSL L0946A2 PLA STA $15 LDA $15 BNE L1F0F82 PEA $0852 JSL L0727E0 L1F0F82 LDA $15 STA $24 LDA $1E STA $22 LDA $1D STA $21 LDA $1B TCD TSC CLC ADC #$0020 TCS RTL L1F0F98 ENT PHD TSC CLC ADC #$FFF2 TCS TCD PHY PHY JSL L150FF3 PLA STA $05 PLX STX $07 LDY #$0002 LDA [$16],Y TAX LDA [$16] CLC ADC #$0018 BCC L1F0FBB INX L1F0FBB STA $01 STX $03 LDA $05 DEC BMI L1F0FF2 CMP #$0003 BPL L1F0FF2 SEC SBC #$0000 BEQ L1F0FD7 DEC BEQ L1F0FD7 DEC BEQ L1F0FE9 BRA L1F0FF2 L1F0FD7 LDA #$0004 AND $14 PHA LDA #$FFFB AND [$01] ORA $01,S PLX STA [$01] BRA L1F0FF2 L1F0FE9 LDA $14 LDY #$000C STA [$01],Y BRA L1F0FF2 L1F0FF2 PHY PEI $18 PEI $16 JSL L1511B6 PLA STA $09 LDA $12 STA $18 LDA $11 STA $17 LDA $0F TCD TSC CLC ADC #$0016 TCS RTL L1F1010 ENT PHD TSC CLC ADC #$FFF8 TCS TCD LDA $12 SEC SBC #$0010 BVS L1F1023 EOR #$8000 L1F1023 BMI L1F1075 LDA $12 STAL L1F01B2 PEA ^L1F01B4 PEA L1F01B4 JSL L085F5A PEA $00FB PEA $002A PEA ^L1F01A8 PEA L1F01A8 JSL L150556 LDA $0E LDX $10 STA $01 STX $03 LDA [$01] STAL L1F019E LDY #$0004 LDA [$01],Y STAL L1F01A0 LDA #$0080 ORA $12 STAL L1F01A2 PEA $00FC PEA $000E PEA ^L1F0194 PEA L1F0194 JSL L150556 L1F1075 LDA $0C STA $12 LDA $0B STA $11 LDA $09 TCD TSC CLC ADC #$0010 TCS RTL L1F1087 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA #$0000 STAL L1F01B2 PEA ^L1F01B4 PEA L1F01B4 PEA ^L041CB3 PEA L041CB3 PEA $0020 JSL L0313BE PEA $00FB PEA $002A PEA ^L1F01A8 PEA L1F01A8 JSL L150556 PLY PLY PLD RTL L1F10BD ENT PHD TSC CLC ADC #$FDFC TCS ADC #$0111 TCD PEI $FA PEI $F8 PHY PHY PEA $083B JSL L0711EB PEA $0000 TDC CLC ADC #$FEEF PHA LDA L055043 LDX L055045 PHX PHA JSL L072CD4 PEA $0000 TDC CLC ADC #$FFEF PHA PEA $0002 JSL L1509CE PEA $0100 JSL L0313BE PEI $FA PEI $F8 JSL L150562 LDA $F6 STA $FA LDA $F5 STA $F9 LDA $F3 TCD TSC CLC ADC #$020A TCS RTL L1F111B ENT PHD TSC CLC ADC #$FFE4 TCS TCD STZ $24 PHY PHY JSL L150493 PLA STA $15 PLX STX $17 LDA #$0008 AND $22 BNE L1F113B BRL L1F11F9 L1F113B PHY PHY PEA $0000 PEA $1CCA PEA $4010 PEA $07D4 JSL L1F0E85 PLA STA L05532F PLA STA L055331 LDA L05532F ORA L055331 BNE L1F1165 LDA #$0001 STA $24 BRL L1F11F9 L1F1165 LDA L05532F LDX L055331 STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] STA $11 STX $13 PEI $13 PEI $11 JSL L151424 LDA L05532F LDX L055331 STA $09 STX $0B LDA $11 LDX $13 STA $05 STX $07 LDA #$0080 STA [$05] LDY #$0002 LDA [$09],Y TAX LDA [$09] CLC ADC #$00AA BCC L1F11A9 INX L1F11A9 LDY #$0002 STA [$05],Y INY INY TXA STA [$05],Y LDA #$0090 LDY #$0006 STA [$05],Y LDA #$0008 CLC ADC $05 LDX $07 BCC L1F11C6 INX L1F11C6 PHX PHA PEA $0000 PEA $0000 PEA $0240 PEA $0032 JSL L15100B LDA #$0010 CLC ADC $05 LDX $07 BCC L1F11E3 INX L1F11E3 PHX PHA LDA #$0008 CLC ADC $05 LDX $07 BCC L1F11F0 INX L1F11F0 PHX PHA PEA $0008 JSL L0313BE L1F11F9 LDA #$0010 AND $22 BNE L1F1203 BRL L1F12C1 L1F1203 PHY PHY PEA $0000 PEA $1CCA PEA $4010 PEA $07D5 JSL L1F0E85 PLA STA L05532B PLA STA L05532D LDA L05532B ORA L05532D BNE L1F122D LDA #$0001 STA $24 BRL L1F12C1 L1F122D LDA L05532B LDX L05532D STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] STA $0D STX $0F PEI $0F PEI $0D JSL L151424 LDA L05532B LDX L05532D STA $09 STX $0B LDA $0D LDX $0F STA $01 STX $03 LDA #$0080 STA [$01] LDY #$0002 LDA [$09],Y TAX LDA [$09] CLC ADC #$00AA BCC L1F1271 INX L1F1271 LDY #$0002 STA [$01],Y INY INY TXA STA [$01],Y LDA #$0090 LDY #$0006 STA [$01],Y LDA #$0008 CLC ADC $01 LDX $03 BCC L1F128E INX L1F128E PHX PHA PEA $0000 PEA $0000 PEA $0240 PEA $0032 JSL L15100B LDA #$0010 CLC ADC $01 LDX $03 BCC L1F12AB INX L1F12AB PHX PHA LDA #$0008 CLC ADC $01 LDX $03 BCC L1F12B8 INX L1F12B8 PHX PHA PEA $0008 JSL L0313BE L1F12C1 PEI $17 PEI $15 JSL L151131 LDA $20 STA $22 LDA $1F STA $21 LDA $1D TCD TSC CLC ADC #$0020 TCS RTL L1F12DB ENT PHD TSC CLC ADC #$FFFC TCS TCD STZ $0A LDA L055327 ORA L055329 BNE L1F1313 PHY PHY PEA $0000 PEA $008C PEA $03EB JSL L1F0E37 PLA STA L055327 PLA STA L055329 LDA L055327 ORA L055329 BNE L1F1311 LDA #$0001 STA $0A L1F1311 BRA L1F135E L1F1313 LDA L055327 LDX L055329 STA $01 STX $03 LDA [$01] LDY #$0002 ORA [$01],Y BNE L1F1332 LDA L055327 LDX L055329 PHX PHA JSL L150689 L1F1332 PEA $0000 LDA L055327 LDX L055329 PHX PHA JSL L150D44 LDAL L05565D BEQ L1F135E LDA L055327 LDX L055329 PHX PHA JSL L07185A STZ L055327 STZ L055329 LDA #$0001 STA $0A L1F135E PLY PLY PLD RTL L1F1362 ENT PHD TSC CLC ADC #$FFCE TCS TCD LDA $38 LDX $3A STA $29 STX $2B PEI $2B PEI $29 LDA L055327 LDX L055329 STA $2F STX $31 LDY #$0002 LDA [$2F],Y TAX LDA [$2F] CLC ADC #$0002 BCC L1F138F INX L1F138F CLC ADC #$0006 BCC L1F1396 INX L1F1396 PHX PHA PEA $0008 JSL L0313BE LDA #$0008 CLC ADC $29 LDX $2B BCC L1F13AA INX L1F13AA PHX PHA PEI $2B PEI $29 PEA $0008 JSL L0313BE LDA #$0032 CLC ADC $3C LDX $3E BCC L1F13C2 INX L1F13C2 STA $25 STX $27 LDA #$0008 CLC ADC $29 LDX $2B BCC L1F13D1 INX L1F13D1 STA $21 STX $23 LDA [$25] BEQ L1F13E8 LDY #$0002 LDA [$25],Y CLC ADC [$21] LDY #$0004 STA [$21],Y BRA L1F13EF L1F13E8 LDA [$21] LDY #$0004 STA [$21],Y L1F13EF LDA #$0010 CLC ADC $29 LDX $2B BCC L1F13FA INX L1F13FA PHX PHA PEI $2B PEI $29 PEA $0008 JSL L0313BE LDA #$0103 CLC ADC $3C LDX $3E BCC L1F1412 INX L1F1412 STA $1D STX $1F LDA #$0010 CLC ADC $29 LDX $2B BCC L1F1421 INX L1F1421 STA $19 STX $1B LDA [$1D] BEQ L1F1438 LDY #$0004 LDA [$19],Y LDY #$0002 SEC SBC [$1D],Y STA [$19] BRA L1F143F L1F1438 LDY #$0004 LDA [$19],Y STA [$19] L1F143F LDA $29 LDX $2B STA $15 STX $17 LDA #$0018 CLC ADC $29 LDX $2B BCC L1F1452 INX L1F1452 PHX PHA LDY #$0002 LDA [$15],Y PHA LDA #$0008 CLC ADC $29 LDX $2B BCC L1F1465 INX L1F1465 CLC ADC #$0004 BCC L1F146C INX L1F146C STA $2F STX $31 LDA [$2F] PHA LDY #$0006 LDA [$15],Y PHA LDY #$0010 LDA [$29],Y PHA JSL L15100B LDA #$0000 LDY #$0034 STA [$29],Y LDY #$0026 LDA [$3C],Y DEC DEC DEC BPL L1F1498 BRL L1F1619 L1F1498 CMP #$0004 BMI L1F14A0 BRL L1F1619 L1F14A0 SEC SBC #$0000 BNE L1F14A9 BRL L1F15DC L1F14A9 DEC DEC BEQ L1F14B3 DEC BEQ L1F14B3 BRL L1F1619 L1F14B3 LDA [$3C] DEC DEC BMI L1F14ED CMP #$0002 BPL L1F14ED SEC SBC #$0000 BEQ L1F14C9 DEC BEQ L1F14DB BRA L1F14ED L1F14C9 LDA #$0064 LDY #$0028 STA [$29],Y LDA #$0140 LDY #$002A STA [$29],Y BRA L1F14FD L1F14DB LDA #$0032 LDY #$0028 STA [$29],Y LDA #$00A0 LDY #$002A STA [$29],Y BRA L1F14FD L1F14ED LDA #$00C8 LDY #$0028 STA [$29],Y LDA #$0280 LDY #$002A STA [$29],Y L1F14FD LDY #$0002 LDA [$3C],Y DEC BPL L1F1508 BRL L1F15D9 L1F1508 CMP #$0003 BMI L1F1510 BRL L1F15D9 L1F1510 SEC SBC #$0000 BEQ L1F151F DEC BEQ L1F1552 DEC BEQ L1F1564 BRL L1F15D9 L1F151F LDA #$000C LDY #$002C STA [$29],Y LDY #$0030 LDA [$3C],Y BEQ L1F1531 LDA #$0001 L1F1531 LDY #$0034 STA [$29],Y LDY #$0034 LDA [$29],Y BEQ L1F1547 LDA #$000C LDY #$002E STA [$29],Y BRA L1F154F L1F1547 LDA #$000A LDY #$002E STA [$29],Y L1F154F BRL L1F15D9 L1F1552 LDA #$0000 LDY #$002E STA [$29],Y LDA #$0000 LDY #$002C STA [$29],Y BRA L1F15D9 L1F1564 LDA #$0018 CLC ADC $29 LDX $2B BCC L1F156F INX L1F156F STA $11 STX $13 LDA #$002C CLC ADC $29 LDX $2B BCC L1F157E INX L1F157E STA $2F STX $31 PHY LDY #$0006 LDA [$11],Y LDY #$0002 SEC SBC [$11],Y LDY #$002A SEC SBC [$29],Y PHA PEA $0000 JSL L072FA6 PLA STA [$2F] LDA #$002E CLC ADC $29 LDX $2B BCC L1F15AA INX L1F15AA STA $2F STX $31 PHY LDY #$0004 LDA [$11],Y SEC SBC [$11] LDY #$0028 SEC SBC [$29],Y PHA PEA $0000 JSL L072FA6 PLA STA [$2F] LDY #$0030 LDA [$3C],Y BEQ L1F15D2 LDA #$0001 L1F15D2 LDY #$0034 STA [$29],Y BRA L1F15D9 L1F15D9 BRL L1F168B L1F15DC LDA #$0018 CLC ADC $29 LDX $2B BCC L1F15E7 INX L1F15E7 STA $0D STX $0F LDY #$0006 LDA [$0D],Y LDY #$0002 SEC SBC [$0D],Y LDY #$002A STA [$29],Y LDA #$0000 LDY #$002C STA [$29],Y LDY #$001E LDA [$3C],Y LDY #$0028 STA [$29],Y LDY #$0022 LDA [$3C],Y LDY #$002E STA [$29],Y BRA L1F168B L1F1619 LDY #$0020 LDA [$3C],Y LDY #$002A STA [$29],Y LDY #$0024 LDA [$3C],Y LDY #$002C STA [$29],Y LDY #$0018 LDA [$29],Y LDY #$001A CLC ADC [$3C],Y LDY #$0018 STA [$29],Y LDA #$0018 CLC ADC $29 LDX $2B BCC L1F1648 INX L1F1648 CLC ADC #$0002 BCC L1F164F INX L1F164F PHX PHA LDA #$0018 CLC ADC $29 LDX $2B BCC L1F165C INX L1F165C CLC ADC #$0002 BCC L1F1663 INX L1F1663 STA $2F STX $31 LDY #$001C LDA [$3C],Y CLC ADC [$2F] PLX STX $2F PLX STX $31 STA [$2F] LDY #$001E LDA [$3C],Y LDY #$0028 STA [$29],Y LDY #$0022 LDA [$3C],Y LDY #$002E STA [$29],Y L1F168B LDA #$0018 CLC ADC $29 LDX $2B BCC L1F1696 INX L1F1696 STA $09 STX $0B LDA #$0030 CLC ADC $29 LDX $2B BCC L1F16A5 INX L1F16A5 STA $2F STX $31 LDY #$0006 LDA [$09],Y LDY #$0002 SEC SBC [$09],Y LDY #$002C CLC ADC [$29],Y PHA LDY #$002A LDA [$29],Y LDY #$002C CLC ADC [$29],Y PHA JSL L1500F5 PLX PLX STA [$2F] LDY #$0004 LDA [$09],Y SEC SBC [$09] STA $2D LDY #$0034 LDA [$29],Y BNE L1F16EA LDY #$002E LDA [$29],Y CLC ADC $2D STA $2D L1F16EA LDA #$0032 CLC ADC $29 LDX $2B BCC L1F16F5 INX L1F16F5 STA $2F STX $31 PEI $2D LDY #$0028 LDA [$29],Y LDY #$002E CLC ADC [$29],Y PHA JSL L1500F5 PLX PLX STA [$2F] LDX #$0000 LDY #$0026 LDA #$0005 CMP [$3C],Y BNE L1F171D INX L1F171D PHX LDX #$0000 LDY #$0026 LDA #$0006 CMP [$3C],Y BNE L1F172C INX L1F172C TXA ORA $01,S PLX LSR BCS L1F1736 BRL L1F180D L1F1736 LDA #$0018 CLC ADC $29 LDX $2B BCC L1F1741 INX L1F1741 STA $05 STX $07 LDY #$0034 LDA [$29],Y BEQ L1F1754 LDA #$000C LDY #$002E STA [$29],Y L1F1754 LDY #$0032 LDA [$29],Y PHA LDY #$0028 LDA [$29],Y LDY #$002E CLC ADC [$29],Y JSL L150BEE PLA STA $2D LDY #$0034 LDA [$29],Y BNE L1F177D LDA $2D LDY #$002E SEC SBC [$29],Y STA $2D L1F177D LDY #$0004 LDA [$05],Y SEC SBC [$05] SEC SBC $2D PHA PEA $0003 JSL L1500F5 PLX PLX STA $2D PHY PEA $0000 PEI $2D JSL L072FA6 PLA STA $2D LDA $2D CLC ADC [$05] STA [$05] LDY #$0030 LDA [$29],Y PHA LDY #$002A LDA [$29],Y LDY #$002C CLC ADC [$29],Y JSL L150BEE PLA STA $2D LDY #$0006 LDA [$05],Y LDY #$0002 SEC SBC [$05],Y PHA LDA $2D LDY #$002C SEC SBC [$29],Y STA $2F PLA SEC SBC $2F PHA PEA $0002 JSL L1500F5 PLX PLX STA $2D PHY PEA $0000 PEI $2D JSL L072FA6 PLA STA $2D LDY #$0002 LDA $2D CLC ADC [$05],Y LDY #$0002 STA [$05],Y LDY #$0002 LDA #$FFFE AND [$05],Y LDY #$0002 STA [$05],Y L1F180D LDA #$0018 CLC ADC $29 LDX $2B BCC L1F1818 INX L1F1818 STA $01 STX $03 LDA #$0020 CLC ADC $29 LDX $2B BCC L1F1827 INX L1F1827 PHX PHA LDY #$0002 LDA [$01],Y PHA LDA [$01] PHA LDY #$0002 LDA [$01],Y LDY #$002A CLC ADC [$29],Y PHA LDY #$0028 LDA [$29],Y CLC ADC [$01] PHA JSL L15100B LDA $36 STA $3E LDA $35 STA $3D LDA $33 TCD TSC CLC ADC #$003C TCS RTL L1F185D ENT PHD TSC CLC ADC #$FFF4 TCS TCD STZ $05 STZ $07 PHY PHY PEA $0000 PEA $04A0 PEA $544E PEA $5250 PEA $0000 PEA $0000 JSL L07502A PLA STA $05 PLX STX $07 PHY PHY PEI $07 PEI $05 PEA $544E PEA $5250 PEA $0000 JSL L077624 PLA STA $01 PLX STX $03 LDA $01 ORA $03 BEQ L1F18C5 PEI $03 PEI $01 PEI $12 JSL L1F0000 PEI $07 PEI $05 PEA $544E PEA $5250 LDA L055051 EOR #$0001 PHA JSL L074B81 L1F18C5 LDA $05 LDX $07 STA $14 STX $16 LDA $10 STA $12 LDA $0F STA $11 LDA $0D TCD TSC CLC ADC #$0010 TCS RTL L1F18DF ENT PHD TSC CLC ADC #$FF98 TCS TCD LDA #$0001 STA $5F PEA $0000 JSL L1F0E0A STZ L055335 STZ L055333 LDA $6E ORA $70 BNE L1F197C STZ L055337 PHY PHY JSL L1F1F72 PLA STA $49 PLX STX $4B LDA $49 ORA $4B BEQ L1F1917 LDA #$0001 L1F1917 STA $61 LDA $61 BEQ L1F197A PHY PEI $4B PEI $49 JSL L0718FA PLA STA $5D LDY #$0002 LDA [$49],Y TAX LDA [$49] STA $51 STX $53 LDA $51 LDX $53 STA $15 STX $17 TDC CLC ADC #$0033 PEA $0000 PHA LDA #$009E CLC ADC $15 LDX $17 BCC L1F1951 INX L1F1951 PHX PHA LDY #$000E LDA [$15],Y JSL L150488 TAY BNE L1F1960 DEX L1F1960 DEC PEA $0000 PEA $000A JSL L150D50 PLA PLX JSL L150F53 PHX PHA PEA $000A JSL L0313BE L1F197A BRA L1F1992 L1F197C TDC CLC ADC #$0033 PEA $0000 PHA PEI $70 PEI $6E PEA $000A JSL L0313BE STZ $61 L1F1992 LDA #$0001 AND $72 BNE L1F199C BRL L1F1A44 L1F199C PHY JSL L1F12DB PLA LSR BCC L1F19AA STZ $5F BRL L1F1DB6 L1F19AA LDA L055327 LDX L055329 PHX PHA JSL L0718BF LDA L055327 LDX L055329 PHX PHA JSL L1510B9 PHY PHY JSL L150FF3 PLA STA $2F PLX STX $31 LDA #$0001 AND $31 BNE L1F19F9 LDA L055327 LDX L055329 STA $65 STX $67 LDY #$0002 LDA [$65],Y TAX LDA [$65] CLC ADC #$0018 BCC L1F19EE INX L1F19EE STA $11 STX $13 LDA #$0020 ORA [$11] STA [$11] L1F19F9 LDA $61 BEQ L1F1A28 LDA #$0012 CLC ADC $51 LDX $53 BCC L1F1A08 INX L1F1A08 PHX PHA LDA L055327 LDX L055329 STA $65 STX $67 LDY #$0002 LDA [$65],Y TAX LDA [$65] PHX PHA PEA $0000 PEA $008C JSL L070597 L1F1A28 LDA L055327 LDX L055329 PHX PHA JSL L07191C PHY LDA L055327 LDX L055329 PHX PHA JSL L1511B6 PLA STA $63 L1F1A44 LDA #$0006 AND $72 BNE L1F1A4E BRL L1F1C7C L1F1A4E LDA $35 LDX $37 STA $55 STX $57 LDA $61 BEQ L1F1A71 LDA $55 ORA $57 BNE L1F1A71 STZ $33 PHY PHY PEA $0000 JSL L1F185D PLA STA $55 PLX STX $57 L1F1A71 PHY PHY PEI $57 PEI $55 PEA $544E PEA $5250 PEA $0000 JSL L077624 PLA STA $45 PLX STX $47 LDA $45 ORA $47 BNE L1F1A93 BRL L1F1C3A L1F1A93 PHY PEI $47 PEI $45 JSL L0718FA PLA STA $5B LDY #$0002 LDA [$45],Y TAX LDA [$45] STA $4D STX $4F LDA #$0002 AND $72 BEQ L1F1ACF LDA #$0022 CLC ADC $4D LDX $4F BCC L1F1ABD INX L1F1ABD PHX PHA PEA ^L051EF0 PEA L051EF0 PEA $0000 PEA $01D4 JSL L070597 L1F1ACF LDA #$0004 AND $72 BNE L1F1AD9 BRL L1F1C07 L1F1AD9 PHY PHY PEA $0000 PEA $0380 PEA $07D9 JSL L1F0E37 PLA STA L055323 PLA STA L055325 LDA L055323 ORA L055325 BNE L1F1AFB BRL L1F1C05 L1F1AFB LDA L055323 LDX L055325 PHX PHA JSL L0718BF PHY PEA ^L051EF8 PEA L051EF8 JSL L1500E3 PLA LSR BCC L1F1B38 LDA L055323 LDX L055325 STA $65 STX $67 LDY #$0002 LDA [$65],Y TAX LDA [$65] CLC ADC #$0006 BCC L1F1B2F INX L1F1B2F STA $65 STX $67 LDA #$0080 STA [$65] L1F1B38 LDA #$0001 STA $59 L1F1B3D LDA L055323 LDX L055325 STA $65 STX $67 LDY #$0002 LDA [$65],Y TAX LDA [$65] PHX PHA LDA $59 JSL L150488 PEA $0000 PEA $001C JSL L150D50 PLA PLX JSL L150F53 STA $0D STX $0F LDA #$0006 CLC ADC $0D LDX $0F BCC L1F1B76 INX L1F1B76 PHX PHA LDA #$01F6 CLC ADC $4D LDX $4F BCC L1F1B83 INX L1F1B83 PHX PHA LDA $59 JSL L150488 TAY BNE L1F1B8F DEX L1F1B8F DEC PEA $0000 PEA $0016 JSL L150D50 PLA PLX JSL L150F53 PHX PHA PEA $0016 JSL L0313BE PHY LDA #$0006 CLC ADC $0D LDX $0F BCC L1F1BB5 INX L1F1BB5 CLC ADC #$0004 BCC L1F1BBC INX L1F1BBC PHX PHA JSL L1500E3 PLA LSR BCS L1F1BEB LDA #$0006 CLC ADC $0D LDX $0F BCC L1F1BD1 INX L1F1BD1 CLC ADC #$0004 BCC L1F1BD8 INX L1F1BD8 PHX PHA JSL L08273B LDY #$0006 LDA #$FF7F AND [$0D],Y LDY #$0006 STA [$0D],Y L1F1BEB LDA #$001F CMP $59 BEQ L1F1BF7 INC $59 BRL L1F1B3D L1F1BF7 LDA L055323 LDX L055325 PHX PHA JSL L07191C BRA L1F1C07 L1F1C05 STZ $5F L1F1C07 PEI $47 PEI $45 PEI $5B JSL L0718DA LDA $55 LDX $57 STA $35 STX $37 LDY #$0020 LDA [$4D],Y STA $33 PEI $57 PEI $55 PEA $544E PEA $5250 LDA L055051 EOR #$0001 AND L055335 PHA JSL L074B81 BRA L1F1C75 L1F1C3A LDA #$0002 AND $72 BEQ L1F1C4D PEA ^L051EF0 PEA L051EF0 PEI $33 JSL L1F0099 L1F1C4D LDA #$0004 AND $72 BEQ L1F1C75 PHY PHY PEA $0000 PEA $0380 PEA $03EE JSL L1F0E37 PLA STA L055323 PLA STA L055325 LDA L055323 ORA L055325 BNE L1F1C75 STZ $5F L1F1C75 LDA $5F BNE L1F1C7C BRL L1F1DB6 L1F1C7C LDA #$0018 AND $72 BNE L1F1C86 BRL L1F1DB6 L1F1C86 PHY PEI $72 JSL L1F111B PLA LSR BCC L1F1C96 STZ $5F BRL L1F1DB6 L1F1C96 TDC CLC ADC #$003D PEA $0000 PHA PEA ^L053259 PEA L053259 PEA $0008 JSL L0313BE PEI $3B PEI $39 PEA $0000 PEA $0000 LDA L0550FD LDX L0550FF PHX PHA TDC CLC ADC #$003D PEA $0000 PHA JSL L083523 TDC CLC ADC #$003D PEA $0000 PHA PEA $0000 PEA $0000 PEA $0240 PEA $0032 JSL L15100B LDA #L053239 LDX #^L053239 STA $19 STX $1B TDC CLC ADC #$003D STA $21 STZ $23 STZ $29 STZ $2B STZ $2D LDA #$0008 AND $72 BEQ L1F1D3E LDA L05532F LDX L055331 STA $65 STX $67 LDY #$0002 LDA [$65],Y TAX LDA [$65] STA $09 STX $0B LDA $09 LDX $0B STA $1D STX $1F LDA #$0010 CLC ADC $09 LDX $0B BCC L1F1D2D INX L1F1D2D STA $25 STX $27 TDC CLC ADC #$0019 PEA $0000 PHA JSL L150476 L1F1D3E LDA #$0010 AND $72 BEQ L1F1D97 LDA #$0032 STA $41 TDC CLC ADC #$003D PEA $0000 PHA PEA $0000 PEA $0032 JSL L1501AF LDA L05532B LDX L05532D STA $65 STX $67 LDY #$0002 LDA [$65],Y TAX LDA [$65] STA $05 STX $07 LDA $05 LDX $07 STA $1D STX $1F LDA #$0010 CLC ADC $05 LDX $07 BCC L1F1D86 INX L1F1D86 STA $25 STX $27 TDC CLC ADC #$0019 PEA $0000 PHA JSL L150476 L1F1D97 LDA L0550FD LDX L0550FF PHX PHA PEA $FFFF PEA ^L053259 PEA L053259 JSL L085B3C PEA ^L053259 PEA L053259 JSL L085216 L1F1DB6 LDA $61 BNE L1F1DBD BRL L1F1E88 L1F1DBD LDA $51 LDX $53 STA $01 STX $03 PHY TDC CLC ADC #$0033 PEA $0000 PHA LDA #$009E CLC ADC $01 LDX $03 BCC L1F1DDA INX L1F1DDA PHX PHA LDY #$000E LDA [$01],Y JSL L150488 TAY BNE L1F1DE9 DEX L1F1DE9 DEC PEA $0000 PEA $000A JSL L150D50 PLA PLX JSL L150F53 PHX PHA PEA $000A JSL L070A10 PLA LSR BCS L1F1E5B LDY #$0010 LDA [$01],Y BNE L1F1E18 LDY #$000E LDA [$01],Y LDY #$0010 STA [$01],Y L1F1E18 LDA #$009E CLC ADC $01 LDX $03 BCC L1F1E23 INX L1F1E23 PHX PHA LDY #$000E LDA [$01],Y JSL L150488 TAY BNE L1F1E32 DEX L1F1E32 DEC PEA $0000 PEA $000A JSL L150D50 PLA PLX JSL L150F53 PHX PHA TDC CLC ADC #$0033 PEA $0000 PHA PEA $000A JSL L0313BE LDA #$0001 STA L055337 L1F1E5B PEI $4B PEI $49 PEI $5D JSL L0718DA LDAL L053ADB PHA LDAL L053AD9 PHA PEA $5452 PEA $504D LDA L055051 EOR #$0001 AND L055337 PHA JSL L074B81 STZ L055337 BRA L1F1E9C L1F1E88 PEI $70 PEI $6E TDC CLC ADC #$0033 PEA $0000 PHA PEA $000A JSL L0313BE L1F1E9C LDA $5F STA $74 LDA $5F BNE L1F1EAA PEI $72 JSL L1F1EBC L1F1EAA LDA $6C STA $72 LDA $6B STA $71 LDA $69 TCD TSC CLC ADC #$0070 TCS RTL L1F1EBC ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA #$0001 AND $0A BEQ L1F1EE2 LDA L055327 ORA L055329 BEQ L1F1EE2 PEA $0002 LDA L055327 LDX L055329 PHX PHA JSL L150D44 L1F1EE2 LDA #$0002 AND $0A BEQ L1F1EE9 L1F1EE9 LDA #$0004 AND $0A BEQ L1F1EFC LDA L055323 LDX L055325 PHX PHA JSL L07185A L1F1EFC LDA #$0008 AND $0A BEQ L1F1F2F LDA L05532F ORA L055331 BEQ L1F1F2F LDA L05532F LDX L055331 STA $01 STX $03 LDY #$0002 LDA [$01],Y TAX LDA [$01] PHX PHA JSL L150260 LDA L05532F LDX L055331 PHX PHA JSL L07185A L1F1F2F LDA #$0010 AND $0A BEQ L1F1F62 LDA L05532B ORA L05532D BEQ L1F1F62 LDA L05532B LDX L05532D STA $01 STX $03 LDY #$0002 LDA [$01],Y TAX LDA [$01] PHX PHA JSL L150260 LDA L05532B LDX L05532D PHX PHA JSL L07185A L1F1F62 LDA $08 STA $0A LDA $07 STA $09 LDA $05 TCD PLY PLY PLY PLY RTL L1F1F72 ENT PHD TSC CLC ADC #$FFEA TCS TCD STZ $1C STZ $1E PHY PHY LDAL L053ADB PHA LDAL L053AD9 PHA PEA $5452 PEA $504D PEA $0000 JSL L077624 PLA STA $09 PLX STX $0B LDA $09 ORA $0B BNE L1F1FA6 BRL L1F205B L1F1FA6 LDY #$0002 LDA [$09],Y TAX LDA [$09] STA $05 STX $07 LDX #$0000 LDY #$000C LDA [$05],Y DEC DEC BEQ L1F1FBF INX L1F1FBF PHX LDA #$01E0 LDX #$0000 CMP [$05] BNE L1F1FD0 LDY #$0002 TXA CMP [$05],Y L1F1FD0 BNE L1F1FD7 LDA #$0000 BRA L1F1FDA L1F1FD7 LDA #$0001 L1F1FDA ORA $01,S PLX PHA LDY #$000E LDA [$05],Y PHA LDY #$0010 LDA [$05],Y STA $13 PLA SEC SBC $13 BEQ L1F1FF8 BVS L1F1FF6 EOR #$8000 L1F1FF6 BMI L1F1FFD L1F1FF8 LDA #$0000 BRA L1F2000 L1F1FFD LDA #$0001 L1F2000 ORA $01,S PLX PHA LDY #$000E LDA [$05],Y SEC SBC #$0001 BVS L1F2012 EOR #$8000 L1F2012 BPL L1F2019 LDA #$0000 BRA L1F201C L1F2019 LDA #$0001 L1F201C ORA $01,S PLX PHA LDY #$000E LDA [$05],Y SEC SBC #$0020 BEQ L1F2032 BVS L1F2030 EOR #$8000 L1F2030 BMI L1F2037 L1F2032 LDA #$0000 BRA L1F203A L1F2037 LDA #$0001 L1F203A ORA $01,S PLX LSR BCC L1F205B LDAL L053ADB PHA LDAL L053AD9 PHA PEA $5452 PEA $504D PEA $0000 JSL L074B81 STZ $09 STZ $0B L1F205B LDA $09 ORA $0B BEQ L1F2064 BRL L1F20ED L1F2064 PHY PHY PEA $0000 PEA $01DE PEA $5452 PEA $504D PEA $0000 PEA $0000 JSL L07502A PLA STA $0D PLX STX $0F PHY PHY PEI $0F PEI $0D PEA $5452 PEA $504D PEA $0000 JSL L077624 PLA STA $09 PLX STX $0B LDA $09 ORA $0B BNE L1F20A3 BRA L1F20F5 L1F20A3 LDA $0D LDX $0F STAL L053AD9 TXA STAL L053ADB LDY #$0002 LDA [$09],Y TAX LDA [$09] CLC ADC #$000C BCC L1F20BF INX L1F20BF PHX PHA PEA $0000 PEA $01D2 JSL L071EC5 LDY #$0002 LDA [$09],Y TAX LDA [$09] STA $01 STX $03 LDA #$0002 LDY #$000C STA [$01],Y LDA #$0001 LDY #$000E STA [$01],Y LDA #$0001 STA L055337 L1F20ED LDA $09 LDX $0B STA $1C STX $1E L1F20F5 TSC CLC ADC #$0016 TCS PLD RTL L1F20FD ENT PHD TSC CLC ADC #$FF9E TCS TCD LDA $68 ORA $6A BNE L1F2185 PHY PHY JSL L1F1F72 PLA STA $49 PLX STX $4B LDA $49 ORA $4B BEQ L1F2120 LDA #$0001 L1F2120 STA $5D LDA $5D BEQ L1F2183 PHY PEI $4B PEI $49 JSL L0718FA PLA STA $59 LDY #$0002 LDA [$49],Y TAX LDA [$49] STA $4D STX $4F LDA $4D LDX $4F STA $15 STX $17 TDC CLC ADC #$002F PEA $0000 PHA LDA #$009E CLC ADC $15 LDX $17 BCC L1F215A INX L1F215A PHX PHA LDY #$000E LDA [$15],Y JSL L150488 TAY BNE L1F2169 DEX L1F2169 DEC PEA $0000 PEA $000A JSL L150D50 PLA PLX JSL L150F53 PHX PHA PEA $000A JSL L0313BE L1F2183 BRA L1F219B L1F2185 TDC CLC ADC #$002F PEA $0000 PHA PEI $6A PEI $68 PEA $000A JSL L0313BE STZ $5D L1F219B LDA #$0001 AND $6C BEQ L1F21E2 LDA L055337 BEQ L1F21E2 LDA $5D BEQ L1F21E2 LDY #$0002 LDA [$49],Y TAX LDA [$49] STA $11 STX $13 LDA L055327 LDX L055329 STA $5F STX $61 LDY #$0002 LDA [$5F],Y TAX LDA [$5F] PHX PHA LDA #$0012 CLC ADC $11 LDX $13 BCC L1F21D6 INX L1F21D6 PHX PHA PEA $0000 PEA $008C JSL L070597 L1F21E2 LDA #$0006 AND $6C BNE L1F21EC BRL L1F235D L1F21EC LDA L055335 BNE L1F21F4 BRL L1F235D L1F21F4 LDA $31 LDX $33 STA $55 STX $57 LDA $5D BEQ L1F221F LDA $55 ORA $57 BNE L1F221F STZ $2F PHY PHY PEA $0000 JSL L1F185D PLA STA $55 PLX STX $57 LDA $55 LDX $57 STA $31 STX $33 L1F221F PHY PHY PEI $57 PEI $55 PEA $544E PEA $5250 PEA $0000 JSL L077624 PLA STA $45 PLX STX $47 LDA $45 ORA $47 BNE L1F2241 BRL L1F235D L1F2241 LDA #$0002 AND $6C BEQ L1F2269 PEA ^L051EF0 PEA L051EF0 LDY #$0002 LDA [$45],Y TAX LDA [$45] CLC ADC #$0022 BCC L1F225D INX L1F225D PHX PHA PEA $0000 PEA $01D4 JSL L070597 L1F2269 LDA #$0004 AND $6C BEQ L1F22E8 LDA #$0001 STA $5B L1F2275 LDY #$0002 LDA [$45],Y TAX LDA [$45] CLC ADC #$01F6 BCC L1F2284 INX L1F2284 PHX PHA LDA $5B JSL L150488 TAY BNE L1F2290 DEX L1F2290 DEC PEA $0000 PEA $0016 JSL L150D50 PLA PLX JSL L150F53 PHX PHA LDA L055323 LDX L055325 STA $5F STX $61 LDY #$0002 LDA [$5F],Y TAX LDA [$5F] PHX PHA LDA $5B JSL L150488 PEA $0000 PEA $001C JSL L150D50 PLA PLX JSL L150F53 CLC ADC #$0006 BCC L1F22D4 INX L1F22D4 PHX PHA PEA $0016 JSL L0313BE LDA #$001F CMP $5B BEQ L1F22E8 INC $5B BRA L1F2275 L1F22E8 LDA $5D BEQ L1F2345 LDA $4D LDX $4F STA $0D STX $0F LDY #$0010 LDA [$0D],Y BNE L1F2345 LDA #$0001 LDY #$0010 STA [$0D],Y LDA #$009E CLC ADC $0D LDX $0F BCC L1F230E INX L1F230E CLC ADC #$0002 BCC L1F2315 INX L1F2315 STA $5F STX $61 LDA $55 LDX $57 STA [$5F] TXA LDY #$0002 STA [$5F],Y LDY #$0002 LDA [$45],Y TAX LDA [$45] CLC ADC #$0020 BCC L1F2334 INX L1F2334 STA $5F STX $61 LDA [$5F] LDY #$009E STA [$0D],Y LDA #$0001 STA L055337 L1F2345 PEI $57 PEI $55 PEA $544E PEA $5250 LDA L055051 EOR #$0001 AND L055335 PHA JSL L074B81 L1F235D LDA #$0018 AND $6C BNE L1F2367 BRL L1F24B3 L1F2367 LDA L055051 EOR #$0001 AND L055333 BNE L1F2375 BRL L1F24B3 L1F2375 TDC CLC ADC #$0039 PEA $0000 PHA PEA ^L053259 PEA L053259 PEA $0008 JSL L0313BE PEI $37 PEI $35 PEA $0000 PEA $0000 LDA L0550FD LDX L0550FF PHX PHA TDC CLC ADC #$0039 PEA $0000 PHA JSL L083523 TDC CLC ADC #$0041 PEA $0000 PHA PEA $0000 PEA $0000 JSL L151355 LDA #L053239 LDX #^L053239 STA $1D STX $1F TDC CLC ADC #$0041 STA $25 STZ $27 STZ $29 STZ $2B STZ $2D LDA #$0008 AND $6C BEQ L1F2417 LDA L05532F LDX L055331 STA $5F STX $61 LDY #$0002 LDA [$5F],Y TAX LDA [$5F] STA $09 STX $0B LDA $09 LDX $0B STA $19 STX $1B LDA #$0010 CLC ADC $09 LDX $0B BCC L1F2406 INX L1F2406 STA $21 STX $23 TDC CLC ADC #$0019 PEA $0000 PHA JSL L150476 L1F2417 LDA #$0010 AND $6C BEQ L1F245D LDA #$0032 STA $41 LDA L05532B LDX L05532D STA $5F STX $61 LDY #$0002 LDA [$5F],Y TAX LDA [$5F] STA $05 STX $07 LDA $05 LDX $07 STA $19 STX $1B LDA #$0010 CLC ADC $05 LDX $07 BCC L1F244C INX L1F244C STA $21 STX $23 TDC CLC ADC #$0019 PEA $0000 PHA JSL L150476 L1F245D LDA $35 LDX $37 STA $51 STX $53 PHY PHY PEA $0000 PEA $0000 LDA L0550FD LDX L0550FF PHX PHA PEI $53 PEI $51 JSL L08337F PLA STA $35 PLX STX $37 LDA $35 ORA $37 BEQ L1F2491 LDA #$0004 CLC ADC $2F STA $2F L1F2491 LDA L0550FD LDX L0550FF PHX PHA PEA $FFFF PEA ^L053259 PEA L053259 JSL L085B3C PEA ^L053259 PEA L053259 JSL L085216 STZ L055333 L1F24B3 LDA $5D BNE L1F24BA BRL L1F2574 L1F24BA LDA $4D LDX $4F STA $01 STX $03 PHY TDC CLC ADC #$002F PEA $0000 PHA LDA #$009E CLC ADC $01 LDX $03 BCC L1F24D7 INX L1F24D7 PHX PHA LDY #$000E LDA [$01],Y JSL L150488 TAY BNE L1F24E6 DEX L1F24E6 DEC PEA $0000 PEA $000A JSL L150D50 PLA PLX JSL L150F53 PHX PHA PEA $000A JSL L070A10 PLA LSR BCS L1F2547 LDA #$009E CLC ADC $01 LDX $03 BCC L1F250F INX L1F250F PHX PHA LDY #$000E LDA [$01],Y JSL L150488 TAY BNE L1F251E DEX L1F251E DEC PEA $0000 PEA $000A JSL L150D50 PLA PLX JSL L150F53 PHX PHA TDC CLC ADC #$002F PEA $0000 PHA PEA $000A JSL L0313BE LDA #$0001 STA L055337 L1F2547 PEI $4B PEI $49 PEI $59 JSL L0718DA LDAL L053ADB PHA LDAL L053AD9 PHA PEA $5452 PEA $504D LDA L055051 EOR #$0001 AND L055337 PHA JSL L074B81 STZ L055337 BRA L1F2588 L1F2574 PEI $6A PEI $68 TDC CLC ADC #$002F PEA $0000 PHA PEA $000A JSL L0313BE L1F2588 PEI $6C JSL L1F1EBC LDA $66 STA $6C LDA $65 STA $6B LDA $63 TCD TSC CLC ADC #$006A TCS RTL L1F25A0 ENT PHD TSC CLC ADC #$FFFA TCS TCD PHY JSL L073CDF PLA STA $01 STZ $10 PHY PEA ^L040827 PEA L040827 JSL L1F0F4A PLA LSR BCS L1F25C3 BRA L1F25E8 L1F25C3 PHY JSL L1F27B5 PLA LSR BCS L1F25CE BRA L1F25E8 L1F25CE PHY PEI $0E PEI $0C JSL L16095E PLA STA $10 PEA ^L16095E PEA L16095E JSL L07187A JSL L1F2B4D L1F25E8 PEI $01 JSL L0724F7 LDA $0A STA $0E LDA $09 STA $0D LDA $07 TCD TSC CLC ADC #$000C TCS RTL L1F2600 ENT PHD TSC CLC ADC #$FFF4 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PHY PHY LDA L055341 LDX L055343 PHX PHA PEA $0004 JSL L073032 PEA $0008 JSL L0313BE TDC CLC ADC #$0001 PEA $0000 PHA JSL L15123D TDC CLC ADC #$0001 PEA $0000 PHA PHY PHY LDA L055341 LDX L055343 PHX PHA PEA $0003 JSL L073032 PEA $0008 JSL L0313BE PEI $03 PEI $05 JSL L1510C5 TDC CLC ADC #$0001 PEA $0000 PHA JSL L15123D PHY PHY PEA $0858 JSL L0711EB JSL L150592 LDA $10 STA $14 LDA $0F STA $13 LDA $0D TCD TSC CLC ADC #$0012 TCS RTL L1F268B ENT PHD TSC CLC ADC #$FFE6 TCS TCD PHY JSL L071BFF PLA STA $11 JSL L072328 LDA L055341 ORA L055343 BEQ L1F26AA LDA #$0001 L1F26AA STA $15 LDA $15 BEQ L1F26C8 PHY PHY JSL L150493 PLA STA $05 PLX STX $07 LDA L055341 LDX L055343 PHX PHA JSL L151131 L1F26C8 LDA $15 BNE L1F26CF BRL L1F279B L1F26CF PHY PEA $0002 PEA ^L052D64 PEA L052D64 JSL L150070 PLA LSR BCS L1F26E4 BRL L1F279B L1F26E4 LDAL L052D70 TAX LDAL L052D6E STA $0D STX $0F L1F26F1 PHY PEA $0004 PEA ^L052D64 PEA L052D64 JSL L151017 PLA LSR BCC L1F2716 PHY PEA $0006 PEA ^L052D64 PEA L052D64 JSL L150070 PLA STA $15 BRA L1F26F1 L1F2716 PHY TDC CLC ADC #$0009 PEA $0000 PHA PEI $0F PEI $0D JSL L150B9A PLA CMP #$0013 BNE L1F279B LDA L055341 LDX L055343 CMP $09 BNE L1F273A CPX $0B L1F273A BNE L1F279B PHY TDC CLC ADC #$0001 PEA $0000 PHA PEI $0F PEI $0D LDA L055341 LDX L055343 PHX PHA JSL L150482 PLA CMP #$0002 BNE L1F279B PEA $0004 JSL L0724F7 PHY PEI $0F PEI $0D PEA $0000 PEA $0000 PEI $03 PEI $01 JSL L150B0A PLA CMP #$0002 BNE L1F2797 PEA $0080 JSL L1F0E0A PEA $0000 PHD JSL L1F2600 PEA ^L040831 PEA L040831 JSL L0B2D94 BRA L1F279B L1F2797 JSL L072328 L1F279B LDA $15 BEQ L1F27A7 PEI $07 PEI $05 JSL L151131 L1F27A7 PEI $11 JSL L071AA4 TSC CLC ADC #$001A TCS PLD RTL L1F27B5 PHD TSC CLC ADC #$FFFC TCS TCD STZ $0A LDA L055345 BEQ L1F27CB LDA #$0001 STA $0A BRA L1F2801 L1F27CB PEA $0013 PEA $0000 JSL L151337 LDAL L05565D BNE L1F27E7 LDA L0551B7 PHA LDA L055347 PHA JSL L15066B L1F27E7 LDAL L05565D BEQ L1F27F6 PEA $0852 JSL L0727E0 BRA L1F2801 L1F27F6 LDA #$0001 STA L055345 LDA #$0001 STA $0A L1F2801 PLY PLY PLD RTL L1F2805 ENT PHD TSC CLC ADC #$FFFA TCS TCD PHY JSL L073CDF PLA STA $01 STZ $0E PHY PEA ^L040838 PEA L040838 JSL L1F0F4A PLA LSR BCS L1F2828 BRA L1F284B L1F2828 PHY JSL L1F27B5 PLA LSR BCS L1F2833 BRA L1F284B L1F2833 PHY PEI $0C JSL L16096C PLA STA $0E PEA ^L16096C PEA L16096C JSL L07187A JSL L1F2B4D L1F284B PEI $01 JSL L0724F7 LDA $0A STA $0C LDA $09 STA $0B LDA $07 TCD PLY PLY PLY PLY PLY RTL L1F2862 PHD TSC CLC ADC #$FFFA TCS TCD PHY PEA ^L040842 PEA L040842 JSL L1F0F4A PLA LSR BCC L1F28BB LDX #$0000 LDY #$0010 LDA #$0002 AND [$0C],Y CMP #$0000 BEQ L1F288A INX L1F288A TXA STA $01 LDA #$0012 CLC ADC $0C LDX $0E BCC L1F2898 INX L1F2898 STA $03 STX $05 PHY LDY #$000E LDA [$0C],Y PHA DEY DEY LDA [$0C],Y PHA PEI $01 JSL L16097A PLA STA [$03] PEA ^L16097A PEA L16097A JSL L07187A L1F28BB LDA $0A STA $0E LDA $09 STA $0D LDA $07 TCD TSC CLC ADC #$000C TCS RTL L1F28CD ENT PHD TSC CLC ADC #$FFFA TCS TCD PHY JSL L073CDF PLA STA $01 STZ $12 PHY JSL L1F27B5 PLA LSR BCS L1F28EB BRL L1F2969 L1F28EB LDA $10 DEC DEC BMI L1F2969 CMP #$00C1 BPL L1F2969 SEC SBC #$0000 BEQ L1F2910 SEC SBC #$003F BEQ L1F295F DEC BEQ L1F295F SEC SBC #$007F BEQ L1F2933 DEC BEQ L1F2933 BRA L1F2969 L1F2910 PHY PEA ^L04084C PEA L04084C JSL L1F0F4A PLA LSR BCC L1F2931 PHY JSL L160988 PLA STA $12 PEA ^L160988 PEA L160988 JSL L07187A L1F2931 BRA L1F2969 L1F2933 PHY PEA ^L040856 PEA L040856 JSL L1F0F4A PLA LSR BCC L1F295D PHY JSL L160996 PLA LSR BCC L1F2953 PEA $0000 PHD JSL L1F2862 L1F2953 PEA ^L160996 PEA L160996 JSL L07187A L1F295D BRA L1F2969 L1F295F PEA $0000 PHD JSL L1F2862 BRA L1F2969 L1F2969 JSL L1F2B4D PEI $01 JSL L0724F7 LDA $0A STA $10 LDA $09 STA $0F LDA $07 TCD TSC CLC ADC #$000E TCS RTL L1F2985 ENT PHD TSC CLC ADC #$FFF8 TCS TCD PHY JSL L0727BF PLA STA $03 STZ $10 PHY JSL L1F27B5 PLA LSR BCC L1F2A01 LDA $0E SEC SBC #$0081 BMI L1F2A01 CMP #$0042 BPL L1F2A01 SEC SBC #$0000 BEQ L1F29BB SEC SBC #$0041 BEQ L1F29DE BRA L1F2A01 L1F29BB PHY PEA ^L040861 PEA L040861 JSL L1F0F4A PLA LSR BCC L1F29DC PHY JSL L1609A4 PLA STA $10 PEA ^L1609A4 PEA L1609A4 JSL L07187A L1F29DC BRA L1F2A01 L1F29DE PHY PEA ^L04086B PEA L04086B JSL L1F0F4A PLA LSR BCC L1F29FF PHY JSL L160996 PLA STA $10 PEA ^L160996 PEA L160996 JSL L07187A L1F29FF BRA L1F2A01 L1F2A01 JSL L1F2B4D PEI $03 JSL L0724F7 LDA $0C STA $0E LDA $0B STA $0D LDA $09 TCD TSC CLC ADC #$000C TCS RTL L1F2A1D ENT PHD TSC CLC ADC #$FFFA TCS TCD PHY JSL L073CDF PLA STA $01 STZ $1A PHY PEA ^L040876 PEA L040876 JSL L1F0F4A PLA LSR BCS L1F2A40 BRA L1F2ABC L1F2A40 PHY JSL L1F27B5 PLA LSR BCS L1F2A4B BRA L1F2ABC L1F2A4B PHY PEA $0001 PEA $0000 PEA $0000 JSL L1F18DF PLA LSR BCC L1F2AA7 LDA $18 SEC SBC #$0022 BMI L1F2AA7 CMP #$0002 BPL L1F2AA7 SEC SBC #$0000 BEQ L1F2A75 DEC BEQ L1F2A8E BRA L1F2AA7 L1F2A75 PHY PEI $16 PEI $14 PEI $12 PEI $10 PEI $0E PEI $0C PEA $0000 JSL L1609B2 PLA STA $1A BRA L1F2AA7 L1F2A8E PHY PEI $16 PEI $14 PEI $12 PEI $10 PEI $0E PEI $0C PEA $0001 JSL L1609B2 PLA STA $1A BRA L1F2AA7 L1F2AA7 PEA $0001 JSL L1F1EBC PEA ^L1609B2 PEA L1609B2 JSL L07187A JSL L1F2B4D L1F2ABC PEI $01 JSL L0724F7 LDA $0A STA $18 LDA $09 STA $17 LDA $07 TCD TSC CLC ADC #$0016 TCS RTL L1F2AD4 ENT PHD TSC CLC ADC #$FFE6 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $22 PEI $20 PEA $0014 JSL L0313BE PHY JSL L073CDF PLA STA $15 STZ $24 PHY PEA ^L040880 PEA L040880 JSL L1F0F4A PLA LSR BCS L1F2B0B BRA L1F2B35 L1F2B0B PHY JSL L1F27B5 PLA LSR BCS L1F2B16 BRA L1F2B35 L1F2B16 PHY TDC CLC ADC #$0001 PEA $0000 PHA JSL L1609C0 PLA STA $24 PEA ^L1609C0 PEA L1609C0 JSL L07187A JSL L1F2B4D L1F2B35 PEI $15 JSL L0724F7 LDA $1E STA $22 LDA $1D STA $21 LDA $1B TCD TSC CLC ADC #$0020 TCS RTL L1F2B4D PHD TSC CLC ADC #$FFFA TCS TCD LDA L055345 AND L05510D BNE L1F2B5F BRA L1F2B78 L1F2B5F JSL L1506E7 PEA $0013 JSL L151331 PEA $4013 JSL L15000C JSL L15059E STZ L055345 L1F2B78 PLY PLY PLY PLD RTL