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

         REL
	 mx	%00

	 use	DEMOSEG.X.S
	 use	DEMOSEG.E.S
	 
	 use	4/Mem.Macs
	 use	4/Util.Macs
	 
*-------------------------------

         PHP
         SEP   #$20
         LDX   #L0238AC
         STX   L023836
         PLP
L11000A  ENT
         PHP
         SEP   #$20
         JSL   L291003
         LDX   #$0000
         STX   L023FEC
         LDX   #L020368
         STX   L023FE8
         LDA   #$01
         STA   L024426
         SEP   #$20
         SEP   #$20
         STZ   L023834
         LDX   #L023740
         STX   L0237EB
         LDA   #$01
         STA   L024459
         LDA   #$01
         STA   L02445B
         STZ   L02464A
L11003C  LDX   L0237EB
         STX   $60
         LDA   ($60)
         STA   $5C
         REP   #$20
         INC   $60
         LDA   $60
         STA   L0237EB
         SEP   #$20
         LDA   $5C
         CMP   #$FF
         BNE   L110060
         JSL   L1101BD
         JSL   L1102A9
         PLP
         RTL

L110060  LDA   $5C
         BIT   #$01
         BNE   L1100A4
         STZ   $61
         STA   $60
         LDY   $60
         REP   #$20
         LDA   L023696,Y
         STA   $70
         SEP   #$20
         JSL   L110120
         LDA   $64
         STA   L024458
         REP   #$20
         LDX   #L023364
         LDY   #L024D98
         LDA   #$000F
         PHB
         MVN   L023364,L024D98
         PLB
         SEP   #$20
         JSL   L181526
         JSL   L11017C
         JSL   L1200BA
         BCC   L1100A1
         JMP   L11033F
L1100A1  JMP   L11003C

L1100A4  LDA   $5C
         AND   #$FE
         STA   $5C
         STZ   $61
         STA   $60
         LDY   $60
         REP   #$20
         LDA   L023696,Y
         STA   $70
         SEP   #$20
         JSL   L110120
         LDA   $64
         STA   L024458
         LDX   #L023364
         STX   $60
         LDA   $64
         STA   $65
         ASL
         STA   $5C
         STZ   $5D
         REP   #$20
         LDA   $60
         CLC
         ADC   $5C
         STA   $60
         LDA   #L024D98
         STA   $70
L1100DE  DEC   $60
         SEP   #$20
         LDA   ($60)
         STA   $64
         LDX   $60
         DEX
         STX   $60
         LDA   ($60)
         EOR   #$FF
         INC
         STA   $5C
         STA   ($70)
         LDX   $70
         INX
         STX   $70
         LDA   $64
         STA   $5C
         STA   ($70)
         LDX   $70
         INX
         STX   $70
         DEC   $65
         REP   #$20
         BNE   L1100DE
         SEP   #$20
         JSL   L181526
         JSL   L11017C
         JSL   L1200BA
         BCC   L11011D
         JMP   L11033F
L11011D  JMP   L11003C

L110120  PHP
         SEP   #$20
         STZ   $64
         LDX   #L023364
         STX   $60
L11012A  LDA   ($70)
         STA   $5C
         CMP   #$F0
         BCS   L110157
         LDA   $5C
         LSR
         CLC
         ADC   #$31
         STA   ($60)
         LDX   $60
         INX
         STX   $60
         LDY   #$0001
         LDA   ($70),Y
         STA   $5C
         STA   ($60)
         REP   #$20
         INC   $60
         INC   $70
         INC   $70
         SEP   #$20
         INC   $64
         JMP   L11012A

L110157  LDA   $5C
         CLC
         ADC   #$08
         ASL
         ASL
         STA   $5C
         STZ   $61
         STA   $60
         REP   #$20
         LDY   $60
         LDA   L023811,Y
         STA   $68
         STA   L0237EF
         INY
         INY
         LDA   L023811,Y
         STA   $6A
         STA   L0237F1
         PLP
         RTL

L11017C  PHP
         SEP   #$20
         LDA   L023833
         INC
         STA   L023833
         AND   #$03
         BNE   L11019A
         LDA   L023833
         AND   #$0F
         JSL   L110395
         JMP   L11019A

         JSL   L1101BD
L11019A  LDX   #$0000
         STX   L023D85
         LDX   #$FFFF
         STX   $64
         STX   $66
         LDX   #$FFFF
         STX   L023D85
         LDX   L0237EF
         STX   $64
         LDX   L0237F1
         STX   $66
         JSL   L072F07
         PLP
         RTL

L1101BD  PHP
         SEP   #$20
         LDX   #L023374
         STX   L0237ED
L1101C6  LDY   L0237ED
         STY   $70
         LDA   ($70)
         STA   $5C
         CMP   #$FF
         BNE   L1101D5
         PLP
         RTL

L1101D5  LSR   $5C
         LDA   $5C
         CLC
         ADC   #$31
         STA   $60
         LDY   #$0001
         LDA   ($70),Y
         STA   $61
         LDX   $60
         PHX
         REP   #$20
         INC   $70
         INC   $70
         LDX   #$6666
         STX   L023D85
L1101F4  LDX   $60
         STX   L023FEE
         SEP   #$20
         LDA   ($70)
         STA   $5C
         CMP   #$F0
         BCS   L11025E
         LDX   $70
         INX
         STX   $70
         LSR   $5C
         LDA   $5C
         CLC
         ADC   #$31
         STA   $5C
         STA   $60
         LDA   ($70)
         STA   $61
         LDX   $70
         INX
         STX   $70
         LDX   $60
         STX   L023FF0
         LDX   $60
         PHX
         LDX   $70
         PHX
         LDX   L023D85
         STX   $60
         JSL   L0F2148
         PLX
         STX   $70
         LDA   L023FEE
         EOR   #$FF
         INC
         STA   $5C
         STA   L023FEE
         LDA   L023FF0
         EOR   #$FF
         INC
         STA   $5C
         STA   L023FF0
         LDX   $70
         PHX
         LDX   L023D85
         STX   $60
         JSL   L0F2148
         PLX
         STX   $70
         PLX
         STX   $60
         JMP   L1101F4

L11025E  LDX   $70
         INX
         STX   $70
         STX   L0237ED
         LDX   $60
         STX   L023FEE
         PLX
         STX   $60
         STX   L023FF0
         LDX   $70
         PHX
         LDX   L023D85
         STX   $60
         JSL   L0F2148
         LDA   L023FEE
         EOR   #$FF
         INC
         STA   L023FEE
         LDA   L023FF0
         EOR   #$FF
         INC
         STA   L023FF0
         LDX   L023D85
         STX   $60
         JSL   L0F2148
         PLX
         STX   $70
         JSL   L1200BA
         BCC   L1102A6
         PLX
         PLX
         JMP   L11033F
L1102A6  JMP   L1101C6

L1102A9  PHP
         SEP   #$20
         JSL   L1104B9
         LDX   #$001E
         STX   $64
L1102B5  LDX   $64
         PHX
         JSL   L110407
         PLX
         STX   $64
         JSL   L1200BA
         BCC   L1102CA
         PLX
         PLX
         JMP   L11033F

L1102CA  LDX   $64
         DEX
         STX   $64
         BNE   L1102B5
         JSL   L29101E
         JSL   L1103A0
         STZ   L024426
         LDX   #$0000
         STX   L023D85
         LDX   #$0063
         STX   $64
         LDX   #$2000
         STX   $70
         LDX   #$9C60
         STX   $6C
         LDX   #$00E1
         STX   $72
         STX   $6E
         REP   #$20
L1102FA  LDX   $64
         PHX
         LDA   #$0000
         STA   [$6C]
         STA   [$70]
         LDX   $70
         TXY
         INY
         LDA   #$007E
         PHB
         MVN   $E10000,$E10000
         PLB
         LDX   $6C
         TXY
         INY
         LDA   #$007E
         PHB
         MVN   $E10000,$E10000
         PLB
         LDA   $70
         CLC
         ADC   #$0140
         STA   $70
         LDA   $6C
         SEC
         SBC   #$0140
         STA   $6C
         LDX   #$0005
         STX   L023C89
         JSL   L120000
         PLX
         DEX
         STX   $64
         BEQ   L11033F
         JMP   L1102FA

L11033F  STZ   L024426
         REP   #$20
         LDA   #$0000
         STAL  $E12000
         LDA   #$00C8
         STA   $44
         LDX   #$2000
         LDY   #$2001
         LDA   #$007E
L110359  PHB
         MVN   $E10000,$E10000
         PLB
         TYA
         CLC
         ADC   #$0020
         TAY
         LDX   #$2000
         LDA   #$007F
         DEC   $44
         BNE   L110359
         SEP   #$20
         LDX   #L0237FB
         STX   $70
         STZ   $60
         LDX   #$0008
         STX   $64
L11037C  LDA   ($70)
         STA   $61
         LDX   $70
         INX
         STX   $70
         INC   $60
         LDX   $64
         DEX
         STX   $64
         BNE   L11037C
         LDA   #$04
         STA   L023834
         PLP
         RTL

L110395  PHP
         REP   #$20
         LDX   #$0020
         STX   L023C89
         PLP
         RTL

L1103A0  PHP
         SEP   #$20
         LDY   #L023838
         STY   L023836
L1103A9  JSL   L1200BA
         BCC   L1103B4
         PLX
         PLX
         JMP   L11033F

L1103B4  LDX   L023836
         STX   $60
         LDA   ($60)
         STA   $5C
         LDX   $60
         INX
         STX   $60
         STX   L023836
         LDA   ($60)
         STA   $5C
         CMP   #$FF
         BEQ   L1103F0
         LDA   $5C
         STA   $61
         STZ   $60
         REP   #$20
         LDA   $60
         LSR
         STA   $68
         LSR
         CLC
         ADC   $68
         ASL
         CLC
         ADC   #L1C0000
         STA   $60
         STA   $6C
         LDA   #^L1C0000
         STA   $6E
         JSL   L1104FB
L1103F0  REP   #$20
         JSL   L110407
         LDA   L023836
         STA   $60
         SEP   #$20
         LDA   ($60)
         STA   $5C
         CMP   #$FF
         BNE   L1103A9
         PLP
         RTL

L110407  PHP
         SEP   #$20
         JSL   L110421
         LDX   #L023E26
         STX   $60
         STZ   L023E26
