*---------------------------------------------------------*
*     Disassembled with The Flaming Bird Disassembler     *
*    (c) Phoenix corp. 1992,93  -  All rights reserved    *
*---------------------------------------------------------*

         REL
	 mx	%00

	 use	JOY.STICK.X.S
	 use	JOY.STICK.E.S

L140000  ASC   'PLEASE CENTER YOUR JOYSTICK'00
L14001C  ASC   '   AND PRESS A JOY BUTTON.'00
L140037  ENT
         PHP
         REP   #$20
         LDA   #$FFFF
         STA   L023E2C
         JSL   L1401CC
         LDA   L023CC6
         CMP   #$00FF
         BNE   L14005D
         LDA   L023CC8
         CMP   #$00FF
         BNE   L14005D
         LDA   #$0000
         STA   L023E2C
         JMP   L14012F

L14005D  REP   #$20
         LDX   #$5E80
         LDY   #L130000
         LDA   #$0C7F
         PHB
         MVN   $E10000,L130000
         PLB
         LDX   #$FFFF
         STX   L023D85
         LDX   #L140000
         STX   $00
         LDX   #^L140000
         STX   $02
         LDX   #$5E85
         STX   $04
         LDX   #$00E1
         STX   $06
         JSL   L1806EB
         LDX   #L14001C
         STX   $00
         LDX   #^L14001C
         STX   $02
         LDX   #$64C5
         STX   $04
         LDX   #$00E1
         STX   $06
         JSL   L1806EB
         REP   #$20
L1400A5  LDA   L023E2C
         BPL   L1400D4
         JSL   L14019C
         LDA   L023CD4
         BNE   L1400C2
         LDA   L023CD6
         BNE   L1400C2
         SEP   #$20
         LDAL  KBD
         REP   #$20
         BPL   L1400A5
L1400C2  SEP   #$20
         STAL  KBDSTROBE
         REP   #$20
         LDA   #$0001
         STA   L023E2C
         JSL   L140131
L1400D4  LDX   #L130000
         LDY   #$5E80
         LDA   #$0C7F
         PHB
         MVN   L130000,$E10000
         PLB
         LDA   L023E2C
         BEQ   L14012F
         PLP
L1400E8  ENT
         PHP
         JSL   L1401CC
         LDA   L023CC6
         LSR
         STA   L023CCE
         LSR
         STA   L023CD8
         LDA   #$00FF
         SEC
         SBC   L023CC6
         LSR
         LSR
         STA   L023CCE
         LDA   #$00FF
         SEC
         SBC   L023CCE
         STA   L023CDA
         LDA   L023CC8
         LSR
         STA   L023CD0
         LSR
         STA   L023CDC
         LDA   #$00FF
         SEC
         SBC   L023CC8
         LSR
         LSR
         STA   L023CD0
         LDA   #$00FF
         SEC
         SBC   L023CD0
         STA   L023CDE
L14012F  PLP
         RTL

L140131  LDX   #$0004
         LDA   #$FFFF
L140137  DEC
         BNE   L140137
         DEX
         BNE   L140137
         RTL

L14013E  ENT
         PHX
         PHY
         LDX   #$0000
         LDY   #$0000
         REP   #$20
         LDA   #$0000
         JSL   L1401CC
         TAX
         BNE   L140157
         LDA   #$0005
         BRA   L14018C
L140157  LDA   #$0007
         STA   L023CCA
         LDA   L023CC8
         CMP   L023CDC
         BCC   L140176
         LDX   #$0004
         STX   L023CCA
         CMP   L023CDE
         BCC   L140176
         LDX   #$0001
         STX   L023CCA
L140176  LDA   L023CC6
         CMP   L023CD8
         BCC   L140189
         INC   L023CCA
         CMP   L023CDA
         BCC   L140189
         INC   L023CCA
L140189  LDA   L023CCA
L14018C  CMP   #$0005
         ORA   #$00B0
         BRA   L140197
         LDA   #$0000
L140197  REP   #$20
         PLY
         PLX
         RTL

L14019C  LDA   #$0000
         STA   L023CD4
         STA   L023CD6
         SEP   #$20
         LDAL  KBD
         REP   #$20
         BPL   L1401B1
         BRA   L1401CB
L1401B1  SEP   #$20
         LDAL  $E0C061
         REP   #$20
         BPL   L1401BE
         INC   L023CD4
L1401BE  SEP   #$20
         LDAL  $E0C062
         REP   #$20
         BPL   L1401CB
         INC   L023CD6
L1401CB  RTL

L1401CC  REP   #$20
         LDA   #$0000
         LDX   #$0000
         STX   L023CC6
         LDY   #$0000
         STY   L023CC8
         SEI
         SEP   #$30
         CLC
         LDAL  $E0C070
L1401E5  LDAL  $E0C064
         BPL   L1401EF
         INX
         BNE   L1401F1
         DEX
L1401EF  NOP
         SEC
L1401F1  LDAL  $E0C065
         BPL   L1401FB
         INY
         BNE   L1401FE
         DEY
L1401FB  BCS   L140201
         NOP
L1401FE  JMP   L1401E5

L140201  STX   L023CC6
         STY   L023CC8
         LDA   #$01
         REP   #$30
         CLI
         RTL