* * HypercardGS * segment: $21 HPrintHF * * (k) 2015, Brutal Deluxe Software * mx %00 rel dsk HPrintHF.l lst off *--------------------------------------- use HPrintHF.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 *--------------------------------------- L210000 ENT DW $0000 DW $044C DW $0000 ADRL L21001A ADRL L21001E ADRL L21002C ADRL L21003A ADRL L210048 L21001A DW $0000 DW $0000 L21001E DW $0000 DW $0009 DW $0000 DW $0000 DW $0000 ADRL L210056 L21002C DW $0000 DW $000D DW $0000 DW $0000 DW $0000 ADRL L21005E L21003A DW $0000 DW $0008 DW $0000 DW $0000 DW $0000 ADRL L210066 L210048 DW $0000 DW $0015 DW $0000 DW $0000 DW $0000 ADRL L210076 L210056 STR 09' Date' L21005E STR 0D' Time' L210066 STR 08' Page Number' L210076 STR 15' Stack Name' L210083 DB $0B DB $00 DB $0C DB $00 DB $00 DB $00 DB $01 DB $3F DB $FF DB $F9 DB $38 DB $00 DB $39 DB $39 DB $FF DB $39 DB $39 DB $FF DB $19 DB $39 DB $FF DB $19 DB $38 DB $00 DB $19 DB $3C DB $AA DB $99 DB $3C DB $00 DB $19 DB $3F DB $FF DB $F9 DB $00 DB $00 DB $01 L2100A8 PHD TSC CLC ADC #$FFF6 TCS TCD JSL L093F21 LDA L0551E9 STA $05 PHY PHY PEA $8001 JSL L1516BD PLA STA $01 PLX STX $03 LDAL L05565D BNE L2100D3 LDA #$8001 STA $05 L2100D3 LDA $05 DEC BNE L210106 PHY PHY PEA $0001 JSL L1516BD PLA STA $01 PLX STX $03 PHY LDY #$0002 LDA [$01],Y TAX LDA [$01] CLC ADC #$0002 BCC L2100F7 INX L2100F7 PHX PHA JSL L1500E3 PLA LSR BCS L210106 LDA #$FFFF STA $05 L210106 LDA $05 STA $10 PLY PLY PLY PLY PLY PLD RTL L210111 PHD TSC CLC ADC #$FDF2 TCS ADC #$011D TCD PEI $F8 PEI $F6 JSL L15058C TDC CLC ADC #$00FA PEA $0000 PHA PEA $0001 PEI $F8 PEI $F6 JSL L15168D LDY #$0002 LDA [$F6],Y TAX LDA [$F6] TXY LDX #$FFE5 STA $00,X TYA STA $02,X LDX #$FFE5 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0020 BCC L210159 INX L210159 STA $ED STX $EF LDA [$ED] STA $E9 PEA $0000 TDC CLC ADC #$FFE9 PHA PEA $0000 TDC CLC ADC #$FEE3 PHA PHY PHY PEI $F8 PEI $F6 JSL L151379 PHY PEI $F8 PEI $F6 JSL L150807 JSL L160B1E PEA $0100 JSL L0313BE LDA #$00FF LDX #$FFE9 AND $00,X LDX #$FFE3 STA $00,X LDX #$FFE3 LDA $00,X SEC SBC #$0001 BVS L2101AC EOR #$8000 L2101AC BPL L2101FD LDA #$0001 STA $EB L2101B3 LDA $E9 CMP $EB BNE L2101BB BRA L2101F0 L2101BB LDA $EB CLC ADC #$FFE9 TAX LDA #$00FF AND $00,X CMP $FA BNE L2101F0 PEA $0000 TDC CLC ADC #$FFE9 PHA PEI $EB PEA $0001 JSL L150A64 LDA $EB SEC SBC $E9 BVS L2101E7 EOR #$8000 L2101E7 BMI L2101EE LDA $E9 DEC STA $E9 L2101EE BRA L2101FD L2101F0 LDA $EB LDX #$FFE3 CMP $00,X BEQ L2101FD INC $EB BRA L2101B3 L2101FD PEA $0000 TDC CLC ADC #$FFEA PHA LDA #$00FF LDX #$FFE9 AND $00,X PHA PEI $F8 PEI $F6 JSL L151651 PEI $E9 PEI $E9 PEI $F8 PEI $F6 JSL L1512D1 LDY #$0002 LDA [$F6],Y TAX LDA [$F6] CLC ADC #$0010 BCC L210232 INX L210232 PHX PHA JSL L150B34 LDA $F4 STA $FA LDA $F3 STA $F9 LDA $F1 TCD TSC CLC ADC #$0216 TCS RTL L21024A PHD TSC CLC ADC #$FFF4 TCS TCD PEI $18 PEI $16 PEI $14 PEI $12 TDC CLC ADC #$0001 PEA $0000 PHA JSL L071937 LDA $05 INC STA $05 LDA $07 INC INC STA $07 PEI $1C PEI $1A TDC CLC ADC #$0001 PEA $0000 PHA PEA $0008 JSL L0313BE LDA $10 STA $18 LDA $0F STA $17 LDA $0D TCD TSC CLC ADC #$0016 TCS RTL L210298 PHD TSC CLC ADC #$FFE0 TCS TCD LDA $2C LDX $2E STA $19 STX $1B LDY #$0004 LDA [$26],Y SEC SBC $2C STA $2C PEA $0002 JSL L150BD6 PEA $3333 JSL L081DD8 TDC CLC ADC #$0011 PEA $0000 PHA PEI $28 PEI $26 PEA $0008 JSL L0313BE TDC CLC ADC #$0011 PEA $0000 PHA PEA $FFFE PEA $FFFF JSL L151005 TDC CLC ADC #$0009 PEA $0000 PHA TDC CLC ADC #$0011 PEA $0000 PHA PEA $0008 JSL L0313BE TDC CLC ADC #$0009 PEA $0000 PHA JSL L151418 L21030D LDA $26 LDX $28 STA $05 STX $07 PHY LDA $2C CLC ADC $19 PHA LDA #$0009 CLC ADC [$05] PHA LDA [$05] CLC ADC $2A PHA JSL L071A1B PLA STA $19 LDA $26 LDX $28 STA $01 STX $03 TDC CLC ADC #$0011 PEA $0000 PHA LDY #$0002 LDA [$01],Y DEC DEC PHA LDA [$01] DEC PHA LDY #$0006 LDA [$01],Y INC INC PHA LDA $19 INC PHA JSL L15100B PHY TDC CLC ADC #$0009 PEA $0000 PHA TDC CLC ADC #$0011 PEA $0000 PHA JSL L1501A9 PLA LSR BCS L2103AB TDC CLC ADC #$0009 PEA $0000 PHA JSL L151418 TDC CLC ADC #$0011 PEA $0000 PHA JSL L151418 TDC CLC ADC #$0009 PEA $0000 PHA TDC CLC ADC #$0011 PEA $0000 PHA PEA $0008 JSL L0313BE L2103AB TDC CLC ADC #$0019 PEA $0000 PHA JSL L150801 PHY PEA $0000 JSL L15164B PLA EOR #$0001 BNE L2103C9 BRL L21030D L2103C9 TDC CLC ADC #$0009 PEA $0000 PHA JSL L151418 TDC CLC ADC #$0011 PEA $0000 PHA PEA $0002 PEA $0001 JSL L151005 PEA $0000 JSL L150BD6 PEA $0000 JSL L081DD8 PHY PEI $28 PEI $26 TDC CLC ADC #$0011 PEA $0000 PHA JSL L1501A9 PLA EOR #$0001 STA $30 PEI $28 PEI $26 TDC CLC ADC #$0011 PEA $0000 PHA PEA $0008 JSL L0313BE LDA $24 STA $2E LDA $23 STA $2D LDA $21 TCD TSC CLC ADC #$002C TCS RTL L210435 PHD TSC CLC ADC #$FFF8 TCS TCD PEA $0000 PEI $0E JSL L21114A PEA $0000 PEI $0E JSL L210BD3 LDY #$00ED LDA [$0E],Y BNE L210495 PHY PHY LDY #$00D7 LDA [$0E],Y PHA DEY DEY LDA [$0E],Y PHA PEA $0006 JSL L160B2C PLA STA $01 PLX STX $03 PEI $03 PEI $01 JSL L1516D5 LDY #$0002 LDA [$01],Y TAX LDA [$01] CLC ADC #$0010 BCC L210487 INX L210487 PHX PHA JSL L150B34 LDA #$0001 LDY #$00ED STA [$0E],Y L210495 LDA $0C STA $10 LDA $0B STA $0F LDA $09 TCD TSC CLC ADC #$000E TCS RTL L2104A7 PHD TSC CLC ADC #$FFFA TCS TCD LDA $10 SEC SBC #$0043 BPL L2104BA BRL L2105BD L2104BA CMP #$003D BMI L2104C2 BRL L2105BD L2104C2 SEC SBC #$0000 BEQ L2104EB SEC SBC #$0013 BEQ L21053F DEC DEC BEQ L2104EB SEC SBC #$000B BEQ L2104EB SEC SBC #$0013 BEQ L21053F DEC DEC BEQ L2104EB SEC SBC #$0007 BEQ L2104EB BRL L2105BD L2104EB LDY #$00ED LDA [$0C],Y BEQ L210511 PEI $10 PHY PHY LDY #$00D7 LDA [$0C],Y PHA DEY DEY LDA [$0C],Y PHA PEA $0006 JSL L160B2C PEA $0001 JSL L160B3A BRA L210534 L210511 LDA #$00EF CLC ADC $0C LDX $0E BCC L21051C INX L21051C STA $03 STX $05 PHY PEI $10 PEA $0000 PEI $0C JSL L211320 LDY #$00EF PLA ORA [$0C],Y STA [$03] L210534 PEA $0000 PEI $0C JSL L2105CF BRA L2105BD L21053F PHY JSL L2100A8 PLA STA $01 LDA $01 BNE L210572 PEA $0000 PEI $0C JSL L210435 PEA $0056 PHY PHY LDY #$00D7 LDA [$0C],Y PHA DEY DEY LDA [$0C],Y PHA PEA $0006 JSL L160B2C PEA $0001 JSL L160B3A L210572 LDX #$0000 LDA $01 DEC BNE L21057B INX L21057B PHX LDX #$0000 LDA #$8001 CMP $01 BNE L210587 INX L210587 TXA ORA $01,S PLX LSR BCC L2105BB PEA $0000 PEI $0C JSL L21062D LDA #$00EF CLC ADC $0C LDX $0E BCC L2105A2 INX L2105A2 STA $03 STX $05 PHY PEA $0056 PEA $0000 PEI $0C JSL L211320 LDY #$00EF PLA ORA [$0C],Y STA [$03] L2105BB BRA L2105BD L2105BD LDA $0A STA $10 LDA $09 STA $0F LDA $07 TCD TSC CLC ADC #$000E TCS RTL L2105CF PHD TSC CLC ADC #$FFF8 TCS TCD PHY JSL L2100A8 PLA STA $01 LDA #$00FF STA $03 LDA L055051 BNE L210607 LDX #$0000 LDA $01 DEC BNE L2105F2 INX L2105F2 PHX LDX #$0000 LDA #$8001 CMP $01 BNE L2105FE INX L2105FE TXA ORA $01,S PLX LSR BCC L210607 STZ $03 L210607 PEI $03 LDY #$00D7 LDA [$0E],Y PHA DEY DEY LDA [$0E],Y PHA PEA $0003 JSL L072E7C LDA $0C STA $10 LDA $0B STA $0F LDA $09 TCD TSC CLC ADC #$000E TCS RTL L21062D PHD TSC CLC ADC #$FFF8 TCS TCD LDY #$00ED LDA [$0E],Y BEQ L21067B PHY PHY LDY #$00D7 LDA [$0E],Y PHA DEY DEY LDA [$0E],Y PHA PEA $0006 JSL L160B2C PLA STA $01 PLX STX $03 PEI $03 PEI $01 JSL L1516E7 LDY #$0002 LDA [$01],Y TAX LDA [$01] CLC ADC #$0010 BCC L21066D INX L21066D PHX PHA JSL L150B34 LDA #$0000 LDY #$00ED STA [$0E],Y L21067B LDA $0C STA $10 LDA $0B STA $0F LDA $09 TCD TSC CLC ADC #$000E TCS RTL L21068D PHD TSC CLC ADC #$FFE8 TCS TCD LDA #$008D CLC ADC $1E LDX $20 BCC L2106A0 INX L2106A0 PHX PHA JSL L15123D LDA #$009D CLC ADC $1E LDX $20 BCC L2106B1 INX L2106B1 STA $09 STX $0B LDA #$008D CLC ADC $1E LDX $20 BCC L2106C0 INX L2106C0 PHX PHA LDY #$0006 LDA [$09],Y SEC SBC #$0015 PHA LDY #$0004 LDA [$09],Y SEC SBC #$000A PHA LDY #$0006 LDA [$09],Y PHA LDY #$0004 LDA [$09],Y PHA JSL L15100B TDC CLC ADC #$000D PEA $0000 PHA LDA #$009D CLC ADC $1E LDX $20 BCC L2106FA INX L2106FA PHX PHA PEA $0008 JSL L0313BE TDC CLC ADC #$000D PEA $0000 PHA PEA $FFFE PEA $FFFF JSL L151005 TDC CLC ADC #$000D PEA $0000 PHA JSL L151418 LDA #$009D CLC ADC $1E LDX $20 BCC L21072E INX L21072E STA $05 STX $07 TDC CLC ADC #$000D PEA $0000 PHA LDY #$0002 LDA [$05],Y DEC DEC PHA LDY #$0004 LDA [$05],Y INC PHA LDY #$0006 LDA [$05],Y INC INC PHA LDA #$0032 CLC ADC [$05] INC INC PHA JSL L15100B TDC CLC ADC #$000D PEA $0000 PHA JSL L15123D PEA $0000 PEA $0000 PEA $0000 PEI $1E JSL L21102C PEA $0000 PEI $1E JSL L211221 LDA #$008D CLC ADC $1E LDX $20 BCC L21078F INX L21078F PHX PHA JSL L15123D LDA #$008D CLC ADC $1E LDX $20 BCC L2107A0 INX L2107A0 STA $01 STX $03 PEA ^L210083 PEA L210083 LDY #$0002 LDA [$01],Y PHA LDA [$01] PHA JSL L087218 LDA $1C STA $20 LDA $1B STA $1F LDA $19 TCD TSC CLC ADC #$001E TCS RTL L2107C9 PHD TSC CLC ADC #$FFA2 TCS TCD STZ $68 PHY PHY JSL L1516CF PLA STA $4F PLX STX $51 PHY PHY JSL L150BB2 PLA STA $4B PLX STX $4D JSL L150659 LDA #$009D CLC ADC $64 LDX $66 BCC L2107FA INX L2107FA PHX PHA JSL L151418 LDA #$008D CLC ADC $64 LDX $66 BCC L21080B INX L21080B PHX PHA JSL L151418 PEI $4D PEI $4B JSL L15166F PEI $4D PEI $4B JSL L1516C9 PHY LDA #$00B5 CLC ADC $64 LDX $66 BCC L21082D INX L21082D PHX PHA LDA #$0095 CLC ADC $64 LDX $66 BCC L21083A INX L21083A PHX PHA JSL L1512CB PLA LSR BCC L210866 PEA $0004 JSL L0724F7 PHY LDY #$00B7 LDA [$64],Y PHA DEY DEY LDA [$64],Y PHA PEA $0000 PEI $64 JSL L2118BB PLA STA $68 BRL L210BB1 L210866 PEA $0000 PEI $64 JSL L21114A PEA $0000 PEI $64 JSL L210BD3 PEA $0002 JSL L150BD6 PEA ^L054F6B PEA L054F6B JSL L151198 PEA $0002 PEA $0001 JSL L151083 LDY #$00B7 LDA [$64],Y TAX DEY DEY LDA [$64],Y STA $43 STX $45 LDA $43 LDX $45 STA $47 STX $49 TDC CLC ADC #$0033 PEA $0000 PHA JSL L08273B L2108B6 LDA $49 BPL L2108BC STZ $49 L2108BC LDA $47 BPL L2108C2 STZ $47 L2108C2 LDA #$FFFE AND $49 STA $49 PHY PHY PEI $49 PEI $47 LDA #$009D CLC ADC $64 LDX $66 BCC L2108DA INX L2108DA PHX PHA JSL L1505B6 PLA STA $47 PLX STX $49 PHY TDC CLC ADC #$0043 PEA $0000 PHA TDC CLC ADC #$0047 PEA $0000 PHA JSL L150B2E PLA LSR BCS L21097B TDC CLC ADC #$0033 PEA $0000 PHA PEA $0000 TDC CLC ADC #$0001 PHA LDY #$00B7 LDA [$64],Y PHA DEY DEY LDA [$64],Y PHA PEI $49 PEI $47 JSL L21024A PEA $0008 JSL L0313BE TDC CLC ADC #$003B PEA $0000 PHA PEA $0000 TDC CLC ADC #$0001 PHA LDY #$00B7 LDA [$64],Y PHA DEY DEY LDA [$64],Y PHA PEI $45 PEI $43 JSL L21024A PEA $0008 JSL L0313BE TDC CLC ADC #$003B PEA $0000 PHA JSL L151418 TDC CLC ADC #$0033 PEA $0000 PHA JSL L151418 LDA $47 LDX $49 STA $43 STX $45 L21097B TDC CLC ADC #$0047 PEA $0000 PHA JSL L150801 PHY PEA $0000 JSL L15164B PLA EOR #$0001 BNE L210999 BRL L2108B6 L210999 PEA $0000 JSL L081DD8 PEA $0000 JSL L150BD6 LDA $39 SEC SBC $35 SEC SBC #$0002 BEQ L2109B9 BVS L2109B7 EOR #$8000 L2109B7 BMI L2109BE L2109B9 LDA #$0000 BRA L2109C1 L2109BE LDA #$0001 L2109C1 PHA LDA $37 SEC SBC $33 SEC SBC #$0001 BEQ L2109D4 BVS L2109D2 EOR #$8000 L2109D2 BMI L2109D9 L2109D4 LDA #$0000 BRA L2109DC L2109D9 LDA #$0001 L2109DC AND $01,S PLX STA $57 LDA $57 BNE L2109E8 BRL L210B9F L2109E8 LDA #$0095 CLC ADC $64 LDX $66 BCC L2109F3 INX L2109F3 PHX PHA TDC CLC ADC #$0033 PEA $0000 PHA PEA $0008 JSL L0313BE LDA #$0001 LDY #$00EB STA [$64],Y LDY #$00D7 LDA [$64],Y TAX DEY DEY LDA [$64],Y CLC ADC #$0010 BCC L210A1E INX L210A1E STA $0D STX $0F TDC CLC ADC #$003B PEA $0000 PHA PEA $0000 PEA $0000 LDY #$0006 LDA [$0D],Y PHA LDY #$0004 LDA [$0D],Y PHA JSL L15100B PHY PHY JSL L150BB2 PLA STA $27 PLX STX $29 JSL L150659 TDC CLC ADC #$003B PEA $0000 PHA JSL L151418 PEI $29 PEI $27 JSL L15166F TDC CLC ADC #$002B PEA $0000 PHA LDA #$0095 CLC ADC $64 LDX $66 BCC L210A7A INX L210A7A PHX PHA PEA $0008 JSL L0313BE LDA #$009D CLC ADC $64 LDX $66 BCC L210A8E INX L210A8E STA $09 STX $0B TDC CLC ADC #$002B PEA $0000 PHA LDY #$0002 LDA [$09],Y EOR #$FFFF INC PHA LDA [$09] EOR #$FFFF INC PHA JSL L1501AF TDC CLC ADC #$003B PEA $0000 PHA PEA $0000 PEA $0000 LDA $31 SEC SBC $2D PHA LDA $2F SEC SBC $2B PHA JSL L15100B LDY #$00FA LDA [$64],Y BEQ L210AEE LDA L05532F LDX L055331 STA $5B STX $5D LDY #$0002 LDA [$5B],Y TAX LDA [$5B] STA $53 STX $55 BRA L210B04 L210AEE LDA L05532B LDX L05532D STA $5B STX $5D LDY #$0002 LDA [$5B],Y TAX LDA [$5B] STA $53 STX $55 L210B04 LDA $53 LDX $55 STA $11 STX $13 LDA $53 LDX $55 STA $15 STX $17 TDC CLC ADC #$002B STA $19 STZ $1B TDC CLC ADC #$003B STA $1D STZ $1F STZ $21 LDA $27 LDX $29 STA $23 STX $25 PEI $55 PEI $53 JSL L151131 LDA #$00B9 CLC ADC $64 LDX $66 BCC L210B43 INX L210B43 STA $5B STX $5D PHY PHY TDC CLC ADC #$003B PEA $0000 PHA JSL L1502FA PLA STA [$5B] PLA LDY #$0002 STA [$5B],Y TDC CLC ADC #$0011 PEA $0000 PHA JSL L150476 JSL L151400 PEI $29 PEI $27 JSL L151669 TDC CLC ADC #$002B PEA $0000 PHA JSL L15123D LDY #$00D7 LDA [$64],Y PHA DEY DEY LDA [$64],Y PHA JSL L151131 PEA $0000 PEI $64 JSL L21062D BRA L210BB1 L210B9F TDC CLC ADC #$0033 PEA $0000 PHA PEA $0000 PEI $64 JSL L21102C L210BB1 PEI $51 PEI $4F JSL L1516C9 PEI $4D PEI $4B JSL L151669 LDA $62 STA $66 LDA $61 STA $65 LDA $5F TCD TSC CLC ADC #$0064 TCS RTL L210BD3 PHD TSC CLC ADC #$FFF0 TCS TCD LDY #$00EB LDA [$16],Y BNE L210BE5 BRL L210CA6 L210BE5 LDA #$0000 LDY #$00EB STA [$16],Y PHY LDA #$0095 CLC ADC $16 LDX $18 BCC L210BF9 INX L210BF9 PHX PHA LDA #$009D CLC ADC $16 LDX $18 BCC L210C06 INX L210C06 PHX PHA TDC CLC ADC #$0005 PEA $0000 PHA JSL L150B3A PLA LSR BCC L210C2B TDC CLC ADC #$0005 PEA $0000 PHA PEA $0000 PEI $16 JSL L21102C L210C2B PHY LDA #$0095 CLC ADC $16 LDX $18 BCC L210C37 INX L210C37 PHX PHA LDA #$008D CLC ADC $16 LDX $18 BCC L210C44 INX L210C44 PHX PHA TDC CLC ADC #$0005 PEA $0000 PHA JSL L150B3A PLA LSR BCC L210C86 TDC CLC ADC #$0005 PEA $0000 PHA JSL L15123D LDA #$008D CLC ADC $16 LDX $18 BCC L210C6F INX L210C6F STA $01 STX $03 PEA ^L210083 PEA L210083 LDY #$0002 LDA [$01],Y PHA LDA [$01] PHA JSL L087218 L210C86 LDA #$0095 CLC ADC $16 LDX $18 BCC L210C91 INX L210C91 PHX PHA JSL L08273B LDY #$00BB LDA [$16],Y PHA DEY DEY LDA [$16],Y PHA JSL L1502F4 L210CA6 LDA $14 STA $18 LDA $13 STA $17 LDA $11 TCD TSC CLC ADC #$0016 TCS RTL L210CB8 PHD TSC CLC ADC #$FF76 TCS TCD TDC CLC ADC #$0011 PEA $0000 PHA PEI $A4 PEI $A2 PEA $0020 JSL L0313BE TDC CLC ADC #$0009 PEA $0000 PHA PEI $9C PEI $9A PEA $0008 JSL L0313BE TDC CLC ADC #$0001 PEA $0000 PHA PEI $98 PEI $96 PEA $0008 JSL L0313BE PHY JSL L150BDC PLA STA $81 TDC CLC ADC #$007D PEA $0000 PHA JSL L15107D TDC CLC ADC #$0031 PEA $0000 PHA JSL L15119E PEA $0002 JSL L150BD6 TDC CLC ADC #$0011 PEA $0000 PHA JSL L151198 TDC CLC ADC #$0069 PEA $0000 PHA TDC CLC ADC #$0009 PEA $0000 PHA PEA $0008 JSL L0313BE TDC CLC ADC #$0069 PEA $0000 PHA JSL L151418 TDC CLC ADC #$0059 PEA $0000 PHA TDC CLC ADC #$0009 PEA $0000 PHA PEA $0008 JSL L0313BE TDC CLC ADC #$0051 PEA $0000 PHA LDA #$0095 CLC ADC $90 LDX $92 BCC L210D85 INX L210D85 PHX PHA PEA $0008 JSL L0313BE LDA $9E LDX $A0 STA $79 STX $7B LDA $9E LDX $A0 STA $71 STX $73 LDA $A0 SEC SBC $5B STA $A0 LDA $9E SEC SBC $59 STA $9E LDA $0F SEC SBC $0B STA $85 LDA $0D SEC SBC $09 STA $83 LDA $07 SEC SBC $03 STA $87 LDA $85 SEC SBC $87 STA $85 LDA $05 SEC SBC $01 STA $87 LDA $83 SEC SBC $87 STA $83 PHY PEA $0000 PEI $85 JSL L072FA6 PLA STA $85 PHY PEA $0000 PEI $83 JSL L072FA6 PLA STA $83 TDC CLC ADC #$0001 PEA $0000 PHA LDA $85 EOR #$FFFF INC PHA LDA $83 EOR #$FFFF INC PHA JSL L151005 L210E0B PHY PEA $0000 PEI $73 JSL L072FA6 PLA STA $73 PHY PEA $0000 PEI $71 JSL L072FA6 PLA STA $71 PHY PHY PEI $73 PEI $71 TDC CLC ADC #$0001 PEA $0000 PHA JSL L1505B6 PLA STA $71 PLX STX $73 LDA $73 SEC SBC $7B STA $85 LDA $85 BMI L210E5D BEQ L210E5D PHY PEI $85 LDA $07 SEC SBC $0F PHA JSL L072FD5 PLA STA $85 BRA L210E6D L210E5D PHY PEI $85 LDA $03 SEC SBC $0B PHA JSL L072FA6 PLA STA $85 L210E6D LDA $94 BEQ L210E85 PEI $85 PEI $85 PEI $94 JSL L150318 PLX PLX STA $87 PLA SEC SBC $87 STA $85 L210E85 LDA $71 SEC SBC $79 STA $83 LDA $83 BMI L210EA4 BEQ L210EA4 PHY PEI $83 LDA $05 SEC SBC $0D PHA JSL L072FD5 PLA STA $83 BRA L210EB4 L210EA4 PHY PEI $83 LDA $01 SEC SBC $09 PHA JSL L072FA6 PLA STA $83 L210EB4 LDA $94 BEQ L210ED6 PEI $83 PEI $83 PEI $94 PEA $0002 JSL L1500F5 PLX PLX PHA JSL L150318 PLX PLX STA $87 PLA SEC SBC $87 STA $83 L210ED6 TDC CLC ADC #$0009 PEA $0000 PHA PEI $85 PEI $83 JSL L1501AF PHY TDC CLC ADC #$0069 PEA $0000 PHA TDC CLC ADC #$0009 PEA $0000 PHA JSL L1501A9 PLA LSR BCC L210F05 BRL L210FBE L210F05 TDC CLC ADC #$0069 PEA $0000 PHA TDC CLC ADC #$0009 PEA $0000 PHA TDC CLC ADC #$0061 PEA $0000 PHA JSL L1512D7 TDC CLC ADC #$0061 PEA $0000 PHA PEA $0000 PEI $90 JSL L21102C TDC CLC ADC #$0069 PEA $0000 PHA TDC CLC ADC #$0009 PEA $0000 PHA PEA $0008 JSL L0313BE LDA $6B SEC SBC $5B STA $77 LDA $69 SEC SBC $59 STA $75 LDA #$0095 CLC ADC $90 LDX $92 BCC L210F68 INX L210F68 PHX PHA TDC CLC ADC #$0051 PEA $0000 PHA PEA $0008 JSL L0313BE LDA #$0095 CLC ADC $90 LDX $92 BCC L210F85 INX L210F85 PHX PHA PEI $77 PEI $75 JSL L1501AF PEA $0000 PEI $90 JSL L211221 TDC CLC ADC #$0069 PEA $0000 PHA JSL L151418 TDC CLC ADC #$0079 PEA $0000 PHA LDA $A0 CLC ADC $6B PHA LDA $9E CLC ADC $69 PHA JSL L151355 L210FBE TDC CLC ADC #$0071 PEA $0000 PHA JSL L150801 PHY PEA $0000 JSL L15164B PLA EOR #$0001 BNE L210FDC BRL L210E0B L210FDC LDA $6B SEC SBC $5B STA $77 LDA $69 SEC SBC $59 STA $75 LDA $75 LDX $77 STA $A6 STX $A8 TDC CLC ADC #$0069 PEA $0000 PHA JSL L151418 PEI $81 JSL L150BD6 PEI $7F PEI $7D JSL L151083 TDC CLC ADC #$0031 PEA $0000 PHA JSL L151198 LDA $8E STA $A4 LDA $8D STA $A3 LDA $8B TCD TSC CLC ADC #$00A2 TCS RTL L21102C PHD TSC CLC ADC #$FFE0 TCS TCD LDA $2A ORA $2C BNE L211059 TDC CLC ADC #$000D PEA $0000 PHA LDA #$009D CLC ADC $26 LDX $28 BCC L21104E INX L21104E PHX PHA PEA $0008 JSL L0313BE BRA L21106D L211059 TDC CLC ADC #$000D PEA $0000 PHA PEI $2C PEI $2A PEA $0008 JSL L0313BE L21106D PHY TDC CLC ADC #$000D PEA $0000 PHA JSL L1500E3 PLA LSR BCS L211082 BRL L211138 L211082 PHY PHY JSL L150493 PLA STA $19 PLX STX $1B LDY #$00D7 LDA [$26],Y PHA DEY DEY LDA [$26],Y PHA JSL L151131 LDY #$00FA LDA [$26],Y BEQ L2110BC LDA L05532F LDX L055331 STA $1D STX $1F LDY #$0002 LDA [$1D],Y TAX LDA [$1D] STA $15 STX $17 BRA L2110D2 L2110BC LDA L05532B LDX L05532D STA $1D STX $1F LDY #$0002 LDA [$1D],Y TAX LDA [$1D] STA $15 STX $17 L2110D2 TDC CLC ADC #$0005 PEA $0000 PHA TDC CLC ADC #$000D PEA $0000 PHA PEA $0008 JSL L0313BE LDA #$009D CLC ADC $26 LDX $28 BCC L2110F6 INX L2110F6 STA $01 STX $03 TDC CLC ADC #$000D PEA $0000 PHA LDY #$0002 LDA [$01],Y EOR #$FFFF INC PHA LDA [$01] EOR #$FFFF INC PHA JSL L1501AF PEI $17 PEI $15 TDC CLC ADC #$000D PEA $0000 PHA PEI $07 PEI $05 PEA $0000 JSL L15025A PEI $1B PEI $19 JSL L151131 L211138 LDA $24 STA $2C LDA $23 STA $2B LDA $21 TCD TSC CLC ADC #$002A TCS RTL L21114A PHD TSC CLC ADC #$FFE8 TCS TCD LDY #$00EB LDA [$1E],Y BNE L21115C BRL L21120F L21115C LDY #$00FA LDA [$1E],Y BEQ L21117B LDA L05532F LDX L055331 STA $15 STX $17 LDY #$0002 LDA [$15],Y TAX LDA [$15] STA $05 STX $07 BRA L211191 L21117B LDA L05532B LDX L05532D STA $15 STX $17 LDY #$0002 LDA [$15],Y TAX LDA [$15] STA $05 STX $07 L211191 TDC CLC ADC #$000D PEA $0000 PHA LDA #$0095 CLC ADC $1E LDX $20 BCC L2111A5 INX L2111A5 PHX PHA PEA $0008 JSL L0313BE LDA #$009D CLC ADC $1E LDX $20 BCC L2111B9 INX L2111B9 STA $01 STX $03 TDC CLC ADC #$000D PEA $0000 PHA LDY #$0002 LDA [$01],Y EOR #$FFFF INC PHA LDA [$01] EOR #$FFFF INC PHA JSL L1501AF PHY PHY JSL L150493 PLA STA $09 PLX STX $0B PEI $07 PEI $05 JSL L151131 LDY #$00BB LDA [$1E],Y PHA DEY DEY LDA [$1E],Y PHA TDC CLC ADC #$000D PEA $0000 PHA JSL L150683 PEI $0B PEI $09 JSL L151131 L21120F LDA $1C STA $20 LDA $1B STA $1F LDA $19 TCD TSC CLC ADC #$001E TCS RTL L211221 PHD TSC CLC ADC #$FFE4 TCS TCD LDY #$00EB LDA [$22],Y BNE L211233 BRL L21130E L211233 PHY PHY JSL L150493 PLA STA $15 PLX STX $17 LDY #$00D7 LDA [$22],Y PHA DEY DEY LDA [$22],Y PHA JSL L151131 PHY PHY JSL L1516CF PLA STA $11 PLX STX $13 PHY PHY JSL L150BB2 PLA STA $0D PLX STX $0F PEI $0F PEI $0D JSL L1516C9 LDA #$009D CLC ADC $22 LDX $24 BCC L211279 INX L211279 PHX PHA JSL L150FF9 LDY #$00BB LDA [$22],Y PHA DEY DEY LDA [$22],Y PHA LDA #$0095 CLC ADC $22 LDX $24 BCC L211295 INX L211295 PHX PHA JSL L150683 PHY LDA #$0095 CLC ADC $22 LDX $24 BCC L2112A7 INX L2112A7 PHX PHA LDA #$008D CLC ADC $22 LDX $24 BCC L2112B4 INX L2112B4 PHX PHA TDC CLC ADC #$0005 PEA $0000 PHA JSL L150B3A PLA LSR BCC L2112F6 TDC CLC ADC #$0005 PEA $0000 PHA JSL L15123D LDA #$008D CLC ADC $22 LDX $24 BCC L2112DF INX L2112DF STA $01 STX $03 PEA ^L210083 PEA L210083 LDY #$0002 LDA [$01],Y PHA LDA [$01] PHA JSL L087218 L2112F6 PEI $13 PEI $11 JSL L1516C9 PEI $0F PEI $0D JSL L151669 PEI $17 PEI $15 JSL L151131 L21130E LDA $20 STA $24 LDA $1F STA $23 LDA $1D TCD TSC CLC ADC #$0022 TCS RTL L211320 PHD TSC CLC ADC #$FEB6 TCS ADC #$0059 TCD STZ $FC LDA $FA SEC SBC #$0043 BPL L211338 BRL L2118A9 L211338 CMP #$003D BMI L211340 BRL L2118A9 L211340 SEC SBC #$0000 BEQ L211372 SEC SBC #$0013 BNE L21134F BRL L2113EA L21134F DEC DEC BEQ L211372 SEC SBC #$000B BEQ L211372 SEC SBC #$0013 BNE L211362 BRL L2113EA L211362 DEC DEC BEQ L211372 SEC SBC #$0007 BNE L21136F BRL L211899 L21136F BRL L2118A9 L211372 LDY #$00EB LDA [$F6],Y BEQ L2113E7 JSL L150395 PHY PHY LDY #$00BB LDA [$F6],Y PHA DEY DEY LDA [$F6],Y PHA JSL L151301 PLA STA $E5 PLX STX $E7 PHY PEI $E7 PEI $E5 PEA $0001 LDY #$00BB LDA [$F6],Y TAX DEY DEY LDA [$F6],Y STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] PHX PHA JSL L0732FD PLA STA $EB LDX #$0000 LDA #$0058 CMP $FA BNE L2113C6 INX L2113C6 PHX LDX #$0000 LDA #$0078 CMP $FA BNE L2113D2 INX L2113D2 TXA ORA $01,S PLX LSR BCC L2113E7 LDA #$0001 STA $FC PEA $0000 PEI $F6 JSL L210BD3 L2113E7 BRL L2118A9 L2113EA LDA #$0001 STA $FC PEA $0000 PEI $F6 JSL L21114A PEA $0000 PEI $F6 JSL L210BD3 PHY JSL L2100A8 PLA CMP #$0001 BNE L21145B LDA #$00B9 CLC ADC $F6 LDX $F8 BCC L211417 INX L211417 STA $ED STX $EF PHY PHY PEA $0000 PEA $0001 PEA $0000 PEA $07D0 JSL L160A30 PLA STA [$ED] PLA LDY #$0002 STA [$ED],Y LDY #$00B9 LDA [$F6],Y INY INY ORA [$F6],Y BEQ L211455 LDY #$00BB LDA [$F6],Y PHA DEY DEY LDA [$F6],Y PHA PEA $0001 JSL L15064D BRA L211458 L211455 BRL L211897 L211458 BRL L2115DD L21145B PHY PHY PEA $0000 PEA $0001 PEA $0000 PEA $07DC JSL L160A30 PLA STA $DD PLX STX $DF LDA $DD ORA $DF BNE L21147C BRL L211897 L21147C PEI $DF PEI $DD PEA $8001 JSL L15064D LDAL L05565D BEQ L211498 PEI $DF PEI $DD JSL L07185A BRL L211897 L211498 PEI $DF PEI $DD JSL L0718BF LDY #$0002 LDA [$DD],Y TAX LDA [$DD] TXY LDX #$FFB7 STA $00,X TYA STA $02,X TDC CLC ADC #$00D1 PEA $0000 PHA PEA $0000 PEA $0000 LDX #$FFB7 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0006 BCC L2114D0 INX L2114D0 STA $ED STX $EF LDA [$ED] ASL PHA LDX #$FFB7 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L2114E8 INX L2114E8 STA $ED STX $EF LDA [$ED] PHA JSL L15100B PHY PHY JSL L150BB2 PLA STA $D9 PLX STX $DB JSL L150659 TDC CLC ADC #$00D1 PEA $0000 PHA JSL L151418 PEI $DB PEI $D9 JSL L15166F PHY PHY JSL L150493 PLA STA $E1 PLX STX $E3 PEA ^L05312F PEA L05312F JSL L151131 TDC CLC ADC #$00D1 PEA $0000 PHA JSL L15123D LDY #$0002 LDA [$DD],Y TAX LDA [$DD] PHX PHA PEA $F000 PEI $D3 PEI $D1 JSL L15047C LDA #L053239 LDX #^L053239 STA $BB STX $BD LDA #L053239 LDX #^L053239 STA $BF STX $C1 TDC CLC ADC #$00D1 STA $C3 STZ $C5 TDC CLC ADC #$00D1 STA $C7 STZ $C9 STZ $CB LDA $D9 LDX $DB STA $CD STX $CF LDA #$00B9 CLC ADC $F6 LDX $F8 BCC L21158B INX L21158B STA $ED STX $EF PHY PHY TDC CLC ADC #$00D1 PEA $0000 PHA JSL L1502FA PLA STA [$ED] PLA LDY #$0002 STA [$ED],Y TDC CLC ADC #$00BB PEA $0000 PHA JSL L150476 JSL L151400 TDC CLC ADC #$00D1 PEA $0000 PHA JSL L085216 PEI $DB PEI $D9 JSL L151669 PEI $E3 PEI $E1 JSL L151131 PEI $DF PEI $DD JSL L07185A L2115DD LDY #$00BB LDA [$F6],Y TAX DEY DEY LDA [$F6],Y STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] CLC ADC #$0002 BCC L2115FA INX L2115FA TXY LDX #$FFB3 STA $00,X TYA STA $02,X LDX #$FFB3 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0006 BCC L211613 INX L211613 STA $ED STX $EF LDA [$ED] PHA LDX #$FFB3 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L21162A INX L21162A STA $ED STX $EF PLA SEC SBC [$ED] STA $E9 LDY #$00BB LDA [$F6],Y TAX DEY DEY LDA [$F6],Y STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] STA $ED STX $EF LDA [$ED] BNE L211676 LDA $E9 ASL STA $E9 LDY #$00BB LDA [$F6],Y TAX DEY DEY LDA [$F6],Y STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] STA $ED STX $EF LDA #$0080 STA [$ED] L211676 LDA #$0095 CLC ADC $F6 LDX $F8 BCC L211681 INX L211681 TXY LDX #$FFAF STA $00,X TYA STA $02,X LDA $E9 SEC SBC #$0240 BVS L211695 EOR #$8000 L211695 BMI L2116BF LDX #$FFAF LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L2116A7 INX L2116A7 STA $ED STX $EF LDA #$0240 SEC SBC $E9 PHA PEA $0002 JSL L1500F5 PLX PLX STA [$ED] BRA L2116D8 L2116BF LDX #$FFAF LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L2116CF INX L2116CF STA $ED STX $EF LDA #$0000 STA [$ED] L2116D8 LDX #$FFAF LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L2116E8 INX L2116E8 PHX PHA LDX #$FFAF LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L2116FA INX L2116FA STA $ED STX $EF LDA [$ED] PHA LDA #$009D CLC ADC $F6 LDX $F8 BCC L21170C INX L21170C CLC ADC #$0002 BCC L211713 INX L211713 STA $ED STX $EF PLA CLC ADC [$ED] PLX STX $ED PLX STX $EF STA [$ED] LDX #$FFAF LDA $02,X TAY LDA $00,X TYX CLC ADC #$0006 BCC L211733 INX L211733 PHX PHA LDX #$FFAF LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L211745 INX L211745 STA $ED STX $EF LDA $E9 CLC ADC [$ED] PLX STX $ED PLX STX $EF STA [$ED] LDA #$0095 CLC ADC $F6 LDX $F8 BCC L211761 INX L211761 PHX PHA LDA #$0095 CLC ADC $F6 LDX $F8 BCC L21176E INX L21176E CLC ADC #$0002 BCC L211775 INX L211775 STA $ED STX $EF LDA #$0001 AND [$ED] EOR #$FFFF INC PHA PEA $0000 JSL L1501AF LDY #$00BB LDA [$F6],Y TAX DEY DEY LDA [$F6],Y STA $ED STX $EF LDY #$0002 LDA [$ED],Y TAX LDA [$ED] CLC ADC #$0002 BCC L2117A7 INX L2117A7 TXY LDX #$FFAB STA $00,X TYA STA $02,X LDX #$FFAB LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L2117C0 INX L2117C0 STA $ED STX $EF LDA [$ED] PHA LDX #$FFAB LDA $02,X PHA LDA $00,X PHA PLA PLX STA $ED STX $EF PLA SEC SBC [$ED] STA $E9 LDA #$0095 CLC ADC $F6 LDX $F8 BCC L2117E7 INX L2117E7 TXY LDX #$FFA7 STA $00,X TYA STA $02,X LDA $E9 SEC SBC #$0032 BVS L2117FB EOR #$8000 L2117FB BMI L21181E LDX #$FFA7 LDA $02,X TAY LDA $00,X TYX STA $ED STX $EF LDA #$0032 SEC SBC $E9 PHA PEA $0002 JSL L1500F5 PLX PLX STA [$ED] BRA L211830 L21181E LDX #$FFA7 LDA $02,X TAY LDA $00,X TYX STA $ED STX $EF LDA #$0000 STA [$ED] L211830 LDX #$FFA7 LDA $02,X PHA LDA $00,X PHA LDX #$FFA7 LDA $02,X PHA LDA $00,X PHA PLA PLX STA $ED STX $EF LDY #$009D LDA [$F6],Y CLC ADC [$ED] PLX STX $ED PLX STX $EF STA [$ED] LDX #$FFA7 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L211868 INX L211868 PHX PHA LDX #$FFA7 LDA $02,X PHA LDA $00,X PHA PLA PLX STA $ED STX $EF LDA $E9 CLC ADC [$ED] PLX STX $ED PLX STX $EF STA [$ED] LDA #$0001 LDY #$00EB STA [$F6],Y PEA $0000 PEI $F6 JSL L211221 L211897 BRA L2118A9 L211899 LDA #$0001 STA $FC PEA $0000 PEI $F6 JSL L210BD3 BRA L2118A9 L2118A9 LDA $F4 STA $FA LDA $F3 STA $F9 LDA $F1 TCD TSC CLC ADC #$0152 TCS RTL L2118BB PHD TSC CLC ADC #$FFEE TCS TCD STZ $20 LDA #$0800 ANDL L0540AD SEC SBC #$0000 BMI L2118E2 BEQ L2118E2 PEA $0000 PEI $18 JSL L21114A LDA #$0001 STA $20 L2118E2 LDA #$0200 ANDL L0540AD BNE L2118F2 LDA #$0002 STA $0D BRA L2118F4 L2118F2 STZ $0D L2118F4 TDC CLC ADC #$0001 PEA $0000 PHA LDA #$009D CLC ADC $18 LDX $1A BCC L211908 INX L211908 PHX PHA PEA $0008 JSL L0313BE LDA #$0032 CLC ADC $01 STA $05 PHY PHY PEA ^L054F6B PEA L054F6B PEI $1E PEI $1C LDA #$0095 CLC ADC $18 LDX $1A BCC L211930 INX L211930 PHX PHA TDC CLC ADC #$0001 PEA $0000 PHA PEI $0D PEA $0000 PEI $18 JSL L210CB8 PLA STA $09 PLX STX $0B LDA $0B BEQ L211953 LDA #$0001 L211953 PHA LDA $09 BEQ L21195B LDA #$0001 L21195B ORA $01,S PLX STA $20 LDA $16 STA $1E LDA $15 STA $1D LDA $13 TCD TSC CLC ADC #$001C TCS RTL L211972 ENT PHD TSC CLC ADC #$FDB3 TCS ADC #$0158 TCD PHY PHY JSL L150493 PLA STA $DB PLX STX $DD LDA $FA BEQ L21199E LDA #L051F22 LDX #^L051F22 STA $D1 STX $D3 LDA #$4010 STA $E5 BRA L2119AD L21199E LDA #L051FF3 LDX #^L051FF3 STA $D1 STX $D3 LDA #$4074 STA $E5 L2119AD PHY PHY PEI $E5 JSL L072834 PLA STA $D5 PLX STX $D7 LDA $D5 LDX $D7 TXY LDX #$FEB8 STA $00,X TYA STA $02,X LDX #$FEB8 LDA $02,X TAY LDA $00,X TYX CLC ADC #$00A0 BCC L2119D8 INX L2119D8 PHX PHA LDX #$FEB8 LDA $02,X TAY LDA $00,X TYX CLC ADC #$00A0 BCC L2119EA INX L2119EA STA $F1 STX $F3 LDA #$8000 ORA [$F1] PLX STX $F1 PLX STX $F3 STA [$F1] PEA $0000 TDC CLC ADC #$FFBC PHA PEI $D3 PEI $D1 PEA $00D1 JSL L0313BE PHY PHY PEA $0000 PEA ^L210000 PEA L210000 JSL L1502E8 PLA STA $BD PLX STX $BF LDA $D1 LDX $D3 TXY LDX #$FEB4 STA $00,X TYA STA $02,X PHY PHY PEI $D7 PEI $D5 PEA $0007 JSL L073032 LDX #$FEB0 PLA STA $00,X PLA STA $02,X PHY LDX #$FEB4 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0006 BCC L211A58 INX L211A58 PHX PHA PEA $0001 JSL L160A92 PLA STA $E1 PEI $D7 PEI $D5 PEA $0006 LDX #$FEB4 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0010 BCC L211A7B INX L211A7B PHX PHA JSL L073A7B TDC CLC ADC #$009D PEA $0000 PHA LDX #$FEB0 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L211A9A INX L211A9A STA $F1 STX $F3 LDA [$F1] PHA LDX #$FEB0 LDA $02,X PHA LDA $00,X PHA PLA PLX STA $F1 STX $F3 LDA [$F1] PHA LDX #$FEB0 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L211AC3 INX L211AC3 STA $F1 STX $F3 LDA #$0240 CLC ADC [$F1] PHA LDX #$FEB0 LDA $02,X PHA LDA $00,X PHA PLA PLX STA $F1 STX $F3 LDA [$F1] PHA LDX #$FEB4 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L211AF0 INX L211AF0 STA $F1 STX $F3 PLA CLC ADC [$F1] PHA JSL L15100B LDX #$FEB4 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0010 BCC L211B0D INX L211B0D STA $F1 STX $F3 LDA #$00FF AND [$F1] SEC SBC #$0000 BMI L211B25 BEQ L211B25 LDA $A1 SEC SBC $E1 STA $A1 L211B25 LDX #$FEB4 LDA $02,X PHA LDA $00,X PHA PLA PLX STA $F1 STX $F3 LDA [$F1] STA $E3 TDC CLC ADC #$008D PEA $0000 PHA JSL L08273B TDC CLC ADC #$0095 PEA $0000 PHA JSL L08273B STZ $EB LDA #$0001 STA $ED STZ $EF TDC CLC ADC #$00AD PEA $0000 PHA PHY PHY PEI $D7 PEI $D5 PEA $0006 JSL L073032 PEA $0008 JSL L0313BE TDC CLC ADC #$00AD PEA $0000 PHA PEA $0002 PEA $0001 JSL L151005 PEA $0000 PHD JSL L2105CF PEI $E3 PEI $D7 PEI $D5 PEA $0005 JSL L073B05 PEI $D7 PEI $D5 JSL L15102F PEI $D7 PEI $D5 JSL L1511C8 PEI $D7 PEI $D5 JSL L151131 PEA $0002 PEA $0001 JSL L151083 PHY JSL L0727BF PLA STA $D9 L211BCA PHY PEA $0001 JSL L0736C8 PLA STA $E7 LDAL L0540AB TAX LDAL L0540A9 STA $B5 STX $B7 TDC CLC ADC #$00B5 PEA $0000 PHA JSL L150BE8 LDA #$FFFD CMP $E7 BEQ L211BF9 BRL L211CC5 L211BF9 LDA #$007F ANDL L0540A1 STA $E5 LDA $E5 SEC SBC #$0009 BPL L211C0D BRL L211C9F L211C0D CMP #$0077 BMI L211C15 BRL L211C9F L211C15 SEC SBC #$0000 BEQ L211C66 DEC BEQ L211C9D DEC BEQ L211C9D SEC SBC #$000D BEQ L211C47 SEC SBC #$002B BEQ L211C70 SEC SBC #$0015 BEQ L211C70 SEC SBC #$000B BEQ L211C70 SEC SBC #$0015 BEQ L211C70 SEC SBC #$0007 BEQ L211C47 BRA L211C9F L211C47 LDA $ED BEQ L211C59 PHY PEI $D7 PEI $D5 JSL L072354 PLA STA $E7 BRA L211C64 L211C59 PEA $007F PEA $0000 PHD JSL L2104A7 L211C64 BRA L211CC5 L211C66 PEA $0000 PHD JSL L210435 BRA L211CC5 L211C70 LDA #$0100 ANDL L0540AD BEQ L211C8B LDA $ED ORA $EB BEQ L211C89 PEI $E5 PEA $0000 PHD JSL L2104A7 L211C89 BRA L211C9B L211C8B LDA $ED BEQ L211C9B PHY PEI $D7 PEI $D5 JSL L072354 PLA STA $E7 L211C9B BRA L211CC5 L211C9D BRA L211CC5 L211C9F PHY PEI $D7 PEI $D5 JSL L072354 PLA STA $E7 LDA #$0100 ANDL L0540AD BEQ L211CB7 LDA #$0001 L211CB7 AND $ED BEQ L211CC5 PEI $E5 PEA $0000 PHD JSL L2104A7 L211CC5 LDA #$FFFE CMP $E7 BNE L211CD1 LDA #$0063 STA $E7 L211CD1 LDA $E7 BPL L211CD8 BRL L212119 L211CD8 CMP #$0064 BMI L211CE0 BRL L212119 L211CE0 SEC SBC #$0000 BEQ L211D19 DEC BNE L211CEC BRL L211E73 L211CEC DEC BNE L211CF2 BRL L211F89 L211CF2 DEC BNE L211CF8 BRL L211FBE L211CF8 DEC BNE L211CFE BRL L212041 L211CFE DEC BNE L211D04 BRL L211F9B L211D04 DEC BNE L211D0A BRL L211FB3 L211D0A DEC BNE L211D10 BRL L211FCC L211D10 SEC SBC #$005C BEQ L211D19 BRL L212119 L211D19 LDA $E7 BEQ L211D49 PEI $D7 PEI $D5 JSL L1506B3 LDA L05531F LDX L055321 PHX PHA JSL L150D20 PEI $D7 PEI $D5 JSL L1517CD PEA $0000 PHD JSL L21068D PEI $D7 PEI $D5 JSL L1506AD L211D49 LDA #$0004 STA $DF PHY TDC CLC ADC #$00B5 PEA $0000 PHA TDC CLC ADC #$009D PEA $0000 PHA JSL L1512CB PHY TDC CLC ADC #$00B5 PEA $0000 PHA TDC CLC ADC #$008D PEA $0000 PHA JSL L1512CB PLA EOR #$0001 AND $01,S PLX PHA LDA L055051 EOR #$0001 AND $01,S PLX LSR BCC L211DB2 PHY TDC CLC ADC #$00B5 PEA $0000 PHA TDC CLC ADC #$0095 PEA $0000 PHA JSL L1512CB PLA LSR BCS L211DB0 LDA #$0009 STA $DF L211DB0 BRA L211DD3 L211DB2 PHY TDC CLC ADC #$00B5 PEA $0000 PHA TDC CLC ADC #$00AD PEA $0000 PHA JSL L1512CB PLA AND $ED BEQ L211DD3 LDA #$0008 STA $DF L211DD3 PEI $DF JSL L0724F7 LDA $EB BEQ L211E5B PEA ^L054F6B PEA L054F6B JSL L082570 PHY PHY JSL L1516CF PLA STA $CD PLX STX $CF PHY PHY JSL L150BB2 PLA STA $C9 PLX STX $CB JSL L150659 TDC CLC ADC #$009D PEA $0000 PHA JSL L151418 TDC CLC ADC #$008D PEA $0000 PHA JSL L151418 PEI $CB PEI $C9 JSL L15166F PEI $CB PEI $C9 JSL L1516C9 PEA ^L054F6B PEA L054F6B JSL L151198 TDC CLC ADC #$0095 PEA $0000 PHA JSL L151418 PEA $0000 JSL L081DD8 PEI $CF PEI $CD JSL L1516C9 PEI $CB PEI $C9 JSL L151669 L211E5B LDA $ED BEQ L211E70 PHY PHY PEI $D7 PEI $D5 PEA $0006 JSL L160B2C JSL L150076 L211E70 BRL L212119 L211E73 LDA #$0800 ANDL L0540AD BEQ L211E88 LDA #$0001 STA L05533F LDA #$0001 STA L05533D L211E88 PEI $D7 PEI $D5 PEA $0006 PEA $0000 TDC CLC ADC #$FEBC PHA JSL L071169 LDA $D1 LDX $D3 TXY LDX #$FEAC STA $00,X TYA STA $02,X LDX #$FEAC LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L211EB9 INX L211EB9 STA $F1 STX $F3 LDA $A1 SEC SBC $9D STA [$F1] LDA #$00FF LDX #$FEBC AND $00,X SEC SBC #$0000 BMI L211F07 BEQ L211F07 LDX #$FEAC LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L211EE4 INX L211EE4 PHX PHA LDX #$FEAC LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L211EF6 INX L211EF6 STA $F1 STX $F3 LDA $E1 CLC ADC [$F1] PLX STX $F1 PLX STX $F3 STA [$F1] L211F07 LDX #$FEAC LDA $02,X TAY LDA $00,X TYX CLC ADC #$0010 BCC L211F17 INX L211F17 PHX PHA PEA $0000 TDC CLC ADC #$FEBC PHA PEA $00C1 JSL L0313BE LDX #$FEAC LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L211F39 INX L211F39 STA $F1 STX $F3 LDA $FA STA [$F1] LDX #$FEAC LDA $02,X TAY LDA $00,X TYX STA $F1 STX $F3 LDA $E3 STA [$F1] PEA $0000 PHD JSL L21114A LDA $EF ORA L055333 STA L055333 PHY PEA $0000 TDC CLC ADC #$FFBC PHA TDC CLC ADC #$00D1 PEA $0000 PHA PEA $00D1 JSL L070A10 PLA LSR BCS L211F86 LDA #$0001 STA L055335 L211F86 BRL L212119 L211F89 LDA #$0800 ANDL L0540AD BEQ L211F98 LDA #$0001 STA L05533F L211F98 BRL L212119 L211F9B LDA #$0001 SEC SBC $E3 STA $E3 PEI $E3 PEI $D7 PEI $D5 PEA $0005 JSL L073B05 BRL L212119 L211FB3 PEA $0000 PHD JSL L210435 BRL L212119 L211FBE PEA $0056 PEA $0000 PHD JSL L2104A7 BRL L212119 L211FCC PHY TDC CLC ADC #$00B5 PEA $0000 PHA TDC CLC ADC #$008D PEA $0000 PHA JSL L1512CB PLA LSR BCC L21200A PHY PEI $B7 PEI $B5 PEA $0032 TDC CLC ADC #$009D PEA $0000 PHA JSL L210298 PLA LSR BCC L212008 PEA $0000 PHD JSL L21068D L212008 BRA L21203E L21200A LDA L055051 EOR #$0001 PHA PHY TDC CLC ADC #$00B5 PEA $0000 PHA TDC CLC ADC #$009D PEA $0000 PHA JSL L1512CB PLA STA $F1 PLA AND $F1 BEQ L21203E PHY PEA $0000 PHD JSL L2107C9 PLA ORA $EF STA $EF L21203E BRL L212119 L212041 PEA $0001 PEI $D7 PEI $D5 PEA $0004 JSL L072E7C PHY PHY PEI $D7 PEI $D5 PEA $0004 JSL L073032 LDX #$FEA8 PLA STA $00,X PLA STA $02,X LDX #$FEA8 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L212075 INX L212075 STA $F1 STX $F3 LDA [$F1] STA $B5 LDX #$FEA8 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L21208D INX L21208D STA $F1 STX $F3 LDA [$F1] STA $B7 TDC CLC ADC #$00B5 PEA $0000 PHA JSL L151412 PHY PHY JSL L151293 JSL L151131 PHY PHY JSL L1517D9 PLA STA $C1 PLX STX $C3 LDA L05531F LDX L055321 PHX PHA JSL L150D20 PHY PEA $0001 PEI $B7 PEI $B5 PEA $0000 PEI $BF PEI $BD JSL L150389 PLA STA $E5 PEI $C3 PEI $C1 JSL L150D20 PEI $D7 PEI $D5 JSL L151131 LDA $E5 BEQ L212109 PEA $0000 PHD JSL L210435 PEI $E5 PHY PHY PEI $D7 PEI $D5 PEA $0006 JSL L160B2C JSL L210111 L212109 PEA $0000 PEI $D7 PEI $D5 PEA $0004 JSL L072E7C BRA L212119 L212119 LDX #$0000 LDA $E7 DEC BNE L212122 INX L212122 PHX LDX #$0000 LDA $E7 DEC DEC BNE L21212D INX L21212D TXA ORA $01,S PLX LSR BCS L212137 BRL L211BCA L212137 PEI $D9 JSL L0724F7 PEA $0000 PHD JSL L210BD3 PEI $BF PEI $BD JSL L07185A PEI $D7 PEI $D5 JSL L072634 PEI $DD PEI $DB JSL L151131 JSL L09AFB1 LDA $F8 STA $FA LDA $F7 STA $F9 LDA $F5 TCD TSC CLC ADC #$0251 TCS RTL