* * HypercardGS * segment: $08 HyperGrx * * (k) 2015, Brutal Deluxe Software * mx %00 rel dsk HyperGrx.l lst off *--------------------------------------- use HyperGrx.E use HyperGrx.X use 4/Ctl.Macs use 4/Desk.Macs use 4/Dialog.Macs use 4/Event.Macs use 4/Font.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/QdAux.Macs use 4/Resource.Macs use 4/Sound.Macs use 4/Std.Macs use 4/Text.Macs use 4/TextEdit.Macs use 4/Util.Macs use 4/Window.Macs *--------------------------------------- L080000 PHB PHD PHY PHY TSC TCD LDA $0D AND #$000F STA $01 ASL ASL ASL ADC $01 STA $01 LDA #$FFF5 SEC SBC $01 STAL L0800E1+1 LDA $0D LSR LSR LSR LSR STA $03 SEC LDA $15 SBC $11 STA $15 BCS L080031 DEC $17 L080031 SEC LDA $19 SBC $11 STA $19 BCS L08003C DEC $1B L08003C LDY $11 PEI $12 PLB PLB L080042 LDX $03 BNE L080049 BRL L0800E1 L080049 LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY LDA [$15],Y ORA [$19],Y STA |$0000,Y INY INY DEX BMI L0800E4 BEQ L0800E1 BRL L080049 L0800E1 BRL L0800E1 L0800E4 DEC $0F BEQ L0800F0 TYA CLC ADC $0B TAY BRL L080042 L0800F0 LDA $09 STA $1B LDA $07 STA $19 LDX $05 TDC CLC ADC #$0018 TCS TXA TCD PLB RTL L080104 PHB PHD PHY PHY TSC TCD LDA $0D AND #$000F STA $01 ASL ASL ADC $01 ASL ADC $01 STA $01 LDA #$FFF5 SEC SBC $01 STAL L080212+1 LDA $0D LSR LSR LSR LSR STA $03 SEC LDA $19 SBC $11 STA $19 BCS L080137 DEC $1B L080137 SEC LDA $15 SBC $11 STA $15 BCS L080142 DEC $17 L080142 SEC LDA $1D SBC $11 STA $1D BCS L08014D DEC $1F L08014D LDY $11 PEI $12 PLB PLB L080153 LDX $03 BNE L08015A BRL L080212 L08015A LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA [$1D],Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY DEX BMI L080215 BEQ L080212 BRL L08015A L080212 BRL L080212 L080215 DEC $0F BEQ L080221 TYA CLC ADC $0B TAY BRL L080153 L080221 LDA $09 STA $1F LDA $07 STA $1D LDX $05 TDC CLC ADC #$001C TCS TXA TCD PLB RTL L080235 PHB PHD PHY PHY TSC TCD LDA $0D AND #$000F STA $01 ASL ADC $01 ASL ASL STA $01 LDA #$FFF5 SEC SBC $01 STAL L080346+1 LDA $0D LSR LSR LSR LSR STA $03 SEC LDA $19 SBC $11 STA $19 BCS L080266 DEC $1B L080266 SEC LDA $15 SBC $11 STA $15 BCS L080271 DEC $17 L080271 LDY $11 PEI $12 PLB PLB L080277 LDX $03 BNE L08027E BRL L080346 L08027E LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY LDA |$0000,Y ORA [$19],Y AND [$15],Y STA |$0000,Y INY INY DEX BMI L080349 BEQ L080346 BRL L08027E L080346 BRL L080346 L080349 DEC $0F BEQ L080355 TYA CLC ADC $0B TAY BRL L080277 L080355 LDA $09 STA $1B LDA $07 STA $19 LDX $05 TDC CLC ADC #$0018 TCS TXA TCD PLB RTL L080369 PHB PHD PHY PHY PHY TSC TCD LDA $0F AND #$000F STA $01 ASL ASL ADC $01 ASL ADC $01 STA $01 LDA #$FFF4 SEC SBC $01 STAL L080468+1 LDA $0F LSR LSR LSR LSR STA $03 SEC LDA $17 SBC $13 STA $17 BCS L08039D DEC $19 L08039D LDY $13 PEI $14 PLB PLB LDX #$FFFF L0803A6 LDA $03 STA $05 BNE L0803AF BRL L080468 L0803AF TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY TXA EOR [$17],Y AND |$0000,Y STA |$0000,Y INY INY DEC $05 BMI L08046B BEQ L080468 BRL L0803AF L080468 BRL L080468 L08046B DEC $11 BEQ L080477 TYA CLC ADC $0D TAY BRL L0803A6 L080477 LDA $0B STA $19 LDA $09 STA $17 LDX $07 TDC CLC ADC #$0016 TCS TXA TCD PLB RTL L08048B PHB PHD PHY PHY TSC TCD LDA $0D AND #$000F STA $01 ASL ADC $01 ASL ADC $01 STA $01 LDA #$FFF5 SEC SBC $01 STAL L080542+1 LDA $0D LSR LSR LSR LSR STA $03 SEC LDA $15 SBC $11 STA $15 BCS L0804BD DEC $17 L0804BD LDY $11 PEI $12 PLB PLB L0804C3 LDX $03 BNE L0804CA BRL L080542 L0804CA LDA [$15],Y STA |$0000,Y INY INY LDA [$15],Y STA |$0000,Y INY INY LDA [$15],Y STA |$0000,Y INY INY LDA [$15],Y STA |$0000,Y INY INY LDA [$15],Y STA |$0000,Y INY INY LDA [$15],Y STA |$0000,Y INY INY LDA [$15],Y STA |$0000,Y INY INY LDA [$15],Y STA |$0000,Y INY INY LDA [$15],Y STA |$0000,Y INY INY LDA [$15],Y STA |$0000,Y INY INY LDA [$15],Y STA |$0000,Y INY INY LDA [$15],Y STA |$0000,Y INY INY LDA [$15],Y STA |$0000,Y INY INY LDA [$15],Y STA |$0000,Y INY INY LDA [$15],Y STA |$0000,Y INY INY LDA [$15],Y STA |$0000,Y INY INY DEX BMI L080545 BEQ L080542 BRL L0804CA L080542 BRL L080542 L080545 DEC $0F BEQ L080551 TYA CLC ADC $0B TAY BRL L0804C3 L080551 LDA $09 STA $17 LDA $07 STA $15 LDX $05 TDC CLC ADC #$0014 TCS TXA TCD PLB RTL L080565 PHB PHD PHY PHY TSC TCD LDA $0D AND #$001F STA $01 ASL ADC $01 STA $01 LDA #$FFED SEC SBC $01 STAL L080619+1 LDA $0D LSR LSR LSR LSR LSR STA $03 LDA $0D ASL AND #$FFC0 STA $01 LDA #$0060 SEC SBC $01 STA $0B LDY $13 PEI $14 PLB PLB L0805A0 LDX $03 BNE L0805A7 BRL L080617 L0805A7 LDA $11 STA |$003E,Y STA |$003C,Y STA |$003A,Y STA |$0038,Y STA |$0036,Y STA |$0034,Y STA |$0032,Y STA |$0030,Y STA |$002E,Y STA |$002C,Y STA |$002A,Y STA |$0028,Y STA |$0026,Y STA |$0024,Y STA |$0022,Y STA |$0020,Y STA |$001E,Y STA |$001C,Y STA |$001A,Y STA |$0018,Y STA |$0016,Y STA |$0014,Y STA |$0012,Y STA |$0010,Y STA |$000E,Y STA |$000C,Y STA |$000A,Y STA |$0008,Y STA |$0006,Y STA |$0004,Y STA |$0002,Y STA |$0000,Y TYA CLC ADC #$0040 TAY DEX BMI L08061C BEQ L080617 BRL L0805A7 L080617 LDA $11 L080619 BRL L080617 L08061C DEC $0F BEQ L080628 TYA CLC ADC $0B TAY BRL L0805A0 L080628 LDA $09 STA $15 LDA $07 STA $13 LDX $05 TDC CLC ADC #$0012 TCS TXA TCD PLB RTL L08063C PHD TSC TCD STZ $0C STZ $0A LDY #$7CFE L080646 LDA [$06],Y INC BEQ L080678 DEC BNE L080658 LDA $0A CLC ADC #$0004 STA $0A BRA L080678 L080658 TAX AND #$F000 BNE L080660 INC $0A L080660 TXA AND #$0F00 BNE L080668 INC $0A L080668 TXA AND #$00F0 BNE L080670 INC $0A L080670 TXA AND #$000F BNE L080678 INC $0A L080678 DEY DEY BPL L080646 LDA $04 STA $08 LDA $03 STA $07 TDC TCS PLD PLY PLY RTL L08068A PHD TSC TCD LDY $06 DEY DEY LDX #$0000 L080694 LDA [$0C],Y CMP [$08],Y BEQ L08069B INX L08069B DEY DEY BPL L080694 STX $10 LDA $04 STA $0E LDA $03 STA $0D TDC TCS PLD CLC ADC #$000C TCS RTL L0806B2 PHD TSC TCD LDY $06 DEY DEY LDX #$0000 L0806BC LDA [$08],Y BEQ L0806C1 INX L0806C1 DEY DEY BPL L0806BC STX $0C LDA $04 STA $0A LDA $03 STA $09 TDC TCS PLD PLY PLY PLY RTL L0806D6 PHD TSC SEC SBC #$0012 TCD TCS LDA [$1A] STA $01 LDY #$0002 LDA [$1A],Y STA $03 STA L0550A3 LDY #$0002 LDA [$01],Y STA L052F3F LDY #$0006 LDA [$01],Y STA L052F43 ORA L052F3F BNE L080704 BRL L0808A5 L080704 STZ L052F41 LDA #$0280 STA L052F45 LDX #^L052E9F LDA #L052E9F STA $05 STX $07 LDA #$0007 STA $09 L08071C LDA $01 STA L0550A1 LDA $03 STA L0550A3 JSL L081BAC LDA L052F3F STA $0B JSL L082758 STA $0D L080735 LDA $0B CMP L05509D BCC L080743 STA L05509F JSL L0825D4 L080743 LDA $09 ASL TAX LDA $0B CLC ADCL L0808B8,X AND #$0007 ASL TAX LDAL L0808B8,X STA $11 CLC ADC $0D TAX LDA L05509B BPL L080765 BRL L08087E L080765 BEQ L08076A BRL L08081F L08076A PHB PEI $1F PLB PLB LDY $11 LDA #$0003 STA $0F CLC L080777 LDA #$0000 SEP #$20 LDA [$05],Y BNE L080785 LDA |$0000,X BRA L080791 L080785 LDAL $E12000,X EOR |$0000,X AND [$05],Y EOR |$0000,X L080791 STAL $E12000,X TYA ADC #$08 TAY LDA [$05],Y BNE L0807A2 LDA |$0008,X BRA L0807AE L0807A2 LDAL $E12008,X EOR |$0008,X AND [$05],Y EOR |$0008,X L0807AE STAL $E12008,X TYA ADC #$08 TAY LDA [$05],Y BNE L0807BF LDA |$0010,X BRA L0807CB L0807BF LDAL $E12010,X EOR |$0010,X AND [$05],Y EOR |$0010,X L0807CB STAL $E12010,X TYA ADC #$08 TAY LDA [$05],Y BNE L0807DC LDA |$0018,X BRA L0807E8 L0807DC LDAL $E12018,X EOR |$0018,X AND [$05],Y EOR |$0018,X L0807E8 STAL $E12018,X TYA ADC #$08 TAY LDA [$05],Y BNE L0807F9 LDA |$0020,X BRA L080805 L0807F9 LDAL $E12020,X EOR |$0020,X AND [$05],Y EOR |$0020,X L080805 STAL $E12020,X TYA ADC #$08 TAY REP #$20 TXA ADC #$0028 TAX DEC $0F BMI L08081B BRL L080777 L08081B PLB BRL L08087E L08081F PHB PEI $1F PLB PLB LDY #$0001 L080827 SEP #$20 LDA |$0000,X L08082C STAL $E12000,X LDA |$0008,X STAL $E12008,X LDA |$0010,X STAL $E12010,X LDA |$0018,X STAL $E12018,X LDA |$0020,X STAL $E12020,X LDA |$0028,X STAL $E12028,X LDA |$0030,X STAL $E12030,X LDA |$0038,X STAL $E12038,X LDA |$0040,X STAL $E12040,X LDA |$0048,X STAL $E12048,X REP #$20 TXA CLC ADC #$0050 TAX DEY BPL L080827 PLB BRL L08087E L08087E LDA $0D CLC ADC #$00A0 STA $0D INC $0B LDA $0B CMP L052F43 BEQ L080892 BRL L080735 L080892 DEC $09 BMI L0808A5 LDA $18 CMP #$0002 BCC L0808A2 PHA JSL L0706CF L0808A2 BRL L08071C L0808A5 LDA $16 STA $20 LDA $15 STA $1F LDX $13 TDC CLC ADC #$001E TCS TXA TCD RTL L0808B8 DW $0000 DW $0002 DW $0006 DW $0003 DW $0007 DW $0005 DW $0001 DW $0004 L0808C8 ENT ADRL L080785+3 DW $001D DW $0005 L0808D0 ENT ADRL L080791+3 DW $001D DW $0005 L0808D8 ENT ADRL L08082C+3 DW $0007 DW $000A L0808E0 ENT PHD TSC TCD LDY #$0006 LDA [$0A],Y ASL STA [$06],Y DEY DEY LDA [$0A],Y STA [$06],Y DEY DEY LDA [$0A],Y ASL STA [$06],Y LDA [$0A] STA [$06] LDA $04 STA $0C LDA $03 STA $0B TDC TCS PLD PLY PLY PLY PLY RTL L08090C ENT PHD TSC SEC SBC #$001C TCD TCS STZ $30 LDA [$2C] AND #$00FF BNE L080920 BRL L080A4B L080920 PHA PHA _GetPort PLA STA $11 PLA STA $13 LDY #$007A LDA [$11],Y PHA DEY DEY LDA [$11],Y PHA JSL L087547 TDC CLC ADC #$0015 PEA $0000 PHA _GetFontInfo LDY #$0002 LDA [$28],Y STA $01 LDA [$28] CLC ADC $24 SEC SBC $17 STA $03 LDY #$0006 LDA [$28],Y LDY #$0002 SEC SBC [$28],Y STA $05 LDX $22 BEQ L0809AC L080970 LDA [$2C] AND #$00FF BNE L08097A BRL L080A35 L08097A PHX PEI $2E PEI $2C PEI $05 TDC CLC ADC #$000B PEA $0000 PHA TDC CLC ADC #$0009 PEA $0000 PHA JSL L081B04 LDA $2C CLC ADC $0B STA $2C BCC L0809A2 INC $2E L0809A2 INC $30 BCC L0809A8 INC $31 L0809A8 PLX DEX BNE L080970 L0809AC LDY #$0004 LDA [$28],Y CLC ADC $24 INC STA $07 L0809B7 LDA [$2C] AND #$00FF BNE L0809C1 BRL L080A35 L0809C1 PEI $01 PEI $03 _MoveTo PEI $2E PEI $2C PEI $05 TDC CLC ADC #$000B PEA $0000 PHA TDC CLC ADC #$0009 PEA $0000 PHA JSL L081B04 JSR L080A5E LDA $2C CLC ADC $0B STA $2C BCC L0809F6 INC $2E L0809F6 INC $30 LDA $03 CLC ADC $24 STA $03 CMP $07 BCC L0809B7 L080A03 LDA [$2C] AND #$00FF BEQ L080A35 PEI $2E PEI $2C PEI $05 TDC CLC ADC #$000B PEA $0000 PHA TDC CLC ADC #$0009 PEA $0000 PHA JSL L081B04 LDA $2C CLC ADC $0B STA $2C BCC L080A31 INC $2E L080A31 INC $30 BRA L080A03 L080A35 LDA $2C DEC CMP #$FFFF BNE L080A3F DEC $2E L080A3F LDA [$2C] AND #$00FF CMP #$000D BNE L080A4B INC $30 L080A4B LDA $20 STA $2E LDA $1F STA $2D LDX $1D TDC CLC ADC #$002C TCS TXA TCD RTL L080A5E LDY $26 BEQ L080A80 LDA $05 SEC SBC $09 INY BEQ L080A6B LSR L080A6B PHA PHA PEA $0000 PEI $05 JSL L071A1B PEA $0000 _Move L080A80 PEI $2E PEI $2C PEI $0B _DrawText RTS L080A8E PHD TSC SEC SBC #$0060 TCD TCS _PenNormal PEA $0002 PEA $0001 _SetPenSize PHA LDY #$0023 LDA #$00FF AND [$72],Y PHA JSL L081A92 PLA STA $17 LDY #$000E LDA [$72],Y STA $21 AND #$000F STA $19 CMP #$0005 BCC L080AD3 LDA #$FFFF STA $15 BRA L080AE9 L080AD3 PHA LDY #$0014 LDA #$000F SEP #$20 SEC SBC [$72],Y REP #$20 PHA JSL L081A92 PLA STA $15 L080AE9 LDY #$0010 LDA [$72],Y STA $25 INY INY LDA [$72],Y STA $27 LDY #$0002 LDA [$72],Y LDY $70 BNE L080B03 EOR #$FFFF INC L080B03 PHY PEI $6E PEI $6C PEI $6A PEI $68 PHA JSL L07A609 PLA STA $1F LDY #$000C LDA [$72],Y ASL STA $4F STA $57 TAX DEY DEY LDA [$72],Y STA $4D STA $55 DEY DEY LDA [$72],Y ASL STA $4B STA $53 DEY DEY LDA [$72],Y STA $49 STA $51 CLC ADC $4D STA $0B TXA CLC ADC $4B CMP #$8000 ROR STA $09 STZ $23 LDA $66 DEC DEC BEQ L080B6E INC $23 PHY LDY #$0022 LDA #$00FF AND [$72],Y PHA JSL L081A92 PLA STA $13 LDA $1F BEQ L080B6A LDA $17 BRA L080B73 L080B6A LDA $15 BRA L080B73 L080B6E LDA #$FFFF STA $13 L080B73 STA $11 LDA $19 BPL L080B7C BRL L081110 L080B7C CMP #$0007 BCC L080B84 BRL L081110 L080B84 ASL TAX LDAL L080B8C,X PHA RTS L080B8C DA L080B9A-1 DA L080BF3-1 DA L080C2F-1 DA L080C5C-1 DA L080C9A-1 DA L080D0A-1 DA L080DA6-1 L080B9A LDA $15 CMP #$FFFF BNE L080BAB LDA $1F BEQ L080BDB LDA $25 ORA $27 BNE L080BDB L080BAB LDA $1F BEQ L080BB4 PEA $0002 BRA L080BB7 L080BB4 PEA $8003 L080BB7 _SetPenMode PEI $15 JSL L081DD8 TDC CLC ADC #$0049 PEA $0000 PHA _PaintRect _PenNormal L080BDB LDA L05514D BEQ L080BF0 TDC CLC ADC #$0049 PEA $0000 PHA _FrameRect L080BF0 BRL L080E3B L080BF3 PEI $11 JSL L081DD8 TDC CLC ADC #$0049 PEA $0000 PHA _PaintRect LDA L05514D BEQ L080BF0 PEA $3333 JSL L081DD8 TDC CLC ADC #$0049 PEA $0000 PHA _FrameRect _PenNormal BRL L080E3B L080C2F TDC CLC ADC #$0049 PEA $0000 PHA PEI $13 PEI $11 _SpecialRect L080C43 LDA $51 INC STA $51 LDA $53 INC INC STA $53 LDA $55 DEC STA $55 LDA $57 DEC DEC STA $57 BRL L080E3B L080C5C PEI $11 JSL L081DD8 TDC CLC ADC #$0049 PEA $0000 PHA PEA $001E PEA $000E _PaintRRect LDA $23 BEQ L080C43 PEI $13 JSL L081DD8 TDC CLC ADC #$0049 PEA $0000 PHA PEA $001E PEA $000E _FrameRRect BRA L080C43 L080C9A PEI $13 JSL L081DD8 LDA $49 STA $41 LDA $4B STA $43 CLC ADC #$0004 PHA LDA $4F DEC DEC STA $47 LDA $4D DEC STA $45 PHA _MoveTo PEI $47 PEI $45 _LineTo PEI $47 LDA $41 INC INC PHA _LineTo TDC CLC ADC #$0041 PEA $0000 PHA PEI $13 PEI $11 _SpecialRect LDA $51 INC STA $51 LDA $53 INC INC STA $53 LDA $55 DEC DEC STA $55 LDA $57 DEC DEC DEC DEC STA $57 BRL L080E3B L080D0A LDA L05514D BEQ L080D1E TDC CLC ADC #$0049 PEA $0000 PHA _FrameRect L080D1E STZ $25 STZ $27 LDA $0B DEC CMP #$8000 ROR DEC DEC DEC DEC STA $41 CLC ADC #$0009 STA $45 LDA $4B INC INC STA $43 CLC ADC #$0018 STA $47 TDC CLC ADC #$0041 PEA $0000 PHA PEI $13 PEA $FFFF _SpecialRect LDA $23 AND $1F BEQ L080DA1 PEA $0001 PEA $0001 _SetPenSize PEI $13 JSL L081DD8 PEI $43 PEI $41 _MoveTo PEA $0017 PEA $0008 _Line PEA $0000 PEA $FFF8 _Move PEA $FFE9 PEA $0008 _Line L080DA1 STZ $1F BRL L080E3B L080DA6 LDA L05514D BEQ L080DBB TDC CLC ADC #$0049 PEA $0000 PHA _FrameRect L080DBB STZ $25 STZ $27 LDA $0B DEC CMP #$8000 ROR DEC DEC DEC DEC STA $41 CLC ADC #$0009 STA $45 LDA $4B INC INC STA $43 CLC ADC #$0014 STA $47 TDC CLC ADC #$0041 PEA $0000 PHA _EraseOval LDA $23 BEQ L080DA1 PEI $13 JSL L081DD8 TDC CLC ADC #$0041 PEA $0000 PHA _FrameOval LDA $1F BEQ L080DA1 LDA $41 INC INC STA $41 LDA $43 CLC ADC #$0004 STA $43 LDA $45 DEC DEC STA $45 LDA $47 SEC SBC #$0004 STA $47 TDC CLC ADC #$0041 PEA $0000 PHA _PaintOval BRL L080DA1 L080E3B LDA L053149 STA $37 LDA L053147 STA $35 LDY #$0002 LDA [$35],Y STA $3B LDA [$35] STA $39 LDA $51 STA [$39],Y INY INY LDA $53 STA [$39],Y LDA $55 INY INY STA [$39],Y LDA $57 INY INY STA [$39],Y STZ $29 STZ $2B LDA $23 BNE L080E75 LDA $19 BEQ L080E75 L080E72 BRL L080F46 L080E75 LDA $25 ORA $27 BEQ L080E72 PHA PHA PEA $8001 PEI $27 PEI $25 _LoadResource PLA STA $29 PLA STA $2B BCC L080E9A STZ $29 STZ $2B BRL L080F46 L080E9A LDY #$0002 LDA [$29],Y STA $2F LDA [$29] STA $2D LDA #$7FFF AND [$2D] STA [$2D] LDA $0B LDY #$0004 SEC SBC [$2D],Y CMP #$8000 ROR LDY $21 BPL L080EC0 SEC SBC #$0006 L080EC0 STA $0F LDA $09 LDY #$0006 SEC SBC [$2D],Y AND #$FFFE STA $0D LDA $23 BNE L080ED8 LDA #$FF00 BRA L080F27 L080ED8 LDA $1F BNE L080EF7 LDY #$0025 LDA #$00FF AND [$72],Y XBA ASL ASL ASL ASL STA $1B LDA #$00FF DEY AND [$72],Y XBA CLC ADC $1B BRA L080F27 L080EF7 LDA $19 BNE L080F16 LDY #$0024 LDA #$00FF AND [$72],Y XBA ASL ASL ASL ASL STA $1B LDA #$00FF INY AND [$72],Y XBA CLC ADC $1B BRA L080F27 L080F16 LDY #$0024 LDA #$00FF AND [$72],Y XBA ASL ASL ASL ASL CLC ADC #$0F00 L080F27 STA $1B AND #$FF00 BNE L080F35 LDA $1B ORA #$0003 STA $1B L080F35 PEI $2F PEI $2D PEI $1B PEI $0D PEI $0F _DrawIcon L080F46 LDA $21 BMI L080F4D BRL L0810FB L080F4D LDA $23 BNE L080F5D LDA $19 BEQ L080F5D CMP #$0005 BCS L080F5D BRL L0810FB L080F5D LDA $72 LDX $74 CLC ADC #$002A BCC L080F68 INX L080F68 STA $31 STX $33 LDY #$001A LDA [$72],Y STA $3D LDY #$001E SEP #$20 LDA [$72],Y STA $3F DEY DEY LDA [$72],Y STA $40 REP #$20 PEI $3F PEI $3D PEA $0000 _InstallFont PHY PEI $33 PEI $31 _CStringWidth PLA STA $1D LDA $19 CMP #$0005 BCC L080FB0 CLC LDA $4B ADC #$001E BRA L080FD7 L080FB0 LDY #$0018 LDA [$72],Y BNE L080FBF CLC LDA $4B ADC #$0006 BRA L080FD7 L080FBF INC BEQ L080FCE LDA $09 ASL SEC SBC $1D CMP #$8000 ROR BRA L080FD7 L080FCE LDA $4F SEC SBC #$0006 SEC SBC $1D L080FD7 STA $01 TDC CLC ADC #$0059 PEA $0000 PHA _GetFontInfo LDA $29 ORA $2B BEQ L081009 LDY #$0002 LDA [$29],Y STA $2F LDA [$29] STA $2D INY INY LDA [$2D],Y CLC ADC $0F ADC $59 ADC $5F STA $03 BRA L081018 L081009 LDA $0B CLC ADC $59 SEC SBC $5B INC CMP #$8000 ROR STA $03 L081018 LDA $19 BNE L081078 LDA $29 ORA $2B BEQ L081078 LDA $01 DEC DEC STA $43 CLC ADC #$0004 ADC $1D STA $47 LDA $03 SEC SBC $59 DEC STA $41 LDA $03 CLC ADC $5B INC STA $45 LDA $23 BEQ L08105D LDA $15 CMP #$FFFF BNE L08104F PEI $11 BRA L081060 L08104F LDA $11 LDX $1F BEQ L08105A LDA $15 EOR #$FFFF L08105A PHA BRA L081060 L08105D PEA $FFFF L081060 JSL L081DD8 TDC CLC ADC #$0041 PEA $0000 PHA _PaintRect LDA $23 BEQ L0810ED L081078 LDA #$FFFF STA $05 STA $07 LDA $23 BEQ L0810B2 LDA $1F BEQ L0810AA LDA $19 BNE L0810A0 LDA $15 CMP #$FFFF BEQ L0810A0 EOR #$FFFF STA $07 LDA $17 EOR #$FFFF STA $05 BRA L0810B2 L0810A0 LDA $17 STA $07 LDA $15 STA $05 BRA L0810B2 L0810AA LDA $17 STA $05 LDA $15 STA $07 L0810B2 PEI $01 PEI $03 _MoveTo PEI $05 _SetForeColor LDA $19 BEQ L0810D8 PEI $07 _SetBackColor PEA $0000 BRA L0810DB L0810D8 PEA $0004 L0810DB _SetTextMode PEI $33 PEI $31 _DrawCString L0810ED PEI $3F PEI $3D PEA $0010 _SetPurgeStat L0810FB LDA $2A BEQ L081110 PEA $0001 PEA $8001 PEI $27 PEI $25 _ReleaseResource L081110 LDA $64 STA $74 LDA $63 STA $73 LDX $61 TDC CLC ADC #$0072 TCS TXA TCD RTL L081123 PHD TSC SEC SBC #$005A TCD TCS LDY #$0002 LDA [$6E],Y PEI $70 PEI $6E LDX $6C PHX BNE L08113D EOR #$FFFF INC L08113D STA $09 LDX #$0000 LDY #$0004 LDA [$6E],Y AND #$4000 BEQ L08114D INX L08114D TXA AND $6C STA $13 TDC CLC ADC #$004B PEA $0000 PHA JSL L083B58 LDY #$0020 LDA [$6E],Y STA $05 STZ $0F LDY #$0006 LDA [$6E],Y STA $53 INY INY LDA [$6E],Y ASL STA $55 INY INY LDA [$6E],Y STA $57 INY INY LDA [$6E],Y ASL STA $59 LDA $6A BEQ L0811B0 PHY PHY PEI $68 PEI $66 PEI $64 PEI $62 PEI $09 PEI $13 JSL L07B038 PLA STA $27 PLA STA $29 LDX #$0000 ORA $27 BEQ L0811AE LDA [$27] AND #$00FF BEQ L0811AE INX L0811AE STX $6A L0811B0 _PenNormal LDY #$000E LDA [$6E],Y AND #$000F STA $07 LDX #$0000 LDA L05514B BNE L0811D7 LDA [$6E],Y AND #$4000 BEQ L0811D8 LDA $07 CMP #$0007 BEQ L0811D8 L0811D7 INX L0811D8 STX $11 PHA LDY #$0014 LDA [$6E],Y AND #$00FF EOR #$000F PHA JSL L081A92 PLA STA $19 LDX #$0001 LDA $60 DEC DEC BNE L0811FD DEX LDA #$FFFF STA $19 L0811FD STX $21 LDA $21 BNE L081208 LDA #$FFFF BRA L081217 L081208 PHA LDY #$0022 LDA [$6E],Y AND #$00FF PHA JSL L081A92 PLA L081217 STA $0B LDA $07 BPL L081220 BRL L081504 L081220 CMP #$0008 BMI L081228 BRL L081504 L081228 ASL TAX LDAL L081230,X PHA RTS L081230 DA L081240-1 DA L08126B-1 DA L081290-1 DA L081504-1 DA L0812A7-1 DA L081504-1 DA L081504-1 DA L0812FE-1 L081240 LDA L05514B BEQ L081255 TDC CLC ADC #$0053 PEA $0000 PHA _FrameRect L081255 LDA $19 CMP #$FFFF BNE L08125F BRL L081339 L08125F PEA $8003 _SetPenMode BRA L081270 L08126B LDA L05514B BNE L081290 L081270 PEI $19 JSL L081DD8 TDC CLC ADC #$0053 PEA $0000 PHA _PaintRect _PenNormal L08128D BRL L081339 L081290 TDC CLC ADC #$0053 PEA $0000 PHA L081299 PEI $0B PEI $19 _SpecialRect BRL L081339 L0812A7 PEI $0B JSL L081DD8 PEA $0002 PEA $0001 _SetPenSize LDA $53 STA $43 LDA $55 STA $45 CLC ADC #$0004 PHA LDA $57 DEC STA $47 PHA LDA $59 DEC DEC STA $49 _MoveTo PEI $49 PEI $47 _LineTo PEI $49 LDA $43 INC INC PHA _LineTo TDC CLC ADC #$0043 PEA $0000 PHA BRA L081299 L0812FE TDC CLC ADC #$0053 PEA $0000 PHA PEI $0B PEI $19 _SpecialRect LDA $21 BEQ L081327 TDC CLC ADC #$0053 PEA $0000 PHA PEI $0B PEI $19 JSL L08510A L081327 PHY PEI $09 JSL L086029 PLA STA $0F LDA $51 SEC SBC #$001A STA $51 L081339 LDA #$0000 LDX $07 BNE L081341 INC L081341 ORA $21 STA $1D AND $6A ORA $11 STA $1F BEQ L081383 LDY #$001A LDA [$6E],Y STA $33 LDY #$001E SEP #$20 LDA [$6E],Y STA $35 DEY DEY LDA [$6E],Y STA $36 REP #$20 PEI $35 PEI $33 PEA $0000 _InstallFont TDC CLC ADC #$003B PEA $0000 PHA _GetFontInfo L081383 _PenNormal LDA $6A AND $1D BNE L081393 BRL L0814A0 L081393 LDA $07 BEQ L0813B1 LDA $3B CLC ADC $3D ADC $41 DEC CMP $05 BCS L0813B1 PEI $19 _SetBackColor PEA $0000 BRA L0813B4 L0813B1 PEA $0004 L0813B4 _SetTextMode PEA $FFFF LDX $21 BEQ L0813CC LDY #$0023 LDA [$6E],Y PHA JSL L081A92 L0813CC _SetForeColor LDA L053149 STA $2D LDA L053147 STA $2B LDY #$0002 LDA [$2B],Y STA $31 LDA [$2B] STA $2F LDA $4B STA [$2F],Y INY INY LDA $4D STA [$2F],Y LDA $4F INY INY STA [$2F],Y LDA $51 INY INY STA [$2F],Y PHA PEI $29 PEI $27 TDC CLC ADC #$004B PEA $0000 PHA LDY #$0018 LDA [$6E],Y PHA PEI $05 PEI $0F JSL L08090C PLA STA $15 LDA #$0007 CMP $07 BEQ L081427 BRL L0814A0 L081427 LDY #$0002 LDA [$2B],Y STA $31 LDA [$2B] STA $2F LDA $53 STA [$2F],Y INY INY INY INY LDA $57 STA [$2F],Y INY INY LDA $59 STA [$2F],Y LDA $4F SEC SBC $4B STA $23 PHY PHY PHA PEI $05 JSL L150BE2 PLA PLX BEQ L081459 INC L081459 STA $17 PEI $15 LDA $05 JSL L150BEE PLA STA $25 CMP $23 BEQ L081481 BCC L081481 PHY PHY LDA $25 SEC SBC $23 PHA PEI $05 JSL L150BE2 PLA PLX BEQ L08147F INC L08147F BRA L081484 L081481 LDA #$0000 L081484 CLC ADC $17 STA $15 TDC CLC ADC #$0053 PEA $0000 PHA PEI $0F PEI $15 PEI $17 PEI $0B PEI $19 JSL L081904 L0814A0 LDA $11 AND $1D BEQ L0814F2 LDA $4F INC STA $01 LDA $05 CLC ADC $4B INC SEC SBC $3D STA $4B INC STA $4F LDA #$0F0F AND $0B PHA LDA #$F0F0 AND $19 ORA $01,S PLX STA $1B TDC CLC ADC #$004B STA $03 LDA $4F L0814D2 CMP $01 BCS L0814F2 PEA $0000 PEI $03 PEI $1B PEI $1B _SpecialRect LDA $05 CLC ADC $4B STA $4B INC STA $4F BRA L0814D2 L0814F2 LDA $1F BEQ L081504 PEI $35 PEI $33 PEA $0010 _SetPurgeStat L081504 LDA $5E STA $70 LDA $5D STA $6F LDX $5B TDC CLC ADC #$006E TCS TXA TCD RTL L081517 ENT PHD TSC SEC SBC #$0042 TCD TCS STZ $01 STZ $03 PHA PHA LDA L055029 PHA LDA L055027 PHA JSL L0772AE PLA STA $05 PLA STA $07 ORA $05 BNE L08153E BRL L0818DD L08153E PHA PEI $07 PEI $05 JSL L0718FA PLA STA $09 PHA PHA LDA L055021 PHA LDA L05501F PHA JSL L07721A PLA STA $01 PLA STA $03 ORA $01 BNE L081565 BRL L0818C4 L081565 PHA PEI $03 PEI $01 JSL L0718FA PLA STA $0B PEA ^L05312F PEA L05312F _SetPort LDA L05314B STA $3B LDA L05314D STA $3D LDY #$0002 LDA [$3B] TAX LDA [$3B],Y STA $3D STX $3B LDY #$0002 LDA [$3B],Y STA $25 INY INY LDA [$3B],Y STA $27 INY INY LDA [$3B],Y STA $29 INY INY LDA [$3B],Y STA $2B LDA $4A BEQ L0815E2 LDY #$0002 LDA [$01],Y TAX LDA [$01] CLC ADC #$0032 BCC L0815C0 INX L0815C0 STA $0D STX $0F LDY #$0002 LDA [$01] STA $3B LDA [$01],Y STA $3D LDY #$0024 LDA [$3B],Y STA $11 LDA L05501F STA $15 LDA L055021 STA $17 BRA L081611 L0815E2 LDY #$0002 LDA [$05],Y TAX LDA [$05] CLC ADC #$0032 BCC L0815F1 INX L0815F1 STA $0D STX $0F LDY #$0002 LDA [$05] STA $3B LDA [$05],Y STA $3D LDY #$0024 LDA [$3B],Y STA $11 LDA L055027 STA $15 LDA L055029 STA $17 L081611 PEA ^L053107 PEA L053107 JSL L08273B LDX #$0000 LDA $4C CMP #$0002 BEQ L08162A CMP #$0003 BNE L08162B L08162A INX L08162B STX $1B LDA $11 BNE L081634 BRL L08188C L081634 LDA $1B STA $19 LDY #$0002 LDA $4E CMP [$0D],Y BNE L081651 LDA $4C ASL TAX LDAL L0818EE,X STA $19 LDAL L0818F8,X STA $1B L081651 LDY #$000C LDA [$0D],Y ASL STA $33 DEY DEY LDA [$0D],Y STA $31 DEY DEY LDA [$0D],Y ASL STA $2F DEY DEY LDA [$0D],Y STA $2D LDY #$0004 LDA [$0D],Y BMI L081686 TDC CLC ADC #$002D PEA $0000 PHA PEA ^L053127 PEA L053127 JSL L081E53 L081686 LDA $19 BNE L08168D BRL L081877 L08168D LDY #$0004 LDA [$0D],Y BPL L081697 BRL L081877 L081697 PHY TDC CLC ADC #$002D PEA $0000 PHA TDC ADC #$0025 PEA $0000 PHA LDA L053147 STA $3B LDA L053149 STA $3D LDY #$0002 LDA [$3B],Y TAX LDA [$3B] CLC ADC #$0002 BCC L0816C2 INX L0816C2 PHX PHA _SectRect PLA BNE L0816D1 BRL L081877 L0816D1 TDC CLC ADC #$002D PEA $0000 PHA PEA ^L053107 PEA L053107 JSL L081E53 LDY #$0004 LDA #$0003 AND [$0D],Y DEC BEQ L0816F7 CMP #$0001 BEQ L081716 BRL L081877 L0816F7 PEI $0F PEI $0D PEI $4A LDA L055021 PHA LDA L05501F PHA LDA L055029 PHA LDA L055027 PHA PEI $48 JSL L080A8E BRL L081877 L081716 LDA L055147 BNE L081720 LDA L055149 BRA L081730 L081720 PHY PEI $17 PEI $15 LDY #$0002 LDA [$0D],Y PHA JSL L085819 PLA L081730 STA $35 STZ $37 LDA L05328D LDY #$0002 CMP [$0D],Y BNE L081768 LDA $4A BEQ L081756 LDA L055129 CMP L05501F BNE L081768 LDA L05512B CMP L055021 BNE L081768 INC $37 BRA L081768 L081756 LDA L055129 CMP L055027 BNE L081768 LDA L05512B CMP L055029 BNE L081768 INC $37 L081768 LDA $37 EOR #$0001 AND $35 STA $35 PEI $0F PEI $0D PEI $4A PEI $35 PEI $03 PEI $01 PEI $07 PEI $05 PEI $48 JSL L081123 LDA $37 BNE L08178E BRL L081877 L08178E LDA L055121 STA $3B LDA L055123 STA $3D LDY #$0002 LDA [$3B],Y TAX LDA [$3B] CLC ADC #$0004 BCC L0817A7 INX L0817A7 STA $3B STX $3D LDA #L05312F STA [$3B] LDA #^L05312F LDY #$0002 STA [$3B],Y LDA L055123 PHA LDA L055121 PHA _TEUpdate LDA L055121 STA $3B LDA L055123 STA $3D LDY #$0002 LDA [$3B],Y TAX LDA [$3B] CLC ADC #$0004 BCC L0817E0 INX L0817E0 STA $3B STX $3D LDA L0550ED STA [$3B] LDY #$0002 LDA L0550EF STA [$3B],Y LDY #$000E LDA #$000F AND [$0D],Y CMP #$0007 BEQ L081801 BRL L081877 L081801 PHY LDY #$0022 LDA #$00FF AND [$0D],Y PHA JSL L081A92 PLA STA $39 LDA L055121 STA $3B LDA L055123 STA $3D LDY #$0002 LDA [$3B],Y TAX LDA [$3B] CLC ADC #$0092 BCC L08182B INX L08182B STA $3B STX $3D LDA [$3B],Y TAX LDA [$3B] STA $3B STX $3D LDA [$3B],Y STA $41 LDA [$3B] STA $3F TDC CLC ADC #$002D PEA $0000 PHA LDY #$0012 LDA [$3F],Y PHA LDY #$001E LDA [$3F],Y PHA DEY DEY LDA [$3F],Y PHA PEI $39 PHY PEA $000F LDY #$0014 LDA #$00FF AND [$0D],Y STA $3B PLA SEC SBC $3B PHA JSL L081A92 JSL L081904 L081877 LDA [$0D] CLC ADC $0D STA $0D BCC L081882 INC $0F L081882 LDA $11 DEC BEQ L08188C STA $11 BRL L081634 L08188C LDA L053147 STA $3B LDA L053149 STA $3D LDY #$0002 LDA [$3B],Y TAX LDA [$3B] CLC ADC #$0002 BCC L0818A5 INX L0818A5 PHX PHA JSL L082712 PEI $03 PEI $01 PEI $0B JSL L0718DA LDA L055021 PHA LDA L05501F PHA PEA $0000 JSL L074A24 L0818C4 PEI $07 PEI $05 PEI $09 JSL L0718DA LDA L055029 PHA LDA L055027 PHA PEA $0000 JSL L074A90 L0818DD LDA $46 STA $4E LDA $45 STA $4D LDX $43 TDC CLC ADC #$004C TCS TXA L0818EE TCD RTL DW $0001 DW $0001 DW $0000 DW $0000 L0818F8 DW $0001 DW $0000 DW $0001 DW $0000 DW $0001 DW $0001 L081904 ENT PHD TSC SEC SBC #$0022 TCD TCS LDA $2E SEC SBC $2C BEQ L081915 BPL L081918 L081915 BRL L081A31 L081918 PHY PEI $30 PHA JSL L072FD5 PLA STA $30 PHY PEI $2A JSL L081A92 JSL L081DD8 PEA $0002 PEA $0001 _SetPenSize LDA #$000D CLC ADC [$32] STA $01 LDY #$0006 LDA [$32],Y SEC SBC #$0018 STA $03 LDA [$32],Y DEC DEC STA $07 DEY DEY LDA [$32],Y SEC SBC #$000D STA $05 SEC SBC $01 STA $13 PHY PEA $0008 LDX $2C JSR L081A44 PHA JSL L072FA6 PLA STA $11 LDA $13 SEC SBC $11 STA $13 LDX $30 LDA $2E SEC SBC $2C STA $2E JSR L081A44 STA $15 PHY CLC ADC $01 STA $09 ADC $11 PHA LDA $03 STA $0B PEI $05 JSL L072FD5 PLA STA $0D LDA $07 STA $0F TDC CLC ADC #$0009 PEA $0000 PHA _FrameRect LDA #$0F0F AND $2A PHA LDA #$F0F0 AND $28 ORA $01,S PLX TAY LDA #$F0F0 AND $2A PHA LDA #$0F0F AND $28 ORA $01,S PLX STA $19 LDX #$001E L0819D5 LDA $19 STA L052F47,X DEX DEX STA L052F47,X DEX DEX TYA STA L052F47,X DEX DEX STA L052F47,X DEX DEX BPL L0819D5 PEA ^L052F47 PEA L052F47 _SetPenPat LDA $15 BMI L081A1D BEQ L081A1D LDA $05 STA $17 LDA $09 STA $05 TDC CLC ADC #$0001 PEA $0000 PHA _PaintRect LDA $17 STA $05 L081A1D LDA $0D STA $01 TDC CLC ADC #$0001 PEA $0000 PHA _PaintRect L081A31 LDA $26 STA $34 LDA $25 STA $33 LDX $23 TDC CLC ADC #$0032 TCS TXA TCD RTL L081A44 TDC CLC ADC #$001B PEA $0000 PHA PHY PHY PHX PEI $13 JSL L150C46 PEA $0000 PEI $2E JSL L151243 PLA PLA LDA $1B RTS L081A64 ENT PHD TSC TCD LDA #$0001 STA $0A LDY #$0004 LDA [$06] SEC SBC [$06],Y BPL L081A84 DEY DEY LDA [$06],Y LDY #$0006 SEC SBC [$06],Y BPL L081A84 DEC $0A L081A84 LDA $04 STA $08 LDA $03 STA $07 TDC TCS PLD PLY PLY RTL L081A92 ENT PHD TSC TCD LDA $06 AND #$000F STA $06 ASL ASL ASL ASL ORA $06 STA $06 XBA ORA $06 STA $08 LDA $04 STA $06 LDA $03 STA $05 TDC TCS PLD PLY RTL L081AB6 PHB PHD TSC TCD LDA $0F XBA ORA $0B STAL L081ACE+1 LDX $0D LDY $09 LDA $07 JSL L082758 DEC L081ACE MVN $000000,$000000 LDA $05 STA $0F LDA $03 STA $0D TDC TCS PLD CLC ADC #$000C TCS PLB RTL L081AE3 PHD TSC TCD LDA $08 LDY $06 BEQ L081AF4 DEY DEY L081AEE STA [$0A],Y DEY DEY BPL L081AEE L081AF4 LDA $04 STA $0C LDA $03 STA $0B TDC TCS PLD PLY PLY PLY PLY RTL L081B04 ENT PHD TSC SEC SBC #$000E TCD TCS STZ $01 STZ $03 STZ $07 STZ $0B LDY #$0000 STY $05 L081B19 LDA [$1E],Y AND #$00FF INY CMP #$000D BEQ L081B7D TAX BNE L081B2A DEY BRA L081B7D L081B2A CPX #$0020 BEQ L081B6E CPX #$0009 BEQ L081B6E LDA $0B CMP #$0020 BEQ L081B40 CMP #$0009 BNE L081B48 L081B40 TYA DEC STA $05 LDA $03 STA $07 L081B48 LDA $03 STA $0D LDA L052D92,X AND #$00FF CLC ADC $01 STA $03 CMP $1C BCC L081B6E LDA $07 BNE L081B66 DEY LDA $0D STA $03 BRA L081B7D L081B66 LDY $05 LDA $07 STA $03 BRA L081B7D L081B6E LDA L052D92,X AND #$00FF CLC ADC $01 STA $01 STX $0B BRA L081B19 L081B7D TYA BNE L081B93 LDA [$1E] AND #$00FF BEQ L081B93 TAX LDA L052D92,X AND #$00FF STA $03 LDA #$0001 L081B93 STA [$18] LDA $03 STA [$14] LDA $12 STA $20 LDA $11 STA $1F LDX $0F TDC CLC ADC #$001E TCS TXA TCD RTL L081BAC ENT PHD PHY PHY PHY TSC TCD LDA L0550A1 STA $01 LDA L0550A3 STA $03 LDA [$01] CMP #$000A BNE L081C17 LDY #$0002 LDA [$01],Y STA L05509D STAL L081C03 INY INY LDA [$01],Y STAL L081C05 STAL L081C0D INY INY LDA [$01],Y STAL L081C0B INY INY LDA [$01],Y STAL L081C07 STAL L081C0F LDA #L081C03 STA L0550A1 LDA #^L081C03 STA L0550A3 LDA #$FFFF STA L05509B BRA L081C36 L081C03 DW $0000 L081C05 DW $0000 L081C07 DW $0000 DW $3FFF L081C0B DW $0000 L081C0D DW $0000 L081C0F DW $0000 DW $3FFF DW $3FFF DW $3FFF L081C17 LDY #$0002 LDA [$01],Y STA L05509D LDA $01 CLC ADC #$000A STA L0550A1 LDA $03 ADC #$0000 STA L0550A3 LDA #$FFFF STA L05509B L081C36 PEA ^L052E9F PEA L052E9F PEA $FFFF PEA $0001 PEA $0050 PEA $0000 JSL L080565 TDC TCS PLY PLY PLY PLD RTL L081C53 ENT PHD TSC SEC SBC #$000E TCD TCS LDAL L0550A7 ORAL L0550A9 BNE L081C8C LDY #$0000 PHY PHY PHY PEA $00E0 LDAL L054FBF PHA PEA $8010 PHY PHY _NewHandle PLX PLA STAL L0550A9 TXA STAL L0550A7 BRA L081CC2 L081C8C LDAL L0550A7 STA $0B LDAL L0550A9 STA $0D LDY #$0002 LDA [$0B] ORA [$0B],Y BNE L081CAC PEI $0D PEI $0B _RestoreHandle L081CAC LDA $0D LDX $0B PHA PHX PEA $0000 PHA PHX _SetPurge JSL L0718BF L081CC2 LDAL L0550A9 STA $09 ORAL L0550A7 BNE L081CD1 JMP L081D60 L081CD1 LDAL L0550A7 STA $07 LDY #$0002 LDA [$07] TAX LDA [$07],Y STX $07 STA $09 LDY #$00DE LDA #$FFFF L081CE9 STA [$07],Y DEY DEY CPY #$0038 BPL L081CE9 PHY PHY PEA $0003 _GetAddress PLX PLA STX $03 STA $05 LDA #$0000 STA [$07] PHY PHY LDY #$0004 LDA [$14] STA [$07],Y PHA LDY #$0002 LDA [$14],Y LDY #$0006 STA [$07],Y LSR PHA _Multiply PLA PLX LDY #$0002 STA [$07],Y TAX LSR CLC ADC #$0003 STA $01 TXA CLC ADC #$0006 TAX L081D3B LDY $01 LDA [$14],Y AND #$00FF ASL TAY LDA [$03],Y TXY STA [$07],Y DEC $01 DEX DEX CPX #$0008 BPL L081D3B LDAL L0550A9 PHA LDAL L0550A7 PHA JSL L07191C L081D60 LDA $12 STA $16 LDA $11 STA $15 LDX $0F TDC CLC ADC #$0014 TCS TXA TCD RTL L081D73 ENT PHD TSC TCD LDX L05510F LDA [$06] STAL $000000,X LDY #$0002 LDA [$06],Y STAL $000002,X INY INY LDA [$06],Y STAL $000004,X INY INY LDA [$06],Y STAL $000006,X LDA #$2000 STAL $00000E,X LDA #$00E1 STAL $000010,X LDA #$0000 STAL $000014,X STAL $000016,X PHD TXA TCD JSL ShieldCursor PLD LDA $04 STA $08 LDA $03 STA $07 TDC TCS PLD PLY PLY RTL L081DC7 ENT PHD TSC TCD PHD LDA L05510F TCD JSL UnshieldCursor PLD TDC TCS PLD RTL L081DD8 ENT PHD TSC SEC SBC #$0020 TCD TCS PHY PEI $26 JSL L081A92 PLA LDX #$001E L081DEB STA $01,X DEX DEX BPL L081DEB TDC CLC ADC #$0001 PEA $0000 PHA _SetPenPat LDA $24 STA $26 LDA $23 STA $25 LDX $21 TDC CLC ADC #$0024 TCS TXA TCD RTL L081E14 ENT PHD PHY PHY PHY PHY TSC TCD LDY #$0006 L081E1E TYX LDA [$12],Y STA $01,X DEY DEY BPL L081E1E ASL $03 ASL $07 TDC CLC ADC #$0001 PEA $0000 PHA PEI $10 PEI $0E PEI $10 PEI $0E JSL L081E5F LDA $0C STA $14 LDA $0B STA $13 LDX $09 TDC CLC ADC #$0012 TCS TXA TCD RTL L081E53 ENT PHB PLX PLY LDA $03,S PHA LDA $03,S PHA PHY PHX PLB L081E5F ENT PHD TSC TCD LDA [$0E] LDY #$0004 SEC SBC [$0E],Y BPL L081E78 INY INY LDA [$0E],Y LDY #$0002 SEC SBC [$0E],Y BPL L081E91 L081E78 LDA [$0A] STA [$06] LDY #$0002 LDA [$0A],Y STA [$06],Y INY INY LDA [$0A],Y STA [$06],Y INY INY LDA [$0A],Y STA [$06],Y BRA L081F0D L081E91 LDA [$0A] LDY #$0004 SEC SBC [$0A],Y BPL L081EA7 INY INY LDA [$0A],Y LDY #$0002 SEC SBC [$0A],Y BPL L081EC0 L081EA7 LDA [$0E] STA [$06] LDY #$0002 LDA [$0E],Y STA [$06],Y INY INY LDA [$0E],Y STA [$06],Y INY INY LDA [$0E],Y STA [$06],Y BRA L081F0D L081EC0 LDA [$0E] SEC SBC [$0A] BPL L081ECD LDA [$0E] STA [$06] BRA L081ED1 L081ECD LDA [$0A] STA [$06] L081ED1 LDY #$0002 LDA [$0E],Y SEC SBC [$0A],Y BPL L081EE1 LDA [$0E],Y STA [$06],Y BRA L081EE5 L081EE1 LDA [$0A],Y STA [$06],Y L081EE5 LDY #$0004 LDA [$0E],Y SEC SBC [$0A],Y BMI L081EF5 LDA [$0E],Y STA [$06],Y BRA L081EF9 L081EF5 LDA [$0A],Y STA [$06],Y L081EF9 LDY #$0006 LDA [$0E],Y SEC SBC [$0A],Y BMI L081F09 LDA [$0E],Y STA [$06],Y BRA L081F0D L081F09 LDA [$0A],Y STA [$06],Y L081F0D LDA $04 STA $10 LDA $03 STA $0F TDC TCS PLD CLC ADC #$000E TCS RTL L081F1E ENT PHB PHD TSC SEC SBC #$0028 TCD TCS LDA $2F STA $01 LDA $31 STA $03 LDA #$0000 LDY #$0012 L081F35 STA [$01],Y DEY DEY BPL L081F35 LDX #$0017 LDY #$0018 L081F41 LDA #$FF0F STA [$01],Y TYA CLC ADC #$0012 TAY LDA #$F0FF STA [$01],Y TYA CLC ADC #$0006 TAY DEX BNE L081F41 LDA #$0000 L081F5D STA [$01],Y INY INY CPY #$0254 BNE L081F5D LDA $33 CLC ADC #$0500 STA $05 LDA $35 ADC #$0000 STA $07 PEI $06 PLB PLB LDA $01 CLC ADC #$0018 STA $01 LDA $03 ADC #$0000 STA $03 LDA #$0001 STA $0B STA $09 L081F8F LDA $0B ASL ASL CLC ADC $05 TAY LDA #$0000 SEP #$20 LDX #$000F L081F9F STZ $0F,X DEX BPL L081F9F LDA |$0000,Y LSR LSR LSR LSR TAX INC $0F,X LDA |$00A3,Y LSR LSR LSR LSR TAX INC $0F,X LDA $0141,Y AND #$0F TAX INC $0F,X LDA $01E2,Y AND #$0F TAX INC $0F,X LDA $0280,Y AND #$0F TAX INC $0F,X LDA $0323,Y AND #$0F TAX INC $0F,X LDA $03C1,Y LSR LSR LSR LSR TAX INC $0F,X LDA $0462,Y LSR LSR LSR LSR TAX INC $0F,X LDA #$00 STA $21 LDX #$000F BRA L081FF8 L081FF5 DEX BMI L082011 L081FF8 CMP $0F,X BCS L081FF5 LDA $0F,X STX $27 CMP $21 BCC L081FF5 LDY $25 STX $25 STY $27 LDY $21 STA $21 TYA BRA L081FF5 L082011 STA $23 LDA $23 BEQ L082030 LDA $09 EOR $0B LSR BCS L082029 LDX $25 CPX #$000F BNE L082032 LDX $27 BRA L082032 L082029 LDX $27 CPX #$000F BNE L082032 L082030 LDX $25 L082032 STX $1F LDA $0B LSR TAY BCC L082040 LDA [$01],Y AND #$F0 BRA L08204C L082040 LDA $1F ASL ASL ASL ASL STA $1F LDA [$01],Y AND #$0F L08204C ORA $1F STA [$01],Y REP #$20 INC $0B LDA $0B CMP #$0027 BCC L082081 LDA #$0001 STA $0B INC $09 LDA $05 CLC ADC #$0500 STA $05 BCC L08206E INC $07 L08206E LDA $01 CLC ADC #$0018 STA $01 BCC L08207A INC $03 L08207A LDA $09 CMP #$0018 BCS L082084 L082081 BRL L081F8F L082084 LDA $2D STA $35 LDA $2B STA $33 LDX $29 TDC CLC ADC #$0032 TCS TXA TCD PLB RTL L082098 PHB PHD TSC SEC SBC #$0042 TCD SEC SBC #$0280 TCS STZ $1D LDY #$0002 LDA [$4D] STA $3B LDA [$4D],Y AND #$FFF8 STA $3D INY INY LDA [$4D],Y STA $3F INY INY LDA [$4D],Y CLC ADC #$0007 AND #$FFF8 STA $41 LDA $3F SEC SBC $3B STA $01 LDA $3D LSR LSR STA $03 LDA $41 SEC SBC $3D LSR LSR LSR STA $05 ASL STA $09 DEC DEC STA $19 LDA $3B JSL L082758 CLC ADC $03 LDX $57 ADC $55 BCC L0820F6 INX L0820F6 STA $1F STX $21 LDA $51 STA $23 LDA $53 STA $25 STZ $0B LDA #$FFFF STA $0D STZ $0F LDA $05 LSR LSR LSR INC INC STA $13 TDC CLC ADC #$FF61 STA $27 STZ $29 TDC CLC ADC #$FEC1 STA $2B STZ $2D TDC CLC ADC #$FE21 STA $2F STZ $31 TDC CLC ADC #$FD81 STA $33 STZ $35 PEA $0000 PLB PLB PEI $2D PEI $2B PEA $FFFF PEI $09 JSL L081AE3 PEI $31 PEI $2F PEA $0000 PEI $09 JSL L081AE3 L082157 LDY $19 BEQ L082163 L08215B LDA [$1F],Y STA ($27),Y DEY DEY BPL L08215B L082163 LDA #$002E CMP $0B BNE L08216D JSR L0822E3 L08216D PHY PEI $29 PEI $27 PEI $2D PEI $2B PEI $09 JSL L08068A PLA STA $15 BNE L08218A LDA #$0010 JSR L0822FD BRL L08228C L08218A PHY PEI $29 PEI $27 PEI $31 PEI $2F PEI $09 JSL L08068A PLA STA $17 BNE L0821A7 LDA #$0011 JSR L0822FD BRL L08228C L0821A7 JSR L0822E3 PHY PEI $29 PEI $27 PEI $09 JSL L0825B0 PLA BEQ L0821CE LDA #$0001 JSR L0822D2 LDA [$27] JSR L0822D2 LDY #$0001 LDA [$27],Y JSR L0822D2 BRL L08228C L0821CE STZ $0F LDA $27 LDX $29 STA $37 STX $39 PHY PEI $29 PEI $27 PEI $09 JSL L0806B2 PLA STA $11 CMP $13 BCC L082219 LDA $15 CMP $11 BCS L082202 INC $0F LDA $33 LDX $35 STA $37 STX $39 LDA $15 STA $11 CMP $13 BCC L082219 L082202 LDA $17 CMP $11 BCS L082219 LDA #$0002 STA $0F LDA $33 LDX $35 STA $37 STX $39 LDA $17 STA $11 L082219 LDA $0F BEQ L08223E PEI $29 PEI $27 LDA $0F DEC BNE L08222A LDA $2B BRA L08222C L08222A LDA $2F L08222C STA $1B LDY $09 BEQ L08223E DEY DEY L082234 LDA ($27),Y EOR ($1B),Y STA ($33),Y DEY DEY BPL L082234 L08223E LDA $0F INC INC INC JSR L0822D2 PHY PEI $39 PEI $37 PEI $25 PEI $23 PEI $09 JSL L082320 PLA STA $07 CMP $09 BCC L082281 BEQ L082281 LDA $23 BNE L082264 DEC $25 L082264 DEC STA $23 LDA #$0000 JSR L0822D2 PEI $29 PEI $27 PEI $25 PEI $23 PEA $0000 LDA $09 PHA STA $07 JSL L070597 L082281 LDA $07 CLC ADC $23 STA $23 BCC L08228C INC $25 L08228C LDX $2F LDA $2B STA $2F LDA $27 STA $2B STX $27 LDA $1F CLC ADC #$00A0 BCC L0822A2 INC $21 L0822A2 STA $1F DEC $01 BEQ L0822AB BRL L082157 L0822AB JSR L0822E3 LDA $23 SEC SBC $51 STA [$49] LDA $25 SBC $53 LDY #$0002 STA [$49],Y LDA $47 STA $57 LDA $45 STA $55 LDX $43 TDC CLC ADC #$0054 TCS TXA TCD PLB RTL L0822D2 SEP #$20 STA [$23] REP #$20 INC $23 BNE L0822E2 INC $24 BNE L0822E2 INC $25 L0822E2 RTS L0822E3 LDA $0B BEQ L0822F7 LDA #$0021 CLC ADC $0B JSR L0822D2 LDA $0D JSR L0822D2 STZ $0B L0822F7 LDA #$FFFF STA $0D RTS L0822FD CMP $0D BNE L082315 LDA $0B BNE L08230E LDA $23 BNE L08230B DEC $25 L08230B DEC STA $23 L08230E INC $0B BNE L082314 INC $0C L082314 RTS L082315 TAX JSR L0822E3 STX $0D TXA JSR L0822D2 RTS L082320 PHD TSC SEC SBC #$001C TCD TCS LDA $24 STA $01 LDA $26 STA $03 LDA $22 STA $05 STZ $11 STZ $15 STZ $19 L08233A LDA $05 BNE L082341 BRL L082539 L082341 LDA $11 BMI L08237D LDY #$0000 LDX $05 L08234A SEP #$20 L08234C LDA [$28],Y BEQ L082358 INY DEX BNE L08234C REP #$20 BRA L082370 L082358 STY $07 L08235A LDA [$28],Y BNE L082362 INY DEX BNE L08235A L082362 REP #$20 TYA SEC SBC $07 LSR LSR LSR BNE L082377 TXA BNE L08234A L082370 LDA #$FFFF STA $11 BRA L08237D L082377 STA $13 LDY $07 STY $11 L08237D LDA $19 BMI L0823E6 STZ $07 L082383 LDX #$0000 LDY $07 LDA [$28],Y STA $09 INY INY CPY $05 BCS L0823E1 LDA [$28],Y STA $0B INY INY CPY $05 BCS L0823E1 LDA $09 ORA $0B BNE L0823A6 STY $07 BRA L082383 L0823A6 LDA [$28],Y CMP $09 BNE L0823C3 INY INY CPY $05 BCS L0823C3 LDA [$28],Y CMP $0B BNE L0823C3 INY CPY $05 BCS L0823C3 INX INY CPY $05 BCC L0823A6 L0823C3 TXA BNE L0823D0 LDA $07 CLC ADC #$0004 STA $07 BRA L082383 L0823D0 INC CMP #$0020 BCC L0823D9 LDA #$001F L0823D9 STA $1B LDY $07 STY $19 BRA L0823E6 L0823E1 LDA #$FFFF STA $19 L0823E6 LDA $15 BMI L08242E STZ $07 L0823EC LDY $07 LDX #$0000 SEP #$20 CPY $05 BCS L082417 LDA [$28],Y INY CPY $05 BCS L082408 L0823FE CMP [$28],Y BNE L082408 INX INY CPY $05 BCC L0823FE L082408 REP #$20 TXA INC LSR LSR CMP #$0002 BCS L082420 STY $07 BRA L0823EC L082417 REP #$20 LDA #$FFFF STA $15 BRA L08242E L082420 CMP #$0020 BCC L082428 LDA #$001F L082428 STA $17 LDY $07 STY $15 L08242E LDA $05 LDX #$0000 CMP $11 BCC L08243A LDA $11 INX L08243A CMP $15 BEQ L082445 BCC L082445 LDA $15 LDX #$0002 L082445 CMP $19 BEQ L082450 BCC L082450 LDA $19 LDX #$0003 L082450 STX $0D STA $0F LDA $0F AND #$FFF8 BEQ L082486 TAX LSR LSR LSR ORA #$00A0 STA [$24] LDA #$0001 JSR L082553 TXY DEY DEY L08246D LDA [$28],Y STA [$24],Y DEY DEY BPL L08246D TXA JSR L08255D TXA JSR L082553 STX $09 LDA $0F SEC SBC $09 STA $0F L082486 LDA $0F BEQ L0824D2 LDY #$0000 TYX L08248E LDA [$28],Y AND #$00FF BNE L08249B INX INY CPY $0F BNE L08248E L08249B STX $09 LDA $0F SEC SBC $09 STA $0B LDA $09 JSR L08255D LDA $0B ASL ASL ASL ORA $09 STA [$24] LDA #$0001 JSR L082553 LDY $0B BEQ L0824D2 DEY SEP #$20 L0824BF LDA [$28],Y STA [$24],Y DEY BPL L0824BF REP #$20 LDA $0B JSR L08255D LDA $0B JSR L082553 L0824D2 LDA $0D BEQ L082539 DEC BNE L0824F1 LDA $13 ORA #$0080 STA [$24] LDA #$0001 JSR L082553 LDA $13 ASL ASL ASL JSR L08255D BRL L08233A L0824F1 DEC BEQ L08251C LDA $1B ORA #$00E0 STA [$24] LDA #$0001 JSR L082553 LDY #$0002 LDA [$28],Y STA [$24],Y LDA [$28] STA [$24] LDA #$0004 JSR L082553 LDA $1B ASL ASL JSR L08255D BRL L08233A L08251C LDA [$28] XBA AND #$FF00 ORA $17 ORA #$00C0 STA [$24] LDA #$0002 JSR L082553 LDA $17 ASL ASL JSR L08255D BRL L08233A L082539 LDA $24 SEC SBC $01 STA $2C LDA $20 STA $2A LDA $1F STA $29 LDX $1D TDC CLC ADC #$0028 TCS TXA TCD RTL L082553 CLC ADC $24 STA $24 BCC L08255C INC $26 L08255C RTS L08255D PHA CLC ADC $28 STA $28 BCC L082567 INC $2A L082567 LDA $05 SEC SBC $01,S PLX STA $05 RTS L082570 ENT PHD PHY TSC TCD LDY #$001E L082577 LDA [$08],Y XBA STA $01 DEY DEY LDA [$08],Y XBA LSR ROR $01 BCC L082589 ORA #$8000 L082589 LSR ROR $01 BCC L082591 ORA #$8000 L082591 XBA STA [$08],Y LDA $01 XBA INY INY STA [$08],Y DEY DEY DEY DEY BPL L082577 LDA $06 STA $0A LDA $05 STA $09 TDC TCS PLY PLD PLY PLY RTL L0825B0 PHD TSC TCD STZ $0C LDY $06 DEY DEY LDA [$08],Y L0825BB CMP [$08],Y BNE L0825C5 DEY DEY BPL L0825BB INC $0C L0825C5 LDA $04 STA $0A LDA $03 STA $09 TDC TCS PLD PLY PLY PLY RTL L0825D4 ENT PHD TSC SEC SBC #$0016 TCD TCS LDA L0550A1 STA $01 LDA L0550A3 STA $03 L0825E6 LDA L05509F CMP [$01] BCS L0825F0 BRL L08268D L0825F0 JSR L0826E5 L0825F3 LDA [$01] CMP #$3FFF BNE L0825FF JSR L0826E5 BRA L0825E6 L0825FF STA $07 JSR L0826E5 LDA [$01] STA $09 CMP L052F41 BEQ L082687 BCC L082687 LDA $07 CMP L052F45 BCS L082687 CMP L052F41 BCS L082620 LDA L052F41 STA $07 L082620 LDA $09 CMP L052F45 BCC L08262C LDA L052F45 STA $09 L08262C LDA $07 LSR LSR AND #$FFFE STA $0B LDA $09 DEC LSR LSR AND #$FFFE STA $0D LDA $07 AND #$0007 ASL TAX LDAL L0826F2,X STA $0F LDA $09 DEC AND #$0007 ASL TAX LDAL L082702,X STA $11 LDY $0B LDA $0F CPY $0D BNE L082664 AND $11 L082664 EOR L052E9F,Y STA L052E9F,Y CPY $0D BEQ L082687 BRA L082679 L082670 LDA L052E9F,Y EOR #$FFFF STA L052E9F,Y L082679 INY INY CPY $0D BNE L082670 LDA L052E9F,Y EOR $11 STA L052E9F,Y L082687 JSR L0826E5 BRL L0825F3 L08268D LDA [$01] STA L05509D LDA $01 STA L0550A1 LDA $03 STA L0550A3 STZ L05509B LDA L052F41 LSR LSR AND #$FFFE STA $13 TAX LDA L052F45 DEC LSR LSR AND #$FFFE STA $15 L0826B5 LDA L052E9F,X BNE L0826C7 INX INX CPX $15 BCC L0826B5 BEQ L0826B5 INC L05509B BRA L0826DA L0826C7 LDX $13 L0826C9 LDA L052E9F,X * INC BNE L0826DA INX INX CPX $15 BCC L0826C9 BEQ L0826C9 DEC L05509B L0826DA LDX $17 TDC CLC ADC #$0018 TCS TXA TCD RTL L0826E5 LDA $01 CLC ADC #$0002 STA $01 BCC L0826F1 INC $03 L0826F1 RTS L0826F2 DW $FFFF DW $FF3F DW $FF0F DW $FF03 DW $FF00 DW $3F00 DW $0F00 DW $0300 L082702 DW $00C0 DW $00F0 DW $00FC DW $00FF DW $C0FF DW $F0FF DW $FCFF DW $FFFF L082712 ENT PHD TSC TCD LDA #$0000 STA [$06] LDY #$0002 STA [$06],Y INY INY LDA #$00C8 STA [$06],Y INY INY LDA #$0280 STA [$06],Y LDA $04 STA $08 LDA $03 STA $07 TDC TCS PLD PLY PLY RTL L08273B ENT PHD TSC TCD LDA #$0000 LDY #$0006 L082744 STA [$06],Y DEY DEY BPL L082744 LDA $04 STA $08 LDA $03 STA $07 TDC TCS PLD PLY PLY RTL L082758 ENT PHA ASL ASL ADC $01,S ASL ASL ASL ASL ASL STA $01,S PLA RTL L082766 ENT PHD TSC SEC SBC #$001C TCD TCS LDA [$22] STA $15 LDY #$0002 LDA [$22],Y STA $17 INY INY LDA [$22],Y STA $19 INY INY LDA [$22],Y STA $1B LDA $17 LSR LSR AND #$FFFE STA $09 LDA $1B DEC LSR LSR AND #$FFFE STA $0B LDA $17 AND #$0006 TAX LDAL L08294E,X STA $0D LDA $1B DEC AND #$0006 TAX LDAL L082956,X STA $0F LDA $15 JSL L082758 PHA CLC ADC $09 STA $01 PLA CLC ADC $0B STA $03 LDA $19 DEC JSL L082758 PHA CLC ADC $09 STA $05 PLA CLC ADC $0B STA $07 LDY $01 L0827D8 LDA [$26],Y ORA $0D CPY $03 BNE L0827E4 BRA L0827EA L0827E2 AND [$26],Y L0827E4 INY INY CPY $03 BNE L0827E2 L0827EA STA $11 LDA [$26],Y ORA $0F AND $11 INC BNE L082818 TYA CLC ADC #$00A0 STA $03 LDA $01 CLC ADC #$00A0 STA $01 TAY INC $15 LDA $15 CMP $19 BNE L0827D8 STZ $15 STZ $17 STZ $19 STZ $1B BRL L082922 L082818 LDY $05 L08281A LDA [$26],Y ORA $0D CPY $07 BNE L082826 BRA L08282C L082824 AND [$26],Y L082826 INY INY CPY $07 BNE L082824 L08282C STA $11 LDA [$26],Y ORA $0F AND $11 INC BNE L08284B TYA SEC SBC #$00A0 STA $07 LDA $05 SEC SBC #$00A0 STA $05 TAY DEC $19 BRA L08281A L08284B LDA $05 CLC ADC #$00A0 STA $09 LDA $07 CLC ADC #$00A0 STA $0B LDA $17 LSR AND #$FFFC STA $17 LDA $1B INC LSR CLC ADC #$0003 AND #$FFFC STA $1B LDA #$FFFF STA $13 L082875 LDY $01 L082877 LDA [$26],Y AND $13 STA $13 TYA CLC ADC #$00A0 TAY CPY $05 BCC L082877 BEQ L082877 LDA $13 CPY $09 BNE L082891 ORA $0D L082891 CPY $0B BNE L082897 ORA $0F L082897 STA $13 ORA #$FF0F INC BNE L0828C9 INC $17 LDA $13 ORA #$FFF0 INC BNE L0828C9 INC $17 LDA $13 ORA #$0FFF INC BNE L0828C9 INC $17 LDA $13 ORA #$F0FF INC BNE L0828C9 INC $17 INC $01 INC $01 INC $05 INC $05 BRA L082875 L0828C9 LDA #$FFFF STA $13 L0828CE LDY $03 L0828D0 LDA [$26],Y AND $13 STA $13 TYA CLC ADC #$00A0 TAY CPY $07 BCC L0828D0 BEQ L0828D0 LDA $13 CPY $09 BNE L0828EA ORA $0D L0828EA CPY $0B BNE L0828F0 ORA $0F L0828F0 STA $13 ORA #$F0FF INC BNE L082922 DEC $1B LDA $13 ORA #$0FFF INC BNE L082922 DEC $1B LDA $13 ORA #$FFF0 INC BNE L082922 DEC $1B LDA $13 ORA #$FF0F INC BNE L082922 DEC $1B DEC $03 DEC $03 DEC $07 DEC $07 BRA L0828CE L082922 LDA $15 STA [$22] LDY #$0002 LDA $17 ASL STA [$22],Y INY INY LDA $19 STA [$22],Y INY INY LDA $1B ASL STA [$22],Y LDA $20 STA $28 LDA $1F STA $27 LDX $1D TDC CLC ADC #$0026 TCS TXA TCD RTL L08294E DW $0000 DW $00F0 DW $00FF DW $F0FF L082956 DW $FF0F DW $FF00 DW $0F00 DW $0000 L08295E ENT PHD TSC SEC SBC #$001C TCD TCS LDA [$22] STA $15 LDY #$0002 LDA [$22],Y STA $17 INY INY LDA [$22],Y STA $19 INY INY LDA [$22],Y STA $1B LDA $17 LSR LSR AND #$FFFE STA $09 LDA $1B DEC LSR LSR AND #$FFFE STA $0B LDA $17 AND #$0006 TAX LDAL L082B36,X STA $0D LDA $1B DEC AND #$0006 TAX LDAL L082B3E,X STA $0F LDA $15 JSL L082758 PHA CLC ADC $09 STA $01 PLA CLC ADC $0B STA $03 LDA $19 DEC JSL L082758 PHA CLC ADC $09 STA $05 PLA CLC ADC $0B STA $07 LDY $01 L0829D0 LDA [$26],Y AND $0D CPY $03 BNE L0829DC BRA L0829E2 L0829DA ORA [$26],Y L0829DC INY INY CPY $03 BNE L0829DA L0829E2 STA $11 LDA [$26],Y AND $0F ORA $11 BNE L082A0F TYA CLC ADC #$00A0 STA $03 LDA $01 CLC ADC #$00A0 STA $01 TAY INC $15 LDA $15 CMP $19 BNE L0829D0 STZ $15 STZ $17 STZ $19 STZ $1B BRL L082B0A L082A0F LDY $05 L082A11 LDA [$26],Y AND $0D CPY $07 BNE L082A1D BRA L082A23 L082A1B ORA [$26],Y L082A1D INY INY CPY $07 BNE L082A1B L082A23 STA $11 LDA [$26],Y AND $0F ORA $11 BNE L082A41 TYA SEC SBC #$00A0 STA $07 LDA $05 SEC SBC #$00A0 STA $05 TAY DEC $19 BRA L082A11 L082A41 LDA $05 CLC ADC #$00A0 STA $09 LDA $07 CLC ADC #$00A0 STA $0B LDA $17 LSR AND #$FFFC STA $17 LDA $1B INC LSR CLC ADC #$0003 AND #$FFFC STA $1B STZ $13 L082A68 LDY $01 L082A6A LDA [$26],Y ORA $13 STA $13 TYA CLC ADC #$00A0 TAY CPY $05 BCC L082A6A BEQ L082A6A LDA $13 CPY $09 BNE L082A84 AND $0D L082A84 CPY $0B BNE L082A8A AND $0F L082A8A STA $13 AND #$00F0 BNE L082AB8 INC $17 LDA $13 AND #$000F BNE L082AB8 INC $17 LDA $13 AND #$F000 BNE L082AB8 INC $17 LDA $13 AND #$0F00 BNE L082AB8 INC $17 INC $01 INC $01 INC $05 INC $05 BRA L082A68 L082AB8 STZ $13 L082ABA LDY $03 L082ABC LDA [$26],Y ORA $13 STA $13 TYA CLC ADC #$00A0 TAY CPY $07 BCC L082ABC BEQ L082ABC LDA $13 CPY $09 BNE L082AD6 AND $0D L082AD6 CPY $0B BNE L082ADC AND $0F L082ADC STA $13 AND #$0F00 BNE L082B0A DEC $1B LDA $13 AND #$F000 BNE L082B0A DEC $1B LDA $13 AND #$000F BNE L082B0A DEC $1B LDA $13 AND #$00F0 BNE L082B0A DEC $1B DEC $03 DEC $03 DEC $07 DEC $07 BRA L082ABA L082B0A LDA $15 STA [$22] LDY #$0002 LDA $17 ASL STA [$22],Y INY INY LDA $19 STA [$22],Y INY INY LDA $1B ASL STA [$22],Y LDA $20 STA $28 LDA $1F STA $27 LDX $1D TDC CLC ADC #$0026 TCS TXA TCD RTL L082B36 DW $FFFF DW $FF0F DW $FF00 DW $0F00 L082B3E DW $00F0 DW $00FF DW $F0FF DW $FFFF L082B46 PHD TSC SEC SBC #$0014 TCD TCS LDA [$20] STA $07 LDY #$0002 LDA [$20],Y STA $09 LDA $1C CLC ADC $1A STA $0F LDA $1E BCC L082B65 INC L082B65 STA $11 L082B67 STZ $0B STZ $0D LDA #$0000 SEP #$20 LDA [$07] INC $07 BNE L082B7C INC $08 BNE L082B7C INC $09 L082B7C AND #$FF BMI L082BB1 PHA AND #$07 BEQ L082B99 TAY TAX DEY LDA #$00 L082B8A STA [$1C],Y DEY BPL L082B8A TXA CLC ADC $1C STA $1C BCC L082B99 INC $1D L082B99 PLA LSR LSR LSR BEQ L082BAC STA $0B STA $0D TAY DEY L082BA5 LDA [$07],Y STA [$1C],Y DEY BPL L082BA5 L082BAC REP #$20 BRL L082C2F L082BB1 ASL ASL BCS L082BE8 ASL BCS L082BCF REP #$20 STA $0D DEC DEC TAY LDA #$0000 L082BC2 STA [$1C],Y DEY DEY STA [$1C],Y DEY DEY BPL L082BC2 BRL L082C2F L082BCF REP #$20 STA $0D STA $0B DEC DEC TAY L082BD8 LDA [$07],Y STA [$1C],Y DEY DEY LDA [$07],Y STA [$1C],Y DEY DEY BPL L082BD8 BRA L082C2F L082BE8 ASL BCS L082C0A REP #$20 LSR STA $0D TAY LDA #$0001 STA $0B LDA [$07] AND #$00FF STA $13 XBA ORA $13 DEY DEY L082C02 STA [$1C],Y DEY DEY BPL L082C02 BRA L082C2F L082C0A REP #$20 LSR STA $0D TAX LDA #$0004 STA $0B LDY #$0002 LDA [$07] STA $13 LDA [$07],Y TXY TAX DEY DEY L082C22 TXA STA [$1C],Y DEY DEY LDA $13 STA [$1C],Y DEY DEY BPL L082C22 L082C2F LDA $0B BEQ L082C3C CLC ADC $07 STA $07 BCC L082C3C INC $09 L082C3C LDA $1C LDX $1E CLC ADC $0D STA $1C BCC L082C4A INX STX $1E L082C4A CPX $11 BCC L082C50 BNE L082C57 L082C50 CMP $0F BCS L082C57 BRL L082B67 L082C57 LDA $07 STA [$20] LDY #$0002 LDA $09 STA [$20],Y LDA $18 STA $22 LDA $17 STA $21 LDX $15 TDC CLC ADC #$0020 TCS TXA TCD RTL L082C75 PHB PHD TSC SEC SBC #$0026 TCD SEC SBC #$01E0 TCS LDA $2D CMP #$0002 BEQ L082C93 PEA $0038 JSL L0727E0 BRL L082E79 L082C93 LDY #$0006 LDA [$31],Y CLC ADC #$0007 AND #$FFF8 STA $11 DEY DEY LDA [$31],Y STA $0F DEY DEY LDA [$31],Y AND #$FFF8 STA $0D LDA [$31] STA $0B PHY PEA ^L053259 PEA L053259 TDC CLC ADC #$000B PEA $0000 PHA PEA $0000 PHA _SectRect PLA BNE L082CD5 BRL L082E79 L082CD5 LDA $0F SEC SBC $0B STA $13 LDA $11 SEC SBC $0D LSR LSR STA $09 TAY LSR STA $15 DEY DEY STY $07 LDA $0B JSL L082758 STA $17 LDA $0D LSR LSR CLC ADC $17 CLC ADC $35 STA $17 LDA $37 ADC #$0000 STA $19 STZ $01 STZ $03 TDC CLC ADC #$FF61 STA $1B STZ $1D TDC CLC ADC #$FEC1 STA $1F STZ $21 TDC CLC ADC #$FE21 STA $23 STZ $25 PEA $0000 PLB PLB LDY $07 LDA #$FFFF L082D31 STA ($1F),Y DEY DEY BPL L082D31 LDY $07 LDA #$0000 L082D3C STA ($23),Y DEY DEY BPL L082D3C L082D42 LDA $01 BEQ L082D4C DEC $01 LDA $05 BRA L082D59 L082D4C LDA [$39] INC $39 BNE L082D54 INC $3B L082D54 AND #$00FF STA $05 L082D59 CMP #$0015 BCS L082D90 ASL TAX LDAL L082D66,X PHA RTS L082D66 DA L082DA1+1 DA L082DAF+2 DA L082DBF+2 DA L082DC4+1 DA L082DC4+1 DA L082DC4+1 DA L082E76+2 DA L082E76+2 DA L082E76+2 DA L082E76+2 DA L082E76+2 DA L082E76+2 DA L082E76+2 DA L082E76+2 DA L082E76+2 DA L082E76+2 DA L082E01+1 DA L082E0D+1 DA L082E19+1 DA L082E19+1 DA L082E19+1 L082D90 SEC SBC #$0020 BMI L082D9B CMP #$0030 BCC L082D9E L082D9B BRL L082E79 L082D9E DEC STA $01 L082DA1 BRA L082D4C LDY $07 L082DA5 LDA [$39],Y STA ($1B),Y DEY DEY BPL L082DA5 LDA $09 L082DAF BRL L082E26 LDA [$39] LDY $07 L082DB6 STA ($1B),Y DEY DEY BPL L082DB6 LDA #$0002 L082DBF BRL L082E26 LDA $03 L082DC4 BRA L082DCC LDA $05 SEC SBC #$0003 L082DCC PHA TDC CLC ADC #$0039 PEA $0000 PHA PEI $1D PEI $1B PEI $09 JSL L082B46 PLA BNE L082DE6 BRL L082E2F L082DE6 LDY $07 DEC BNE L082DF7 L082DEB LDA ($1B),Y EOR ($1F),Y STA ($1B),Y DEY DEY BPL L082DEB BRA L082E2F L082DF7 LDA ($1B),Y EOR ($23),Y STA ($1B),Y DEY DEY BPL L082DF7 L082E01 BRA L082E2F LDY $07 L082E05 LDA ($1F),Y STA ($1B),Y DEY DEY BPL L082E05 L082E0D BRA L082E2F LDY $07 L082E11 LDA ($23),Y STA ($1B),Y DEY DEY BPL L082E11 L082E19 BRA L082E2F LDA $05 SEC SBC #$0012 STA $03 BRL L082D42 L082E26 CLC ADC $39 STA $39 BCC L082E2F INC $3B L082E2F LDY $07 LDA $2F BNE L082E3F L082E35 LDA ($1B),Y STA [$17],Y DEY DEY BPL L082E35 BRA L082E5A L082E3F CMP #$8003 BEQ L082E50 L082E44 LDA ($1B),Y ORA [$17],Y STA [$17],Y DEY DEY BPL L082E44 BRA L082E5A L082E50 LDA ($1B),Y AND [$17],Y STA [$17],Y DEY DEY BPL L082E50 L082E5A LDA $17 CLC ADC #$00A0 STA $17 BCC L082E66 INC $19 L082E66 LDY $23 LDA $1F STA $23 LDA $1B STA $1F STY $1B DEC $13 BEQ L082E79 L082E76 BRL L082D42 L082E79 LDA $2B STA $3B LDA $29 STA $39 LDX $27 TDC CLC ADC #$0038 TCS TXA TCD PLB RTL L082E8D PHD TSC SEC SBC #$001A TCD TCS LDA [$20] STA $01 LDY #$0002 LDA [$20],Y STA $03 PHA TAX LDA $01 CLC ADC #$0002 BCC L082EAB INX L082EAB PHX PHA PEI $26 PEI $24 PEA ^L052F3F PEA L052F3F _SectRect PLA BNE L082EC4 BRL L08321A L082EC4 LDA L052F41 AND #$FFF8 STA L052F41 LSR LSR STA $07 LDA L052F45 CLC ADC #$0007 AND #$FFF8 STA L052F45 LSR LSR SEC SBC $07 STA $09 LDA $01 STA L0550A1 LDA $03 STA L0550A3 JSL L081BAC LDA L052F3F ASL ASL CLC ADC L052F3F ASL ASL ASL ASL ASL CLC ADC $07 STA $05 LDA #L052E9F CLC ADC $07 STA $17 LDA #^L052E9F ADC #$0000 STA $19 LDA $09 LSR AND #$000F STA $15 ASL ADC $15 ASL ASL ADC $15 ASL ADC $15 STA $15 LDA #$FFE3 SEC SBC $15 STAL L08317A+1 LDA $09 LSR AND #$000F STA $15 ASL ADC $15 ASL ADC $15 STA $15 LDA #$FFF2 SEC SBC $15 STAL L083205+1 LDA $09 AND #$001E STA $15 LDA #$0020 SEC SBC $15 STA $11 LDA $09 LSR LSR LSR LSR LSR STA $0B LDA $09 AND #$FFE0 STA $15 LDA #$0080 SEC SBC $15 STA $0F LDA L052F3F STA $13 LDX $05 L082F7C LDA $13 CMP L05509D BCC L082F8C STA L05509F PHX JSL L0825D4 PLX L082F8C LDA L05509B BPL L082F9A TXA CLC ADC #$00A0 TAX BRL L08320E L082F9A BEQ L082F9F BRL L083181 L082F9F LDY #$001E PHB PEI $29 PLB PLB LDA $0B STA $0D BNE L082FB0 BRL L083175 L082FB0 LDA [$17],Y BNE L082FB9 LDA |$001E,X BRA L082FC5 L082FB9 LDAL $E1201E,X EOR |$001E,X AND [$17],Y EOR |$001E,X L082FC5 STAL $E1201E,X DEY DEY LDA [$17],Y BNE L082FD4 LDA |$001C,X BRA L082FE0 L082FD4 LDAL $E1201C,X EOR |$001C,X AND [$17],Y EOR |$001C,X L082FE0 STAL $E1201C,X DEY DEY LDA [$17],Y BNE L082FEF LDA |$001A,X BRA L082FFB L082FEF LDAL $E1201A,X EOR |$001A,X AND [$17],Y EOR |$001A,X L082FFB STAL $E1201A,X DEY DEY LDA [$17],Y BNE L08300A LDA |$0018,X BRA L083016 L08300A LDAL $E12018,X EOR |$0018,X AND [$17],Y EOR |$0018,X L083016 STAL $E12018,X DEY DEY LDA [$17],Y BNE L083025 LDA |$0016,X BRA L083031 L083025 LDAL $E12016,X EOR |$0016,X AND [$17],Y EOR |$0016,X L083031 STAL $E12016,X DEY DEY LDA [$17],Y BNE L083040 LDA |$0014,X BRA L08304C L083040 LDAL $E12014,X EOR |$0014,X AND [$17],Y EOR |$0014,X L08304C STAL $E12014,X DEY DEY LDA [$17],Y BNE L08305B LDA |$0012,X BRA L083067 L08305B LDAL $E12012,X EOR |$0012,X AND [$17],Y EOR |$0012,X L083067 STAL $E12012,X DEY DEY LDA [$17],Y BNE L083076 LDA |$0010,X BRA L083082 L083076 LDAL $E12010,X EOR |$0010,X AND [$17],Y EOR |$0010,X L083082 STAL $E12010,X DEY DEY LDA [$17],Y BNE L083091 LDA |$000E,X BRA L08309D L083091 LDAL $E1200E,X EOR |$000E,X AND [$17],Y EOR |$000E,X L08309D STAL $E1200E,X DEY DEY LDA [$17],Y BNE L0830AC LDA |$000C,X BRA L0830B8 L0830AC LDAL $E1200C,X EOR |$000C,X AND [$17],Y EOR |$000C,X L0830B8 STAL $E1200C,X DEY DEY LDA [$17],Y BNE L0830C7 LDA |$000A,X BRA L0830D3 L0830C7 LDAL $E1200A,X EOR |$000A,X AND [$17],Y EOR |$000A,X L0830D3 STAL $E1200A,X DEY DEY LDA [$17],Y BNE L0830E2 LDA |$0008,X BRA L0830EE L0830E2 LDAL $E12008,X EOR |$0008,X AND [$17],Y EOR |$0008,X L0830EE STAL $E12008,X DEY DEY LDA [$17],Y BNE L0830FD LDA |$0006,X BRA L083109 L0830FD LDAL $E12006,X EOR |$0006,X AND [$17],Y EOR |$0006,X L083109 STAL $E12006,X DEY DEY LDA [$17],Y BNE L083118 LDA |$0004,X BRA L083124 L083118 LDAL $E12004,X EOR |$0004,X AND [$17],Y EOR |$0004,X L083124 STAL $E12004,X DEY DEY LDA [$17],Y BNE L083133 LDA |$0002,X BRA L08313F L083133 LDAL $E12002,X EOR |$0002,X AND [$17],Y EOR |$0002,X L08313F STAL $E12002,X DEY DEY LDA [$17],Y BNE L08314E LDA |$0000,X BRA L08315A L08314E LDAL $E12000,X EOR |$0000,X AND [$17],Y EOR |$0000,X L08315A STAL $E12000,X DEY DEY TXA CLC ADC #$0020 TAX TYA CLC ADC #$0040 TAY DEC $0D BMI L08317D BEQ L083175 BRL L082FB0 L083175 TYA SEC SBC $11 TAY L08317A BRL L08317A L08317D PLB BRL L083209 L083181 PHB PEI $29 PLB PLB LDY $0B BEQ L083205 L08318A LDA |$001E,X L08318D STAL $E1201E,X LDA |$001C,X STAL $E1201C,X LDA |$001A,X STAL $E1201A,X LDA |$0018,X STAL $E12018,X LDA |$0016,X STAL $E12016,X LDA |$0014,X STAL $E12014,X LDA |$0012,X STAL $E12012,X LDA |$0010,X STAL $E12010,X LDA |$000E,X STAL $E1200E,X LDA |$000C,X STAL $E1200C,X LDA |$000A,X STAL $E1200A,X LDA |$0008,X STAL $E12008,X LDA |$0006,X STAL $E12006,X LDA |$0004,X STAL $E12004,X LDA |$0002,X STAL $E12002,X LDA |$0000,X STAL $E12000,X TXA CLC ADC #$0020 TAX DEY BMI L083208 BNE L08318A L083205 BRL L083205 L083208 PLB L083209 TXA CLC ADC $0F TAX L08320E INC $13 LDA $13 CMP L052F43 BEQ L08321A BRL L082F7C L08321A LDA $1E STA $2A LDA $1D STA $29 LDX $1B TDC CLC ADC #$0028 TCS TXA TCD RTL L08322D ENT ADRL L082FB9+3 DW $001B DW $0010 L083235 ENT ADRL L082FC5+3 DW $001B DW $0010 L08323D ENT ADRL L08318D+3 DW $0007 DW $0010 L083245 ENT PHD TSC SEC SBC #$0010 TCD TCS _PenNormal PEA $3333 JSL L081DD8 PEA $0002 _SetPenMode PEI $18 PEI $16 JSL L08273B PEA $0004 PEA $0002 _SetPenSize LDY #$0002 LDA [$1E],Y STA $07 TAX LDA [$1E] STA $05 JSR L0832A8 PEA $0002 PEA $0001 _SetPenSize LDY #$0002 LDA [$22],Y STA $07 TAX LDA [$22] STA $05 JSR L0832A8 BRL L083323 L0832A8 CLC ADC #$0032 BCC L0832AF INX L0832AF STA $01 STX $03 LDY #$0024 LDA [$05],Y TAY BNE L0832BC RTS L0832BC PHY LDA $1A BEQ L0832CF LDY #$0004 LDA [$01],Y AND #$000F CMP $1A BEQ L0832CF BRA L083313 L0832CF LDA $1C BNE L0832DC LDY #$0004 LDA [$01],Y BPL L0832DC BRA L083313 L0832DC LDY #$000C LDA [$01],Y ASL STA $0F DEY DEY LDA [$01],Y STA $0D DEY DEY LDA [$01],Y ASL STA $0B DEY DEY LDA [$01],Y STA $09 TDC CLC ADC #$0009 PEA $0000 PHA PEA $0000 PHA _FrameRect PEI $18 PEI $16 JSL L081E53 L083313 LDA [$01] CLC ADC $01 STA $01 BCC L08331E INC $03 L08331E PLY DEY BNE L0832BC RTS L083323 LDA $14 STA $24 LDA $13 STA $23 LDX $11 TDC CLC ADC #$0022 TCS TXA TCD RTL L083336 PHD TSC CLC ADC #$FFFC TCS TCD PEA $0003 JSL L0727E0 PEA ^L0532BD PEA L0532BD JSL L082712 STZ L055139 LDA #$FFFF TAX LDY #$0034 STA [$0A],Y INY INY TXA STA [$0A],Y LDA #$0000 TAX LDY #$0028 STA [$0A],Y INY INY TXA STA [$0A],Y LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L08337F ENT PHD TSC CLC ADC #$FFDE TCS TCD PHY PHY PEI $32 PEI $30 PEI $2E PEI $2C JSL L086D20 PLA STA $1B PLX STX $1D LDA #$FFFF TAX CMP $1B BNE L0833A5 CPX $1D L0833A5 BNE L0833B6 PEA $0000 PHD JSL L083336 STZ $1B STZ $1D BRL L0834F1 L0833B6 LDA $1B ORA $1D BNE L0833C3 STZ $34 STZ $36 BRL L0834F1 L0833C3 LDY #$0002 LDA [$1B],Y TAX LDA [$1B] STA $1F STX $21 LDY #$0002 LDA [$1F],Y TAX LDA [$1F] STA $0F STX $11 PHY PHY PEI $2A PEI $28 PEA $0001 JSL L077264 PLA STA $17 PLX STX $19 LDA $17 ORA $19 BNE L0833F7 BRL L08347A L0833F7 PHY PEI $2A PEI $28 PEA $5041 PEA $4D42 PEI $11 PEI $0F JSL L077EAF PLA LSR BCC L083467 LDY #$0002 LDA [$1B],Y TAX LDA [$1B] CLC ADC #$000C BCC L08341D INX L08341D STA $03 STX $05 LDY #$0002 LDA [$17],Y TAX LDA [$17] CLC ADC #$000C BCC L083430 INX L083430 STA $07 STX $09 PEI $05 PEI $03 PEI $09 PEI $07 LDA $0F LDX $11 SEC SBC #$000C BCS L083447 DEX L083447 PHX PHA JSL L1511CE PEI $2A PEI $28 PEA $0001 JSL L074A5A LDA $28 LDX $2A STA $34 STX $36 STZ $28 STZ $2A BRL L0834F1 L083467 PEI $2A PEI $28 PEA $0000 JSL L074A5A PEI $2A PEI $28 JSL L077B28 L08347A PHY PHY PEI $11 PEI $0F PEA $5041 PEA $4D42 PEA $0000 PEA $0000 JSL L07502A PLA STA $13 PLX STX $15 LDA $13 ORA $15 BNE L0834A6 PEA $0000 PHD JSL L083336 BRA L0834F1 L0834A6 PHY PHY PEI $15 PEI $13 JSL L0742B3 PLA PLX CLC ADC #$000C BCC L0834B9 INX L0834B9 STA $0B STX $0D LDY #$0002 LDA [$1B],Y TAX LDA [$1B] CLC ADC #$000C BCC L0834CC INX L0834CC STA $03 STX $05 PEI $0D PEI $0B LDA $0F LDX $11 SEC SBC #$000C BCS L0834DF DEX L0834DF PHX PHA PEI $05 PEI $03 JSL L078BF0 LDA $13 LDX $15 STA $34 STX $36 L0834F1 PEI $1D PEI $1B JSL L07185A LDA $28 ORA $2A BEQ L083511 PHY PEI $2A PEI $28 PEA $5041 PEA $4D42 JSL L0751BE PLA STA $01 L083511 LDA $26 STA $32 LDA $25 STA $31 LDA $23 TCD TSC CLC ADC #$0030 TCS RTL L083523 ENT PHD TSC CLC ADC #$FFEC TCS TCD LDA $22 ORA $24 BEQ L083540 PEI $24 PEI $22 PEA $0000 PEI $1C PEI $1A JSL L085B3C L083540 LDA $1E ORA $20 BEQ L083555 PEI $20 PEI $1E PEA $FFFF PEI $1C PEI $1A JSL L085B3C L083555 PEI $1C PEI $1A JSL L08273B LDA $26 ORA $28 BNE L083566 BRL L0836A4 L083566 PHY PHY PEI $28 PEI $26 PEA $0000 JSL L077264 PLA STA $0D PLX STX $0F LDA $0D ORA $0F BNE L08358A PEI $28 PEI $26 JSL L083CC3 BRL L0836A4 L08358A LDY #$0002 LDA [$0D],Y TAX LDA [$0D] STA $01 STX $03 LDA $22 ORA $24 BEQ L08360E LDY #$0034 LDA [$01],Y INY INY ORA [$01],Y BNE L0835C1 PEI $24 PEI $22 PEA $FFFF LDA #$001C CLC ADC $01 LDX $03 BCC L0835B9 INX L0835B9 PHX PHA JSL L085BFA BRA L0835F9 L0835C1 LDY #$0002 LDA [$0D],Y TAX LDA [$0D] CLC ADC #$003C BCC L0835D0 INX L0835D0 STA $05 STX $07 PEI $07 PEI $05 PEI $24 PEI $22 LDA #$001C CLC ADC $01 LDX $03 BCC L0835E7 INX L0835E7 PHX PHA PEA $0000 LDY #$0013 LDA #$00FF AND [$01],Y PHA JSL L082C75 L0835F9 LDA #$001C CLC ADC $01 LDX $03 BCC L083604 INX L083604 PHX PHA PEI $1C PEI $1A JSL L081E53 L08360E LDA $1E ORA $20 BNE L083617 BRL L083699 L083617 LDY #$0038 LDA [$01],Y INY INY ORA [$01],Y BNE L08363C PEI $20 PEI $1E PEA $0000 LDA #$0024 CLC ADC $01 LDX $03 BCC L083634 INX L083634 PHX PHA JSL L085BFA BRA L083684 L08363C LDY #$0002 LDA [$0D],Y TAX LDA [$0D] CLC ADC #$003C BCC L08364B INX L08364B PHX PHA LDY #$0036 LDA [$01],Y TAX DEY DEY LDA [$01],Y JSL L150F53 STA $09 STX $0B PEI $0B PEI $09 PEI $20 PEI $1E LDA #$0024 CLC ADC $01 LDX $03 BCC L083672 INX L083672 PHX PHA PEA $0000 LDY #$0013 LDA #$00FF AND [$01],Y PHA JSL L082C75 L083684 LDA #$0024 CLC ADC $01 LDX $03 BCC L08368F INX L08368F PHX PHA PEI $1C PEI $1A JSL L081E53 L083699 PEI $28 PEI $26 PEA $0000 JSL L074A5A L0836A4 LDA $18 STA $28 LDA $17 STA $27 LDA $15 TCD TSC CLC ADC #$0026 TCS RTL L0836B6 ENT PHD TSC CLC ADC #$FFDA TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $30 PEI $2E PEA $0008 JSL L0313BE PHY PEA ^L053259 PEA L053259 TDC CLC ADC #$0001 PEA $0000 PHA TDC CLC ADC #$0001 PEA $0000 PHA JSL L150B3A PLA LSR BCS L0836F6 BRL L08381A L0836F6 LDA $03 AND #$FFF8 STA $03 LDA #$0007 CLC ADC $07 AND #$FFF8 STA $07 LDA $05 SEC SBC $01 STA $0B LDA $03 LSR LSR LSR AND #$7FFF STA $0F LDA $07 LSR LSR LSR AND #$7FFF SEC SBC $0F STA $0D LDA #$0050 SEC SBC $0D ASL STA $11 LDA $0F ASL PHA LDA $01 PEA $00A0 JSL L150BEE PLA CLC ADC $01,S PLX STA $09 PEI $40 PEI $3E LDA $09 JSL L150488 JSL L150F53 STA $13 STX $15 PEI $3C PEI $3A LDA $09 JSL L150488 JSL L150F53 STA $17 STX $19 PEI $38 PEI $36 LDA $09 JSL L150488 JSL L150F53 STA $1B STX $1D PEI $34 PEI $32 LDA $09 JSL L150488 JSL L150F53 STA $1F STX $21 LDA $2C SEC SBC #$FFFE BVS L08379A BPL L083798 BRL L08381A L083798 BRA L08379C L08379A BPL L08381A L08379C CMP #$0006 BPL L08381A SEC SBC #$0000 BEQ L0837E6 DEC BEQ L0837FE SEC SBC #$0002 BEQ L0837B6 DEC DEC BEQ L0837CE BRA L08381A L0837B6 PEI $15 PEI $13 PEI $19 PEI $17 PEI $21 PEI $1F PEI $0B PEI $0D PEI $11 JSL L080000 BRA L08381A L0837CE PEI $15 PEI $13 PEI $19 PEI $17 PEI $21 PEI $1F PEI $0B PEI $0D PEI $11 JSL L16017E BRA L08381A L0837E6 PEI $15 PEI $13 PEI $19 PEI $17 PEI $21 PEI $1F PEI $0B PEI $0D PEI $11 JSL L080235 BRA L08381A L0837FE PEI $15 PEI $13 PEI $19 PEI $17 PEI $1D PEI $1B PEI $21 PEI $1F PEI $0B PEI $0D PEI $11 JSL L080104 BRA L08381A L08381A LDA $2A STA $40 LDA $29 STA $3F LDA $27 TCD TSC CLC ADC #$003E TCS RTL L08382C ENT PHD TSC CLC ADC #$FFE2 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $28 PEI $26 PEA $0008 JSL L0313BE PHY PEA ^L053259 PEA L053259 TDC CLC ADC #$0001 PEA $0000 PHA TDC CLC ADC #$0001 PEA $0000 PHA JSL L150B3A PLA LSR BCS L08386C BRL L083973 L08386C LDA $03 AND #$FFF8 STA $03 LDA #$0007 CLC ADC $07 AND #$FFF8 STA $07 LDA $05 SEC SBC $01 STA $0B LDA $03 LSR LSR LSR AND #$7FFF STA $0D LDA $07 LSR LSR LSR AND #$7FFF SEC SBC $0D STA $0F LDA #$0050 SEC SBC $0F ASL STA $11 LDA $0D ASL PHA LDA $01 PEA $00A0 JSL L150BEE PLA CLC ADC $01,S PLX STA $09 PEI $30 PEI $2E LDA $09 JSL L150488 JSL L150F53 STA $13 STX $15 PEI $2C PEI $2A LDA $09 JSL L150488 JSL L150F53 STA $17 STX $19 LDA $24 SEC SBC #$FFFB BVS L0838EC BPL L0838EA BRL L083973 L0838EA BRA L0838F1 L0838EC BMI L0838F1 BRL L083973 L0838F1 CMP #$0068 BPL L083973 SEC SBC #$0000 BEQ L08394B SEC SBC #$0005 BEQ L08390F DEC DEC DEC BEQ L083937 SEC SBC #$005F BEQ L08395F BRA L083973 L08390F LDA $11 BNE L083923 PEI $15 PEI $13 PEI $19 PEI $17 PEI $0B JSL L081AB6 BRA L083935 L083923 PEI $15 PEI $13 PEI $19 PEI $17 PEI $0B PEI $0F PEI $11 JSL L08048B L083935 BRA L083973 L083937 PEI $15 PEI $13 PEI $19 PEI $17 PEI $0B PEI $0F PEI $11 JSL L080369 BRA L083973 L08394B PEI $15 PEI $13 PEI $19 PEI $17 PEI $0B PEI $0F PEI $11 JSL L16018C BRA L083973 L08395F PEI $15 PEI $13 PEI $19 PEI $17 PEI $0B PEI $0F PEI $11 JSL L16019A BRA L083973 L083973 LDA $22 STA $30 LDA $21 STA $2F LDA $1F TCD TSC CLC ADC #$002E TCS RTL L083985 ENT PHD TSC CLC ADC #$FFF4 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $14 PEI $12 PEA $0008 JSL L0313BE LDA $16 BEQ L0839B1 PEA ^L0409FC PEA L0409FC JSL L07010A BRA L083A2A L0839B1 LDA L054FBB SEC SBC #$0000 BMI L083A2A PHY PEA ^L053259 PEA L053259 TDC CLC ADC #$0001 PEA $0000 PHA TDC CLC ADC #$0001 PEA $0000 PHA JSL L150B3A PLA LSR BCC L083A2A LDA #$FFF8 AND $03 STA $03 LDA #$0007 CLC ADC $07 AND #$FFF8 STA $07 TDC CLC ADC #$0001 PEA $0000 PHA JSL L081D73 PEI $18 PEI $16 TDC CLC ADC #$0001 PEA $0000 PHA LDA L0550ED LDX L0550EF CLC ADC #$001C BCC L083A14 INX L083A14 STA $09 STX $0B LDY #$0002 LDA [$09],Y TAX LDA [$09] PHX PHA JSL L082E8D JSL L081DC7 L083A2A LDA $10 STA $18 LDA $0F STA $17 LDA $0D TCD TSC CLC ADC #$0016 TCS RTL L083A3C ENT PHD TSC CLC ADC #$FFC0 TCS TCD PHY PHY JSL L150493 PLA STA $2F PLX STX $31 PEA ^L05312F PEA L05312F JSL L151131 PEA ^L0531D9 PEA L0531D9 JSL L1506A7 PEA ^L0531E1 PEA L0531E1 PEA $0000 PEA $0000 JSL L1501B5 LDA #$0001 STA $3B L083A79 PEI $3B TDC CLC ADC #$0033 PEA $0000 PHA JSL L083C0E PHY LDA $3B DEC PHA JSL L081A92 PLA STA $2D TDC CLC ADC #$0033 PEA $0000 PHA PEI $2D PEI $2D JSL L1501B5 LDA #$0010 CMP $3B BEQ L083AB0 INC $3B BRA L083A79 L083AB0 PEA $0001 TDC CLC ADC #$0023 PEA $0000 PHA JSL L083C0E LDA #$0011 STA $3B L083AC5 PEI $3B TDC CLC ADC #$0033 PEA $0000 PHA JSL L083C0E LDA $35 EOR #$FFFF INC PHA LDA $33 EOR #$FFFF INC PHA JSL L151490 TDC CLC ADC #$0003 PEA $0000 PHA LDA $3B SEC SBC #$0010 DEC ASL ASL ASL ASL ASL TAX TXA CLC ADC #L053C9D LDX #^L053C9D BCC L083B07 INX L083B07 PHX PHA PEA $0020 JSL L0313BE TDC CLC ADC #$0023 PEA $0000 PHA TDC CLC ADC #$0003 PEA $0000 PHA JSL L1517EB LDA #$0020 CMP $3B BEQ L083B31 INC $3B BRA L083AC5 L083B31 PEA $0000 PEA $0000 JSL L151490 PEA ^L053239 PEA L053239 JSL L1506A7 STZ L05512F PEI $31 PEI $2F JSL L151131 TSC CLC ADC #$0040 TCS PLD RTL L083B58 ENT PHD TSC CLC ADC #$FFEE TCS TCD LDY #$000E LDA #$000F AND [$1E],Y STA $03 LDX #$0000 LDY #$000E LDA #$2000 AND [$1E],Y CMP #$0000 BEQ L083B7B INX L083B7B TXA STA $05 LDA #$0006 CLC ADC $1E LDX $20 BCC L083B89 INX L083B89 PHX PHA TDC CLC ADC #$0007 PEA $0000 PHA JSL L0808E0 TDC CLC ADC #$0007 PEA $0000 PHA PEA $0002 PEA $0001 JSL L151005 LDA #$0004 CMP $03 BNE L083BBD LDA $0D DEC DEC STA $0D LDA $0B DEC STA $0B L083BBD LDA #$0004 CLC ADC $09 STA $09 LDA $0D SEC SBC #$0006 STA $0D LDA $05 BEQ L083BE8 LDA $07 INC INC INC STA $07 LDA #$0006 CLC ADC $09 STA $09 LDA $0D SEC SBC #$0004 STA $0D L083BE8 PEI $1A PEI $18 TDC CLC ADC #$0007 PEA $0000 PHA PEA $0008 JSL L0313BE LDA $16 STA $20 LDA $15 STA $1F LDA $13 TCD TSC CLC ADC #$001E TCS RTL L083C0E PHD TSC CLC ADC #$FFF8 TCS TCD PEI $10 PEI $0E JSL L08273B LDX #$0000 LDA $12 BMI L083C28 BEQ L083C28 INX L083C28 TXA PHA LDA $12 SEC SBC #$0020 BEQ L083C3E BVS L083C37 EOR #$8000 L083C37 BPL L083C3E LDA #$0000 BRA L083C41 L083C3E LDA #$0001 L083C41 AND $01,S PLX LSR BCC L083CB1 LDA $12 DEC STA $12 LDA $0E LDX $10 STA $01 STX $03 LDA #$0002 CLC ADC $01 LDX $03 BCC L083C5F INX L083C5F STA $05 STX $07 PEI $12 PEA $0008 JSL L1500F5 PLX PLX PEA $001C JSL L150BEE PLA STA [$05] LDA $01 LDX $03 STA $05 STX $07 PEI $12 PEA $0008 JSL L150318 PLX PLX PEA $000A JSL L150BEE PLA STA [$05] LDY #$0002 LDA #$001C CLC ADC [$01],Y DEC DEC LDY #$0006 STA [$01],Y LDA #$000A CLC ADC [$01] DEC LDY #$0004 STA [$01],Y L083CB1 LDA $0C STA $12 LDA $0B STA $11 LDA $09 TCD TSC CLC ADC #$0010 TCS RTL L083CC3 PHD TSC CLC ADC #$FFFC TCS TCD LDA L05508F LDX L055091 CMP $0A BNE L083CD7 CPX $0C L083CD7 BEQ L083CEA LDA $0A LDX $0C STA L05508F STX L055091 PEA $0018 JSL L0727E0 L083CEA LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L083CFB ENT PHD TSC CLC ADC #$FFF0 TCS TCD LDA L055137 BNE L083D0B BRL L083E96 L083D0B PEA ^L0532B5 PEA L0532B5 JSL L082712 LDA L055051 BEQ L083D3E LDX #$0000 LDA L0550B9 BNE L083D23 INX L083D23 TXA AND L055153 BEQ L083D2E STZ L055135 BRA L083D31 L083D2E STZ L055139 L083D31 PEA ^L0532BD PEA L0532BD JSL L082712 BRL L083E93 L083D3E LDA L055153 BNE L083D46 BRL L083E03 L083D46 LDA L0550B9 BNE L083D6F PHY PHY PEA $FFFF PEA $FFFF LDA L055109 LDX L05510B PHX PHA LDA L055115 LDX L055117 PHX PHA JSL L08337F PLA STA $09 PLX STX $0B BRA L083D91 L083D6F PHY PHY PEA $FFFF PEA $FFFF LDA L055105 LDX L055107 PHX PHA LDA L055115 LDX L055117 PHX PHA JSL L08337F PLA STA $09 PLX STX $0B L083D91 LDA #$FFFF TAX CMP $09 BNE L083D9B CPX $0B L083D9B BNE L083DA0 BRL L083E93 L083DA0 LDA L055115 LDX L055117 CMP $09 BNE L083DAC CPX $0B L083DAC BEQ L083E00 PHY PHY LDA L05501F LDX L055021 PHX PHA JSL L07721A PLA STA $01 PLX STX $03 LDA $01 ORA $03 BEQ L083DF6 LDY #$0002 LDA [$01],Y TAX LDA [$01] CLC ADC #$000C BCC L083DD7 INX L083DD7 STA $0D STX $0F LDA $09 LDX $0B STA [$0D] TXA LDY #$0002 STA [$0D],Y LDA L05501F LDX L055021 PHX PHA PEA $0001 JSL L074A24 L083DF6 LDA $09 LDX $0B STA L055115 STX L055117 L083E00 BRL L083E93 L083E03 PHY PHY LDA L055101 LDX L055103 PHX PHA LDA L055105 LDX L055107 PHX PHA LDA L055119 LDX L05511B PHX PHA JSL L08337F PLA STA $09 PLX STX $0B LDA #$FFFF TAX CMP $09 BNE L083E31 CPX $0B L083E31 BEQ L083E93 LDA L055119 LDX L05511B CMP $09 BNE L083E3F CPX $0B L083E3F BEQ L083E93 PHY PHY LDA L055027 LDX L055029 PHX PHA JSL L0772AE PLA STA $05 PLX STX $07 LDA $05 ORA $07 BEQ L083E89 LDY #$0002 LDA [$05],Y TAX LDA [$05] CLC ADC #$000C BCC L083E6A INX L083E6A STA $0D STX $0F LDA $09 LDX $0B STA [$0D] TXA LDY #$0002 STA [$0D],Y LDA L055027 LDX L055029 PHX PHA PEA $0001 JSL L074A90 L083E89 LDA $09 LDX $0B STA L055119 STX L05511B L083E93 STZ L055137 L083E96 TSC CLC ADC #$0010 TCS PLD RTL L083E9E ENT PHD TSC CLC ADC #$FFDC TCS TCD LDA L054FBB SEC SBC #$0000 BMI L083EE4 TDC CLC ADC #$0001 PEA $0000 PHA JSL L085F5A PEA $0000 TDC CLC ADC #$0001 PEA $0000 PHA JSL L150306 LDA L055027 LDX L055029 STA L05513F STX L055141 LDA L055039 LDX L05503B STA L05513B STX L05513D L083EE4 TSC CLC ADC #$0024 TCS PLD RTL L083EEC PHD TSC CLC ADC #$FFF4 TCS TCD LDA L055099 BEQ L083EFC BRL L083F91 L083EFC PEA ^L053127 PEA L053127 PEA ^L05311F PEA L05311F TDC CLC ADC #$0001 PEA $0000 PHA JSL L081E5F PHY PEA ^L053259 PEA L053259 TDC CLC ADC #$0001 PEA $0000 PHA TDC CLC ADC #$0001 PEA $0000 PHA JSL L150B3A PLA LSR BCC L083F78 LDA #$FFF8 AND $03 STA $03 LDA #$0007 CLC ADC $07 AND #$FFF8 STA $07 LDA L0550FD LDX L0550FF PHX PHA TDC CLC ADC #$0001 PEA $0000 PHA LDA L0550ED LDX L0550EF CLC ADC #$001C BCC L083F66 INX L083F66 STA $09 STX $0B LDY #$0002 LDA [$09],Y TAX LDA [$09] PHX PHA JSL L082E8D L083F78 PEA ^L05311F PEA L05311F PEA ^L053127 PEA L053127 PEA $0008 JSL L0313BE LDA #$0001 STA L055099 L083F91 LDA $10 STA $14 LDA $0F STA $13 LDA $0D TCD TSC CLC ADC #$0012 TCS RTL L083FA3 PHD TSC CLC ADC #$FFFC TCS TCD JSL L083E9E LDA #$0001 STA L055097 STZ L055095 LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L083FC9 PHD TSC CLC ADC #$FFDA TCS TCD STZ $01 L083FD3 TDC CLC ADC #$0003 STA $23 STZ $25 LDA $01 ASL ASL TAY LDA $30 STA [$23],Y TDC CLC ADC #$0003 STA $23 STZ $25 LDA $01 ASL INC ASL TAY LDA $32 STA [$23],Y PEA $0000 TDC CLC ADC #$0003 PEA $0000 PHA JSL L150306 STZ L055097 LDA #$0001 STA L055095 LDA #$0007 CMP $01 BEQ L08401C INC $01 BRA L083FD3 L08401C LDA $2A STA $32 LDA $29 STA $31 LDA $27 TCD TSC CLC ADC #$0030 TCS RTL L08402E PHD TSC CLC ADC #$FFA4 TCS TCD LDA #$0003 CLC ADC $62 LDX $64 BCC L084041 INX L084041 CLC ADC #$0004 BCC L084048 INX L084048 STA $59 STX $5B LDA [$59] SEC SBC #$0000 BPL L084057 BRL L084187 L084057 CMP #$0006 BMI L08405F BRL L084187 L08405F ASL TAX LDAL L084067,X PHA RTS L084067 DA L084073-1 DA L084088-1 DA L084099-1 DA L0840AA-1 DA L0840BB-1 DA L08414B-1 L084073 PEA $0000 PEI $62 JSL L083EEC PEA $0000 PEI $62 JSL L083FA3 BRL L0841CC L084088 PEA $0000 PEA $0000 PEA $0000 PHD JSL L083FC9 BRL L0841CC L084099 PEA $0FFF PEA $0FFF PEA $0000 PHD JSL L083FC9 BRL L0841CC L0840AA PEA $0000 PEA $0FFF PEA $0000 PHD JSL L083FC9 BRL L0841CC L0840BB LDA L055099 EOR #$0001 PHA LDA L055095 EOR #$0001 AND $01,S PLX LSR BCC L0840DC PEA $0000 PEA $0FFF PEA $0000 PHD JSL L083FC9 L0840DC PEA $0000 PEI $62 JSL L083EEC TDC CLC ADC #$0039 PEA $0000 PHA JSL L085F5A STZ $37 L0840F4 TDC CLC ADC #$0039 STA $59 STZ $5B LDA $37 ASL TAY TYA CLC ADC $59 TAX LDA $5B BCC L08410B INC L08410B PHA PHX TDC CLC ADC #$0039 STA $59 STZ $5B LDA $37 ASL TAY LDA #$0FFF EOR [$59],Y PLX STX $59 PLX STX $5B STA [$59] LDA #$000F CMP $37 BEQ L084132 INC $37 BRA L0840F4 L084132 PEA $0000 TDC CLC ADC #$0039 PEA $0000 PHA JSL L150306 STZ L055097 STZ L055095 BRL L0841CC L08414B LDA #$0003 CLC ADC $62 LDX $64 BCC L084156 INX L084156 CLC ADC #$0006 BCC L08415D INX L08415D STA $59 STX $5B LDA [$59] PHA LDA #$0003 CLC ADC $62 LDX $64 BCC L08416F INX L08416F CLC ADC #$0006 BCC L084176 INX L084176 STA $59 STX $5B LDA [$59] PHA PEA $0000 PHD JSL L083FC9 BRA L0841CC L084187 PEA ^L040A1F PEA L040A1F PEA $0000 TDC CLC ADC #$0001 PHA LDA #$0003 CLC ADC $62 LDX $64 BCC L0841A1 INX L0841A1 CLC ADC #$0004 BCC L0841A8 INX L0841A8 STA $59 STX $5B LDA [$59] JSL L150488 PHX PHA JSL L07346C TDC CLC ADC #$0015 PEA $0000 PHA PEA $0002 JSL L1509CE JSL L07010A L0841CC LDA $60 STA $64 LDA $5F STA $63 LDA $5D TCD TSC CLC ADC #$0062 TCS RTL L0841DE PHD TSC CLC ADC #$FFF4 TCS TCD LDA $18 DEC STA $18 PEI $18 PEA $0003 JSL L1500F5 PLX PLX STA $07 LDA #$FFF0 STA $03 LDA #$000F AND $16 STA $16 PEI $18 LDA $07 PEA $0003 JSL L150BEE PLA STA $09 PLA SEC SBC $09 STA $01 LDA $01 SEC SBC #$0001 BVS L084223 EOR #$8000 L084223 BPL L084247 LDA #$0001 STA $05 L08422A LDA $16 ASL ASL ASL ASL STA $16 LDA $03 ASL ASL ASL ASL ORA #$000F STA $03 LDA $05 CMP $01 BEQ L084247 INC $05 BRA L08422A L084247 LDA $07 ASL CLC ADC $1A LDX $1C BCC L084252 INX L084252 STA $09 STX $0B LDA $07 ASL TAY LDA $03 AND [$1A],Y ORA $16 STA [$09] LDA $10 STA $1C LDA $0F STA $1B LDA $0D TCD TSC CLC ADC #$001A TCS RTL L084274 PHD TSC CLC ADC #$FFF4 TCS TCD LDA $16 DEC STA $16 PEI $16 PEA $0003 JSL L1500F5 PLX PLX STA $07 LDA $07 ASL TAY LDA [$18],Y STA $05 PEI $16 LDA $07 PEA $0003 JSL L150BEE PLA STA $09 PLA SEC SBC $09 STA $01 LDA $01 SEC SBC #$0001 BVS L0842B5 EOR #$8000 L0842B5 BPL L0842D2 LDA #$0001 STA $03 L0842BC PEI $05 PEA $0004 JSL L1510EF PLA STA $05 LDA $03 CMP $01 BEQ L0842D2 INC $03 BRA L0842BC L0842D2 LDA #$000F AND $05 STA $1C LDA $10 STA $1A LDA $0F STA $19 LDA $0D TCD TSC CLC ADC #$0018 TCS RTL L0842EB PHD TSC CLC ADC #$FEF8 TCS ADC #$001B TCD PEA $0000 TDC CLC ADC #$FFE5 PHA PEI $FA PEI $F8 PEA $0020 JSL L0313BE PEA $0000 TDC CLC ADC #$0005 PEA $0000 PHA JSL L150300 LDA #$0001 STA $E5 L08431F LDA $E5 ASL CLC ADC #$0083 TAX STX $E9 TDC CLC ADC $E9 STA $E9 STZ $EB PHY TDC CLC ADC #$0005 PEA $0000 PHA PEI $E5 PEA $0000 PHD JSL L084274 LDA #$0010 JSL L150BEE PLA STA [$E9] LDA $E5 ASL CLC ADC #$0023 TAX STX $E9 TDC CLC ADC $E9 LDX #$0000 PHX PHA PHY PEA $0000 TDC CLC ADC #$FFE5 PHA PEI $E5 PEA $0000 PHD JSL L084274 PHY TDC CLC ADC #$0005 PEA $0000 PHA PEI $E5 PEA $0000 PHD JSL L084274 PLA STA $E9 PLA SEC SBC $E9 PLX STX $E9 PLX STX $EB STA [$E9] LDA #$0030 CMP $E5 BEQ L0843A5 INC $E5 BRL L08431F L0843A5 LDA #$0001 STA $E7 L0843AA LDA #$0001 STA $E5 L0843AF LDA $E5 ASL CLC ADC #$0083 TAX STX $E9 TDC CLC ADC $E9 STA $E9 STZ $EB LDA $E5 ASL CLC ADC #$0083 TAX LDA $00,X PHA LDA $E5 ASL CLC ADC #$0023 TAX PLA CLC ADC $00,X STA [$E9] TDC CLC ADC #$0005 PEA $0000 PHA PEI $E5 LDA $E5 ASL CLC ADC #$0083 TAX LDA $00,X PHA PEA $0010 JSL L1500F5 PLX PLX PHA PEA $0000 PHD JSL L0841DE LDA #$0030 CMP $E5 BEQ L08440D INC $E5 BRA L0843AF L08440D PEA $0000 TDC CLC ADC #$0005 PEA $0000 PHA JSL L150306 PEI $F6 JSL L0706CF LDA #$0010 CMP $E7 BEQ L08442F INC $E7 BRL L0843AA L08442F PEA $0000 PEA $0000 TDC CLC ADC #$FFE5 PHA JSL L150306 LDA $F0 STA $FA LDA $EF STA $F9 LDA $ED TCD TSC CLC ADC #$0114 TCS RTL L084451 PHD TSC CLC ADC #$FFD6 TCS TCD LDA $38 DEC BNE L084464 STZ $23 STZ $21 BRA L0844C8 L084464 LDA $38 DEC DEC BNE L084476 LDA #$0FFF STA $23 LDA #$0FFF STA $21 BRA L0844C8 L084476 LDA #$0003 CMP $38 BNE L084486 STZ $23 LDA #$0FFF STA $21 BRA L0844C8 L084486 LDA #$0005 CMP $38 BNE L0844C8 TDC CLC ADC #$0001 PEA $0000 PHA JSL L085F5A TDC CLC ADC #$0001 STA $27 STZ $29 LDA $36 LSR LSR AND #$0003 ASL TAY LDA [$27],Y STA $23 TDC CLC ADC #$0001 STA $27 STZ $29 LDA #$0003 AND $36 CLC ADC #$0004 ASL TAY LDA [$27],Y STA $21 L0844C8 STZ $25 L0844CA TDC CLC ADC #$0001 STA $27 STZ $29 LDA $25 ASL TAY LDA $23 STA [$27],Y TDC CLC ADC #$0001 STA $27 STZ $29 LDA #$0008 CLC ADC $25 ASL TAY LDA $23 STA [$27],Y LDA #$0003 CMP $25 BEQ L0844FB INC $25 BRA L0844CA L0844FB LDA #$0004 STA $25 L084500 TDC CLC ADC #$0001 STA $27 STZ $29 LDA $25 ASL TAY LDA $21 STA [$27],Y TDC CLC ADC #$0001 STA $27 STZ $29 LDA #$0008 CLC ADC $25 ASL TAY LDA $21 STA [$27],Y LDA #$0007 CMP $25 BEQ L084531 INC $25 BRA L084500 L084531 TDC CLC ADC #$0001 PEA $0000 PHA PEI $34 PEA $0000 PEI $30 JSL L0842EB STZ L055097 LDA #$0001 STA L055095 LDA $2E STA $38 LDA $2D STA $37 LDA $2B TCD TSC CLC ADC #$0036 TCS RTL L084560 PHD TSC CLC ADC #$FFF4 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $18 PEI $16 PEA $0008 JSL L0313BE LDA #$0003 CLC ADC $12 LDX $14 BCC L084587 INX L084587 CLC ADC #$0004 BCC L08458E INX L08458E STA $09 STX $0B LDA [$09] BNE L0845C8 LDA L0550FD LDX L0550FF PHX PHA TDC CLC ADC #$0001 PEA $0000 PHA LDA L0550ED LDX L0550EF CLC ADC #$001C BCC L0845B4 INX L0845B4 STA $09 STX $0B LDY #$0002 LDA [$09],Y TAX LDA [$09] PHX PHA JSL L082E8D BRA L08461B L0845C8 LDA #$0003 CLC ADC $12 LDX $14 BCC L0845D3 INX L0845D3 CLC ADC #$0004 BCC L0845DA INX L0845DA STA $09 STX $0B LDA #$0004 CMP [$09] BNE L084601 PEA ^L053239 PEA L053239 TDC CLC ADC #$0001 PEA $0000 PHA PEI $03 PEI $01 PEA $8000 JSL L15025A BRA L08461B L084601 TDC CLC ADC #$0001 PEA $0000 PHA LDA #$000B CLC ADC $12 LDX $14 BCC L084615 INX L084615 PHX PHA JSL L1517EB L08461B LDA $10 STA $18 LDA $0F STA $17 LDA $0D TCD TSC CLC ADC #$0016 TCS RTL L08462D PHD TSC CLC ADC #$FFEC TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $24 PEI $22 PEA $0008 JSL L0313BE TDC CLC ADC #$0009 PEA $0000 PHA TDC CLC ADC #$0001 PEA $0000 PHA PEA $0008 JSL L0313BE LDA $1E CLC ADC $09 STA $0D TDC CLC ADC #$0009 PEA $0000 PHA PEA $0000 PEI $1A JSL L084560 LDA $0D STA $09 LDA $05 SEC SBC $1E STA $0D LDA $20 CLC ADC $03 STA $0F TDC CLC ADC #$0009 PEA $0000 PHA PEA $0000 PEI $1A JSL L084560 LDA $07 SEC SBC $20 STA $0B LDA $07 STA $0F TDC CLC ADC #$0009 PEA $0000 PHA PEA $0000 PEI $1A JSL L084560 LDA $0D STA $09 LDA $05 STA $0D LDA $03 STA $0B TDC CLC ADC #$0009 PEA $0000 PHA PEA $0000 PEI $1A JSL L084560 LDA $18 STA $24 LDA $17 STA $23 LDA $15 TCD TSC CLC ADC #$0022 TCS RTL L0846EC PHD TSC CLC ADC #$FFFC TCS TCD LDA #$0003 CLC ADC $0A LDX $0C BCC L0846FF INX L0846FF CLC ADC #$0004 BCC L084706 INX L084706 STA $01 STX $03 LDA [$01] BNE L084729 LDA #$0001 STA L055099 PEA ^L05311F PEA L05311F PEA ^L053127 PEA L053127 PEA $0008 JSL L0313BE BRA L084736 L084729 STZ L055099 PEA ^L05311F PEA L05311F JSL L082712 L084736 LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L084747 PHD TSC CLC ADC #$FFE6 TCS TCD STZ $11 L084751 TDC CLC ADC #$0001 PEA $0000 PHA LDA $11 LDX #$0000 PHX PHA PEA $0001 PEA $0000 JSL L15080D LDA #$003F CMP $11 BEQ L084776 INC $11 BRA L084751 L084776 STZ $15 L084778 PHY JSL L150705 PLA AND #$003F STA $11 L084783 TDC CLC ADC #$0001 PEA $0000 PHA LDA $11 LDX #$0000 PHX PHA PEA $0001 JSL L1516F3 PLA LSR BCC L0847B6 LDA $11 INC STA $11 LDA $11 SEC SBC #$003F BEQ L0847B4 BVS L0847B0 EOR #$8000 L0847B0 BPL L0847B4 STZ $11 L0847B4 BRA L084783 L0847B6 TDC CLC ADC #$0001 PEA $0000 PHA LDA $11 LDX #$0000 PHX PHA PEA $0001 PEA $0001 JSL L15080D LDA $11 LSR LSR LSR STA $13 LDA #$0007 AND $11 STA $11 LDA $11 PEA $0050 JSL L150BEE PLA STA $0B LDA $13 PEA $0019 JSL L150BEE PLA STA $09 LDA #$0050 CLC ADC $0B STA $0F LDA #$0019 CLC ADC $09 STA $0D TDC CLC ADC #$0009 PEA $0000 PHA PEA $0000 PEI $20 JSL L084560 LDY #$0067 LDA [$20],Y LSR PHA JSL L0706CF LDA #$003F CMP $15 BEQ L08482F INC $15 BRL L084778 L08482F PEA $0000 PEI $20 JSL L0846EC PEA $0000 PEI $20 JSL L083FA3 LDA $1E STA $22 LDA $1D STA $21 LDA $1B TCD TSC CLC ADC #$0020 TCS RTL L084853 PHD TSC CLC ADC #$FFEA TCS TCD LDA $20 SEC SBC #$000C BVS L084866 EOR #$8000 L084866 BPL L084870 LDA $20 SEC SBC #$0007 STA $20 L084870 TDC CLC ADC #$0003 PEA $0000 PHA JSL L082712 STZ $0F STZ $11 LDA $20 SEC SBC #$0005 BMI L0848E3 CMP #$0004 BPL L0848E3 SEC SBC #$0000 BEQ L08489F DEC BEQ L0848B0 DEC BEQ L0848C1 DEC BEQ L0848D2 BRA L0848E3 L08489F LDA #$0258 STA $05 LDA #$FFD8 STA $0F LDA #$000F STA $0B BRA L0848E3 L0848B0 LDA #$0028 STA $09 LDA #$0028 STA $0F LDA #$000F STA $0B BRA L0848E3 L0848C1 LDA #$00BE STA $03 LDA #$FFF6 STA $11 LDA #$0013 STA $0B BRA L0848E3 L0848D2 LDA #$000A STA $07 LDA #$000A STA $11 LDA #$0013 STA $0B BRA L0848E3 L0848E3 LDY #$0067 LDA [$1C],Y SEC SBC #$0000 BMI L08490F BEQ L08490F PHY PEI $0F PLA CMP #$8000 ROR STA $01,S PLA STA $0F PHY PEI $11 PLA CMP #$8000 ROR STA $01,S PLA STA $11 LDA $0B ASL STA $0B L08490F LDA $0B STA $01 LDA $01 BMI L084954 STZ $0D L084919 LDA $0D BEQ L084927 LDY #$0067 LDA [$1C],Y PHA JSL L0706CF L084927 TDC CLC ADC #$0003 PEA $0000 PHA PEA $0000 PEI $1C JSL L084560 TDC CLC ADC #$0003 PEA $0000 PHA PEI $0F PEI $11 JSL L1501AF LDA $0D CMP $01 BEQ L084954 INC $0D BRA L084919 L084954 PEA $0000 PEI $1C JSL L0846EC PEA $0000 PEI $1C JSL L083FA3 LDA $1A STA $20 LDA $19 STA $1F LDA $17 TCD TSC CLC ADC #$001E TCS RTL L084978 PHD TSC CLC ADC #$FF8A TCS TCD TDC CLC ADC #$0003 PEA $0000 PHA PEI $82 PEI $80 PEA $0008 JSL L0313BE TDC CLC ADC #$005D PEA $0000 PHA LDA $7E DEC DEC PHA LDA $7C DEC PHA LDA $7E INC INC PHA LDA $7C INC PHA JSL L15100B LDA L0550ED LDX L0550EF PHX PHA JSL L151131 LDA L055095 BEQ L084A05 LDA $03 BEQ L0849CB LDA #$0001 L0849CB PHA LDX #$0000 LDA #$0012 CMP $03 BEQ L0849D7 INX L0849D7 TXA AND $01,S PLX LSR BCC L084A05 LDA L055093 PHA JSL L081DD8 PEA ^L053259 PEA L053259 JSL L15037D STZ L055099 PEA $0000 PHD JSL L083FA3 PEA ^L05311F PEA L05311F JSL L082712 L084A05 LDA $07 DEC BNE L084A0E STZ $2B BRA L084A33 L084A0E LDA $07 DEC DEC BNE L084A1B LDA #$FFFF STA $2B BRA L084A33 L084A1B LDA #$0003 CMP $07 BNE L084A29 LDA #$3333 STA $2B BRA L084A33 L084A29 PHY PEI $09 JSL L081A92 PLA STA $2B L084A33 STZ $6F L084A35 TDC CLC ADC #$000B STA $73 STZ $75 LDA $6F ASL TAY LDA $2B STA [$73],Y LDA #$000F CMP $6F BEQ L084A51 INC $6F BRA L084A35 L084A51 LDA $2B STA L055093 LDA $05 BNE L084A5F LDA #$0001 STA $05 L084A5F PEA $0001 LDA $05 DEC ASL PHA JSL L1505F2 PLA STA $69 LDA $69 LSR STA $67 LDA $03 BPL L084A7A BRL L084F81 L084A7A CMP #$0013 BMI L084A82 BRL L084F81 L084A82 ASL TAX LDAL L084A8A,X PHA RTS L084A8A DA L084AAE+1 DA L084AB8+2 DA L084AB8+2 DA L084AE2+2 DA L084BBC+2 DA L084C50+2 DA L084C50+2 DA L084C50+2 DA L084C50+2 DA L084C5D+2 DA L084CFD+2 DA L084D75+2 DA L084C50+2 DA L084C50+2 DA L084C50+2 DA L084C50+2 DA L084D80+2 DA L084E30+2 L084AAE DA L084ED1+2 PEA $0000 PHD JSL L08402E L084AB8 BRL L084F89 TDC CLC ADC #$005D PEA $0000 PHA PEA ^L053259 PEA L053259 LDX #$0000 LDA $03 DEC BNE L084AD3 INX L084AD3 PHX PEI $69 JSL L087C26 PEA $0000 PHD JSL L08402E L084AE2 BRL L084F89 PEA ^L05312F PEA L05312F JSL L151131 STZ L055099 LDX #$0000 LDA #$0004 CMP $07 BNE L084AFD INX L084AFD PHX LDX #$0000 LDA $07 BNE L084B06 INX L084B06 TXA ORA $01,S PLX LSR BCC L084B48 PHY PEA ^L0532BD PEA L0532BD JSL L081A64 PLA LSR BCS L084B26 PEA ^L0532BD PEA L0532BD JSL L085216 L084B26 LDA $07 BNE L084B32 LDA #$0001 STA L055099 BRA L084B46 L084B32 PEA ^L053259 PEA L053259 JSL L150383 PEA ^L053127 PEA L053127 JSL L082712 L084B46 BRA L084B6F L084B48 PEA ^L053259 PEA L053259 TDC CLC ADC #$000B PEA $0000 PHA JSL L1517EB PEA ^L0532BD PEA L0532BD JSL L082712 PEA ^L053127 PEA L053127 JSL L082712 L084B6F LDA L0550FD LDX L0550FF PHX PHA LDA L0550ED LDX L0550EF CLC ADC #$001C BCC L084B84 INX L084B84 STA $73 STX $75 LDY #$0002 LDA [$73],Y TAX LDA [$73] PHX PHA PEI $69 JSL L0806D6 PEA ^L05311F PEA L05311F PEA ^L053127 PEA L053127 PEA $0008 JSL L0313BE LDA #$0004 CMP $07 BNE L084BBC PEA ^L053259 PEA L053259 JSL L150383 L084BBC BRL L084F89 TDC CLC ADC #$0055 PEA $0000 PHA JSL L082712 LDA #$0002 STA $65 LDA $67 BMI L084BDC BEQ L084BDC LDA #$0001 STA $65 L084BDC PEA $0026 PEI $65 JSL L1500F5 PLX PLX STA $01 LDA $01 BMI L084C40 STZ $6F L084BEF LDA $6F BEQ L084BF9 PEI $67 JSL L0706CF L084BF9 STZ $71 L084BFB LDA $71 PEA $0014 JSL L150BEE LDA $6F PEI $65 JSL L150BEE PLA CLC ADC $01,S PLX STA $55 LDA $65 CLC ADC $55 STA $59 TDC CLC ADC #$0055 PEA $0000 PHA PEA $0000 PHD JSL L084560 LDA #$0009 CMP $71 BEQ L084C36 INC $71 BRA L084BFB L084C36 LDA $6F CMP $01 BEQ L084C40 INC $6F BRA L084BEF L084C40 PEA $0000 PHD JSL L0846EC PEA $0000 PHD JSL L083FA3 L084C50 BRL L084F89 PEI $03 PEA $0000 PHD JSL L084853 L084C5D BRL L084F89 LDA #$005A STA $55 LDA #$0120 STA $57 LDA #$006E STA $59 LDA #$0160 STA $5B TDC CLC ADC #$0055 PEA $0000 PHA PEA $0000 PHD JSL L084560 LDA #$0020 STA $6B LDA #$000A STA $6D LDA $67 BMI L084C9F BEQ L084C9F LDA #$0010 STA $6B LDA #$0005 STA $6D L084C9F PEI $69 JSL L0706CF TDC CLC ADC #$0055 PEA $0000 PHA LDA $6B EOR #$FFFF INC PHA LDA $6D EOR #$FFFF INC PHA JSL L151005 TDC CLC ADC #$0055 PEA $0000 PHA PEI $6B PEI $6D PEA $0000 PHD JSL L08462D PHY TDC CLC ADC #$0055 PEA $0000 PHA PEA ^L053259 PEA L053259 JSL L1501A9 PLA LSR BCC L084C9F PEA $0000 PHD JSL L0846EC PEA $0000 PHD JSL L083FA3 L084CFD BRL L084F89 TDC CLC ADC #$0055 PEA $0000 PHA JSL L082712 LDA #$0020 STA $6B LDA #$000A STA $6D LDA $67 BMI L084D27 BEQ L084D27 LDA #$0010 STA $6B LDA #$0005 STA $6D L084D27 TDC CLC ADC #$0055 PEA $0000 PHA PEI $6B PEI $6D PEA $0000 PHD JSL L08462D TDC CLC ADC #$0055 PEA $0000 PHA PEI $6B PEI $6D JSL L151005 PEI $69 JSL L0706CF PHY TDC CLC ADC #$0055 PEA $0000 PHA JSL L081A64 PLA LSR BCC L084D27 PEA $0000 PHD JSL L0846EC PEA $0000 PHD JSL L083FA3 L084D75 BRL L084F89 PEA $0000 PHD JSL L084747 L084D80 BRL L084F89 STZ $55 LDA #$0120 STA $57 LDA #$00C8 STA $59 LDA #$0160 STA $5B TDC CLC ADC #$0055 PEA $0000 PHA PEA $0000 PHD JSL L084560 LDA #$0140 STA $5B STZ $4D LDA #$0140 STA $4F LDA #$00C8 STA $51 LDA #$0160 STA $53 LDA #$0020 STA $6B LDA $67 BMI L084DCB BEQ L084DCB LDA #$0010 STA $6B L084DCB PEI $67 JSL L0706CF TDC CLC ADC #$0055 PEA $0000 PHA LDA $6B EOR #$FFFF INC PHA PEA $0000 JSL L1501AF TDC CLC ADC #$0055 PEA $0000 * PHA PEA $0000 PHD JSL L084560 TDC CLC ADC #$004D PEA $0000 PHA PEI $6B PEA $0000 JSL L1501AF TDC CLC ADC #$004D PEA $0000 PHA PEA $0000 PHD JSL L084560 LDA $57 BNE L084DCB PEA $0000 PHD JSL L0846EC PEA $0000 PHD JSL L083FA3 L084E30 BRL L084F89 STZ $55 STZ $57 LDA #$00C8 STA $59 LDA #$0020 STA $5B STZ $4D LDA #$0260 STA $4F LDA #$00C8 STA $51 LDA #$0280 STA $53 LDA #$0020 STA $6B LDA $67 BMI L084E62 BEQ L084E62 LDA #$0010 STA $6B L084E62 PEI $69 JSL L0706CF TDC CLC ADC #$0055 PEA $0000 PHA PEA $0000 PHD JSL L084560 TDC CLC ADC #$004D PEA $0000 PHA PEA $0000 PHD JSL L084560 TDC CLC ADC #$0055 PEA $0000 PHA PEI $6B PEA $0000 JSL L1501AF TDC CLC ADC #$004D PEA $0000 PHA LDA $6B EOR #$FFFF INC PHA PEA $0000 JSL L1501AF LDA $5B SEC SBC $4F BEQ L084E62 BVS L084EBF EOR #$8000 L084EBF BPL L084E62 PEA $0000 PHD JSL L0846EC PEA $0000 PHD JSL L083FA3 L084ED1 BRL L084F89 LDX #$0000 LDA $07 BNE L084EDC INX L084EDC PHX LDX #$0000 LDA #$0004 CMP $07 BNE L084EE8 INX L084EE8 TXA ORA $01,S PLX LSR BCS L084EF2 BRL L084F71 L084EF2 PEA $0000 PHD JSL L083EEC TDC CLC ADC #$002D PEA $0000 PHA JSL L085F5A LDA #$0004 CMP $07 BNE L084F53 STZ $6F L084F10 TDC CLC ADC #$002D STA $73 STZ $75 LDA $6F ASL TAY TYA CLC ADC $73 TAX LDA $75 BCC L084F27 INC L084F27 PHA PHX TDC CLC ADC #$002D STA $73 STZ $75 LDA $6F ASL TAY LDA #$0FFF EOR [$73],Y PLX STX $73 PLX STX $75 STA [$73] LDA #$000F CMP $6F BEQ L084F4E INC $6F BRA L084F10 L084F4E STZ L055097 BRA L084F59 L084F53 LDA #$0001 STA L055097 L084F59 TDC CLC ADC #$002D PEA $0000 PHA PEI $69 PEA $0000 PHD JSL L0842EB STZ L055095 BRA L084F7F L084F71 PEI $07 PEI $09 PEI $69 PEA $0000 PHD JSL L084451 L084F7F BRA L084F89 L084F81 PEA $0000 PHD JSL L08402E L084F89 LDA $7A STA $82 LDA $79 STA $81 LDA $77 TCD TSC CLC ADC #$0080 TCS RTL L084F9B ENT PHD TSC CLC ADC #$FFFA TCS TCD LDA L055149 STA $01 LDA L055153 BEQ L084FB0 STZ L055149 L084FB0 PEI $10 PEI $0E PEA $0001 PEI $0C JSL L081517 LDA $01 STA L055149 LDA $0A STA $10 LDA $09 STA $0F LDA $07 TCD TSC CLC ADC #$000E TCS RTL L084FD4 ENT PHD TSC CLC ADC #$FFE8 TCS TCD LDX #$0000 LDA L055119 ORA L05511B BNE L084FE8 INX L084FE8 PHX LDA L055137 EOR #$0001 AND $01,S PLX ORA L055151 BEQ L084FFA BRL L08508B L084FFA TDC CLC ADC #$000D PEA $0000 PHA LDAL L05314D TAX LDAL L05314B STA $15 STX $17 LDY #$0002 LDA [$15],Y TAX LDA [$15] CLC ADC #$0002 BCC L08501F INX L08501F PHX PHA PEA $0008 JSL L0313BE LDA L055139 BNE L085055 LDA L055119 LDX L05511B PHX PHA LDA L055101 LDX L055103 PHX PHA LDA L055105 LDX L055107 PHX PHA PEA ^L05310F PEA L05310F JSL L083523 LDA #$0001 STA L055139 L085055 LDA L055101 LDX L055103 PHX PHA LDA L055105 LDX L055107 PHX PHA PEI $24 PEI $22 PEI $24 PEI $22 TDC CLC ADC #$000D PEA $0000 PHA PEA $FFFE JSL L0836B6 PEA ^L05310F PEA L05310F PEI $20 PEI $1E JSL L081E53 L08508B LDA $1C STA $24 LDA $1B STA $23 LDA $19 TCD TSC CLC ADC #$0022 TCS RTL L08509D ENT PHD TSC CLC ADC #$FFF8 TCS TCD PHY PHY JSL L150493 PLA STA $01 PLX STX $03 LDA L0550E1 LDX L0550E3 PHX PHA JSL L151131 JSL L1510A1 PEA $3333 JSL L081DD8 LDA #$000C CLC ADCL L05324B PHA LDAL L05324D PHA JSL L1510C5 LDAL L05324F SEC SBC #$000C PHA LDAL L05324D PHA JSL L1505DA JSL L1510A1 LDA L055111 LDX L055113 PHX PHA JSL L150BD0 PEI $03 PEI $01 JSL L151131 PLY PLY PLY PLY PLD RTL L08510A ENT PHD TSC CLC ADC #$FFF2 TCS TCD PEI $16 JSL L081DD8 PEA $0002 PEA $0001 JSL L151083 LDY #$0006 LDA [$18],Y SEC SBC #$001A STA $01 PEI $01 LDA [$18] PHA JSL L1510C5 PEI $01 LDY #$0004 LDA [$18],Y DEC PHA JSL L1505DA LDA $01 INC INC PHA LDA #$000C CLC ADC [$18] PHA JSL L1510C5 PEA $0016 PEA $0000 JSL L15056E LDA $01 INC INC PHA LDY #$0004 LDA [$18],Y SEC SBC #$000D PHA JSL L1510C5 PEA $0016 PEA $0000 JSL L15056E PHY PHY JSL L1517D9 PLA STA $07 PLX STX $09 PHY PHY JSL L1507FB PLA STA $03 PLX STX $05 PHY PHY PEA $FFFF PEA $FFFF JSL L150B16 JSL L150D20 PHY PEI $16 JSL L081A92 JSL L1511E6 PEI $14 JSL L1511E0 PEA $0000 JSL L1512E3 PEA $0000 JSL L1516ED LDA #$0004 CLC ADC $01 PHA LDA [$18] INC INC PHA JSL L1510C5 PEA $0008 JSL L150197 LDA #$0004 CLC ADC $01 PHA LDY #$0004 LDA [$18],Y SEC SBC #$000B PHA JSL L1510C5 PEA $000A JSL L150197 PEI $09 PEI $07 JSL L150D20 PEI $05 PEI $03 JSL L1507F5 LDA $12 STA $1A LDA $11 STA $19 LDA $0F TCD TSC CLC ADC #$0018 TCS RTL L085216 ENT PHD TSC CLC ADC #$FFE6 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $22 PEI $20 PEA $0008 JSL L0313BE PHY PHY JSL L150493 PLA STA $13 PLX STX $15 PEA ^L05312F PEA L05312F JSL L151131 TDC CLC ADC #$0001 PEA $0000 PHA PEA ^L0532BD PEA L0532BD JSL L081E53 LDAL L0532BF AND #$FFF8 STAL L0532BF LDA #$0007 CLC ADCL L0532C3 AND #$FFF8 STAL L0532C3 JSL L086C4E LDA L055153 BNE L085281 BRL L085323 L085281 LDA L05514F BEQ L0852A7 LDA L0550FD LDX L0550FF PHX PHA PEA $FFFF PEA ^L053127 PEA L053127 JSL L085B3C PEA ^L053127 PEA L053127 JSL L08273B BRA L085313 L0852A7 PEA ^L053117 PEA L053117 PEA ^L053127 PEA L053127 TDC CLC ADC #$000B PEA $0000 PHA JSL L081E5F PHY TDC CLC ADC #$000B PEA $0000 PHA PEA ^L0532BD PEA L0532BD TDC CLC ADC #$000B PEA $0000 PHA JSL L150B3A PLA STA $09 LDA L055109 LDX L05510B PHX PHA LDA L0550FD LDX L0550FF PHX PHA TDC CLC ADC #$000B PEA $0000 PHA PEA $0000 JSL L08382C PEA ^L053127 PEA L053127 PEA ^L053117 PEA L053117 PEA $0008 JSL L0313BE L085313 PEA $0000 PEA $0002 PEA $0000 JSL L084F9B BRL L085451 L085323 LDA L05514F BEQ L085369 PHY PEA ^L0532BD PEA L0532BD PEA ^L053127 PEA L053127 TDC CLC ADC #$000B PEA $0000 PHA JSL L150B3A PLA STA $09 LDA L0550FD LDX L0550FF PHX PHA PEA $FFFF TDC CLC ADC #$000B PEA $0000 PHA JSL L085B3C PEA ^L053127 PEA L053127 JSL L08273B BRA L0853D5 L085369 PEA ^L053117 PEA L053117 PEA ^L053127 PEA L053127 TDC CLC ADC #$000B PEA $0000 PHA JSL L081E5F PHY TDC CLC ADC #$000B PEA $0000 PHA PEA ^L0532BD PEA L0532BD TDC CLC ADC #$000B PEA $0000 PHA JSL L150B3A PLA STA $09 LDA L055109 LDX L05510B PHX PHA LDA L0550FD LDX L0550FF PHX PHA TDC CLC ADC #$000B PEA $0000 PHA PEA $0000 JSL L08382C PEA ^L053127 PEA L053127 PEA ^L053117 PEA L053117 PEA $0008 JSL L0313BE L0853D5 LDAL L05314D TAX LDAL L05314B STA $17 STX $19 LDY #$0002 LDA [$17],Y TAX LDA [$17] CLC ADC #$0002 BCC L0853F1 INX L0853F1 PHX PHA PEA ^L0532BD PEA L0532BD PEA $0008 JSL L0313BE PEA $0000 PEA $0002 PEA $0000 JSL L084F9B LDA L0550FD LDX L0550FF PHX PHA PEA ^L053127 PEA L053127 JSL L084FD4 PEA $0000 PEA $0002 PEA $0000 PEA $0000 JSL L081517 LDAL L05314D TAX LDAL L05314B STA $17 STX $19 LDY #$0002 LDA [$17],Y TAX LDA [$17] CLC ADC #$0002 BCC L08544B INX L08544B PHX PHA JSL L082712 L085451 PEA ^L0532BD PEA L0532BD JSL L08273B JSL L1510A1 PEI $15 PEI $13 JSL L151131 LDA $1E STA $22 LDA $1D STA $21 LDA $1B TCD TSC CLC ADC #$0020 TCS RTL L085479 ENT PHD TSC CLC ADC #$FFF0 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $18 PEI $16 PEA $0008 JSL L0313BE PHY PHY JSL L150493 PLA STA $09 PLX STX $0B PEA ^L0531E9 PEA L0531E9 PEI $0B PEI $09 PEA ^L0531F1 PEA L0531F1 TDC CLC ADC #$0001 PEA $0000 PHA PEA $0000 PEA $0000 PEA $0000 JSL L1505E6 LDA $14 STA $18 LDA $13 STA $17 LDA $11 TCD TSC CLC ADC #$0016 TCS RTL L0854D9 ENT PHD TSC CLC ADC #$FFE8 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $20 PEI $1E PEA $0008 JSL L0313BE PHY PHY JSL L150493 PLA STA $11 PLX STX $13 LDA L054FBB PHA LDX #$0000 PLA BPL L08550C INX L08550C TXA PHA LDA L0550DD LDX L0550DF CMP $11 BNE L08551A CPX $13 L08551A BEQ L085521 LDA #$0000 BRA L085524 L085521 LDA #$0001 L085524 AND $01,S PLX LSR BCC L085533 LDA #$0001 STA L05512D BRL L0855D4 L085533 PEA ^L0531D9 PEA L0531D9 PEI $13 PEI $11 PEA ^L0531E1 PEA L0531E1 TDC CLC ADC #$0001 PEA $0000 PHA PEA $0000 PEA $0000 PEA $0000 JSL L1505E6 LDA L0550B5 PHA TDC CLC ADC #$0009 PEA $0000 PHA JSL L083C0E JSL L1510A1 TDC CLC ADC #$0009 PEA $0000 PHA PEA $FFFA PEA $FFFD JSL L151005 PEA $0002 PEA $0001 JSL L151083 PEA $0000 JSL L081DD8 TDC CLC ADC #$0009 PEA $0000 PHA JSL L151418 TDC CLC ADC #$0009 PEA $0000 PHA PEA $0002 PEA $0001 JSL L151005 PEA $0002 PEA $0001 JSL L151083 PEA $FFFF JSL L081DD8 TDC CLC ADC #$0009 PEA $0000 PHA JSL L151418 JSL L1510A1 L0855D4 LDA $1C STA $20 LDA $1B STA $1F LDA $19 TCD TSC CLC ADC #$001E TCS RTL L0855E6 ENT PHD TSC CLC ADC #$FFF0 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $18 PEI $16 PEA $0008 JSL L0313BE PHY PHY JSL L150493 PLA STA $09 PLX STX $0B LDA L054FBB PHA LDX #$0000 PLA BPL L085619 INX L085619 TXA PHA LDA L0550E9 LDX L0550EB CMP $09 BNE L085627 CPX $0B L085627 BEQ L08562E LDA #$0000 BRA L085631 L08562E LDA #$0001 L085631 AND $01,S PLX LSR BCC L08563F LDA #$0001 STA L055131 BRA L085669 L08563F PEA ^L0531F9 PEA L0531F9 PEI $0B PEI $09 PEA ^L053201 PEA L053201 TDC CLC ADC #$0001 PEA $0000 PHA PEA $0000 PEA $0000 PEA $0000 JSL L1505E6 JSL L086B8B L085669 LDA $14 STA $18 LDA $13 STA $17 LDA $11 TCD TSC CLC ADC #$0016 TCS RTL L08567B ENT PHD TSC CLC ADC #$FFF8 TCS TCD LDA #$0007 CMP $0E BNE L085696 LDA #$0022 STA $01 LDA #$001E STA $03 BRA L0856A0 L085696 LDA #$0008 STA $01 LDA #$000F STA $03 L0856A0 LDA #$0004 CLC ADC $10 LDX $12 BCC L0856AB INX L0856AB STA $05 STX $07 PHY LDA $01 CLC ADC [$10] PHA LDY #$0004 LDA [$10],Y PHA JSL L072FA6 PLA STA [$05] LDA #$0006 CLC ADC $10 LDX $12 BCC L0856CE INX L0856CE STA $05 STX $07 PHY LDY #$0002 LDA $03 CLC ADC [$10],Y PHA LDY #$0006 LDA [$10],Y PHA JSL L072FA6 PLA STA [$05] LDA $0C STA $12 LDA $0B STA $11 LDA $09 TCD TSC CLC ADC #$0010 TCS RTL L0856FB PHD TSC CLC ADC #$FFEC TCS TCD STZ $1E LDY #$006B LDA [$1A],Y TAX DEY DEY LDA [$1A],Y STA $01 STX $03 LDY #$0004 LDA #$8000 AND [$01],Y CMP #$0000 BEQ L085723 BRL L0857B7 L085723 PHY LDA #$003F CLC ADC $1A LDX $1C BCC L08572F INX L08572F PHX PHA LDA #$0006 CLC ADC $01 LDX $03 BCC L08573C INX L08573C PHX PHA TDC CLC ADC #$0009 PEA $0000 PHA JSL L150B3A PLA LSR BCC L0857B7 LDY #$000E LDA [$01],Y AND #$000F BNE L0857B2 LDY #$0004 LDA #$000F AND [$01],Y DEC BNE L0857B2 LDY #$0010 LDA [$01],Y INY INY ORA [$01],Y BNE L0857B2 LDY #$0002 LDA [$01],Y STA $05 LDY #$007A LDA [$1A],Y TAX DEY DEY LDA [$1A],Y CMP L05501F BNE L085788 CPX L055021 L085788 BEQ L085792 LDA $05 EOR #$FFFF INC STA $05 L085792 PHY LDA L05501F LDX L055021 PHX PHA LDA L055027 LDX L055029 PHX PHA PEI $05 JSL L07A609 PLA STA $07 LDA $07 BNE L0857B2 BRA L0857B7 L0857B2 LDA #$0001 STA $1E L0857B7 LDA $18 STA $1C LDA $17 STA $1B LDA $15 TCD TSC CLC ADC #$001A TCS RTL L0857C9 PHD TSC CLC ADC #$FFD2 TCS TCD PHY PEI $40 PEI $3E PEI $3C TDC CLC ADC #$0001 PEA $0000 PHA JSL L07ABAE PLA LSR BCC L0857FF PEI $3A PEI $38 TDC CLC ADC #$0007 PEA $0000 PHA PEA $0008 JSL L0313BE BRA L085807 L0857FF PEI $3A PEI $38 JSL L08273B L085807 LDA $32 STA $40 LDA $31 STA $3F LDA $2F TCD TSC CLC ADC #$003E TCS RTL L085819 ENT PHD TSC CLC ADC #$FF90 TCS TCD LDA #$0001 STA $7C STZ $59 STZ $5B STZ $5D PHY PHY LDA L055027 LDX L055029 PHX PHA JSL L0772AE PLA STA $63 PLX STX $65 PHY PHY LDA L05501F LDX L055021 PHX PHA JSL L07721A PLA STA $5F PLX STX $61 PEI $7A PEI $78 PEI $76 TDC CLC ADC #$003F PEA $0000 PHA PEA $0000 PHD JSL L0857C9 TDC CLC ADC #$003F PEA $0000 PHA TDC CLC ADC #$0037 PEA $0000 PHA JSL L0808E0 LDA L05501F LDX L055021 CMP $78 BNE L08588D CPX $7A L08588D BEQ L085892 BRL L085A4A L085892 LDA $5F ORA $61 BEQ L085912 LDY #$0002 LDA [$5F],Y TAX LDA [$5F] CLC ADC #$0032 BCC L0858A7 INX L0858A7 STA $69 STX $6B LDY #$0002 LDA [$5F],Y TAX LDA [$5F] CLC ADC #$0024 BCC L0858BA INX L0858BA STA $6D STX $6F LDA [$6D] STA $03 LDA $03 SEC SBC #$0001 BVS L0858CD EOR #$8000 L0858CD BPL L085912 LDA #$0001 STA $67 L0858D4 LDA $59 BEQ L0858E8 PHY PEA $0000 PHD JSL L0856FB PLA LSR BCC L0858E8 BRL L085AEB L0858E8 LDY #$0002 LDA $76 CMP [$69],Y BNE L0858F6 LDA #$0001 STA $59 L0858F6 PEI $6B PEI $69 LDA [$69] JSL L150488 JSL L150F53 STA $69 STX $6B LDA $67 CMP $03 BEQ L085912 INC $67 BRA L0858D4 L085912 LDA L055151 BEQ L08591A BRL L085A4A L08591A PHY PEI $7A PEI $78 PEI $76 TDC CLC ADC #$0005 PEA $0000 PHA JSL L07ABAE PLA BEQ L08593F PHA LDA #$0018 AND $23 BEQ L08593C LDA #$0001 L08593C AND $01,S PLX L08593F STA $57 LDA L055153 EOR #$0001 AND L055137 BEQ L085996 TDC CLC ADC #$004F PEA $0000 PHA JSL L082712 LDA L055101 LDX L055103 PHX PHA TDC CLC ADC #$004F PEA $0000 PHA JSL L08295E LDA $57 BEQ L085994 TDC CLC ADC #$0047 PEA $0000 PHA JSL L082712 LDA L055105 LDX L055107 PHX PHA TDC CLC ADC #$0047 PEA $0000 PHA JSL L082766 L085994 BRA L0859F8 L085996 PHY PHY LDA L055119 LDX L05511B PHX PHA PEA $0000 JSL L077264 PLA STA $5B PLX STX $5D LDA $5B ORA $5D BNE L0859B6 BRL L085A4A L0859B6 TDC CLC ADC #$004F PEA $0000 PHA LDY #$0002 LDA [$5B],Y TAX LDA [$5B] CLC ADC #$001C BCC L0859CE INX L0859CE PHX PHA PEA $0008 JSL L0313BE TDC CLC ADC #$0047 PEA $0000 PHA LDY #$0002 LDA [$5B],Y TAX LDA [$5B] CLC ADC #$0024 BCC L0859EF INX L0859EF PHX PHA PEA $0008 JSL L0313BE L0859F8 PHY TDC CLC ADC #$004F PEA $0000 PHA TDC CLC ADC #$0037 PEA $0000 PHA TDC CLC ADC #$002F PEA $0000 PHA JSL L150B3A PLA LSR BCC L085A1F BRL L085AEB L085A1F LDA $57 BEQ L085A4A PHY TDC CLC ADC #$0047 PEA $0000 PHA TDC CLC ADC #$0037 PEA $0000 PHA TDC CLC ADC #$002F PEA $0000 PHA JSL L150B3A PLA LSR BCC L085A4A BRL L085AEB L085A4A LDA $63 ORA $65 BNE L085A53 BRL L085AE9 L085A53 LDY #$0002 LDA [$63],Y TAX LDA [$63] CLC ADC #$0032 BCC L085A62 INX L085A62 STA $69 STX $6B LDY #$0002 LDA [$63],Y TAX LDA [$63] CLC ADC #$0024 BCC L085A75 INX L085A75 STA $6D STX $6F LDA [$6D] STA $01 LDA $01 SEC SBC #$0001 BVS L085A88 EOR #$8000 L085A88 BPL L085AE9 LDA #$0001 STA $67 L085A8F LDA $59 BEQ L085AA0 PHY PEA $0000 PHD JSL L0856FB PLA LSR BCS L085AEB L085AA0 LDX #$0000 LDY #$0002 LDA [$69],Y CMP $76 BNE L085AAD INX L085AAD TXA BEQ L085ACD LDA L055027 LDX L055029 CMP $78 BNE L085ABC CPX $7A L085ABC BEQ L085AC3 LDA #$0000 BRA L085AC6 L085AC3 LDA #$0001 L085AC6 BEQ L085ACD LDA #$0001 STA $59 L085ACD PEI $6B PEI $69 LDA [$69] JSL L150488 JSL L150F53 STA $69 STX $6B LDA $67 CMP $01 BEQ L085AE9 INC $67 BRA L085A8F L085AE9 STZ $7C L085AEB LDA $5B ORA $5D BEQ L085B00 LDA L055119 LDX L05511B PHX PHA PEA $0000 JSL L074A5A L085B00 LDA $63 ORA $65 BEQ L085B15 LDA L055027 LDX L055029 PHX PHA PEA $0000 JSL L074A90 L085B15 LDA $5F ORA $61 BEQ L085B2A LDA L05501F LDX L055021 PHX PHA PEA $0000 JSL L074A24 L085B2A LDA $74 STA $7A LDA $73 STA $79 LDA $71 TCD TSC CLC ADC #$0078 TCS RTL L085B3C ENT PHD TSC CLC ADC #$FFE6 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $22 PEI $20 PEA $0008 JSL L0313BE PHY PEA ^L053259 PEA L053259 TDC CLC ADC #$0001 PEA $0000 PHA TDC CLC ADC #$0001 PEA $0000 PHA JSL L150B3A PLA LSR BCC L085BE8 LDA #$FFF8 AND $03 STA $03 LDA #$0007 CLC ADC $07 AND #$FFF8 STA $07 LDA $05 SEC SBC $01 STA $0B LDA $03 LSR LSR LSR AND #$7FFF STA $0D LDA $07 LSR LSR LSR AND #$7FFF SEC SBC $0D STA $0F LDA #$0050 SEC SBC $0F ASL STA $11 LDA $0D ASL PHA LDA $01 PEA $00A0 JSL L150BEE PLA CLC ADC $01,S PLX STA $09 PEI $28 PEI $26 LDA $09 JSL L150488 JSL L150F53 STA $13 STX $15 PEI $15 PEI $13 PEI $24 PEI $0B PEI $0F PEI $11 JSL L080565 L085BE8 LDA $1E STA $28 LDA $1D STA $27 LDA $1B TCD TSC CLC ADC #$0026 TCS RTL L085BFA PHD TSC CLC ADC #$FFD0 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $38 PEI $36 PEA $0008 JSL L0313BE PHY TDC CLC ADC #$0001 PEA $0000 PHA JSL L081A64 PLA LSR BCC L085C2B BRL L085DAE L085C2B LDA $07 ORA $03 AND #$0007 BNE L085C4A PEI $3E PEI $3C PEI $3A TDC CLC ADC #$0001 PEA $0000 PHA JSL L085B3C BRL L085DAE L085C4A PHY PHY JSL L150493 PLA STA $29 PLX STX $2B PEA ^L05312F PEA L05312F JSL L151131 TDC CLC ADC #$0019 PEA $0000 PHA PEA ^L05312F PEA L05312F PEA $0010 JSL L0313BE TDC CLC ADC #$0011 PEA $0000 PHA LDAL L05314D TAX LDAL L05314B STA $2D STX $2F LDY #$0002 LDA [$2D],Y TAX LDA [$2D] CLC ADC #$0002 BCC L085C9B INX L085C9B PHX PHA PEA $0008 JSL L0313BE TDC CLC ADC #$0009 PEA $0000 PHA LDAL L053149 TAX LDAL L053147 STA $2D STX $2F LDY #$0002 LDA [$2D],Y TAX LDA [$2D] CLC ADC #$0002 BCC L085CC9 INX L085CC9 PHX PHA PEA $0008 JSL L0313BE LDA $3C LDX $3E STAL L053131 TXA STAL L053133 LDAL L05314D TAX LDAL L05314B STA $2D STX $2F LDY #$0002 LDA [$2D],Y TAX LDA [$2D] CLC ADC #$0002 BCC L085CFB INX L085CFB PHX PHA JSL L082712 LDAL L053149 TAX LDAL L053147 STA $2D STX $2F LDY #$0002 LDA [$2D],Y TAX LDA [$2D] CLC ADC #$0002 BCC L085D1D INX L085D1D PHX PHA JSL L082712 TDC CLC ADC #$0001 PEA $0000 PHA PEI $3A PEI $3A JSL L1501B5 PEA ^L05312F PEA L05312F TDC CLC ADC #$0019 PEA $0000 PHA PEA $0010 JSL L0313BE LDAL L05314D TAX LDAL L05314B STA $2D STX $2F LDY #$0002 LDA [$2D],Y TAX LDA [$2D] CLC ADC #$0002 BCC L085D66 INX L085D66 PHX PHA TDC CLC ADC #$0011 PEA $0000 PHA PEA $0008 JSL L0313BE LDAL L053149 TAX LDAL L053147 STA $2D STX $2F LDY #$0002 LDA [$2D],Y TAX LDA [$2D] CLC ADC #$0002 BCC L085D94 INX L085D94 PHX PHA TDC CLC ADC #$0009 PEA $0000 PHA PEA $0008 JSL L0313BE PEI $2B PEI $29 JSL L151131 L085DAE LDA $34 STA $3E LDA $33 STA $3D LDA $31 TCD TSC CLC ADC #$003C TCS RTL L085DC0 ENT PHD TSC CLC ADC #$FFEC TCS TCD PEA ^L05312F PEA L05312F JSL L151131 LDA #$FFF8 ANDL L0532BF STAL L0532BF LDA #$0007 CLC ADCL L0532C3 AND #$FFF8 STAL L0532C3 TDC CLC ADC #$0009 PEA $0000 PHA LDAL L05314D TAX LDAL L05314B STA $11 STX $13 LDY #$0002 LDA [$11],Y TAX LDA [$11] CLC ADC #$0002 BCC L085E11 INX L085E11 PHX PHA PEA $0008 JSL L0313BE LDAL L05314D TAX LDAL L05314B STA $11 STX $13 LDY #$0002 LDA [$11],Y TAX LDA [$11] CLC ADC #$0002 BCC L085E36 INX L085E36 PHX PHA PEA ^L0532BD PEA L0532BD PEA $0008 JSL L0313BE LDA L05514F BEQ L085E82 PHY PEA ^L0532BD PEA L0532BD PEA ^L053127 PEA L053127 TDC CLC ADC #$0001 PEA $0000 PHA JSL L150B3A PLA LSR BCC L085E80 LDA L0550FD LDX L0550FF PHX PHA PEA $FFFF TDC CLC ADC #$0001 PEA $0000 PHA JSL L085B3C L085E80 BRA L085EDC L085E82 PEA ^L053117 PEA L053117 PEA ^L053127 PEA L053127 TDC CLC ADC #$0001 PEA $0000 PHA JSL L081E5F PHY TDC CLC ADC #$0001 PEA $0000 PHA PEA ^L0532BD PEA L0532BD TDC CLC ADC #$0001 PEA $0000 PHA JSL L150B3A PLA LSR BCC L085EDC LDA L055109 LDX L05510B PHX PHA LDA L0550FD LDX L0550FF PHX PHA TDC CLC ADC #$0001 PEA $0000 PHA PEA $0000 JSL L08382C L085EDC PEA $0000 PEA $0002 PEA $0000 JSL L084F9B LDA L055153 BNE L085F10 LDA L0550FD LDX L0550FF PHX PHA PEA ^L053127 PEA L053127 JSL L084FD4 PEA $0000 PEA $0002 PEA $0000 PEA $0000 JSL L081517 L085F10 PEA ^L0532BD PEA L0532BD JSL L087BAE PEA ^L0532BD PEA L0532BD JSL L08273B LDAL L05314D TAX LDAL L05314B STA $11 STX $13 LDY #$0002 LDA [$11],Y TAX LDA [$11] CLC ADC #$0002 BCC L085F40 INX L085F40 PHX PHA TDC CLC ADC #$0009 PEA $0000 PHA PEA $0008 JSL L0313BE TSC CLC ADC #$0014 TCS PLD RTL L085F5A ENT PHD TSC CLC ADC #$FFFA TCS TCD STZ $01 LDA L055153 BNE L085F82 LDA L055027 LDX L055029 PHX PHA TDC CLC ADC #$0001 PEA $0000 PHA PEI $0E PEI $0C JSL L07A972 L085F82 LDA $01 BNE L085F9F LDA L05501F LDX L055021 PHX PHA TDC CLC ADC #$0001 PEA $0000 PHA PEI $0E PEI $0C JSL L07A972 L085F9F LDA $01 BNE L085FC2 LDA #$1000 ANDL L053AE9 BEQ L085FC2 PEI $0E PEI $0C PEA ^L053AFD PEA L053AFD PEA $0020 JSL L0313BE LDA #$0001 STA $01 L085FC2 LDA $01 BNE L085FD7 PEI $0E PEI $0C PEA ^L041CB3 PEA L041CB3 PEA $0020 JSL L0313BE L085FD7 LDA $0A STA $0E LDA $09 STA $0D LDA $07 TCD TSC CLC ADC #$000C TCS RTL L085FE9 ENT PHD TSC CLC ADC #$FFFC TCS TCD STZ $0C STZ $0E LDA $0A SEC SBC #$0025 BEQ L086006 BVS L086002 EOR #$8000 L086002 BPL L086006 BRA L086019 L086006 LDA $0A ASL ASL TAX LDAL L0415B2+2,X PHA LDAL L0415B2,X PLX STA $0C STX $0E L086019 LDA $08 STA $0A LDA $07 STA $09 LDA $05 TCD PLY PLY PLY PLY RTL L086029 ENT PHD TSC CLC ADC #$FFF6 TCS TCD STZ $12 LDA #L052F67 LDX #^L052F67 STA $01 STX $03 LDA #$0001 STA $05 L086042 LDA L055027 LDX L055029 CMP [$01] BNE L086052 LDY #$0002 TXA CMP [$01],Y L086052 BEQ L086059 LDA #$0000 BRA L08605C L086059 LDA #$0001 L08605C BEQ L08607E PHA LDY #$0006 LDA [$01],Y TAX DEY DEY LDA [$01],Y CMP L055039 BNE L086071 CPX L05503B L086071 BEQ L086078 LDA #$0000 BRA L08607B L086078 LDA #$0001 L08607B AND $01,S PLX L08607E CMP #$0000 BEQ L0860B8 LDX #$0000 LDY #$0008 LDA $10 CMP [$01],Y BNE L086090 INX L086090 TXA BEQ L0860B8 LDY #$000A LDA [$01],Y STA $12 LDA L054FB7 LDX L054FB9 STA $07 STX $09 LDY #$0002 LDA [$07],Y TAX LDA [$07] LDY #$000C STA [$01],Y INY INY TXA STA [$01],Y BRA L0860D3 L0860B8 LDA $01 LDX $03 CLC ADC #$0010 BCC L0860C3 INX L0860C3 STA $01 STX $03 LDA #$0014 CMP $05 BEQ L0860D3 INC $05 BRL L086042 L0860D3 LDA $0E STA $10 LDA $0D STA $0F LDA $0B TCD TSC CLC ADC #$000E TCS RTL L0860E5 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L0550B3 BEQ L0860F5 LDA #$0001 L0860F5 PHA LDX #$0000 LDA L054FBB BNE L0860FF INX L0860FF TXA AND $01,S PLX LSR BCC L086141 LDA L0550B9 DEC BNE L086125 PEA ^L0530A7 PEA L0530A7 PEA ^L0532BD PEA L0532BD JSL L081E53 PEA $0000 JSL L1601A8 BRA L086141 L086125 PEA ^L0532BD PEA L0532BD JSL L085216 LDA L0550FD LDX L0550FF PHX PHA PEA ^L0530A7 PEA L0530A7 JSL L083985 L086141 JSL L086C29 PLY PLY PLD RTL L086149 ENT PHD TSC CLC ADC #$FF92 TCS TCD PEA ^L0530A7 PEA L0530A7 JSL L08273B PHY PHY JSL L150493 PLA STA $67 PLX STX $69 STZ $63 STZ $65 STZ $5F STZ $61 STZ $59 STZ $5B LDAL L0552FF BEQ L08617C BRL L0864D0 L08617C LDA L0550AB SEC SBC L0550AD BNE L086188 BRL L0864D0 L086188 BVS L08618D EOR #$8000 L08618D BMI L086192 BRL L0864D0 L086192 PHY LDA L0550AF LDX L0550B1 PHX PHA LDA L0550B3 PHA PEA $0002 JSL L07AC17 PLA STA $5D PHY LDA L0550AF LDX L0550B1 PHX PHA PEI $5D TDC CLC ADC #$0001 PEA $0000 PHA JSL L07ABAE PLA LSR BCS L0861C8 BRL L0864D0 L0861C8 LDA #$8000 AND $05 BEQ L0861D2 BRL L0864D0 L0861D2 LDA L0550ED LDX L0550EF PHX PHA JSL L151131 LDA $1B STA $59 LDA $1F SEP #$20 STA $5B REP #$20 LDA $1D SEP #$20 STA $5C REP #$20 PEI $5B PEI $59 JSL L087547 LDA L0550ED LDX L0550EF CLC ADC #$0078 BCC L086207 INX L086207 STA $6B STX $6D LDA $59 LDX $5B CMP [$6B] BNE L086219 LDY #$0002 TXA CMP [$6B],Y L086219 BEQ L086226 PEI $5B PEI $59 PEA $0000 JSL L151663 L086226 LDA $03 STA $55 LDA L055027 LDX L055029 CMP L0550AF BNE L086238 CPX L0550B1 L086238 BNE L08623F LDA #$0000 BRA L086242 L08623F LDA #$0001 L086242 STA $57 LDA $57 BNE L086250 LDA $55 EOR #$FFFF INC STA $55 L086250 LDA #$4000 AND $05 BEQ L08625A LDA #$0001 L08625A AND $57 STA $53 TDC CLC ADC #$0001 PEA $0000 PHA PEI $57 TDC CLC ADC #$002B PEA $0000 PHA JSL L083B58 TDC CLC ADC #$0033 PEA $0000 PHA TDC CLC ADC #$002B PEA $0000 PHA PEA $0008 JSL L0313BE LDA #$000F AND $0F CMP #$0007 BNE L0862B8 PHY PEI $55 JSL L086029 LDA $21 JSL L150BEE PLA STA $4F LDA $33 SEC SBC $4F STA $33 LDA $39 SEC SBC #$001A STA $39 L0862B8 LDA $39 SEC SBC $35 STA $51 PHY PHY LDA L055027 LDX L055029 PHX PHA JSL L0772AE PLA STA $63 PLX STX $65 PHY PHY LDA L05501F LDX L055021 PHX PHA JSL L07721A PLA STA $5F PLX STX $61 LDX #$0000 LDA $63 ORA $65 BNE L0862F1 INX L0862F1 PHX LDX #$0000 LDA $5F ORA $61 BNE L0862FC INX L0862FC TXA ORA $01,S PLX LSR BCC L086306 BRL L0864D0 L086306 PHY PHY PEI $61 PEI $5F PEI $65 PEI $63 PEI $55 PEI $53 JSL L07B038 PLA STA $4B PLX STX $4D LDA $33 STAL L0530A7 STZ $49 L086326 LDA #$00FF AND [$4B] BEQ L086381 PEI $4D PEI $4B PEI $51 TDC CLC ADC #$0047 PEA $0000 PHA TDC CLC ADC #$0045 PEA $0000 PHA JSL L081B04 LDA $49 CLC ADC $47 SEC SBC L0550AD BEQ L08635B BVS L086359 EOR #$8000 L086359 BMI L086384 L08635B LDA $47 CLC ADC $49 STA $49 PEI $4D PEI $4B LDA $47 JSL L150488 JSL L150F53 STA $4B STX $4D LDA $21 CLC ADCL L0530A7 STAL L0530A7 BRA L086326 L086381 BRL L0864D0 L086384 LDA $21 CLC ADCL L0530A7 INC STAL L0530AB LDA L0550AD SEC SBC $49 STA $41 LDA $51 SEC SBC $45 STA $3F LDA #$FFFF CMP $19 BNE L0863AC LDA $3F STA $43 BRA L0863BA L0863AC LDA $19 DEC BNE L0863B8 LDA $3F LSR STA $43 BRA L0863BA L0863B8 STZ $43 L0863BA PHY PEI $43 PEA $0000 PEI $51 JSL L071A1B PLA STA $43 LDA $43 CLC ADC $35 PHA PHY PEI $4D PEI $4B LDA L0550AD SEC SBC $49 PHA JSL L1506F3 PLA CLC ADC $01,S PLX DEC DEC STAL L0530A9 LDA #$0004 CLC ADCL L0530A9 PHA PHY PEI $4D PEI $4B LDA $41 JSL L150488 JSL L150F53 PHX PHA LDA L0550AB SEC SBC L0550AD PHA JSL L1506F3 PLA CLC ADC $01,S PLX STAL L0530AD LDA #$000F AND $0F CMP #$0007 BEQ L086426 BRL L0864AB L086426 STZ $3D LDAL L0530A7 SEC SBC $2B BVS L086434 EOR #$8000 L086434 BMI L086441 LDA $2B SEC SBCL L0530A7 STA $3D BRA L086464 L086441 LDA $2F INC STA $6B LDAL L0530AB SEC SBC $6B BEQ L086464 BVS L086454 EOR #$8000 L086454 BPL L086464 LDA $2F SEC SBCL L0530AB SEC SBC $21 INC INC STA $3D L086464 LDA $3D BEQ L0864AB PEI $55 LDA $4F SEC SBC $3D PHA PEI $21 JSL L1500F5 PLX PLX PHA JSL L0873D7 PEA ^L0530A7 PEA L0530A7 PEA $0000 PEI $3D PEI $21 JSL L1500F5 PLX PLX PEI $21 JSL L150BEE JSL L1501AF LDA L0550AF LDX L0550B1 PHX PHA PEI $5D PEA $0001 JSL L0876F4 L0864AB PHY TDC CLC ADC #$002B PEA $0000 PHA PEA ^L0530A7 PEA L0530A7 PEA ^L0530A7 PEA L0530A7 JSL L150B3A PLA STA $3B JSL L08765D JSL L0875C4 L0864D0 LDA $63 ORA $65 BEQ L0864E5 LDA L055027 LDX L055029 PHX PHA PEA $0000 JSL L074A90 L0864E5 LDA $5F ORA $61 BEQ L0864FA LDA L05501F LDX L055021 PHX PHA PEA $0000 JSL L074A24 L0864FA PEI $5B PEI $59 PEA $0010 JSL L150BC4 PEI $69 PEI $67 JSL L151131 TSC CLC ADC #$006E TCS PLD RTL L086515 PHD TSC CLC ADC #$FFE4 TCS TCD LDA #$0004 CLC ADC $26 LDX $28 BCC L086528 INX L086528 STA $01 STX $03 LDY #$0010 LDA [$01],Y LDY #$0008 SEC SBC [$01],Y STA $0D LDA #$0010 CLC ADC $01 LDX $03 BCC L086544 INX L086544 CLC ADC #$0002 BCC L08654B INX L08654B STA $19 STX $1B LDA [$19] PHA LDA #$0008 CLC ADC $01 LDX $03 BCC L08655D INX L08655D CLC ADC #$0002 BCC L086564 INX L086564 STA $19 STX $1B PLA SEC SBC [$19] STA $0F LDA #$0010 CLC ADC $01 LDX $03 BCC L086579 INX L086579 CLC ADC #$0004 BCC L086580 INX L086580 STA $19 STX $1B LDA [$19] LDY #$0008 SEC SBC [$01],Y STA $11 LDA #$0010 CLC ADC $01 LDX $03 BCC L086599 INX L086599 CLC ADC #$0006 BCC L0865A0 INX L0865A0 STA $19 STX $1B LDA [$19] PHA LDA #$0008 CLC ADC $01 LDX $03 BCC L0865B2 INX L0865B2 CLC ADC #$0002 BCC L0865B9 INX L0865B9 STA $19 STX $1B PLA SEC SBC [$19] STA $13 LDY #$00C4 LDA [$26],Y PHA DEY DEY LDA [$26],Y PHA TDC CLC ADC #$000D PEA $0000 PHA JSL L150126 LDY #$0028 LDA [$22],Y TAX DEY DEY LDA [$22],Y CLC ADC #$00B2 BCC L0865EC INX L0865EC STA $19 STX $1B LDA #$000F AND [$19] DEC BMI L08665D CMP #$0003 BPL L08665D SEC SBC #$0000 BEQ L08660B DEC BEQ L086645 DEC BEQ L086623 BRA L08665D L08660B LDA $0F DEC DEC STA $07 LDA $13 INC INC STA $0B LDA $0D DEC STA $05 LDA $11 INC STA $09 BRA L086676 L086623 LDA $0F SEC SBC #$000C STA $07 LDA #$000C CLC ADC $13 STA $0B LDA $0D SEC SBC #$0006 STA $05 LDA #$0006 CLC ADC $11 STA $09 BRA L086676 L086645 LDA $0F DEC DEC STA $07 LDA $13 INC INC STA $0B LDA $0D DEC STA $05 LDA $11 INC STA $09 BRA L086676 L08665D LDA $0F DEC DEC STA $07 LDA $13 INC INC STA $0B LDA $0D SEC SBC #$0007 STA $05 LDA $11 INC STA $09 L086676 LDY #$0028 LDA [$22],Y TAX DEY DEY LDA [$22],Y CLC ADC #$00B2 BCC L086687 INX L086687 STA $19 STX $1B LDA #$000F AND [$19] DEC DEC BNE L08670A PHY PHY JSL L150BB2 PLA STA $15 PLX STX $17 PEI $17 PEI $15 TDC CLC ADC #$0005 PEA $0000 PHA JSL L150126 LDA #$0004 CLC ADC $07 STA $07 LDA $0B INC INC STA $0B LDA $05 INC INC STA $05 LDA $09 INC STA $09 LDY #$00C0 LDA [$26],Y PHA DEY DEY LDA [$26],Y PHA TDC CLC ADC #$0005 PEA $0000 PHA JSL L150126 PEI $17 PEI $15 LDY #$00C0 LDA [$26],Y PHA DEY DEY LDA [$26],Y PHA LDY #$00C0 LDA [$26],Y PHA DEY DEY LDA [$26],Y PHA JSL L150653 PEI $17 PEI $15 JSL L151669 BRA L086722 L08670A LDY #$00C0 LDA [$26],Y PHA DEY DEY LDA [$26],Y PHA TDC CLC ADC #$0005 PEA $0000 PHA JSL L150126 L086722 LDA $20 STA $28 LDA $1F STA $27 LDA $1D TCD TSC CLC ADC #$0026 TCS RTL L086734 ENT PHD TSC CLC ADC #$FFE4 TCS TCD PHY JSL L071BFF PLA STA $17 STZ $30 STZ $32 LDY #$00B2 LDA #$000F AND [$26],Y STA $15 LDA $2A BPL L086759 BRL L086B73 L086759 CMP #$000B BMI L086761 BRL L086B73 L086761 SEC SBC #$0000 BEQ L086791 DEC BNE L08676D BRL L08698A L08676D DEC BNE L086773 BRL L086A81 L086773 DEC BNE L086779 BRL L086A90 L086779 SEC SBC #$0005 BNE L086782 BRL L086AE7 L086782 DEC BNE L086788 BRL L086B00 L086788 DEC BNE L08678E BRL L086B18 L08678E BRL L086B73 L086791 JSL L1510A1 PEA $0000 JSL L081DD8 PEA $0002 PEA $0001 JSL L151083 LDA $22 BPL L0867AD BRL L086987 L0867AD CMP #$0002 BMI L0867B5 BRL L086987 L0867B5 SEC SBC #$0000 BEQ L0867C4 DEC BNE L0867C1 BRL L08695C L0867C1 BRL L086987 L0867C4 LDY #$00C0 LDA [$26],Y TAX DEY DEY LDA [$26],Y STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] CLC ADC #$0002 BCC L0867E1 INX L0867E1 STA $05 STX $07 TDC CLC ADC #$0009 PEA $0000 PHA PEA $0000 PEA $0000 LDY #$0006 LDA [$05],Y LDY #$0002 SEC SBC [$05],Y PHA LDY #$0004 LDA [$05],Y SEC SBC [$05] PHA JSL L15100B LDA $15 DEC BPL L086815 BRL L086908 L086815 CMP #$0003 BMI L08681D BRL L086908 L08681D SEC SBC #$0000 BEQ L08682C DEC BEQ L08683C DEC BEQ L086881 BRL L086908 L08682C TDC CLC ADC #$0009 PEA $0000 PHA JSL L151418 BRL L08695A L08683C LDA #$0004 CLC ADC $0B PHA LDA $0D DEC PHA JSL L1510C5 LDA $0F DEC DEC PHA LDA $0D DEC PHA JSL L1505DA LDA $0F DEC DEC PHA LDA $09 INC INC PHA JSL L1505DA LDA $0F DEC DEC STA $0F LDA $0D DEC STA $0D TDC CLC ADC #$0009 PEA $0000 PHA JSL L151418 BRL L08695A L086881 TDC CLC ADC #$0009 PEA $0000 PHA JSL L151418 PEA $000F JSL L081DD8 TDC CLC ADC #$0009 PEA $0000 PHA PEA $000A PEA $0005 JSL L151005 TDC CLC ADC #$0009 PEA $0000 PHA JSL L151418 PEA $0004 PEA $0002 JSL L151083 TDC CLC ADC #$0009 PEA $0000 PHA PEA $FFF8 PEA $FFFC JSL L151005 TDC CLC ADC #$0009 PEA $0000 PHA JSL L151418 PEA $0000 JSL L081DD8 TDC CLC ADC #$0009 PEA $0000 PHA PEA $0004 PEA $0002 JSL L151005 TDC CLC ADC #$0009 PEA $0000 PHA JSL L151418 BRA L08695A L086908 TDC CLC ADC #$0009 PEA $0000 PHA JSL L151418 PEA ^L052E97 PEA L052E97 PEA $0000 PEA $FFFF JSL L1501B5 TDC CLC ADC #$0009 PEA $0000 PHA PEA $000E PEA $0000 LDY #$0006 LDA [$05],Y LDY #$0002 SEC SBC [$05],Y PHA PEA $0007 JSL L15100B TDC CLC ADC #$0009 PEA $0000 PHA PEA $0000 PEA $3333 JSL L1501B5 L08695A BRA L086987 L08695C LDA #$8000 AND $24 BEQ L086975 PEA ^L052E97 PEA L052E97 PEA $0000 PEA $0000 JSL L1501B5 BRA L086985 L086975 PEA ^L052E97 PEA L052E97 PEA $0000 PEA $FFFF JSL L1501B5 L086985 BRA L086987 L086987 BRL L086B73 L08698A LDA $15 BEQ L086991 BRL L086A21 L086991 PHY TDC CLC ADC #$0022 PEA $0000 PHA PEA ^L052E97 PEA L052E97 JSL L1512CB PLA LSR BCC L0869B6 LDA #$0016 LDX #$0000 STA $30 STX $32 BRL L086B73 L0869B6 LDY #$00C0 LDA [$26],Y TAX DEY DEY LDA [$26],Y STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] CLC ADC #$0002 BCC L0869D3 INX L0869D3 STA $01 STX $03 TDC CLC ADC #$0009 PEA $0000 PHA PEA $0010 PEA $0000 LDY #$0006 LDA [$01],Y LDY #$0002 SEC SBC [$01],Y PHA PEA $0007 JSL L15100B PHY TDC CLC ADC #$0022 PEA $0000 PHA TDC CLC ADC #$0009 PEA $0000 PHA JSL L1512CB PLA LSR BCC L086A21 LDA #$0014 LDX #$0000 STA $30 STX $32 BRL L086B73 L086A21 TDC CLC ADC #$0022 PEA $0000 PHA JSL L151412 PHY TDC CLC ADC #$0022 PEA $0000 PHA LDY #$00C4 LDA [$26],Y PHA DEY DEY LDA [$26],Y PHA JSL L15137F PLA LSR BCC L086A57 LDA #$0013 LDX #$0000 STA $30 STX $32 BRA L086A7E L086A57 PHY TDC CLC ADC #$0022 PEA $0000 PHA LDY #$00C0 LDA [$26],Y PHA DEY DEY LDA [$26],Y PHA JSL L15137F PLA LSR BCC L086A7E LDA #$001B LDX #$0000 STA $30 STX $32 L086A7E BRL L086B73 L086A81 PEI $28 PEI $26 PEA $0000 PHD JSL L086515 BRL L086B73 L086A90 LDY #$00D2 LDA [$26],Y PHA LDY #$0006 LDA #$0008 ORA [$22],Y ORA $01,S PLX LDY #$00D2 STA [$26],Y LDA #$00B2 CLC ADC $26 LDX $28 BCC L086AB1 INX L086AB1 STA $19 STX $1B PHY LDY #$0008 LDA [$22],Y PHA PEA $0000 PEA $0004 JSL L071A1B PLA LDX #$0000 BIT #$8000 BEQ L086AD0 DEX L086AD0 STA [$19] TXA LDY #$0002 STA [$19],Y PEI $28 PEI $26 PEA $0000 PHD JSL L086515 BRL L086B73 L086AE7 LDA $22 LDX $24 STA $11 STX $13 LDA #$0014 CLC ADC $11 LDX $13 BCC L086AFA INX L086AFA STA $30 STX $32 BRA L086B73 L086B00 LDA $22 LDX $24 STA $11 STX $13 LDY #$001E LDA [$11],Y TAX DEY DEY LDA [$11],Y STA $30 STX $32 BRA L086B73 L086B18 LDA [$22] SEC SBC #$000B BMI L086B71 CMP #$0014 BPL L086B71 SEC SBC #$0000 BEQ L086B4C DEC DEC BEQ L086B65 SEC SBC #$000A BEQ L086B3D SEC SBC #$0007 BEQ L086B55 BRA L086B71 L086B3D LDY #$00D2 LDA [$26],Y JSL L150488 STA $30 STX $32 BRA L086B71 L086B4C LDA $22 LDY #$00D2 STA [$26],Y BRA L086B71 L086B55 LDY #$0006 LDA [$22],Y TAX DEY DEY LDA [$22],Y STA $30 STX $32 BRA L086B71 L086B65 LDA #$00C8 LDX #$0280 STA $30 STX $32 BRA L086B71 L086B71 BRA L086B73 L086B73 PEI $17 JSL L071AA4 LDA $20 STA $2E LDA $1F STA $2D LDA $1D TCD TSC CLC ADC #$002C TCS RTL L086B8B ENT PHD TSC CLC ADC #$FFEE TCS TCD LDA L0550D5 LDX L0550D7 CLC ADC #$00CE BCC L086BA0 INX L086BA0 STA $0F STX $11 LDA #$0020 AND [$0F] BNE L086BAD BRA L086C21 L086BAD LDA L054FBB SEC SBC #$0000 BPL L086BBE LDA #$0001 STA L055131 BRA L086C21 L086BBE LDA L0550BB DEC STA $09 PEI $09 PEA $0003 JSL L1500F5 PLX PLX STA $0B PEI $09 PEA $0003 JSL L150318 PLX PLX STA $0D LDA $0D PEA $001C JSL L150BEE PLA STA $03 LDA $0B PEA $000C JSL L150BEE PLA STA $01 LDA $0B BMI L086C01 BEQ L086C01 LDA $01 INC STA $01 L086C01 LDA #$001C CLC ADC $03 DEC DEC STA $07 LDA #$000C CLC ADC $01 DEC STA $05 TDC CLC ADC #$0001 PEA $0000 PHA JSL L150383 L086C21 TSC CLC ADC #$0012 TCS PLD RTL L086C29 ENT PHD TSC CLC ADC #$FFFC TCS TCD STZ L0550B3 STZ L0550AF STZ L0550B1 STZ L0550AD STZ L0550AB PEA ^L0530A7 PEA L0530A7 JSL L08273B PLY PLY PLD RTL L086C4E ENT PHD TSC CLC ADC #$FFE0 TCS TCD LDA L055135 BEQ L086C5D BRA L086C83 L086C5D LDA L055115 LDX L055117 PHX PHA PEA $0000 PEA $0000 LDA L055109 LDX L05510B PHX PHA PEA ^L053117 PEA L053117 JSL L083523 LDA #$0001 STA L055135 L086C83 TSC CLC ADC #$0020 TCS PLD RTL L086C8B ENT PHD TSC CLC ADC #$FFF8 TCS TCD PEI $10 PEI $0E PEA ^L0532BD PEA L0532BD JSL L081E53 PHY PHY JSL L150493 PLA STA $01 PLX STX $03 LDA L0550ED LDX L0550EF PHX PHA JSL L151131 PEI $10 PEI $0E JSL L150B34 PEI $03 PEI $01 JSL L151131 LDA $0C STA $10 LDA $0B STA $0F LDA $09 TCD TSC CLC ADC #$000E TCS RTL L086CDB ENT PHD TSC CLC ADC #$FFF0 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $18 PEI $16 PEA $0008 JSL L0313BE LDA $03 ASL STA $03 LDA $07 ASL STA $07 TDC CLC ADC #$0001 PEA $0000 PHA JSL L086C8B LDA $14 STA $18 LDA $13 STA $17 LDA $11 TCD TSC CLC ADC #$0016 TCS RTL L086D20 ENT PHD TSC CLC ADC #$FFB4 TCS TCD LDA #$FFFF TAX STA $5A STX $5C PHY JSL L073CDF PLA STA $47 TDC CLC ADC #$0033 PEA $0000 PHA JSL L082712 LDA $56 ORA $58 BNE L086D5A TDC CLC ADC #$0033 PEA $0000 PHA JSL L08273B BRA L086D77 L086D5A LDA #$FFFF TAX CMP $56 BNE L086D64 CPX $58 L086D64 BEQ L086D77 PEI $58 PEI $56 TDC CLC ADC #$0033 PEA $0000 PHA JSL L08295E L086D77 TDC CLC ADC #$003B PEA $0000 PHA JSL L082712 PEI $54 PEI $52 TDC CLC ADC #$003B PEA $0000 PHA JSL L082766 PHY TDC CLC ADC #$003B PEA $0000 PHA JSL L081A64 PLA LSR BCC L086DC0 PHY TDC CLC ADC #$0033 PEA $0000 PHA JSL L081A64 PLA LSR BCC L086DC0 STZ $5A STZ $5C BRL L087200 L086DC0 STZ $2B STZ $2D LDA #$FFFF TAX CMP $56 BNE L086DCE CPX $58 L086DCE BNE L086DD3 BRL L086EA1 L086DD3 PHY TDC CLC ADC #$0033 PEA $0000 PHA JSL L081A64 PLA LSR BCC L086DE8 BRL L086EA1 L086DE8 PHY LDA $39 SEC SBC $35 PHA PLA CMP #$8000 ROR STA $01,S PLA LDX #$0000 BIT #$8000 BEQ L086E00 DEX L086E00 STA $0F STX $11 PEI $11 PEI $0F LDA $37 SEC SBC $33 JSL L150488 JSL L150D50 PLA STA $0F PLX STX $11 PEA $0000 PEA $FA00 PHY PHY PEI $58 PEI $56 JSL L08063C PLA PLX JSL L1512A5 STA $0B STX $0D PEI $0D PEI $0B LDA $0F LDX $11 JSL L033477 BEQ L086E51 BVS L086E48 EOR #$8000 L086E48 BPL L086E51 PEA $2707 JSL L07272E L086E51 PEI $0D PEI $0B LDA $0F LDX $11 JSL L033477 BVS L086E62 EOR #$8000 L086E62 BMI L086EA1 LDA #$0007 CLC ADC $39 LSR LSR LSR PHA LDA $35 LSR LSR LSR STA $49 PLA SEC SBC $49 ASL INC JSL L150488 STA $23 STX $25 PEI $25 PEI $23 LDA $37 SEC SBC $33 JSL L150488 JSL L150D50 PLA PLX CLC ADC #$0080 BCC L086E9D INX L086E9D STA $2B STX $2D L086EA1 STZ $2F STZ $31 PHY TDC CLC ADC #$003B PEA $0000 PHA JSL L081A64 PLA LSR BCC L086EBA BRL L086F69 L086EBA PHY LDA $41 SEC SBC $3D PHA PLA CMP #$8000 ROR STA $01,S PLA LDX #$0000 BIT #$8000 BEQ L086ED2 DEX L086ED2 STA $0F STX $11 PEI $11 PEI $0F LDA $3F SEC SBC $3B JSL L150488 JSL L150D50 PLA STA $0F PLX STX $11 PHY PHY PEI $54 PEI $52 JSL L08063C PLA STA $0B PLX STX $0D PEI $0D PEI $0B LDA $0F LDX $11 JSL L033477 BEQ L086F19 BVS L086F10 EOR #$8000 L086F10 BPL L086F19 PEA $2708 JSL L07272E L086F19 PEI $0D PEI $0B LDA $0F LDX $11 JSL L033477 BVS L086F2A EOR #$8000 L086F2A BMI L086F69 LDA #$0007 CLC ADC $41 LSR LSR LSR PHA LDA $3D LSR LSR LSR STA $49 PLA SEC SBC $49 ASL INC JSL L150488 STA $27 STX $29 PEI $29 PEI $27 LDA $3F SEC SBC $3B JSL L150488 JSL L150D50 PLA PLX CLC ADC #$0080 BCC L086F65 INX L086F65 STA $2F STX $31 L086F69 STZ $05 LDA $2B LDX $2D CLC ADC #$003C BCC L086F76 INX L086F76 PEI $31 PEI $2F JSL L150F53 STA $13 STX $15 PHY PHY PEI $15 PEI $13 LDA L0550A5 PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $43 PLX STX $45 LDAL L05565D BEQ L087002 LDA $2B ORA $2D BNE L086FAE BRL L087200 L086FAE PHY PHY JSL L15042E PLA STA $13 PLX STX $15 PEI $15 PEI $13 LDA $2B LDX $2D CLC ADC #$003C BCC L086FC9 INX L086FC9 JSL L033477 BVS L086FD2 EOR #$8000 L086FD2 BMI L086FD7 BRL L087200 L086FD7 PHY PHY PEI $15 PEI $13 LDA L0550A5 PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $43 PLX STX $45 LDAL L05565D BEQ L086FFD BRL L087200 L086FFD LDA #$0001 STA $05 L087002 STZ $1B STZ $1D PEI $2D PEI $2B LDA #$0000 TAX JSL L033477 BMI L087063 BEQ L087063 LDY #$0002 LDA [$43],Y TAX LDA [$43] CLC ADC #$003C BCC L087025 INX L087025 STA $07 STX $09 PEI $58 PEI $56 PEI $09 PEI $07 TDC CLC ADC #$0033 PEA $0000 PHA TDC CLC ADC #$001B PEA $0000 PHA JSL L082098 PEI $1D PEI $1B LDA $2B LDX $2D JSL L033477 BEQ L087063 BVS L08705A EOR #$8000 L08705A BPL L087063 PEA $08B7 JSL L07272E L087063 LDA $05 BEQ L0870A4 LDX #$0000 LDA $31 BMI L087073 ORA $2F BEQ L087073 INX L087073 TXA BEQ L0870A4 LDA $1B LDX $1D CLC ADC #$003C BCC L087081 INX L087081 PEI $31 PEI $2F JSL L150F53 PHX PHA PEI $45 PEI $43 JSL L1512FB LDAL L05565D BEQ L0870A4 PEI $45 PEI $43 JSL L07185A BRL L087200 L0870A4 STZ $1F STZ $21 PEI $31 PEI $2F LDA #$0000 TAX JSL L033477 BMI L08710D BEQ L08710D LDY #$0002 LDA [$43],Y TAX LDA [$43] CLC ADC #$003C BCC L0870C7 INX L0870C7 PEI $1D PEI $1B JSL L150F53 STA $07 STX $09 PEI $54 PEI $52 PEI $09 PEI $07 TDC CLC ADC #$003B PEA $0000 PHA TDC CLC ADC #$001F PEA $0000 PHA JSL L082098 PEI $21 PEI $1F LDA $2F LDX $31 JSL L033477 BEQ L08710D BVS L087104 EOR #$8000 L087104 BPL L08710D PEA $08B8 JSL L07272E L08710D PHY PHY LDA $1B LDX $1D CLC ADC #$003C BCC L08711A INX L08711A PEI $21 PEI $1F JSL L150F53 PHX PHA JSL L07704E PLA STA $17 PLX STX $19 PEI $19 PEI $17 PEI $45 PEI $43 JSL L1512FB LDY #$0002 LDA [$43],Y PHA LDA [$43] PHA PEA $0000 PEA $003C JSL L071EC5 LDY #$0002 LDA [$43],Y TAX LDA [$43] STA $01 STX $03 LDA $17 LDX $19 STA [$01] TXA LDY #$0002 STA [$01],Y LDA #$4D42 LDX #$5041 LDY #$0004 STA [$01],Y INY INY TXA STA [$01],Y LDA #$0004 LDY #$0010 STA [$01],Y LDY #$0013 SEP #$20 LDA #$02 STA [$01],Y REP #$20 LDA #$0014 CLC ADC $01 LDX $03 BCC L087193 INX L087193 PHX PHA PEA ^L053259 PEA L053259 PEA $0008 JSL L0313BE LDA #$001C CLC ADC $01 LDX $03 BCC L0871AD INX L0871AD PHX PHA TDC CLC ADC #$0033 PEA $0000 PHA PEA $0008 JSL L0313BE LDA #$0024 CLC ADC $01 LDX $03 BCC L0871CA INX L0871CA PHX PHA TDC CLC ADC #$003B PEA $0000 PHA PEA $0008 JSL L0313BE LDA $1B LDX $1D LDY #$0034 STA [$01],Y INY INY TXA STA [$01],Y LDA $1F LDX $21 LDY #$0038 STA [$01],Y INY INY TXA STA [$01],Y LDA $43 LDX $45 STA $5A STX $5C L087200 PEI $47 JSL L0724F7 LDA $50 STA $58 LDA $4F STA $57 LDA $4D TCD TSC CLC ADC #$0056 TCS RTL L087218 ENT PHD TSC CLC ADC #$FFFC TCS TCD PEI $10 PEI $0E JSL L081C53 LDA L0550A7 LDX L0550A9 STA $01 STX $03 LDY #$0002 LDA [$01],Y TAX LDA [$01] PHX PHA PEA $0000 PEI $0C PEI $0A JSL L15047C PEA $0002 LDA L0550A7 LDX L0550A9 PHX PHA JSL L150D44 LDA $08 STA $10 LDA $07 STA $0F LDA $05 TCD TSC CLC ADC #$000E TCS RTL L087268 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L055145 BEQ L087282 PEA $0000 PEA $000C PEA $FFFF JSL L08736A L087282 LDA L054FBB SEC SBC #$0000 BMI L087294 JSL L15148A STZ L055143 BRA L08729A L087294 LDA #$0001 STA L055143 L08729A LDA L0550ED LDX L0550EF PHX PHA JSL L151131 PLY PLY PLD RTL L0872AA ENT PHD TSC CLC ADC #$FFF8 TCS TCD STZ L055097 STZ L055099 STZ L055095 LDA L055145 BEQ L0872CD PEA $0000 PEA $000C PEA $FFFF JSL L08736A L0872CD JSL L150711 LDA L0550BD BEQ L0872E6 PEA ^L0530AF PEA L0530AF PEI $10 PEI $0E JSL L084978 BRA L087323 L0872E6 LDA L0550BF STA $01 LDA $01 SEC SBC #$0001 BVS L0872F6 EOR #$8000 L0872F6 BPL L087323 LDA #$0001 STA $03 L0872FD LDA $03 DEC ASL ASL ASL TAX TXA CLC ADC #L0530B7 LDX #^L0530B7 BCC L08730F INX L08730F PHX PHA PEI $10 PEI $0E JSL L084978 LDA $03 CMP $01 BEQ L087323 INC $03 BRA L0872FD L087323 LDA L055099 BNE L08734B PHY PEA ^L0532BD PEA L0532BD JSL L081A64 PLA LSR BCS L087341 PEA ^L0532BD PEA L0532BD JSL L085216 L087341 PEA ^L053259 PEA L053259 JSL L087BAE L08734B JSL L151466 LDA L055097 BNE L087358 JSL L083E9E L087358 LDA $0C STA $10 LDA $0B STA $0F LDA $09 TCD TSC CLC ADC #$000E TCS RTL L08736A ENT PHD TSC CLC ADC #$FFF4 TCS TCD LDA $16 STA $03 LDA $14 STA $01 LDA $01 SEC SBC $03 BVS L087384 EOR #$8000 L087384 BPL L0873C5 LDA $03 STA $07 L08738A PHY PEI $07 JSL L151693 PLA STA $05 LDA $12 BMI L0873A8 PEI $07 LDA #$00F0 AND $05 ORA $12 PHA JSL L1511C2 BRA L0873BB L0873A8 LDA #$00FF AND $05 CMP #$0080 BNE L0873BB PEI $07 PEA $0081 JSL L1511C2 L0873BB LDA $07 CMP $01 BEQ L0873C5 INC $07 BRA L08738A L0873C5 LDA $10 STA $16 LDA $0F STA $15 LDA $0D TCD TSC CLC ADC #$0014 TCS RTL L0873D7 ENT PHD TSC CLC ADC #$FFEE TCS TCD PHY PEI $18 PEA $0000 JSL L072FA6 PLA STA $18 LDA #L052F67 LDX #^L052F67 STA $09 STX $0B LDA $09 LDX $0B STA $05 STX $07 LDY #$000E LDA [$05],Y TAX DEY DEY LDA [$05],Y STA $01 STX $03 LDA #$0001 STA $0D L087411 LDX #$0000 LDY #$0008 LDA $1A CMP [$09],Y BNE L08741E INX L08741E TXA BEQ L08743F PHA LDA L055027 LDX L055029 CMP [$09] BNE L087432 LDY #$0002 TXA CMP [$09],Y L087432 BEQ L087439 LDA #$0000 BRA L08743C L087439 LDA #$0001 L08743C AND $01,S PLX L08743F CMP #$0000 BEQ L08749E LDY #$0006 LDA [$09],Y TAX DEY DEY LDA [$09],Y CMP L055039 BNE L087456 CPX L05503B L087456 BEQ L08745D LDA #$0000 BRA L087460 L08745D LDA #$0001 L087460 BEQ L08749E LDA $18 BNE L087476 PEI $0B PEI $09 PEA $0000 PEA $0010 JSL L071EC5 BRA L087499 L087476 LDA $18 LDY #$000A STA [$09],Y LDA L054FB7 LDX L054FB9 STA $0F STX $11 LDY #$0002 LDA [$0F],Y TAX LDA [$0F] LDY #$000C STA [$09],Y INY INY TXA STA [$09],Y L087499 BRL L087535 BRA L0874CE L08749E LDY #$000E LDA [$09],Y PHA DEY DEY LDA [$09],Y PHA LDA $01 LDX $03 JSL L033477 BVS L0874B6 EOR #$8000 L0874B6 BMI L0874CE LDA $09 LDX $0B STA $05 STX $07 LDY #$000E LDA [$05],Y TAX DEY DEY LDA [$05],Y STA $01 STX $03 L0874CE LDA $09 LDX $0B CLC ADC #$0010 BCC L0874D9 INX L0874D9 STA $09 STX $0B LDA #$0014 CMP $0D BEQ L0874E9 INC $0D BRL L087411 L0874E9 LDA $18 BEQ L087535 LDA $1A LDY #$0008 STA [$05],Y LDA L055027 LDX L055029 STA [$05] TXA LDY #$0002 STA [$05],Y LDA L055039 LDX L05503B LDY #$0004 STA [$05],Y INY INY TXA STA [$05],Y LDA $18 LDY #$000A STA [$05],Y LDA L054FB7 LDX L054FB9 STA $0F STX $11 LDY #$0002 LDA [$0F],Y TAX LDA [$0F] LDY #$000C STA [$05],Y INY INY TXA STA [$05],Y L087535 LDA $16 STA $1A LDA $15 STA $19 LDA $13 TCD TSC CLC ADC #$0018 TCS RTL L087547 ENT PHD TSC CLC ADC #$FFF8 TCS TCD LDAL L052E95 TAX LDAL L052E93 CMP $0E BNE L08755E CPX $10 L08755E BNE L087562 BRA L0875B2 L087562 PEI $10 PEI $0E PEA $0000 JSL L151663 PEA $0000 PEA $0000 JSL L1510C5 STZ $03 L087579 PHY PEI $03 JSL L151089 PLA STA $01 LDX $03 LDA $01 SEP #$20 STAL L052D92,X REP #$20 LDA #$00FF CMP $03 BEQ L08759A INC $03 BRA L087579 L08759A PEI $10 PEI $0E PEA $0010 JSL L150BC4 LDA $0E LDX $10 STAL L052E93 TXA STAL L052E95 L0875B2 LDA $0C STA $10 LDA $0B STA $0F LDA $09 TCD TSC CLC ADC #$000E TCS RTL L0875C4 ENT PHD TSC CLC ADC #$FFFC TCS TCD LDA L0550B3 BEQ L0875F6 LDA L054FBB BNE L0875F6 LDA L0550ED LDX L0550EF PHX PHA JSL L151131 PEA $0002 PEA $0001 JSL L151083 PEA ^L0530A7 PEA L0530A7 JSL L151418 L0875F6 PLY PLY PLD RTL L0875FA ENT PHD TSC CLC ADC #$FFF4 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEA ^L0532BD PEA L0532BD PEA $0008 JSL L0313BE PHY PEA ^L0532BD PEA L0532BD JSL L081A64 PLA LSR BCS L08763E PEA ^L0532BD PEA L0532BD JSL L085216 TDC CLC ADC #$0001 PEA $0000 PHA JSL L087BAE L08763E JSL L083E9E PEA ^L05311F PEA L05311F PEA ^L053127 PEA L053127 PEA $0008 JSL L0313BE TSC CLC ADC #$000C TCS PLD RTL L08765D ENT PHD TSC CLC ADC #$FFFC TCS TCD PEA $0000 PEA $0000 PEA $0000 JSL L151663 PEA $0000 JSL L1516ED PLY PLY PLD RTL L08767D ENT PHD TSC CLC ADC #$FFF2 TCS TCD PEA ^L0532BD PEA L0532BD LDA L0550ED LDX L0550EF CLC ADC #$001C BCC L087698 INX L087698 STA $0B STX $0D LDY #$0002 LDA [$0B],Y TAX LDA [$0B] STA $0B STX $0D LDY #$0002 LDA [$0B],Y TAX LDA [$0B] CLC ADC #$0002 BCC L0876B7 * INX L0876B7 PHX PHA TDC CLC ADC #$0003 PEA $0000 PHA JSL L081E5F PHY PEA ^L0532BD PEA L0532BD JSL L081A64 PLA LSR BCS L0876DF PEA ^L0532BD PEA L0532BD JSL L085216 L0876DF TDC CLC ADC #$0003 PEA $0000 PHA JSL L087BAE TSC CLC ADC #$000E TCS PLD RTL L0876F4 ENT PHD TSC CLC ADC #$FFC6 TCS TCD LDA L055027 LDX L055029 CMP $44 BNE L087708 CPX $46 L087708 BEQ L08771B LDA L05501F LDX L055021 CMP $44 BNE L087716 CPX $46 L087716 BEQ L08771B BRL L087886 L08771B PHY PEI $46 PEI $44 PEI $42 TDC CLC ADC #$0001 PEA $0000 PHA JSL L07ABAE PLA LSR BCS L087736 BRL L087886 L087736 TDC CLC ADC #$0007 PEA $0000 PHA PEA ^L0532BD PEA L0532BD JSL L081E14 PHY PHY JSL L150493 PLA STA $33 PLX STX $35 PEA ^L05312F PEA L05312F JSL L151131 LDA L0550B9 DEC BNE L08779F LDA L055027 LDX L055029 CMP $44 BNE L087771 CPX $46 L087771 BEQ L087778 LDA #$0000 BRA L08777B L087778 LDA #$0001 L08777B ORA L055153 BEQ L087789 LDA #$0001 STAL L0552BF BRA L087790 L087789 LDA #$0001 STAL L0552C1 L087790 LDA L054FBB BNE L08779C PEA $0000 JSL L1601A8 L08779C BRL L08787E L08779F LDA L054FBB BEQ L0877A7 BRL L08787E L0877A7 PEA $0001 JSL L09091E LDA L05511F BEQ L0877BA PEA $0000 JSL L09091E L0877BA PHY PEA ^L0532BD PEA L0532BD JSL L081A64 PLA LSR BCS L0877CB STZ $40 L0877CB TDC CLC ADC #$0007 PEA $0000 PHA TDC CLC ADC #$002B PEA $0000 PHA JSL L0808E0 LDA L055027 LDX L055029 CMP $44 BNE L0877ED CPX $46 L0877ED BEQ L0877F4 LDA #$0000 BRA L0877F7 L0877F4 LDA #$0001 L0877F7 AND $40 BEQ L08785C LDAL L05314D TAX LDAL L05314B STA $37 STX $39 LDY #$0002 LDA [$37],Y TAX LDA [$37] CLC ADC #$0002 BCC L087817 INX L087817 PHX PHA TDC CLC ADC #$002B PEA $0000 PHA PEA $0008 JSL L0313BE PEI $42 PEA $0005 PEA $0000 PEA $0000 JSL L081517 LDAL L05314D TAX LDAL L05314B STA $37 STX $39 LDY #$0002 LDA [$37],Y TAX LDA [$37] CLC ADC #$0002 BCC L087854 INX L087854 PHX PHA JSL L082712 BRA L087869 L08785C TDC CLC ADC #$002B PEA $0000 PHA JSL L085216 L087869 LDA L0550FD LDX L0550FF PHX PHA TDC CLC ADC #$002B PEA $0000 PHA JSL L083985 L08787E PEI $35 PEI $33 JSL L151131 L087886 LDA $3E STA $46 LDA $3D STA $45 LDA $3B TCD TSC CLC ADC #$0044 TCS RTL L087898 ENT PHD TSC CLC ADC #$FFE6 TCS TCD PEA ^L05312F PEA L05312F JSL L151131 PEA ^L0531E9 PEA L0531E9 JSL L1506A7 TDC CLC ADC #$0005 PEA $0000 PHA PEA $0000 PEA $0000 PEA $006E PEA $0023 JSL L15100B TDC CLC ADC #$0005 PEA $0000 PHA JSL L15123D JSL L1510A1 PEA $0002 PEA $0001 JSL L151083 LDA #$0001 STA $13 L0878ED LDA $13 PEA $001C JSL L150BEE PLA DEC DEC PHA PEA $0000 JSL L1510C5 LDA $13 DEC DEC BNE L087913 PEA $0000 PEA $0016 JSL L15056E BRA L08791D L087913 PEA $0000 PEA $0022 JSL L15056E L08791D LDA #$0003 CMP $13 BEQ L087928 INC $13 BRA L0878ED L087928 LDA #$0001 STA $15 L08792D PEA $0000 LDA $15 PEA $000C JSL L150BEE PLA DEC PHA JSL L1510C5 PEA $006C PEA $0000 JSL L15056E LDA #$0002 CMP $15 BEQ L087955 INC $15 BRA L08792D L087955 LDA #$0001 STA $15 LDA #$0019 STA $0D STZ $0F L087961 LDA #$0002 STA $13 STZ $11 L087968 LDA $0D INC STA $0D PHY PHY PEI $0D JSL L085FE9 PLA STA $01 PLX STX $03 LDA $01 ORA $03 BEQ L08798D PEI $03 PEI $01 PEI $13 PEI $15 JSL L087218 L08798D LDA #$001C CLC ADC $13 STA $13 LDA #$0003 CMP $11 BEQ L0879A0 INC $11 BRA L087968 L0879A0 LDA #$000C CLC ADC $15 STA $15 LDA #$0002 CMP $0F BEQ L0879B3 INC $0F BRA L087961 L0879B3 PEA ^L053239 PEA L053239 JSL L1506A7 TSC CLC ADC #$001A TCS PLD RTL L0879C5 ENT PHD TSC CLC ADC #$FFFA TCS TCD LDA L055121 ORA L055123 BEQ L087A2B LDA #$000F ANDL L053299 CMP #$0007 BNE L087A2B LDAL L05328D STA $01 LDA L055027 LDX L055029 CMP L055129 BNE L0879F5 CPX L05512B L0879F5 BNE L0879FF LDA $01 EOR #$FFFF INC STA $01 L0879FF PEI $01 LDA L055121 LDX L055123 STA $03 STX $05 LDY #$0002 LDA [$03],Y TAX LDA [$03] CLC ADC #$0096 BCC L087A1A INX L087A1A STA $03 STX $05 LDY #$0002 LDA [$03],Y TAX LDA [$03] PHA JSL L0873D7 L087A2B PLY PLY PLY PLD RTL L087A30 ENT PHD TSC CLC ADC #$FFE8 TCS TCD PEA ^L05312F PEA L05312F JSL L151131 PEA ^L0531F9 PEA L0531F9 JSL L1506A7 TDC CLC ADC #$0001 PEA $0000 PHA PEA $0000 PEA $0000 PEA $0052 PEA $0048 JSL L15100B TDC CLC ADC #$0001 PEA $0000 PHA JSL L15123D JSL L1510A1 PEA $0002 PEA $0001 JSL L151083 LDA #$0001 STA $11 L087A85 LDA $11 PEA $001C JSL L150BEE PLA DEC DEC PHA PEA $0000 JSL L1510C5 PEA $0000 PEA $0047 JSL L15056E LDA #$0002 CMP $11 BEQ L087AAE INC $11 BRA L087A85 L087AAE PEA $0002 PEA $0002 JSL L151083 LDA #$0001 STA $13 L087ABD PEA $0000 LDA $13 PEA $000C JSL L150BEE PLA DEC PHA JSL L1510C5 LDA $13 SEC SBC #$0001 BEQ L087AE9 BVS L087ADD EOR #$8000 L087ADD BPL L087AE9 PEA $0000 PEA $0001 JSL L150635 L087AE9 PEA $0050 PEA $0000 JSL L15056E PEA $0002 PEA $0001 JSL L151083 LDA #$0005 CMP $13 BEQ L087B08 INC $13 BRA L087ABD L087B08 LDA #$0001 STA $13 LDA #$0001 STA $0B STZ $0D L087B14 LDA #$0002 STA $11 STZ $0F L087B1B LDA #$FFFF CLC ADC $0B STA $09 LDA $0D SEC SBC #$0002 BEQ L087B32 BVS L087B30 EOR #$8000 L087B30 BMI L087B37 L087B32 LDA #$0000 BRA L087B3A L087B37 LDA #$0001 L087B3A AND L0550B7 PHA LDX #$0000 LDA $0F BMI L087B48 BEQ L087B48 INX L087B48 TXA AND $01,S PLX LSR BCC L087B57 LDA #$0008 CLC ADC $09 STA $09 L087B57 PHY PHY PEI $09 JSL L085FE9 PEI $11 PEI $13 JSL L087218 LDA #$001C CLC ADC $11 STA $11 LDA $0B INC STA $0B LDA #$0002 CMP $0F BEQ L087B7F INC $0F BRA L087B1B L087B7F LDA #$000C CLC ADC $13 STA $13 LDA $0D BNE L087B90 LDA $13 INC STA $13 L087B90 LDA #$0005 CMP $0D BEQ L087B9C INC $0D BRL L087B14 L087B9C PEA ^L053239 PEA L053239 JSL L1506A7 TSC CLC ADC #$0018 TCS PLD RTL L087BAE ENT PHD TSC CLC ADC #$FFEC TCS TCD LDA L054FBB SEC SBC #$0000 BMI L087C14 TDC CLC ADC #$0001 STA $09 STZ $0B PEA ^L053127 PEA L053127 PEA ^L05311F PEA L05311F PEI $0B PEI $09 JSL L081E5F PHY PEI $1C PEI $1A PEI $0B PEI $09 PEI $0B PEI $09 JSL L150B3A PLA LSR BCC L087C14 LDA L0550FD LDX L0550FF PHX PHA PEI $0B PEI $09 JSL L083985 PEA ^L05311F PEA L05311F PEA ^L053127 PEA L053127 PEA $0008 JSL L0313BE L087C14 LDA $18 STA $1C LDA $17 STA $1B LDA $15 TCD TSC CLC ADC #$001A TCS RTL L087C26 PHD TSC CLC ADC #$FF88 TCS TCD TDC CLC ADC #$0009 PEA $0000 PHA PEI $88 PEI $86 PEA $0008 JSL L0313BE TDC CLC ADC #$0001 PEA $0000 PHA PEI $84 PEI $82 PEA $0008 JSL L0313BE PHY PHY JSL L150493 PLA STA $59 PLX STX $5B PHY PHY JSL L151293 JSL L151131 TDC CLC ADC #$0015 PEA $0000 PHA JSL L15119E TDC CLC ADC #$0055 PEA $0000 PHA JSL L15107D PHY JSL L150BDC PLA STA $71 PEA $0002 JSL L150BD6 PEA $0002 PEA $0001 JSL L151083 PEA $3333 JSL L081DD8 LDA $80 BEQ L087CD0 PHY PHY PEA $0005 PEA $0003 JSL L15133D PLA STA $6D PLX STX $6F PHY PHY PEA $01D3 PEA $2710 JSL L15133D PLA STA $69 PLX STX $6B BRA L087CF4 L087CD0 PHY PHY PEA $0003 PEA $0005 JSL L15133D PLA STA $6D PLX STX $6F PHY PHY PEA $0000 PEA $0001 JSL L1512F5 PLA STA $69 PLX STX $6B L087CF4 TDC CLC ADC #$004D PEA $0000 PHA JSL L08273B TDC CLC ADC #$0045 PEA $0000 PHA JSL L08273B LDA #$0001 STA $73 L087D13 PHY PHY PEA $0000 PEA $0001 JSL L1512F5 LDA $69 LDX $6B JSL L1512A5 STA $65 STX $67 PHY PHY PEI $6B PEI $69 PHY PHY LDA $01 JSL L150488 PHX PHA JSL L1512F5 JSL L15036B PLA STA $61 PLX STX $63 PHY PHY PEI $67 PEI $65 PHY PHY LDA $09 JSL L150488 PHX PHA JSL L1512F5 JSL L15036B PLA STA $5D PLX STX $5F PHY LDA $61 LDX $63 PEI $5F PEI $5D JSL L150F53 PHX PHA JSL L1500DD PLA STA $35 PHY PHY PEI $6B PEI $69 PHY PHY LDA $03 JSL L150488 PHX PHA JSL L1512F5 JSL L15036B PLA STA $61 PLX STX $63 PHY PHY PEI $67 PEI $65 PHY PHY LDA $0B JSL L150488 PHX PHA JSL L1512F5 JSL L15036B PLA STA $5D PLX STX $5F PHY LDA $61 LDX $63 PEI $5F PEI $5D JSL L150F53 PHX PHA JSL L1500DD PLA STA $37 PHY PHY PEI $6B PEI $69 PHY PHY LDA $05 JSL L150488 PHX PHA JSL L1512F5 JSL L15036B PLA STA $61 PLX STX $63 PHY PHY PEI $67 PEI $65 PHY PHY LDA $0D JSL L150488 PHX PHA JSL L1512F5 JSL L15036B PLA STA $5D PLX STX $5F PHY LDA $61 LDX $63 PEI $5F PEI $5D JSL L150F53 PHX PHA JSL L1500DD PLA STA $39 PHY PHY PEI $6B PEI $69 PHY PHY LDA $07 JSL L150488 PHX PHA JSL L1512F5 JSL L15036B PLA STA $61 PLX STX $63 PHY PHY PEI $67 PEI $65 PHY PHY LDA $0F JSL L150488 PHX PHA JSL L1512F5 JSL L15036B PLA STA $5D PLX STX $5F PHY LDA $61 LDX $63 PEI $5F PEI $5D JSL L150F53 PHX PHA JSL L1500DD PLA STA $3B PHY PHY PEI $6B PEI $69 PEI $6F PEI $6D JSL L15036B PLA STA $69 PLX STX $6B TDC CLC ADC #$0035 PEA $0000 PHA JSL L151418 PHY TDC CLC ADC #$004D PEA $0000 PHA JSL L081A64 PLA LSR BCS L087EB3 TDC CLC ADC #$004D PEA $0000 PHA JSL L151418 L087EB3 TDC CLC ADC #$004D PEA $0000 PHA TDC CLC ADC #$0045 PEA $0000 PHA PEA $0008 JSL L0313BE TDC CLC ADC #$0045 PEA $0000 PHA TDC CLC ADC #$003D PEA $0000 PHA PEA $0008 JSL L0313BE TDC CLC ADC #$003D PEA $0000 PHA TDC CLC ADC #$0035 PEA $0000 PHA PEA $0008 JSL L0313BE LDA L054FB7 LDX L054FB9 STA $75 STX $77 LDY #$0002 LDA [$75],Y TAX LDA [$75] PHX PHA LDA $7E JSL L150488 JSL L150F53 STA $11 STX $13 L087F20 PEI $13 PEI $11 LDA L054FB7 LDX L054FB9 STA $75 STX $77 LDY #$0002 LDA [$75],Y TAX LDA [$75] JSL L033477 BEQ L087F43 BVS L087F41 EOR #$8000 L087F41 BMI L087F20 L087F43 LDA #$0006 CMP $73 BEQ L087F4F INC $73 BRL L087D13 L087F4F TDC CLC ADC #$004D PEA $0000 PHA JSL L151418 TDC CLC ADC #$0045 PEA $0000 PHA JSL L151418 TDC CLC ADC #$003D PEA $0000 PHA JSL L151418 PEI $71 JSL L150BD6 PEI $57 PEI $55 JSL L151083 TDC CLC ADC #$0015 PEA $0000 PHA JSL L151198 PEI $5B PEI $59 JSL L151131 LDA $7C STA $88 LDA $7B STA $87 LDA $79 TCD TSC CLC ADC #$0086 TCS RTL