L110416  LDA   L023E26
         STA   $5C
         CMP   #$0A
         BCC   L110416
         PLP
         RTL

L110421  PHP
         SEP   #$20
         LDA   L023928
         DEC
         STA   $5C
         BNE   L110430
         LDA   #$09
         STA   $5C
L110430  LDA   $5C
         STA   L023928
         LDX   #L023904
         STX   $60
         ASL   $5C
         ASL   $5C
         STZ   $5D
         REP   #$20
         LDA   $60
         CLC
         ADC   $5C
         STA   $60
         LDA   ($60)
         STA   $68
         INC   $60
         INC   $60
         LDA   ($60)
         STA   $6A
         LDA   #$FFFF
         STA   L023D85
         LDA   #$00E1
         STA   $72
         LDA   #$450E
         STA   $70
         LDA   $68
         STA   $64
         JSL   L11047F
         LDA   $6A
         STA   $64
         JSL   L11047F
         LDA   $68
         STA   $64
         JSL   L11047F
         PLP
         RTL

L11047F  PHP
         REP   #$20
         LDA   $64
         AND   #$FF00
         STA   [$70]
         LDX   $70
         INX
         INX
         STX   $70
         LDA   #$0010
         STA   $46
L110494  LDA   $64
         STA   [$70]
         LDX   $70
         INX
         INX
         STX   $70
         DEC   $46
         BNE   L110494
         LDA   $64
         AND   #$F0FF
         STA   [$70]
         LDX   #$007E
         STX   $64
         REP   #$20
         LDA   $70
         CLC
         ADC   $64
         STA   $70
         PLP
         RTL

L1104B9  PHP
         REP   #$20
         LDY   #$5734
         STY   $70
         LDY   #$00E1
         STY   $72
         LDA   #$0000
         STA   [$70]
         LDA   #$0010
         STA   $44
         LDX   $70
         TXY
         INY
         LDA   #$0016
L1104D7  PHB
         MVN   $E10000,$E10000
         PLB
         TYA
         CLC
         ADC   #$0088
         TAY
         LDX   $70
         LDA   #$0017
         DEC   $44
         BNE   L1104D7
         SEP   #$20
         LDY   #L1C0000
         STY   $6C
         LDY   #^L1C0000
         STY   $6E
         PLP
         JMP   L1104FB

L1104FB  PHP
         SEP   #$20
         LDY   #$5734
         STY   $70
         LDA   #$E1
         STAL  L11051E+1
         LDA   $6E
         STAL  L11051E+2
         REP   #$20
         LDA   #$0010
         STA   $44
         LDX   $6C
         LDY   $70
L11051A  LDA   #$0017
         PHB
L11051E  MVN   $000000,$000000
         PLB
         TYA
         CLC
         ADC   #$0088
         TAY
         DEC   $44
         BNE   L11051A
         SEP   #$20
         PLP
         RTL

L110530  DW    $0000
         DW    $001E
         DW    $0003
         DW    $00B4
         DW    $0003
         DW    $00FA
         DW    $0004
         DW    $0014
         DW    $0005
         DW    $012C
         DW    $0007
         DW    $0096
         DW    $0008
         DW    $0003
         DW    $000A
         DW    $00E0
         DW    $000C
         DW    $0050
         DW    $000D
         DW    $005A
         DW    $000F
         DW    $0078
         DW    $0010
         DW    $003C
         DW    $0011
         DW    $0136
         DW    $0012
         DW    $00C8
         DW    $0013
         DW    $0118
         DW    $0014
         DW    $0032
         DW    $0016
         DW    $00B4
         DW    $0018
         DW    $0028
         DW    $001A
         DW    $00F0
         DW    $001C
         DW    $0014
L110580  DW    $0000
         DW    $0082
         DW    $0003
         DW    $0050
         DW    $0003
         DW    $0096
         DW    $0004
         DW    $0078
         DW    $0005
         DW    $001E
         DW    $0007
         DW    $00FA
         DW    $0008
         DW    $000D
         DW    $000A
         DW    $007C
         DW    $000C
         DW    $0008
         DW    $000D
         DW    $00BE
         DW    $000F
         DW    $00DC
         DW    $0010
         DW    $00A0
         DW    $0011
         DW    $001E
         DW    $0012
         DW    $0064
         DW    $0013
         DW    $0014
         DW    $0014
         DW    $005A
         DW    $0016
         DW    $0118
         DW    $0018
         DW    $008C
         DW    $001A
         DW    $0028
         DW    $001C
         DW    $0078
         DW    $001E
         DW    $00E6
         DW    $0021
         DW    $00B4
         DW    $0021
         DW    $0032
         DW    $0022
         DW    $0078
         DW    $0023
         DW    $001E
         DW    $0025
         DW    $0096
         DW    $0026
         DW    $000D
         DW    $0028
         DW    $007C
         DW    $002A
         DW    $0026
         DW    $002B
         DW    $00BE
         DW    $002D
         DW    $0078
         DW    $002E
         DW    $003C
         DW    $002F
         DW    $0025
         DW    $0030
         DW    $0082
         DW    $0031
         DW    $0046
         DW    $0032
         DW    $0082
         DW    $0034
         DW    $008C
         DW    $0036
         DW    $0078
         DW    $0038
         DW    $002B
         DW    $003A
         DW    $008C
         DW    $003C
         DW    $0082
         DW    $003F
         DW    $0050
         DW    $003F
         DW    $0028
         DW    $0040
         DW    $00A0
         DW    $0041
         DW    $003C
         DW    $0043
         DW    $00A0
         DW    $0044
         DW    $0042
         DW    $0046
         DW    $00A4
         DW    $0048
         DW    $004E
         DW    $0049
         DW    $00AA
         DW    $004B
         DW    $00AA
         DW    $004C
         DW    $0046
         DW    $004D
         DW    $004D
         DW    $004E
         DW    $00AA
         DW    $004F
         DW    $00AA
         DW    $0050
         DW    $00B4
         DW    $0052
         DW    $00B4
         DW    $0054
         DW    $00B4
         DW    $0056
         DW    $0053
         DW    $0058
         DW    $00B4
         DW    $005A
         DW    $0082
         DW    $005D
         DW    $005A
         DW    $005D
         DW    $0031
         DW    $005E
         DW    $00BE
         DW    $005F
         DW    $005A
         DW    $0061
         DW    $00BE
         DW    $0062
         DW    $0060
         DW    $0064
         DW    $00A0
         DW    $0066
         DW    $0026
         DW    $0067
         DW    $0096
         DW    $0069
         DW    $0082
         DW    $006A
         DW    $00E6
         DW    $006B
         DW    $00ED
         DW    $006C
         DW    $0046
         DW    $006D
         DW    $0078
         DW    $006E
         DW    $0078
         DW    $0070
         DW    $0050
         DW    $0072
         DW    $008C
         DW    $0074
         DW    $002B
         DW    $0076
         DW    $005A
L1106C0  ENT
         PHP
         REP   #$20
         LDX   $5C
         PHX
         LDX   $60
         PHX
         LDX   $64
         PHX
         LDX   $68
         PHX
         LDX   $6C
         PHX
         LDX   $70
         PHX
         LDA   L0242E1
         PHA
         PEA   ^L026753
         PEA   L026753
         JSL   L0E0000
         PLA
         STA   $70
         PLA
         STA   $72
         LDA   [$70]
         STA   L026763
         LDY   #$0002
         LDA   [$70],Y
         STA   L026765
         LDY   #$0004
         LDA   [$70],Y
         STA   L026767
         LDY   #$0006
         LDA   [$70],Y
         STA   L026769
         PLA
         STA   L0242E1
         CMP   #$FFFF
         BNE   L110715
         STZ   L0242E1
         JMP   L110C8C

L110715  PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $364C
         LDA   L020000
         PHA
         PEA   $0010
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCC   L11073F
         PLA
         PLA
         STZ   L02674B
         JMP   L110C80

L11073F  PLA
         PLX
         STA   L0266ED
         STX   L0266EF
         STA   $00
         STX   $02
         LDY   #$0004
         LDA   [$00],Y
         ORA   #$8000
         STA   [$00],Y
         DEY
         DEY
         LDA   [$00],Y
         STA   L026751
         LDA   [$00]
         STA   L02674F
         LDA   #$0001
         STA   L02674B
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $4B00
         LDA   L020000
         PHA
         PEA   $0010
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCC   L110791
         PLA
         PLA
         STZ   L02674D
         JMP   L110C71

L110791  PLA
         PLX
         STA   L0266F1
         STX   L0266F3
         STA   $00
         STX   $02
         LDY   #$0004
         LDA   [$00],Y
         ORA   #$8000
         STA   [$00],Y
         DEY
         DEY
         LDA   [$00],Y
         STA   L026707
         LDA   [$00]
         STA   L026705
         LDA   #$0001
         STA   L02674D
         LDA   #$FF06
         STA   $5C
         JSL   L2909FD
         LDA   #$0001
         STA   L0242D5
         JSL   L1122D7
         LDX   L026751
         STX   L0266F7
         STX   L0266FB
         STX   $72
         LDX   L02674F
         STX   L0266F5
         STX   $70
         STX   L0266F9
         LDX   L026767
         STX   $6C
         LDX   L026769
         STX   $6E
         SEP   #$20
         STZ   $5C
         LDA   #$02
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L02671D
         LDA   $5C
         STA   L026747
         LDX   $70
         STX   L0266FD
         LDX   $72
         STX   L0266FF
         LDX   L026767
         STX   $6C
         LDX   L026769
         STX   $6E
         STZ   $5C
         LDA   #$01
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L02671F
         LDA   $5C
         STA   L026748
         LDX   $70
         STX   L026701
         LDX   $72
         STX   L026703
         LDX   L026767
         STX   $6C
         LDX   L026769
         STX   $6E
         STZ   $5C
         STZ   $5D
         JSL   L111D24
         LDX   $60
         STX   L026721
         LDA   $5C
         STA   L026749
         LDX   $70
         STX   L026709
         LDX   $72
         STX   L02670B
         LDX   L026763
         STX   $6C
         LDX   L026765
         STX   $6E
         SEP   #$20
         STZ   $5C
         STZ   $5D
         JSL   L111D24
         LDX   $60
         STX   L026723
         LDX   $70
         STX   L02670D
         LDX   $72
         STX   L02670F
         LDX   L026763
         STX   $6C
         LDX   L026765
         STX   $6E
         SEP   #$20
         LDA   #$01
         STA   $5C
         STZ   $5D
         JSL   L111D24
         LDX   $60
         STX   L026727
         LDX   $70
         STX   L026711
         LDX   $72
         STX   L026713
         LDX   L026763
         STX   $6C
         LDX   L026765
         STX   $6E
         LDA   #$01
         STA   $5C
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L02672B
         LDX   $70
         STX   L026715
         LDX   $72
         STX   L026717
         LDX   L026763
         STX   $6C
         LDX   L026765
         STX   $6E
         LDA   #$01
         STA   $5C
         LDA   #$02
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L02672F
         LDX   $70
         STX   L026719
         LDX   $72
         STX   L02671B
         LDX   L026763
         STX   $6C
         LDX   L026765
         STX   $6E
         SEP   #$20
         LDA   #$01
         STA   $5C
         LDA   #$03
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L026733
         LDX   $64
         PHX
         LDX   L026705
         STX   $70
         LDX   L026707
         STX   $72
         STZ   $5C
         SEP   #$20
         LDA   $72
         STAL  L110931+1
         STAL  L110931+2
         LDA   #$00
         STA   [$70]
         REP   #$20
         LDX   $70
         LDY   $70
         INY
         LDA   #$4AFE
         PHB
