* * HypercardGS * segment: $20 HPrintGrx * * (k) 2015, Brutal Deluxe Software * mx %00 rel dsk HPrintGrx.l lst off *--------------------------------------- use HPrintGrx.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/SANE.Macs use 4/Sound.Macs use 4/Std.Macs use 4/Text.Macs use 4/Util.Macs use 4/Window.Macs *--------------------------------------- L200000 ENT PHD PHY PHY PHY PHY TSC TCD LDY #$0006 LDA [$0E],Y STA $07 LDY #$000C LDA [$0E],Y STA $05 LDY #$0002 LDA [$0E],Y TAX INY INY LDA [$0E],Y STX $0E STA $10 STZ $01 L200025 LDY #$0000 L200028 LDA [$0E],Y TAX ASL AND #$AAAA STA $03 TXA LSR AND #$5555 ORA $03 ORA [$0E],Y STA [$0E],Y INY INY CPY $07 BCC L200028 LDA $01 CMP $05 BEQ L20005B INC STA $01 CLC LDA $0E ADC $07 STA $0E LDA $10 ADC #$0000 STA $10 BRA L200025 L20005B LDA $0C STA $10 LDA $0B STA $0F TDC TCS PLY PLY PLY PLY PLD PLY PLY RTL L20006D DW $0015 L20006F DW $0900 L200071 PHD TSC CLC ADC #$FFB4 TCS TCD PHY PHY PEI $5A PEI $58 PEA $0002 JSL L07977D PEA $0000 JSL L072FA6 PLA STA $41 LDA $41 BNE L200097 BRL L20029D L200097 STZ $43 L200099 LDA $43 INC STA $43 PHY PEI $5A PEI $58 PEI $43 PEA $0002 JSL L07AC17 PLA STA $47 LDA $47 BNE L2000B6 BRL L20029D L2000B6 PHY PEI $5A PEI $58 PEI $47 TDC CLC ADC #$0005 PEA $0000 PHA JSL L07ABAE PLA LSR BCS L2000D1 BRL L20029D L2000D1 LDA #$8000 AND $09 BEQ L2000DB BRL L200286 L2000DB PHY PEI $5A PEI $58 PEI $47 JSL L085819 PLA LSR BCC L2000ED BRL L200286 L2000ED LDA $56 BNE L2000F9 LDA $47 EOR #$FFFF INC STA $47 L2000F9 LDA #$4000 AND $09 BEQ L200103 LDA #$0001 L200103 AND $56 BEQ L200128 PHY PHY PEA $0000 PEA $0000 LDA L05501F LDX L055021 PHX PHA PEI $47 PEA $0001 JSL L07AEBB PLA STA $3B PLX STX $3D BRA L200147 L200128 PHY PHY LDA L055027 LDX L055029 PHX PHA PEA $0000 PEA $0000 PEI $47 PEA $0000 JSL L07AEBB PLA STA $3B PLX STX $3D L200147 LDA $3B ORA $3D BNE L200150 BRL L20029D L200150 LDA [$3B] LDY #$0002 ORA [$3B],Y BNE L200164 PEI $3D PEI $3B JSL L07185A BRL L20028E L200164 LDA $1F STA $2F LDA $23 SEP #$20 STA $31 REP #$20 LDA $21 SEP #$20 STA $32 REP #$20 LDA $25 STA $3F PEI $31 PEI $2F JSL L1609CE PHY PHY JSL L150695 PLA STA $2F PLX STX $31 TDC CLC ADC #$0005 PEA $0000 PHA PEI $56 TDC CLC ADC #$0033 PEA $0000 PHA JSL L083B58 LDA #$0001 CLC ADC $52 LDX $54 BCC L2001B3 INX L2001B3 STA $01 STX $03 TDC CLC ADC #$0033 PEA $0000 PHA LDY #$0002 LDA [$01],Y PHA LDA [$01] PHA JSL L1501AF LDA #$000F AND $13 BEQ L2001DD PEA $0000 JSL L1516ED BRA L2001E4 L2001DD PEA $0004 JSL L1516ED L2001E4 LDAL L051EF4 BEQ L2001F9 PHY LDA #$00FF AND $28 PHA JSL L081A92 JSL L1511E6 L2001F9 LDA #$000F AND $13 STA $45 LDA #$0007 CMP $45 BNE L20020F LDA $39 SEC SBC #$001A STA $39 L20020F PEI $3D PEI $3B JSL L0718BF LDY #$000F LDA [$52],Y TAX DEY DEY LDA [$52],Y CLC ADC #$0018 BCC L200228 INX L200228 STA $49 STX $4B LDY #$0002 LDA [$49],Y TAX LDA [$49] STA $49 STX $4B LDY #$0002 LDA [$49],Y TAX LDA [$49] CLC ADC #$0002 BCC L200247 INX L200247 PHX PHA TDC CLC ADC #$0033 PEA $0000 PHA PEA $0008 JSL L0313BE PHY LDY #$0002 LDA [$3B],Y PHA LDA [$3B] PHA TDC CLC ADC #$0033 PEA $0000 PHA PEI $1D PEI $3F PHY PEI $47 JSL L086029 JSL L08090C PLA STA $45 PEI $3D PEI $3B JSL L07185A L200286 PEI $3D PEI $3B JSL L07185A L20028E LDA $43 SEC SBC $41 BVS L200298 EOR #$8000 L200298 BMI L20029D BRL L200099 L20029D LDA $50 STA $5A LDA $4F STA $59 LDA $4D TCD TSC CLC ADC #$0058 TCS RTL L2002AF PHD TSC CLC ADC #$FFE0 TCS TCD TDC CLC ADC #$0001 PEA $0000 PHA PEI $2C PEI $2A PEA $0008 JSL L0313BE LDA L055027 LDX L055029 STA $15 STX $17 LDA L05501F LDX L055021 STA $11 STX $13 PHY PEI $28 PEI $26 JSL L1609DC PLA LSR BCS L2002EF BRL L2003D0 L2002EF LDA L055027 LDX L055029 CMP $15 BNE L2002FB CPX $17 L2002FB BEQ L200300 STZ L055139 L200300 LDA L05501F LDX L055021 CMP $11 BNE L20030C CPX $13 L20030C BEQ L200311 STZ L055135 L200311 LDAL L051EF0 DEC BNE L20032B LDA L055149 STA $1B LDA L055147 STA $19 STZ L055149 LDA #$0001 STA L055147 L20032B PEA ^L053259 PEA L053259 JSL L085216 LDAL L051EF6 BNE L200345 PEA ^L053239 PEA L053239 JSL L200000 L200345 PHY PHY JSL L150493 PLA STA $0D PLX STX $0F PEA ^L053239 PEA L053239 PEI $0F PEI $0D PEA ^L053259 PEA L053259 TDC CLC ADC #$0001 PEA $0000 PHA PEA $0000 PHY PHY JSL L1516CF JSL L1505E6 LDAL L051EF0 DEC BNE L2003C2 LDA $1B STA L055149 LDA $19 STA L055147 PHY PHY JSL L150695 PLA STA $09 PLX STX $0B LDA L05501F LDX L055021 PHX PHA PEA $0001 PEA $0000 PHD JSL L200071 LDA L055027 LDX L055029 PHX PHA PEA $0000 PEA $0000 PHD JSL L200071 PEI $0B PEI $09 JSL L1609CE L2003C2 PEA $0000 JSL L1516ED PEA $0000 JSL L1511E6 L2003D0 LDA $24 STA $2C LDA $23 STA $2B LDA $21 TCD TSC CLC ADC #$002A TCS RTL L2003E2 PHD TSC CLC ADC #$FFF4 TCS TCD LDA $1A ORA $1C BNE L20042B PHY PHY LDAL L053AD3 PHA LDAL L053AD1 PHA PEI $14 PEI $12 JSL L07B8EA PLA STA $05 PLX STX $07 LDA $16 ORA $18 BEQ L200428 PHY PHY PEI $07 PEI $05 JSL L0745B2 PLA PLX CMP $16 BNE L200422 CPX $18 L200422 BEQ L200428 STZ $05 STZ $07 L200428 BRL L2004AC L20042B LDY #$0002 LDA [$1A],Y TAX LDA [$1A] STA $01 STX $03 LDX #$0000 LDA [$01] LDY #$0002 ORA [$01],Y BNE L200444 INX L200444 PHX PEI $14 PEI $12 LDY #$0002 LDA [$01],Y TAX LDA [$01] JSL L033477 BEQ L20045E BVS L20045C EOR #$8000 L20045C BMI L200463 L20045E LDA #$0000 BRA L200466 L200463 LDA #$0001 L200466 ORA $01,S PLX LSR BCC L200472 STZ $05 STZ $07 BRA L2004AC L200472 LDA #$0004 CLC ADC $01 LDX $03 BCC L20047D INX L20047D PHX PHA LDA $12 JSL L150488 TAY BNE L200489 DEX L200489 DEC PHX PHA PEA $0000 PEA $0002 JSL L151137 PLA PLX JSL L150F53 STA $09 STX $0B LDY #$0002 LDA [$09],Y TAX LDA [$09] STA $05 STX $07 L2004AC LDA $05 LDX $07 STA $1E STX $20 LDA $10 STA $1C LDA $0F STA $1B LDA $0D TCD TSC CLC ADC #$001A TCS RTL L2004C6 ENT PHD TSC CLC ADC #$FFFA TCS TCD LDAL L0408E0 STA $01 PLY PLY PLY PLD RTL L2004D9 ENT PHD TSC CLC ADC #$FFA4 TCS TCD STZ $62 PHY JSL L1609EA PLA LSR BCC L2004F6 PEA $083E JSL L0727E0 BRL L20067F L2004F6 PEA $0000 JSL L1609F8 LDA L055327 LDX L055329 PHX PHA JSL L1510B9 PHY PHY JSL L150FF3 PLA STA $43 PLX STX $45 PHY JSL L160A06 PLA BEQ L200520 BRL L20067F L200520 LDX #$0000 LDA #$0001 AND $45 BNE L20052B INX L20052B TXA STA $55 LDA $55 BEQ L20056A LDA L055327 LDX L055329 STA $59 STX $5B LDY #$0002 LDA [$59],Y TAX LDA [$59] CLC ADC #$0018 BCC L20054B INX L20054B STA $09 STX $0B LDA [$09] STA $53 LDA #$0020 ORA [$09] STA [$09] PHY LDA L055327 LDX L055329 PHX PHA JSL L1511B6 PLA STA $57 L20056A PEA ^L051EF0 PEA L051EF0 PEA $0000 JSL L160A14 PEA ^L051F32 PEA L051F32 PHY PHY PEA $0837 JSL L0711EB PEA $00C1 JSL L0313BE PHY PEA $0008 JSL L160A22 PLA LSR BCC L20059C BRL L20065A L20059C PHY PHY JSL L150493 PLA STA $4F PLX STX $51 LDA L05532F LDX L055331 STA $59 STX $5B LDY #$0002 LDA [$59],Y TAX LDA [$59] STA $4B STX $4D PEI $4D PEI $4B JSL L151131 LDA #$0008 CLC ADC $4B LDX $4D BCC L2005D1 INX L2005D1 PHX PHA JSL L15123D PEI $51 PEI $4F JSL L151131 PHY PHY PEA $0000 PEA $0008 PEA $0010 PEA $07D3 JSL L160A30 PLA STA $47 PLX STX $49 LDA $47 ORA $49 BEQ L20065A LDY #$0002 LDA [$47],Y TAX LDA [$47] STA $05 STX $07 LDA #$0001 LDX #$0000 STA [$05] TXA LDY #$0002 STA [$05],Y LDA L055027 LDX L055029 LDY #$0004 STA [$05],Y INY INY TXA STA [$05],Y PEA ^L051EF0 PEA L051EF0 TDC CLC ADC #$000D PEA $0000 PHA JSL L160A3E PHY TDC CLC ADC #$000D PEA $0000 PHA PEI $49 PEI $47 PEA $0000 JSL L200EF9 PLA STA $62 PEI $49 PEI $47 JSL L07185A L20065A LDA $55 BEQ L20067F LDA L055327 LDX L055329 STA $59 STX $5B LDY #$0002 LDA [$59],Y TAX LDA [$59] CLC ADC #$0018 BCC L200677 INX L200677 STA $01 STX $03 LDA $53 STA [$01] L20067F PEA $000B JSL L160A4C TSC CLC ADC #$005C TCS PLD RTL L20068E ENT PHD TSC CLC ADC #$FFBE TCS TCD JSL L09AFB1 LDA #$0003 STA $3D STZ $3B STZ $4E PHY PEI $3D PEA $0000 PEA $0000 JSL L160A5A PLA LSR BCS L2006B7 BRL L20075C L2006B7 PHY PHY JSL L150FF3 PLA STA $01 PLX STX $03 PHY JSL L160A06 PLA BEQ L2006CE BRL L20075C L2006CE LDAL L051F16 PHA PEA ^L040823 PEA L040823 PLY PLX TSC CLC ADC #$FFFF TCS PEA $0000 INC PHA PHX PHY PEA $0001 JSL L0313BE PEA $0001 JSL L1511F2 PLA LSR BCS L2006FF LDA #$0004 STA $3B L2006FF LDAL L051F22 BEQ L20070D LDA #$0008 CLC ADC $3B STA $3B L20070D LDAL L051FF3 BEQ L20071B LDA #$0010 CLC ADC $3B STA $3B L20071B LDA $3B BEQ L200732 PHY PEI $3B PEA $0000 PEA $0000 JSL L160A5A PLA LSR BCS L200732 BRA L20075C L200732 PEA ^L051EF0 PEA L051EF0 TDC CLC ADC #$0005 PEA $0000 PHA JSL L160A3E PHY TDC CLC ADC #$0005 PEA $0000 PHA PEI $4C PEI $4A PEI $48 JSL L200EF9 PLA STA $4E L20075C LDA $3B CLC ADC $3D PHA JSL L160A4C LDA $46 STA $4C LDA $45 STA $4B LDA $43 TCD TSC CLC ADC #$004A TCS RTL L200778 PHD TSC CLC ADC #$FFFC TCS TCD LDA #$00A3 CLC ADC $0A LDX $0C BCC L20078B INX L20078B PHX PHA JSL L150FF9 LDA #$00A3 CLC ADC $0A LDX $0C BCC L20079C INX L20079C PHX PHA LDY #$00B1 LDA [$0A],Y PHA DEY DEY LDA [$0A],Y PHA JSL L160A68 LDY #$00CB LDA [$0A],Y PHA LDA #$00A3 CLC ADC $0A LDX $0C BCC L2007BE INX L2007BE PHX PHA JSL L160A76 LDA $08 STA $0C LDA $07 STA $0B LDA $05 TCD PLY PLY PLY PLY PLY RTL L2007D5 PHD TSC CLC ADC #$FCEC TCS ADC #$0221 TCD LDA #$00A3 CLC ADC $F8 LDX $FA BCC L2007EB INX L2007EB PHX PHA JSL L150FF9 LDA #$00A3 CLC ADC $F8 LDX $FA BCC L2007FC INX L2007FC PHX PHA LDY #$00B1 LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA JSL L2002AF LDY #$00CB LDA [$F8],Y PHA LDA #$00A3 CLC ADC $F8 LDX $FA BCC L20081E INX L20081E PHX PHA JSL L160A76 LDY #$00FA LDA [$F8],Y TAX DEY DEY LDA [$F8],Y CLC ADC #$0034 BCC L200835 INX L200835 STA $EF STX $F1 LDA [$EF] BNE L200840 BRL L200924 L200840 LDAL L20006F PHA LDAL L20006D PHA JSL L1609CE TDC CLC ADC #$00DF PEA $0000 PHA JSL L150178 TDC CLC ADC #$00E7 PEA $0000 PHA LDA #$00A3 CLC ADC $F8 LDX $FA BCC L20086F INX L20086F PHX PHA PEA $0008 JSL L0313BE LDA $EB STA $E7 LDA $DF CLC ADC $EB CLC ADC $E1 CLC ADC $E5 INC STA $EB TDC CLC ADC #$00E7 PEA $0000 PHA JSL L150FF9 PEA $0000 TDC CLC ADC #$FFDF PHA PEA $0000 TDC CLC ADC #$FDDF PHA LDY #$00B1 LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA JSL L07AA4B PEA $0100 JSL L0313BE LDA #$00FF LDX #$FFDF AND $00,X BNE L20090A PEA $0000 TDC CLC ADC #$FFDF PHA PHY PHY PEA $083A JSL L0711EB PEA $0000 TDC CLC ADC #$FECB PHA LDY #$00B1 LDA [$F8],Y PHA DEY DEY LDA [$F8],Y PHA JSL L07346C PEA $0000 TDC CLC ADC #$FEDF PHA PEA $0002 JSL L1509CE PEA $0100 JSL L0313BE L20090A PEI $E9 LDA $DF CLC ADC $E7 INC PHA JSL L1510C5 PEA $0000 TDC CLC ADC #$FFDF PHA JSL L150592 L200924 LDA $F6 STA $FA LDA $F5 STA $F9 LDA $F3 TCD TSC CLC ADC #$031A TCS RTL L200936 PHD TSC CLC ADC #$FFF4 TCS TCD LDY #$00FA LDA [$12],Y TAX DEY DEY LDA [$12],Y STA $01 STX $03 LDY #$00D5 LDA [$12],Y JSL L150488 PHX PHA LDY #$00C9 LDA [$12],Y TAX DEY DEY LDA [$12],Y JSL L1512A5 PHX PHA LDY #$00D3 LDA [$12],Y JSL L150488 PHX PHA JSL L1503B9 PLY PLY PLY PLY STX $09 ORA $09 BNE L2009CD LDA #$0093 CLC ADC $12 LDX $14 BCC L20098B INX L20098B PHX PHA LDA #$0020 CLC ADC $01 LDX $03 BCC L200998 INX L200998 PHX PHA PEA $0008 JSL L0313BE LDA #$009B CLC ADC $12 LDX $14 BCC L2009AC INX L2009AC PHX PHA LDA #$0093 CLC ADC $12 LDX $14 BCC L2009B9 INX L2009B9 PHX PHA PEA $0008 JSL L0313BE LDA #$0001 LDY #$00CB STA [$12],Y BRL L200B53 L2009CD LDY #$00D5 LDA [$12],Y JSL L150488 PHX PHA LDY #$00C9 LDA [$12],Y TAX DEY DEY LDA [$12],Y JSL L1512A5 INC BNE L2009EA INX L2009EA PHX PHA LDY #$00D3 LDA [$12],Y JSL L150488 PHX PHA JSL L1503B9 PLY PLY PLY PLY STA $07 LDAL L051F16 SEC SBC #$0001 BPL L200A0E BRL L200B53 L200A0E CMP #$0006 BMI L200A16 BRL L200B53 L200A16 ASL TAX LDAL L200A1E,X PHA RTS L200A1E DA L200A2A-1 DA L200ABB-1 DA L200A2A-1 DA L200ABB-1 DA L200A2A-1 DA L200ABB-1 L200A2A PEI $07 LDY #$0030 LDA [$01],Y PHA JSL L150318 PLX PLX STA $05 LDA $05 BNE L200A45 LDY #$0030 LDA [$01],Y STA $05 L200A45 LDA $05 DEC BEQ L200A6C LDA #$009B CLC ADC $12 LDX $14 BCC L200A55 INX L200A55 PHX PHA LDY #$002A LDA [$01],Y LDY #$002C CLC ADC [$01],Y PHA PEA $0000 JSL L1501AF BRA L200AB8 L200A6C LDA #$0093 CLC ADC $12 LDX $14 BCC L200A77 INX L200A77 PHX PHA PEA $0000 LDY #$0028 LDA [$01],Y LDY #$002E CLC ADC [$01],Y PHA JSL L1501AF LDA #$009B CLC ADC $12 LDX $14 BCC L200A97 INX L200A97 PHX PHA LDA #$0093 CLC ADC $12 LDX $14 BCC L200AA4 INX L200AA4 PHX PHA PEA $0008 JSL L0313BE LDY #$00CB LDA [$12],Y INC LDY #$00CB STA [$12],Y L200AB8 BRL L200B53 L200ABB PEI $07 LDY #$0032 LDA [$01],Y PHA JSL L150318 PLX PLX STA $05 LDA $05 BNE L200AD6 LDY #$0032 LDA [$01],Y STA $05 L200AD6 LDA $05 DEC BEQ L200B08 LDA #$009B CLC ADC $12 LDX $14 BCC L200AE6 INX L200AE6 PHX PHA PEA $0000 LDY #$0028 LDA [$01],Y LDY #$002E CLC ADC [$01],Y PHA JSL L1501AF LDY #$00CB LDA [$12],Y INC LDY #$00CB STA [$12],Y BRA L200B51 L200B08 LDA #$0093 CLC ADC $12 LDX $14 BCC L200B13 INX L200B13 PHX PHA LDY #$002A LDA [$01],Y LDY #$002C CLC ADC [$01],Y PHA PEA $0000 JSL L1501AF LDA #$009B CLC ADC $12 LDX $14 BCC L200B33 INX L200B33 PHX PHA LDA #$0093 CLC ADC $12 LDX $14 BCC L200B40 INX L200B40 PHX PHA PEA $0008 JSL L0313BE LDA #$0001 LDY #$00CB STA [$12],Y L200B51 BRA L200B53 L200B53 LDA #$00A3 CLC ADC $12 LDX $14 BCC L200B5E INX L200B5E PHX PHA LDA #$009B CLC ADC $12 LDX $14 BCC L200B6B INX L200B6B PHX PHA PEA $0008 JSL L0313BE LDA #$00A3 CLC ADC $12 LDX $14 BCC L200B7F INX L200B7F PHX PHA LDA #$00A3 CLC ADC $12 LDX $14 BCC L200B8C INX L200B8C CLC ADC #$0002 BCC L200B93 INX L200B93 STA $09 STX $0B LDA #$0001 AND [$09] EOR #$FFFF INC PHA PEA $0000 JSL L1501AF LDA $10 STA $14 LDA $0F STA $13 LDA $0D TCD TSC CLC ADC #$0012 TCS RTL L200BBA PHD TSC CLC ADC #$FFF4 TCS TCD LDA #$0001 STA $26 LDY #$0002 LDA [$1E],Y PHA LDA [$1E] PHA LDY #$0002 LDA [$22],Y TAX LDA [$22] JSL L1512A5 INC BNE L200BE0 INX L200BE0 STA $01 STX $03 LDA $16 ORA $18 BNE L200BF2 LDA $01 LDX $03 STA $16 STX $18 L200BF2 LDA $1A ORA $1C BNE L200C02 LDA #$0001 LDX #$0000 STA $1A STX $1C L200C02 PEI $18 PEI $16 LDA $1A LDX $1C JSL L033477 BVS L200C13 EOR #$8000 L200C13 BMI L200C2D LDA $16 LDX $18 STA $05 STX $07 LDA $1A LDX $1C STA $16 STX $18 LDA $05 LDX $07 STA $1A STX $1C L200C2D PEI $1C PEI $1A LDA $01 LDX $03 JSL L033477 BEQ L200C42 BVS L200C40 EOR #$8000 L200C40 BMI L200CB0 L200C42 PEI $18 PEI $16 LDA $01 LDX $03 JSL L033477 BEQ L200C5F BVS L200C55 EOR #$8000 L200C55 BPL L200C5F LDA $01 LDX $03 STA $16 STX $18 L200C5F LDA $22 LDX $24 STA $09 STX $0B LDY #$0002 LDA [$22],Y TAX LDA [$22] PEI $1C PEI $1A JSL L150F53 TAY BNE L200C7B DEX L200C7B DEC STA [$09] TXA LDY #$0002 STA [$09],Y LDA $1E LDX $20 STA $09 STX $0B LDY #$0002 LDA [$22],Y TAX LDA [$22] PEI $18 PEI $16 JSL L150F53 PHX PHA LDA $1A LDX $1C JSL L1512A5 STA [$09] TXA LDY #$0002 STA [$09],Y STZ $26 L200CB0 LDA $10 STA $24 LDA $0F STA $23 LDA $0D TCD TSC CLC ADC #$0022 TCS RTL L200CC2 PHD TSC CLC ADC #$FEDC TCS ADC #$003D TCD PEA $0000 TDC CLC ADC #$FFCF PHA PEI $F2 PEI $F0 PEA $0008 JSL L0313BE LDX #$FFD5 LDA $00,X LDX #$FFD1 SEC SBC $00,X SEC SBC #$0240 PHA PEA $0002 JSL L1500F5 PLX PLX STA $E1 LDA #$FFFE AND $E1 LDX #$FFD1 STA $00,X LDA #$0240 LDX #$FFD1 CLC ADC $00,X LDX #$FFD5 STA $00,X PEA $0000 TDC CLC ADC #$FFCF PHA JSL L150FF9 STZ $DF LDX #$FFCF LDA $00,X STA $E1 LDA $F8 LDX $FA TXY LDX #$FFCB STA $00,X TYA STA $02,X LDX #$FFCB LDA $02,X TAY LDA $00,X TYX CLC ADC #$0010 BCC L200D47 INX L200D47 STA $E3 STX $E5 LDA #$00FF AND [$E3] SEC SBC #$0000 BPL L200D59 BRL L200DEB L200D59 BNE L200D5E BRL L200DEB L200D5E LDA $EC LDX $EE PEA $FFFF PEA $FFFB JSL L150F53 PHX PHA LDX #$FFCB LDA $02,X TAY LDA $00,X TYX CLC ADC #$0010 BCC L200D7E INX L200D7E PHX PHA PEA $0000 TDC CLC ADC #$FFD7 PHA JSL L160A84 LDX #$FFCB LDA $02,X TAY LDA $00,X TYX CLC ADC #$0006 BCC L200D9D INX L200D9D STA $E3 STX $E5 LDY #$0002 LDA [$E3],Y TAX LDA [$E3] PHX PHA JSL L1609CE PHY LDX #$FFCB LDA $02,X TAY LDA $00,X TYX CLC ADC #$0006 BCC L200DC0 INX L200DC0 PHX PHA PEA $0081 JSL L160A92 PLA STA $DF LDX #$FFCB LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L200DDC INX L200DDC STA $E3 STX $E5 LDA [$E3] BEQ L200DEB LDA $DF CLC ADC $E1 STA $E1 L200DEB LDA #$0010 CLC ADC $F4 LDX $F6 BCC L200DF6 INX L200DF6 TXY LDX #$FFC7 STA $00,X TYA STA $02,X TDC CLC ADC #$00D7 PEA $0000 PHA LDX #$FFC7 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L200E18 INX L200E18 STA $E3 STX $E5 LDA [$E3] PHA LDX #$FFC7 LDA $02,X PHA LDA $00,X PHA PLA PLX STA $E3 STX $E5 LDA [$E3] PHA LDX #$FFC7 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0006 BCC L200E41 INX L200E41 STA $E3 STX $E5 LDA [$E3] PHA LDX #$FFC7 LDA $02,X PHA LDA $00,X PHA PLA PLX STA $E3 STX $E5 LDY #$0002 LDA [$F8],Y CLC ADC [$E3] SEC SBC $DF PHA JSL L15100B PEI $F6 PEI $F4 TDC CLC ADC #$00D7 PEA $0000 PHA LDX #$FFD1 LDA $00,X PHA PEI $E1 PEA $0000 JSL L15025A LDA $DF BMI L200EE7 BEQ L200EE7 LDA $F8 LDX $FA TXY LDX #$FFC3 STA $00,X TYA STA $02,X LDX #$FFC3 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L200EA6 INX L200EA6 STA $E3 STX $E5 LDA [$E3] BNE L200EBD LDX #$FFD3 LDA $00,X SEC SBC $DF LDX #$FFCF STA $00,X BRA L200ECA L200EBD LDA $DF LDX #$FFCF CLC ADC $00,X LDX #$FFD3 STA $00,X L200ECA LDX #$FFD1 LDA $00,X PHA LDX #$FFD3 LDA $00,X PHA JSL L1510C5 PEA $0000 TDC CLC ADC #$FFD7 PHA JSL L150592 L200EE7 LDA $EA STA $FA LDA $E9 STA $F9 LDA $E7 TCD TSC CLC ADC #$0136 TCS RTL L200EF9 PHD TSC CLC ADC #$FDF6 TCS ADC #$011D TCD PHY JSL L160AA0 PLA LSR BCC L200F39 LDA L055327 LDX L055329 STA $E9 STX $EB LDY #$0002 LDA [$E9],Y TAX LDA [$E9] CLC ADC #$0050 BCC L200F26 INX L200F26 CLC ADC #$0006 BCC L200F2D INX L200F2D STA $E9 STX $EB SEP #$20 LDA #$80 STA [$E9] REP #$20 L200F39 LDA L055327 LDX L055329 STA $E9 STX $EB LDY #$0002 LDA [$E9],Y TAX LDA [$E9] CLC ADC #$0050 BCC L200F52 INX L200F52 CLC ADC #$0006 BCC L200F59 INX L200F59 STA $E9 STX $EB LDA #$00FF AND [$E9] AND #$00FF CMP #$0080 BEQ L200F6F LDA #$0000 BRA L200F72 L200F6F LDA #$0001 L200F72 STA $E3 PHY LDA L055327 LDX L055329 PHX PHA PEA $0000 JSL L160AAE PLA STA $E1 TDC CLC ADC #$0037 PEA $0000 PHA JSL L0940E5 PHY PHY JSL L150493 PLA STA $B7 PLX STX $B9 LDAL L051F16 PHA PEA ^L040825 PEA L040825 PLY PLX TSC CLC ADC #$FFFF TCS PEA $0000 INC PHA PHX PHY PEA $0001 JSL L0313BE PEA $0001 JSL L1511F2 PLA EOR #$0001 STA $E7 LDA #$0001 STA L054FB3 LDA $E7 BNE L200FDB BRL L20109A L200FDB STZ $E5 LDA #$0001 STA $D5 L200FE2 PEI $E5 PHY LDA L055323 LDX L055325 STA $E9 STX $EB LDY #$0002 LDA [$E9],Y TAX LDA [$E9] PHX PHA LDA $D5 JSL L150488 PEA $0000 PEA $001C JSL L150D50 PLA PLX JSL L150F53 CLC ADC #$0006 BCC L201016 INX L201016 CLC ADC #$0004 BCC L20101D INX L20101D PHX PHA JSL L1500E3 PLA ORA $01,S PLX STA $E5 LDA #$001F CMP $D5 BEQ L201034 INC $D5 BRA L200FE2 L201034 PEI $E5 PHY PEA ^L051EF8 PEA L051EF8 JSL L1500E3 PLA ORA $01,S PLX LSR BCS L201052 PEA $130B JSL L1609F8 BRL L20166B L201052 LDAL L051F08 TAX LDAL L051F06 STA $AB STX $AD PHY PHY PEI $AD PEI $AB JSL L0742B3 PLA PLX CMP #$FFFF BNE L201073 CPX #$FFFF L201073 BNE L201098 LDAL L053AC7 TAX LDAL L053AC5 STA $AB STX $AD PHY PEA $0857 JSL L0726F9 PLA LSR BCS L201098 PEA $0080 JSL L1609F8 BRL L20166B L201098 BRA L20109E L20109A STZ $AB STZ $AD L20109E PEI $F6 PEI $F4 PEI $AD PEI $AB TDC CLC ADC #$00C7 PEA $0000 PHA TDC CLC ADC #$00C3 PEA $0000 PHA JSL L160ABC LDA $C3 ORA $C5 BNE L2010CC PEA $130A JSL L1609F8 BRL L20166B L2010CC LDA $F2 BEQ L201139 PHY TDC CLC ADC #$00C7 PEA $0000 PHA TDC CLC ADC #$00C3 PEA $0000 PHA LDAL L051F1A PHA LDAL L051F18 PHA LDAL L051F1E PHA LDAL L051F1C PHA PEA $0000 PHD JSL L200BBA PLA LSR BCC L201139 PHY PEA $0859 JSL L0726F9 PLA LSR BCC L20112F PEI $F6 PEI $F4 PEI $AD PEI $AB TDC CLC ADC #$00C7 PEA $0000 PHA TDC CLC ADC #$00C3 PEA $0000 PHA JSL L160ABC BRA L201139 L20112F PEA $0080 JSL L1609F8 BRL L20166B L201139 LDY #$0030 LDA [$F8],Y PHA LDY #$0032 LDA [$F8],Y JSL L150BEE PLA STA $D3 LDA $D3 BNE L201159 PEA $130C JSL L1609F8 BRL L20166B L201159 PEI $C5 PEI $C3 LDA $C7 LDX $C9 JSL L1512A5 INC BNE L201169 INX L201169 STA $CD LDA $D3 SEC SBC #$0001 BEQ L201198 BVS L201178 EOR #$8000 L201178 BPL L201198 PHY PEA $0001 LDA $CD DEC PHA JSL L072FA6 PLA STA $DB PEI $DB PEI $D3 JSL L1500F5 PLX PLX INC STA $DB BRA L20119C L201198 LDA $CD STA $DB L20119C LDA $DB STA $D9 LDA #$0001 STA $DD LDA $DD JSL L150488 STA $BF STX $C1 LDA $DB JSL L150488 STA $BB STX $BD LDA L055327 LDX L055329 STA $E9 STX $EB LDY #$0002 LDA [$E9],Y TAX LDA [$E9] CLC ADC #$0050 BCC L2011D2 INX L2011D2 TXY LDX #$FEF7 STA $00,X TYA STA $02,X PHY TDC CLC ADC #$00BF PEA $0000 PHA TDC CLC ADC #$00BB PEA $0000 PHA LDX #$FEF7 LDA $02,X PHA LDA $00,X PHA PLA PLX STA $E9 STX $EB LDA [$E9] JSL L150488 PHX PHA LDX #$FEF7 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L201215 INX L201215 STA $E9 STX $EB LDA [$E9] JSL L150488 PHX PHA PEA $0000 PHD JSL L200BBA PLA LSR BCC L201237 PEA $130D JSL L1609F8 BRL L20166B L201237 LDX #$FEF7 LDA $02,X TAY LDA $00,X TYX STA $E9 STX $EB LDA #$0001 STA [$E9] LDX #$FEF7 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L201259 INX L201259 STA $E9 STX $EB LDA #$03E7 STA [$E9] LDX #$FEF7 LDA $02,X TAY LDA $00,X TYX CLC ADC #$0008 BCC L201272 INX L201272 STA $E9 STX $EB LDA #L160ACA LDX #^L160ACA STA [$E9] TXA LDY #$0002 STA [$E9],Y STZ L055341 STZ L055343 PHY LDA L055327 LDX L055329 PHX PHA JSL L1511B6 PLA STA $E5 LDA $BF STA $DD LDA $BB STA $DB LDA $DD STA $DF PEA $0000 TDC CLC ADC #$FFFB PHA JSL L160AD8 PEA $0000 JSL L1609F8 PEA $0000 TDC CLC ADC #$FEFB PHA JSL L160AE6 LDA $E3 BNE L2012EC LDA #$0000 STAL L0551AD PHY PHY LDA L055327 LDX L055329 PHX PHA PEA $0000 PEA $0000 JSL L151287 PLA STA $B3 PLX STX $B5 L2012EC JSL L160AF4 JSL L201997 PHY JSL L160A06 PLA BEQ L2012FF BRL L2015E3 L2012FF PEA $0000 PEA $0001 PEI $DF JSL L2016A8 LDA $D9 CMP $DF BNE L201331 PEI $CD PEI $D3 JSL L150318 PLX PLX STA $D7 LDA $D7 BEQ L201329 LDA $D7 ASL ASL STA $D7 BRA L20132F L201329 LDA $D3 ASL ASL STA $D7 L20132F BRA L201337 L201331 LDA $D3 ASL ASL STA $D7 L201337 LDA $DF DEC PEI $D3 JSL L150BEE PLA LDX #$0000 BIT #$8000 BEQ L20134A DEX L20134A PHX PHA LDX $C9 LDA $C7 BNE L201353 DEX L201353 DEC JSL L150F53 STA $D1 STZ $CF LDA $E3 BEQ L201381 LDA #$0000 STAL L0551AD PHY PHY LDA L055327 LDX L055329 PHX PHA PEA $0000 PEA $0000 JSL L151287 PLA STA $B3 PLX STX $B5 L201381 PEI $B5 PEI $B3 PEA $0000 PEA $0000 JSL L1511A4 JSL L160AF4 JSL L160ACA PHY JSL L160A06 PLA BEQ L2013A2 BRL L201530 L2013A2 PEI $B5 PEI $B3 JSL L151131 JSL L160B02 PHY JSL L15028A PLA ORA #$0004 PHA JSL L150284 PEA $0000 TDC CLC ADC #$FFFB PHA PEA $0000 TDC CLC ADC #$FEE3 PHA LDA $DF JSL L150488 PHX PHA JSL L07346C PEA $0005 JSL L0313BE LDAL L051F22 BEQ L201416 PEA ^L051F22 PEA L051F22 LDA L05532F LDX L055331 STA $E9 STX $EB LDY #$0002 LDA [$E9],Y TAX LDA [$E9] PHX PHA LDA #$0008 CLC ADC $F8 LDX $FA BCC L20140C INX L20140C PHX PHA PEA $0000 PHD JSL L200CC2 L201416 LDA $CF INC STA $CF JSL L160ACA PHY JSL L160A06 PLA BEQ L20142A BRL L201530 L20142A LDA $CF DEC ASL ASL INC PHA PEI $D7 PEA $0000 JSL L2016A8 LDA $CF CLC ADC $D1 STA $D5 PEA $0000 PHD JSL L200936 JSL L160ACA PHY JSL L160A06 PLA BEQ L201458 BRL L201530 L201458 LDA $CF DEC ASL ASL INC INC PHA PEI $D7 PEA $0000 JSL L2016A8 PHY PHY PEI $F6 PEI $F4 PEI $AD PEI $AB LDA $D5 JSL L150488 PHX PHA JSL L2003E2 PLA STA $AF PLX STX $B1 LDA $E7 BEQ L201493 PEA $0000 PHD JSL L200778 BRA L20149B L201493 PEA $0000 PHD JSL L2007D5 L20149B PEI $C5 PEI $C3 LDA $D5 JSL L150488 JSL L033477 BNE L2014BA PEA $0001 PEA $0001 PEA $0000 JSL L2016A8 BRA L2014E1 L2014BA JSL L160ACA PHY JSL L160A06 PLA BNE L201530 LDA $CF DEC ASL ASL INC INC INC PHA PEI $D7 PEA $0000 JSL L2016A8 LDA $D3 CMP $CF BEQ L2014E1 BRL L201416 L2014E1 LDAL L051FF3 BEQ L201516 PEA ^L051FF3 PEA L051FF3 LDA L05532B LDX L05532D STA $E9 STX $EB LDY #$0002 LDA [$E9],Y TAX LDA [$E9] PHX PHA LDA #$0010 CLC ADC $F8 LDX $FA BCC L20150C INX L20150C PHX PHA PEA $0000 PHD JSL L200CC2 L201516 JSL L160ACA PHY JSL L160A06 PLA BNE L201530 LDA $CF ASL ASL PHA PEI $D7 PEA $0000 JSL L2016A8 L201530 PEI $B5 PEI $B3 JSL L15149C LDA $E3 BEQ L2015AA PEI $B5 PEI $B3 JSL L1513E8 PHY JSL L160A06 PLA BNE L2015A3 PHY PHY JSL L15042E LDA #$2800 LDX #$0000 JSL L033477 BEQ L201565 BVS L201563 EOR #$8000 L201563 BMI L201569 L201565 JSL L15059E L201569 PHY PHY JSL L15042E LDA #$2800 LDX #$0000 JSL L033477 BEQ L20159C BVS L201580 EOR #$8000 L201580 BPL L20159C LDA L055327 LDX L055329 PHX PHA PEA $0000 PEA $0000 PEA $0000 PEA $0000 JSL L1505CE BRA L2015A3 L20159C PEA $1309 JSL L1609F8 L2015A3 LDA #$0001 STAL L0551AD L2015AA JSL L160AF4 LDA $DF INC STA $DF LDA $DF SEC SBC $DB BEQ L2015C1 BVS L2015BF EOR #$8000 L2015BF BMI L2015C6 L2015C1 LDA #$0000 BRA L2015C9 L2015C6 LDA #$0001 L2015C9 PHA PHY JSL L160A06 PLA BNE L2015D7 LDA #$0000 BRA L2015DA L2015D7 LDA #$0001 L2015DA ORA $01,S PLX LSR BCS L2015E3 BRL L2012FF L2015E3 LDA $E3 BNE L2015F6 PEI $B5 PEI $B3 JSL L1513E8 LDA #$0001 STAL L0551AD L2015F6 JSL L160AF4 LDA L055341 LDX L055343 PHX PHA JSL L072634 STZ L055341 STZ L055343 LDA L055027 LDX L055029 STA $AF STX $B1 LDA L05501F LDX L055021 STA $AB STX $AD LDA L055027 LDX L055029 CMP $39 BNE L20162C CPX $3B L20162C BEQ L20163F PHY TDC CLC ADC #$0037 PEA $0000 PHA JSL L0953DD PLA STA $E5 L20163F LDA L055027 LDX L055029 CMP $AF BNE L20164B CPX $B1 L20164B BEQ L201650 STZ L055139 L201650 LDA L05501F LDX L055021 CMP $AB BNE L20165C CPX $AD L20165C BEQ L201661 STZ L055135 L201661 PEA ^L053259 PEA L053259 JSL L085216 L20166B STZ L054FB3 PHY JSL L160A06 PLA BEQ L20167B LDA #$0000 BRA L20167E L20167B LDA #$0001 L20167E STA $FC PEI $B9 PEI $B7 JSL L151131 LDA L055327 LDX L055329 PHX PHA PEI $E1 JSL L160B10 LDA $F0 STA $FA LDA $EF STA $F9 LDA $ED TCD TSC CLC ADC #$0216 TCS RTL L2016A8 PHD TSC CLC ADC #$FDB9 TCS ADC #$0156 TCD PHY PHY JSL L150493 PLA STA $E7 PLX STX $E9 LDA L055341 LDX L055343 PHX PHA JSL L151131 LDA $F6 BNE L2016D2 BRL L201775 L2016D2 TDC CLC ADC #$00D2 PEA $0000 PHA PEA $0000 TDC CLC ADC #$FEBA PHA LDA $F6 JSL L150488 PHX PHA JSL L07346C PEA $0005 JSL L0313BE PEA $0000 TDC CLC ADC #$FFD2 PHA PHY PHY PEA $083C JSL L0711EB TDC CLC ADC #$00D2 PEA $0000 PHA PHY PHY PEA $083D JSL L0711EB PEA $0000 TDC CLC ADC #$FED2 PHA PEA $0003 JSL L1509CE PEA $0100 JSL L0313BE TDC CLC ADC #$00DF PEA $0000 PHA PHY PHY LDA L055341 LDX L055343 PHX PHA PEA $0003 JSL L073032 PEA $0008 JSL L0313BE PEI $E1 PEI $E3 JSL L1510C5 TDC CLC ADC #$00DF PEA $0000 PHA JSL L15123D PEA $0000 TDC CLC ADC #$FFD2 PHA JSL L150592 L201775 PHY PHY LDA L055341 LDX L055343 PHX PHA PEA $0001 JSL L073032 LDX #$FECE PLA STA $00,X PLA STA $02,X LDA $FA BNE L201796 BRL L201873 L201796 PHY PHY PEA $0000 TDC CLC ADC #$FEAC PHA PEA $0000 TDC CLC ADC #$FEB8 PHA LDA $FA LDX #$FECC STA $00,X PEA $0000 TDC CLC ADC #$FECC PHA PEA $0000 TDC CLC ADC #$FEC2 PHA PEA $040E _SANEFP816 PEA $0000 TDC CLC ADC #$FEC2 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEB6 PHA LDA $F8 LDX #$FEB6 STA $00,X PEA $0000 TDC CLC ADC #$FEB8 PHA PEA $0406 _SANEFP816 PEA $0000 TDC CLC ADC #$FEB8 PHA PEA $000A JSL L0313BE PEA $0000 TDC CLC ADC #$FEAA PHA LDX #$FECE LDA $02,X TAY LDA $00,X TYX CLC ADC #$0006 BCC L201829 INX L201829 STA $ED STX $EF LDA [$ED] PHA LDX #$FECE LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L201840 INX L201840 STA $ED STX $EF PLA SEC SBC [$ED] LDX #$FEAA STA $00,X PEA $0000 TDC CLC ADC #$FEAC PHA PEA $0404 _SANEFP816 PEA $0000 TDC CLC ADC #$FEAC PHA JSL L150018 PLA PLX STA $EB BRA L201875 L201873 STZ $EB L201875 TDC CLC ADC #$00DF PEA $0000 PHA LDX #$FECE LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L20188E INX L20188E STA $ED STX $EF LDA [$ED] INC INC PHA LDX #$FECE LDA $02,X PHA LDA $00,X PHA PLA PLX STA $ED STX $EF LDA [$ED] INC PHA LDX #$FECE LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L2018BA INX L2018BA STA $ED STX $EF LDA $EB CLC ADC [$ED] DEC PHA LDX #$FECE LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L2018D5 INX L2018D5 STA $ED STX $EF LDA [$ED] DEC PHA JSL L15100B TDC CLC ADC #$00D7 PEA $0000 PHA LDX #$FECE LDA $02,X TAY LDA $00,X TYX CLC ADC #$0002 BCC L2018FA INX L2018FA STA $ED STX $EF LDA $EB CLC ADC [$ED] INC INC PHA LDX #$FECE LDA $02,X PHA LDA $00,X PHA PLA PLX STA $ED STX $EF LDA [$ED] INC PHA LDX #$FECE LDA $02,X TAY LDA $00,X TYX CLC ADC #$0006 BCC L201929 INX L201929 STA $ED STX $EF LDA [$ED] DEC DEC PHA LDX #$FECE LDA $02,X TAY LDA $00,X TYX CLC ADC #$0004 BCC L201942 INX L201942 STA $ED STX $EF LDA [$ED] DEC PHA JSL L15100B PEA $4444 JSL L081DD8 TDC CLC ADC #$00DF PEA $0000 PHA JSL L15037D PEA $FFFF JSL L081DD8 TDC CLC ADC #$00D7 PEA $0000 PHA JSL L15037D PEA $0000 JSL L081DD8 PEI $E9 PEI $E7 JSL L151131 LDA $F4 STA $FA LDA $F3 STA $F9 LDA $F1 TCD TSC CLC ADC #$024F TCS RTL L201997 PHD TSC CLC ADC #$FFF8 TCS TCD PHY PHY JSL L150493 PLA STA $01 PLX STX $03 PHY PHY PEA $40D8 JSL L072834 PLA STA L055341 PLA STA L055343 LDA L055341 LDX L055343 PHX PHA JSL L15102F LDA L055341 LDX L055343 PHX PHA JSL L1511C8 LDA L055341 LDX L055343 PHX PHA JSL L151131 PEA $0002 PEA $0001 JSL L151083 LDA L055341 LDX L055343 PHX PHA JSL L1506B3 LDA L055341 LDX L055343 PHX PHA JSL L1517CD LDA L055341 LDX L055343 PHX PHA JSL L1506AD JSL L160ACA PEI $03 PEI $01 JSL L151131 PLY PLY PLY PLY PLD RTL