*---------------------------------------------------------* * Disassembled with The Flaming Bird Disassembler * * (c) Phoenix corp. 1992,93 - All rights reserved * *---------------------------------------------------------* REL mx %00 use COPYCHEC.X.S use COPYCHEC.E.S L2B0000 ENT PHP SEP #$20 LDY #$000A LDA #$20 L2B0008 STA L0260E3,Y DEY BPL L2B0008 REP #$20 LDA #$5555 STA L023D85 LDA #$2014 STA $04 LDA #L0260BA STA $00 LDA #^L0260BA STA $02 JSL L1806EB LDA #$FFFF STA L023D85 LDA #$2654 STA $04 LDA #L026086 STA $00 LDA #^L026086 STA $02 JSL L1806EB LDA #$2C94 STA $04 LDA #L0260A2 STA $00 LDA #^L0260A2 STA $02 JSL L1806EB STZ L026212 L2B0058 JSL L180C51 AND #$000F STA $60 CMP #$000F BEQ L2B0058 STA L0260DF LDA #$3932 STA L0260DB STZ L0260D9 STZ L0260DD JSL L2B023C L2B0079 JSL L2B00DE LDA L023E20 CMP #$0001 BNE L2B00A0 STZ L023E20 INC L0260E1 LDA L0260E1 CMP #$0002 BNE L2B00A0 STZ L0260E1 JSL L2B01C6 INC L024428 INC L026212 L2B00A0 LDA L0260DD CMP #$0001 BNE L2B0079 LDA #L0260E3 CLC ADC #$000A STA $60 LDA #^L0260E3 STA $62 LDA #$000B STA $64 L2B00BB LDA [$60] AND #$00FF CMP #$0020 BNE L2B00CB DEC $60 DEC $64 BNE L2B00BB L2B00CB INC $60 SEP #$20 LDA #$00 STA [$60] JSL L2B0187 LDA $5C STA L023E30 PLP RTL L2B00DE PHP SEP #$20 LDAL KBD BMI L2B00E9 PLP RTL L2B00E9 STAL KBDSTROBE AND #$7F CMP #$08 BEQ L2B00F7 CMP #$7F BNE L2B010D L2B00F7 LDA L0260D9 BNE L2B00FF JMP L2B0185 L2B00FF JSL L2B023C DEC L0260D9 JSL L2B023C JMP L2B0185 L2B010D CMP #$15 BNE L2B0126 LDA L0260D9 CMP #$09 BEQ L2B0185 JSL L2B023C INC L0260D9 JSL L2B023C JMP L2B0185 L2B0126 CMP #$0D BNE L2B0132 LDA #$01 STA L0260DD JMP L2B0185 L2B0132 CMP #$5A BEQ L2B013B BCC L2B013B SEC SBC #$20 L2B013B CMP #$41 BCC L2B0142 JMP L2B014B L2B0142 CMP #$20 BNE L2B0149 JMP L2B014B L2B0149 LDA #$40 L2B014B LDX L0260D9 STA L0260E3,X SEC SBC #$20 STA $5C REP #$20 PHA TXA ASL ASL CLC ADC L0260DB PHA JSL L2B027E LDA #$FFFF STA L023D85 PLA STA $04 PLA JSL L18069B LDA L0260D9 CMP #$0009 BEQ L2B0185 INC L0260D9 JSL L2B023C JMP L2B0185 L2B0185 PLP RTL L2B0187 PHP REP #$20 LDA L0260DF ASL CLC ADC #L02617C STA $6C LDA ($6C) STA $6C LDA #L0260E3 STA $60 L2B019D SEP #$20 LDA ($6C) ORA ($60) BEQ L2B01BD LDA ($6C) CMP ($60) BEQ L2B01AE JMP L2B01B7 L2B01AE REP #$20 INC $60 INC $6C JMP L2B019D L2B01B7 REP #$20 STZ $5C PLP RTL L2B01BD REP #$20 LDA #$0001 STA $5C PLP RTL L2B01C6 PHP REP #$20 LDA #L024E00 STA $6C SEP #$20 LDA #$40 STA L024E04 LDA #$82 STA L024E05 LDA #$00 STA L024E0C LDA L026214 STA L024E00 REP #$20 LDA L0260DF ASL ASL TAX SEP #$20 LDA L0261D6,X STA $5C LDA L0261D9,X CMP #$01 BNE L2B0208 LDA L026212 STA $5C CMP L0261D6,X BNE L2B0208 STZ L026212 L2B0208 LDA $5C STA L024E06 LDA L0261D7,X STA L024E0B LDA L0261D8,X STA L024E10 LDA #$01 STA L024459 REP #$20 LDA L02619A,X STAL L2B0231+1 SEP #$20 LDAL L02619A+2,X STAL L2B0231+3 L2B0231 JSL $000000 LDA #$80 STA L026214 PLP RTL L2B023C PHP REP #$20 LDA L0260D9 ASL ASL CLC ADC L0260DB STA $70 LDA #$00E1 STA $72 LDA #L0260EF STA $6C LDA #$0008 STA $5C L2B0259 LDA [$70] EOR ($6C) STA [$70] INC $6C INC $6C LDY #$0002 LDA [$70],Y EOR ($6C) STA [$70],Y INC $6C INC $6C LDA $70 CLC ADC #$00A0 STA $70 DEC $5C BNE L2B0259 PLP RTL L2B027E PHP REP #$20 LDA L0260D9 ASL ASL CLC ADC L0260DB STA $70 LDA #$00E1 STA $72 LDA #$0008 STA $5C L2B0296 LDA #$0000 STA [$70] LDY #$0002 LDA #$0000 STA [$70],Y LDA $70 CLC ADC #$00A0 STA $70 DEC $5C BNE L2B0296 PLP RTL