L110931  MVN   $000000,$000000
         PLB
         LDA   #L110530
         STA   $6C
         LDA   #^L110530
         STA   $6E
         LDX   #$0013
         STX   $64
L110944  PHX
         LDA   [$6C]
         STA   $64
         LDA   $6C
         CLC
         ADC   #$0002
         STA   $6C
         LDA   [$6C]
         STA   $68
         LDA   $6C
         CLC
         ADC   #$0002
         STA   $6C
         PHA
         JSL   L112089
         PLA
         STA   $6C
         PLX
         DEX
         BNE   L110944
         LDA   #L110530
         STA   $6C
         LDX   #$0013
         STX   $64
L110973  PHX
         LDA   [$6C]
         CLC
         ADC   #$00A5
         STA   $64
         LDA   $6C
         CLC
         ADC   #$0002
         STA   $6C
         LDA   [$6C]
         STA   $68
         LDA   $6C
         CLC
         ADC   #$0002
         STA   $6C
         PHA
         JSL   L112089
         PLA
         STA   $6C
         PLX
         DEX
         BNE   L110973
         LDA   #L110580
         STA   $6C
         LDA   #^L110580
         STA   $6E
         LDX   #$000A
         STX   $64
L1109AB  PHX
         LDA   [$6C]
         CLC
         ADC   #$0082
         STA   $64
         LDA   $6C
         CLC
         ADC   #$0002
         STA   $6C
         LDA   [$6C]
         STA   $68
         LDA   $6C
         CLC
         ADC   #$0002
         STA   $6C
         PHA
         JSL   L112089
         PLA
         STA   $6C
         PLX
         DEX
         BNE   L1109AB
         PLX
         STX   $64
         LDA   #$000F
         STA   L026737
         STA   L026739
         LDA   #$001E
         STA   L02673B
         LDA   #$0032
         STA   L02673D
         LDA   #$0046
         STA   $64
         LDA   #$00A0
         STA   L02673F
         LDA   #$0094
         STA   L026741
         STZ   L026743
L110A00  SEP   #$20
         LDAL  KBD
         BPL   L110A15
         STAL  KBDSTROBE
         AND   #$7F
         CMP   #$0D
         BNE   L110A15
         JMP   L110C54

L110A15  REP   #$20
         LDA   $64
         BIT   #$0001
         BEQ   L110A21
         INC   L026737
L110A21  LDX   $64
         PHX
         LDX   L026705
         STX   $70
         LDX   L026707
         STX   $72
         STZ   $5C
         SEP   #$20
         LDA   $72
         STAL  L110A4B+1
         STAL  L110A4B+2
         LDA   #$00
         STA   [$70]
         REP   #$20
         LDX   $70
         LDY   $70
         INY
         LDA   #$4AFE
         PHB
L110A4B  MVN   $000000,$000000
         PLB
         LDA   #L110580
         STA   $6C
         LDA   #^L110580
         STA   $6E
         LDX   #$004A
         STX   $64
L110A5E  PHX
         LDX   L026705
         STX   $70
         LDA   [$6C]
         STA   $64
         LDA   $6C
         CLC
         ADC   #$0002
         STA   $6C
         LDA   [$6C]
         STA   $68
         LDA   $6C
         CLC
         ADC   #$0002
         STA   $6C
         PHA
         JSL   L11206B
         PLA
         STA   $6C
         PLX
         DEX
         BNE   L110A5E
         STZ   $68
         STZ   $64
         LDX   L026701
         STX   $6C
         LDX   L026703
         STX   $6E
         LDX   L026705
         STX   $70
         LDX   L026707
         STX   $72
         LDX   L026721
         STX   $5C
         JSL   L111FD6
         PLX
         STX   $64
         DEC   L02673F
         LDX   L02673F
         STX   $68
         LDX   L026741
         STX   $60
         LDX   L026709
         STX   $6C
         LDX   L02670B
         STX   $6E
         LDX   L026723
         STX   $5C
         JSL   L112161
         LDA   L02673F
         CLC
         ADC   #$0021
         STA   $68
         LDA   L026741
         CLC
         ADC   #$0002
         STA   $60
         LDA   #L02670D
         CLC
         ADC   L026743
         STA   $70
         LDA   ($70)
         STA   $6C
         LDY   #$0002
         LDA   ($70),Y
         STA   $6E
         LDA   #L026727
         CLC
         ADC   L026743
         STA   $70
         LDA   ($70)
         STA   $5C
         JSL   L112161
         LDX   $64
         PHX
         LDX   L026737
         STX   $68
         LDX   L026739
         STX   $64
         LDX   L0266FD
         STX   $6C
         LDX   L0266FF
         STX   $6E
         LDX   L026705
         STX   $70
         LDX   L026707
         STX   $72
         LDX   L02671F
         STX   $5C
         SEP   #$20
         LDA   L026748
         STA   $60
         REP   #$20
         JSL   L111E48
         DEC   L02673F
         LDX   L02673F
         STX   $68
         LDX   L026741
         STX   $60
         LDX   L026709
         STX   $6C
         LDX   L02670B
         STX   $6E
         LDX   L026723
         STX   $5C
         JSL   L112161
         LDA   L02673F
         CLC
         ADC   #$0021
         STA   $68
         LDA   L026741
         CLC
         ADC   #$0002
         STA   $60
         LDA   #L02670D
         CLC
         ADC   L026743
         STA   $70
         LDA   ($70)
         STA   $6C
         LDY   #$0002
         LDA   ($70),Y
         STA   $6E
         LDA   #L026727
         CLC
         ADC   L026743
         STA   $70
         LDA   ($70)
         STA   $5C
         JSL   L112161
         INC   L02673B
         LDX   L02673B
         STX   $68
         LDX   L02673D
         STX   $64
         LDX   L0266F9
         STX   $6C
         LDX   L0266FB
         STX   $6E
         LDX   L026705
         STX   $70
         LDX   L026707
         STX   $72
         LDX   L02671D
         STX   $5C
         SEP   #$20
         LDA   L026747
         STA   $60
         REP   #$20
         JSL   L111E48
         LDX   #$0000
         STX   $68
         LDX   #$001E
         STX   $60
         LDX   L026705
         STX   $6C
         LDX   L026707
         STX   $6E
         SEP   #$20
         LDA   #$78
         STA   $5D
         REP   #$20
         JSL   L1120AC
         DEC   L02673F
         LDX   L02673F
         STX   $68
         LDX   L026741
         STX   $60
         LDX   L026709
         STX   $6C
         LDX   L02670B
         STX   $6E
         LDX   L026723
         STX   $5C
         JSL   L112161
         LDA   L02673F
         CLC
         ADC   #$0021
         STA   $68
         LDA   L026741
         CLC
         ADC   #$0002
         STA   $60
         LDA   #L02670D
         CLC
         ADC   L026743
         STA   $70
         LDA   ($70)
         STA   $6C
         LDY   #$0002
         LDA   ($70),Y
         STA   $6E
         LDA   #L026727
         CLC
         ADC   L026743
         STA   $70
         LDA   ($70)
         STA   $5C
         JSL   L112161
         REP   #$20
         LDA   L026743
         CLC
         ADC   #$0004
         STA   L026743
         CMP   #$000E
         BCC   L110C4B
         STZ   L026743
L110C4B  PLA
         DEC
         STA   $64
         BEQ   L110C54
         JMP   L110A00

L110C54  REP   #$20
         JSL   L290C4C
         JSL   L0F01AC
         JSL   L0F0135
         LDA   L0266F3
         PHA
         LDA   L0266F1
         PHA
         _DisposeHandle
L110C71  LDA   L0266EF
         PHA
         LDA   L0266ED
         PHA
         _DisposeHandle
L110C80  LDA   L0242E1
         PHA
         JSL   L0E00B9
         PLA
         STA   L0242E1
L110C8C  PLA
         STA   $70
         PLA
         STA   $6C
         PLA
         STA   $68
         PLA
         STA   $64
         PLA
         STA   $60
         PLA
         STA   $5C
         PLP
         RTL

L110CA0  ENT
         PHP
         REP   #$20
         LDX   $5C
         PHX
         LDX   $60
         PHX
         LDX   $64
         PHX
         LDX   $68
         PHX
         LDX   $6C
         PHX
         LDX   $6C
         PHX
         LDA   L0242DB
         PHA
         PEA   ^L026832
         PEA   L026832
         JSL   L0E0000
         PLA
         STA   $70
         PLA
         STA   $72
         LDA   [$70]
         STA   L026846
         LDY   #$0002
         LDA   [$70],Y
         STA   L026848
         LDY   #$0004
         LDA   [$70],Y
         STA   L026842
         LDY   #$0006
         LDA   [$70],Y
         STA   L026844
         PLA
         STA   L0242DB
         CMP   #$FFFF
         BNE   L110CF5
         STZ   L0242DB
         JMP   L11144C

