* * HypercardGS * segment: $17 SegInit * * (k) 2015, Brutal Deluxe Software * mx %00 rel dsk SegInit.l lst off *--------------------------------------- use SegInit.E use SegInit.X use 4/Ctl.Macs use 4/Desk.Macs use 4/Dialog.Macs use 4/Event.Macs use 4/Int.Macs use 4/Line.Macs use 4/List.Macs use 4/Locator.Macs use 4/Mem.Macs use 4/Menu.Macs use 4/MidiSyn.Macs use 4/Misc.Macs use 4/Qd.Macs use 4/Sound.Macs use 4/Std.Macs use 4/Text.Macs use 4/Util.Macs use 4/Window.Macs *--------------------------------------- L170000 ENT PHD TSC TCD PHB PHB PLA STA L054F91 TDC TCS PLD RTL L17000D PHD TSC CLC ADC #$FFF2 TCS TCD LDA #$0200 ORA L054FBF STA L054FBD PHY PHY PEA $0005 JSL L151325 PLA STA L054FB7 PLA STA L054FB9 STZ L054FBB LDA #$0001 STA L054F9F LDA #$0004 STA L054FA1 STZ L054F99 STZ L054FB3 STZ L054F8B JSL L170000 PHY PHY PEA $0000 PEA $0006 JSL L1510E9 PLA STA L054FAD PLA STA L054FAF LDA L054FAD LDX L054FAF CLC ADC #$0004 BCC L17006C INX L17006C CLC ADC #$004C BCC L170073 INX L170073 STA $0B STX $0D LDY #$0002 LDA [$0B],Y TAX LDA [$0B] INC BNE L170083 INX L170083 STA L054F8D STX L054F8F PHY PHY LDA L054FAD LDX L054FAF STA $0B STX $0D LDY #$0002 LDA [$0B],Y TAX LDA [$0B] PEA $0000 PEA $0004 JSL L150D50 LDA L054FBD PHA PEA $4000 PEA $0000 PEA $0000 JSL L1513F4 PLA PLX STA $0B STX $0D LDY #$0002 LDA [$0B],Y TAX LDA [$0B] STA $05 STX $07 PEI $07 PEI $05 LDA L054FAD LDX L054FAF STA $0B STX $0D LDY #$0002 LDA [$0B],Y TAX LDA [$0B] PEA $0000 PEA $0004 JSL L150D50 JSL L071EC5 LDA $05 LDX $07 STA $01 STX $03 LDA L054FAD LDX L054FAF STA $0B STX $0D LDY #$0002 LDA [$0B],Y TAX LDA [$0B] STA [$01] TXA LDY #$0002 STA [$01],Y LDA L054FAD LDX L054FAF CLC ADC #$0004 BCC L17011D INX L17011D STA $0B STX $0D LDY #$0002 LDA [$0B],Y TAX LDA [$0B] LDY #$0004 STA [$01],Y INY INY TXA STA [$01],Y LDA #$0004 CLC ADC $01 LDX $03 BCC L17013E INX L17013E CLC ADC #$004C BCC L170145 INX L170145 STA $0B STX $0D LDA #L071A47 LDX #^L071A47 TAY BNE L170153 DEX L170153 DEC STA [$0B] TXA LDY #$0002 STA [$0B],Y PEA $0000 PEA $0006 PEI $07 PEI $05 JSL L1510E3 LDAL L040A84 SEP #$20 STAL L05409D REP #$20 STZ $09 L170178 LDA $09 ASL ASL TAX PEA ^L05409D PEA L05409D PLA STAL L0540CD,X PLA STAL L0540CF,X LDA #$0009 CMP $09 BEQ L170198 INC $09 BRA L170178 L170198 STZ L054FA3 STZ L054FA5 TSC CLC ADC #$000E TCS PLD RTL L1701A6 PHD TSC CLC ADC #$FFE4 TCS TCD LDA #$0700 ORA L054FBF STA L055019 LDA #$0300 ORA L054FBF STA L055017 PHY PHY JSL L1503A1 PLA STA $15 PLX STX $17 LDA #$007F STA L05500B PEI $17 PEI $15 LDA #$0D40 LDX #$0003 JSL L033477 BEQ L1701EF BVS L1701E7 EOR #$8000 L1701E7 BPL L1701EF LDA #$00FF STA L05500B L1701EF PEI $17 PEI $15 LDA #$1A80 LDX #$0006 JSL L033477 BEQ L17020C BVS L170204 EOR #$8000 L170204 BPL L17020C LDA #$01FF STA L05500B L17020C LDA L05500B ASL CLC ADC L05500B PHA PEA $0004 JSL L1500F5 PLX PLX STA L055009 LDA L05500B INC JSL L150488 STA $11 STX $13 LDA $11 LDX $13 PEA $0000 PEA $000E JSL L150D50 PLA STA $0D PLX STX $0F PHY PHY PEI $0F PEI $0D LDA L055017 PHA PEA $4010 PEA $0000 PEA $0000 JSL L1513F4 PLA PLX STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] STA L054FED STX L054FEF LDA L054FED LDX L054FEF PEI $0F PEI $0D JSL L150F53 STA L054FF1 STX L054FF3 LDA L054FED LDX L054FEF PHX PHA PEI $0F PEI $0D JSL L071EC5 LDA L054FED LDX L054FEF STA L054FE9 STX L054FEB LDA L054FED LDX L054FEF STA L054FE5 STX L054FE7 LDA L054FED LDX L054FEF STA L054FC9 STX L054FCB LDA L054FED LDX L054FEF STA L054FD1 STX L054FD3 LDA L054FED LDX L054FEF STA L054FC5 STX L054FC7 LDA L054FED LDX L054FEF STA L054FD9 STX L054FDB LDA L054FED LDX L054FEF STA L054FE1 STX L054FE3 LDA L054FED LDX L054FEF STA L054FDD STX L054FDF LDA L054FED LDX L054FEF STA L054FD5 STX L054FD7 LDA L054FED LDX L054FEF STA L054FCD STX L054FCF STZ L055005 STZ L055007 STZ L05500D STZ L055013 STZ L055015 STZ L05500F STZ L055011 PEA ^L0539E9 PEA L0539E9 PEA $0000 PEA $00B4 JSL L071EC5 LDA #$0001 STA L054FC1 PHY PHY PEA $0000 PEA $0004 LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA L054FFF PLA STA L055001 LDA L054FFF LDX L055001 STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] STA $19 STX $1B LDA #$0001 LDX #$0000 STA [$19] TXA LDY #$0002 STA [$19],Y PHY PHY PEA $0000 PEA $0004 LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA L054FFB PLA STA L054FFD LDA L054FFB LDX L054FFD STA $19 STX $1B LDY #$0002 LDA [$19],Y TAX LDA [$19] STA $19 STX $1B LDA #$0001 LDX #$0000 STA [$19] TXA LDY #$0002 STA [$19],Y STZ L055047 STZ L05503D PHY PHY PEA ^L040A73 PEA L040A73 JSL L0735A8 PLA STA L055043 PLA STA L055045 PHY PHY PEA ^L040A74 PEA L040A74 JSL L0735A8 PLA STA L05503F PLA STA L055041 STZ L055039 STZ L05503B STZ L055049 STZ L05504B STZ L055027 STZ L055029 STZ L05501F STZ L055021 STZ L055023 STZ L055025 STZ L05504F STZ L055051 STZ L054FF7 STZ L054FF5 STZ L054FF9 STZ L055003 LDA #$0003 STA $01 LDA #$0001 STA $03 LDA #$0001 STA $05 STZ $07 TDC CLC ADC #$0001 PEA $0000 PHA PEA $2033 JSL GSOS2 STAL L05565D STZ L054FC3 PEA ^L074266 PEA L074266 JSL L15134F TSC CLC ADC #$001C TCS PLD RTL L170455 PHD TSC CLC ADC #$FFF8 TCS TCD STZ L05508B STZ L055057 STZ L055081 STZ L055083 LDAL L040A30 SEP #$20 STAL L0538E9 REP #$20 STZ L055077 LDA #$0001 STA L055075 STZ L055079 PEA $0003 JSL L0792D7 PLY PLY PLY PLY PLD RTL L17048E PHD TSC CLC ADC #$FFFC TCS TCD LDA #$0080 STA [$0E] LDA $12 LDX $14 LDY #$0002 STA [$0E],Y INY INY TXA STA [$0E],Y LDA #$00A0 LDY #$0006 STA [$0E],Y LDA #$0008 CLC ADC $0E LDX $10 BCC L1704BC INX L1704BC PHX PHA JSL L082712 LDA $08 STA $14 LDA $07 STA $13 LDA $05 TCD TSC CLC ADC #$0012 TCS RTL L1704D4 PHD TSC CLC ADC #$FFF0 TCS TCD LDA $1A LDX $1C STA $03 STX $05 LDY #$0002 LDA [$03],Y TAX LDA [$03] STA $09 STX $0B LDY #$0006 LDA [$03],Y STA $01 LDA $01 SEC SBC #$0001 BVS L170502 EOR #$8000 L170502 BPL L170531 LDA #$0001 STA $07 L170509 LDA L0550FB SEP #$20 STA [$09] REP #$20 PEI $0B PEI $09 LDY #$0004 LDA [$03],Y JSL L150488 JSL L150F53 STA $09 STX $0B LDA $07 CMP $01 BEQ L170531 INC $07 BRA L170509 L170531 LDA $14 STA $1C LDA $13 STA $1B LDA $11 TCD TSC CLC ADC #$001A TCS RTL L170543 PHD TSC CLC ADC #$FF6E TCS TCD LDA #$0600 ORA L054FBF STA L0550A5 PHY PHY PHY PEA $0000 PEA $0004 JSL L1517E5 JSL L1510CB PLA STA L05510F PEA ^L053259 PEA L053259 JSL L082712 PEA ^L053251 PEA L053251 JSL L08273B PEA ^L052E97 PEA L052E97 PEA $0000 PEA $0000 PEA $0010 PEA $0007 JSL L15100B TDC CLC ADC #$0009 PEA $0000 PHA PEA $0000 PEA $0024 JSL L071EC5 LDA #$4000 STA $0F LDA #$0014 STA $1F LDA #$001B STA $1D LDA #$0066 STA $23 LDA #$0063 STA $21 LDA #L086734 LDX #^L086734 STA $0B STX $0D LDA #$FFFF TAX STA $25 STX $27 PHY PHY TDC CLC ADC #$0009 PEA $0000 PHA JSL L15027E PLA STA L0550E9 PLA STA L0550EB LDA L0550E9 LDX L0550EB STA L0550D5 STX L0550D7 LDA #$0014 STA $1F LDA #$0071 STA $1D LDA #$0082 STA $23 LDA #$0094 STA $21 PHY PHY TDC CLC ADC #$0009 PEA $0000 PHA JSL L15027E PLA STA L0550E5 PLA STA L0550E7 LDA L0550E5 LDX L0550E7 STA L0550D1 STX L0550D3 LDA #$01FC STA $1F LDA #$0045 STA $1D LDA #$026B STA $23 LDA #$0094 STA $21 PHY PHY TDC CLC ADC #$0009 PEA $0000 PHA JSL L15027E PLA STA L0550DD PLA STA L0550DF LDA L0550DD LDX L0550DF STA L0550CD STX L0550CF LDA #$021A STA $1F LDA #$001B STA $1D LDA #$026A STA $23 LDA #$0034 STA $21 PHY PHY TDC CLC ADC #$0009 PEA $0000 PHA JSL L15027E PLA STA L0550D9 PLA STA L0550DB LDA L0550D9 LDX L0550DB STA L0550C9 STX L0550CB LDA #$0014 STA $1F LDA #$026C STA $23 LDA #$00B5 STA $1D LDA #$00C5 STA $21 PHY PHY TDC CLC ADC #$0009 PEA $0000 PHA JSL L15027E PLA STA L0550E1 PLA STA L0550E3 LDA L0550E1 LDX L0550E3 STA L0550C5 STX L0550C7 PEA ^L053249 PEA L053249 PEA $0000 PEA $0001 PEA $0258 PEA $000D JSL L15100B TDC CLC ADC #$007F PEA $0000 PHA PEA ^L053249 PEA L053249 PEA $0008 JSL L0313BE TDC CLC ADC #$007F PEA $0000 PHA PEA $0002 PEA $0000 JSL L151005 TDC CLC ADC #$0087 PEA $0000 PHA TDC CLC ADC #$007F PEA $0000 PHA PEA $0008 JSL L0313BE TDC CLC ADC #$0087 PEA $0000 PHA PEA $000C PEA $0001 JSL L151005 LDA L0550E1 LDX L0550E3 PHX PHA JSL L151131 PHY PHY TDC CLC ADC #$0087 PEA $0000 PHA TDC CLC ADC #$007F PEA $0000 PHA PEA $00FA JSL L150D38 PLA STA L055111 PLA STA L055113 TDC CLC ADC #$002D PEA $0000 PHA PEA $0000 PEA $004E JSL L071EC5 LDA #$004E STA $2D LDA #$0008 STA $2F STZ $35 STZ $37 TDC CLC ADC #$006B PEA $0000 PHA JSL L082712 LDA #$FFFF TAX STA $73 STX $75 PHY PHY TDC CLC ADC #$002D PEA $0000 PHA JSL L15027E PLA STA L0550ED PLA STA L0550EF LDA L0550ED LDX L0550EF STA L0550C1 STX L0550C3 LDA L0550ED LDX L0550EF CLC ADC #$0002 BCC L1707D0 INX L1707D0 STA $8F STX $91 LDY #$0002 LDA [$8F],Y TAX LDA [$8F] STA L0550F9 STX L0550FB LDA L0550FD LDX L0550FF PHX PHA PEA ^L053239 PEA L053239 PEA $0000 PHD JSL L17048E LDA L055109 LDX L05510B PHX PHA PEA ^L053229 PEA L053229 PEA $0000 PHD JSL L17048E LDA L055101 LDX L055103 PHX PHA PEA ^L053219 PEA L053219 PEA $0000 PHD JSL L17048E LDA L055105 LDX L055107 PHX PHA PEA ^L053209 PEA L053209 PEA $0000 PHD JSL L17048E PEA ^L05312F PEA L05312F JSL L151424 LDA #$8000 ORAL L0531CF STAL L0531CF PHY JSL L15028A PLA ORA #$0004 PHA JSL L150284 PEA ^L053239 PEA L053239 JSL L1506A7 STZ L055119 STZ L05511B STZ L055115 STZ L055117 STZ L055151 STZ L05514F STZ L055135 STZ L055139 PEA ^L0532BD PEA L0532BD JSL L082712 PEA ^L053117 PEA L053117 JSL L082712 PEA ^L05310F PEA L05310F JSL L082712 PEA ^L053127 PEA L053127 JSL L082712 PEA ^L05311F PEA L05311F JSL L082712 STZ L055153 LDA #$0001 STA L055149 LDA #$0080 STAL L0531F9 LDA #$FFF8 AND #$001C STAL L0531FF PHY PHY LDAL L0531FF PEA $0048 JSL L150BEE PLA LDX #$0000 BIT #$8000 BEQ L1708E2 DEX L1708E2 PHX PHA LDA L0550A5 PHA PEA $4010 PEA $0000 PEA $0000 JSL L1513F4 PLA PLX STA $8F STX $91 LDY #$0002 LDA [$8F],Y TAX LDA [$8F] STAL L0531FB TXA STAL L0531FD LDA #$0000 STAL L053203 LDA #$0000 STAL L053201 LDA #$0052 STAL L053207 LDA #$0048 STAL L053205 JSL L087A30 STZ L055131 LDA #$0080 STAL L0531D9 LDA #$FFF8 AND #$0023 STAL L0531DF PHY PHY LDAL L0531DF PEA $004F JSL L150BEE PLA LDX #$0000 BIT #$8000 BEQ L170957 DEX L170957 PHX PHA LDA L0550A5 PHA PEA $4010 PEA $0000 PEA $0000 JSL L1513F4 PLA PLX STA $8F STX $91 LDY #$0002 LDA [$8F],Y TAX LDA [$8F] STAL L0531DB TXA STAL L0531DD LDA #$0000 STAL L0531E3 LDA #$0000 STAL L0531E1 LDA #$006F STAL L0531E7 LDA #$004F STAL L0531E5 LDA #$0001 STA L0550B5 JSL L083A3C LDA #$0080 STAL L0531E9 LDA #$FFF8 AND #$0023 STAL L0531EF PHY PHY LDAL L0531EF PEA $0023 JSL L150BEE PLA LDX #$0000 BIT #$8000 BEQ L1709CF DEX L1709CF PHX PHA LDA L0550A5 PHA PEA $4010 PEA $0000 PEA $0000 JSL L1513F4 PLA PLX STA $8F STX $91 LDY #$0002 LDA [$8F],Y TAX LDA [$8F] STAL L0531EB TXA STAL L0531ED LDA #$0000 STAL L0531F3 LDA #$0000 STAL L0531F1 LDA #$006E STAL L0531F7 LDA #$0023 STAL L0531F5 JSL L087898 PEA ^L05312F PEA L05312F JSL L151131 LDA #$FFFF STAL L052E93 STAL L052E95 PEA $0000 PEA $0000 JSL L087547 PEA ^L0808C8 PEA L0808C8 PEA $0000 PHD JSL L1704D4 PEA ^L0808D0 PEA L0808D0 PEA $0000 PHD JSL L1704D4 PEA ^L0808D8 PEA L0808D8 PEA $0000 PHD JSL L1704D4 PEA ^L08322D PEA L08322D PEA $0000 PHD JSL L1704D4 PEA ^L083235 PEA L083235 PEA $0000 PHD JSL L1704D4 PEA ^L08323D PEA L08323D PEA $0000 PHD JSL L1704D4 TSC CLC ADC #$0092 TCS PLD RTL L170A94 PHD TSC CLC ADC #$FFEC TCS TCD LDA #$0001 STA $0F L170AA1 LDA $0F DEC ASL ASL TAX TXA CLC ADC #L052CE2 LDX #^L052CE2 BCC L170AB2 INX L170AB2 STA $11 STX $13 PHY PHY LDA $0F DEC ASL ASL TAX LDAL L0541BD+2,X PHA LDAL L0541BD,X PHA JSL L1517DF PLA STA [$11] PLA LDY #$0002 STA [$11],Y LDA #$000C CMP $0F BEQ L170AE0 INC $0F BRA L170AA1 L170AE0 LDAL L052CF4 TAX LDAL L052CF2 STA $11 STX $13 LDY #$0002 LDA [$11],Y TAX LDA [$11] STA $09 STX $0B LDA #$0000 LDY #$0002 STA [$09],Y LDA #$0000 LDY #$0004 STA [$09],Y LDA #L09A7DB LDX #^L09A7DB LDY #$0006 STA [$09],Y INY INY TXA STA [$09],Y LDY #$000A LDA #$0110 ORA [$09],Y AND #$FFF7 LDY #$000A STA [$09],Y LDAL L052CF0 TAX LDAL L052CEE STA $11 STX $13 LDY #$0002 LDA [$11],Y TAX LDA [$11] STA $05 STX $07 LDA #$0000 LDY #$0002 STA [$05],Y LDA #$0000 LDY #$0004 STA [$05],Y LDA #$0000 TAX LDY #$0006 STA [$05],Y INY INY TXA STA [$05],Y LDY #$000A LDA #$0100 ORA [$05],Y LDY #$000A STA [$05],Y LDAL L052D04 TAX LDAL L052D02 STA $11 STX $13 LDY #$0002 LDA [$11],Y TAX LDA [$11] STA $01 STX $03 LDA #$0000 LDY #$0002 STA [$01],Y LDA #$0000 LDY #$0004 STA [$01],Y LDA #L09858F LDX #^L09858F LDY #$0006 STA [$01],Y INY INY TXA STA [$01],Y LDY #$000A LDA #$0110 ORA [$01],Y AND #$FFF7 LDY #$000A STA [$01],Y LDAL L052CF0 PHA LDAL L052CEE PHA PEA $0000 JSL L150671 LDAL L052D0C PHA LDAL L052D0A PHA PEA $0000 JSL L150671 LDAL L052D08 PHA LDAL L052D06 PHA PEA $0000 JSL L150671 LDAL L052CE4 PHA LDAL L052CE2 PHA PEA $0000 JSL L150671 LDA #$0001 STA L055145 STZ L055051 PEA $012C JSL L151095 PHY JSL L1503A7 PLA STA $0D JSL L087268 LDA $18 STA $1C LDA $17 STA $1B LDA $15 TCD TSC CLC ADC #$001A TCS RTL L170C28 PHD TSC CLC ADC #$FFF6 TCS TCD LDA #$0002 STA L0551F9 LDA #$0002 STA L0551FB STZ L05521B STZ L055217 PHY PHY PEA $0000 PEA $000F JSL L1510E9 PLA STA L05515D PLA STA L05515F LDA L05515D LDX L05515F CLC ADC #$0004 BCC L170C63 INX L170C63 CLC ADC #$00A4 BCC L170C6A INX L170C6A STA $07 STX $09 LDY #$0002 LDA [$07],Y TAX LDA [$07] INC BNE L170C7A INX L170C7A STA L055161 STX L055163 PHY PHY LDA L05515D LDX L05515F STA $07 STX $09 LDY #$0002 LDA [$07],Y TAX LDA [$07] PEA $0000 PEA $0004 JSL L150D50 LDA L054FBD PHA PEA $4000 PEA $0000 PEA $0000 JSL L1513F4 PLA PLX STA $07 STX $09 LDY #$0002 LDA [$07],Y TAX LDA [$07] STA L055159 STX L05515B LDA L055159 LDX L05515B PHX PHA LDA L05515D LDX L05515F STA $07 STX $09 LDY #$0002 LDA [$07],Y TAX LDA [$07] PEA $0000 PEA $0004 JSL L150D50 JSL L071EC5 LDA L055159 LDX L05515B STA $01 STX $03 LDA L05515D LDX L05515F STA $07 STX $09 LDY #$0002 LDA [$07],Y TAX LDA [$07] STA [$01] TXA LDY #$0002 STA [$01],Y LDA L05515D LDX L05515F CLC ADC #$0004 BCC L170D1C INX L170D1C STA $07 STX $09 LDY #$0002 LDA [$07],Y TAX LDA [$07] LDY #$0004 STA [$01],Y INY INY TXA STA [$01],Y LDA #$0004 CLC ADC $01 LDX $03 BCC L170D3D INX L170D3D CLC ADC #$00A4 BCC L170D44 INX L170D44 STA $07 STX $09 LDA #L0709F6 LDX #^L0709F6 TAY BNE L170D52 DEX L170D52 DEC STA [$07] TXA LDY #$0002 STA [$07],Y PEA $0000 PEA $000F LDA L055159 LDX L05515B PHX PHA JSL L1510E3 PEA $0000 PHD JSL L170A94 LDA #$0001 STA L0551E5 LDA #$0001 STA L0551E3 LDA #$0001 STA L0551E1 PEA ^L0525DA PEA L0525DA PEA $0000 PEA $0640 JSL L071EC5 PEA ^L05233C PEA L05233C PEA $0000 PEA $0090 JSL L071EC5 STZ L0551DF STZ L05524D STZ L0551DD LDA #$0080 STAL L05232C PHY PHY PEA $0000 PEA $2328 LDA L054FBD PHA PEA $4010 PEA $0000 PEA $0000 JSL L1513F4 PLA PLX STA $07 STX $09 LDY #$0002 LDA [$07],Y TAX LDA [$07] STAL L05232E TXA STAL L052330 LDAL L05565D BEQ L170DF4 PEA $2312 JSL L07272E L170DF4 LDA #$0078 STAL L052332 LDA #$0000 STAL L052336 LDA #$0000 STAL L052334 LDA #$01E0 STAL L05233A LDA #$004B STAL L052338 LDA #$0001 STA $05 L170E1C LDAL L052330 PHA LDAL L05232E PHA LDA $05 JSL L150488 TAY BNE L170E30 DEX L170E30 DEC PHX PHA PEA $0000 PEA $0001 JSL L151137 PLA PLX JSL L150F53 STA $07 STX $09 LDA #$FFFF STA [$07] LDA #$1194 CMP $05 BEQ L170E57 INC $05 BRA L170E1C L170E57 LDA #$0001 STA L055133 LDA #$0080 STAL L05231C LDA #L0520C4 STAL L05231E LDA #^L0520C4 STAL L052320 LDA #$0018 STAL L052322 LDA #$0000 STAL L052324 LDA #$0000 STAL L052326 LDA #$0019 STAL L052328 LDA #$0050 STAL L05232A STZ L05522B STZ L05522D LDA #$0000 STAL L052D62 LDA #$0000 STAL L052D60 LDA #$0001 STA L055229 STZ L055249 STZ L055247 STZ L054FB1 STZ L05524F LDA #$0001 STA L054FB5 STZ L0551ED STZ L0551F1 LDA #$0001 STA L0551AD STZ L055257 STZ L055259 STZ L055255 STZ L055155 STZ L05524B STZ L055245 STZ L055243 STZ L05523D STZ L055241 STZ L05523F STZ L055215 STZ L055199 STZ L055235 STZ L055237 STZ L055239 STZ L05523B STZ L055211 STZ L055209 STZ L05520D STZ L05520B STZ L0551F3 LDA #$0001 STA L0550BB STZ L0550B9 STZ L0551EF LDA #$0001 STA L0551EB LDA #$FFFF STA L0551E7 LDA #$1601 STA L0551E9 LDAL L040965 SEP #$20 STAL L052CCE REP #$20 LDAL L040966 SEP #$20 STAL L052CBA REP #$20 STZ L0551CB STZ L0551CD STZ L0551BF STZ L0551C1 STZ L0551BB STZ L0551BD STZ L0551C7 STZ L0551C9 STZ L0551C3 STZ L0551C5 PEA ^L05328B PEA L05328B PEA $0000 PEA $002A JSL L071EC5 STZ L055129 STZ L05512B PHY PHY PEA $0000 PEA $0200 LDA L0551B7 PHA PEA $4005 PEA $0000 PEA $0000 JSL L1513F4 PLA PLX STA $07 STX $09 LDY #$0002 LDA [$07],Y TAX LDA [$07] STA L0551B5 PHY JSL L095FB4 PLA STA L0551B9 LDA #$0100 CLC ADC L0551B5 STA L0551AB PLY PLY PLY PLY PLY PLD RTL L170FBA PHD TSC CLC ADC #$FFFC TCS TCD LDA #$0500 ORA L054FBF STA L0552FD PHY PHY PEA $0000 PEA $0000 LDA L0552FD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA L0552F9 PLA STA L0552FB PHY PHY PEA $0000 PEA $0000 LDA L0552FD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA L0552F5 PLA STA L0552F7 PHY PHY PEA $0000 PEA $0000 LDA L0552FD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA L0552F1 PLA STA L0552F3 PHY PHY PEA $0000 PEA $0000 LDA L0552FD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA L0552ED PLA STA L0552EF PHY PHY PEA $0000 PEA $0000 LDA L0552FD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA L0552E9 PLA STA L0552EB STZ L0552C7 STZ L055137 STZ L055289 STZ L0551F1 STZ L055319 STZ L0552BB STZ L0552B9 STZ L055315 STZ L055317 LDA #$0000 STAL L051ED6 LDA #$FFFE STAL L051ED8 LDA #$0008 STAL L051EDA LDA #$0000 STAL L051EDC LDA #$0009 STAL L051EDE STZ L0552FF LDA #$0064 STAL L051D6E LDA #$0140 STAL L051D70 LDA #$0028 CLC ADCL L05325B STAL L051D68 LDA #$000C CLC ADCL L053259 STAL L051D66 LDAL L05325F SEC SBC #$0028 STAL L051D6C LDAL L05325D SEC SBC #$000D STAL L051D6A LDA #$0118 STAL L051D60 LDA #$0058 STAL L051D5E LDA #$0168 STAL L051D64 LDA #$0071 STAL L051D62 LDA #$0000 STAL L051D58 LDA #$0000 STAL L051D56 LDA #$0050 STAL L051D5C LDA #$0019 STAL L051D5A LDA #$0080 STAL L051D46 LDA #$0018 STAL L051D4C LDA #$0000 STAL L051D4E LDA #$0000 STAL L051D50 LDA #$0019 STAL L051D52 LDA #$0050 STAL L051D54 STZ L0552B3 STZ L0552B1 STZ L0552A9 STZ L0552AF STZ L0552AB PEA ^L051DAA PEA L051DAA JSL L08273B STZ L0552AD STZ L055313 STZ L0550B7 STZ L055311 LDA #$0001 STA L05530F STZ L05530B STZ L055309 LDA #$0004 STA L055307 LDA #$0001 STA L055303 STZ L055301 PEA ^L051DA2 PEA L051DA2 PEA $0000 PEA $0000 PEA $027F PEA $00C7 JSL L15100B LDA #$0001 STAL L051EB2 LDA #$0002 STAL L051EB4 LDA #$0003 STAL L051EB6 LDA #$0004 STAL L051EB8 LDA #$0006 STAL L051EBA LDA #$0008 STAL L051EBC LDA #$0007 STA L055305 LDA #$FFFF STA L055283 PLY PLY PLD RTL L1711E1 PHD TSC CLC ADC #$FFFC TCS TCD STZ L055327 STZ L055329 PHY PHY PEA $0000 PEA $0200 LDA L0551B7 PHA PEA $4005 PEA $0000 PEA $0000 JSL L1513F4 PLA PLX STA $01 STX $03 LDY #$0002 LDA [$01],Y TAX LDA [$01] STA L055347 STZ L055345 PLY PLY PLD RTL L171220 ENT PHD TSC CLC ADC #$FFFA TCS TCD STZ L05540F STZ L055411 PLY PLY PLY PLD RTL L171233 PHD TSC CLC ADC #$FFFC TCS TCD STZ L055383 STZ L05537F STZ L055381 LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L171255 PHD TSC CLC ADC #$FEEE TCS ADC #$001F TCD LDA #$0001 STA L05538F STZ L05539B PHY PHY PEA $0000 PEA $0001 LDA L055019 PHA JSL L0B249C PLA STA L0553A7 PLA STA L0553A9 LDA L0553A7 LDX L0553A9 STA $EF STX $F1 LDY #$0002 LDA [$EF],Y TAX LDA [$EF] STA $EF STX $F1 SEP #$20 LDA #$00 STA [$EF] REP #$20 STZ L0553B5 STZ L0553B7 STZ L055399 PHY PHY PEA $0000 PEA $0200 LDA L0553DB PHA JSL L0B249C PLA STA L0553C5 PLA STA L0553C7 LDAL L05565D BEQ L1712CD PEA $1A53 JSL L07272E L1712CD LDA #$0020 STA L0553C1 STZ L0553C3 LDA L0553C5 LDX L0553C7 STA $EF STX $F1 LDY #$0002 LDA [$EF],Y TAX LDA [$EF] PHX PHA PEA $0000 PEA $0200 JSL L071EC5 LDA #$0003 STA L0553B3 JSL L0B1910 LDA #L051BE6 LDX #^L051BE6 STA L0553B9 STX L0553BB PEA ^L051054 PEA L051054 JSL L0B0D0A PEA ^L05103C PEA L05103C PEA ^L051054 PEA L051054 PEA $0018 JSL L0313BE PEA ^L051C38 PEA L051C38 JSL L0B199C LDA #L051C38 LDX #^L051C38 STA L0553BD STX L0553BF STZ L055387 STZ L055385 LDA #$0001 STAL L050FE8 LDA #$0002 STAL L05100A STZ L05537B STZ L05537D PEA ^L040505 PEA L040505 JSL L0B2C0A LDA #$0001 STA L05539D STZ L054FA9 STZ L054FAB PHY PHY PEA $0000 PEA $0002 LDA L055019 PHA JSL L0B249C PLA STA L05539F PLA STA L0553A1 LDA L05539F LDX L0553A1 STA $EF STX $F1 LDY #$0002 LDA [$EF],Y TAX LDA [$EF] STA $EF STX $F1 LDA #$0000 STA [$EF] STZ L0550B3 STZ L0550AF STZ L0550B1 STZ L0550AD STZ L0550AB PEA ^L0530A7 PEA L0530A7 PEA ^L053251 PEA L053251 PEA $0008 JSL L0313BE LDA #$0001 STAL L0510BC LDA #$FFFF STAL L0510BE STAL L0510C0 LDA #$FFFF STAL L0510C2 STAL L0510C4 LDA #$FFFF STAL L0510C6 STAL L0510C8 LDA #$FFFF STAL L0510CA STAL L0510CC LDA #$FFFF STAL L0510CE STAL L0510D0 LDA #$FFFF STAL L0510D2 STAL L0510D4 LDA #$FFFF STAL L0510D6 STAL L0510D8 LDA #$FFFF STAL L0510DA STAL L0510DC STZ $EB STZ $ED STZ L055371 STZ L05536F STZ L055391 SEP #$20 LDA #$01 STAL L032E6A * REP #$20 * SEP #$20 LDA #$0D STAL L032E6A+1 REP #$20 LDA #$0002 STAL L050BF2 LDA #$0000 STAL L050BF4 LDA #$0000 STAL L050BF6 LDA #$0000 STAL L050BF8 LDA #$0005 STAL L050BFA LDA #$0007 STAL L050BFC LDA #$0005 STAL L050C02 LDA #$0013 STAL L050C04 LDA #$0005 STAL L050C0A LDA #$000B STAL L050C0C LDA #$0005 STAL L050C12 LDA #$000C STAL L050C14 LDA #$0005 STAL L050C1A LDA #$000D STAL L050C1C LDA #$0005 STAL L050C22 LDA #$000E STAL L050C24 PEA ^L050C2A PEA L050C2A PEA ^L050BF2 PEA L050BF2 PEA $0008 JSL L0313BE LDA #$0001 STAL L050C2C LDA #$0000 STAL L050BEA SEP #$20 LDA #$01 STAL L050D32 REP #$20 PEA $0000 TDC CLC ADC #$FFE1 PHA PEA $0060 JSL L0B127A LDA #$0001 LDX #$0000 JSL L150F53 STA $EF STX $F1 LDA #$00FF AND [$EF] SEP #$20 STAL L050D33 REP #$20 PHY PHY PEA $801E LDA L05526D PHA LDA L055271 PHA PEA $0000 JSL L0B4FF1 PLA STA L055373 PLA STA L055375 PHY PHY PEA $801F LDA L055269 PHA LDA L055271 PHA PEA $0000 JSL L0B4FF1 PLA STA L055377 PLA STA L055379 STZ L055389 STZ L05538B STZ L05538D LDA $F6 STA $FA LDA $F5 STA $F9 LDA $F3 TCD TSC CLC ADC #$0118 TCS RTL L17155B PHD TSC CLC ADC #$FFFA TCS TCD JSL L03018B LDA #$0001 STA L05535F LDA $0A STA $0E LDA $09 STA $0D LDA $07 TCD TSC CLC ADC #$000C TCS RTL L17157F PHD TSC CLC ADC #$FFFC TCS TCD STZ $0E LDA L055271 BNE L171591 BRL L171614 L171591 LDA L055271 PHA JSL L150B70 PHY PHY PEA $8102 PEA $0000 PEA $0001 JSL L15041C PLA STA L0553C9 PLA STA L0553CB LDAL L05565D BNE L171614 PHY PHY PEA $8102 PEA $0000 PEA $0002 JSL L15041C PLA STA L0553D5 PLA STA L0553D7 LDAL L05565D BNE L171614 PHY PHY PEA $8102 PEA $0000 PEA $0003 JSL L15041C PLA STA L0553D1 PLA STA L0553D3 LDAL L05565D BNE L171614 PHY PHY PEA $8102 PEA $0000 PEA $0004 JSL L15041C PLA STA L0553CD PLA STA L0553CF LDAL L05565D BNE L171614 LDA #$0001 STA $0E BRA L171614 L171614 LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L171625 PHD TSC CLC ADC #$FFF0 TCS TCD PHY PHY JSL L1515C2 PEA $801E PEA $0001 JSL L1515C8 PHY PHY JSL L1515C2 PEA $801F PEA $0001 JSL L1515C8 LDA #L0B4B47 LDX #^L0B4B47 STA $09 STX $0B LDA #$0220 LDX #$00E1 STA $05 STX $07 LDA $05 LDX $07 STA $0D STX $0F PHY PHY PEI $0B PEI $09 PEA $0008 JSL L1502B4 PLA STA [$0D] PLA LDY #$0002 STA [$0D],Y LDA #$0220 LDX #$00E1 STA $01 STX $03 SEP #$20 LDA #$5C STA [$01] REP #$20 STZ L055205 LDA $14 STA $18 LDA $13 STA $17 LDA $11 TCD TSC CLC ADC #$0016 TCS RTL L1716A6 ENT PHD TSC CLC ADC #$FFFA TCS TCD PHY PHY PHY PHY TSC STA $01,S LDA #$0000 STA $03,S JSL L150586 PLA STA L05536B PLA STA L05536D LDAL L05565D BEQ L1716D3 PEA $1579 JSL L07272E L1716D3 LDA L05536B LDX L05536D STA $03 STX $05 LDY #$0002 LDA [$03],Y TAX LDA [$03] STA L055367 STX L055369 LDA #$0800 ORA L054FBF STA L0553DD LDA #$0900 ORA L054FBF STA L0553DB LDA #$0A00 ORA L054FBF STA L0553D9 PEA $0000 PHD JSL L171255 PHY PEA $0000 PHD JSL L17157F PLA LSR BCS L171722 PEA $1AB6 JSL L07272E L171722 PEA $0000 PHD JSL L171625 PEA $0000 PHD JSL L17155B PEA $0000 PHD JSL L171233 PLY PLY PLY PLD RTL L17173F PHD TSC CLC ADC #$FFFC TCS TCD PEA ^L050060 PEA L050060 PEA $0000 PEA $002A JSL L071EC5 STZ L055447 STZ L055449 STZ L055443 STZ L055445 STZ L05543F STZ L055441 STZ L05543B STZ L05543D PEA ^L052D32 PEA L052D32 PEA $0000 PEA $002A JSL L071EC5 STZ L0551F5 STZ L0551F7 PEA ^L050008 PEA L050008 PEA $0000 PEA $002A JSL L071EC5 STZ L055427 STZ L055429 PEA ^L050036 PEA L050036 PEA $0000 PEA $002A JSL L071EC5 STZ L055437 STZ L055439 STZ L055433 STZ L055435 STZ L05542F STZ L055431 STZ L05542B STZ L05542D LDA L0550ED LDX L0550EF PHX PHA JSL L151131 PLY PLY PLD RTL L1717D3 PHD TSC CLC ADC #$FFF4 TCS TCD LDA $16 ORA $18 BEQ L17184F LDA [$16] LDY #$0002 ORA [$16],Y BEQ L17184F LDY #$0002 LDA [$16],Y TAX LDA [$16] STA $03 STX $05 LDA [$03] STA $01 LDA $01 SEC SBC #$0001 BVS L171805 EOR #$8000 L171805 BPL L17184F LDA #$0001 STA $07 L17180C LDA #$0002 CLC ADC $03 LDX $05 BCC L171817 INX L171817 STA $09 STX $0B LDA $07 DEC TAY LDA #$00FF AND [$09],Y CMP #$002F BNE L171845 LDA #$0002 CLC ADC $03 LDX $05 BCC L171834 INX L171834 STA $09 STX $0B LDA $07 DEC TAY LDA #$003A SEP #$20 STA [$09],Y REP #$20 L171845 LDA $07 CMP $01 BEQ L17184F INC $07 BRA L17180C L17184F LDA $10 STA $18 LDA $0F STA $17 LDA $0D TCD TSC CLC ADC #$0016 TCS RTL L171861 PHD TSC CLC ADC #$FFFA TCS TCD PHY PEA $FFFF PEA $0000 JSL L150B28 PLA STA $01 STZ L054FB1 LDA $0A STA $0E LDA $09 STA $0D LDA $07 TCD TSC CLC ADC #$000C TCS RTL L17188C PHD TSC CLC ADC #$FFF8 TCS TCD PHY PHY LDY #$00E1 LDA [$0E],Y PHA DEY DEY LDA [$0E],Y PHA LDA L055035 LDX L055037 PHX PHA JSL L072B9F PLA STA $01 PLX STX $03 PHY PEI $03 PEI $01 JSL L0971E9 PLA STA $12 PEI $03 PEI $01 JSL L07185A LDA $0C STA $10 LDA $0B STA $0F LDA $09 TCD TSC CLC ADC #$000E TCS RTL L1718D9 ENT PHD TSC CLC ADC #$FE5E TCS ADC #$00AB TCD JSL L17000D PHY PHY PEA $0000 PEA $0400 LDA L054FBF PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $DB PLX STX $DD LDY #$0002 LDA [$DB],Y TAX LDA [$DB] STA $F3 STX $F5 LDA #$03E8 STA [$F3] LDA #$0001 STA $69 LDY #$0002 LDA [$DB],Y TAX LDA [$DB] STA $6B STX $6D TDC CLC ADC #$0069 PEA $0000 PHA PEA $2027 JSL GSOS2 STAL L05565D LDY #$0002 LDA [$DB],Y TAX LDA [$DB] CLC ADC #$0002 BCC L17194C INX L17194C STA $65 STX $67 LDY #$0002 LDA [$DB],Y TAX LDA [$DB] STA $F3 STX $F5 LDA [$65] INC INC STA [$F3] LDA #$2F31 STA [$65] PHY PHY PEA $0000 TDC CLC ADC #$FF55 PHA PEI $DD PEI $DB JSL L072CD4 PEA $0000 JSL L0730BE PLA STA L055265 PLA STA L055267 PEI $DD PEI $DB JSL L07185A LDA #$0001 STAL L050032 PEA ^L050032 PEA L050032 PEA $200F ; GetSysPrefs JSL GSOS2 STAL L05565D LDA #$0001 STA $55 LDA #$4000 ORAL L050034 STA $57 TDC CLC ADC #$0055 PEA $0000 PHA PEA $200C JSL GSOS2 STAL L05565D LDA L055271 PHA JSL L150B70 PHY PHY PEA $801E JSL L150BAC PLA STA L05526D PLA STA L05526F PHY PHY PEA $801F JSL L150BAC PLA STA L055269 PLA STA L05526B STZ $FC STZ L055281 STZ L05502F PHY PHY JSL L15035F JSL L151460 LDA #$8003 LDX #$0110 STA L05501B STX L05501D LDAL L040243+2 * TAX stal L052528 LDAL L040243 STAL L052526 * TXA * STAL L052528 PHY PHY PEA $0000 TDC CLC ADC #$FF55 PHA PEA $0001 JSL L073002 JSL L0735A8 PLA STA L055035 PLA STA L055037 STZ $DF STZ $E1 STZ $E3 STZ $E5 JSL L1701A6 JSL L170455 JSL L170543 JSL L170C28 JSL L1711E1 JSL L170FBA JSL L0B8B39 JSL L17173F PHY JSL L150BA6 PLA AND #$7FFF SEC SBC #$0306 ; System 5 is 0, System 6 is not STA L0551FD LDA #$FFFF CMP L0551FD BNE L171A86 STZ L0551FD L171A86 LDA L0551FD SEC SBC #$0000 BPL L171A99 PEA $0048 JSL L0727E0 BRL L171FC0 L171A99 PHY JSL L095FB4 PLA LSR BCC L171ABD JSL L15059E PHY PHY JSL L15042E LDA #$7D00 LDX #$0000 JSL L033477 BVS L171ABB EOR #$8000 L171ABB BMI L171AC7 L171ABD PEA $0035 JSL L0727E0 BRL L171FC0 L171AC7 PHY PHY PEA ^L040247 PEA L040247 PEA $0001 JSL L0730BE PLA STA L055261 PLA STA L055263 STZ $EF STZ $F1 STZ $EB STZ $ED STZ $D7 PHY PHY PEA $0000 PEA $0001 LDA L054FBD PHA PEA $0000 PEA $0000 PEA $0000 JSL L1513F4 PLA STA $D3 PLX STX $D5 LDAL L05565D BEQ L171B10 BRL L171B9E L171B10 PEA $0002 PEA $0001 PEI $D5 PEI $D3 JSL L150F3B LDAL L05565D BNE L171B9E PHY PHY LDY #$0002 LDA [$D3],Y TAX LDA [$D3] CLC ADC #$0008 BCC L171B35 INX L171B35 PHX PHA JSL L0735A8 PLA STA $E7 PLX STX $E9 LDY #$0002 LDA [$D3],Y TAX LDA [$D3] CLC ADC #$0006 BCC L171B50 INX L171B50 STA $F3 STX $F5 LDA [$F3] STA $D7 PEA $0003 PEA $0001 PEA $0000 PEA $0000 JSL L150F3B PEI $E9 PEI $E7 PEA $0000 PHD JSL L1717D3 PEI $E9 PEI $E7 TDC CLC ADC #$00EB PEA $0000 PHA TDC CLC ADC #$00EF PEA $0000 PHA JSL L07869F PEI $D5 PEI $D3 JSL L07185A PEI $E9 PEI $E7 JSL L07185A L171B9E LDA #$0001 STA L055255 PHY PHY PEA ^L04024A PEA L04024A PEA $0001 JSL L0730BE PLA STA $DF PLX STX $E1 PHY PEA $0000 PHD JSL L17188C PLA LSR BCC L171BC9 BRL L171D34 L171BC9 LDA $EB ORA $ED BEQ L171BF7 PEI $E1 PEI $DF JSL L07185A PHY PHY PEI $ED PEI $EB JSL L070525 PLA STA $DF PLX STX $E1 PHY PEA $0000 PHD JSL L17188C PLA LSR BCC L171BF7 BRL L171D34 L171BF7 PEI $E1 PEI $DF JSL L07185A PHY PHY PEA ^L040254 PEA L040254 PEA $0001 JSL L0730BE PLA STA $DF PLX STX $E1 PHY PEA $0000 PHD JSL L17188C PLA LSR BCC L171C24 BRL L171D34 L171C24 PEI $E1 PEI $DF JSL L07185A PHY PHY PEA $0000 TDC CLC ADC #$FF55 PHA PEA $0002 JSL L073002 PEA $0001 JSL L0730BE PLA STA $DF PLX STX $E1 PHY PEA $0000 PHD JSL L17188C PLA LSR BCC L171C5B BRL L171D34 L171C5B PEI $E1 PEI $DF JSL L07185A PHY PHY PEA ^L040257 PEA L040257 PEA $0001 JSL L0730BE PLA STA $DF PLX STX $E1 PHY PEA $0000 PHD JSL L17188C PLA LSR BCC L171C88 BRL L171D34 L171C88 PEI $E1 PEI $DF PEI $E5 PEI $E3 JSL L071825 STZ $DF STZ $E1 STZ $E3 STZ $E5 PHY PEA $0006 PEA $0055 PEA $0000 PEA $0001 PEA $0000 TDC CLC ADC #$FF55 PHA LDA L055035 LDX L055037 PHX PHA JSL L072CD4 TDC CLC ADC #$00E7 PEA $0000 PHA JSL L09B294 PLA STA $D9 LDA $D9 BEQ L171D20 PEI $E9 PEI $E7 TDC CLC ADC #$00DF PEA $0000 PHA TDC CLC ADC #$00E3 PEA $0000 PHA JSL L07869F PEI $E9 PEI $E7 JSL L07185A PHY PEI $E5 PEI $E3 LDA L055035 LDX L055037 PHX PHA JSL L071330 PLA LSR BCC L171D1E LDA #$0001 STA L055281 PHY PEA $0000 PHD JSL L17188C PLA LSR BCS L171D34 BRA L171D20 L171D1E STZ $D9 L171D20 LDA $D9 EOR #$0001 BNE L171D2A BRL L171C88 L171D2A PEA $000A JSL L0727E0 BRL L171FC0 L171D34 STZ L055255 LDA #$0001 STA L055281 PHY PHY LDAL L053AD3 PHA LDAL L053AD1 PHA PEA $0000 PEA $0001 JSL L07B8EA PLA STA L05527D PLA STA L05527F LDA #$0001 LDX #$0000 STA L055279 STX L05527B STZ L0551CF STZ L0551D1 STZ L0551D3 STZ L0551D5 LDAL L04025A SEP #$20 STAL L052506 REP #$20 LDA #$002C STA L055277 STZ L055201 STZ L055203 STZ L0551FF STZ L0551B1 STZ L0551B3 STZ L0551DB PHY PHY LDA L055043 LDX L055045 PHX PHA JSL L070525 PLA STA L055035 PLA STA L055037 PHY PHY LDA L05503F LDX L055041 PHX PHA JSL L070525 PLA STA L055031 PLA STA L055033 LDA L055039 LDX L05503B STA L05502B STX L05502D LDA L05503D STA L05502F LDA L05525F STA L055275 LDA L05525D STA L055273 LDA #$0002 STA $75 LDA #$0001 LDX #$0000 STA $7B STX $7D LDA #$0006 STA $A1 PHY PHY PEA $0000 PEA $0000 JSL L078841 PLA STA $CD PLX STX $CF LDAL L053B99 ORAL L053B9B BEQ L171E14 LDA #$0001 L171E14 STA $D1 LDA $D1 BEQ L171E83 STZ $D7 LDA #$0001 STA $75 LDAL L053B9B TAX LDAL L053B99 STA $77 STX $79 LDA #$0000 STAL L053B99 STAL L053B9B LDA #$0001 STA L05504D JSL L078CA4 PHY PHY PEA ^L053B9D PEA L053B9D JSL L0735A8 PLA STA $E7 PLX STX $E9 PEI $ED PEI $EB PEI $F1 PEI $EF JSL L071825 PEI $E9 PEI $E7 TDC CLC ADC #$00EB PEA $0000 PHA TDC CLC ADC #$00EF PEA $0000 PHA JSL L07869F PEI $E9 PEI $E7 JSL L07185A L171E83 LDA $EF ORA $F1 BEQ L171EC6 PHY PEI $F1 PEI $EF LDA L055035 LDX L055037 PHX PHA JSL L071330 PLA LSR BCS L171EC6 PHY PHY PEI $ED PEI $EB PEI $F1 PEI $EF JSL L072B9F PLA STA $E7 PLX STX $E9 PHY PEI $E9 PEI $E7 JSL L0971E9 PLA STA $73 PEI $E9 PEI $E7 JSL L07185A L171EC6 PHY TDC CLC ADC #$0075 PEA $0000 PHA PEA $0000 JSL L095416 PLA LSR BCS L171F0C LDA #$0002 STA $75 LDA #$0001 LDX #$0000 STA $7B STX $7D LDA L05502B LDX L05502D STA $CD STX $CF PHY TDC CLC ADC #$0075 PEA $0000 PHA PEA $0000 JSL L095416 PLA LSR BCS L171F0C BRL L171FC0 L171F0C JSL L09999B STZ L055135 STZ L055139 PEA ^L053259 PEA L053259 JSL L085216 LDA L0550ED LDX L0550EF PHX PHA JSL L15102F LDA L0550ED LDX L0550EF PHX PHA JSL L151131 JSL L083E9E PEA ^L053259 PEA L053259 JSL L087BAE PEA ^L053259 PEA L053259 JSL L1511B0 LDA $D7 DEC BNE L171F6E PHY PEA $00C2 PEA $0000 PEA $0000 JSL L1604F0 PLA STA $71 LDA #$0001 STA L05524F BRA L171FBB L171F6E PEA $0000 PHD JSL L171861 LDA #$001A STA $63 LDA $D1 BEQ L171F84 LDA #$001B STA $63 L171F84 PEI $63 JSL L0998B0 PEA $0000 PHD JSL L171861 PEA $0001 JSL L0998B0 PEA $0000 PHD JSL L171861 PEA $0002 JSL L0998B0 PEA $0000 PHD JSL L171861 PEA $0003 JSL L0998B0 JSL L096253 L171FBB LDA #$0001 STA $FC L171FC0 PEI $E1 PEI $DF PEI $E5 PEI $E3 JSL L071825 PEI $ED PEI $EB PEI $F1 PEI $EF JSL L071825 PHY JSL L0727BF PLA STA $61 TSC CLC ADC #$01A2 TCS PLD RTL