
*---------------------------------------------------------*
*     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