L110CF5  PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $FDF0
         LDA   L020000
         PHA
         PEA   $0010
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCC   L110D1F
         PLA
         PLA
         STZ   L02674B
         JMP   L111440

L110D1F  PLA
         PLX
         STA   L0266ED
         STX   L0266EF
         STA   $00
         STX   $02
         LDY   #$0004
         LDA   [$00],Y
         ORA   #$8000
         STA   [$00],Y
         DEY
         DEY
         LDA   [$00],Y
         STA   L026751
         LDA   [$00]
         STA   L02674F
         LDA   #$0001
         STA   L02674B
         LDA   #$FF07
         STA   $5C
         JSL   L2909FD
         LDA   #$0001
         STA   L0242D5
         JSL   L1122D7
         LDX   L026751
         STX   L0266F7
         STX   $72
         LDX   L02674F
         STX   L0266F5
         STX   $70
         LDX   L026846
         STX   $6C
         LDX   L026848
         STX   $6E
         JSL   L111CED
         LDA   $70
         STA   L02676B
         LDA   $72
         STA   L02676D
         LDA   L026842
         STA   $6C
         LDA   L026844
         STA   $6E
         STZ   $5C
         JSL   L111D24
         LDX   $60
         STX   L02671D
         SEP   #$20
         LDA   $5C
         STA   L02682B
         LDX   $70
         STX   L02676F
         LDX   $72
         STX   L026771
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         STZ   $5C
         LDA   #$01
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L02671F
         LDA   $5C
         STA   L02682C
         LDX   $70
         STX   L026783
         LDX   $72
         STX   L026785
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$01
         STA   $5C
         STZ   $5D
         JSL   L111D24
         LDX   $60
         STX   L02679F
         LDX   $70
         STX   L026787
         LDX   $72
         STX   L026789
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$01
         STA   $5C
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L0267A3
         LDX   $70
         STX   L02678B
         LDX   $72
         STX   L02678D
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$01
         STA   $5C
         LDA   #$02
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L0267A7
         LDX   $70
         STX   L02678F
         LDX   $72
         STX   L026791
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$01
         STA   $5C
         LDA   #$03
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L0267AB
         LDX   $70
         STX   L026793
         LDX   $72
         STX   L026795
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$01
         STA   $5C
         LDA   #$04
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L0267AF
         LDX   $70
         STX   L026797
         LDX   $72
         STX   L026799
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$01
         STA   $5C
         LDA   #$05
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L0267B3
         LDX   $70
         STX   L02679B
         LDX   $72
         STX   L02679D
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$01
         STA   $5C
         LDA   #$06
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L0267B7
         LDX   $70
         STX   L0267BB
         LDX   $72
         STX   L0267BD
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$02
         STA   $5C
         STZ   $5D
         JSL   L111D24
         LDX   $60
         STX   L0267CF
         LDX   $70
         STX   L0267BF
         LDX   $72
         STX   L0267C1
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$02
         STA   $5C
         LDA   #$01
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L0267D3
         LDX   $70
         STX   L0267C3
         LDX   $72
         STX   L0267C5
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$02
         STA   $5D
         STA   $5C
         JSL   L111D24
         LDX   $60
         STX   L0267D7
         LDX   $70
         STX   L0267C7
         LDX   $72
         STX   L0267C9
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$02
         STA   $5C
         LDA   #$03
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L0267DB
         LDX   $70
         STX   L0267CB
         LDX   $72
         STX   L0267CD
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$02
         STA   $5C
         LDA   #$04
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L0267DF
         LDX   $70
         STX   L0267E3
         LDX   $72
         STX   L0267E5
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$04
         STA   $5C
         STZ   $5D
         JSL   L111D24
         LDX   $60
         STX   L026803
         LDX   $70
         STX   L0267E7
         LDX   $72
         STX   L0267E9
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$04
         STA   $5C
         LDA   #$01
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L026807
         LDX   $70
         STX   L0267EB
         LDX   $72
         STX   L0267ED
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$04
         STA   $5C
         LDA   #$02
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L02680B
         LDX   $70
         STX   L0267EF
         LDX   $72
         STX   L0267F1
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$04
         STA   $5C
         LDA   #$03
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L02680F
         LDX   $70
         STX   L0267F3
         LDX   $72
         STX   L0267F5
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$04
         STA   $5C
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L026813
         LDX   $70
         STX   L0267F7
         LDX   $72
         STX   L0267F9
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$04
         STA   $5C
         LDA   #$05
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L026817
         LDX   $70
         STX   L0267FB
         LDX   $72
         STX   L0267FD
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$04
         STA   $5C
         LDA   #$06
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L02681B
         LDX   $70
         STX   L0267FF
         LDX   $72
         STX   L026801
         LDX   L026842
         STX   $6C
         LDX   L026844
         STX   $6E
         LDA   #$04
         STA   $5C
         LDA   #$07
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L02681F
         LDX   $70
         STX   L0266FD
         LDX   $72
         STX   L0266FF
         LDX   #$0056
         STX   $68
         LDX   #$0027
         STX   $64
         LDX   L026783
         STX   $6C
         LDX   L026785
         STX   $6E
         LDX   L02679F
         STX   $5C
         LDX   L0266F5
         STX   $70
         LDX   L0266F7
         STX   $72
         JSL   L111FD6
         LDX   #$0049
         STX   $68
         LDX   #$0027
         STX   $64
         LDX   L0267BB
         STX   $6C
         LDX   L0267BD
         STX   $6E
         LDX   L0267CF
         STX   $5C
         LDX   L0266F5
         STX   $70
         LDX   L0266F7
         STX   $72
         JSL   L111FD6
         LDX   #$0000
         STX   $68
         LDX   #$000A
         STX   $60
         LDX   L0266F5
         STX   $6C
         LDX   L0266F7
         STX   $6E
         LDA   #$BE
         STA   $5D
         JSL   L1120AC
         REP   #$20
         STZ   L02682F
         LDX   #$00D2
         STX   $64
         LDX   #$0050
         STX   L02673F
         LDX   #$00C8
         STX   L026741
         STZ   L026823
         STZ   L026827
L11112E  SEP   #$20
         STZ   L026831
         LDAL  KBD
         BPL   L111149
         AND   #$7F
         CMP   #$0D
         BNE   L111146
         STAL  KBDSTROBE
         JMP   L111423

L111146  STA   L026831
L111149  REP   #$20
         LDX   $64
         PHX
         DEC   L02673F
         LDX   L02673F
         STX   $68
         LDX   #$0064
         STX   $64
         LDX   L02671D
         STX   $5C
         LDX   L0266F5
         STX   $6C
         LDX   L0266F7
         STX   $6E
         LDX   L0266FD
         STX   $70
         LDX   L0266FF
         STX   $72
         JSL   L11201F
         LDX   $70
         STX   L026701
         LDX   $72
         STX   L026703
         LDX   L02673F
         STX   $68
         LDX   #$0064
         STX   $64
         SEP   #$20
         LDA   L02682B
         STA   $60
         LDX   L02676B
         STX   $6C
         LDX   L02676D
         STX   $6E
         LDX   L02671D
         STX   $5C
         LDX   L0266F5
         STX   $70
         LDX   L0266F7
         STX   $72
         JSL   L111E48
         LDX   L02673F
         STX   $68
         LDX   #$0064
         STX   $64
         REP   #$20
         LDA   $68
         CLC
         ADC   #$003F
         STA   $68
         LDA   L02671F
         STA   $5C
         LDA   L0266F5
         STA   $6C
         LDA   L0266F7
         STA   $6E
         LDA   L026701
         STA   $70
         LDA   L026703
         STA   $72
         JSL   L11201F
         REP   #$20
         LDA   L02673F
         STA   $68
         LDA   #$0064
         STA   $64
         LDA   $68
         CLC
         ADC   #$003F
         STA   $68
         SEP   #$20
         LDA   L02682C
         STA   $60
         LDX   L02676F
         STX   $6C
         LDX   L026771
         STX   $6E
         LDX   L02671F
         STX   $5C
         LDX   L0266F5
         STX   $70
         LDX   L0266F7
         STX   $72
         JSL   L111E48
         REP   #$20
         STZ   $68
         LDA   #$0064
         STA   $60
         LDA   L02674F
         CLC
         ADC   #$3E80
         STA   $6C
         LDX   L026751
         STX   $6E
         SEP   #$20
         LDA   #$39
         STA   $5D
         JSL   L1120AC
         LDX   L02673F
         STX   $68
         LDX   #$0064
         STX   $64
         LDX   L02671D
         STX   $5C
         LDX   L0266FD
         STX   $6C
         LDX   L0266FF
         STX   $6E
         LDX   L0266F5
         STX   $70
         LDX   L0266F7
         STX   $72
         JSL   L111FD6
         LDX   L02673F
         STX   $68
         LDX   #$0064
         STX   $64
         REP   #$20
         LDA   $68
         CLC
         ADC   #$003F
         STA   $68
         LDX   L02671F
         STX   $5C
         LDX   L026701
         STX   $6C
         LDX   L026703
         STX   $6E
         LDX   L0266F5
         STX   $70
         LDX   L0266F7
         STX   $72
         JSL   L111FD6
         LDX   #$0056
         STX   $68
         LDX   #$0027
         STX   $64
         REP   #$20
         LDA   #L026783
         CLC
         ADC   L026823
         STA   $70
         LDA   ($70)
         STA   $6C
         LDY   #$0002
         LDA   ($70),Y
         STA   $6E
         LDA   #L02679F
         CLC
         ADC   L026823
         STA   $70
         LDA   ($70)
         STA   $5C
         LDA   L0266F5
         STA   $70
         LDA   L0266F7
         STA   $72
         JSL   L111FD6
         REP   #$20
         PLA
         STA   $64
         PHA
         CMP   #$00AB
         BCC   L111322
         SEP   #$20
         LDAL  KBD
         BPL   L11131F
         AND   #$7F
         CMP   #$64
         BNE   L1112F1
         LDA   L02682F
         ORA   #$01
         STA   L02682F
         JMP   L11131B

L1112F1  CMP   #$61
         BNE   L111300
         LDA   L02682F
         ORA   #$02
         STA   L02682F
         JMP   L11131B

L111300  CMP   #$65
         BNE   L11130F
         LDA   L02682F
         ORA   #$04
         STA   L02682F
         JMP   L11131B

