*---------------------------------------------------------* * Disassembled with The Flaming Bird Disassembler * * (c) Phoenix corp. 1992,93 - All rights reserved * *---------------------------------------------------------* REL mx %00 use MAIN2.X.S use MAIN2.E.S L070000 JSL L070AD8 JSL L070009 RTL L070009 PHP L07000A REP #$20 SEP #$20 LDA #$20 STA L024328 JSL L120BFD STZ L02444C STZ L024484 STZ L024486 STZ L024488 STZ L02448A REP #$20 LDA #$4040 STA L02448C STA L02448E SEP #$20 LDA #$61 STA $05 LDA #$40 STA $04 JSL L1809AE REP #$20 LDA $04 PHA LDA $00 STA $04 PLA STA $00 LDA $01 AND #$00FF CLC ADC #L0206A8 STA $00 SEP #$20 LDA ($00) STA $05 STZ $00 LDA $04 STA $01 REP #$20 LDA $00 STA L025A2E STA L025A32 STZ L025A26 STZ L025A2A SEP #$20 LDA $05 STA $01 REP #$20 LDA $00 STA L025A30 STA L025A34 STZ L025A28 STZ L025A2C SEP #$20 LDA $04 JSL L070BCF REP #$20 LDA $00 STA L025A16 SEP #$20 LDA $05 SEC SBC #$20 JSL L070BCF REP #$20 LDA $00 STA L025A18 SEP #$20 LDA #$FF SEC SBC $04 JSL L070BCF REP #$20 LDA $00 STA L025A1E SEP #$20 LDA #$E7 SEC SBC $05 JSL L070BCF REP #$20 LDA $00 STA L025A20 SEP #$20 LDA #$01 STA L024426 REP #$20 LDA #$0020 L0700D9 PHA LDA L025A2E STA $00 LDA L025A16 STA $04 SEC LDA $00 SBC $04 STA L025A2E LDA L025A30 STA $00 LDA L025A18 STA $04 LDA $00 SEC SBC $04 STA L025A30 LDA L025A32 STA $00 LDA L025A1E STA $04 LDA $00 CLC ADC $04 STA L025A32 LDA L025A34 STA $00 LDA L025A20 STA $04 LDA $00 CLC ADC $04 STA L025A34 LDA #$0005 STA L023FEC LDA L025A2E STA L025A1A LDA L025A32 STA L025A22 LDA L025A30 STA L025A1C LDA L025A34 STA L025A24 JSL L070BDD REP #$20 LDA L025A26 BEQ L07016D LDA #$0000 STA L023FEC LDA L025A26 STA L025A1A LDA L025A2A STA L025A22 LDA L025A28 STA L025A1C LDA L025A2C STA L025A24 JSL L070BDD L07016D SEP #$20 LDA L025A2F INC STA $00 CLC ADC L025A17 STA $04 LDA L025A31 INC STA $01 LDA L025A35 DEC STA $05 LDA #$00 STA L023362 STA L023363 JSL L0F2798 LDA L025A33 DEC STA $04 SEC SBC L025A1F STA $00 LDA L025A31 INC STA $01 LDA L025A35 DEC STA $05 LDA #$00 STA L023362 STA L023363 JSL L0F2798 LDA L025A2F INC STA $00 LDA L025A33 DEC STA $04 LDA L025A31 INC STA $01 CLC ADC L025A19 STA $05 LDA #$00 STA L023362 STA L023363 JSL L0F2798 LDA L025A2F INC STA $00 LDA L025A33 DEC STA $04 LDA L025A35 DEC STA $05 SEC SBC L025A21 STA $01 LDA #$00 STA L023362 STA L023363 JSL L0F2798 REP #$20 LDA L025A2E STA L025A26 LDA L025A32 STA L025A2A LDA L025A30 STA L025A28 LDA L025A34 STA L025A2C LDA #$0001 STA L023C89 JSL L120000 PLA DEC BEQ L07022A JMP L0700D9 L07022A SEP #$20 LDA L024303 CMP #$03 BCC L070238 LDA L024309 BNE L07023A L070238 LDA #$FF L07023A STA L025A3A REP #$20 LDA #L0242FF STA $70 SEP #$20 LDA ($70) LSR ROR $5D LSR ROR $5D LSR ROR $5D LSR ROR $5D STA ($70) LDA $5D LDA L0242FF AND #$0F STA L025A3B LDA L024303 CMP #$03 BCC L07026C LDA L02430B BNE L07026E L07026C LDA #$FF L07026E STA L025A3C REP #$20 LDA #L024301 STA $70 SEP #$20 LDA ($70) LSR ROR $5D LSR ROR $5D LSR ROR $5D LSR ROR $5D STA ($70) LDA $5D LDA L024301 AND #$0F STA L025A3D LDA L0242FD CMP #$14 BCC L0702AE LDA #$FF STA L0242FF STA L024301 REP #$20 LDA #$0F0F STA L025A3A STA L025A3C L0702AE SEP #$20 LDA #$00 STA L024309 STA L02430B XBA LDA L02431B ASL REP #$20 CLC ADC #L0259F0 STA $6C LDA #^L0259F0 STA $6E LDA [$6C] STA $04 JSL L18071A SEP #$20 LDA L0242FD CMP #$03 BEQ L0702F2 CMP #$08 BEQ L0702F2 CMP #$0C BEQ L0702F2 CMP #$10 BEQ L0702F2 CMP #$14 BEQ L0702F2 LDA #$03 STA $60 JMP L070314 L0702F2 LDA L024321 BNE L070301 INC STA L024321 LDA #$03 JSL L18060E L070301 LDA L024319 BNE L070310 INC STA L024319 LDA #$04 JSL L18060E L070310 LDA #$06 STA $60 L070314 LDA L02431B CMP #$06 BCS L070330 INC REP #$20 AND #$00FF PHA JSL L1804EC PLA SEP #$20 STA L02431B DEC $60 BNE L070314 L070330 LDA L024318 BEQ L07033C LDA #$FF STA $61 JMP L07035B L07033C LDA L024317 ASL STA $60 ASL ASL CLC ADC $60 STA $60 LDA L024316 CLC ADC $60 STZ $61 L070351 SEC SBC #$05 BCC L07035B INC $61 JMP L070351 L07035B LDA L02430F STA $68 LDA L024311 CLC ADC $68 STA $68 SEC SBC $61 BCS L0703C9 EOR #$FF INC STA $61 L070372 LDA L02430F STA $68 LDA L024311 STA $69 CLC ADC $68 CMP #$08 BCS L0703C9 LDA $68 CMP $69 BEQ L0703A1 BCS L070396 JSL L180C51 CMP #$B4 BCC L0703A9 JMP L0703B3 L070396 JSL L180C51 CMP #$B4 BCC L0703B3 JMP L0703A9 L0703A1 JSL L180C51 AND #$01 BNE L0703B3 L0703A9 REP #$20 LDA #L02430F STA $6C JMP L0703BA L0703B3 REP #$20 LDA #L024311 STA $6C L0703BA SEP #$20 LDA ($6C) CMP #$04 BCS L070372 INC STA ($6C) DEC $61 BNE L070372 L0703C9 JSL L07070B REP #$20 LDA #$FFFF STA L023D85 LDA #L0201B9 STA $00 LDA #^L0201B9 STA $02 LDA #$2AC6 STA $04 JSL L1806EB LDA #L0201C7 STA $00 LDA #^L0201C7 STA $02 LDA #$3A42 STA $04 JSL L1806EB LDA #L0201D4 STA $00 LDA #^L0201D4 STA $02 LDA #$3BCA STA $04 JSL L1806EB SEP #$20 LDA L02430F INC STA $61 L070416 LDA $61 PHA LDA $61 DEC REP #$20 PHA PHA LDA L025A3A STA $64 PLA SEP #$20 CMP $64 BEQ L070430 CMP $65 BNE L070430 L070430 REP #$20 LDA #$FFFF STA L02437A PLA SEP #$20 JSL L070C2B PLA DEC STA $61 BNE L070416 LDA L024311 INC STA $61 L07044B PHA LDA $61 DEC REP #$20 PHA PHA LDA L025A3C STA $64 PLA SEP #$20 CMP $64 BEQ L070463 CMP $65 BNE L070463 L070463 REP #$20 LDA #$FFFF STA L02437A PLA SEP #$20 JSL L070C8F PLA DEC STA $61 BNE L07044B REP #$20 LDA #$000A STAL L023E18 LDA #$FFFF STA L02437A SEP #$20 LDA #$00 JSL L070C2B LDA #$00 JSL L070CEB LDA #$00 JSL L070C8F LDA #$00 JSL L070DCD LDA #$01 STA L024328 JSL L070EAB L0704AA REP #$20 LDAL L023E20 BEQ L0704CF LDA #$0000 STAL L023E20 LDAL L023E18 DEC STAL L023E18 BNE L0704CF LDA #$000A STAL L023E18 JSL L180D44 L0704CF LDA #$FFFF STA L02437A SEP #$20 LDA L024309 JSL L070C2B JSL L072A47 LDA L024498 BMI L070555 JSL L070EBC STA $68 REP #$20 LDA L025A3A STA $64 SEP #$20 LDA $68 PHP LDA L024309 PLP BEQ L070527 BMI L07050A DEC BPL L07051A LDA L02430F JMP L07051A L07050A INC STA $60 LDA L02430F CMP $60 PHP LDA $60 PLP BCS L07051A LDA #$00 L07051A STA L024309 PHA JSL L290EAB PLA JSL L070CEB L070527 REP #$20 LDA L0201EF INC AND #$0003 STA L0201EF ASL TAX LDA L02437C,X STA L02437A SEP #$20 LDA L024309 JSL L070C2B REP #$20 LDA #$0014 STA L023C89 JSL L120000 SEP #$20 JMP L0704AA L070555 REP #$20 LDA #$5555 STA L02437A SEP #$20 LDA L024309 JSL L070C2B LDA #$06 STA L024328 JSL L070EAB L07056F REP #$20 LDAL L023E20 BEQ L070594 LDA #$0000 STAL L023E20 LDAL L023E18 DEC STAL L023E18 BNE L070594 LDA #$000A STAL L023E18 JSL L180D44 L070594 LDA #$FFFF STA L02437A SEP #$20 LDA L02430B JSL L070C8F JSL L072A47 LDA L024498 BMI L07061D JSL L070EBC STA $68 REP #$20 LDA L025A3C STA $64 SEP #$20 LDA $68 PHP LDA L02430B PLP BEQ L0705EF BPL L0705D2 DEC BMI L0705CC JMP L0705E2 L0705CC LDA L024311 JMP L0705E2 L0705D2 INC STA $60 LDA L024311 CMP $60 PHP LDA $60 PLP BCS L0705E2 LDA #$00 L0705E2 STA L02430B PHA JSL L290EAB PLA JSL L070DCD L0705EF REP #$20 LDA L0201F1 INC AND #$0003 STA L0201F1 ASL TAX LDA L02437C,X STA L02437A SEP #$20 LDA L02430B JSL L070C8F REP #$20 LDA #$001E STA L023C89 JSL L120000 SEP #$20 JMP L07056F L07061D REP #$20 LDA #$5555 STA L02437A SEP #$20 LDA L02430B JSL L070C8F LDA #$0C STA L024328 REP #$20 JSL L180D44 LDA #$0032 STA L023C89 JSL L120000 SEP #$20 LDA L025A3E BNE L07064A L07064A REP #$20 LDA #$0005 STA L023FEC LDA #$2102 STA $00 LDA #$E6FE STA $04 JSL L0F2798 LDA L025A2E STA L025A1A LDA L025A32 STA L025A22 LDA L025A30 STA L025A1C LDA L025A34 STA L025A24 LDA #$0020 L07067B PHA LDA #$0000 STA L023FEC JSL L070BDD REP #$20 LDA L025A1A CLC ADC L025A16 STA L025A1A LDA L025A1C CLC ADC L025A18 STA L025A1C LDA L025A22 SEC SBC L025A1E STA L025A22 LDA L025A24 SEC SBC L025A20 STA L025A24 LDA #$0005 STA L023FEC JSL L070BDD REP #$20 LDA #$0005 STA L023C89 JSL L120000 REP #$20 PLA DEC BNE L07067B SEP #$20 LDA #$00 STA L024426 REP #$20 LDA #$0000 STA L023FEC JSL L070BDD LDA #$0005 STA L023FEC LDA #$0A10 STA $00 LDA L024321 BEQ L0706F4 LDA #$070B STA $00 L0706F4 LDA $00 STA L024440 LDA #$0000 SEP #$20 STA L02444A LDA #$00 STA L024420 LDA L0242D5 PLP RTL L07070B REP #$20 LDA #$000F STA L023FEC LDA #L025814 STA $00 LDA #^L025814 STA $02 LDY #$0000 LDA #$0011 SEP #$20 L070725 PHA LDA [$00],Y INY CLC ADC #$80 STA $04 LDA [$00],Y INY ADC #$B4 STA $05 REP #$20 LDA $04 PHA STA L023FF0 L07073D LDA L023FF0 STA $04 STA L023FEE SEP #$20 LDA [$00],Y INY CMP #$80 BEQ L070772 CLC ADC #$80 STA $04 LDA [$00],Y INY ADC #$B4 STA $05 REP #$20 LDA $04 STA L023FF0 LDA $00 PHA PHY JSL L0F2148 REP #$20 PLY PLA STA $00 JMP L07073D L070772 REP #$20 PLA STA $04 STA L023FF0 LDA $00 PHA PHY JSL L0F2148 REP #$20 PLY PLA STA $00 SEP #$20 PLA DEC BNE L070725 REP #$20 LDA #L025814 STA $00 LDA #^L025814 STA $02 LDY #$0000 LDA #$0012 L0707A0 PHA SEP #$20 LDA [$00],Y INY STA $08 LDA #$80 SEC SBC $08 STA $04 LDA [$00],Y INY CLC ADC #$B4 STA $05 REP #$20 LDA $04 PHA STA L023FF0 L0707BF LDA L023FF0 STA $04 STA L023FEE SEP #$20 LDA [$00],Y INY CMP #$80 BEQ L0707F9 STA $08 LDA #$80 SEC SBC $08 STA $04 LDA [$00],Y INY CLC ADC #$B4 STA $05 REP #$20 LDA $04 STA L023FF0 LDA $00 PHA PHY JSL L0F2148 REP #$20 PLY PLA STA $00 JMP L0707BF L0707F9 REP #$20 PLA STA $04 STA L023FF0 LDA $00 PHA PHY JSL L0F2148 REP #$20 PLY PLA STA $00 PLA DEC BNE L0707A0 LDA #L0258C5 STA $00 LDA #^L0258C5 STA $02 LDY #$0000 LDA #$0013 L070823 PHA SEP #$20 LDA [$00],Y INY CLC ADC #$80 STA $04 LDA [$00],Y INY CLC ADC #$B4 STA $05 REP #$20 LDA $04 PHA STA L023FF0 L07083E REP #$20 LDA L023FF0 STA $04 STA L023FEE SEP #$20 LDA [$00],Y INY CMP #$80 BEQ L070876 CLC ADC #$80 STA $04 LDA [$00],Y INY CLC ADC #$B4 STA $05 REP #$20 LDA $04 STA L023FF0 LDA $00 PHA PHY JSL L0F2148 REP #$20 PLY PLA STA $00 JMP L07083E L070876 REP #$20 PLA STA $04 STA L023FF0 LDA $00 PHA PHY JSL L0F2148 REP #$20 PLY PLA STA $00 PLA DEC BNE L070823 RTL L070891 ENT PHP SEP #$20 L070894 LDA L024443 SEC SBC #$08 STA L024443 JSL L072403 LDA #$28 STA L023C89 JSL L120000 SEP #$20 LDA L024443 CMP #$20 BCS L070894 INC L0242FD JSL L1805C1 JSL L072347 JSL L070B63 LDA #$FF STA L024426 LDX #$0000 LDA L024313 INX CLC ADC L024313,X INX ADC L024313,X INX ADC L024313,X INX ADC L024313,X INX ADC L024313,X CMP #$36 BCC L0708E6 L0708E6 LDA L0242FD CMP #$06 BNE L0708F0 JMP L070A33 L0708F0 CMP #$10 BNE L0708F7 JMP L070A75 L0708F7 REP #$30 LDA #$0000 STAL $E12000 LDA #$00C8 STA $44 LDX #$2000 LDY #$2001 LDA #$007E L07090E PHB MVN $E10000,$E10000 PLB TYA CLC ADC #$0020 TAY LDX #$2000 LDA #$007F DEC $44 BNE L07090E L070923 REP #$20 STZ L024454 LDX #$0000 LDY #$001A CLC L07092F LDA #$FFFF STA L0256D3,X INX INX LDA #$00F0 STA L0256D3,X INX INX LDA #$4E30 STA L0256D3,X INX INX LDA #L020B08 STA L0256D3,X INX INX LDA #$0000 STA L0256D3,X INX INX DEY BNE L07092F REP #$30 LDA #$FF0D STA $5C JSL L2909FD LDA #$0001 STA L0242D5 LDA #$0003 JSL L0729D4 STZ L024426 LDA #$002D STA L023DEB L07097B REP #$20 LDA L023E12 BEQ L070986 JSL L072418 L070986 LDA L023E20 CMP #$0001 BNE L070994 STZ L023E20 DEC L023DEB L070994 LDA L023DEB BNE L07097B LDA #$0000 JSL L0729D4 LDX #$002B L0709A3 PHX JSL L070AD8 LDA #$0002 STA L023C89 JSL L120000 PLX DEX BNE L0709A3 SEP #$20 LDA #$8E STA L024443 LDA #$40 STA L024442 REP #$20 L0709C4 JSL L072403 JSL L070AD8 JSL L071A2F SEP #$20 LDA L024443 CMP #$5A BCC L0709EB DEC L024443 REP #$20 LDA #$0002 STA L023C89 JSL L120000 JMP L0709C4 L0709EB REP #$20 JSL L070AD8 LDA #$01F4 STA L023C89 JSL L120000 LDA #$0000 JSL L290C4C LDA L0242E7 PHA JSL L0E00B9 PLA STA L0242E7 LDA L0242FD CMP #$000B BEQ L070A54 JSL L070AD8 LDA L0242FD CMP #$000A BEQ L070A2D CMP #$0014 BEQ L070A2D JSL L070000 PLP RTL L070A2D JSL L070000 PLP RTL L070A33 REP #$20 JSL L0F01AC JSL L290C4C JSL L1106C0 JSL L12031F L070A45 JSL L0F2F42 JSL L180E5F JSL L180E09 JMP L070923 L070A54 REP #$20 JSL L0F01AC JSL L290C4C JSL L110CA0 JSL L12031F JSL L0F2F42 JSL L180E5F JSL L180E09 JMP L07000A L070A75 REP #$20 JSL L0F01AC JSL L290C4C JSL L111460 JSL L12031F JSL L0F2F42 JSL L180E5F JSL L180E09 JMP L070923 LDA #$8DFF MVN $C20000,$440000 BMI L070A45+2 INC $8559,X JMP ($02A9) BRK $85 ROR $16A9 BIT #$0485 LDX #$0015 L070AAF PHX LDA $04 PHA LDA [$6C] AND #$00FF SEC SBC #$0020 JSL L18069B LDA #$0005 STA L023C89 JSL L120000 PLA PLX CLC ADC #$0004 STA $04 INC $6C DEX BNE L070AAF PLP L070AD8 PHP SEP #$30 JSL L070BC0 REP #$20 LDA L025A40 STA $6C SEP #$20 LDA L025A3E BEQ L070B27 LDA #$18 STA $68 SEP #$20 LDA #$E1 STAL L070B11+1 LDA L025A42 STAL L070B11+2 REP #$30 LDA #$0040 STA $44 LDX L025A40 LDY #$3E28 L070B0D LDA #$002F PHB L070B11 MVN $000000,$000000 PLB TYA CLC ADC #$0070 TAY DEC $44 BNE L070B0D LDA #$0079 STA L02444A PLP RTL L070B27 SEP #$20 LDA #$E1 STAL L070B47+1 LDA L025A42 STAL L070B47+2 REP #$30 LDA #$0040 STA $44 LDX L025A40 LDY #$3E18 L070B43 LDA #$004F PHB L070B47 MVN $000000,$000000 PLB TYA CLC ADC #$0050 TAY DEC $44 BNE L070B43 LDA #$006D STA L02444A LDA #$006D STA L02444A PLP RTL L070B63 PHP REP #$20 LDA L0242E7 PHA PEA ^L025A68 PEA L025A68 JSL L0E0000 PLA STA $70 PLA STA $72 PLA STA L0242E7 LDY #$0004 LDA [$70],Y STA L025A40 LDY #$0006 LDA [$70],Y STA L025A42 SEP #$20 LDA #$FF STA L025A3E LDA L0242FD CMP #$03 BEQ L070BAC CMP #$08 BEQ L070BAC CMP #$0C BEQ L070BAC CMP #$10 BEQ L070BAC CMP #$14 BNE L070BBE L070BAC STZ L025A3E REP #$20 LDA [$70] STA L025A40 LDY #$0002 LDA [$70],Y STA L025A42 L070BBE PLP RTL L070BC0 SEP #$20 LDA L025A14 INC STA L025A14 AND #$0F LSR BEQ L070BC0 RTL L070BCF STZ $01 ASL ROL $01 ASL ROL $01 ASL ROL $01 STA $00 RTL L070BDD PHP SEP #$20 LDA L025A1B STA L023FEE LDA L025A1D STA L023FEF STA L023FF1 LDA L025A23 STA L023FF0 JSL L0F2148 LDA L025A23 STA L023FEE LDA L025A25 STA L023FEF JSL L0F2148 LDA L025A1B STA L023FF0 LDA L025A25 STA L023FF1 JSL L0F2148 LDA L025A1B STA L023FEE LDA L025A1D STA L023FEF JSL L0F2148 PLP RTL L070C2B PHP SEP #$20 STA $65 ASL ASL STA $64 CLC ADC $65 ASL STA $65 LDA #$2E SEC SBC $65 STA $5C STZ $5D REP #$20 LDA #$4A80 CLC ADC $5C STA $70 LDA #$00E1 STA $72 LDA $64 AND #$00FF ASL ASL ASL ASL ASL CLC ADC #L0C1A40 STA $6C LDA #^L0C1A40 STA $6E LDA #$0010 STA $44 L070C6C LDX #$0004 L070C6F LDA [$6C] AND L02437A STA [$70] INC $6C INC $6C INC $70 INC $70 DEX BNE L070C6F LDA $70 CLC ADC #$0098 STA $70 DEC $44 BNE L070C6C PLP RTL L070C8F PHP SEP #$20 XBA LDA #$00 XBA STA $65 ASL ASL STA $64 CLC ADC $65 ASL ADC #$4A REP #$20 ADC #$4A80 STA $70 LDA #$00E1 STA $72 LDA $64 AND #$00FF ASL ASL ASL ASL ASL CLC ADC #L0C1CC0 STA $6C LDA #^L0C1CC0 STA $6E LDA #$0010 STA $44 L070CC8 LDX #$0004 L070CCB LDA [$6C] AND L02437A STA [$70] INC $6C INC $6C INC $70 INC $70 DEX BNE L070CCB LDA $70 CLC ADC #$0098 STA $70 DEC $44 BNE L070CC8 PLP RTL L070CEB PHP REP #$20 AND #$00FF PHA PHA ASL ASL ASL ASL ASL ASL ASL STA $5C CLC ADC #L0C1A40 TAX LDY #L0255D3 LDA #$007F PHB MVN L0C1A40,L0255D3 PLB PLA STA $5C PHA LDA #L0C0000 CLC ADC #$0060 STA $6C LDA $5C AND #$00FF TAX BEQ L070D30 LDA #$02A0 STA $60 CLC L070D27 LDA $6C ADC $60 STA $6C DEX BNE L070D27 L070D30 LDA #$0000 STAL $E16B84 LDA #$001C STA $44 LDX #$6B84 LDY #$6B85 LDA #$000A L070D45 PHB MVN $E10000,$E10000 PLB TYA CLC ADC #$0094 TAY LDX #$6B84 LDA #$000B DEC $44 BNE L070D45 SEP #$20 LDA #$E1 STAL L070D78+1 LDA #^L0C0000 STAL L070D78+2 REP #$30 LDA #$001C STA $44 LDX $6C LDY #$6B84 L070D74 LDA #$000B PHB L070D78 MVN $000000,$000000 PLB TYA CLC ADC #$0094 TAY DEC $44 BNE L070D74 LDA #$0000 STAL $E13B83 LDA #$0008 STA $44 LDX #$5706 LDY #$5707 LDA #$0034 L070D9B PHB MVN $E10000,$E10000 PLB TYA CLC ADC #$006A TAY LDX #$5706 LDA #$0035 DEC $44 BNE L070D9B PLA STA $5C ASL TAX LDA L0259A2,X STA $04 LDA L0259AC,X STA $00 LDA #^L0259AC STA $02 JSL L1806EB PLA STA $5C PLP RTL L070DCD PHP REP #$20 AND #$00FF PHA PHA ASL ASL ASL ASL ASL ASL ASL STA $5C CLC ADC #L0C1CC0 TAX LDY #L025653 LDA #$007F PHB MVN L0C1CC0,L025653 PLB PLA STA $5C PHA LDA #L0C0D20 CLC ADC #$0060 STA $6C LDA $5C AND #$00FF TAX BEQ L070E12 LDA #$02A0 STA $60 CLC L070E09 LDA $6C ADC $60 STA $6C DEX BNE L070E09 L070E12 LDA #$0000 STAL $E16B90 LDA #$001C STA $44 LDX #$6B90 LDY #$6B91 LDA #$000A L070E27 PHB MVN $E10000,$E10000 PLB TYA CLC ADC #$0094 TAY LDX #$6B90 LDA #$000B DEC $44 BNE L070E27 SEP #$20 LDA #$E1 STAL L070E5A+1 LDA #^L0C0D20 STAL L070E5A+2 REP #$30 LDA #$001C STA $44 LDX $6C LDY #$6B90 L070E56 LDA #$000B PHB L070E5A MVN $000000,$000000 PLB TYA CLC ADC #$0094 TAY DEC $44 BNE L070E56 LDA #$0000 STAL $E15746 LDA #$0008 STA $44 LDX #$5746 LDY #$5747 LDA #$0036 L070E7D PHB MVN $E10000,$E10000 PLB TYA CLC ADC #$0068 TAY LDX #$5746 LDA #$0037 DEC $44 BNE L070E7D PLA ASL TAX LDA #$574C STA $04 LDA L0259AC,X STA $00 LDA #^L0259AC STA $02 JSL L1806EB PLA PLP RTL L070EAB ENT PHP REP #$20 L070EAE JSL L072A47 LDA L024498 BIT #$0080 BNE L070EAE PLP RTL L070EBC PHP SEP #$20 JSL L072A47 LDA L024498 AND #$03 STA $64 LDA L025A38 CMP $64 BNE L070EE5 LDA L025A36 STA $5C BEQ L070EE5 DEC $5C LDA $5C STA L025A36 BEQ L070EE5 L070EE1 LDA #$00 PLP RTL L070EE5 LDA $64 STA L025A38 LDA $64 BIT #$02 BEQ L070EE1 LDA #$08 STA L025A36 LDA $64 AND #$01 BNE L070F00 REP #$20 LDA #$FFFF L070F00 PLP RTL L070F02 ENT PHP SEP #$20 LDA L0243C8 BEQ L070F40 CMP #$FF BEQ L070F40 DEC BEQ L070F2B STA L0243C8 CMP #$02 BCS L070F40 LDA #$02 STA L0243C8 DEC L0243CA LDA L0243CA BNE L070F39 STA L0243C8 JMP L070F39 L070F2B DEC L0243CA BNE L070F33 STZ L0243C8 L070F33 LDA #$18 SEC SBC L0243CA L070F39 LSR LSR LSR JSL L0729D4 L070F40 JSL L072A47 REP #$20 LDA L024442 STA L024378 LDA L024440 STA L024376 STA $60 LDA #$1F21 STA $64 LDA L024321 BEQ L070F63 LDA #$1517 STA $64 L070F63 SEP #$20 LDA L024498 BIT #$02 BEQ L070F79 AND #$01 ASL DEC CLC ADC $60 CMP $64 BCS L070F79 STA $60 L070F79 LDA L024498 BIT #$08 BEQ L070F8D AND #$04 LSR DEC CLC ADC $61 CMP $65 BCS L070F8D STA $61 L070F8D REP #$20 LDA $60 STA L024440 SEP #$20 LDA L024321 BNE L070FAE LDA $60 ASL CLC ADC #$20 STA $60 LDA $61 ASL CLC ADC #$4F STA $61 JMP L070FC4 L070FAE LDA $60 ASL CLC ADC $60 CLC ADC #$1F STA $60 LDA $61 ASL CLC ADC $61 CLC ADC #$4F STA $61 L070FC4 LDA L024484 BIT #$04 BEQ L070FEC LDA #$00 XBA JSL L180C51 AND #$03 TAX LDA L0243EC,X CLC ADC $60 STA $60 JSL L180C51 AND #$03 TAX LDA L0243EC,X CLC ADC $61 STA $61 L070FEC LDX $60 STX L024442 LDA L023E28 CMP #$FD BEQ L070FFB JMP L0710B5 L070FFB JSL L071926 LDA $5C BNE L071006 JMP L0710B5 L071006 LDX L024440 STX $60 LDX L024442 STX $64 LDA L024377 STA L024441 LDA L024379 STA L024443 JSL L071926 LDA $5C BNE L071027 JMP L0710B5 L071027 LDA $61 STA L024441 LDA $65 STA L024443 LDA L024376 STA L024440 LDA L024378 STA L024442 JSL L071926 LDA $5C BEQ L0710B5 LDA L024377 STA L024441 LDA L024379 STA L024443 JSL L071926 LDA $5C BEQ L0710B5 LDA L024377 INC STA L024441 LDA L024321 PHP LDA #$03 PLP BNE L07106A DEC L07106A STA $5D LDA L024379 CLC ADC $5D STA L024443 CMP #$8C BCS L07109F LDA $60 STA L024440 LDA $64 STA L024442 JSL L071926 LDA $5C BEQ L0710B5 LDA L024376 STA L024440 LDA L024378 STA L024442 JSL L071926 LDA $5C BEQ L0710B5 L07109F REP #$20 LDA L024376 STA L024440 LDA L024378 STA L024442 LDA #$0001 STA L02436C PLP RTL L0710B5 SEP #$20 LDA #$00 XBA LDA L024441 TAX LDA L025DDA,X STA L02436A LDA L024498 BIT #$80 BEQ L0710CE JMP L071205 L0710CE LDA #$01 STA L02449A L0710D3 LDA L024498 BIT #$40 BEQ L0710DF LDA #$02 STA L02430D L0710DF JSL L180000 JSL L0711C2 JSL L072403 LDA L024484 BIT #$03 BNE L0710F4 PLP RTL L0710F4 LDA #$00 XBA LDA L024486 INC AND #$07 STA L024486 BEQ L071181 TAX LDA L02448D CLC ADC L0243D4,X STA L02448D STA L02448F REP #$20 PHX TXA ASL TAX LDA L0243DC,X STA L023D85 PLX SEP #$20 LDA L024484 STA $68 BIT #$01 PHP LDA L0243CC,X STA $5C PLP BEQ L07113F STA $69 LDA L024488 PHP LDA $69 STA $5C PLP BEQ L07113F STA L024488 L07113F LDA $68 BIT #$02 BEQ L071153 LDA $5C STA $69 LDA L02448A BEQ L071153 LDA $69 STA L02448A L071153 LDA L024488 DEC STA $5C BMI L071168 REP #$20 LDA L02448C STA $68 SEP #$20 JSL L0F042F L071168 LDA L02448A DEC STA $5C BPL L071172 PLP RTL L071172 REP #$20 LDA L02448E STA $68 SEP #$20 JSL L0F042F PLP RTL L071181 LDA L024442 XBA LDA L024443 DEC DEC DEC STA L02448D STA L02448F XBA DEC DEC STA L02448C CLC ADC #$04 STA L02448E LDA #$FF STA L024488 STA L02448A PLP RTL L0711A7 ENT JSL L0711C2 PHP SEP #$20 STZ L024486 STZ L024488 STZ L02448A LDX #$4040 STX L02448C STX L02448E PLP RTL L0711C2 PHP SEP #$20 LDX #$0000 STX L023D85 LDA L024484 AND #$01 STA $5C BEQ L0711E5 LDA L024488 DEC STA $5C BMI L0711E5 LDX L02448C STX $68 JSL L0F042F L0711E5 LDA L024484 AND #$02 STA $5C BNE L0711F0 PLP RTL L0711F0 LDA L02448A DEC STA $5C BPL L0711FA PLP RTL L0711FA LDX L02448E STX $68 JSL L0F042F PLP RTL L071205 LDA L02449E BEQ L07120D JMP L0710D3 L07120D DEC L02449A BEQ L071215 JMP L0710D3 L071215 LDA L024319 EOR #$01 ASL INC STA L02449A LDA L0242FB BEQ L071227 ASL L02449A L071227 LDA L024484 AND #$03 BEQ L07123C CMP #$03 BNE L071235 JMP L0710D3 L071235 AND #$01 BNE L0712B6 JMP L0712A8 L07123C LDA L024309 CMP #$03 BNE L07124A LDA L02430B CMP #$03 BEQ L0712C4 L07124A LDA L024309 CMP L02430B BNE L071296 ORA #$00 BNE L071296 LDY #L025280 STY $6C LDY #$0003 STY $64 L071260 LDA ($6C) LDY #$0008 ORA ($6C),Y BEQ L071276 REP #$20 INC $6C SEP #$20 DEC $64 BNE L071260 JMP L0710D3 L071276 LDA #$01 STA L024374 JSL L290E7F JSL L071307 CLC REP #$20 LDA $6C ADC #$0008 STA $6C SEP #$20 JSL L07152E JMP L0710D3 L071296 STZ L024374 JSL L290E7F JSL L0712FE JSL L071521 JMP L0710D3 L0712A8 STZ L024374 JSL L290E7F JSL L0712FE JMP L0710D3 L0712B6 STZ L024374 JSL L290E7F JSL L071521 JMP L0710D3 L0712C4 LDA #$00 EOR #$01 STAL L0712C4+1 BNE L0712E1 LDA L025280 BEQ L0712D6 JMP L0710D3 L0712D6 JSL L290E50 JSL L0712FE JMP L0710D3 L0712E1 LDA L025288 BEQ L0712E9 JMP L0710D3 L0712E9 JSL L290E50 JSL L071521 JMP L0710D3 L0712F4 DA L071312 DA L07133C DA L0713C5 DA L071457 DA L07147C L0712FE REP #$20 LDA #L025280 STA $6C SEP #$20 L071307 LDA #$00 XBA LDA L024309 ASL TAX JMP (L0712F4,X) L071312 LDX #$0003 L071315 LDA ($6C) BEQ L071323 REP #$20 INC $6C SEP #$20 DEX BNE L071315 RTL L071323 LDA L024443 CLC ADC #$04 STA $61 DEC STA $65 LDA L024442 DEC DEC STA $60 STA $64 JSL L07172A RTL L07133C LDA ($6C) LDY #$0001 ORA ($6C),Y INY ORA ($6C),Y INY ORA ($6C),Y INY ORA ($6C),Y BNE L07135D LDX #L025DFA STX $70 LDX #$0005 JSL L07138A JMP L071369 L07135D REP #$20 LDA $6C CLC ADC #$0005 STA $6C SEP #$20 L071369 LDA ($6C) LDY #$0001 ORA ($6C),Y BEQ L071373 RTL L071373 ASL L024307 LDX #$0002 REP #$20 LDA #L025E0E STA $70 SEP #$20 JSL L07138A LSR L024307 RTL L07138A PHX LDA L024442 CLC ADC ($70) STA $60 LDY #$0002 CLC ADC ($70),Y STA $64 LDA L024443 CLC LDY #$0001 ADC ($70),Y STA $61 LDY #$0003 CLC ADC ($70),Y STA $65 JSL L07172A REP #$20 INC $6C CLC LDA $70 ADC #$0004 STA $70 SEP #$20 PLX DEX BNE L07138A RTL L0713C5 LDX #$0003 L0713C8 LDA ($6C) LDY #$0001 ORA ($6C),Y BEQ L0713DD REP #$20 INC $6C INC $6C SEP #$20 DEX BNE L0713C8 RTL L0713DD TXA BIT #$01 BNE L07141B LDA L024442 DEC DEC STA $60 STA $64 LDA L024443 CLC ADC #$04 STA $61 DEC STA $65 REP #$20 LDA $60 PHA SEP #$20 JSL L07172A REP #$20 PLA STA $60 STA $64 SEP #$20 DEC $65 DEC $65 DEC $64 REP #$20 INC $6C SEP #$20 JSL L07172A RTL L07141B LDA L024442 DEC DEC STA $60 INC STA $64 LDA L024443 STA $65 CLC ADC #$04 STA $61 REP #$20 LDA $60 PHA SEP #$20 JSL L07172A REP #$20 PLA STA $60 STA $64 SEP #$20 LDA $65 SEC SBC #$04 STA $65 DEC $64 REP #$20 INC $6C SEP #$20 JSL L07172A RTL L071457 LDA ($6C) BEQ L07145C RTL L07145C LDA L024442 SEC SBC #$02 LDY #$0020 STA ($6C),Y JSL L0718F5 RTL L07146C DA L024E00 DA L024E60 DA L024EC0 DA L024F20 DA L024F80 DA L024FE0 DA L025040 DA L0250A0 L07147C LDX #$0005 STX $64 L071481 LDA ($6C) BEQ L071490 REP #$20 INC $6C SEP #$20 DEC $64 BNE L071481 RTL L071490 LDA L024370 STA $60 LDX #$0008 STX $64 L07149A JSL L0714AC LDA $60 INC AND #$07 STA $60 DEC $64 BNE L07149A JMP L071323 L0714AC STZ $61 LDX $64 PHX REP #$20 LDA $60 PHA ASL TAX STA $60 LDAL L07146C,X STA $70 SEP #$20 LDA ($70) AND #$7F CMP #$11 BCC L071510 LDY #$000C LDA ($70),Y BNE L071510 LDA L024442 SEC SBC #$03 STA $60 LDY #$0004 LDA ($70),Y CLC ADC #$04 CMP $60 BCS L071510 INC STA $64 LDY #$0005 LDA ($70),Y INC INC STA $65 LDA L024370 INC AND #$07 STA L024370 LDA L024443 CLC ADC #$03 STA $61 JSL L07172A PLX STX $60 PLX STX $64 PLA PLA PLA RTL L071510 PLX STX $60 PLX STX $64 RTL L071517 DA L071539 DA L071563 DA L0715F0 DA L07167C DA L07168F L071521 REP #$20 LDA #L025280 CLC ADC #$0008 STA $6C SEP #$20 L07152E LDA #$00 XBA LDA L02430B ASL TAX JMP (L071517,X) L071539 LDX #$0003 L07153C LDA ($6C) BEQ L07154A REP #$20 INC $6C SEP #$20 DEX BNE L07153C RTL L07154A LDA L024442 INC INC STA $60 STA $64 LDA L024443 CLC ADC #$04 STA $61 DEC STA $65 JSL L07172A RTL L071563 LDA ($6C) LDY #$0001 ORA ($6C),Y INY ORA ($6C),Y INY ORA ($6C),Y INY ORA ($6C),Y BNE L071588 LDX #$0005 REP #$20 LDA #L025DFA STA $70 SEP #$20 JSL L0715B5 JMP L071594 L071588 REP #$20 LDA $6C CLC ADC #$0005 STA $6C SEP #$20 L071594 LDA ($6C) LDY #$0001 ORA ($6C),Y BEQ L07159E RTL L07159E ASL L024307 LDX #$0002 REP #$20 LDA #L025E0E STA $70 SEP #$20 JSL L0715B5 LSR L024307 RTL L0715B5 PHX LDA L024442 SEC SBC ($70) STA $60 LDY #$0002 SEC SBC ($70),Y STA $64 LDA L024443 CLC LDY #$0001 ADC ($70),Y STA $61 LDY #$0003 CLC ADC ($70),Y STA $65 JSL L07172A REP #$20 INC $6C LDA $70 CLC ADC #$0004 STA $70 SEP #$20 PLX DEX BNE L0715B5 RTL L0715F0 LDX #$0003 L0715F3 LDA ($6C) LDY #$0001 ORA ($6C),Y BEQ L071608 REP #$20 INC $6C INC $6C SEP #$20 DEX BNE L0715F3 RTL L071608 TXA BIT #$01 BNE L071646 LDA L024442 INC INC STA $60 STA $64 LDA L024443 CLC ADC #$04 STA $61 DEC STA $65 REP #$20 LDA $60 PHA SEP #$20 JSL L07172A REP #$20 PLA STA $60 SEP #$20 INC STA $64 XBA DEC DEC STA $65 REP #$20 INC $6C SEP #$20 JSL L07172A RTL L071646 LDA L024442 INC STA $64 INC STA $60 LDA L024443 CLC STA $65 ADC #$04 STA $61 PHA LDA $60 PHA JSL L07172A REP #$20 PLA STA $60 SEP #$20 INC STA $64 XBA SEC SBC #$04 STA $65 REP #$20 INC $6C SEP #$20 JSL L07172A RTL L07167C LDA ($6C) BEQ L071681 RTL L071681 LDA L024442 INC LDY #$0020 STA ($6C),Y JSL L0718F5 RTL L07168F LDX #$0005 STX $64 L071694 LDA ($6C) BEQ L0716A3 REP #$20 INC $6C SEP #$20 DEC $64 BNE L071694 RTL L0716A3 STZ $61 LDA L024372 STA $60 LDX #$0008 STX $64 L0716AF JSL L0716C1 LDA $60 INC AND #$07 STA $60 DEC $64 BNE L0716AF JMP L07154A L0716C1 STZ $61 LDX $64 PHX REP #$20 LDA $60 PHA ASL TAX LDAL L07146C,X STA $70 SEP #$20 LDA ($70) AND #$7F CMP #$11 BCC L071723 LDY #$000C LDA ($70),Y BNE L071723 LDA L024442 CLC ADC #$03 STA $60 LDY #$0004 LDA ($70),Y CLC ADC #$05 CMP $60 BCC L071723 INC STA $64 LDY #$0005 LDA ($70),Y INC INC STA $65 LDA L024372 INC AND #$07 STA L024372 LDA L024443 CLC ADC #$03 STA $61 JSL L07172A PLX STX $60 PLX STX $64 PLA PLA PLA RTL L071723 PLX STX $60 PLX STX $64 RTL L07172A REP #$20 LDA $72 PHA LDA $70 PHA SEP #$20 LDA #$01 STA ($6C) LDA L02447C CMP #$02 BCS L071744 LDA #$01 STA L02447C L071744 LDA L024374 LDY #$00C0 STA ($6C),Y LDY #$0020 LDA $60 STA ($6C),Y LDY #$0030 LDA $61 STA ($6C),Y LDA L024307 LDY #$00B0 STA ($6C),Y LDA $60 SEC SBC $64 BCS L0717CA EOR #$FF INC STA $64 LDA $61 SEC SBC $65 BCC L07179F STA $65 CMP $64 BCC L07178D LDA $64 LSR LDY #$0090 STA ($6C),Y LDY #$00A0 LDA #$00 STA ($6C),Y JMP L071825 L07178D LDA $65 LSR LDY #$0090 STA ($6C),Y LDY #$00A0 LDA #$01 STA ($6C),Y JMP L071859 L07179F EOR #$FF INC STA $65 CMP $64 BCS L0717B8 LSR LDY #$0090 STA ($6C),Y LDY #$00A0 LDA #$02 STA ($6C),Y JMP L071859 L0717B8 LDA $64 LSR LDY #$0090 STA ($6C),Y LDY #$00A0 LDA #$03 STA ($6C),Y JMP L07188D L0717CA STA $64 LDA $61 SEC SBC $65 BCS L071800 EOR #$FF INC STA $65 CMP $64 BCC L0717EE LDA $64 LSR LDY #$0090 STA ($6C),Y LDY #$00A0 LDA #$04 STA ($6C),Y JMP L07188D L0717EE LDA $65 LSR LDY #$0090 STA ($6C),Y LDY #$00A0 LDA #$05 STA ($6C),Y JMP L0718C1 L071800 STA $65 CMP $64 BCS L071816 LSR LDY #$0090 STA ($6C),Y LDY #$00A0 LDA #$06 STA ($6C),Y JMP L0718C1 L071816 LDA $64 LSR LDY #$0090 STA ($6C),Y LDY #$00A0 LDA #$07 STA ($6C),Y L071825 LDY #$0070 LDA $64 STA ($6C),Y LDY #$0080 LDA $65 STA ($6C),Y LDY #$0030 LDA ($6C),Y STA $64 REP #$20 LDA #L024E0A STA $70 JSL L0F1EA0 SEP #$20 LDY #$0010 LDA $65 STA ($6C),Y REP #$20 PLA STA $70 PLA STA $72 SEP #$20 RTL L071859 LDY #$0070 LDA $64 STA ($6C),Y LDY #$0080 LDA $65 STA ($6C),Y LDY #$0020 LDA ($6C),Y STA $64 REP #$20 LDA #L024E08 STA $70 JSL L0F1EA0 SEP #$20 LDY #$0010 LDA $65 STA ($6C),Y REP #$20 PLA STA $70 PLA STA $72 SEP #$20 RTL L07188D LDY #$0070 LDA $64 STA ($6C),Y LDY #$0080 LDA $65 STA ($6C),Y LDY #$0030 LDA ($6C),Y STA $64 REP #$20 LDA #L024E05 STA $70 JSL L0F1EA0 SEP #$20 LDY #$0010 LDA $65 STA ($6C),Y REP #$20 PLA STA $70 PLA STA $72 SEP #$20 RTL L0718C1 LDY #$0070 LDA $64 STA ($6C),Y LDY #$0080 LDA $65 STA ($6C),Y LDY #$0020 LDA ($6C),Y STA $64 REP #$20 LDA #L024E09 STA $70 JSL L0F1EA0 SEP #$20 LDY #$0010 LDA $65 STA ($6C),Y REP #$20 PLA STA $70 PLA STA $72 SEP #$20 RTL L0718F5 PHP SEP #$20 LDA #$04 STA ($6C) LDA L02447C CMP #$03 BCS L071908 LDA #$02 STA L02447C L071908 LDA #$00 LDY #$00C0 STA ($6C),Y LDA L024443 SEC SBC #$03 LDY #$0030 STA ($6C),Y LDA L024307 ASL ASL LDY #$0060 STA ($6C),Y PLP RTL L071926 PHP REP #$20 LDA $60 PHA LDA $64 PHA LDA $68 PHA SEP #$20 LDA #$00 XBA LDA L024442 SEC SBC #$03 LSR LSR LSR STA $68 AND #$07 TAX STX $60 LDA L0257D7,X STA $64 LSR $68 LSR $68 LSR $68 LDA L024443 STA $69 SEC SBC #$16 BPL L07195F JMP L071A22 L07195F ASL CLC ADC $68 STA $60 LDX $60 LDA L02537F,X AND $64 STA $5C BEQ L071973 JMP L071A22 L071973 INX INX LDA L02537F,X AND $64 STA $5C BEQ L071981 JMP L071A22 L071981 INX INX LDA L02537F,X AND $64 STA $5C BEQ L07198F JMP L071A22 L07198F INX INX LDA L02537F,X AND $64 STA $5C BEQ L07199D JMP L071A22 L07199D INX INX LDA L02537F,X AND $64 STA $5C BEQ L0719AB JMP L071A22 L0719AB INX INX LDA L02537F,X AND $64 STA $5C BNE L071A22 LDA #$00 XBA LDA L024442 CLC ADC #$03 LSR LSR LSR STA $68 AND #$07 TAX STX $60 LDA L0257D7,X STA $64 LSR $68 LSR $68 LSR $68 LDA L024443 STA $69 SEC SBC #$16 ASL CLC ADC $68 STA $60 LDX $60 LDA L02537F,X AND $64 STA $5C BNE L071A22 INX INX LDA L02537F,X AND $64 STA $5C BNE L071A22 INX INX LDA L02537F,X AND $64 STA $5C BNE L071A22 INX INX LDA L02537F,X AND $64 STA $5C BNE L071A22 INX INX LDA L02537F,X AND $64 STA $5C BNE L071A22 INX INX LDA L02537F,X AND $64 STA $5C L071A22 REP #$20 PLA STA $68 PLA STA $64 PLA STA $60 PLP RTL L071A2F ENT PHP REP #$20 LDA L02430D AND #$0003 ASL TAX LDA L0244CA,X STA L024536 LDY #$0000 SEP #$20 LDA L024442 STZ $08 SEC SBC #$40 BCC L071AAA STA $0C CMP #$20 BCC L071A7C LDA #$20 STA $04 LDA #$10 STA $00 L071A5D LDA $08 STA L0244F4,Y LDA $00 SEC SBC $0C STA $00 INY L071A6A DEC $08 LDA $00 CLC ADC #$20 STA $00 BCC L071A6A DEC $04 BNE L071A5D JMP L071B07 L071A7C LDA #$10 STA $00 LDA #$20 STA $04 L071A84 LDA $08 STA L0244F4,Y LDA $00 SEC SBC $0C STA $00 INY BCC L071A9A DEC $04 BNE L071A84 JMP L071B07 L071A9A LDA $00 CLC ADC #$20 STA $00 DEC $08 DEC $04 BNE L071A84 JMP L071B07 L071AAA EOR #$FF INC STA $00 STA $0C CMP #$20 BCC L071ADC LDA #$10 STA $00 LDA #$20 STA $04 L071ABD LDA $08 STA L0244F4,Y LDA $00 SEC SBC $0C STA $00 INY L071ACA INC $08 LDA $00 CLC ADC #$20 STA $00 BCC L071ACA DEC $04 BNE L071ABD JMP L071B07 L071ADC LDA #$10 STA $00 LDA #$20 STA $04 L071AE4 LDA $08 STA L0244F4,Y LDA $00 SEC SBC $0C STA $00 INY BCC L071AFA DEC $04 BNE L071AE4 JMP L071B07 L071AFA LDA $00 CLC ADC #$20 STA $00 INC $08 DEC $04 BNE L071AE4 L071B07 LDA L024443 XBA LDA #$00 REP #$20 LSR LSR STA $0C LDA #L020B08 CLC ADC $0C STA L025E1E STA $04 SEP #$20 LDA L024442 STA $0C BIT #$40 BEQ L071B4B AND #$BF LDA ($04) EOR #$FF INC STA $00 STZ $0D REP #$20 LDA $04 CLC ADC $0C STA $04 SEP #$20 LDA $00 CLC ADC ($04) ADC #$80 STA $00 JMP L071B5C L071B4B STZ $0D CLC REP #$20 LDA $04 ADC $0C STA $04 SEP #$20 LDA ($04) STA $00 L071B5C STA $0C SEC SBC #$14 STA $00 BCS L071B67 STZ $00 L071B67 LDA $00 AND #$FC STA $0D LSR LSR STA L0244D2 LDA $0C SEC SBC $0D ASL STA $08 LDA #$00 XBA LDA L024443 TAX LDA L0206A8,X STA $0C LDA #$1F STA $04 REP #$20 LDA #L0244D5 STA $14 SEP #$20 STZ $01 L071B95 LDA #$20 SEC SBC $04 STA $00 REP #$20 LDA L025E1E STA $10 SEP #$20 LDA ($10) STA $0D REP #$20 LDA $10 CLC ADC $00 STA $10 SEP #$20 LDA ($10) SEC SBC $0D LSR LSR STA ($14) REP #$20 INC $14 SEP #$20 DEC $04 BNE L071B95 LDA $0C STA $09 REP #$20 SEP #$20 STZ $05 LDA #$00 XBA LDA L0244EB TAX STA $04 LDA L0244F4,X STA $01 LDA $09 SEC SBC $04 STA $0D LDA $08 CLC ADC $01 STA $00 LDA L0244D7 STA $04 LDA $00 SEC SBC $04 STA $00 STA $0C REP #$20 LDA $0C STA L024DB8 SEP #$20 LDA $00 CLC ADC $04 ADC $04 STA $0C REP #$20 LDA $0C STA L024DBA SEP #$30 LDA L0244E7 TAX LDA $08 CLC ADC L0244F4,X STA $0C STA L025E18 LDA $09 SEC SBC L0244E8 STA $0D STA L025E19 LDA L0244E3 TAX LDA L0244F4,X STA $01 LDA $09 SEC SBC L0244E4 STA $0D LDA $08 CLC ADC $01 SEC SBC L0244D7 STA $00 STA $0C REP #$20 LDA $0C STA L025E1A SEP #$30 LDA $00 CLC ADC L0244D9 STA $0C REP #$20 LDA $0C STA L025E1C SEP #$30 LDA L0244D8 STA $04 LDA $09 STA $0D LDA $08 SEC SBC $04 STA $00 STA $0C REP #$20 LDA $0C STA L024DC0 SEP #$30 LDA $00 CLC ADC $04 ADC $04 STA $0C REP #$20 LDA $0C STA L024DC2 SEP #$30 LDA $0D CLC ADC $04 STA $0D REP #$20 LDA $0C STA L024DC6 SEP #$30 LDA $0C SEC SBC $04 SBC $04 STA $0C REP #$20 LDA $0C STA L024DC4 SEP #$30 LDA L0244E2 TAX STA $04 LDA L0244F4,X STA $01 LDA $09 SEC SBC $04 STA $0D LDA $08 CLC ADC $01 STA $00 LDA L0244DD STA $04 LDA $00 SEC SBC $04 STA $0C STA $00 REP #$20 LDA $0C STA L024DC8 SEP #$30 LDA $00 CLC ADC $04 ADC $04 STA $0C REP #$20 LDA $0C STA L024DCA SEP #$30 LDA L0244DD TAX STA $04 LDA L0244F4,X STA $01 LDA $09 SEC SBC $04 STA $0D LDA $08 CLC ADC $01 STA $00 LDA L0244DE STA $04 LDA $00 SEC SBC $04 STA $0C STA $00 REP #$20 LDA $0C STA L024DCC SEP #$30 LDA $00 CLC ADC $04 ADC $04 STA $0C REP #$20 LDA $0C STA L024DCE SEP #$30 LDA L0244DC TAX STA $04 LDA L0244F4,X STA $01 LDA $09 SEC SBC $04 STA $0D LDA $08 CLC ADC $01 STA $00 LDA L0244F0 STA $04 LDA $00 SEC SBC $04 STA $0C STA $00 REP #$20 LDA $0C STA L024DD0 SEP #$30 LDA $00 CLC ADC $04 ADC $04 STA $0C REP #$20 LDA $0C STA L024DD2 SEP #$30 LDA L0244D9 TAX STA $04 LDA L0244F4,X STA $01 LDA $09 SEC SBC $04 STA $0D LDA $08 CLC ADC $01 STA $00 LDA L0244F0 STA $04 LDA $00 SEC SBC $04 STA $0C STA $00 REP #$20 LDA $0C STA L024DD4 SEP #$30 LDA $00 CLC ADC $04 ADC $04 STA $0C REP #$20 LDA $0C STA L024DD6 SEP #$30 LDA $09 CLC ADC L0244D6 STA $0D LDA $08 STA $00 LDA L0244D8 STA $04 LDA $00 SEC SBC $04 STA $0C STA $00 REP #$20 LDA $0C STA L024DD8 SEP #$30 LDA $00 CLC ADC $04 ADC $04 STA $0C REP #$20 LDA $0C STA L024DDA SEP #$30 LDA L0244DC STA $04 TAX LDA L0244F4,X STA $01 LDA $09 SEC SBC L0244E0 STA $0D LDA $08 CLC ADC $01 STA $00 LDA L0244E1 STA $04 LDA $00 SEC SBC $04 STA $0C STA $00 REP #$20 LDA $0C STA L024DDC SEP #$30 LDA $00 CLC ADC $04 ADC $04 STA $0C REP #$20 LDA $0C STA L024DDE SEP #$30 LDA L0244DC STA $04 TAX LDA L0244F4,X STA $01 LDA $09 SEC SBC L0244E0 STA $0D LDA $08 CLC ADC $01 STA $00 LDA L0244E5 STA $04 LDA $00 SEC SBC $04 STA $0C STA $00 REP #$20 LDA $0C STA L024DE0 SEP #$30 LDA $00 CLC ADC $04 ADC $04 STA $0C REP #$20 LDA $0C STA L024DE2 SEP #$30 LDA $09 STA $0D LDA $08 STA $00 LDA L0244E7 STA $04 LDA $00 SEC SBC $04 STA $0C STA $00 REP #$20 LDA $0C STA L024DE4 SEP #$30 LDA $00 CLC ADC $04 ADC $04 STA $0C REP #$20 LDA $0C STA L024DE6 SEP #$30 LDA $09 CLC ADC L0244D6 STA $0D LDA $08 STA $00 LDA L0244E1 STA $04 LDA $00 SEC SBC $04 STA $0C STA $00 REP #$20 LDA $0C STA L024DE8 SEP #$30 LDA $00 CLC ADC $04 ADC $04 STA $0C REP #$20 LDA $0C STA L024DEA SEP #$30 LDA L0244E6 STA $04 TAX LDA L0244F4,X STA $01 LDA $09 SEC SBC $04 STA $0D LDA $08 CLC ADC $01 STA $00 LDA L0244DF STA $04 LDA $00 SEC SBC $04 STA $0C STA $00 REP #$20 LDA $0C STA L024DEC SEP #$30 LDA $00 CLC ADC $04 ADC $04 STA $0C STA $00 REP #$20 LDA $0C STA L024DEE SEP #$30 LDA $00 SEC SBC $04 STA $00 LDA L0244E1 STA $04 LDA $00 SEC SBC $04 STA $0C STA $00 REP #$20 LDA $0C STA L024DF0 SEP #$30 LDA $00 CLC ADC $04 ADC $04 STA $0C REP #$20 LDA $0C STA L024DF2 SEP #$30 LDA L0244DF STA $04 TAX LDA L0244F4,X STA $01 LDA $09 SEC SBC $04 STA $0D LDA $08 CLC ADC $01 STA $00 LDA L0244E2 STA $04 LDA $00 SEC SBC $04 STA $0C STA $00 REP #$20 LDA $0C STA L024DF4 SEP #$30 LDA $00 CLC ADC $04 ADC $04 STA $0C STA $00 REP #$20 LDA $0C STA L024DF6 SEP #$30 LDA $00 SEC SBC $04 STA $00 LDA L0244DF STA $04 LDA $00 SEC SBC $04 STA $0C STA $00 REP #$20 LDA $0C STA L024DF8 SEP #$30 LDA $00 CLC ADC $04 ADC $04 STA $0C REP #$20 LDA $0C STA L024DFA SEP #$30 LDA L0244DC STA $04 TAX LDA L0244F4,X STA $01 LDA $09 SEC SBC $04 STA $0D LDA L024442 CMP #$40 BCC L071FE4 JMP L072074 L071FE4 LDA $08 CLC ADC $01 STA $00 LDA L0244E1 STA $04 LDA $00 SEC SBC $04 STA $0C STA $00 REP #$30 LDA $0C STA L024DFC SEP #$20 LDA $00 CLC ADC $04 ADC L0244E5 STA $0C REP #$20 LDA $0C STA L024DFE LDA L024DE0 STA L024D58 LDA L024DE4 STA L024D5A LDA L024DE8 STA L024D5C STA L024D7C LDA L024DDC STA L024D78 LDA L024DFC STA L024D7A LDA #$0202 STA L024456 LDA #$0004 XBA JSL L1810D7 LDA L024DE2 STA L024D78 LDA L024DFE STA L024D7A LDA L024DE6 STA L024D7C LDA L024DEA STA L024D7E STA L024D5A LDA L024DDE STA L024D58 LDA #$0301 STA L024456 LDA #$0005 XBA JSL L1810D7 JMP L072101 L072074 LDA $08 CLC ADC $01 STA $00 LDA L0244E5 STA $04 LDA $00 SEC SBC $04 STA $0C STA $00 REP #$30 LDA $0C STA L024DFC SEP #$20 LDA $00 CLC ADC $04 ADC L0244E1 STA $0C REP #$20 LDA $0C STA L024DFE LDA L024DE0 STA L024D58 LDA L024DFC STA L024D5A LDA L024DE4 STA L024D5C LDA L024DE8 STA L024D5E STA L024D7A LDA L024DDC STA L024D78 LDA #$0103 STA L024456 LDA #$0004 XBA JSL L1810D7 LDA L024DE2 STA L024D78 LDA L024DE6 STA L024D7A LDA L024DEA STA L024D7C STA L024D5C LDA L024DDE STA L024D58 LDA L024DFE STA L024D5A LDA #$0202 STA L024456 LDA #$0005 XBA JSL L1810D7 L072101 LDA L024DB8 STA L024D58 LDA L024DC0 SEP #$20 XBA DEC XBA REP #$20 STA L024D5A LDA L024DBA STA L024D78 LDA L024DC2 SEP #$20 XBA DEC XBA REP #$20 STA L024D7A LDA #$0101 STA L024456 LDA #$0001 XBA JSL L1810D7 LDA L024DC8 STA L024D58 LDA L024DCC STA L024D5A LDA L024DD0 STA L024D5C LDA L024DD4 STA L024D5E LDA L024DD8 STA L024D60 LDA L024DCA STA L024D78 LDA L024DCE STA L024D7A LDA L024DD2 STA L024D7C LDA L024DD6 STA L024D7E LDA L024DDA STA L024D80 LDA #$0404 STA L024456 LDA #$0002 XBA JSL L1810D7 LDA L024DC0 STA L024D58 LDA L024DC4 STA L024D5A LDA L024DC2 STA L024D78 LDA L024DC6 STA L024D7A LDA #$0101 STA L024456 LDA #$0003 XBA JSL L1810D7 LDA L024309 CMP #$0003 BNE L0721CD LDA L024DF0 STA L024D58 LDA L024DF4 STA L024D5A LDA L024DEC STA L024D78 LDA L024DF8 STA L024D7A LDA #$0006 XBA JSL L1810D7 L0721CD LDA L02430B CMP #$0003 BNE L0721F5 LDA L024DF2 STA L024D78 LDA L024DF6 STA L024D7A LDA L024DEE STA L024D58 LDA L024DFA STA L024D5A LDA #$0007 XBA JSL L1810D7 L0721F5 LDA L024514 AND #$007F STA L024514 BIT #$0001 BEQ L072223 LDA L024442 SEC SBC L024516 BEQ L072223 LDA L025E16 BNE L072223 LDA L0244D2 PHA JSL L072347 PLA STA L0244D2 LDA #$0080 STA L024514 L072223 LDA L024514 ORA #$0001 STA L024514 LDA #$5555 STA L0244C4 LDA L024309 CMP #$0003 BNE L072242 LDA #$0006 XBA JSL L1819D3 L072242 LDA L02430B CMP #$0003 BNE L072252 LDA #$0007 XBA JSL L1819D3 L072252 LDA #$F3F3 AND L024536 STA L0244C4 LDA #$0002 XBA JSL L1819D3 LDA #$FFFF AND L024536 STA L0244C4 LDA #$0004 XBA JSL L1819D3 LDA #$0005 XBA JSL L1819D3 LDA #$FFFF AND L024536 STA L0244C4 LDA #$0001 XBA JSL L1819D3 LDA L025E18 STA L024D58 STA L024D78 LDA L025E1A STA L024D5A LDA L025E1C STA L024D7A LDA #$0101 STA L024456 LDA #$0001 XBA JSL L1810D7 LDA #$AAAA STA L0244C4 LDA #$0001 XBA JSL L1819D3 LDA L024514 BIT #$0080 BNE L0722D4 LDA #$FFFF STA L0244C4 LDA #$0003 XBA JSL L1819D3 L0722D4 INC L02451C LDA L02451C LSR AND #$0001 ASL TAX LDA L0244C6,X AND #$FFFF STA L0244C4 LDA #$0003 XBA JSL L1819D3 LDA L024DB8 STA L02451E LDA L024DF0 STA L024520 LDA L024DD0 STA L024522 LDA L024DD4 STA L024524 LDA L024DE4 STA L024526 LDA L024DC4 STA L024528 LDA L024DBA STA L02452A LDA L024DF2 STA L02452C LDA L024DD2 STA L02452E LDA L024DD6 STA L024530 LDA L024DE6 STA L024532 LDA L024DC6 STA L024534 LDA L0244D2 STA L02451A LDA L024442 STA L024516 PLP RTL L072347 ENT PHP REP #$20 LDA #$0000 STA L0244C4 LDA L02451E SEP #$20 DEC REP #$20 STA L024D58 LDA L024520 SEP #$20 DEC REP #$20 STA L024D5A LDA L024522 SEP #$20 DEC REP #$20 STA L024D5C LDA L024524 SEP #$20 DEC XBA INC XBA REP #$20 STA L024D5E LDA L024526 SEP #$20 DEC XBA INC XBA REP #$20 STA L024D60 LDA L024528 SEP #$20 DEC XBA INC XBA REP #$20 STA L024D62 LDA L02452A SEP #$20 INC REP #$20 STA L024D78 LDA L02452C SEP #$20 INC REP #$20 STA L024D7A LDA L02452E SEP #$20 INC INC REP #$20 STA L024D7C LDA L024530 SEP #$20 INC XBA INC XBA REP #$20 STA L024D7E LDA L024532 SEP #$20 INC XBA INC XBA REP #$20 STA L024D80 LDA L024534 SEP #$20 INC XBA INC XBA REP #$20 STA L024D82 LDA #$0505 STA L024456 LDA #$0000 JSL L1810D7 LDA L02451A STA L0244D2 LDA #$0000 JSL L1819D3 PLP RTL L072403 ENT PHP REP #$20 LDA #$0000 STA L025E16 JSL L071A2F LDA #$0000 STA L025E16 PLP RTL L072418 ENT PHP REP #$20 LDA L024426 BEQ L072423 JMP L072943 L072423 LDA L023E28 CMP #$00FF BNE L072432 JSL L0729D3 JMP L072943 L072432 LDA L023E2A BEQ L07243A JMP L072943 L07243A STZ L023E12 LDA L02436A STA L023E2A INC L024454 LDA #$00E1 STA $06 STA $02 LDA #L0256D3 STA $24 LDA #$000B STA $44 L072457 LDA ($24) STA $18 LDY #$0002 LDA ($24),Y STA $08 LDY #$0004 LDA ($24),Y STA $04 LDY #$0006 LDA ($24),Y STA $00 LDA #$0000 SEP #$20 LDA [$04] AND $18 STA [$04] LDA $08 CLC ADC L024354 REP #$20 BPL L07248B JSR L072945 JMP L072540 L07248B CLC ADC #$0010 STA $08 LDA L02435E CLC ADC $00 STA $00 LDY #$0006 STA ($24),Y LDY #$0008 LDA ($24),Y BEQ L0724D2 LDA ($00) AND #$00FF PHA LDA $00 SEC SBC #L020B08 AND #$FFC0 CLC ADC #L020B08 STA $00 PLA SEC SEP #$20 SBC ($00) CLC ADC #$80 REP #$20 STA $46 BIT #$0080 BNE L0724E4 JSR L072945 JMP L072540 L0724D2 LDA ($00) AND #$00FF STA $46 BIT #$0080 BEQ L0724E4 JSR L072945 JMP L072540 L0724E4 LDA $08 ASL TAX LDA $46 LSR CLC ADC L020568,X STA $28 LDA $46 AND #$0001 TAX LDA L024538,X AND #$00FF STA $48 LDA #$00E1 STA $2A LDA [$28] AND #$00FF BNE L072526 LDA $28 CLC ADC #$00A0 STA $28 LDA [$28] AND #$00FF BNE L072526 SEP #$20 LDA [$28] ORA $48 STA [$28] REP #$20 BRA L072528 L072526 STZ $48 L072528 LDA $48 EOR #$FFFF LDY #$0000 STA ($24),Y LDY #$0002 LDA $08 STA ($24),Y LDY #$0004 LDA $28 STA ($24),Y L072540 LDA $24 CLC ADC #$000A STA $24 DEC $44 BEQ L07254F JMP L072457 L07254F LDA #$0002 STA $44 L072554 LDA ($24) STA $18 LDY #$0002 LDA ($24),Y STA $08 LDY #$0004 LDA ($24),Y STA $04 LDY #$0006 LDA ($24),Y STA $00 LDA #$0000 SEP #$20 LDA [$04] AND $18 STA [$04] LDA $08 CLC ADC L024356 REP #$20 BPL L072588 JSR L072945 JMP L072641 L072588 CLC ADC #$0010 STA $08 LDA L024360 CLC ADC $00 STA $00 LDY #$0006 STA ($24),Y LDY #$0008 LDA ($24),Y BEQ L0725CF LDA ($00) AND #$00FF PHA LDA $00 SEC SBC #L020B08 AND #$FFC0 CLC ADC #L020B08 STA $00 PLA SEC SEP #$20 SBC ($00) CLC ADC #$80 REP #$20 STA $46 BIT #$0080 BNE L0725E1 JSR L072945 JMP L072641 L0725CF LDA ($00) AND #$00FF STA $46 BIT #$0080 BEQ L0725E1 JSR L072945 JMP L072641 L0725E1 LDA $08 ASL TAX LDA $46 LSR CLC ADC L020568,X STA $28 LDA $46 AND #$0001 CLC ADC #$0004 TAX LDA L024538,X AND #$00FF STA $48 LDA #$00E1 STA $2A LDA [$28] AND #$00FF BNE L072627 LDA $28 CLC ADC #$00A0 STA $28 LDA [$28] AND #$00FF BNE L072627 SEP #$20 LDA [$28] ORA $48 STA [$28] REP #$20 BRA L072629 L072627 STZ $48 L072629 LDA $48 EOR #$FFFF LDY #$0000 STA ($24),Y LDY #$0002 LDA $08 STA ($24),Y LDY #$0004 LDA $28 STA ($24),Y L072641 LDA $24 CLC ADC #$000A STA $24 DEC $44 BEQ L072650 JMP L072554 L072650 LDA ($24) STA $18 LDY #$0002 LDA ($24),Y STA $08 LDY #$0004 LDA ($24),Y STA $04 LDY #$0006 LDA ($24),Y STA $00 LDA #$0000 SEP #$20 LDA [$04] AND $18 STA [$04] LDA $08 CLC ADC L024358 REP #$20 BPL L072684 JSR L072945 JMP L07273D L072684 CLC ADC #$0010 STA $08 LDA L024362 CLC ADC $00 STA $00 LDY #$0006 STA ($24),Y LDY #$0008 LDA ($24),Y BEQ L0726CB LDA ($00) AND #$00FF PHA LDA $00 SEC SBC #L020B08 AND #$FFC0 CLC ADC #L020B08 STA $00 PLA SEC SEP #$20 SBC ($00) CLC ADC #$80 REP #$20 STA $46 BIT #$0080 BNE L0726DD JSR L072945 JMP L07273D L0726CB LDA ($00) AND #$00FF STA $46 BIT #$0080 BEQ L0726DD JSR L072945 JMP L07273D L0726DD LDA $08 ASL TAX LDA $46 LSR CLC ADC L020568,X STA $28 LDA $46 AND #$0001 CLC ADC #$0006 TAX LDA L024538,X AND #$00FF STA $48 LDA #$00E1 STA $2A LDA [$28] AND #$00FF BNE L072723 LDA $28 CLC ADC #$00A0 STA $28 LDA [$28] AND #$00FF BNE L072723 SEP #$20 LDA [$28] ORA $48 STA [$28] REP #$20 BRA L072725 L072723 STZ $48 L072725 LDA $48 EOR #$FFFF LDY #$0000 STA ($24),Y LDY #$0002 LDA $08 STA ($24),Y LDY #$0004 LDA $28 STA ($24),Y L07273D LDA $24 CLC ADC #$000A STA $24 LDA #$0006 STA $44 L07274A LDA ($24) STA $18 LDY #$0002 LDA ($24),Y STA $08 LDY #$0004 LDA ($24),Y STA $04 LDY #$0006 LDA ($24),Y STA $00 LDA #$0000 SEP #$20 LDA [$04] AND $18 STA [$04] LDA $08 CLC ADC L02435A REP #$20 BPL L07277E JSR L072945 JMP L072833 L07277E CLC ADC #$0010 STA $08 LDA L024364 CLC ADC $00 STA $00 LDY #$0006 STA ($24),Y LDY #$0008 LDA ($24),Y BEQ L0727C5 LDA ($00) AND #$00FF PHA LDA $00 SEC SBC #L020B08 AND #$FFC0 CLC ADC #L020B08 STA $00 PLA SEC SEP #$20 SBC ($00) CLC ADC #$80 REP #$20 STA $46 BIT #$0080 BNE L0727D7 JSR L072945 JMP L072833 L0727C5 LDA ($00) AND #$00FF STA $46 BIT #$0080 BEQ L0727D7 JSR L072945 JMP L072833 L0727D7 LDA $08 ASL TAX LDA $46 LSR CLC ADC L020568,X STA $28 LDA $46 AND #$0001 TAX LDA L024538,X AND #$00FF STA $48 LDA #$00E1 STA $2A LDA [$28] AND #$00FF BNE L072819 LDA $28 CLC ADC #$00A0 STA $28 LDA [$28] AND #$00FF BNE L072819 SEP #$20 LDA [$28] ORA $48 STA [$28] REP #$20 BRA L07281B L072819 STZ $48 L07281B LDA $48 EOR #$FFFF LDY #$0000 STA ($24),Y LDY #$0002 LDA $08 STA ($24),Y LDY #$0004 LDA $28 STA ($24),Y L072833 LDA $24 CLC ADC #$000A STA $24 DEC $44 BEQ L072842 JMP L07274A L072842 LDA #$0004 STA $44 L072847 LDA ($24) STA $18 LDY #$0002 LDA ($24),Y STA $08 LDY #$0004 LDA ($24),Y STA $04 LDY #$0006 LDA ($24),Y STA $00 LDA #$0000 SEP #$20 LDA [$04] AND $18 STA [$04] LDA $08 CLC ADC L02435C REP #$20 BPL L07287B JSR L072945 JMP L072934 L07287B CLC ADC #$0010 STA $08 LDA L024366 CLC ADC $00 STA $00 LDY #$0006 STA ($24),Y LDY #$0008 LDA ($24),Y BEQ L0728C2 LDA ($00) AND #$00FF PHA LDA $00 SEC SBC #L020B08 AND #$FFC0 CLC ADC #L020B08 STA $00 PLA SEC SEP #$20 SBC ($00) CLC ADC #$80 REP #$20 STA $46 BIT #$0080 BNE L0728D4 JSR L072945 JMP L072934 L0728C2 LDA ($00) AND #$00FF STA $46 BIT #$0080 BEQ L0728D4 JSR L072945 JMP L072934 L0728D4 LDA $08 ASL TAX LDA $46 LSR CLC ADC L020568,X STA $28 LDA $46 AND #$0001 CLC ADC #$0002 TAX LDA L024538,X AND #$00FF STA $48 LDA #$00E1 STA $2A LDA [$28] AND #$00FF BNE L07291A LDA $28 CLC ADC #$00A0 STA $28 LDA [$28] AND #$00FF BNE L07291A SEP #$20 LDA [$28] ORA $48 STA [$28] REP #$20 BRA L07291C L07291A STZ $48 L07291C LDA $48 EOR #$FFFF LDY #$0000 STA ($24),Y LDY #$0002 LDA $08 STA ($24),Y LDY #$0004 LDA $28 STA ($24),Y L072934 LDA $24 CLC ADC #$000A STA $24 DEC $44 BEQ L072943 JMP L072847 L072943 PLP RTL L072945 LDA L023E24 EOR L024494 STA L024494 AND #$007F CLC ADC #$0010 STA $4A LDA L023E24 AND #$00FF EOR #$0055 CLC ADC L024494 AND #$00FF STA L024494 AND #$00BF BIT #$0080 BEQ L0729A4 AND #$003F STA $4C LDA #$0001 LDY #$0008 STA ($24),Y LDA $4A XBA LSR LSR CLC ADC $4C ADC #L020B08 LDY #$0006 STA ($24),Y LDA #$4E30 LDY #$0004 STA ($24),Y LDA #$FFFF STA ($24) LDA $4A LDY #$0002 STA ($24),Y RTS L0729A4 STA $4C LDA #$0000 LDY #$0008 STA ($24),Y LDA $4A XBA LSR LSR CLC ADC $4C ADC #L020B08 LDY #$0006 STA ($24),Y LDA #$4E30 LDY #$0004 STA ($24),Y LDA #$FFFF STA ($24) LDA $4A LDY #$0002 STA ($24),Y RTS L0729D3 ENT RTL L0729D4 ENT PHP SEP #$20 STA $64 SEC SBC #$10 STA L024354 STA L024356 STA L024358 LDA $64 ASL STA $60 CLC ADC $64 STA $61 ROL ROR $61 LDA $61 SEC SBC #$10 STA L02435A LDA $60 SEC SBC #$10 STA L02435C LDA $64 XBA LDA #$00 REP #$20 STA $5C ROL $5C ROR STA $5C ROL $5C ROR STA L02435E STA L024360 STA L024362 SEP #$20 LDA $61 XBA LDA #$00 REP #$20 STA $5C ROL $5C ROR STA $5C ROL $5C ROR STA L024364 LDA $60 AND #$00FF XBA STA $5C ROL $5C ROR STA $5C ROL $5C ROR STA L024366 PLP RTL L072A47 PHP SEP #$20 LDA L023E06 BEQ L072A52 JMP L072AFD L072A52 STZ $54 LDAL BUTN0 BPL L072A60 LDA $54 ORA #$80 STA $54 L072A60 LDAL KEYMODREG TAX AND #$04 BEQ L072A74 LDA L0257F0 BEQ L072A74 LDA $54 ORA #$40 STA $54 L072A74 TXA AND #$10 BEQ L072A86 LDAL KBD BMI L072A96 TAX LDAL KBDSTROBE BMI L072A95 L072A86 LDA L023E2C BEQ L072AF4 REP #$20 JSL L14013E SEP #$20 BRA L072A9A L072A95 TXA L072A96 STAL KBDSTROBE L072A9A AND #$7F STA $4E CMP #$37 BEQ L072AAC CMP #$38 BEQ L072AAC CMP #$39 BEQ L072AAC BRA L072AB2 L072AAC LDA $54 ORA #$08 STA $54 L072AB2 LDA $4E CMP #$31 BEQ L072AC2 CMP #$32 BEQ L072AC2 CMP #$33 BEQ L072AC2 BRA L072AC8 L072AC2 LDA $54 ORA #$0C STA $54 L072AC8 LDA $4E CMP #$31 BEQ L072AD8 CMP #$34 BEQ L072AD8 CMP #$37 BEQ L072AD8 BRA L072ADE L072AD8 LDA $54 ORA #$02 STA $54 L072ADE LDA $4E CMP #$33 BEQ L072AEE CMP #$36 BEQ L072AEE CMP #$39 BEQ L072AEE BRA L072AF4 L072AEE LDA $54 ORA #$03 STA $54 L072AF4 LDA $54 STA L024498 PLP RTL L072AFB DB $00 L072AFC DB $00 L072AFD LDAL L072AFB BNE L072B34 JSL L180C51 AND #$07 CLC ADC #$03 STAL L072AFB L072B10 STZ $53 JSL L180C51 TAX AND #$0F BNE L072B1F LDA #$0C STA $53 L072B1F TXA AND #$BF ORA $53 STAL L072AFC AND #$0A BNE L072B34 JSL L180C51 AND #$01 BNE L072B10 L072B34 LDAL L072AFC STAL L024498 LDAL L072AFB DEC STAL L072AFB PLP RTL MX %00 L072B47 ENT STA L0242FD LDA #$0000 STA L0244A4 STA L024490 STA L024319 STA L024321 STA L02430F STA L024311 LDA #$0001 STA L024307 LDA #$0000 STA L024309 STA L02430B RTL L072B6F ENT LDA L023E10 DEC STA L0242FD LDA #$0000 STA L0244A4 STA L024490 STA L024319 STA L024321 LDA #$0004 STA L02430F STA L024311 LDA #$0001 STA L024307 LDA #$0000 STA L024309 STA L02430B RTL L072B9E ENT LDA #$0005 STA L0242FD LDA #$0032 STA L0244A4 LDA #$0006 STA L024490 LDA #$0001 STA L024492 LDA #$0006 STA L02441E LDA #$0018 STA L024448 LDA #$0001 STA L024319 STA L024321 LDA #$0004 STA L02430F STA L024311 LDA #$0002 STA L024307 LDA #$0000 STA L024309 STA L02430B RTL L072BE4 ENT LDA #$000A STA L0242FD LDA #$006A STA L0244A4 LDA #$000C STA L024490 LDA #$0002 STA L024492 LDA #$000E STA L02441E LDA #$0030 STA L024448 LDA #$0001 STA L024319 STA L024321 LDA #$0004 STA L02430F STA L024311 LDA #$0002 STA L024307 LDA #$0000 STA L024309 STA L02430B RTL L072C2A ENT LDA #$000F STA L0242FD LDA #$0095 STA L0244A4 LDA #$0011 STA L024490 LDA #$0003 STA L024492 LDA #$0013 STA L02441E LDA #$0048 STA L024448 LDA #$0001 STA L024319 STA L024321 LDA #$0004 STA L02430F STA L024311 LDA #$0004 STA L024307 LDA #$0000 STA L024309 STA L02430B RTL L072C70 ENT LDA #$0013 STA L0242FD LDA #$00B8 STA L0244A4 LDA #$0000 STA L024490 LDA #$0003 STA L024492 LDA #$0017 STA L02441E LDA #$0048 STA L024448 LDA #$0001 STA L024319 STA L024321 LDA #$0004 STA L02430F STA L024311 LDA #$0004 STA L024307 LDA #$0000 STA L024309 STA L02430B RTL L072CB6 ENT LDA #$0014 STA L0242FD LDA #$00C9 STA L0244A4 LDA #$0000 STA L024490 LDA #$0000 STA L024492 LDA #$0000 STA L02441E LDA #$0000 STA L024448 LDA #$0001 STA L024319 STA L024321 LDA #$0004 STA L02430F STA L024311 LDA #$0004 STA L024307 LDA #$0003 STA L024309 STA L02430B RTL L072CFC REP #$20 LDA $68 AND #$0003 ASL ASL TAX STX $60 LDA L025F6E,X STA $64 EOR #$FFFF STA $78 LDA $69 AND #$0003 ASL ASL CLC ADC #$0012 TAX LDA L025F6E,X STA $66 EOR #$FFFF STA $7A SEP #$20 LDA $69 LSR LSR LSR $68 LSR $68 SEC SBC $68 STA $60 STZ $69 REP #$20 LDA $68 ASL CLC ADC $70 STA $70 SEP #$20 LDA $60 CMP #$02 BCC L072D54 LDA $60 STA L025F54 LDA #$02 STA $60 L072D54 ASL $60 REP #$20 LDA L025F56 STA $68 AND $64 STA $64 LDA $68 AND $66 STA $66 LDA #$00E1 STA $72 LDX $60 JMP (L072D71,X) L072D71 DA L072D77 DA L072D8A DA L072DA1 L072D77 LDA $78 ORA $7A AND [$70] STA $04 LDA $64 AND $66 ORA $04 STA [$70] JMP L072FF8 L072D8A LDA $78 AND [$70] ORA $64 STA [$70] INC $70 INC $70 LDA $7A AND [$70] ORA $66 STA [$70] JMP L072FF8 L072DA1 LDA $64 STA $60 LDA $66 STA $62 LDA L025F54 AND #$00FF DEC STA $64 LDA [$70] AND $78 ORA $60 STA [$70] INC $70 INC $70 LDA $68 STA [$70] INC $70 LDX $70 TXY INY DEC $64 LDA $64 BEQ L072DD5 ASL DEC PHB MVN $E10000,$E10000 PLB L072DD5 STY $70 LDA [$70] AND $7A ORA $62 STA [$70] INC $70 INC $70 JMP L072FF8 REP #$20 LDA #$00E1 STA $72 LDA $68 AND #$0003 ASL ASL TAX STX $60 LDA L025F6E,X STA $64 EOR #$FFFF STA $78 LDA $69 AND #$0003 ASL ASL CLC ADC #$0012 TAX LDA L025F6E,X STA $66 EOR #$FFFF STA $7A SEP #$20 LDA $69 LSR LSR LSR $68 LSR $68 SEC SBC $68 STA $60 STZ $69 ASL $60 REP #$20 LDA L025F56 STA $68 AND $64 STA $64 LDA $68 AND $66 STA $66 LDA $60 CMP #$0004 BCS L072E83 LDX $60 JMP (L072E47,X) L072E47 DA L072E5D DA L072E6C DA L072E83 DA L072E83 DA L072E83 DA L072E83 DA L072E83 DA L072E83 DA L072E83 DA L072E83 DA L072E83 L072E5D LDA $78 ORA $7A AND [$70] ORA $64 ORA $66 STA [$70] JMP L072FF8 L072E6C LDA $78 AND [$70] ORA $64 STA [$70] INC $70 INC $70 LDA $7A AND [$70] ORA $66 STA [$70] JMP L072FF8 L072E83 LDA [$70] AND $78 ORA $64 STA [$70] INC $70 INC $70 LDX $64 LDY $60 STX $60 TYA LSR DEC STA $64 LDA $68 STA [$70] INC $70 LDX $70 TXY INY DEC $64 LDA $64 BEQ L072EB1 ASL DEC PHB MVN $E10000,$E10000 PLB L072EB1 STY $70 LDA [$70] AND $7A ORA $62 STA [$70] JMP L072FF8 PHP REP #$20 LDA $5C AND #$00FF ASL ASL TAX STX $60 LDA L024384,X STA $64 INX INX STX $60 LDA L024384,X STA $66 PLP L072EDA ENT PHP REP #$20 LDA #L072CFC STA $5C JMP L072F13 L072EE5 ENT PHP REP #$20 LDA $5C AND #$00FF ASL ASL TAX STX $60 LDA L024384,X AND L023D85 STA $64 INX INX STX $60 LDA L024384,X AND L023D85 STA $66 PLP L072F07 ENT PHP REP #$20 LDA #L072CFC STA $5C LDA $68 STA $74 L072F13 LDA $5C STAL L072FF6 LDA $6C PHA LDA L024459 AND #$00FF ASL TAX STX $60 LDA L025F5A,X STA $5C STAL L072FE0 SEP #$20 LDA L02445B XBA LDA #$02 TAX STX $60 LDA L024548,X BIT #$01 BNE L072F48 BIT #$80 BEQ L072F48 JMP L0730D0 L072F48 TXA LDA #$00 TAX STX $60 LDA L024548,X STA $5C CMP #$E8 BCC L072F5A JMP L0730D0 L072F5A LDA #$00 XBA LDA $5C REP #$20 ASL TAX STX $60 LDA L020368,X STA $68 STA $70 SEP #$20 LDA $68 BIT #$10 BEQ L072F7C LDX $64 LDY $66 STY $64 STX $66 L072F7C LDA L02445B XBA LDA #$01 TAX STX $60 LDA L024548,X STA $5C REP #$20 LDA $64 STA L025F56 LDA $66 STA L025F58 SEP #$20 LDA #$04 STA $60 LDA $5C STA $64 STZ $65 L072FA2 REP #$20 LDX $60 LDA L024548,X STA $68 INC $60 INC $60 LDA $70 STA $5C SEP #$20 INC $5D LDA $5D CMP #$21 BCC L073006 CMP #$9E BCC L072FC8 REP #$20 PLA STA $6C PLP RTL L072FC8 SEP #$20 LDA $69 CMP $68 BCS L072FDA LDA $69 XBA LDA $68 STA $69 XBA STA $68 L072FDA LDX #$0000 JMP (L072FE0,X) L072FE0 DA $0000 L072FE2 ENT REP #$20 LDA $60 PHA LDA $64 PHA LDA $70 PHA LDA $6C PHA LDX #$0000 JMP (L072FF6,X) L072FF6 DA $0000 L072FF8 REP #$20 PLA STA $6C PLA STA $70 PLA STA $64 PLA STA $60 L073006 REP #$20 LDA $70 CLC ADC #$00A0 STA $70 LDX L025F56 LDY L025F58 STY L025F56 STX L025F58 DEC $64 BNE L072FA2 PLA STA $6C PLP RTL L073025 ENT SEP #$20 LDA $69 SEC SBC #$80 STA $5C BCC L073006 STA $69 LDA $68 SEC SBC #$80 STA $68 BCC L07303E JMP L072FE2 L07303E STZ $68 JMP L072FE2 L073043 ENT SEP #$20 LDA $68 CLC ADC #$80 STA $5C BCS L073006 STA $68 LDA $69 CLC ADC #$80 STA $69 BCS L07305C JMP L072FE2 L07305C LDA #$FF STA $69 JMP L072FE2 L073063 ENT SEP #$20 LDA $69 SEC SBC #$82 STA $5C BCC L073006 STA $69 LDA $68 SEC SBC #$82 STA $68 BCC L07307C JMP L072FE2 L07307C STZ $68 JMP L072FE2 L073081 ENT SEP #$20 LDA $68 CLC ADC #$86 STA $5C BCC L07308F JMP L073006 L07308F STA $68 LDA $69 CLC ADC #$86 STA $69 BCS L07309D JMP L072FE2 L07309D LDA #$FF STA $69 JMP L072FE2 L0730A4 ENT SEP #$20 LDA $68 SEC SBC #$80 STA $5C BCS L0730B1 STZ $5C L0730B1 LDA $5C STA $68 LDA $69 CLC ADC #$80 STA $5C BCC L0730C2 LDA #$FF STA $5C L0730C2 LDA $5C STA $68 JMP L072FE2 L0730C9 ENT REP #$20 PLA STA $6C PLP RTL L0730D0 REP #$20 LDA $60 AND #$FF00 TAX SEP #$20 LDA #$E8 STA L024548,X REP #$20 PLA STA $6C PLP RTL