L11130F  CMP   #$0D
         BEQ   L11131F
         STAL  KBDSTROBE
         PLX
         JMP   L111423

L11131B  STAL  KBDSTROBE
L11131F  JMP   L11132D

L111322  SEP   #$20
         LDA   L026831
         BEQ   L11132D
         STAL  KBDSTROBE
L11132D  REP   #$20
         LDA   $64
         CMP   #$00AA
         BEQ   L11133B
         BCC   L11133B
         JMP   L1113E4

L11133B  LDA   L02682F
         CMP   #$0007
         BEQ   L111395
         LDA   $64
         CMP   #$00A5
         BEQ   L11134C
         BCS   L11134F
L11134C  JMP   L1113E4

L11134F  LDA   #$0049
         STA   $68
         LDA   #$0027
         STA   $64
         LDA   #L0267BB
         CLC
         ADC   L026827
         STA   $70
         LDA   ($70)
         STA   $6C
         LDY   #$0002
         LDA   ($70),Y
         STA   $6E
         LDA   #L0267CF
         CLC
         ADC   L026827
         STA   $70
         LDA   ($70)
         STA   $5C
         LDA   L0266F5
         STA   $70
         LDA   L0266F7
         STA   $72
         JSL   L111FD6
         LDA   L026827
         CLC
         ADC   #$0004
         STA   L026827
         JMP   L1113E4

L111395  LDA   $64
         CMP   #$00A2
         BEQ   L11139E
         BCS   L1113A1
L11139E  JMP   L1113E4

L1113A1  LDA   #$0049
         STA   $68
         LDA   #$0027
         STA   $64
         LDA   #L0267E3
         CLC
         ADC   L026827
         STA   $70
         LDA   ($70)
         STA   $6C
         LDY   #$0002
         LDA   ($70),Y
         STA   $6E
         LDA   #L026803
         CLC
         ADC   L026827
         STA   $70
         LDA   ($70)
         STA   $5C
         LDA   L0266F5
         STA   $70
         LDA   L0266F7
         STA   $72
         JSL   L111FD6
         LDA   L026827
         CLC
         ADC   #$0004
         STA   L026827
L1113E4  LDA   #$0000
         STA   $68
         LDA   #$0032
         STA   $60
         LDA   L02674F
         CLC
         ADC   #$1900
         STA   $6C
         LDA   L026751
         STA   $6E
         SEP   #$20
         LDA   #$0D
         STA   $5D
         JSL   L1120AC
         REP   #$20
         LDA   L026823
         CLC
         ADC   #$0004
         STA   L026823
         CMP   #$001A
         BCC   L11141A
         STZ   L026823
L11141A  PLA
         DEC
         STA   $64
         BEQ   L111423
         JMP   L11112E

L111423  REP   #$20
         JSL   L290C4C
         JSL   L0F01AC
         JSL   L0F0135
         LDA   L0266EF
         PHA
         LDA   L0266ED
         PHA
         _DisposeHandle
L111440  LDA   L0242DB
         PHA
         JSL   L0E00B9
         PLA
         STA   L0242DB
L11144C  PLA
         STA   $70
         PLA
         STA   $6C
         PLA
         STA   $68
         PLA
         STA   $64
         PLA
         STA   $60
         PLA
         STA   $5C
         PLP
         RTL

L111460  ENT
         PHP
         REP   #$20
         LDX   $5C
         PHX
         LDX   $60
         PHX
         LDX   $64
         PHX
         LDX   $68
         PHX
         LDX   $6C
         PHX
         LDX   $6C
         PHX
         LDX   #$34BC
         STX   L026705
         LDA   L0242DD
         PHA
         PEA   ^L02689A
         PEA   L02689A
         JSL   L0E0000
         PLA
         STA   $70
         PLA
         STA   $72
         LDA   [$70]
         STA   L0268AA
         LDY   #$0002
         LDA   [$70],Y
         STA   L0268AC
         PLA
         STA   L0242DD
         CMP   #$FFFF
         BNE   L1114AB
         STZ   L0242DD
         JMP   L111AA8

L1114AB  PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $FDF0
         LDA   L020000
         PHA
         PEA   $0010
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCC   L1114D5
         PLA
         PLA
         STZ   L02674B
         JMP   L111A9C

L1114D5  PLA
         PLX
         STA   L0266ED
         STX   L0266EF
         STA   $00
         STX   $02
         LDY   #$0004
         LDA   [$00],Y
         ORA   #$8000
         STA   [$00],Y
         DEY
         DEY
         LDA   [$00],Y
         STA   L026751
         LDA   [$00]
         STA   L02674F
         LDA   #$0001
         STA   L02674B
         LDA   #$FF04
         STA   $5C
         JSL   L2909FD
         LDA   #$0001
         STA   L0242D5
         JSL   L1122D7
         LDX   L026751
         STX   L026707
         STX   L0266F7
         STX   L0266FB
         STX   $72
         LDA   L026705
         CLC
         ADC   L02674F
         STA   L026705
         LDX   L02674F
         STX   L0266F5
         STX   $70
         STX   L0266F9
         LDA   L0268AA
         STA   $6C
         LDA   L0268AC
         STA   $6E
         STZ   $5C
         JSL   L111D24
         LDX   $60
         STX   L02671D
         SEP   #$20
         LDA   $5C
         STA   L026747
         LDX   $70
         STX   L026773
         LDX   $72
         STX   L026775
         LDX   L0268AA
         STX   $6C
         LDX   L0268AC
         STX   $6E
         LDA   #$01
         STA   $5C
         STZ   $5D
         JSL   L111D24
         LDX   $60
         STX   L02684A
         LDA   $5C
         STA   L026748
         LDX   $70
         STX   L026777
         LDX   $72
         STX   L026779
         LDX   L0268AA
         STX   $6C
         LDX   L0268AC
         STX   $6E
         LDA   #$01
         STA   $5C
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L02684E
         LDX   $70
         STX   L02677B
         LDX   $72
         STX   L02677D
         LDX   L0268AA
         STX   $6C
         LDX   L0268AC
         STX   $6E
         LDA   #$01
         STA   $5C
         LDA   #$02
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L026852
         LDX   $70
         STX   L02677F
         LDX   $72
         STX   L026781
         LDX   L0268AA
         STX   $6C
         LDX   L0268AC
         STX   $6E
         LDA   #$01
         STA   $5C
         LDA   #$03
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L026856
         LDX   $70
         STX   L02685A
         LDX   $72
         STX   L02685C
         LDX   L0268AA
         STX   $6C
         LDX   L0268AC
         STX   $6E
         LDA   #$02
         STA   $5C
         STZ   $5D
         JSL   L111D24
         LDX   $60
         STX   L02687A
         LDA   $5C
         STA   L026749
         LDX   $70
         STX   L02685E
         LDX   $72
         STX   L026860
         LDX   L0268AA
         STX   $6C
         LDX   L0268AC
         STX   $6E
         LDA   #$02
         STA   $5C
         LDA   #$01
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L02687E
         LDX   $70
         STX   L026862
         LDX   $72
         STX   L026864
         LDX   L0268AA
         STX   $6C
         LDX   L0268AC
         STX   $6E
         LDA   #$03
         STA   $5C
         STZ   $5D
         JSL   L111D24
         LDX   $60
         STX   L026882
         LDX   $70
         STX   L026866
         LDX   $72
         STX   L026868
         LDX   L0268AA
         STX   $6C
         LDX   L0268AC
         STX   $6E
         LDA   #$03
         STA   $5C
         LDA   #$01
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L026886
         LDX   $70
         STX   L02686A
         LDX   $72
         STX   L02686C
         LDX   L0268AA
         STX   $6C
         LDX   L0268AC
         STX   $6E
         LDA   #$04
         STA   $5C
         STZ   $5D
         JSL   L111D24
         LDX   $60
         STX   L02688A
         LDX   $70
         STX   L02686E
         LDX   $72
         STX   L026870
         LDX   L0268AA
         STX   $6C
         LDX   L0268AC
         STX   $6E
         LDA   #$04
         STA   $5C
         LDA   #$01
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L02688E
         LDX   $70
         STX   L026872
         LDX   $72
         STX   L026874
         LDX   L0268AA
         STX   $6C
         LDX   L0268AC
         STX   $6E
         LDA   #$05
         STA   $5C
         STZ   $5D
         JSL   L111D24
         LDX   $60
         STX   L026892
         LDX   $70
         STX   L026876
         LDX   $72
         STX   L026878
         LDX   L0268AA
         STX   $6C
         LDX   L0268AC
         STX   $6E
         LDA   #$05
         STA   $5C
         LDA   #$01
         STA   $5D
         JSL   L111D24
         LDX   $60
         STX   L026896
         LDX   $70
         STX   L0266FD
         LDX   $72
         STX   L0266FF
         REP   #$20
         LDA   $70
         CLC
         ADC   L026852
         CLC
         ADC   #$2710
         STA   $70
         STA   L026705
         LDX   $64
         PHX
         STZ   $5C
         SEP   #$20
         LDA   $72
         STAL  L111744+1
         STAL  L111744+2
         LDA   #$00
         STA   [$70]
         REP   #$20
         LDX   $70
         LDY   $70
         INY
         LDA   #$4AFE
         PHB
L111744  MVN   $000000,$000000
         PLB
         LDA   #L110530
         STA   $6C
         LDA   #^L110530
         STA   $6E
         LDX   #$0013
         STX   $64
L111757  PHX
         LDA   ($6C)
         STA   $64
         LDA   $6C
         CLC
         ADC   #$0002
         STA   $6C
         LDA   ($6C)
         STA   $68
         LDA   $6C
         CLC
         ADC   #$0002
         STA   $6C
         PHA
         JSL   L11206B
         PLA
         STA   $6C
         PLX
         DEX
         BNE   L111757
         PLX
         STX   $64
         LDX   #L110580
         STX   $6C
         LDX   #^L110580
         STX   $6E
         LDX   #$004A
         STX   $64
L11178E  PHX
         LDX   L026705
         STX   $70
         LDA   ($6C)
         STA   $64
         LDA   $6C
         CLC
         ADC   #$0002
         STA   $6C
         LDA   ($6C)
         STA   $68
         LDA   $6C
         CLC
         ADC   #$0002
         STA   $6C
         PHA
         JSL   L11206B
         PLA
         STA   $6C
         PLX
         DEX
         BNE   L11178E
         LDX   #$0032
         STX   $68
         LDX   #$000A
         STX   $64
         LDX   L0266F9
         STX   $6C
         LDX   L0266FB
         STX   $6E
         LDX   L026705
         STX   $70
         LDX   L026707
         STX   $72
         LDX   L02671D
         STX   $5C
         SEP   #$20
         LDA   L026747
         STA   $60
         JSL   L111E48
         LDX   #$0000
         STX   $68
         LDX   #$0050
         STX   $64
         LDX   L02685A
         STX   $6C
         LDX   L02685C
         STX   $6E
         LDX   L026705
         STX   $70
         LDX   L026707
         STX   $72
         LDX   L02687A
         STX   $5C
         SEP   #$20
         LDA   L026749
         STA   $60
         JSL   L111E48
         LDX   #$0050
         STX   $68
         STX   $64
         LDX   L02685E
         STX   $6C
         LDX   L026860
         STX   $6E
         LDX   L026705
         STX   $70
         LDX   L026707
         STX   $72
         LDX   L02687E
         STX   $5C
         SEP   #$20
         LDA   L026749
         STA   $60
         JSL   L111E48
         LDX   #$0000
         STX   $68
         LDX   #$0064
         STX   $64
         LDX   L026862
         STX   $6C
         LDX   L026864
         STX   $6E
         LDX   L026705
         STX   $70
         LDX   L026707
         STX   $72
         LDX   L026882
         STX   $5C
         SEP   #$20
         LDA   L026749
         STA   $60
         JSL   L111FD6
         LDX   #$0050
         STX   $68
         LDX   #$0064
         STX   $64
         LDX   L026866
         STX   $6C
         LDX   L026868
         STX   $6E
         LDX   L026705
         STX   $70
         LDX   L026707
         STX   $72
         LDX   L026886
         STX   $5C
         SEP   #$20
         LDA   L026749
         STA   $60
         JSL   L111FD6
         LDX   #$0000
         STX   $68
         LDX   #$0078
         STX   $64
         LDX   L02686A
         STX   $6C
         LDX   L02686C
         STX   $6E
         LDX   L026705
         STX   $70
         LDX   L026707
         STX   $72
         LDX   L02688A
         STX   $5C
         SEP   #$20
         LDA   L026749
         STA   $60
         JSL   L111FD6
         LDX   #$0050
         STX   $68
         LDX   #$0078
         STX   $64
         LDX   L02686E
         STX   $6C
         LDX   L026870
         STX   $6E
         LDX   L026705
         STX   $70
         LDX   L026707
         STX   $72
         LDX   L02688E
         STX   $5C
         SEP   #$20
         LDA   L026749
         STA   $60
         JSL   L111FD6
         LDX   #$0000
         STX   $68
         LDX   #$008C
         STX   $64
         LDX   L026872
         STX   $6C
         LDX   L026874
         STX   $6E
         LDX   L026705
         STX   $70
         LDX   L026707
         STX   $72
         LDX   L026892
         STX   $5C
         SEP   #$20
         LDA   L026749
         STA   $60
         JSL   L111FD6
         LDX   #$0050
         STX   $68
         LDX   #$008C
         STX   $64
         LDX   L026876
         STX   $6C
         LDX   L026878
         STX   $6E
         LDX   L026705
         STX   $70
         LDX   L026707
         STX   $72
         LDX   L026896
         STX   $5C
         SEP   #$20
         LDA   L026749
         STA   $60
         JSL   L111FD6
         LDX   #$0000
         STX   $68
         LDX   #$001E
         STX   $60
         LDX   L026705
         STX   $6C
         LDX   L026707
         STX   $6E
         LDA   #$A0
         STA   $5D
         JSL   L1120AC
         REP   #$20
         LDX   #$00C8
         STX   $64
         LDX   #$00A0
         STX   L02673F
         LDX   #$00C8
         STX   L026741
         STZ   L026823
L111985  SEP   #$20
         LDAL  KBD
         BPL   L11199A
         STAL  KBDSTROBE
         AND   #$7F
         CMP   #$0D
         BNE   L11199A
         JMP   L111A7F

L11199A  REP   #$20
         LDX   $64
         PHX
         DEC   L02673F
         LDX   L02673F
         STX   $68
         LDX   #$0028
         STX   $64
         LDA   #L02684A
         CLC
         ADC   L026823
         STA   $70
         LDA   ($70)
         STA   $5C
         LDX   L026705
         STX   $6C
         LDX   L026707
         STX   $6E
         LDX   L0266FD
         STX   $70
         LDX   L0266FF
         STX   $72
         JSL   L11201F
         LDX   L02673F
         STX   $68
         LDX   #$0028
         STX   $64
         SEP   #$20
         LDA   L026748
         STA   $60
         REP   #$20
         LDA   #L026773
         CLC
         ADC   L026823
         STA   $70
         LDA   ($70)
         STA   $6C
         LDY   #$0002
         LDA   ($70),Y
         STA   $6E
         LDA   #L02684A
         CLC
         ADC   L026823
         STA   $70
         LDA   ($70)
         STA   $5C
         LDA   L026705
         STA   $70
         LDA   L026707
         STA   $72
         JSL   L111E48
         LDX   #$0000
         STX   $68
         LDX   #$001E
         STX   $60
         LDX   L026705
         STX   $6C
         LDX   L026707
         STX   $6E
         SEP   #$20
         LDA   #$3C
         STA   $5D
         REP   #$20
         JSL   L1120AC
         LDX   L02673F
         STX   $68
         LDX   #$0028
         STX   $64
         LDA   #L02684A
         CLC
         ADC   L026823
         STA   $70
         LDA   ($70)
         STA   $5C
         LDA   L0266FD
         STA   $6C
         LDA   L0266FF
         STA   $6E
         LDA   L026705
         STA   $70
         LDA   L026707
         STA   $72
         JSL   L111FD6
         REP   #$20
         LDA   L026823
         CLC
         ADC   #$0004
         STA   L026823
         CMP   #$000E
         BCC   L111A76
         STZ   L026823
L111A76  PLA
         DEC
         STA   $64
         BEQ   L111A7F
         JMP   L111985

L111A7F  REP   #$20
         JSL   L290C4C
         JSL   L0F01AC
         JSL   L0F0135
         LDA   L0266EF
         PHA
         LDA   L0266ED
         PHA
         _DisposeHandle
L111A9C  LDA   L0242DD
         PHA
         JSL   L0E00B9
         PLA
         STA   L0242DD
L111AA8  PLA
         STA   $70
         PLA
         STA   $6C
         PLA
         STA   $68
         PLA
         STA   $64
         PLA
         STA   $60
         PLA
         STA   $5C
         PLP
         RTL

         PHP
         REP   #$20
         LDA   $64
         PHA
         LDA   $60
         PHA
         LDA   $64
         AND   #$00FF
         ASL
         TAY
         LDA   #$2000
         CLC
         ADC   L026997,Y
         CLC
         ADC   $68
         STA   $70
         PLX
         STX   $60
         PLA
         STA   $64
         XBA
         AND   #$00FF
         STA   $68
         LDA   L026B2C
         AND   #$00FF
         STA   $64
         BEQ   L111AF9
         LDA   $6C
L111AF0  CLC
         ADC   $60
         DEC   $64
         BNE   L111AF0
         STA   $6C
L111AF9  LDA   $6C
         PHA
         LDA   $5C
         PHA
         LDA   #$00A0
         SEC
         SBC   $60
         STA   $5C
         LDA   $60
         STA   $64
         LDA   $70
         CLC
         ADC   #$00A0
         STA   $6C
         LDX   $6C
         LDY   $70
L111B17  PHB
         LDA   $64
         DEC
         MVN   $E10000,$E10000
         PLB
         TYA
         CLC
         ADC   $5C
         TAY
         CLC
         ADC   #$00A0
         TAX
         DEC   $68
         BNE   L111B17
         PLA
         STA   $5C
         PLX
         SEP   #$20
         LDA   $6E
         STAL  L111B45+2
         LDA   #$E1
         STAL  L111B45+1
         REP   #$20
         PHB
         LDA   $64
         DEC
L111B45  MVN   $000000,$000000
         PLB
         INC   L026B2C
         SEP   #$20
         LDA   $5D
         CMP   L026B2C
         BEQ   L111B5B
         REP   #$20
         STZ   $5C
         PLP
         RTL

L111B5B  REP   #$20
         LDA   #$00FF
         STA   $5C
         STZ   L026B2C
         PLP
         RTL

L111B67  PHP
         REP   #$20
         LDA   $60
         PHA
         LDA   $64
         PHA
         LDA   $68
         PHA
         LDA   $6C
         PHA
         LDA   $70
         PHA
         STZ   $44
         LDA   $64
         BEQ   L111B8A
         LDA   $70
L111B81  CLC
         ADC   $5C
         DEC   $64
         BNE   L111B81
         STA   $70
L111B8A  LSR   $68
         BCC   L111B93
         LDA   #$00FF
         STA   $44
L111B93  LDA   $70
         CLC
         ADC   $68
         STA   $70
         LDA   $5C
         STA   $4A
         SEP   #$20
         LDA   $61
         STA   $46
         ASL
         ASL
         ASL
         ASL
         STA   $48
         STZ   $61
         REP   #$20
         LDA   $60
         ASL
         CLC
         ADC   #$0006
         TAY
         LDA   [$6C],Y
         STA   $60
         TAY
         LDA   [$6C],Y
         STA   $5C
         TYA
         CLC
         ADC   #$0002
         STA   $60
         LDX   $5C
         PHX
         SEP   #$20
         LDA   $44
         STA   $64
L111BCF  LDX   $5C
         PHX
         LDX   $70
         PHX
         LDX   $64
         PHX
         LDY   $60
         LDA   [$6C],Y
         STA   $68
         STZ   $69
L111BE0  LDA   $69
         CMP   #$08
         BNE   L111BF1
         INY
         STY   $60
         LDA   [$6C],Y
         STA   $68
         LDA   #$FF
         STA   $69
L111BF1  INC   $69
         LDA   $64
         CMP   #$FF
         BEQ   L111C10
         ASL   $68
         BCC   L111C05
         LDA   [$70]
         AND   #$0F
         ORA   $48
         STA   [$70]
L111C05  LDA   #$FF
         STA   $64
         DEC   $5C
         BNE   L111BE0
         JMP   L111C2A

L111C10  ASL   $68
         BCC   L111C1C
         LDA   [$70]
         AND   #$F0
         ORA   $46
         STA   [$70]
L111C1C  LDX   $70
         INX
         STX   $70
         STZ   $64
         DEC   $5C
         BNE   L111BE0
         JMP   L111C2A

L111C2A  REP   #$20
         INC   $60
         PLA
         STA   $64
         PLA
         CLC
         ADC   $4A
         STA   $70
         PLA
         STA   $5C
         SEP   #$20
         DEC   $5D
         BNE   L111BCF
         REP   #$20
         PLA
         STA   $5C
         PLA
         STA   $70
         PLA
         STA   $6C
         PLA
         STA   $68
         PLA
         STA   $64
         PLA
         STA   $60
         PLP
         RTL

         PHP
         REP   #$20
         LDA   $68
         STA   $4E
         STZ   $4C
L111C5F  SEP   #$20
         LDA   [$74]
         STA   $60
         REP   #$20
         INC   $74
         INC   $4C
         SEP   #$20
         LDA   $60
         BEQ   L111C9A
         CMP   #$3A
         BEQ   L111C8D
L111C75  LDX   $5C
         PHX
         JSL   L111B67
         STZ   $5D
         REP   #$20
         LDA   $68
         CLC
         ADC   $5C
         STA   $68
         PLA
         STA   $5C
         JMP   L111C5F

L111C8D  REP   #$20
         LDA   $4E
         CLC
         ADC   #$0032
         STA   $68
         JMP   L111C75

L111C9A  REP   #$20
         LDA   $4C
         STA   $5C
         PLP
         RTL

         PHP
         REP   #$20
         LDX   $5C
         PHX
         LDX   $64
         PHX
         LDX   $68
         PHX
         LDX   $70
         PHX
         LDX   $6C
         PHX
         LDX   $6E
         PHX
         STZ   $64
         LDA   $60
         ASL
         CLC
         ADC   #$0004
         ADC   $6C
         STA   $6C
         SEP   #$20
         LDA   $68
         STA   $64
         LDA   [$6C]
         ORA   [$70]
         STA   [$70]
         LDY   #$0001
         LDA   [$6C],Y
         ORA   [$70],Y
         STA   [$70],Y
         PLX
         STX   $6E
         PLX
         STX   $6C
         PLX
         STX   $70
         PLX
         STX   $68
         PLX
         STX   $64
         PLX
         STX   $5C
         PLP
         RTL

L111CED  PHP
         LDX   #$76C0
         STX   $5C
L111CF3  SEP   #$20
         STZ   $65
         LDA   [$6C]
         STA   $64
         REP   #$20
         INC   $6C
         SEP   #$20
         LDA   [$6C]
         STA   $68
         REP   #$20
         INC   $6C
L111D09  SEP   #$20
         LDA   $68
         STA   [$70]
         REP   #$20
         INC   $70
         DEC   $5C
         DEC   $64
         BNE   L111D09
         LDA   $5C
         CMP   #$0000
         BEQ   L111D22
         BCS   L111CF3
L111D22  PLP
         RTL

L111D24  PHP
         SEP   #$20
         LDX   $64
         PHX
         LDX   $74
         PHX
         LDX   $68
         PHX
         LDA   $5C
         CMP   [$6C]
         BCC   L111D3B
         BEQ   L111D3B
         JMP   L111E3D

L111D3B  LDX   $60
         PHX
         LDA   $5C
         STA   $64
         STZ   $65
         REP   #$20
         LDA   $6C
         STA   $60
         LDA   $6E
         STA   $62
         ASL   $64
         LDA   $60
         CLC
         ADC   $64
         CLC
         ADC   #$0008
         STA   $60
         LDA   [$60]
         CLC
         ADC   $6C
         STA   $60
         SEP   #$20
         LDA   $5D
         CMP   [$60]
         BEQ   L111D6F
         BCC   L111D6F
         JMP   L111E3D

L111D6F  LDA   $5D
         STA   $64
         STZ   $65
         REP   #$20
         ASL   $64
         LDA   $60
         CLC
         ADC   $64
         CLC
         ADC   #$0004
         STA   $60
         LDA   [$60]
         CLC
         ADC   $6C
         STA   $60
         STA   $74
         CLC
         ADC   #$0008
         STA   $6C
         LDA   $6E
         STA   $76
         PLX
         STX   $60
         LDY   #$0002
         LDA   [$74],Y
         STA   $64
         LSR   $68
L111DA3  STZ   L026B27
         LDX   $60
         PHX
         LDX   $64
         PHX
         LDX   $68
         PHX
         STZ   $68
         SEP   #$20
         STZ   $65
L111DB5  SEP   #$20
         LDA   [$6C]
         STA   $5C
         ROR
         ROR
         ROR
         ROR
         STA   $5D
         AND   #$0F
         STA   $64
         LDA   $5D
         ROR
         AND   #$F0
         STA   $5D
         REP   #$20
         LDA   $68
         CLC
         ADC   $64
         STA   $68
         SEP   #$20
         LDA   $5C
         AND   #$0F
         STA   $5C
         LDA   L026B27
         BIT   #$01
         BNE   L111DEE
L111DE4  SEP   #$20
         LDA   $5D
         STA   [$70]
         DEC   $64
         BEQ   L111E02
L111DEE  LDA   [$70]
         ORA   $5C
         STA   [$70]
         REP   #$20
         INC   $70
         DEC   $64
         BNE   L111DE4
         STZ   L026B27
         JMP   L111E09

L111E02  SEP   #$20
         LDA   #$FF
         STA   L026B27
L111E09  REP   #$20
         INC   $6C
         LDA   $68
         CMP   [$74]
         BCC   L111DB5
         INC   $70
         PLX
         STX   $68
         PLX
         STX   $64
         PLA
         CLC
         ADC   #$0002
         STA   $60
         DEC   $64
         BEQ   L111E29
         JMP   L111DA3

L111E29  SEP   #$20
         LDA   [$74]
         STA   $60
         LDY   #$0002
         LDA   [$74],Y
         STA   $61
         LDY   #$0006
         LDA   [$74],Y
         STA   $5C
L111E3D  PLX
         STX   $68
         PLX
         STX   $74
         PLX
         STX   $64
         PLP
         RTL

L111E48  PHP
         REP   #$20
         LDX   $64
         PHX
         LDA   $68
         BMI   L111E5C
         CMP   #$00A0
         BCC   L111E5C
         BEQ   L111E5C
         JMP   L111E9C

L111E5C  LDA   $64
         INC
         ASL
         TAY
         LDA   $70
         CLC
         ADC   L026997,Y
         STA   $70
         STZ   L026B28
         SEP   #$20
         LSR   $5C
         REP   #$20
         LDA   $68
         BPL   L111EAD
         EOR   #$FFFF
         INC
         STA   $68
         CLC
         ADC   $6C
         STA   $6C
         SEP   #$20
         STZ   $65
         LDA   $5C
         STA   $64
         REP   #$20
         LDA   $64
         SEC
         SBC   $68
         STA   $64
         SEP   #$20
         LDA   $64
         STA   $5C
         BEQ   L111E9C
         BCS   L111EA1
L111E9C  PLX
         STX   $64
         PLP
         RTL

L111EA1  REP   #$20
         LDA   $68
         STA   L026B28
         STZ   $68
         JMP   L111EDE

L111EAD  LDA   $68
         SEC
         SBC   #$0020
         STA   $64
         BMI   L111EDE
         LDA   $68
         STA   $64
         SEP   #$20
         CLC
         ADC   $5C
         SEC
         SBC   #$A1
         STA   $64
         BMI   L111EDE
         INC   $64
         LDA   $5C
         SEC
         SBC   $64
         STA   $5C
         BEQ   L111E9C
         BCS   L111ED7
         JMP   L111E9C

L111ED7  REP   #$20
         LDA   $64
         STA   L026B28
L111EDE  REP   #$20
         LDA   $70
         CLC
         ADC   $68
         STA   $70
         SEP   #$20
         LDA   $60
         STA   $68
         STA   $61
         ROR
         ROR   $60
         ROR
         ROR   $60
         ROR
         ROR   $60
         ROR
         ROR   $60
         LDA   $60
         ORA   $68
         STA   $68
         STZ   $65
         LDA   $5D
         STA   $64
L111F07  SEP   #$20
         LDX   $64
         PHX
         LDX   $70
         PHX
         STZ   $65
         LDA   $5C
         STA   $64
L111F15  SEP   #$20
         LDA   [$6C]
         STA   $5D
         STA   $69
         LDA   $68
         CMP   $69
         BEQ   L111F3D
         LDA   $69
         AND   #$F0
         STA   $69
         CMP   $60
         BEQ   L111F63
         LDA   $5D
         AND   #$0F
         STA   $69
         CMP   $61
         BEQ   L111F9B
         LDA   $5D
         STA   $69
         STA   [$70]
L111F3D  REP   #$20
         INC   $70
         INC   $6C
         DEC   $64
         BNE   L111F15
         PLA
         CLC
         ADC   #$00A0
         STA   $70
         LDA   $6C
         INC
         CLC
         ADC   L026B28
         STA   $6C
         PLA
         DEC
         STA   $64
         BEQ   L111F60
         JMP   L111F07
L111F60  JMP   L111E9C

L111F63  SEP   #$20
         LDA   [$70]
         AND   #$F0
         STA   [$70]
         LDA   $5D
         AND   #$0F
         STA   $69
         ORA   [$70]
         STA   [$70]
         REP   #$20
         INC   $70
         INC   $6C
         DEC   $64
         BNE   L111F15
         PLA
         CLC
         ADC   #$00A0
         STA   $70
         LDA   $6C
         INC
         CLC
         ADC   L026B28
         STA   $6C
         PLA
         DEC
         STA   $64
         BEQ   L111F98
         JMP   L111F07
L111F98  JMP   L111E9C

L111F9B  SEP   #$20
         LDA   [$70]
         AND   #$0F
         STA   [$70]
         LDA   $5D
         AND   #$F0
         STA   $69
         ORA   [$70]
         STA   [$70]
         REP   #$20
         INC   $70
         INC   $6C
         DEC   $64
         BEQ   L111FBA
         JMP   L111F15

L111FBA  PLA
         CLC
         ADC   #$00A0
         STA   $70
         LDA   $6C
         INC
         CLC
         ADC   L026B28
         STA   $6C
         PLA
         DEC
         STA   $64
         BEQ   L111FD3
         JMP   L111F07
L111FD3  JMP   L111E9C

L111FD6  PHP
         REP   #$20
         LDA   $64
         INC
         ASL
         TAY
         LDA   $70
         CLC
         ADC   L026997,Y
         CLC
         ADC   $68
         STA   $70
         SEP   #$20
         LSR   $5C
         LDA   $6E
         STAL  L112009+2
         LDA   $72
         STAL  L112009+1
L111FF9  LDX   $70
         PHX
         REP   #$20
         PHB
         LDX   $6C
         LDY   $70
         LDA   $5C
         AND   #$00FF
         DEC
L112009  MVN   $000000,$000000
         PLB
         PLA
         CLC
         ADC   #$00A0
         STA   $70
         INX
         STX   $6C
         SEP   #$20
         DEC   $5D
         BNE   L111FF9
         PLP
         RTL

L11201F  PHP
         REP   #$20
         LDA   $64
         INC
         ASL
         TAY
         LDA   L026997,Y
         CLC
         ADC   $68
         CLC
         ADC   $6C
         STA   $6C
         SEP   #$20
         STZ   $65
         LSR   $5C
         LDA   $6E
         STAL  L112055+2
         LDA   $72
         STAL  L112055+1
L112044  LDX   $6C
         PHX
         LDA   $5C
         STA   $64
         REP   #$20
         PHB
         LDX   $6C
         LDY   $70
         LDA   $64
         DEC
L112055  MVN   $000000,$000000
         PLB
         PLA
         CLC
         ADC   #$00A0
         STA   $6C
         INY
         STY   $70
         SEP   #$20
         DEC   $5D
         BNE   L112044
         PLP
         RTL

L11206B  PHP
         REP   #$20
         LDA   $64
         PHA
         ASL
         TAY
         LDA   $70
         CLC
         ADC   L026997,Y
         CLC
         ADC   $68
         STA   $70
         SEP   #$20
         LDA   #$0F
         STA   [$70]
         PLX
         STX   $64
         PLP
         RTL

L112089  PHP
         REP   #$20
         LDA   $64
         PHA
         ASL
         TAY
         LDA   #$2000
         CLC
         ADC   L026997,Y
         CLC
         ADC   $68
         STA   $70
         LDA   #$00E1
         STA   $72
         LDA   #$000F
         STA   [$70]
         PLA
         STX   $64
         PLP
         RTL

L1120AC  PHP
         REP   #$20
         LDA   $64
         PHA
         LDA   $5C
         PHA
         LDA   $60
         PHA
         ASL
         TAY
         LDA   #$2000
         CLC
         ADC   L026997,Y
         STA   $70
         LDA   $5D
         AND   #$00FF
         ASL
         ASL
         ASL
         ASL
         ASL
         STA   $64
         ASL
         ASL
         CLC
         ADC   $64
         STA   $5C
         SEP   #$20
         LDA   $6E
         STAL  L1120EE+2
         LDA   #$E1
         STAL  L1120EE+1
         REP   #$20
         PHB
         LDX   $6C
         LDY   $70
         LDA   $5C
         DEC
L1120EE  MVN   $000000,$000000
         PLB
         PLX
         STX   $60
         PLX
         STX   $5C
         PLX
         STX   $64
         PLP
         RTL

         PHP
         REP   #$20
         LDA   $64
         PHA
         LDA   $5C
         PHA
         LDA   $60
         PHA
         ASL
         TAY
         LDA   L026997,Y
         PHA
         CLC
         ADC   #$2000
         CLC
         ADC   $68
         STA   $70
         PLA
         CLC
         ADC   $6C
         CLC
         ADC   $68
         STA   $6C
         SEP   #$20
         LDA   $6E
         STAL  L11213E+2
         LDA   #$E1
         STAL  L11213E+1
         REP   #$20
         PHB
         LDX   $6C
         LDY   $70
L112136  PHX
         PHY
         LDA   $5C
         AND   #$00FF
         DEC
L11213E  MVN   $000000,$000000
         PLA
         CLC
         ADC   #$00A0
         TAY
         PLA
         CLC
         ADC   #$00A0
         TAX
         SEP   #$20
         DEC   $5D
         REP   #$20
         BNE   L112136
         PLB
         PLX
         STX   $60
         PLX
         STX   $5C
         PLX
         STX   $64
         PLP
         RTL

L112161  PHP
         SEP   #$20
         LDX   $64
         PHX
         LDX   $5C
         PHX
         LDX   $60
         PHX
         LSR   $5C
         REP   #$20
         STZ   L026B28
         LDA   $68
         SEC
         SBC   #$0000
         BPL   L1121A4
         EOR   #$FFFF
         INC
         STA   $68
         CLC
         ADC   $6C
         STA   $6C
         SEP   #$20
         LDA   $5C
         SEC
         SBC   $68
         STA   $5C
         BEQ   L112194
         BCS   L112197
L112194  JMP   L11221C

L112197  LDX   $68
         STX   L026B28
         LDX   #$0000
         STX   $68
         JMP   L1121CA

L1121A4  SEP   #$20
         LDA   $68
         CLC
         ADC   $5C
         REP   #$20
         AND   #$00FF
         SEC
         SBC   #$00A0
         STA   $64
         SEP   #$20
         BMI   L1121CA
         LDA   $5C
         SEC
         SBC   $64
         STA   $5C
         BMI   L11221C
         BEQ   L11221C
         LDX   $64
         STX   L026B28
L1121CA  REP   #$20
         LDA   $60
         ASL
         TAY
         LDA   #$2000
         CLC
         ADC   L026997,Y
         CLC
         ADC   $68
         STA   $70
         SEP   #$20
         STZ   L026B2B
         LDA   #$A0
         SEC
         SBC   $5C
         STA   L026B2A
         LDA   $5C
         STA   $64
         STZ   $65
         LDA   $6E
         STAL  L112205+2
         LDA   #$E1
         STAL  L112205+1
         LDX   $6C
         LDY   $70
L1121FF  REP   #$20
         LDA   $64
         DEC
         PHB
L112205  MVN   $000000,$000000
         PLB
         TXA
         CLC
         ADC   L026B28
         INC
         TAX
         TYA
         CLC
         ADC   L026B2A
         TAY
         SEP   #$20
         DEC   $5D
         BNE   L1121FF
L11221C  PLX
         STX   $60
         PLX
         STX   $5C
         PLX
         STX   $64
         PLP
         RTL

         PHP
         REP   #$20
         LDA   $64
         PHA
         LDA   $5C
         PHA
         LDA   $60
         PHA
         ASL
         TAY
         LDA   L026997,Y
         CLC
         ADC   #$2000
         ADC   $68
         STA   $70
         LDA   $5D
         AND   #$00FF
         STA   $64
         LDA   $5C
         AND   #$00FF
         LSR
         STA   $5C
         SEP   #$20
         LDA   $6E
         STAL  L112268+2
         LDA   #$E1
         STAL  L112268+1
         REP   #$20
         PHB
         LDX   $6C
         LDY   $70
L112264  PHY
         LDA   $5C
         DEC
L112268  MVN   $000000,$000000
         PLA
         CLC
         ADC   #$00A0
         TAY
         INX
         DEC   $64
         BNE   L112264
         PLB
         PLX
         STX   $60
         PLX
         STX   $5C
         PLX
         STX   $64
         PLP
         RTL

         PHP
         REP   #$20
         LDA   $64
         PHA
         LDA   $5C
         PHA
         LDA   $60
         PHA
         ASL
         TAY
         LDA   L026997,Y
         CLC
         ADC   #$2000
         ADC   $68
         STA   $70
         LSR   $64
         SEP   #$20
         LDA   $6E
         STAL  L1122BE+2
         LDA   #$E1
         STAL  L1122BE+1
         REP   #$20
         LDA   $5C
         XBA
         AND   #$00FF
         STA   $5C
         PHB
         LDX   $6C
         LDY   $70
L1122BA  PHY
         LDA   $64
         DEC
L1122BE  MVN   $000000,$000000
         PLA
         CLC
         ADC   #$00A0
         TAY
         DEC   $5C
         BNE   L1122BA
         PLB
         PLX
         STX   $60
         PLX
         STX   $5C
         PLX
         STX   $64
         PLP
         RTL

L1122D7  PHP
         SEP   #$20
         LDX   #$00C7
         LDY   #$0001
L1122E0  LDAL  $E19D00,X
         AND   #$10
         DEY
         BNE   L1122F0
         LDY   #$0014
         ORA   #$0F
         BRA   L1122F2
L1122F0  ORA   #$0F
L1122F2  STAL  $E19D00,X
         DEX
         BPL   L1122E0
         REP   #$20
         LDX   #$001E
L1122FE  LDAL  L11230C,X
         STAL  $E19FE0,X
         DEX
         DEX
         BPL   L1122FE
         PLP
         RTL

L11230C  HEX   00000F008000DB00000C7D0B5008BB0B
         HEX   7707BF00E000FD00980F9F0DE00EFF0F
L11232C  ENT
         PHP
         REP   #$20
         LDY   #$00C8
         LDA   #$0000
         TAX
L112336  STA   L026997,X
         CLC
         ADC   #$00A0
         INX
         INX
         DEY
         BNE   L112336
         PLP
         RTL

         PHP
         REP   #$20
         LDX   $5C
         PHX
         LDX   $60
         PHX
         LDX   $64
         PHX
         LDX   $68
         PHX
         LDA   $70
         PHA
         CLC
         ADC   #$2000
         STA   $70
         LDA   #$00E1
         STA   $72
         LDA   #$0000
         STA   [$70]
         LDX   $70
         TXY
         INY
         LDA   $5D
         AND   #$00FF
         STA   $4C
         LDA   $68
         AND   #$00FF
         DEC
         PHA
         DEC
L112379  PHY
         PHB
         MVN   $E10000,$E10000
         PLB
         LDX   $70
         PLA
         CLC
         ADC   #$00A0
         TAY
         LDA   $01,S
         DEC   $4C
         BNE   L112379
         PLA
         PLA
         PLP
         RTL

