mirror of
https://github.com/antoinevignau/source.git
synced 2024-09-01 19:29:13 +00:00
21761 lines
564 KiB
ArmAsm
21761 lines
564 KiB
ArmAsm
*
|
|
* Archiver GS
|
|
*
|
|
* (c) 1992, Apple Computer, Inc.
|
|
* (s) 2023, Antoine Vignau
|
|
*
|
|
|
|
mx %00
|
|
rel
|
|
lst off
|
|
|
|
*-----------------------------------
|
|
|
|
use MAIN.X
|
|
|
|
use 4/Ctl.Macs
|
|
use 4/Int.Macs
|
|
use 4/Line.Macs
|
|
use 4/Locator.Macs
|
|
use 4/Mem.Macs
|
|
use 4/Misc.Macs
|
|
use 4/QD.Macs
|
|
use 4/QDAux.Macs
|
|
use 4/Resource.Macs
|
|
use 4/SANE.Macs
|
|
use 4/Text.Macs
|
|
use 4/Util.Macs
|
|
use 4/Window.Macs
|
|
|
|
*-----------------------------------
|
|
|
|
STATEREG EQU $C068
|
|
RDBANK2 EQU $C080
|
|
LCBANK2 EQU $C083
|
|
DEV_DISPATCHER EQU $01FC00
|
|
DISPATCH2 EQU $E10004
|
|
GSOS EQU $E100A8
|
|
GSOS2 EQU $E100B0
|
|
|
|
*-----------------------------------
|
|
|
|
PEA >L0612EF
|
|
PLB
|
|
PLB
|
|
STA L0612EF
|
|
STX L0612F3
|
|
STY L0612F1
|
|
PHA
|
|
PHA
|
|
TSC
|
|
TCD
|
|
PHA
|
|
_MMStartUp
|
|
PLA
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0100
|
|
PHA
|
|
PEA $C011
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
PLY
|
|
PLX
|
|
BCC L03005F
|
|
PHA
|
|
PEA ^L050000
|
|
PEA L050000
|
|
LDA L0612F1
|
|
ORA L0612F3
|
|
BEQ L030058
|
|
_ErrWriteLine
|
|
PLA
|
|
LDA #$FFFF
|
|
STA L0612E9
|
|
BRL L0300D5
|
|
L030058 _SysFailMgr
|
|
L03005F STY $01
|
|
STX $03
|
|
LDA [$01]
|
|
PHA
|
|
_SANEStartUp
|
|
LDX L0612F3
|
|
LDA L0612F1
|
|
PHX
|
|
PHA
|
|
PEA $0001
|
|
JSL L03A645
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BPL L030087
|
|
STA L0612E9
|
|
BRA L0300B5
|
|
L030087 STZ L060000
|
|
PEA ^L0514C7
|
|
PEA L0514C7
|
|
JSL L03B0E5
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BNE L0300B5
|
|
LDX L0612E1
|
|
LDA L0612DF
|
|
PHX
|
|
PHA
|
|
LDA L0612F5
|
|
PHA
|
|
JSL L030107
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA L060000
|
|
PHA
|
|
JSL L03A7F7
|
|
PLY
|
|
L0300B5 _SANEShutDown
|
|
PEI $03
|
|
PEI $01
|
|
_DisposeHandle
|
|
LDA L0612EF
|
|
ORA #$0F00
|
|
PHA
|
|
_DisposeAll
|
|
L0300D5 LDA L0612E5
|
|
STAL L050020
|
|
LDA L0612E7
|
|
STAL L050022
|
|
LDA L0612E3
|
|
STAL L050024
|
|
LDA L0612E9
|
|
JSL GSOS
|
|
DW $0029 ; Quit
|
|
ADRL L050020
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
_SysFailMgr
|
|
BRK $00
|
|
L030107 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFFC
|
|
TCS
|
|
TCD
|
|
PHY
|
|
JSL L074A31
|
|
PLA
|
|
LSR
|
|
BCS L03011B
|
|
BRL L03019C
|
|
L03011B JSL L07494A
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA ^L06006E
|
|
PEA L06006E
|
|
PEA $0002
|
|
PEA ^L060436
|
|
PEA L060436
|
|
PEA $0000
|
|
PEA $0000
|
|
LDA L0600DC
|
|
PHA
|
|
LDA L0600D8
|
|
LDX L0600DA
|
|
STA $01
|
|
STX $03
|
|
LDY #$0002
|
|
LDA [$01],Y
|
|
TAX
|
|
LDA [$01]
|
|
PHA
|
|
JSL L031CE7
|
|
LDA L06006E
|
|
BEQ L030189
|
|
PHY
|
|
PHY
|
|
PEA $0000
|
|
PEA $1141
|
|
PEA $0000
|
|
PEA $000F
|
|
JSL L03A1A0
|
|
PLA
|
|
PLX
|
|
CLC
|
|
ADC #$0010
|
|
BCC L030175
|
|
INX
|
|
L030175 CLC
|
|
ADC #$0040
|
|
BCC L03017C
|
|
INX
|
|
L03017C CLC
|
|
ADC #$0200
|
|
BCC L030183
|
|
INX
|
|
L030183 STA L060002
|
|
STX L060004
|
|
L030189 JSL L074538
|
|
STZ L0600CE
|
|
L030190 JSL L0743FE
|
|
LDA L0600CE
|
|
DEC
|
|
BNE L030190
|
|
BRA L0301BD
|
|
L03019C PHY
|
|
PEA ^L06125A
|
|
PEA L06125A
|
|
PEA ^L06127C
|
|
PEA L06127C
|
|
PEA ^L061296
|
|
PEA L061296
|
|
PEA ^L061297
|
|
PEA L061297
|
|
JSL L03B102
|
|
PLA
|
|
STA L060020
|
|
L0301BD JSL L070000
|
|
PLY
|
|
PLY
|
|
PLD
|
|
RTL
|
|
|
|
L0301C5 DB $00
|
|
DB $00
|
|
L0301C7 DB $00
|
|
DB $00
|
|
L0301C9 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L0301CD DB $00
|
|
DB $00
|
|
L0301CF DB $02
|
|
DB $04
|
|
L0301D1 DB $00
|
|
L0301D2 DB $00
|
|
L0301D3 DB $00
|
|
L0301D4 DB $00
|
|
L0301D5 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L0305D3 STX $00
|
|
LDY #$FFFE
|
|
L0305D8 INY
|
|
INY
|
|
LDA ($00),Y
|
|
BMI L0305D8
|
|
BEQ L0305E9
|
|
TYX
|
|
TAY
|
|
LDA [$02],Y
|
|
TXY
|
|
STA [$0A],Y
|
|
BRA L0305D8
|
|
L0305E9 RTS
|
|
|
|
L0305EA LDY #$0002
|
|
LDA [$1A],Y
|
|
STA $08
|
|
LDA [$1A]
|
|
STA $06
|
|
CLC
|
|
ADC L0301C5
|
|
STA $0A
|
|
LDA $08
|
|
ADC L0301C7
|
|
STA $0C
|
|
RTS
|
|
|
|
L030603 LDY #$0004
|
|
LDA [$1A],Y
|
|
AND #$7FFF
|
|
STA [$1A],Y
|
|
LDA $92
|
|
CLC
|
|
ADC #$0000
|
|
TAX
|
|
LDA $94
|
|
ADC #$0001
|
|
PHA
|
|
PHX
|
|
PEI $1C
|
|
PEI $1A
|
|
_SetHandleSize
|
|
BCC L030629
|
|
RTS
|
|
|
|
L030629 LDA $92
|
|
STA $12
|
|
CLC
|
|
ADC #$0000
|
|
STA $92
|
|
LDA $94
|
|
STA $14
|
|
ADC #$0001
|
|
STA $94
|
|
LDY #$0004
|
|
LDA [$1A],Y
|
|
ORA #$8000
|
|
STA [$1A],Y
|
|
LDA $0A
|
|
SEC
|
|
SBC $06
|
|
STA L0301C5
|
|
LDA $0C
|
|
SBC $08
|
|
STA L0301C7
|
|
JSR L0305EA
|
|
LDA $06
|
|
CLC
|
|
ADC $12
|
|
STA $12
|
|
LDA $08
|
|
ADC $14
|
|
STA $14
|
|
LDY #$0000
|
|
LDA #$0000
|
|
L03066B DEY
|
|
DEY
|
|
BEQ L030673
|
|
STA [$12],Y
|
|
BRA L03066B
|
|
L030673 STA [$0A]
|
|
CLC
|
|
RTS
|
|
|
|
L030677 LDA #$000D
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #L0301D1
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L0301D1
|
|
STA [$02],Y
|
|
LDA #$0002
|
|
STA [$02]
|
|
PEI $04
|
|
PEI $02
|
|
PEA $2009
|
|
JSL GSOS2
|
|
LDY #$000A
|
|
L0306A0 LDA L030AC1,Y
|
|
STA [$02],Y
|
|
DEY
|
|
DEY
|
|
BPL L0306A0
|
|
LDA #$2010
|
|
JSR L033500
|
|
RTS
|
|
|
|
L0306B0 LDY #$0002
|
|
STA [$02],Y
|
|
LDA #$0001
|
|
STA [$02]
|
|
PEI $04
|
|
PEI $02
|
|
PEA $2014
|
|
JSL GSOS2
|
|
RTS
|
|
|
|
L0306C6 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L0301CD
|
|
LDA $05,S
|
|
TCD
|
|
LDA $07,S
|
|
ORA #$0600
|
|
STA L0301C9
|
|
LDA $09,S
|
|
STA $84
|
|
LDA $0B,S
|
|
STA $86
|
|
PLA
|
|
STA $07,S
|
|
PLA
|
|
STA $07,S
|
|
TSC
|
|
CLC
|
|
ADC #$0004
|
|
TCS
|
|
LDA #L05004E
|
|
STA $02
|
|
LDA #^L05004E
|
|
STA $04
|
|
STZ L030AB5
|
|
STZ L030ABD
|
|
_CompactMem
|
|
LDX #$0000
|
|
LDA #$0001
|
|
LDY L0301C9
|
|
JSR L0325E6
|
|
STX $1A
|
|
STY $1C
|
|
BCC L03071E
|
|
LDA #$8054
|
|
STA L030AB5
|
|
BRL L030A99
|
|
L03071E LDA #$0000
|
|
STA $92
|
|
LDA #$0001
|
|
STA $94
|
|
LDA #$01B6
|
|
STA L0301C5
|
|
STZ L0301C7
|
|
JSR L0305EA
|
|
LDY #$0000
|
|
LDA #$0000
|
|
L03073A DEY
|
|
DEY
|
|
BEQ L030742
|
|
STA [$06],Y
|
|
BRA L03073A
|
|
L030742 STA [$06]
|
|
LDA #$0001
|
|
STA L030AB7
|
|
LDA #L05009E
|
|
STA $12
|
|
LDA #^L05009E
|
|
STA $14
|
|
LDA [$12]
|
|
AND #$00FF
|
|
STA L0301D1
|
|
TAX
|
|
TAY
|
|
SEP #$20
|
|
L030760 LDA [$12],Y
|
|
STA L0301D2,X
|
|
DEY
|
|
DEX
|
|
BNE L030760
|
|
REP #$20
|
|
JSR L030677
|
|
BCC L030779
|
|
LDA #$8051
|
|
STA L030AB5
|
|
BRL L0309CA
|
|
L030779 LDY #$0002
|
|
LDA [$02],Y
|
|
STA L030AE0
|
|
LDX #L030B20
|
|
JSR L0305D3
|
|
LDA L030AB7
|
|
LDY #$001E
|
|
STA [$0A],Y
|
|
LDA L0301D1
|
|
TAX
|
|
CLC
|
|
ADC #$002F
|
|
TAY
|
|
DEY
|
|
STA L030AB9
|
|
XBA
|
|
STA [$0A]
|
|
SEP #$20
|
|
TXA
|
|
PHA
|
|
L0307A3 LDA L0301D2,X
|
|
STA [$0A],Y
|
|
DEY
|
|
DEX
|
|
BNE L0307A3
|
|
PLA
|
|
STA [$0A],Y
|
|
REP #$20
|
|
L0307B1 LDY #$000C
|
|
L0307B4 LDA L030ACD,Y
|
|
STA [$02],Y
|
|
DEY
|
|
DEY
|
|
BPL L0307B4
|
|
LDA L030AB7
|
|
ASL
|
|
TAY
|
|
LDA L030ADB+3,Y
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA #$0000
|
|
LDY #$0032
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
PEI $04
|
|
PEI $02
|
|
PEA $201C
|
|
JSL GSOS2
|
|
BCC L030823
|
|
CMP #$0061
|
|
BNE L0307EB
|
|
BRL L030957
|
|
L0307EB LDA $0A
|
|
STA $16
|
|
LDA $0C
|
|
STA $18
|
|
L0307F3 LDY #$001E
|
|
LDA [$16],Y
|
|
AND #$00FF
|
|
CMP L030AB7
|
|
BEQ L030816
|
|
LDA [$16]
|
|
AND #$00FF
|
|
CLC
|
|
SBC $16
|
|
EOR #$FFFF
|
|
STA $16
|
|
BCC L030811
|
|
DEC $18
|
|
L030811 DEC L030ABD
|
|
BRA L0307F3
|
|
L030816 LDY #$001C
|
|
LDA [$16],Y
|
|
ORA #$8000
|
|
STA [$16],Y
|
|
BRL L030957
|
|
L030823 LDA $0A
|
|
CLC
|
|
ADC L030AB9
|
|
STA $0A
|
|
BCC L03082F
|
|
INC $0C
|
|
L03082F LDA L0301D1
|
|
CLC
|
|
ADC #$002F
|
|
STA L030ABB
|
|
LDA $0A
|
|
SEC
|
|
SBC $06
|
|
TAX
|
|
LDA $0C
|
|
SBC $08
|
|
TAY
|
|
TXA
|
|
CLC
|
|
ADC L030ABB
|
|
TAX
|
|
BCC L03084D
|
|
INY
|
|
L03084D CPY $94
|
|
BNE L030865
|
|
CPX $92
|
|
BCC L030865
|
|
BEQ L030865
|
|
JSR L030603
|
|
BCC L030865
|
|
LDA #$8054
|
|
STA L030AB5
|
|
BRL L0309CA
|
|
L030865 LDA L030ABB
|
|
LDX L030AB9
|
|
STA L030AB9
|
|
TXA
|
|
XBA
|
|
ORA L030AB9
|
|
XBA
|
|
STA [$0A]
|
|
LDX #L030B3E
|
|
JSR L0305D3
|
|
LDY #$001E
|
|
LDA L030AB7
|
|
INC
|
|
STA [$0A],Y
|
|
STZ L030ABF
|
|
LDA #$0100
|
|
TSB L030ABF
|
|
LDY #$0004
|
|
LDA [$02],Y
|
|
AND #$8000
|
|
BEQ L03089E
|
|
LDA #$0800
|
|
TSB L030ABF
|
|
L03089E LDY #$002A
|
|
LDA [$02],Y
|
|
TAX
|
|
AND #$0020
|
|
BEQ L0308AF
|
|
LDA #$0400
|
|
TSB L030ABF
|
|
L0308AF TXA
|
|
AND #$0040
|
|
BEQ L0308BB
|
|
LDA #$0200
|
|
TSB L030ABF
|
|
L0308BB LDA L030ABF
|
|
LDY #$001C
|
|
STA [$0A],Y
|
|
SEP #$30
|
|
LDA L0301D1
|
|
LDY #$2E
|
|
STA [$0A],Y
|
|
TAX
|
|
CLC
|
|
ADC #$2E
|
|
TAY
|
|
L0308D1 LDA L0301D2,X
|
|
STA [$0A],Y
|
|
DEY
|
|
DEX
|
|
BNE L0308D1
|
|
REP #$30
|
|
INC L030ABD
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
CMP #$000F
|
|
BEQ L0308EC
|
|
BRL L0307B1
|
|
L0308EC LDA L030AB7
|
|
CMP #$0020
|
|
BNE L0308F7
|
|
BRL L0307B1
|
|
L0308F7 INC
|
|
STA L030AB7
|
|
LDA L0301D1
|
|
CMP #$00FF
|
|
BCC L03090C
|
|
LDA #$8040
|
|
STA L030AB5
|
|
BRL L0309CA
|
|
L03090C TAY
|
|
INC
|
|
INC
|
|
INC
|
|
TAX
|
|
STA L0301D1
|
|
SEP #$20
|
|
L030916 LDA L0301D2,Y
|
|
STA L0301D2,X
|
|
DEX
|
|
DEY
|
|
BNE L030916
|
|
REP #$30
|
|
LDA L030ADB+2
|
|
STA L0301D3
|
|
LDA L030ADB+3
|
|
STA L0301D4
|
|
JSR L030677
|
|
BCC L030947
|
|
LDY #$001C
|
|
LDA [$0A],Y
|
|
ORA #$8000
|
|
STA [$0A],Y
|
|
LDA L030AB7
|
|
ASL
|
|
TAX
|
|
STZ L030ADB+3,X
|
|
BRA L030957
|
|
L030947 LDA L030AB7
|
|
ASL
|
|
TAX
|
|
LDY #$0002
|
|
LDA [$02],Y
|
|
STA L030ADB+3,X
|
|
BRL L0307B1
|
|
L030957 LDA L030AB7
|
|
ASL
|
|
TAX
|
|
LDA L030ADB+3,X
|
|
BEQ L030964
|
|
JSR L0306B0
|
|
L030964 DEC L030AB7
|
|
BNE L03096C
|
|
BRL L0309E4
|
|
L03096C LDA #$000D
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #L0301CF
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L0301CF
|
|
STA [$02],Y
|
|
LDA #$0002
|
|
STA [$02]
|
|
PEI $04
|
|
PEI $02
|
|
PEA $200A
|
|
JSL GSOS2
|
|
SEP #$20
|
|
LDY L0301D1
|
|
DEY
|
|
L030998 DEY
|
|
LDA L0301D3,Y
|
|
CMP #$3A
|
|
BNE L030998
|
|
INY
|
|
STY L0301D1
|
|
REP #$20
|
|
LDA #$000D
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA #L0301D1
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #^L0301D1
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
PEI $04
|
|
PEI $02
|
|
PEA $2009
|
|
JSL GSOS2
|
|
BRL L0307B1
|
|
L0309CA LDA #$0001
|
|
STA [$02]
|
|
L0309CF LDA L030AB7
|
|
ASL
|
|
TAX
|
|
LDA L030ADB+3,X
|
|
BEQ L0309DC
|
|
JSR L0306B0
|
|
L0309DC DEC L030AB7
|
|
BNE L0309CF
|
|
BRL L030A99
|
|
L0309E4 LDA [$0A]
|
|
TAX
|
|
AND #$FF00
|
|
XBA
|
|
LDY #$000E
|
|
STA [$06],Y
|
|
TXA
|
|
AND #$00FF
|
|
STA [$0A]
|
|
STZ $8C
|
|
STZ $8E
|
|
STZ $90
|
|
LDY #$0004
|
|
LDA $92
|
|
STA [$06],Y
|
|
INY
|
|
INY
|
|
LDA $94
|
|
STA [$06],Y
|
|
LDY #$000A
|
|
LDA $0A
|
|
SEC
|
|
SBC $06
|
|
STA [$06],Y
|
|
INY
|
|
INY
|
|
LDA $0C
|
|
SBC $08
|
|
STA [$06],Y
|
|
LDA L030ABD
|
|
LDY #$0008
|
|
STA [$06],Y
|
|
LDA $06
|
|
CLC
|
|
ADC #$01B6
|
|
STA $0A
|
|
LDA $08
|
|
ADC #$0000
|
|
STA $0C
|
|
JSL L031B5B
|
|
LDY #$01B2
|
|
STA [$06],Y
|
|
LDY #$0004
|
|
STA [$84],Y
|
|
TXA
|
|
TYX
|
|
LDY #$01B4
|
|
STA [$06],Y
|
|
TXY
|
|
INY
|
|
INY
|
|
STA [$84],Y
|
|
LDA $06
|
|
CLC
|
|
ADC #$01B6
|
|
STA $0A
|
|
LDA $08
|
|
BCC L030A59
|
|
INC
|
|
L030A59 STA $0C
|
|
L030A5B LDY #$0002
|
|
LDA [$0A],Y
|
|
CMP #$000F
|
|
BEQ L030A72
|
|
LDY #$001C
|
|
LDA [$0A],Y
|
|
AND #$0400
|
|
BEQ L030A72
|
|
JSR L031059
|
|
L030A72 LDA [$0A]
|
|
AND #$FF00
|
|
BEQ L030A85
|
|
XBA
|
|
CLC
|
|
ADC $0A
|
|
STA $0A
|
|
BCC L030A5B
|
|
INC $0C
|
|
BRA L030A5B
|
|
L030A85 LDY #$0008
|
|
LDA $8E
|
|
STA [$84],Y
|
|
INY
|
|
INY
|
|
LDA $90
|
|
STA [$84],Y
|
|
LDY #$000C
|
|
LDA $8C
|
|
STA [$84],Y
|
|
L030A99 LDA L030ABD
|
|
LDY #$0002
|
|
STA [$84],Y
|
|
LDA L030AB5
|
|
LDY #$0000
|
|
STA [$84],Y
|
|
LDA L0301CD
|
|
TCD
|
|
LDA L030AB5
|
|
PLB
|
|
CMP #$0001
|
|
RTL
|
|
|
|
L030AB5 DB $00
|
|
DB $00
|
|
L030AB7 DB $00
|
|
DB $00
|
|
L030AB9 DB $00
|
|
DB $00
|
|
L030ABB DB $00
|
|
DB $00
|
|
L030ABD DB $00
|
|
DB $00
|
|
L030ABF DB $00
|
|
DB $00
|
|
L030AC1 DB $0A
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
ADRL L030ADB
|
|
DB $01
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L030ACD DB $10
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $01
|
|
DB $00
|
|
DB $01
|
|
DB $00
|
|
ADRL L0301CF
|
|
L030ADB STRL '13:'
|
|
L030AE0 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L030B20 DB $00
|
|
DB $80
|
|
DW $000E
|
|
DW $002A
|
|
DW $002C
|
|
DW $0016
|
|
DW $0018
|
|
DW $001A
|
|
DW $001C
|
|
DW $001E
|
|
DW $0020
|
|
DW $0022
|
|
DW $0024
|
|
DW $0032
|
|
DW $0034
|
|
DW $0000
|
|
L030B3E DW $8000
|
|
DW $0010
|
|
DW $0012
|
|
DW $0014
|
|
DW $001A
|
|
DW $001C
|
|
DW $001E
|
|
DW $0020
|
|
DW $0022
|
|
DW $0024
|
|
DW $0026
|
|
DW $0028
|
|
DW $0036
|
|
DW $0038
|
|
DW $0000
|
|
L030B5C ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L0301CD
|
|
LDA $05,S
|
|
TCD
|
|
LDA $03,S
|
|
STA $05,S
|
|
LDA $01,S
|
|
STA $03,S
|
|
PLA
|
|
LDA #L05004E
|
|
STA $02
|
|
LDA #^L05004E
|
|
STA $04
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #L0301CF
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L0301CF
|
|
STA [$02],Y
|
|
PEI $04
|
|
PEI $02
|
|
PEA $2028
|
|
JSL GSOS2
|
|
LDX L0301D1
|
|
SEP #$20
|
|
LDA L0301D2,X
|
|
CMP #$3A
|
|
BNE L030BA5
|
|
DEX
|
|
L030BA5 TXA
|
|
STAL L050425
|
|
L030BAA LDA L0301D2,X
|
|
STAL L050425,X
|
|
DEX
|
|
BNE L030BAA
|
|
REP #$20
|
|
LDA L0301CD
|
|
TCD
|
|
PLB
|
|
RTL
|
|
|
|
L030BBC DB $00
|
|
DB $00
|
|
L030BBE DB $00
|
|
DB $00
|
|
L030BC0 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L030BC4 DB $00
|
|
DB $00
|
|
L030BC6 DB $00
|
|
DB $00
|
|
L030BC8 DB $00
|
|
DB $00
|
|
L030BCA DB $00
|
|
DB $00
|
|
L030BCC DB $00
|
|
DB $00
|
|
L030BCE DB $00
|
|
DB $00
|
|
L030BD0 DB $00
|
|
DB $00
|
|
L030BD2 DB $00
|
|
DB $00
|
|
L030BD4 DB $00
|
|
DB $00
|
|
L030BD6 DB $00
|
|
DB $00
|
|
L030BD8 DB $00
|
|
DB $00
|
|
L030BDA DB $00
|
|
DB $00
|
|
L030BDC DB $00
|
|
DB $00
|
|
L030BDE DB $00
|
|
DB $00
|
|
L030BE0 DB $00
|
|
DB $00
|
|
L030BE2 DB $00
|
|
DB $00
|
|
L030BE4 DB $00
|
|
DB $00
|
|
L030BE6 DB $00
|
|
DB $00
|
|
L030BE8 DB $00
|
|
DB $00
|
|
L030BEA DB $00
|
|
DB $00
|
|
L030BEC DB $00
|
|
DB $00
|
|
L030BEE DB $00
|
|
DB $00
|
|
L030BF0 LDY #$0004
|
|
LDA [$26],Y
|
|
AND #$7FFF
|
|
STA [$26],Y
|
|
LDA L030BC4
|
|
CLC
|
|
ADC #$03E8
|
|
STA L030BD4
|
|
TAX
|
|
LDA L030BC6
|
|
ADC #$0000
|
|
STA L030BD6
|
|
PHA
|
|
PHX
|
|
PEI $28
|
|
PEI $26
|
|
_SetHandleSize
|
|
BCC L030C1E
|
|
RTS
|
|
|
|
L030C1E LDA L030BD4
|
|
STA L030BC4
|
|
LDA L030BD6
|
|
STA L030BC6
|
|
LDY #$0004
|
|
LDA [$26],Y
|
|
ORA #$8000
|
|
STA [$26],Y
|
|
LDA $2E
|
|
SEC
|
|
SBC $2A
|
|
STA L030BD8
|
|
LDA $30
|
|
SBC $2C
|
|
STA L030BDA
|
|
LDY #$0002
|
|
LDA [$26],Y
|
|
STA $2C
|
|
LDA [$26]
|
|
STA $2A
|
|
CLC
|
|
ADC L030BD8
|
|
STA $2E
|
|
LDA $2C
|
|
ADC L030BDA
|
|
STA $30
|
|
LDA #$00C8
|
|
STA L030BDC
|
|
CLC
|
|
ADC L030BD2
|
|
STA L030BD2
|
|
CLC
|
|
RTS
|
|
|
|
L030C6A LDA $2A
|
|
CLC
|
|
ADC #$0003
|
|
STA $2E
|
|
LDA $2C
|
|
BCC L030C77
|
|
INC
|
|
L030C77 STA $30
|
|
LDX L030BD0
|
|
BEQ L030C91
|
|
L030C7E LDA [$2E]
|
|
BMI L030C93
|
|
LDA $2E
|
|
CLC
|
|
ADC #$0005
|
|
STA $2E
|
|
BCC L030C8E
|
|
INC $30
|
|
L030C8E DEX
|
|
BNE L030C7E
|
|
L030C91 SEC
|
|
RTS
|
|
|
|
L030C93 LDA $2E
|
|
SEC
|
|
SBC #$0003
|
|
STA $2E
|
|
BCS L030C9F
|
|
DEC $30
|
|
L030C9F CLC
|
|
RTS
|
|
|
|
L030CA1 STZ L030BD0
|
|
LDA $2A
|
|
STA $2E
|
|
LDA $2C
|
|
STA $30
|
|
LDA $06
|
|
CLC
|
|
ADC #$01B6
|
|
STA $0A
|
|
LDA $08
|
|
BCC L030CB9
|
|
INC
|
|
L030CB9 STA $0C
|
|
LDA [$0A]
|
|
AND #$FF00
|
|
BNE L030CC5
|
|
BRL L030D7C
|
|
L030CC5 XBA
|
|
CLC
|
|
ADC $0A
|
|
STA $0A
|
|
BCC L030CCF
|
|
INC $0C
|
|
L030CCF LDA L030BD2
|
|
STA L030BDC
|
|
L030CD5 LDA #$FFFF
|
|
STA L030BE4
|
|
BIT L030BE6
|
|
BPL L030CFF
|
|
LDY #$001C
|
|
LDA [$0A],Y
|
|
BIT #$00C0
|
|
BEQ L030CF1
|
|
ORA #$4000
|
|
STA [$0A],Y
|
|
BRA L030CFF
|
|
L030CF1 LDY #$001E
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
INC
|
|
STA L030BE4
|
|
BRA L030D5B
|
|
L030CFF INC L030BD0
|
|
LDA $0A
|
|
STA [$2E]
|
|
LDA $0C
|
|
LDY #$0002
|
|
STA [$2E],Y
|
|
SEP #$30
|
|
LDA #$00
|
|
LDY #$04
|
|
STA [$2E],Y
|
|
REP #$31
|
|
BIT L030BE6
|
|
BMI L030D3C
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
CMP #$000F
|
|
BNE L030D3C
|
|
LDY #$001C
|
|
LDA [$0A],Y
|
|
AND #$4000
|
|
BNE L030D3C
|
|
LDY #$001E
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
INC
|
|
STA L030BE4
|
|
L030D3C LDA $2E
|
|
CLC
|
|
ADC #$0005
|
|
STA $2E
|
|
BCC L030D48
|
|
INC $30
|
|
L030D48 DEC L030BDC
|
|
BNE L030D5B
|
|
JSR L030BF0
|
|
BCC L030D5B
|
|
LDA #$8054
|
|
STA L030BC0
|
|
BRL L030D7C
|
|
L030D5B LDY #$001E
|
|
L030D5E LDA [$0A]
|
|
AND #$FF00
|
|
BEQ L030D7C
|
|
XBA
|
|
CLC
|
|
ADC $0A
|
|
STA $0A
|
|
BCC L030D6F
|
|
INC $0C
|
|
L030D6F LDA [$0A],Y
|
|
AND #$00FF
|
|
CMP L030BE4
|
|
BCS L030D5E
|
|
BRL L030CD5
|
|
L030D7C LDA L030BC0
|
|
CMP #$0001
|
|
RTS
|
|
|
|
L030D83 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L030BBC
|
|
LDA $05,S
|
|
TCD
|
|
LDA $07,S
|
|
STA $36
|
|
LDA $09,S
|
|
STA $38
|
|
LDA $0B,S
|
|
STA $3A
|
|
LDA $0D,S
|
|
STA $3C
|
|
LDA $0F,S
|
|
STA $22
|
|
LDA $11,S
|
|
STA $24
|
|
PLA
|
|
STA $0D,S
|
|
PLA
|
|
STA $0D,S
|
|
TSC
|
|
CLC
|
|
ADC #$000A
|
|
TCS
|
|
STZ L030BC0
|
|
LDA [$26]
|
|
STA $2A
|
|
LDY #$0002
|
|
LDA [$26],Y
|
|
STA $2C
|
|
JSR L030C6A
|
|
BCC L030DCD
|
|
LDA #$8000
|
|
STA L030BC0
|
|
BRL L030E00
|
|
L030DCD LDA [$2E]
|
|
STA $0A
|
|
LDY #$0002
|
|
LDA [$2E],Y
|
|
STA $0C
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
CMP #$000F
|
|
BEQ L030DEB
|
|
LDA #$8051
|
|
STA L030BC0
|
|
BRL L030E00
|
|
L030DEB LDY #$001C
|
|
LDA #$4000
|
|
EOR [$0A],Y
|
|
STA [$0A],Y
|
|
JSR L030CA1
|
|
BCC L030E00
|
|
LDA #$8054
|
|
STA L030BC0
|
|
L030E00 LDA L030BC0
|
|
STA [$22]
|
|
TAX
|
|
LDA L030BD0
|
|
STA [$3A]
|
|
LDA $2A
|
|
STA [$36]
|
|
LDY #$0002
|
|
LDA $2C
|
|
STA [$36],Y
|
|
LDA L030BBC
|
|
TCD
|
|
PLB
|
|
TXA
|
|
CMP #$0001
|
|
RTL
|
|
|
|
L030E20 DW $0000
|
|
L030E22 DW $0000
|
|
L030E24 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L030BBC
|
|
LDA $05,S
|
|
TCD
|
|
LDA $07,S
|
|
ORA #$0200
|
|
STA L030BBE
|
|
LDA $09,S
|
|
STA $36
|
|
LDA $0B,S
|
|
STA $38
|
|
LDA $0D,S
|
|
STA $3A
|
|
LDA $0F,S
|
|
STA $3C
|
|
LDA $11,S
|
|
STA $22
|
|
LDA $13,S
|
|
STA $24
|
|
LDA $15,S
|
|
STA L030BE6
|
|
PLA
|
|
STA $11,S
|
|
PLA
|
|
STA $11,S
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
STZ L030BC0
|
|
LDX #$03E8
|
|
LDA #$0000
|
|
LDY L030BBE
|
|
JSR L0325E6
|
|
BCC L030E79
|
|
LDA #$8054
|
|
STA L030BC0
|
|
BRL L030EED
|
|
L030E79 STX $26
|
|
STY $28
|
|
LDA #$03E8
|
|
STA L030BC4
|
|
LDA #$0000
|
|
STA L030BC6
|
|
LDA [$26]
|
|
STA $2A
|
|
LDY #$0002
|
|
LDA [$26],Y
|
|
STA $2C
|
|
LDA #$03E3
|
|
CLC
|
|
ADC $2A
|
|
STA L030BC8
|
|
LDA #$0000
|
|
ADC $2C
|
|
STA L030BCA
|
|
LDA #$00C8
|
|
STA L030BD2
|
|
LDA [$1A]
|
|
STA $06
|
|
LDY #$0002
|
|
LDA [$1A],Y
|
|
STA $08
|
|
LDA $06
|
|
CLC
|
|
ADC #$01B6
|
|
STA $32
|
|
LDA $08
|
|
ADC #$0000
|
|
STA $34
|
|
LDY #$000A
|
|
LDA [$06],Y
|
|
CLC
|
|
ADC $06
|
|
STA L030BCC
|
|
INY
|
|
INY
|
|
LDA [$06],Y
|
|
ADC $08
|
|
STA L030BCE
|
|
JSR L030CA1
|
|
BCC L030EE3
|
|
STA L030BC0
|
|
BRA L030EED
|
|
L030EE3 LDY #$0004
|
|
LDA [$2A],Y
|
|
ORA #$0080
|
|
STA [$2A],Y
|
|
L030EED LDA L030BC0
|
|
STA [$22]
|
|
TAX
|
|
LDA L030BD0
|
|
STA [$3A]
|
|
LDA $2A
|
|
STA [$36]
|
|
LDY #$0002
|
|
LDA $2C
|
|
STA [$36],Y
|
|
LDA L030BBC
|
|
TCD
|
|
PLB
|
|
TXA
|
|
CMP #$0001
|
|
RTL
|
|
|
|
L030F0D LDY #$001C
|
|
LDA [$0A],Y
|
|
TAX
|
|
AND #$3000
|
|
BNE L030F1B
|
|
BRL L031056
|
|
L030F1B TXA
|
|
AND #$CFFF
|
|
STA [$0A],Y
|
|
LDY #$001E
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
INC
|
|
STA L030BE4
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
CMP #$000F
|
|
BEQ L030F5C
|
|
LDA $8E
|
|
LDY #$0004
|
|
SEC
|
|
SBC [$0A],Y
|
|
TAX
|
|
LDA $90
|
|
INY
|
|
INY
|
|
SBC [$0A],Y
|
|
TAY
|
|
TXA
|
|
TYX
|
|
LDY #$0018
|
|
SBC [$0A],Y
|
|
STA $8E
|
|
TXA
|
|
INY
|
|
INY
|
|
SBC [$0A],Y
|
|
STA $90
|
|
DEC $8C
|
|
BRL L030FF0
|
|
L030F5C LDY #$001E
|
|
L030F5F LDA [$0A]
|
|
AND #$FF00
|
|
BEQ L030F8B
|
|
XBA
|
|
CLC
|
|
ADC $0A
|
|
STA $0A
|
|
BCC L030F70
|
|
INC $0C
|
|
L030F70 LDA [$0A],Y
|
|
AND #$00FF
|
|
CMP L030BE4
|
|
BCS L030F5F
|
|
L030F7A LDA [$0A]
|
|
AND #$00FF
|
|
CLC
|
|
SBC $0A
|
|
EOR #$FFFF
|
|
STA $0A
|
|
BCC L030F8B
|
|
DEC $0C
|
|
L030F8B LDY #$0002
|
|
LDA [$0A],Y
|
|
TAX
|
|
CMP #$000F
|
|
BNE L030F9E
|
|
LDY #$002A
|
|
LDA #$0000
|
|
STA [$0A],Y
|
|
L030F9E LDY #$001C
|
|
LDA [$0A],Y
|
|
PHA
|
|
AND #$CFFF
|
|
STA [$0A],Y
|
|
PLA
|
|
AND #$3000
|
|
BEQ L030FD6
|
|
CPX #$000F
|
|
BEQ L030FD6
|
|
LDA $8E
|
|
LDY #$0004
|
|
SEC
|
|
SBC [$0A],Y
|
|
TAX
|
|
LDA $90
|
|
INY
|
|
INY
|
|
SBC [$0A],Y
|
|
TAY
|
|
TXA
|
|
TYX
|
|
LDY #$0018
|
|
SBC [$0A],Y
|
|
STA $8E
|
|
TXA
|
|
INY
|
|
INY
|
|
SBC [$0A],Y
|
|
STA $90
|
|
DEC $8C
|
|
L030FD6 LDY #$001E
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
CMP L030BE4
|
|
BCC L030FE5
|
|
BRA L030F7A
|
|
L030FE5 LDA [$2E]
|
|
STA $0A
|
|
LDY #$0002
|
|
LDA [$2E],Y
|
|
STA $0C
|
|
L030FF0 STZ L031057
|
|
L030FF3 LDA L030BE4
|
|
DEC
|
|
CMP #$0001
|
|
BEQ L031056
|
|
STA L030BE4
|
|
LDY #$001E
|
|
L031002 LDA [$0A]
|
|
AND #$00FF
|
|
CLC
|
|
SBC $0A
|
|
EOR #$FFFF
|
|
STA $0A
|
|
BCC L031013
|
|
DEC $0C
|
|
L031013 LDA [$0A],Y
|
|
AND #$00FF
|
|
CMP L030BE4
|
|
BCS L031002
|
|
LDY #$001C
|
|
LDA [$0A],Y
|
|
AND #$DFFF
|
|
TAX
|
|
LDA L031057
|
|
BNE L031040
|
|
LDY #$002A
|
|
LDA [$0A],Y
|
|
DEC
|
|
STA [$0A],Y
|
|
BNE L031048
|
|
TXA
|
|
AND #$EFFF
|
|
LDY #$001C
|
|
STA [$0A],Y
|
|
BRA L030FF3
|
|
L031040 TXA
|
|
LDY #$001C
|
|
STA [$0A],Y
|
|
BRA L030FF3
|
|
L031048 LDA #$FFFF
|
|
STA L031057
|
|
TXA
|
|
LDY #$001C
|
|
STA [$0A],Y
|
|
BRA L030FF3
|
|
L031056 RTS
|
|
|
|
L031057 DW $0000
|
|
L031059 LDY #$001C
|
|
LDA [$0A],Y
|
|
STA L0311BE
|
|
TAX
|
|
AND #$2080
|
|
BEQ L03106A
|
|
BRL L0311BD
|
|
L03106A TXA
|
|
ORA #$3000
|
|
STA [$0A],Y
|
|
LDY #$001E
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
INC
|
|
STA L030BE4
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
CMP #$000F
|
|
BEQ L0310B1
|
|
TXA
|
|
AND #$3000
|
|
BNE L0310AE
|
|
LDA $8E
|
|
LDY #$0004
|
|
CLC
|
|
ADC [$0A],Y
|
|
TAX
|
|
LDA $90
|
|
INY
|
|
INY
|
|
ADC [$0A],Y
|
|
TAY
|
|
TXA
|
|
TYX
|
|
LDY #$0018
|
|
ADC [$0A],Y
|
|
STA $8E
|
|
TXA
|
|
INY
|
|
INY
|
|
ADC [$0A],Y
|
|
STA $90
|
|
INC $8C
|
|
L0310AE BRL L03116D
|
|
L0310B1 LDX #$0020
|
|
L0310B4 STZ L0311BE,X
|
|
DEX
|
|
DEX
|
|
BNE L0310B4
|
|
LDY #$001E
|
|
L0310BE LDA [$0A]
|
|
AND #$FF00
|
|
BEQ L0310EA
|
|
XBA
|
|
CLC
|
|
ADC $0A
|
|
STA $0A
|
|
BCC L0310CF
|
|
INC $0C
|
|
L0310CF LDA [$0A],Y
|
|
AND #$00FF
|
|
CMP L030BE4
|
|
BCS L0310BE
|
|
L0310D9 LDA [$0A]
|
|
AND #$00FF
|
|
CLC
|
|
SBC $0A
|
|
EOR #$FFFF
|
|
STA $0A
|
|
BCC L0310EA
|
|
DEC $0C
|
|
L0310EA LDY #$001C
|
|
LDA [$0A],Y
|
|
BIT #$0080
|
|
BNE L03112C
|
|
PHA
|
|
ORA #$3000
|
|
STA [$0A],Y
|
|
PLA
|
|
AND #$3000
|
|
BNE L03112C
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
CMP #$000F
|
|
BEQ L03112C
|
|
LDA $8E
|
|
LDY #$0004
|
|
CLC
|
|
ADC [$0A],Y
|
|
TAX
|
|
LDA $90
|
|
INY
|
|
INY
|
|
ADC [$0A],Y
|
|
TAY
|
|
TXA
|
|
TYX
|
|
LDY #$0018
|
|
ADC [$0A],Y
|
|
STA $8E
|
|
TXA
|
|
INY
|
|
INY
|
|
ADC [$0A],Y
|
|
STA $90
|
|
INC $8C
|
|
L03112C LDY #$001E
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
TAX
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
CMP #$000F
|
|
BNE L03115B
|
|
LDY #$002A
|
|
LDA L0311C0,X
|
|
STA [$0A],Y
|
|
BNE L031153
|
|
LDY #$001C
|
|
LDA [$0A],Y
|
|
AND #$EFFF
|
|
STA [$0A],Y
|
|
L031153 STZ L0311C0,X
|
|
CPX L030BE4
|
|
BCC L031162
|
|
L03115B DEX
|
|
INC L0311C0,X
|
|
BRL L0310D9
|
|
L031162 LDA [$2E]
|
|
STA $0A
|
|
LDY #$0002
|
|
LDA [$2E],Y
|
|
STA $0C
|
|
L03116D LDA L0311BE
|
|
AND #$1000
|
|
BNE L0311BD
|
|
L031175 LDA L030BE4
|
|
DEC
|
|
CMP #$0001
|
|
BEQ L0311BD
|
|
STA L030BE4
|
|
LDY #$001E
|
|
L031184 LDA [$0A]
|
|
AND #$00FF
|
|
CLC
|
|
SBC $0A
|
|
EOR #$FFFF
|
|
STA $0A
|
|
BCC L031195
|
|
DEC $0C
|
|
L031195 LDA [$0A],Y
|
|
AND #$00FF
|
|
CMP L030BE4
|
|
BCS L031184
|
|
LDY #$002A
|
|
LDA [$0A],Y
|
|
INC
|
|
STA [$0A],Y
|
|
DEC
|
|
BNE L0311BD
|
|
LDY #$001C
|
|
LDA [$0A],Y
|
|
PHA
|
|
ORA #$1000
|
|
STA [$0A],Y
|
|
PLA
|
|
AND #$3000
|
|
BNE L0311BB
|
|
L0311BB BRA L031175
|
|
L0311BD RTS
|
|
|
|
L0311BE DB $00
|
|
DB $00
|
|
L0311C0 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L031200 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L030BBC
|
|
LDA $05,S
|
|
TCD
|
|
LDA $07,S
|
|
STA $36
|
|
LDA $09,S
|
|
STA $38
|
|
LDA $11,S
|
|
STA $4A
|
|
LDA $13,S
|
|
STA $4C
|
|
LDA $0D,S
|
|
STA $4E
|
|
LDA $0F,S
|
|
STA $50
|
|
LDA $0B,S
|
|
STA L0312FF
|
|
LDA $15,S
|
|
STA $22
|
|
LDA $17,S
|
|
STA $24
|
|
PLA
|
|
STA $13,S
|
|
PLA
|
|
STA $13,S
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
LDA #$8000
|
|
STA L030BC0
|
|
LDA [$26]
|
|
STA $2A
|
|
LDY #$0002
|
|
LDA [$26],Y
|
|
STA $2C
|
|
LDA $2A
|
|
CLC
|
|
ADC #$0004
|
|
STA $2E
|
|
LDA $2C
|
|
BCC L031259
|
|
INC
|
|
L031259 STA $30
|
|
LDX L030BD0
|
|
BEQ L0312B9
|
|
STX L0312FD
|
|
LDA L0312FF
|
|
CMP #$0003
|
|
BNE L03126E
|
|
BRL L0312E0
|
|
L03126E LDA [$2E]
|
|
AND #$0080
|
|
BEQ L0312A8
|
|
STZ L030BC0
|
|
LDA $2E
|
|
SEC
|
|
SBC #$0004
|
|
STA $2E
|
|
BCS L031284
|
|
DEC $30
|
|
L031284 LDA [$2E]
|
|
STA $0A
|
|
LDY #$0002
|
|
LDA [$2E],Y
|
|
STA $0C
|
|
LDA L0312FF
|
|
BEQ L031299
|
|
JSR L031059
|
|
BRA L03129C
|
|
L031299 JSR L030F0D
|
|
L03129C LDA $2E
|
|
CLC
|
|
ADC #$0004
|
|
STA $2E
|
|
BCC L0312A8
|
|
INC $30
|
|
L0312A8 LDA $2E
|
|
CLC
|
|
ADC #$0005
|
|
STA $2E
|
|
BCC L0312B4
|
|
INC $30
|
|
L0312B4 DEC L0312FD
|
|
BNE L03126E
|
|
L0312B9 LDA L030BC0
|
|
STA [$22]
|
|
TAX
|
|
LDA $8C
|
|
STA [$4A]
|
|
LDA $8E
|
|
STA [$4E]
|
|
LDA $90
|
|
LDY #$0002
|
|
STA [$4E],Y
|
|
LDA $2A
|
|
STA [$36]
|
|
LDA $2C
|
|
STA [$36],Y
|
|
LDA L030BBC
|
|
TCD
|
|
PLB
|
|
TXA
|
|
CMP #$0001
|
|
RTL
|
|
|
|
L0312E0 LDA [$2E]
|
|
ORA #$0080
|
|
STA [$2E]
|
|
LDA $2E
|
|
CLC
|
|
ADC #$0005
|
|
STA $2E
|
|
BCC L0312F3
|
|
INC $30
|
|
L0312F3 DEC L0312FD
|
|
BNE L0312E0
|
|
STZ L030BC0
|
|
BRA L0312B9
|
|
L0312FD DW $0000
|
|
L0312FF DW $0000
|
|
L031301 LDA [$2E]
|
|
STA $0A
|
|
LDY #$0002
|
|
LDA [$2E],Y
|
|
STA $0C
|
|
L03130C LDY #$0002
|
|
LDA [$0A],Y
|
|
CMP #$000F
|
|
BEQ L031352
|
|
LDY #$0004
|
|
LDA [$0A],Y
|
|
CLC
|
|
ADC L030BDE
|
|
STA L030BDE
|
|
INY
|
|
INY
|
|
LDA [$0A],Y
|
|
ADC L030BE0
|
|
STA L030BE0
|
|
LDY #$001C
|
|
LDA [$0A],Y
|
|
AND #$0800
|
|
BEQ L03134C
|
|
LDY #$0018
|
|
LDA [$0A],Y
|
|
CLC
|
|
ADC L030BDE
|
|
STA L030BDE
|
|
INY
|
|
INY
|
|
LDA [$0A],Y
|
|
ADC L030BE0
|
|
STA L030BE0
|
|
L03134C INC L030BE2
|
|
BRL L0313CB
|
|
L031352 LDY #$001C
|
|
LDA [$0A],Y
|
|
AND #$4000
|
|
BNE L0313CB
|
|
LDY #$001E
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
INC
|
|
STA L030BE4
|
|
L031368 LDA [$0A]
|
|
AND #$FF00
|
|
BEQ L0313CB
|
|
XBA
|
|
CLC
|
|
ADC $0A
|
|
STA $0A
|
|
BCC L031379
|
|
INC $0C
|
|
L031379 LDY #$001E
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
CMP L030BE4
|
|
BCC L0313CB
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
CMP #$000F
|
|
BEQ L0313C9
|
|
LDY #$0004
|
|
LDA [$0A],Y
|
|
CLC
|
|
ADC L030BDE
|
|
STA L030BDE
|
|
INY
|
|
INY
|
|
LDA [$0A],Y
|
|
ADC L030BE0
|
|
STA L030BE0
|
|
LDY #$001C
|
|
LDA [$0A],Y
|
|
AND #$0800
|
|
BEQ L0313C6
|
|
LDY #$0018
|
|
LDA [$0A],Y
|
|
CLC
|
|
ADC L030BDE
|
|
STA L030BDE
|
|
INY
|
|
INY
|
|
LDA [$0A],Y
|
|
ADC L030BE0
|
|
STA L030BE0
|
|
L0313C6 INC L030BE2
|
|
L0313C9 BRA L031368
|
|
L0313CB RTS
|
|
|
|
L0313CC ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L030BBC
|
|
LDA $05,S
|
|
TCD
|
|
LDA $07,S
|
|
STA $3E
|
|
LDA $09,S
|
|
STA $40
|
|
LDA $0B,S
|
|
STA $42
|
|
LDA $0D,S
|
|
STA $44
|
|
LDA $0F,S
|
|
STA $46
|
|
LDA $11,S
|
|
STA $48
|
|
LDA $13,S
|
|
STA $22
|
|
LDA $15,S
|
|
STA $24
|
|
LDA $17,S
|
|
STA L0315A4
|
|
PLA
|
|
STA $13,S
|
|
PLA
|
|
STA $13,S
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
LDA #$8000
|
|
STA L030BC0
|
|
STZ L030BDE
|
|
STZ L030BE0
|
|
STZ L030BE2
|
|
LDA [$26]
|
|
STA $2A
|
|
LDY #$0002
|
|
LDA [$26],Y
|
|
STA $2C
|
|
LDA $2A
|
|
CLC
|
|
ADC #$0004
|
|
STA $2E
|
|
LDA $2C
|
|
BCC L03142E
|
|
INC
|
|
L03142E STA $30
|
|
LDX L030BD0
|
|
BNE L031438
|
|
BRL L0314BC
|
|
L031438 STX L0315A2
|
|
LDA L0315A4
|
|
BEQ L031481
|
|
STZ L030BC0
|
|
JSR L030C6A
|
|
LDA [$2E]
|
|
STA $0A
|
|
LDY #$0002
|
|
LDA [$2E],Y
|
|
STA $0C
|
|
LDA L0315A4
|
|
DEC
|
|
BEQ L03145A
|
|
BRL L0314D9
|
|
L03145A LDY #$0002
|
|
LDA [$0A],Y
|
|
STA [$3E]
|
|
LDA $42
|
|
SEC
|
|
SBC #$0010
|
|
STA $42
|
|
BCS L03146D
|
|
DEC $44
|
|
L03146D LDY #$0016
|
|
L031470 LDA [$0A],Y
|
|
STA [$42],Y
|
|
DEY
|
|
DEY
|
|
CPY #$000E
|
|
BNE L031470
|
|
JSR L031301
|
|
BRL L0314BC
|
|
L031481 LDA [$2E]
|
|
AND #$0080
|
|
BEQ L0314A6
|
|
STZ L030BC0
|
|
LDA $2E
|
|
SEC
|
|
SBC #$0004
|
|
STA $2E
|
|
BCS L031497
|
|
DEC $30
|
|
L031497 JSR L031301
|
|
LDA $2E
|
|
CLC
|
|
ADC #$0004
|
|
STA $2E
|
|
BCC L0314A6
|
|
INC $30
|
|
L0314A6 LDA $2E
|
|
CLC
|
|
ADC #$0005
|
|
STA $2E
|
|
BCC L0314B2
|
|
INC $30
|
|
L0314B2 DEC L0315A2
|
|
BNE L031481
|
|
LDA L030BE2
|
|
STA [$3E]
|
|
L0314BC LDA L030BDE
|
|
STA [$46]
|
|
LDY #$0002
|
|
LDA L030BE0
|
|
STA [$46],Y
|
|
L0314C9 LDA L030BC0
|
|
STA [$22]
|
|
TAX
|
|
LDA L030BBC
|
|
TCD
|
|
PLB
|
|
TXA
|
|
CMP #$0001
|
|
RTL
|
|
|
|
L0314D9 LDY #$001C
|
|
LDA [$0A],Y
|
|
BIT #$0080
|
|
BNE L0314EA
|
|
LDA #$0000
|
|
STA [$3E]
|
|
BRA L0314C9
|
|
L0314EA LDY #$0022
|
|
LDA [$0A],Y
|
|
STA L0315AA
|
|
STA [$3E]
|
|
PHA
|
|
PHA
|
|
PEA $8020
|
|
PEA $07FF
|
|
PHA
|
|
_LoadResource
|
|
PLX
|
|
STX $7C
|
|
PLX
|
|
STX $7E
|
|
BCC L031530
|
|
LDA L0315AA
|
|
PHA
|
|
PEA ^L031611+$11
|
|
PEA L031611+$11
|
|
PEA $0002
|
|
_Int2Hex
|
|
LDA #L031611
|
|
STA [$46]
|
|
LDA #^L031611
|
|
LDY #$0002
|
|
STA [$46],Y
|
|
BRL L0314C9
|
|
L031530 LDY #$0002
|
|
LDA [$7C]
|
|
STA $66
|
|
LDA [$7C],Y
|
|
STA $68
|
|
LDY #$FFFF
|
|
SEP #$20
|
|
L031540 INY
|
|
LDA [$66],Y
|
|
CMP #$41
|
|
BCC L031540
|
|
CMP #$5B
|
|
BCS L031540
|
|
STY L0315A6
|
|
DEY
|
|
LDA [$66],Y
|
|
L031551 INY
|
|
CMP [$66],Y
|
|
BNE L031551
|
|
STY L0315A8
|
|
REP #$20
|
|
TYA
|
|
SEC
|
|
SBC L0315A6
|
|
CMP #$0064
|
|
BCC L031568
|
|
LDA #$0064
|
|
L031568 STA L0315AC
|
|
TAX
|
|
CLC
|
|
ADC L0315A6
|
|
TAY
|
|
SEP #$20
|
|
L031573 DEY
|
|
LDA [$66],Y
|
|
STA L0315AC,X
|
|
DEX
|
|
BNE L031573
|
|
REP #$20
|
|
PEA $0003
|
|
PEA $8020
|
|
PEA $07FF
|
|
LDA L0315AA
|
|
PHA
|
|
_ReleaseResource
|
|
LDA #L0315AC
|
|
STA [$46]
|
|
LDA #^L0315AC
|
|
LDY #$0002
|
|
STA [$46],Y
|
|
BRL L0314C9
|
|
L0315A2 DB $00
|
|
DB $00
|
|
L0315A4 DB $00
|
|
DB $00
|
|
L0315A6 DB $00
|
|
DB $00
|
|
L0315A8 DB $00
|
|
DB $00
|
|
L0315AA DB $00
|
|
DB $00
|
|
L0315AC DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L031611 STR 'Unknown error ($'0000').'
|
|
L031626 LDY #$0002
|
|
LDA [$0A],Y
|
|
CMP #$000F
|
|
BEQ L031636
|
|
SEC
|
|
ROR L03171F
|
|
BRA L031669
|
|
L031636 STZ L03171F
|
|
LDY #$001E
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
INC
|
|
STA L031721
|
|
L031645 LDA [$0A]
|
|
AND #$FF00
|
|
BNE L03164F
|
|
BRL L03171E
|
|
L03164F XBA
|
|
CLC
|
|
ADC $0A
|
|
STA $0A
|
|
BCC L031659
|
|
INC $0C
|
|
L031659 LDY #$001E
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
CMP L031721
|
|
BCS L031669
|
|
BRL L03171E
|
|
L031669 LDY #$0002
|
|
LDA [$0A],Y
|
|
STA L031729
|
|
STZ L031723
|
|
LDA L03181F
|
|
LSR
|
|
STA L03172B
|
|
LDA #$FFFE
|
|
STA L031725
|
|
STA L031727
|
|
L031684 LDY L031725
|
|
INY
|
|
INY
|
|
STY L031725
|
|
CPY #$0006
|
|
BEQ L0316F2
|
|
LDA [$5A],Y
|
|
BEQ L0316CD
|
|
TAX
|
|
LDY L031727
|
|
INY
|
|
INY
|
|
LDA [$5E],Y
|
|
STA $62
|
|
INY
|
|
INY
|
|
STY L031727
|
|
LDA [$5E],Y
|
|
STA $64
|
|
CPX #$0004
|
|
BNE L0316B6
|
|
LDA L031729
|
|
CMP $62
|
|
BEQ L0316D5
|
|
BRA L0316DA
|
|
L0316B6 TXA
|
|
BIT #$0018
|
|
BEQ L0316C3
|
|
JSR L031825
|
|
BCC L0316D5
|
|
BRA L0316DA
|
|
L0316C3 AND #$0003
|
|
JSR L03186C
|
|
BCS L0316DA
|
|
BRA L0316D5
|
|
L0316CD LDA #$8000
|
|
ROL L03172B
|
|
BRA L0316EA
|
|
L0316D5 LDA #$8000
|
|
BRA L0316DD
|
|
L0316DA LDA #$0000
|
|
L0316DD ROL L03172B
|
|
BCS L0316EA
|
|
ORA L031723
|
|
STA L031723
|
|
BRA L031684
|
|
L0316EA AND L031723
|
|
STA L031723
|
|
BRA L031684
|
|
L0316F2 LDA L031723
|
|
BEQ L031716
|
|
LDA $0A
|
|
STA $78
|
|
LDA $0C
|
|
STA $7A
|
|
LDA $09,S
|
|
AND #$0001
|
|
BEQ L03170B
|
|
JSR L031059
|
|
BRA L03170E
|
|
L03170B JSR L030F0D
|
|
L03170E LDA $78
|
|
STA $0A
|
|
LDA $7A
|
|
STA $0C
|
|
L031716 LDA L03171F
|
|
BNE L03171E
|
|
BRL L031645
|
|
L03171E RTS
|
|
|
|
L03171F DB $00
|
|
DB $00
|
|
L031721 DB $00
|
|
DB $00
|
|
L031723 DB $00
|
|
DB $00
|
|
L031725 DB $00
|
|
DB $00
|
|
L031727 DB $00
|
|
DB $00
|
|
L031729 DB $00
|
|
DB $00
|
|
L03172B DB $00
|
|
DB $00
|
|
L03172D ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L030BBC
|
|
LDA $05,S
|
|
TCD
|
|
LDA $09,S
|
|
STA $5A
|
|
LDA $0B,S
|
|
STA $5C
|
|
LDA $0D,S
|
|
STA $5E
|
|
LDA $0F,S
|
|
STA $60
|
|
LDA $15,S
|
|
STA $4A
|
|
LDA $17,S
|
|
STA $4C
|
|
LDA $11,S
|
|
STA $4E
|
|
LDA $13,S
|
|
STA $50
|
|
LDY #$0002
|
|
LDA [$26],Y
|
|
STA $2C
|
|
LDA [$26]
|
|
STA $2A
|
|
LDA $07,S
|
|
TAX
|
|
AND #$F800
|
|
STA L03181F
|
|
TXA
|
|
AND #$0002
|
|
BNE L031791
|
|
LDA [$1A]
|
|
STA $06
|
|
LDY #$0002
|
|
LDA [$1A],Y
|
|
STA $08
|
|
LDA $06
|
|
CLC
|
|
ADC #$01B6
|
|
STA $0A
|
|
LDA $08
|
|
ADC #$0000
|
|
STA $0C
|
|
JSR L031626
|
|
BRL L0317FA
|
|
L031791 LDA #$8000
|
|
STA L031821
|
|
LDA [$26]
|
|
STA $2A
|
|
LDY #$0002
|
|
LDA [$26],Y
|
|
STA $2C
|
|
LDA $2A
|
|
CLC
|
|
ADC #$0004
|
|
STA $2E
|
|
LDA $2C
|
|
BCC L0317AF
|
|
INC
|
|
L0317AF STA $30
|
|
LDX L030BD0
|
|
BEQ L0317FA
|
|
STX L031823
|
|
L0317B9 LDA [$2E]
|
|
AND #$0080
|
|
BEQ L0317E9
|
|
STZ L031821
|
|
LDA $2E
|
|
SEC
|
|
SBC #$0004
|
|
STA $2E
|
|
BCS L0317CF
|
|
DEC $30
|
|
L0317CF LDA [$2E]
|
|
STA $0A
|
|
LDY #$0002
|
|
LDA [$2E],Y
|
|
STA $0C
|
|
JSR L031626
|
|
LDA $2E
|
|
CLC
|
|
ADC #$0004
|
|
STA $2E
|
|
BCC L0317E9
|
|
INC $30
|
|
L0317E9 LDA $2E
|
|
CLC
|
|
ADC #$0005
|
|
STA $2E
|
|
BCC L0317F5
|
|
INC $30
|
|
L0317F5 DEC L031823
|
|
BNE L0317B9
|
|
L0317FA LDA $8C
|
|
STA [$4A]
|
|
LDA $8E
|
|
STA [$4E]
|
|
LDA $90
|
|
LDY #$0002
|
|
STA [$4E],Y
|
|
PLA
|
|
STA $13,S
|
|
PLA
|
|
STA $13,S
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
LDA L030BBC
|
|
TCD
|
|
PLB
|
|
TXA
|
|
CMP #$0001
|
|
RTL
|
|
|
|
L03181F DB $00
|
|
DB $00
|
|
L031821 DB $00
|
|
DB $00
|
|
L031823 DB $00
|
|
DB $00
|
|
L031825 CMP #$0009
|
|
ROR L03186A
|
|
LDA $0A
|
|
CLC
|
|
ADC #$0010
|
|
STA $12
|
|
LDA $0C
|
|
BCC L031838
|
|
INC
|
|
L031838 STA $14
|
|
SEP #$20
|
|
LDY #$0003
|
|
LDA [$12],Y
|
|
CMP [$62],Y
|
|
REP #$20
|
|
BCC L031862
|
|
BNE L03185D
|
|
LDY #$0004
|
|
LDA [$12],Y
|
|
CMP [$62],Y
|
|
BCC L031862
|
|
BNE L03185D
|
|
LDY #$0001
|
|
LDA [$12],Y
|
|
CMP [$62],Y
|
|
BCC L031862
|
|
L03185D LDA #$0000
|
|
BRA L031865
|
|
L031862 LDA #$8000
|
|
L031865 EOR L03186A
|
|
ASL
|
|
RTS
|
|
|
|
L03186A DW $0000
|
|
L03186C TAX
|
|
LDA $0A
|
|
CLC
|
|
ADC #$002E
|
|
STA $12
|
|
LDA $0C
|
|
BCC L03187A
|
|
INC
|
|
L03187A STA $14
|
|
LDA #$0000
|
|
SEP #$20
|
|
LDA [$12]
|
|
STA L031909
|
|
CMP [$62]
|
|
BCS L03188C
|
|
BRA L031905
|
|
L03188C DEX
|
|
BEQ L0318CB
|
|
DEX
|
|
BEQ L0318DF
|
|
LDX $12
|
|
STX L0318AF+1
|
|
LDX $13
|
|
STX L0318AF+2
|
|
LDA [$62]
|
|
BEQ L031905
|
|
STA L03190D
|
|
LDA L031909
|
|
STA L03190B
|
|
TAX
|
|
L0318AA LDY L03190D
|
|
L0318AD LDA [$62],Y
|
|
L0318AF EORL $000000,X
|
|
AND #$DF
|
|
BNE L0318BD
|
|
DEX
|
|
DEY
|
|
BEQ L031902
|
|
BRA L0318AD
|
|
L0318BD LDX L03190B
|
|
DEX
|
|
STX L03190B
|
|
CPX L03190D
|
|
BCS L0318AA
|
|
BRA L031905
|
|
L0318CB LDA [$62]
|
|
BEQ L0318DD
|
|
TAY
|
|
L0318D0 LDA [$62],Y
|
|
EOR [$12],Y
|
|
AND #$DF
|
|
BNE L0318DD
|
|
DEY
|
|
BNE L0318D0
|
|
BRA L031902
|
|
L0318DD BRA L031905
|
|
L0318DF LDA L031909
|
|
SEC
|
|
SBC [$62]
|
|
CLC
|
|
ADC $12
|
|
STA $12
|
|
BCC L0318EE
|
|
INC $14
|
|
L0318EE LDA [$62]
|
|
BEQ L031900
|
|
TAY
|
|
L0318F3 LDA [$62],Y
|
|
EOR [$12],Y
|
|
AND #$DF
|
|
BNE L031900
|
|
DEY
|
|
BNE L0318F3
|
|
BRA L031902
|
|
L031900 BRA L031905
|
|
L031902 CLC
|
|
BRA L031906
|
|
L031905 SEC
|
|
L031906 REP #$20
|
|
RTS
|
|
|
|
L031909 DB $00
|
|
DB $00
|
|
L03190B DB $00
|
|
DB $00
|
|
L03190D DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L031911 STA L03193D
|
|
LDY #$001C
|
|
LDX #$0000
|
|
L03191A LDA [$0A]
|
|
AND #$FF00
|
|
BNE L031923
|
|
SEC
|
|
RTS
|
|
|
|
L031923 XBA
|
|
CLC
|
|
ADC $0A
|
|
STA $0A
|
|
BCC L03192D
|
|
INC $0C
|
|
L03192D LDA [$0A],Y
|
|
AND #$3000
|
|
CMP #$0001
|
|
TXA
|
|
ADC L03193D
|
|
BNE L03191A
|
|
CLC
|
|
RTS
|
|
|
|
L03193D DW $0000
|
|
L03193F LDA $8C
|
|
BNE L031973
|
|
LDA $06
|
|
CLC
|
|
ADC #$01B6
|
|
STA $0A
|
|
LDA $08
|
|
BCC L031950
|
|
INC
|
|
L031950 STA $0C
|
|
LDA [$0A]
|
|
XBA
|
|
AND #$00FF
|
|
BNE L03195F
|
|
LDY #$000E
|
|
LDA [$0A],Y
|
|
L03195F STA L031ADC
|
|
CLC
|
|
ADC $0A
|
|
STA L031AE0
|
|
LDA $0C
|
|
ADC #$0000
|
|
STA L031AE2
|
|
BRL L031A66
|
|
L031973 LDY #$0008
|
|
CMP [$06],Y
|
|
BNE L03197C
|
|
CLC
|
|
RTS
|
|
|
|
L03197C LDA $06
|
|
CLC
|
|
ADC #$01B6
|
|
STA $0A
|
|
LDA $08
|
|
BCC L031989
|
|
INC
|
|
L031989 STA $0C
|
|
STZ L031ACE
|
|
LDA #$0000
|
|
JSR L031911
|
|
BCC L031997
|
|
RTS
|
|
|
|
L031997 LDA $0A
|
|
STA L031AD0
|
|
LDA $0C
|
|
STA L031AD2
|
|
LDA [$0A]
|
|
STA L031ADE
|
|
L0319A6 LDA #$FFFF
|
|
JSR L031911
|
|
BCC L0319C9
|
|
INC L031ACE
|
|
LDA L031AD0
|
|
STA L031AE0
|
|
LDA L031AD2
|
|
STA L031AE2
|
|
LDA L031ADE
|
|
AND #$00FF
|
|
STA L031ADC
|
|
BRL L031A66
|
|
L0319C9 LDA $0A
|
|
STA L031AD4
|
|
LDA $0C
|
|
STA L031AD6
|
|
LDA L031ADE
|
|
SEP #$20
|
|
STA [$0A]
|
|
REP #$20
|
|
LDA #$0000
|
|
JSR L031911
|
|
BCC L031A08
|
|
INC L031ACE
|
|
LDY #$002E
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
CLC
|
|
ADC #$002F
|
|
STA L031ADC
|
|
CLC
|
|
ADC $0A
|
|
STA $0A
|
|
STA L031AE0
|
|
LDA $0C
|
|
BCC L031A03
|
|
INC
|
|
L031A03 STA $0C
|
|
STA L031AE2
|
|
L031A08 LDA $0A
|
|
SEC
|
|
SBC L031AD4
|
|
STA L031AD8
|
|
LDA $0C
|
|
SBC L031AD6
|
|
STA L031ADA
|
|
LDA L031AD6
|
|
PHA
|
|
LDA L031AD4
|
|
PHA
|
|
LDA L031AD2
|
|
PHA
|
|
LDA L031AD0
|
|
PHA
|
|
LDA L031ADA
|
|
PHA
|
|
LDA L031AD8
|
|
PHA
|
|
_BlockMove
|
|
LDA L031AD0
|
|
CLC
|
|
ADC L031AD8
|
|
STA L031AD0
|
|
LDA L031AD2
|
|
ADC L031ADA
|
|
STA L031AD2
|
|
LDA L031ACE
|
|
BEQ L031A5E
|
|
LDA L031AD0
|
|
STA L031AE0
|
|
LDA L031AD2
|
|
STA L031AE2
|
|
BRA L031A66
|
|
L031A5E LDA [$0A]
|
|
STA L031ADE
|
|
BRL L0319A6
|
|
L031A66 LDA L031AE0
|
|
SEC
|
|
SBC $06
|
|
STA $92
|
|
TAX
|
|
LDA L031AE2
|
|
SBC $08
|
|
STA $94
|
|
TAY
|
|
TXA
|
|
SEC
|
|
SBC L031ADC
|
|
TAX
|
|
TYA
|
|
BCS L031A81
|
|
DEC
|
|
L031A81 LDY #$000C
|
|
STA [$06],Y
|
|
DEY
|
|
DEY
|
|
TXA
|
|
STA [$06],Y
|
|
LDY #$000E
|
|
LDA L031ADC
|
|
STA [$06],Y
|
|
LDA $8C
|
|
LDY #$0008
|
|
STA [$06],Y
|
|
LDA L031AE0
|
|
SEC
|
|
SBC L031ADC
|
|
STA $0A
|
|
LDA L031AE2
|
|
BCS L031AA9
|
|
DEC
|
|
L031AA9 STA $0C
|
|
LDA [$0A]
|
|
AND #$00FF
|
|
STA [$0A]
|
|
LDY #$0006
|
|
LDA $94
|
|
PHA
|
|
STA [$06],Y
|
|
LDA $92
|
|
PHA
|
|
DEY
|
|
DEY
|
|
STA [$06],Y
|
|
PEI $1C
|
|
PEI $1A
|
|
_SetHandleSize
|
|
CLC
|
|
RTS
|
|
|
|
L031ACE DB $00
|
|
DB $00
|
|
L031AD0 DB $00
|
|
DB $00
|
|
L031AD2 DB $00
|
|
DB $00
|
|
L031AD4 DB $00
|
|
DB $00
|
|
L031AD6 DB $00
|
|
DB $00
|
|
L031AD8 DB $00
|
|
DB $00
|
|
L031ADA DB $00
|
|
DB $00
|
|
L031ADC DB $00
|
|
DB $00
|
|
L031ADE DB $00
|
|
DB $00
|
|
L031AE0 DB $00
|
|
DB $00
|
|
L031AE2 DB $00
|
|
DB $00
|
|
L031AE4 STAL $FF0100
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L031B59
|
|
LDA $07,S
|
|
TCD
|
|
PLA
|
|
STA $03,S
|
|
PLA
|
|
STA $03,S
|
|
TSC
|
|
CLC
|
|
ADC #$0000
|
|
TCS
|
|
LDA [$1A]
|
|
STA $06
|
|
LDY #$0002
|
|
LDA [$1A],Y
|
|
STA $08
|
|
JSR L03193F
|
|
STZ L030BDE
|
|
STZ L030BE0
|
|
LDA $06
|
|
CLC
|
|
ADC #$01B6
|
|
STA $0A
|
|
LDA $08
|
|
BCC L031B1F
|
|
INC
|
|
L031B1F STA $0C
|
|
JSR L03130C
|
|
LDY #$01B2
|
|
LDA L030BDE
|
|
STA [$06],Y
|
|
LDA L030BE0
|
|
INY
|
|
INY
|
|
STA [$06],Y
|
|
LDA $06
|
|
CLC
|
|
ADC #$01B6
|
|
STA $0A
|
|
LDA $08
|
|
ADC #$0000
|
|
STA $0C
|
|
JSR L030F0D
|
|
LDA #$0060
|
|
LDY #$0010
|
|
STA [$06],Y
|
|
LDA L031B59
|
|
TCD
|
|
LDA #$0000
|
|
PLB
|
|
CMP #$0001
|
|
RTL
|
|
|
|
L031B59 DW $0000
|
|
L031B5B PHB
|
|
PHK
|
|
PLB
|
|
STZ L030BDE
|
|
STZ L030BE0
|
|
JSR L03130C
|
|
LDA L030BDE
|
|
LDX L030BE0
|
|
PLB
|
|
RTL
|
|
|
|
L031B6F PHA
|
|
BIT L033036
|
|
BMI L031BD5
|
|
SEP #$30
|
|
LDX L031C2F
|
|
L031B7A LDA L031C2F,X
|
|
STA L0339C6,X
|
|
DEX
|
|
BNE L031B7A
|
|
REP #$20
|
|
LDAL L0301D1
|
|
DEC
|
|
STA $78
|
|
TAX
|
|
SEP #$20
|
|
L031B8F DEX
|
|
LDAL L0301D2,X
|
|
CMP #$3A
|
|
BEQ L031B9A
|
|
BRA L031B8F
|
|
L031B9A LDY L031C2F
|
|
L031B9D INX
|
|
LDAL L0301D2,X
|
|
STA L0339C7,Y
|
|
INY
|
|
CPX $78
|
|
BNE L031B9D
|
|
LDX #$00
|
|
L031BAC LDA L031C4C+1,X
|
|
STA L0339C7,Y
|
|
INY
|
|
INX
|
|
CPX L031C4C
|
|
BNE L031BAC
|
|
STY L0339C6
|
|
REP #$30
|
|
LDA #$0004
|
|
LDX #L0339C6
|
|
JSR L033456
|
|
TAX
|
|
BNE L031BD5
|
|
JSR L0334CD
|
|
BCS L031BD5
|
|
SEC
|
|
PLA
|
|
LDA #$8010
|
|
RTS
|
|
|
|
L031BD5 INC L030BE8
|
|
LDY #$001C
|
|
LDA [$0A],Y
|
|
ORA #$0080
|
|
STA [$0A],Y
|
|
LDY #$0022
|
|
LDA $01,S
|
|
STA [$0A],Y
|
|
LDA $0A
|
|
STA $78
|
|
LDA $0C
|
|
STA $7A
|
|
LDY #$001E
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
L031BF9 STA L030BE4
|
|
DEC
|
|
BEQ L031C2D
|
|
L031BFF LDA [$78]
|
|
AND #$00FF
|
|
CLC
|
|
SBC $78
|
|
EOR #$FFFF
|
|
STA $78
|
|
BCC L031C10
|
|
DEC $7A
|
|
L031C10 LDA [$78],Y
|
|
AND #$00FF
|
|
CMP L030BE4
|
|
BCS L031BFF
|
|
LDY #$001C
|
|
LDA [$78],Y
|
|
ORA #$0040
|
|
STA [$78],Y
|
|
LDY #$001E
|
|
LDA L030BE4
|
|
DEC
|
|
BRA L031BF9
|
|
L031C2D PLA
|
|
RTS
|
|
|
|
L031C2F STR 'Can'27't read the file/folder "'
|
|
L031C4C STR '." It will not be backed up.'
|
|
L031C6A ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L030BBC
|
|
LDA $05,S
|
|
TCD
|
|
LDA $07,S
|
|
STA $88
|
|
LDA $09,S
|
|
STA $8A
|
|
LDA $0B,S
|
|
STA $80
|
|
LDA $0D,S
|
|
STA $82
|
|
PLA
|
|
STA $09,S
|
|
PLA
|
|
STA $09,S
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
LDA [$88]
|
|
STA $78
|
|
LDY #$0002
|
|
LDA [$88],Y
|
|
STA $7A
|
|
LDY #$001C
|
|
LDA [$78],Y
|
|
STA $52
|
|
INY
|
|
INY
|
|
LDA [$78],Y
|
|
STA $54
|
|
LDA [$52]
|
|
STA $78
|
|
LDY #$0002
|
|
LDA [$52],Y
|
|
STA $7A
|
|
LDY #$0004
|
|
LDA [$78],Y
|
|
STA [$80]
|
|
TAX
|
|
DEY
|
|
DEY
|
|
LDA [$78],Y
|
|
STA $7E
|
|
LDA [$78]
|
|
STA $7C
|
|
LDA [$7C]
|
|
STA $78
|
|
LDA [$7C],Y
|
|
STA $7A
|
|
INC $80
|
|
BNE L031CD3
|
|
INC $82
|
|
L031CD3 SEP #$20
|
|
TXY
|
|
L031CD6 DEY
|
|
BMI L031CDF
|
|
LDA [$78],Y
|
|
STA [$80],Y
|
|
BRA L031CD6
|
|
L031CDF REP #$21
|
|
LDA L030BBC
|
|
TCD
|
|
PLB
|
|
RTL
|
|
|
|
L031CE7 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L030BBC
|
|
LDA $05,S
|
|
TCD
|
|
LDA $07,S
|
|
ORA #$0600
|
|
STA L030BEA
|
|
LDA $13,S
|
|
STA $22
|
|
LDA $15,S
|
|
STA $24
|
|
LDA $0D,S
|
|
STA $12
|
|
LDA $0F,S
|
|
STA $14
|
|
LDA $09,S
|
|
STA $80
|
|
LDA $0B,S
|
|
STA $82
|
|
LDA $17,S
|
|
STA $84
|
|
LDA $19,S
|
|
STA $86
|
|
LDA $11,S
|
|
STA L030BEC
|
|
PLA
|
|
STA $15,S
|
|
PLA
|
|
STA $15,S
|
|
TSC
|
|
CLC
|
|
ADC #$0012
|
|
TCS
|
|
STZ L030BC0
|
|
STZ L030BEE
|
|
LDA L030BEC
|
|
LSR
|
|
BCC L031D9B
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDA $12
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA $14
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$2002
|
|
JSR L033500
|
|
BCC L031D58
|
|
CMP #$0046
|
|
BEQ L031D58
|
|
BRL L031F1A
|
|
L031D58 LDA #$0004
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA $12
|
|
STA [$02],Y
|
|
LDA $14
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$00E3
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L030BEC
|
|
ASL
|
|
TAX
|
|
LDAL L061242,X
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
TXA
|
|
ASL
|
|
TAX
|
|
LDAL L06124A,X
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
LDA #$2001
|
|
JSR L033500
|
|
BCC L031D9B
|
|
BRL L031F1A
|
|
L031D9B LDA #$0002
|
|
STA [$02]
|
|
LDY #$0004
|
|
LDA $12
|
|
STA [$02],Y
|
|
LDA $14
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$2010
|
|
JSR L033500
|
|
BCC L031DB8
|
|
BRL L031F1A
|
|
L031DB8 LDY #$0002
|
|
LDA [$02],Y
|
|
STA L030BEE
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA #$0004
|
|
STA [$02]
|
|
LDA L030BEC
|
|
BNE L031DD2
|
|
BRL L031E7F
|
|
L031DD2 DEC
|
|
BEQ L031E17
|
|
DEC
|
|
BEQ L031DF7
|
|
LDY #$0004
|
|
LDA #L060002
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L060002
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0004
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
BRA L031E74
|
|
L031DF7 LDY #$0004
|
|
LDA #L060002
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L060002
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0004
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
BRL L031F14
|
|
L031E17 LDY #$0004
|
|
TDC
|
|
CLC
|
|
ADC #$008C
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0006
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
LDA #$2013
|
|
JSR L033500
|
|
BCC L031E41
|
|
L031E3E BRL L031F1A
|
|
L031E41 LDY #$0002
|
|
LDA [$1A],Y
|
|
STA $08
|
|
TAX
|
|
LDA [$1A]
|
|
STA $06
|
|
LDY #$0004
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
TXA
|
|
STA [$02],Y
|
|
LDY #$000C
|
|
LDA [$06],Y
|
|
TAX
|
|
DEY
|
|
DEY
|
|
LDA [$06],Y
|
|
LDY #$000E
|
|
CLC
|
|
ADC [$06],Y
|
|
BCC L031E6A
|
|
INX
|
|
L031E6A LDY #$0008
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
TXA
|
|
STA [$02],Y
|
|
L031E74 LDA #$2013
|
|
JSR L033500
|
|
BCS L031E3E
|
|
BRL L031F1D
|
|
L031E7F LDY #$0002
|
|
LDA L030BEE
|
|
STA [$02],Y
|
|
LDA #$0002
|
|
STA [$02]
|
|
LDA #$2019
|
|
JSR L033500
|
|
BCC L031E97
|
|
BRL L031F1A
|
|
L031E97 LDY #$0006
|
|
LDA [$02],Y
|
|
TAX
|
|
DEY
|
|
DEY
|
|
LDA [$02],Y
|
|
SEC
|
|
SBC #$0006
|
|
BCS L031EA8
|
|
DEX
|
|
L031EA8 STA $92
|
|
STX $94
|
|
TXY
|
|
TAX
|
|
TYA
|
|
LDY L030BEA
|
|
JSR L0325E6
|
|
BCC L031EBA
|
|
BRL L031F1A
|
|
L031EBA STX $1A
|
|
STY $1C
|
|
LDA #$0004
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L030BEE
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
TDC
|
|
CLC
|
|
ADC #$008C
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0006
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
LDA #$2012
|
|
JSR L033500
|
|
BCC L031EF3
|
|
BRA L031F1A
|
|
L031EF3 LDY #$0002
|
|
LDA [$1A],Y
|
|
STA $08
|
|
LDY #$0006
|
|
STA [$02],Y
|
|
LDA [$1A]
|
|
STA $06
|
|
DEY
|
|
DEY
|
|
STA [$02],Y
|
|
LDA $92
|
|
LDY #$0008
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $94
|
|
STA [$02],Y
|
|
L031F14 LDA #$2012
|
|
JSR L033500
|
|
L031F1A STA L030BC0
|
|
L031F1D LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L030BEE
|
|
BEQ L031F3C
|
|
STA [$02],Y
|
|
LDA #$2014
|
|
JSR L033500
|
|
BCC L031F3C
|
|
LDX L030BC0
|
|
BNE L031F3C
|
|
STA L030BC0
|
|
L031F3C LDA L030BEC
|
|
BNE L031F9B
|
|
LDA $06
|
|
CLC
|
|
ADC #$01E4
|
|
STA $78
|
|
LDA $08
|
|
ADC #$0000
|
|
STA $7A
|
|
LDA [$78]
|
|
AND #$00FF
|
|
TAY
|
|
SEP #$20
|
|
L031F58 LDA [$78],Y
|
|
STA [$80],Y
|
|
DEY
|
|
BPL L031F58
|
|
REP #$20
|
|
LDY #$0000
|
|
LDA L030BC0
|
|
STA [$84],Y
|
|
LDY #$0008
|
|
LDA [$06],Y
|
|
LDY #$0002
|
|
STA [$84],Y
|
|
LDY #$01B2
|
|
LDA [$06],Y
|
|
TAX
|
|
INY
|
|
INY
|
|
LDA [$06],Y
|
|
LDY #$0006
|
|
STA [$84],Y
|
|
TXA
|
|
DEY
|
|
DEY
|
|
STA [$84],Y
|
|
LDA $8E
|
|
LDY #$0008
|
|
STA [$84],Y
|
|
LDA $90
|
|
INY
|
|
INY
|
|
STA [$84],Y
|
|
LDA $8C
|
|
LDY #$000C
|
|
STA [$84],Y
|
|
L031F9B LDA L030BC0
|
|
STA [$22]
|
|
CMP #$0001
|
|
LDA L030BBC
|
|
TCD
|
|
PLB
|
|
RTL
|
|
|
|
L031FA9 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L030BBC
|
|
LDA $05,S
|
|
TCD
|
|
LDA $09,S
|
|
STA $46
|
|
LDA $0B,S
|
|
STA $48
|
|
LDA $0D,S
|
|
STA $22
|
|
LDA $0F,S
|
|
STA $24
|
|
LDA $07,S
|
|
STA L0320A4
|
|
PLA
|
|
STA $0B,S
|
|
PLA
|
|
STA $0B,S
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
STZ L030BC0
|
|
LDA L0320A4
|
|
STA L032128
|
|
PEA ^L032126
|
|
PEA L032126
|
|
PEA $202D ; DStatus
|
|
JSL GSOS2
|
|
BCC L031FF2
|
|
STA L030BC0
|
|
BRL L032094
|
|
L031FF2 LDA L032134
|
|
CMP #$0018
|
|
BCS L032046
|
|
L031FFA LDA #$0008
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L0320A4
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$202C
|
|
JSR L033500
|
|
BCS L032040
|
|
LDY #$0014
|
|
LDA [$02],Y
|
|
CMP #$0020
|
|
BNE L03202B
|
|
LDY #$0028
|
|
STZ $78
|
|
BRA L032073
|
|
L03202B LDY #$000C
|
|
LDA [$02],Y
|
|
TAX
|
|
DEY
|
|
DEY
|
|
ORA [$02],Y
|
|
BEQ L032040
|
|
LDA [$02],Y
|
|
STX $78
|
|
LSR $78
|
|
ROR
|
|
BRA L03207D
|
|
L032040 DEC L030BC0
|
|
BRL L032094
|
|
L032046 LDA L0320A6+4
|
|
BEQ L031FFA
|
|
ASL
|
|
DEC
|
|
ASL
|
|
ASL
|
|
ASL
|
|
TAX
|
|
CMP #$0090
|
|
BCS L031FFA
|
|
STZ $78
|
|
LDA L0320A6+$E,X
|
|
TAY
|
|
LDA L0320A6+4,X
|
|
AND #$000C
|
|
BEQ L03208B
|
|
EOR #$0008
|
|
BEQ L032073
|
|
EOR #$0004
|
|
BNE L032088
|
|
LDX #$0014
|
|
BRA L032076
|
|
L032073 LDX #$000A
|
|
L032076 TYA
|
|
L032077 ASL
|
|
ROL $78
|
|
DEX
|
|
BNE L032077
|
|
L03207D STA [$46]
|
|
LDA $78
|
|
LDY #$0002
|
|
STA [$46],Y
|
|
BRA L032094
|
|
L032088 TYA
|
|
BRA L03207D
|
|
L03208B LDX #$000A
|
|
L03208E LSR
|
|
DEX
|
|
BNE L03208E
|
|
BRA L03207D
|
|
L032094 LDA L030BC0
|
|
STA [$22]
|
|
TAX
|
|
LDA L030BBC
|
|
TCD
|
|
PLB
|
|
TXA
|
|
CMP #$0001
|
|
RTL
|
|
|
|
L0320A4 DB $00
|
|
DB $00
|
|
L0320A6 HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
L032126 DW $0005 ; Parms for DStatus
|
|
L032128 DW $0000 ; device num
|
|
DW $0003 ; status code
|
|
ADRL L0320A6 ; status list
|
|
ADRL $00000080 ; request count
|
|
L032134 ADRL $00000000 ; transfer count
|
|
L032138 DB $00
|
|
DB $00
|
|
L03213A DB $00
|
|
DB $00
|
|
L03213C STX $05
|
|
BCS L032157
|
|
LDY #$FFFF
|
|
LDX #$003F
|
|
L032146 TYA
|
|
STA L032357,X
|
|
STA L032357+1,X
|
|
TXA
|
|
SEC
|
|
SBC #$0009
|
|
TAX
|
|
BPL L032146
|
|
BRA L032174
|
|
L032157 LDX #$003F
|
|
LDY #$0015
|
|
L03215D LDA L032357+$48,Y
|
|
STA L032357,X
|
|
LDA L032357+$49,Y
|
|
STA L032357+1,X
|
|
DEY
|
|
DEY
|
|
DEY
|
|
TXA
|
|
SEC
|
|
SBC #$0009
|
|
TAX
|
|
BPL L03215D
|
|
L032174 LDY #$0000
|
|
TYX
|
|
L032178 LDA ($05),Y
|
|
STA L032357+3,X
|
|
INY
|
|
INY
|
|
LDA ($05),Y
|
|
STA L032357+5,X
|
|
INY
|
|
INY
|
|
LDA ($05),Y
|
|
STA L032357+7,X
|
|
INY
|
|
INY
|
|
TXA
|
|
CLC
|
|
ADC #$0009
|
|
TAX
|
|
CPX #$0048
|
|
BNE L032178
|
|
LDY #$001C
|
|
LDA [$01],Y
|
|
AND #$0080
|
|
BEQ L0321BF
|
|
LDX #$003F
|
|
LDY #$0015
|
|
L0321A8 LDA L032357+$180,Y
|
|
STA L032357,X
|
|
LDA L032357+$181,Y
|
|
STA L032357+1,X
|
|
DEY
|
|
DEY
|
|
DEY
|
|
TXA
|
|
SEC
|
|
SBC #$0009
|
|
TAX
|
|
BPL L0321A8
|
|
L0321BF RTS
|
|
|
|
L0321C0 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$0006
|
|
TCS
|
|
TCD
|
|
LDA [$11]
|
|
STA $01
|
|
LDY #$0002
|
|
LDA [$11],Y
|
|
STA $03
|
|
PEI $17
|
|
PEI $15
|
|
_EraseRect
|
|
LDY #$001E
|
|
LDA [$01],Y
|
|
AND #$00FF
|
|
DEC
|
|
DEC
|
|
ASL
|
|
STA L0322F5
|
|
ASL
|
|
ASL
|
|
ADC L0322F5
|
|
LDY #$0002
|
|
CLC
|
|
ADC [$15],Y
|
|
CLC
|
|
ADC #$0004
|
|
STA L0322F3
|
|
LDY #$0002
|
|
LDA [$01],Y
|
|
CMP #$000F
|
|
BEQ L03221F
|
|
CMP #$00FF
|
|
BEQ L03221A
|
|
CMP #$00B3
|
|
BEQ L03221A
|
|
LDX #L032357+$C0
|
|
BRA L032266
|
|
L03221A LDX #L032357+$F0
|
|
BRA L032266
|
|
L03221F LDY #$001C
|
|
LDA [$01],Y
|
|
TAX
|
|
AND #$4000
|
|
BEQ L032248
|
|
TXA
|
|
AND #$2000
|
|
BNE L03223C
|
|
TXA
|
|
AND #$1000
|
|
BEQ L032242
|
|
LDX #L032357+$150
|
|
CLC
|
|
BRA L032271
|
|
L03223C LDX #L032357+$120
|
|
SEC
|
|
BRA L032271
|
|
L032242 LDX #L032357+$120
|
|
CLC
|
|
BRA L032271
|
|
L032248 TXA
|
|
AND #$2000
|
|
BNE L032260
|
|
TXA
|
|
AND #$1000
|
|
BNE L03225A
|
|
LDX #L032357+$60
|
|
CLC
|
|
BRA L032271
|
|
L03225A LDX #L032357+$90
|
|
CLC
|
|
BRA L032271
|
|
L032260 LDX #L032357+$60
|
|
SEC
|
|
BRA L032271
|
|
L032266 LDY #$001C
|
|
LDA [$01],Y
|
|
AND #$2000
|
|
CMP #$0001
|
|
L032271 JSR L03213C
|
|
PEA ^L032347
|
|
PEA L032347
|
|
PEA ^L03233F
|
|
PEA L03233F
|
|
LDA L0322F3
|
|
PHA
|
|
LDA [$15]
|
|
PHA
|
|
LDA #$0000
|
|
PHA
|
|
_PPToPort
|
|
LDA L0322F3
|
|
CLC
|
|
ADC #$0028
|
|
PHA
|
|
LDA [$15]
|
|
CLC
|
|
ADC #$0008
|
|
PHA
|
|
_MoveTo
|
|
LDA $01
|
|
CLC
|
|
ADC #$002E
|
|
TAX
|
|
LDA $03
|
|
BCC L0322B4
|
|
INC
|
|
L0322B4 PHA
|
|
PHX
|
|
_DrawString
|
|
LDY #$0004
|
|
LDA [$11],Y
|
|
AND #$0080
|
|
BEQ L0322DE
|
|
LDA $11
|
|
STAL L030E20
|
|
LDA $13
|
|
STAL L030E22
|
|
PEI $17
|
|
PEI $15
|
|
_InvertRect
|
|
L0322DE LDA $07
|
|
STA $13
|
|
LDA $09
|
|
STA $15
|
|
LDA $0B
|
|
STA $17
|
|
TSC
|
|
CLC
|
|
ADC #$0012
|
|
TCS
|
|
PLD
|
|
PLB
|
|
RTL
|
|
|
|
L0322F3 DB $00
|
|
DB $00
|
|
L0322F5 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L0322F9 DB $00
|
|
L0322FA DB $00
|
|
L0322FB DB $00
|
|
DB $00
|
|
L0322FD DB $00
|
|
DB $00
|
|
L0322FF DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L03233F DW $0000
|
|
DW $0000
|
|
DW $0008
|
|
DW $0024
|
|
L032347 DW $0080 ; SCB byte
|
|
ADRL L032357 ; Pointer to pixel image
|
|
DW $0009 ; Width
|
|
DW $0000 ; Bounds rect
|
|
DW $0000
|
|
DW $0008
|
|
DW $0024
|
|
L032357 HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 0000000000000000FFFFFFFFFFFFFFFF
|
|
HEX F0FFFF0FF0F0FFFF0FFFFFFFFFFFFFFF
|
|
HEX FFFFFFFFFFFFFFF000FFFFFFFF0FFF00
|
|
HEX 00FFFF0FFFFFFF0FFF0FFFFFFF0FFF0F
|
|
HEX FFFFFF0FFF0FFFFFFF0FFF000000000F
|
|
HEX FFFFFFFFFFFFFFF000FFFFFFFF033300
|
|
HEX 00FFFF033333330FFF033333330FFF03
|
|
HEX 3333330FFF033333330FFF000000000F
|
|
HEX FFFFFFFFFFFFFFF0000000FFFFF0FFFF
|
|
HEX 0F0FFFF0FFFF000FFFF0FFFFFF0FFFF0
|
|
HEX FFFFFF0FFFF0FFFFFF0FFFF00000000F
|
|
HEX FFFFFFFFFFFFFFFF00FFFFFFFFF0FF00
|
|
HEX 0FFFFF0FF0FFF0FFF0FF0000FF00FF0F
|
|
HEX FF0FFF00FFF0FF000000FFFF00FFF000
|
|
HEX FFFFFFFFFFFFFFFF000FFFFFFFF0FFF0
|
|
HEX 000FFFF0FFFFFFF0000000000FF0F0FF
|
|
HEX FFFFF0F0FF0FFFFFFF00FFF000000000
|
|
HEX FFFFFFFFFFFFFFFF000FFFFFFFF03330
|
|
HEX 000FFFF0CCCCCCC0000000000CC0F033
|
|
HEX 333330C0FF0CCCCCCC00FFF000000000
|
|
HEX FFFFFFFFFFFF44FF44F4444FFF44FFF4
|
|
HEX 444F44FF44FFFFFF
|
|
L0324EF TAY
|
|
TDC
|
|
STA L03255F
|
|
PHY
|
|
PHX
|
|
TSC
|
|
TCD
|
|
LDA #$3030
|
|
STA L0322FB
|
|
STA L0322FD
|
|
LDA [$01]
|
|
PHA
|
|
PEA ^L0322FB
|
|
PEA L0322FB
|
|
PEA $0004
|
|
_Int2Hex
|
|
LDA $04
|
|
AND #$00FF
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDY #$0008
|
|
LDA [$01],Y
|
|
CLC
|
|
ADC L032C97,X
|
|
TAY
|
|
LDA L032C99,X
|
|
BCC L03252C
|
|
INC
|
|
L03252C STA $03,S
|
|
TYA
|
|
STA $01,S
|
|
LDA #$0000
|
|
SEP #$21
|
|
LDA [$01]
|
|
TAY
|
|
ADC #$06
|
|
STA L0322F9
|
|
TAX
|
|
TYA
|
|
BEQ L03254B
|
|
L032542 LDA [$01],Y
|
|
STA L0322F9,X
|
|
DEX
|
|
DEY
|
|
BNE L032542
|
|
L03254B LDA #$24
|
|
STA L0322FA
|
|
REP #$20
|
|
LDA #$2020
|
|
STA L0322FF
|
|
PLA
|
|
PLA
|
|
LDA L03255F
|
|
TCD
|
|
RTS
|
|
|
|
L03255F DW $0000
|
|
L032561 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$0008
|
|
TCS
|
|
TCD
|
|
PEI $19
|
|
PEI $17
|
|
_EraseRect
|
|
LDA [$13]
|
|
STA $01
|
|
TAX
|
|
LDY #$0002
|
|
LDA [$13],Y
|
|
STA $03
|
|
JSR L0324EF
|
|
LDY #$0002
|
|
LDA [$17],Y
|
|
CLC
|
|
ADC #$0005
|
|
PHA
|
|
LDA [$17]
|
|
CLC
|
|
ADC #$0008
|
|
PHA
|
|
_MoveTo
|
|
PEA ^L0322F9
|
|
PEA L0322F9
|
|
_DrawString
|
|
LDY #$0003
|
|
LDA [$13],Y
|
|
BPL L0325BD
|
|
PEI $19
|
|
PEI $17
|
|
_InvertRect
|
|
L0325BD LDA $09
|
|
STA $15
|
|
LDA $0B
|
|
STA $17
|
|
LDA $0D
|
|
STA $19
|
|
TSC
|
|
CLC
|
|
ADC #$0014
|
|
TCS
|
|
PLD
|
|
PLB
|
|
RTL
|
|
|
|
L0325D2 LDY #$0002
|
|
STA [$02],Y
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDA #$2014
|
|
JSR L033500
|
|
RTS
|
|
|
|
L0325E3 CLC
|
|
BRA L0325E7
|
|
L0325E6 SEC
|
|
L0325E7 PHA
|
|
PHA
|
|
PHA
|
|
PHX
|
|
PHY
|
|
BCC L0325F3
|
|
LDA #$8008
|
|
BRA L0325F6
|
|
L0325F3 LDA #$4008
|
|
L0325F6 PHA
|
|
PHA
|
|
PHA
|
|
_NewHandle
|
|
PLX
|
|
PLY
|
|
RTS
|
|
|
|
L032603 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L032138
|
|
LDA $05,S
|
|
TCD
|
|
LDA $07,S
|
|
ORA #$0400
|
|
STA L03284E
|
|
LDA $09,S
|
|
STA $36
|
|
LDA $0B,S
|
|
STA $38
|
|
LDA $0D,S
|
|
STA $3A
|
|
LDA $0F,S
|
|
STA $3C
|
|
LDA $11,S
|
|
STA $22
|
|
LDA $13,S
|
|
STA $24
|
|
PLA
|
|
STA $0F,S
|
|
PLA
|
|
STA $0F,S
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
STZ L03213A
|
|
STZ L03284C
|
|
LDX #$000A
|
|
L032642 LDA L032816,X
|
|
STA L032822,X
|
|
DEX
|
|
DEX
|
|
BPL L032642
|
|
LDA L032C91
|
|
BNE L032654
|
|
BRL L0327EF
|
|
L032654 STA $7C
|
|
DEC
|
|
ASL
|
|
ASL
|
|
STA L03284A
|
|
TAY
|
|
LDA L032C97,Y
|
|
STA $BE
|
|
LDA L032C99,Y
|
|
STA $C0
|
|
LDY #$000A
|
|
LDA [$BE],Y
|
|
LDX L03284A
|
|
CLC
|
|
ADC $BE
|
|
STA L03282E,X
|
|
LDA $C0
|
|
ADC #$0000
|
|
STA L032830,X
|
|
LDA $7C
|
|
DEC
|
|
BNE L032654
|
|
LDA #$0000
|
|
LDX #$0140
|
|
LDY L03284E
|
|
JSR L0325E6
|
|
STX $B6
|
|
STY $B8
|
|
BCC L032697
|
|
BRL L032803
|
|
L032697 LDA [$B6]
|
|
STA L032858
|
|
STA $BA
|
|
LDY #$0002
|
|
LDA [$B6],Y
|
|
STA L03285A
|
|
STA $BC
|
|
LDA #$0040
|
|
STA L032850
|
|
LDA #$0140
|
|
STA L032852
|
|
L0326B4 LDA #$FFFF
|
|
STA L032854
|
|
LDA #$0000
|
|
STA $7C
|
|
ASL
|
|
L0326C0 STA L03284A
|
|
TAX
|
|
ASL
|
|
TAY
|
|
LDA L032822,X
|
|
BEQ L0326EE
|
|
LDA L03282E,Y
|
|
STA $BE
|
|
LDA L032830,Y
|
|
STA $C0
|
|
LDA [$BE]
|
|
TAX
|
|
CMP L032854
|
|
BCC L0326E6
|
|
BNE L0326EE
|
|
LDY #$0006
|
|
LDA [$BE],Y
|
|
BPL L0326EE
|
|
L0326E6 STX L032854
|
|
LDA $7C
|
|
STA L032846
|
|
L0326EE INC $7C
|
|
LDA $7C
|
|
TAX
|
|
ASL
|
|
CPX L032C91
|
|
BNE L0326C0
|
|
LDA L032846
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA L032830,X
|
|
TAY
|
|
LDA L03282E,X
|
|
STA [$BA]
|
|
TYA
|
|
LDY #$0002
|
|
STA [$BA],Y
|
|
LDA L032846
|
|
INY
|
|
STA [$BA],Y
|
|
INC L03284C
|
|
DEC L032850
|
|
BNE L03277B
|
|
LDY #$0004
|
|
LDA [$B6],Y
|
|
AND #$7FFF
|
|
STA [$B6],Y
|
|
LDA L032852
|
|
CLC
|
|
ADC #$0140
|
|
STA L032856
|
|
PEA $0000
|
|
PHA
|
|
PEI $B8
|
|
PEI $B6
|
|
_SetHandleSize
|
|
BCC L032744
|
|
BRL L032803
|
|
L032744 LDA L032856
|
|
STA L032852
|
|
LDY #$0004
|
|
LDA [$B6],Y
|
|
ORA #$8000
|
|
STA [$B6],Y
|
|
LDA $BA
|
|
SEC
|
|
SBC L032858
|
|
TAX
|
|
LDY #$0002
|
|
LDA [$B6],Y
|
|
STA L03285A
|
|
LDA [$B6]
|
|
STA L032858
|
|
TXA
|
|
CLC
|
|
ADC [$B6]
|
|
STA $BA
|
|
LDA [$B6],Y
|
|
ADC #$0000
|
|
STA $BC
|
|
LDA #$0040
|
|
STA L032850
|
|
L03277B LDA $BA
|
|
CLC
|
|
ADC #$0005
|
|
STA $BA
|
|
BCC L032787
|
|
INC $BC
|
|
L032787 LDA #$FFFF
|
|
STA L032848
|
|
LDA L032C91
|
|
STA $7C
|
|
L032792 LDA $7C
|
|
DEC
|
|
ASL
|
|
TAX
|
|
ASL
|
|
TAY
|
|
LDA L032822,X
|
|
BEQ L0327CF
|
|
LDA L03282E,Y
|
|
STA $BE
|
|
LDA L032830,Y
|
|
STA $C0
|
|
L0327A8 LDA L032854
|
|
CMP [$BE]
|
|
BCC L0327C2
|
|
DEC L032822,X
|
|
BEQ L0327CF
|
|
LDA $BE
|
|
CLC
|
|
ADC #$000A
|
|
STA $BE
|
|
BCC L0327A8
|
|
INC $C0
|
|
BRA L0327A8
|
|
L0327C2 STZ L032848
|
|
LDA $BE
|
|
STA L03282E,Y
|
|
LDA $C0
|
|
STA L032830,Y
|
|
L0327CF DEC $7C
|
|
BNE L032792
|
|
LDA L032848
|
|
BNE L0327DB
|
|
BRL L0326B4
|
|
L0327DB LDA L032858
|
|
STA $BA
|
|
LDA L03285A
|
|
STA $BC
|
|
LDY #$0003
|
|
LDA [$BA],Y
|
|
ORA #$8000
|
|
STA [$BA],Y
|
|
L0327EF LDA L032858
|
|
STA [$36]
|
|
LDA L03285A
|
|
LDY #$0002
|
|
STA [$36],Y
|
|
LDA L03284C
|
|
STA [$3A]
|
|
BRA L032806
|
|
L032803 STA L03213A
|
|
L032806 LDA L03213A
|
|
TAX
|
|
STA [$22]
|
|
LDA L032138
|
|
TCD
|
|
PLB
|
|
TXA
|
|
CMP #$0001
|
|
RTL
|
|
|
|
L032816 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L032822 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L03282E DB $00
|
|
DB $00
|
|
L032830 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L032846 DB $00
|
|
DB $00
|
|
L032848 DB $00
|
|
DB $00
|
|
L03284A DB $00
|
|
DB $00
|
|
L03284C DB $00
|
|
DB $00
|
|
L03284E DB $00
|
|
DB $00
|
|
L032850 DB $00
|
|
DB $00
|
|
L032852 DB $00
|
|
DB $00
|
|
L032854 DB $00
|
|
DB $00
|
|
L032856 DB $00
|
|
DB $00
|
|
L032858 DB $00
|
|
DB $00
|
|
L03285A DB $00
|
|
DB $00
|
|
PHB
|
|
PHK
|
|
PLB
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$0000
|
|
TCS
|
|
TCD
|
|
LDA [$07]
|
|
STA L03288B
|
|
CMP #$0009
|
|
BNE L032876
|
|
LDA #$0004
|
|
STA [$07]
|
|
L032876 LDA $01
|
|
STA $09
|
|
LDA $03
|
|
STA $0B
|
|
LDA $05
|
|
STA $0D
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
PLD
|
|
PLB
|
|
RTL
|
|
|
|
L03288B DW $0000
|
|
L03288D ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L032138
|
|
LDA $05,S
|
|
TCD
|
|
LDA $07,S
|
|
STA $3A
|
|
LDA $09,S
|
|
STA $3C
|
|
LDA $0B,S
|
|
STA $36
|
|
LDA $0D,S
|
|
STA $38
|
|
PLA
|
|
STA $09,S
|
|
PLA
|
|
STA $09,S
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
STZ L03213A
|
|
LDA [$B6]
|
|
CLC
|
|
ADC #$0003
|
|
STA $BA
|
|
LDY #$0002
|
|
LDA [$B6],Y
|
|
ADC #$0000
|
|
STA $BC
|
|
L0328C8 LDA [$BA]
|
|
BMI L0328DA
|
|
LDA $BA
|
|
CLC
|
|
ADC #$0005
|
|
STA $BA
|
|
BCC L0328D8
|
|
INC $BC
|
|
L0328D8 BRA L0328C8
|
|
L0328DA LDA $BA
|
|
SEC
|
|
SBC #$0003
|
|
STA $BA
|
|
BCS L0328E6
|
|
DEC $BC
|
|
L0328E6 LDA [$BA]
|
|
STA $78
|
|
LDY #$0002
|
|
LDA [$BA],Y
|
|
STA $7A
|
|
LDA [$78]
|
|
STA [$3A]
|
|
LDA $7A
|
|
LDX $78
|
|
JSR L0324EF
|
|
LDA L0322F9
|
|
AND #$00FF
|
|
TAY
|
|
SEP #$20
|
|
STA [$36]
|
|
L032907 LDA L0322F9,Y
|
|
STA [$36],Y
|
|
DEY
|
|
BNE L032907
|
|
REP #$20
|
|
LDA L032138
|
|
TCD
|
|
PLB
|
|
CLC
|
|
LDA #$0000
|
|
RTL
|
|
|
|
L03291B ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L032138
|
|
LDA $05,S
|
|
TCD
|
|
LDA $07,S
|
|
STA L032A50
|
|
LDA $09,S
|
|
STA $36
|
|
LDA $0B,S
|
|
STA $38
|
|
PLA
|
|
STA $07,S
|
|
PLA
|
|
STA $07,S
|
|
TSC
|
|
CLC
|
|
ADC #$0004
|
|
TCS
|
|
STZ L032A52
|
|
LDA L032C91
|
|
BNE L032949
|
|
BRL L032A39
|
|
L032949 STA L032A54
|
|
L03294C DEC L032A54
|
|
LDA L032A54
|
|
BPL L032957
|
|
BRL L032A34
|
|
L032957 ASL
|
|
ASL
|
|
TAY
|
|
LDA L032C97,Y
|
|
STA $3A
|
|
STA L032A56
|
|
LDA L032C99,Y
|
|
STA $3C
|
|
STA L032A58
|
|
LDY #$0004
|
|
LDA [$3A],Y
|
|
BEQ L03294C
|
|
STA L032A5C
|
|
LDY #$000A
|
|
LDA [$3A],Y
|
|
CLC
|
|
ADC $3A
|
|
STA $3A
|
|
STA $78
|
|
LDA $3C
|
|
ADC #$0000
|
|
STA $3C
|
|
STA $7A
|
|
STZ L032A60
|
|
LDA L032A5C
|
|
CMP #$0006
|
|
BCC L0329D4
|
|
STA L032A62
|
|
L032997 LDA L032A62
|
|
LSR
|
|
STA L032A62
|
|
CMP #$0003
|
|
BCC L0329D4
|
|
CLC
|
|
ADC L032A60
|
|
ASL
|
|
PHA
|
|
ASL
|
|
ASL
|
|
ADC $01,S
|
|
PLX
|
|
ADC $3A
|
|
STA $78
|
|
LDA $3C
|
|
BCC L0329B7
|
|
INC
|
|
L0329B7 STA $7A
|
|
LDA [$78]
|
|
CMP L032A50
|
|
BCS L032997
|
|
LDA L032A62
|
|
CLC
|
|
ADC L032A60
|
|
STA L032A60
|
|
LDA $78
|
|
STA $3A
|
|
LDA $7A
|
|
STA $3C
|
|
BRA L032997
|
|
L0329D4 LDA L032A60
|
|
STA L032A5E
|
|
L0329DA LDA L032A50
|
|
CMP [$3A]
|
|
BEQ L0329E6
|
|
BCS L032A18
|
|
BRL L03294C
|
|
L0329E6 LDY #$0006
|
|
LDA [$3A],Y
|
|
TAX
|
|
BMI L0329F6
|
|
LDA L032A52
|
|
BEQ L0329F6
|
|
BRL L03294C
|
|
L0329F6 LDA #$FFFF
|
|
STA L032A52
|
|
LDY #$0008
|
|
LDA [$3A],Y
|
|
CLC
|
|
ADC L032A56
|
|
STA [$36]
|
|
LDA L032A58
|
|
ADC #$0000
|
|
LDY #$0002
|
|
STA [$36],Y
|
|
TXA
|
|
BMI L032A46
|
|
BRL L03294C
|
|
L032A18 INC L032A5E
|
|
LDA L032A5E
|
|
CMP L032A5C
|
|
BNE L032A26
|
|
BRL L03294C
|
|
L032A26 LDA $3A
|
|
CLC
|
|
ADC #$000A
|
|
STA $3A
|
|
BCC L0329DA
|
|
INC $3C
|
|
BRA L0329DA
|
|
L032A34 LDA L032A52
|
|
BNE L032A46
|
|
L032A39 LDA #L032A64
|
|
STA [$36]
|
|
LDA #^L032A64
|
|
LDY #$0002
|
|
STA [$36],Y
|
|
L032A46 LDA L032138
|
|
TCD
|
|
PLB
|
|
CLC
|
|
LDA #$0000
|
|
RTL
|
|
|
|
L032A50 DB $00
|
|
DB $00
|
|
L032A52 DB $00
|
|
DB $00
|
|
L032A54 DB $00
|
|
DB $00
|
|
L032A56 DB $00
|
|
DB $00
|
|
L032A58 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L032A5C DB $00
|
|
DB $00
|
|
L032A5E DB $00
|
|
DB $00
|
|
L032A60 DB $00
|
|
DB $00
|
|
L032A62 DB $00
|
|
DB $00
|
|
L032A64 STR 'unknown type'
|
|
L032A71 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L032138
|
|
LDA $05,S
|
|
TCD
|
|
LDA $09,S
|
|
STA $22
|
|
LDA $0B,S
|
|
STA $24
|
|
LDA $07,S
|
|
ORA #$0500
|
|
STA L032CB3
|
|
PLA
|
|
STA $07,S
|
|
PLA
|
|
STA $07,S
|
|
TSC
|
|
CLC
|
|
ADC #$0004
|
|
TCS
|
|
STZ L03213A
|
|
STZ L032CAF
|
|
STZ L032C91
|
|
LDX #$000A
|
|
L032AA3 STZ L032816,X
|
|
DEX
|
|
DEX
|
|
BPL L032AA3
|
|
LDA #L05004E
|
|
STA $02
|
|
LDA #^L05004E
|
|
STA $04
|
|
LDA #$0002
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #$000D
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #L032CB5
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L032CB5
|
|
STA [$02],Y
|
|
LDA #$2009
|
|
JSR L033500
|
|
BCC L032ADA
|
|
BRL L032C64
|
|
L032ADA LDX #$0004
|
|
L032ADD LDA L032CD6,X
|
|
STA L0301D1,X
|
|
DEX
|
|
DEX
|
|
BPL L032ADD
|
|
PEA ^L032CBE
|
|
PEA L032CBE
|
|
PEA $2010 ; Open
|
|
JSL GSOS2
|
|
BCC L032AF9
|
|
BRL L032C64
|
|
L032AF9 LDA L032CC0
|
|
STA L032CAF
|
|
LDA #$00FF
|
|
STA L032C8F
|
|
L032B05 LDA #$000D
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032CAF
|
|
STA [$02],Y
|
|
LDY #$0006
|
|
LDA #$0001
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #L032CDB
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L032CDB
|
|
STA [$02],Y
|
|
LDA #$201C
|
|
JSR L033500
|
|
BCC L032B3F
|
|
CMP #$0061
|
|
BNE L032B3C
|
|
BRL L032C22
|
|
L032B3C BRL L032C64
|
|
L032B3F LDY #$0010
|
|
LDA [$02],Y
|
|
CMP #$0042
|
|
BNE L032B05
|
|
LDY #$002C
|
|
LDA [$02],Y
|
|
BNE L032B51
|
|
INC
|
|
L032B51 AND L032C8F
|
|
BEQ L032B05
|
|
LDY #$0012
|
|
LDA [$02],Y
|
|
TAX
|
|
INY
|
|
INY
|
|
LDA [$02],Y
|
|
STA L032C95
|
|
STX L032C93
|
|
LDY L032CB3
|
|
JSR L0325E3
|
|
STX $7C
|
|
STY $7E
|
|
BCC L032B75
|
|
BRL L032C64
|
|
L032B75 LDA L032CDD
|
|
TAX
|
|
L032B79 LDA L032CDE,X
|
|
STA L0301D5,X
|
|
DEX
|
|
BNE L032B79
|
|
LDA L032CDD
|
|
INC
|
|
INC
|
|
INC
|
|
STA L0301D1
|
|
PEA ^L032CBE
|
|
PEA L032CBE
|
|
PEA $2010 ; Open
|
|
JSL GSOS2
|
|
BCC L032B9D
|
|
BRL L032C64
|
|
L032B9D LDA L032CC0
|
|
STA L032CB1
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA #$0004
|
|
STA [$02]
|
|
LDA [$7C]
|
|
STA $78
|
|
TAX
|
|
LDY #$0002
|
|
LDA [$7C],Y
|
|
AND #$00FF
|
|
STA $7A
|
|
LDY #$0006
|
|
STA [$02],Y
|
|
DEY
|
|
DEY
|
|
TXA
|
|
STA [$02],Y
|
|
LDY #$0008
|
|
LDA L032C93
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032C95
|
|
STA [$02],Y
|
|
LDA #$2012
|
|
JSR L033500
|
|
PHA
|
|
LDA L032CB1
|
|
JSR L0325D2
|
|
PLX
|
|
BCC L032BEB
|
|
BEQ L032BE8
|
|
TXA
|
|
L032BE8 BRL L032C64
|
|
L032BEB LDA [$78]
|
|
CMP #$0100
|
|
BNE L032C49
|
|
LDY #$0002
|
|
LDA [$78],Y
|
|
ASL
|
|
BNE L032C49
|
|
LDA L032C91
|
|
ASL
|
|
TAX
|
|
LDY #$0004
|
|
LDA [$78],Y
|
|
STA L032816,X
|
|
TXA
|
|
ASL
|
|
TAX
|
|
LDA $78
|
|
STA L032C97,X
|
|
LDA $7A
|
|
STA L032C99,X
|
|
INC L032C91
|
|
LDA L032C91
|
|
CMP #$0006
|
|
BEQ L032C57
|
|
BRL L032B05
|
|
L032C22 LDA L032C8F
|
|
ASL
|
|
BCS L032C57
|
|
LDA #$FF00
|
|
STA L032C8F
|
|
LDA L032CAF
|
|
STA L032CCA
|
|
PEA ^L032CC8
|
|
PEA L032CC8
|
|
PEA $201C ; GetDirEntry
|
|
JSL GSOS2
|
|
BCC L032C46
|
|
BRL L032C64
|
|
L032C46 BRL L032B05
|
|
L032C49 PEI $7E
|
|
PEI $7C
|
|
_DisposeHandle
|
|
BRL L032B05
|
|
L032C57 LDA L032CAF
|
|
JSR L0325D2
|
|
BCC L032C62
|
|
BRL L032C64
|
|
L032C62 BRA L032C6F
|
|
L032C64 STA L03213A
|
|
LDA L032CAF
|
|
BEQ L032C6F
|
|
JSR L0325D2
|
|
L032C6F LDA L03213A
|
|
BEQ L032C7F
|
|
LDA L032CB3
|
|
PHA
|
|
_DisposeAll
|
|
L032C7F LDA L03213A
|
|
TAX
|
|
STA [$22]
|
|
LDA L032138
|
|
TCD
|
|
PLB
|
|
TXA
|
|
CMP #$0001
|
|
RTL
|
|
|
|
L032C8F DB $00
|
|
DB $00
|
|
L032C91 DB $00
|
|
DB $00
|
|
L032C93 DB $00
|
|
DB $00
|
|
L032C95 DB $00
|
|
DB $00
|
|
L032C97 DB $00
|
|
DB $00
|
|
L032C99 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L032CAF DB $00
|
|
DB $00
|
|
L032CB1 DB $00
|
|
DB $00
|
|
L032CB3 DB $00
|
|
DB $00
|
|
L032CB5 STRL '*:icons'
|
|
L032CBE DW $0003 ; Parms for Open
|
|
L032CC0 DW $0000 ; ref num
|
|
ADRL L0301D1 ; path name
|
|
DW $0001 ; req access
|
|
L032CC8 DW $0005 ; Parms for GetDirEntry
|
|
L032CCA DW $0000 ; ref num
|
|
DW $0000 ; flags
|
|
DW $0000 ; base
|
|
DW $0000 ; displacement
|
|
ADRL L032CDB ; file name
|
|
L032CD6 STRL '13:'
|
|
L032CDB DW $0026
|
|
L032CDD DB $00
|
|
L032CDE DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L032D01 ENT
|
|
DW $0000 ; dtBoundsRect
|
|
DW $0000
|
|
DW $0078
|
|
DW $018C
|
|
DW $FFFF ; dtVisible
|
|
ADRL $00000000 ; dtRefCon
|
|
ADRL L032D3F ; itemPtr
|
|
ADRL L032D57 ; itemPtr
|
|
ADRL L032D6F ; itemPtr
|
|
ADRL L032D87 ; itemPtr
|
|
ADRL L032D9F ; itemPtr
|
|
ADRL L032DB7 ; itemPtr
|
|
ADRL L032DCF ; itemPtr
|
|
ADRL L032DE7 ; itemPtr
|
|
ADRL L032DFF ; itemPtr
|
|
ADRL L032E17 ; itemPtr
|
|
ADRL L032E2F ; itemPtr
|
|
ADRL $00000000 ; Terminator
|
|
L032D3F DW $0001 ; Item ID
|
|
DW $0057 ; Item rect
|
|
DW $0118
|
|
DW $0063
|
|
DW $0180
|
|
DW $000A ; Std button
|
|
ADRL L032E5F ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L032D57 DW $0002 ; Item ID
|
|
DW $0031 ; Item rect
|
|
DW $0118
|
|
DW $003D
|
|
DW $0180
|
|
DW $000A ; Std button
|
|
ADRL L032E62 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L032D6F DW $0003 ; Item ID
|
|
DW $0040 ; Item rect
|
|
DW $0118
|
|
DW $004C
|
|
DW $0180
|
|
DW $000A ; Std button
|
|
ADRL L032E6E ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L032D87 DW $0004 ; Item ID
|
|
DW $001A ; Item rect
|
|
DW $0118
|
|
DW $0026
|
|
DW $0180
|
|
DW $000A ; Std button
|
|
ADRL L032E74 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L032D9F DW $0005 ; Item ID
|
|
DW $0068 ; Item rect
|
|
DW $0118
|
|
DW $0074
|
|
DW $0180
|
|
DW $000A ; Std button
|
|
ADRL L032E7C ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L032DB7 DW $0006 ; Item ID
|
|
DW $0000 ; Item rect
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0014 ; User item
|
|
ADRL $00000000 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L032DCF DW $0007 ; Item ID
|
|
DW $0000 ; Item rect
|
|
DW $000A
|
|
DW $000C
|
|
DW $0181
|
|
DW $0014 ; User item
|
|
ADRL $00000000 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L032DE7 DW $0008 ; Item ID
|
|
DW $001A ; Item rect
|
|
DW $000A
|
|
DW $0058
|
|
DW $00E6
|
|
DW $8014 ; User item
|
|
ADRL $00000000 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L032DFF DW $0009 ; Item ID
|
|
DW $005B ; Item rect
|
|
DW $000A
|
|
DW $0067
|
|
DW $0114
|
|
DW $800F ; Static text
|
|
ADRL $00000000 ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L032E17 DW $000A ; Item ID
|
|
DW $0067 ; Item rect
|
|
DW $000A
|
|
DW $0074
|
|
DW $010E
|
|
DW $8011 ; Editable text
|
|
ADRL $00000000 ; Item descriptor
|
|
DW $0020 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
L032E2F DW $000B ; Item ID
|
|
DW $000C ; Item rect
|
|
DW $000A
|
|
DW $0016
|
|
DW $00C8
|
|
DW $800F ; Static text
|
|
ADRL L032E8E ; Item descriptor
|
|
DW $0000 ; Item value
|
|
DW $0000 ; Bit flag
|
|
ADRL $00000000 ; Ptr to color table
|
|
DW $000C
|
|
DW $001D
|
|
DW $0118
|
|
DW $0029
|
|
DW $0180
|
|
DW $000A
|
|
ADRL L032E83
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
DW $0000
|
|
L032E5F STR 'OK'
|
|
L032E62 STR 'Open'
|
|
STR 'Accept'
|
|
L032E6E STR 'Close'
|
|
L032E74 STR 'Volumes'
|
|
L032E7C STR 'Cancel'
|
|
L032E83 STR 'New Folder'
|
|
L032E8E STR '^0 free of ^1 k.'
|
|
L032E9F STR 'Untitled'
|
|
L032EA8 STR '/'
|
|
L032EAA DB $38
|
|
DB $0E
|
|
L032EAC DB $06
|
|
DB $04
|
|
DB $00
|
|
DB $04
|
|
DB $22
|
|
DB $21
|
|
L032EB2 DB $00
|
|
DB $00
|
|
L032EB4 DB $00
|
|
DB $00
|
|
L032EB6 DB $00
|
|
DB $00
|
|
L032EB8 DB $00
|
|
DB $00
|
|
L032EBA DB $00
|
|
DB $00
|
|
L032EBC DB $00
|
|
L032EBD DB $00
|
|
L032EBE DB $00
|
|
L032EBF DB $00
|
|
L032EC0 DB $00
|
|
DB $00
|
|
L032EC2 DB $00
|
|
DB $00
|
|
L032EC4 DB $00
|
|
DB $00
|
|
L032EC6 DB $00
|
|
DB $00
|
|
L032EC8 DB $00
|
|
DB $00
|
|
L032ECA DB $00
|
|
DB $00
|
|
L032ECC DB $00
|
|
DB $00
|
|
L032ECE DB $00
|
|
DB $00
|
|
L032ED0 DB $00
|
|
DB $00
|
|
L032ED2 DB $00
|
|
DB $00
|
|
L032ED4 DB $00
|
|
DB $00
|
|
L032ED6 DB $00
|
|
DB $00
|
|
L032ED8 DB $00
|
|
DB $00
|
|
L032EDA DB $00
|
|
DB $00
|
|
L032EDC DB $00
|
|
DB $00
|
|
L032EDE DB $00
|
|
DB $00
|
|
L032EE0 DB $00
|
|
DB $00
|
|
L032EE2 DB $00
|
|
DB $00
|
|
L032EE4 DB $00
|
|
DB $00
|
|
L032EE6 DB $00
|
|
DB $00
|
|
L032EE8 DB $00
|
|
DB $00
|
|
L032EEA DB $00
|
|
DB $00
|
|
L032EEC DB $00
|
|
DB $00
|
|
L032EEE DB $00
|
|
DB $00
|
|
L032EF0 DB $00
|
|
DB $00
|
|
L032EF2 DB $00
|
|
DB $00
|
|
L032EF4 DB $00
|
|
DB $00
|
|
L032EF6 DB $00
|
|
DB $00
|
|
L032EF8 DB $00
|
|
DB $00
|
|
L032EFA DB $00
|
|
L032EFB DB $00
|
|
L032EFC DB $00
|
|
L032EFD DB $00
|
|
L032EFE DB $00
|
|
DB $00
|
|
L032F00 DB $00
|
|
DB $00
|
|
L032F02 DB $00
|
|
DB $00
|
|
L032F04 DB $00
|
|
DB $00
|
|
L032F06 DB $00
|
|
DB $00
|
|
L032F08 DB $00
|
|
DB $00
|
|
L032F0A DB $00
|
|
DB $00
|
|
L032F0C DB $00
|
|
DB $00
|
|
L032F0E DB $00
|
|
DB $00
|
|
L032F10 DB $00
|
|
DB $00
|
|
L032F12 DB $00
|
|
DB $00
|
|
L032F14 DB $00
|
|
DB $00
|
|
L032F16 DB $00
|
|
DB $00
|
|
L032F18 DB $00
|
|
DB $00
|
|
L032F1A DB $00
|
|
DB $00
|
|
L032F1C DB $00
|
|
DB $00
|
|
L032F1E DB $00
|
|
DB $00
|
|
L032F20 DB $00
|
|
DB $00
|
|
L032F22 DB $00
|
|
DB $00
|
|
L032F24 DB $00
|
|
DB $00
|
|
L032F26 DB $00
|
|
DB $00
|
|
L032F28 DB $00
|
|
DB $00
|
|
L032F2A DB $00
|
|
DB $00
|
|
L032F2C DB $00
|
|
DB $00
|
|
L032F2E DB $00
|
|
DB $00
|
|
L032F30 DB $00
|
|
DB $00
|
|
L032F32 DB $00
|
|
DB $00
|
|
L032F34 DB $00
|
|
DB $00
|
|
L032F36 DB $00
|
|
DB $00
|
|
L032F38 DB $00
|
|
DB $00
|
|
L032F3A DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L032F56 DB $00
|
|
DB $00
|
|
L032F58 DB $00
|
|
DB $00
|
|
L032F5A DB $00
|
|
DB $00
|
|
L032F5C DB $00
|
|
DB $00
|
|
L032F5E DB $00
|
|
DB $00
|
|
L032F60 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L032F8C DB $00
|
|
DB $00
|
|
L032F8E DB $00
|
|
DB $00
|
|
L032F90 DB $00
|
|
DB $00
|
|
L032F92 DB $00
|
|
DB $00
|
|
L032F94 DB $00
|
|
DB $00
|
|
L032F96 DB $00
|
|
DB $00
|
|
L032F98 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L032F9E DB $00
|
|
DB $00
|
|
L032FA0 DB $00
|
|
DB $00
|
|
L032FA2 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L032FA6 DB $00
|
|
DB $00
|
|
L032FA8 DB $00
|
|
DB $00
|
|
L032FAA DB $00
|
|
DB $00
|
|
L032FAC DB $00
|
|
DB $00
|
|
L032FAE DB $00
|
|
DB $00
|
|
L032FB0 DB $00
|
|
DB $00
|
|
L032FB2 DB $00
|
|
DB $00
|
|
L032FB4 DB $00
|
|
DB $00
|
|
L032FB6 DB $00
|
|
DB $00
|
|
L032FB8 DB $00
|
|
DB $00
|
|
L032FBA DB $00
|
|
DB $00
|
|
L032FBC DB $00
|
|
DB $00
|
|
L032FBE DB $00
|
|
DB $00
|
|
L032FC0 DB $00
|
|
DB $00
|
|
L032FC2 DB $00
|
|
DB $00
|
|
L032FC4 DB $00
|
|
DB $00
|
|
L032FC6 DB $00
|
|
DB $00
|
|
L032FC8 DB $00
|
|
DB $00
|
|
L032FCA DB $00
|
|
DB $00
|
|
L032FCC DB $00
|
|
DB $00
|
|
L032FCE DB $00
|
|
DB $00
|
|
L032FD0 DB $00
|
|
DB $00
|
|
L032FD2 DB $00
|
|
DB $00
|
|
L032FD4 DB $00
|
|
DB $00
|
|
L032FD6 DB $00
|
|
DB $00
|
|
L032FD8 DB $00
|
|
L032FD9 DB $00
|
|
L032FDA DB $00
|
|
DB $00
|
|
L032FDC DB $00
|
|
DB $00
|
|
L032FDE DB $00
|
|
DB $00
|
|
L032FE0 DB $00
|
|
DB $00
|
|
L032FE2 DB $00
|
|
DB $00
|
|
L032FE4 DB $00
|
|
DB $00
|
|
L032FE6 DB $00
|
|
DB $00
|
|
L032FE8 DB $00
|
|
DB $00
|
|
L032FEA DB $00
|
|
DB $00
|
|
L032FEC DB $00
|
|
DB $00
|
|
L032FEE DB $00
|
|
DB $00
|
|
L032FF0 DB $00
|
|
DB $00
|
|
L032FF2 DB $00
|
|
DB $00
|
|
L032FF4 DB $00
|
|
DB $00
|
|
L032FF6 DB $00
|
|
DB $00
|
|
L032FF8 DB $00
|
|
DB $00
|
|
L032FFA DB $00
|
|
L032FFB DB $00
|
|
L032FFC DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L03301E DB $00
|
|
DB $00
|
|
L033020 DB $00
|
|
DB $00
|
|
L033022 DB $00
|
|
DB $00
|
|
L033024 DB $00
|
|
DB $00
|
|
L033026 DB $00
|
|
DB $00
|
|
L033028 DB $00
|
|
DB $00
|
|
L03302A DB $00
|
|
DB $00
|
|
L03302C DB $00
|
|
DB $00
|
|
L03302E DB $00
|
|
DB $00
|
|
L033030 DB $00
|
|
DB $00
|
|
L033032 DB $00
|
|
DB $00
|
|
L033034 DB $00
|
|
DB $00
|
|
L033036 DB $00
|
|
DB $00
|
|
L033038 DB $00
|
|
DB $00
|
|
L03303A DW $0006 ; Parms for DRead
|
|
L03303C DW $0000 ; device num
|
|
L03303E ADRL $00000000 ; buffer ptr
|
|
L033042 ADRL $00000000 ; request count
|
|
L033046 ADRL $00000000 ; starting block
|
|
L03304A DW $0000 ; block size
|
|
ADRL $00000000 ; transfer count
|
|
L033050 DB $00
|
|
DB $00
|
|
L033052 DB $00
|
|
DB $00
|
|
L033054 DB $00
|
|
DB $00
|
|
L033056 DB $00
|
|
DB $00
|
|
L033058 DB $00
|
|
DB $00
|
|
L03305A DB $00
|
|
DB $00
|
|
L03305C DB $00
|
|
DB $00
|
|
L03305E DB $00
|
|
DB $00
|
|
L033060 DB $00
|
|
DB $00
|
|
L033062 DB $00
|
|
DB $00
|
|
L033064 DB $00
|
|
DB $00
|
|
L033066 DB $00
|
|
DB $00
|
|
L033068 DB $00
|
|
DB $00
|
|
L03306A DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L03307A DB $00
|
|
DB $00
|
|
L03307C DB $00
|
|
DB $00
|
|
L03307E DB $00
|
|
DB $00
|
|
L033080 DB $00
|
|
DB $00
|
|
L033082 DB $00
|
|
DB $00
|
|
L033084 DB $00
|
|
DB $00
|
|
L033086 DB $00
|
|
DB $00
|
|
L033088 DB $00
|
|
DB $00
|
|
L03308A DB $00
|
|
DB $00
|
|
L03308C DB $00
|
|
DB $00
|
|
L03308E DB $00
|
|
DB $00
|
|
L033090 DB $00
|
|
DB $00
|
|
L033092 DB $00
|
|
DB $00
|
|
L033094 DB $00
|
|
DB $00
|
|
L033096 DB $00
|
|
DB $00
|
|
L033098 DB $00
|
|
DB $00
|
|
L03309A DB $00
|
|
DB $00
|
|
L03309C DB $00
|
|
DB $00
|
|
L03309E DB $00
|
|
DB $00
|
|
L0330A0 DB $00
|
|
DB $00
|
|
L0330A2 DB $00
|
|
DB $00
|
|
L0330A4 DB $00
|
|
DB $00
|
|
L0330A6 DB $00
|
|
DB $00
|
|
L0330A8 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L0330B8 DB $00
|
|
DB $00
|
|
L0330BA DB $00
|
|
DB $00
|
|
L0330BC DB $00
|
|
DB $00
|
|
L0330BE DB $00
|
|
DB $00
|
|
L0330C0 DB $00
|
|
DB $00
|
|
L0330C2 DB $00
|
|
DB $00
|
|
L0330C4 DB $00
|
|
DB $00
|
|
L0330C6 DB $00
|
|
DB $00
|
|
L0330C8 DB $00
|
|
DB $00
|
|
L0330CA DB $00
|
|
DB $00
|
|
L0330CC DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L0330D2 DB $00
|
|
DB $00
|
|
L0330D4 DB $00
|
|
DB $00
|
|
L0330D6 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L0330E0 DB $00
|
|
DB $00
|
|
L0330E2 DB $00
|
|
DB $00
|
|
L0330E4 DB $00
|
|
DB $00
|
|
L0330E6 DB $00
|
|
DB $00
|
|
L0330E8 DB $00
|
|
DB $00
|
|
L0330EA DB $00
|
|
DB $00
|
|
L0330EC DB $00
|
|
DB $00
|
|
L0330EE DB $00
|
|
DB $00
|
|
L0330F0 DB $00
|
|
DB $00
|
|
L0330F2 DB $00
|
|
DB $00
|
|
L0330F4 DB $00
|
|
DB $00
|
|
L0330F6 DB $00
|
|
DB $00
|
|
L0330F8 DB $00
|
|
DB $00
|
|
L0330FA DB $00
|
|
DB $00
|
|
L0330FC DB $00
|
|
DB $00
|
|
L0330FE DB $00
|
|
DB $00
|
|
L033100 DB $00
|
|
DB $00
|
|
L033102 DB $00
|
|
DB $00
|
|
L033104 DB $2E
|
|
DB $00
|
|
L033106 DB $00
|
|
DB $00
|
|
L033108 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L033132 DB $00
|
|
DB $00
|
|
L033134 DB $00
|
|
DB $00
|
|
L033136 DB $00
|
|
DB $00
|
|
L033138 DB $00
|
|
DB $00
|
|
L03313A DB $00
|
|
DB $00
|
|
L03313C DB $00
|
|
DB $00
|
|
L03313E DB $00
|
|
DB $00
|
|
L033140 HEX 0138B0034C4608788643C903088A2970
|
|
HEX 4A4A4A4A09C08549A0FF844828C8B148
|
|
HEX D002B000A000C9F9B01C85488460844A
|
|
HEX 844C844E8447C884428446A90A856185
|
|
HEX 4B20B70890034C460820DDFB8D00C08D
|
|
HEX 0CC02093FE202FFB2058FCA2FFE8BDC2
|
|
HEX 08F0059D8404D0F5A2FFE8BDE308F005
|
|
HEX 9D0006D0F5A2FFE8BDF708F0059DA804
|
|
HEX D0F5A2FFE8BD0709F0059D0007D0F5A2
|
|
HEX FFE8BD2609F0059D5605D0F5A227BD1E
|
|
HEX 0A09809D2805CA10F5AD10C0AD00C010
|
|
HEX FBEEF4034C62FAA5608544A56185456C
|
|
HEX 4800D4C8C9D3A0C9D3A0C1CEA0C1D2C3
|
|
HEX C8C9D6C5D2A0C2C1C3CBD5D0A0C4C9D3
|
|
HEX CBBA00D0C9C5C3C5A0CED5CDC2C5D2BA
|
|
HEX A0000000000000C2C1C3CBD5D0A0C3CF
|
|
L033240 HEX CDCDC5CED4BA00C2C1C3CBD5D0A0D3C9
|
|
HEX DAC5BAA0000000000000000000000000
|
|
HEX 000000000000D0D2C5D3D3A0C1CED9A0
|
|
HEX CBC5D9A0D4CFA0D2C5D3D4C1D2D4AEAE
|
|
HEX AE200000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
HEX 00000000000000000000000000000000
|
|
L033340 LDA L032EF6
|
|
STA $78
|
|
LDA L032EF8
|
|
STA $7A
|
|
LDA [$78]
|
|
STA $74
|
|
LDY #$0002
|
|
LDA [$78],Y
|
|
STA $76
|
|
LDY #$0004
|
|
LDA [$78],Y
|
|
ORA #$8000
|
|
STA [$78],Y
|
|
BCC L033371
|
|
LDY #$01FE
|
|
LDA #$0000
|
|
L033367 STA [$74],Y
|
|
DEY
|
|
DEY
|
|
BPL L033367
|
|
CLC
|
|
LDA #$0000
|
|
L033371 RTS
|
|
|
|
L033372 STY $78
|
|
STZ $7A
|
|
LDX L032ED4
|
|
L033379 LSR $78
|
|
ROR
|
|
ROR $7A
|
|
DEX
|
|
BNE L033379
|
|
TAY
|
|
LDA #$0010
|
|
SEC
|
|
SBC L032ED4
|
|
L033389 LSR $7A
|
|
DEC
|
|
BNE L033389
|
|
TYA
|
|
LDY $78
|
|
LDX $7A
|
|
RTS
|
|
|
|
L033394 STY $78
|
|
LDX L032ED4
|
|
L033399 ASL
|
|
ROL $78
|
|
DEX
|
|
BNE L033399
|
|
LDY $78
|
|
RTS
|
|
|
|
L0333A2 LDA [$0A]
|
|
AND #$FF00
|
|
BNE L0333AB
|
|
SEC
|
|
RTS
|
|
|
|
L0333AB XBA
|
|
CLC
|
|
ADC $0A
|
|
STA $0A
|
|
BCC L0333B5
|
|
INC $0C
|
|
L0333B5 LDY #$001C
|
|
LDA [$0A],Y
|
|
ORA L033024
|
|
AND #$3000
|
|
BEQ L0333A2
|
|
LDX L032EE2
|
|
LDY #$001E
|
|
LDA [$0A],Y
|
|
STA L032EE2
|
|
TXA
|
|
INC
|
|
SEC
|
|
SBC [$0A],Y
|
|
BEQ L0333EA
|
|
TAY
|
|
LDAL L0301D1
|
|
TAX
|
|
SEP #$20
|
|
L0333DC DEX
|
|
LDAL L0301D2,X
|
|
CMP #$3A
|
|
BNE L0333DC
|
|
DEY
|
|
BNE L0333DC
|
|
BRA L0333F1
|
|
L0333EA SEP #$20
|
|
LDAL L0301D1
|
|
TAX
|
|
L0333F1 LDY #$002E
|
|
LDA [$0A],Y
|
|
CLC
|
|
ADC #$2E
|
|
STA L032F8C
|
|
L0333FC INX
|
|
INY
|
|
LDA [$0A],Y
|
|
STAL L0301D2,X
|
|
CPY L032F8C
|
|
BNE L0333FC
|
|
LDA #$3A
|
|
STAL L0301D3,X
|
|
REP #$20
|
|
INX
|
|
TXA
|
|
STAL L0301D1
|
|
CLC
|
|
RTS
|
|
|
|
L033419 LDA $06
|
|
CLC
|
|
ADC #$01B6
|
|
STA $0A
|
|
LDA $08
|
|
BCC L033426
|
|
INC
|
|
L033426 STA $0C
|
|
LDY #$002E
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
INC
|
|
STAL L0301D1
|
|
TAX
|
|
CLC
|
|
ADC #$002E
|
|
TAY
|
|
SEP #$20
|
|
LDA #$3A
|
|
BRA L033443
|
|
L033441 LDA [$0A],Y
|
|
L033443 STAL L0301D2,X
|
|
DEY
|
|
DEX
|
|
BNE L033441
|
|
REP #$20
|
|
LDY #$001E
|
|
LDA [$0A],Y
|
|
STA L032EE2
|
|
RTS
|
|
|
|
L033456 PHA
|
|
PEA $0000
|
|
PHA
|
|
PEA ^L033456
|
|
PHX
|
|
PHA
|
|
PHA
|
|
_GetCursorAdr
|
|
PLA
|
|
STA $78
|
|
PLA
|
|
STA $7A
|
|
_InitCursor
|
|
PHP
|
|
LDA L032FC6
|
|
PHA
|
|
PLB
|
|
PLA
|
|
JSL L07001D
|
|
PEI $7A
|
|
PEI $78
|
|
_SetCursor
|
|
LDAL L0612BF
|
|
TAX
|
|
ORAL L0612BD
|
|
BEQ L0334C9
|
|
PHX
|
|
LDAL L0612BD
|
|
PHA
|
|
_BeginUpdate
|
|
LDAL L0612BF
|
|
PHA
|
|
LDAL L0612BD
|
|
PHA
|
|
_SetPort
|
|
JSL L039A84
|
|
LDAL L0612BF
|
|
PHA
|
|
LDAL L0612BD
|
|
PHA
|
|
_EndUpdate
|
|
L0334C9 PLA
|
|
PHK
|
|
PLB
|
|
RTS
|
|
|
|
L0334CD LDX L033102
|
|
LDA #$0006
|
|
JSR L033456
|
|
CMP #$0001
|
|
RTS
|
|
|
|
L0334DA PHP
|
|
LDA L032FC6
|
|
PHA
|
|
PLB
|
|
PLA
|
|
JSL L0743FE
|
|
PHK
|
|
PLB
|
|
LDAL L06000C
|
|
BEQ L0334F7
|
|
JSR L0334CD
|
|
BCS L0334F7
|
|
LDA #$8010
|
|
SEC
|
|
RTS
|
|
|
|
L0334F7 LDA #$0000
|
|
STAL L06000C
|
|
CLC
|
|
RTS
|
|
|
|
L033500 PEI $04
|
|
PEI $02
|
|
PHA
|
|
JSL GSOS2
|
|
RTS
|
|
|
|
L03350A STZ L032FCE
|
|
STZ L032FD0
|
|
PHA
|
|
PHA
|
|
LDAL L0612BF
|
|
PHA
|
|
LDAL L0612BD
|
|
PHA
|
|
PEA $0000
|
|
PEA $0484
|
|
_GetCtlHandleFromID
|
|
PLY
|
|
STY L032FC8
|
|
PLX
|
|
STX L032FCA
|
|
PEA $0000
|
|
PHX
|
|
PHY
|
|
_SetCtlValue
|
|
RTS
|
|
|
|
L03353E LDA L032FCE
|
|
STA $78
|
|
LDA L032FD0
|
|
LDX L032FCC
|
|
L033549 BEQ L033551
|
|
ASL $78
|
|
ROL
|
|
DEX
|
|
BRA L033549
|
|
L033551 PHA
|
|
LDA L032FCA
|
|
PHA
|
|
LDA L032FC8
|
|
PHA
|
|
_SetCtlValue
|
|
RTS
|
|
|
|
L033562 JSR L03350A
|
|
LDY #$01B2
|
|
LDA [$06],Y
|
|
STA $78
|
|
INY
|
|
INY
|
|
LDA [$06],Y
|
|
TAY
|
|
ORA $78
|
|
BEQ L033596
|
|
TYA
|
|
LDX #$0000
|
|
L033579 ASL $78
|
|
ROL
|
|
BCS L033581
|
|
INX
|
|
BNE L033579
|
|
L033581 STX L032FCC
|
|
ROR
|
|
PHA
|
|
PHA
|
|
LDA L032FCA
|
|
PHA
|
|
LDA L032FC8
|
|
PHA
|
|
_SetCtlTitle
|
|
L033596 RTS
|
|
|
|
L033597 PHA
|
|
PHA
|
|
LDX L032FF6
|
|
PHX
|
|
LDX L032FF4
|
|
PHX
|
|
PEA $0000
|
|
PHA
|
|
_GetCtlHandleFromID
|
|
PLA
|
|
PLX
|
|
RTS
|
|
|
|
L0335AF CMP #$0040
|
|
BEQ L0335BB
|
|
CMP #$0047
|
|
BEQ L033635
|
|
SEC
|
|
RTS
|
|
|
|
L0335BB LDA #$0026
|
|
STA L032FF8
|
|
LDAL L0301D1
|
|
DEC
|
|
STA L033945
|
|
TAX
|
|
SEP #$20
|
|
L0335CC DEX
|
|
LDAL L0301D2,X
|
|
CMP #$3A
|
|
BEQ L0335D7
|
|
BRA L0335CC
|
|
L0335D7 LDY #$0000
|
|
L0335DA INX
|
|
INY
|
|
LDAL L0301D2,X
|
|
STA L032FFB,Y
|
|
CPX L033945
|
|
BNE L0335DA
|
|
REP #$20
|
|
TYA
|
|
STA L032FFA
|
|
LDA #$0005
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L033136
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L0330D4
|
|
BEQ L033607
|
|
LDA #$0002
|
|
BRA L03360A
|
|
L033607 LDA #$0003
|
|
L03360A STA [$02],Y
|
|
LDY #$000C
|
|
LDA #L032FF8
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L032FF8
|
|
STA [$02],Y
|
|
LDA #$2007
|
|
JSR L033500
|
|
LDAL L060002
|
|
BIT #$0100
|
|
BEQ L03362D
|
|
BRL L033914
|
|
L03362D LDA #L03394B
|
|
LDX #L033962
|
|
BRA L03367D
|
|
L033635 LDA #$0003
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #L0301D1
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L0301D3
|
|
STA [$02],Y
|
|
LDA #$2006
|
|
JSR L033500
|
|
BCC L033652
|
|
RTS
|
|
|
|
L033652 LDAL L060002
|
|
BIT #$0080
|
|
BEQ L033668
|
|
LDY #$0008
|
|
LDA [$02],Y
|
|
CMP #$000F
|
|
BEQ L033668
|
|
BRL L0338E6
|
|
L033668 LDY #$0006
|
|
LDA [$02],Y
|
|
AND #$0080
|
|
BNE L033677
|
|
LDX #L0339A6
|
|
BRA L03367A
|
|
L033677 LDX #L033994
|
|
L03367A LDA #L03394B
|
|
L03367D STA $66
|
|
STX L033947
|
|
LDA ($66)
|
|
AND #$00FF
|
|
PHA
|
|
TAY
|
|
SEP #$20
|
|
L03368B LDA ($66),Y
|
|
STA L0339C6,Y
|
|
DEY
|
|
BNE L03368B
|
|
REP #$20
|
|
LDAL L0301D1
|
|
DEC
|
|
STA L033945
|
|
TAX
|
|
SEP #$20
|
|
L0336A0 DEX
|
|
LDAL L0301D2,X
|
|
CMP #$3A
|
|
BEQ L0336AB
|
|
BRA L0336A0
|
|
L0336AB PLY
|
|
L0336AC INX
|
|
LDAL L0301D2,X
|
|
STA L0339C7,Y
|
|
INY
|
|
CPX L033945
|
|
BNE L0336AC
|
|
LDX L033947
|
|
STX $66
|
|
LDA #$00
|
|
XBA
|
|
TYA
|
|
CLC
|
|
ADC ($66)
|
|
PHA
|
|
TAX
|
|
LDA ($66)
|
|
TAY
|
|
L0336CB LDA ($66),Y
|
|
STA L0339C6,X
|
|
DEX
|
|
DEY
|
|
BNE L0336CB
|
|
PLA
|
|
STA L0339C6
|
|
REP #$20
|
|
PHA
|
|
PHA
|
|
_GetCtlParamPtr
|
|
PLA
|
|
STA L032FEC
|
|
PLA
|
|
STA L032FEE
|
|
LDA #L0339C6
|
|
STA L032FF0
|
|
LDA #^L0339C6
|
|
STA L032FF2
|
|
PEA ^L032FF0
|
|
PEA L032FF0
|
|
_SetCtlParamPtr
|
|
LDA #$0000
|
|
LDY #$0011
|
|
LDX #$0000
|
|
PHA
|
|
PHA
|
|
PHX
|
|
PHX
|
|
PHA
|
|
PHY
|
|
PEA ^L039A84
|
|
PEA L039A84
|
|
PHX
|
|
PHX
|
|
PEA $0002
|
|
PHA
|
|
PHY
|
|
PEA $800E
|
|
_NewWindow2
|
|
PLA
|
|
STA L032FF4
|
|
PLA
|
|
STA L032FF6
|
|
LDA #$0502
|
|
JSR L033597
|
|
STA $88
|
|
STX $8A
|
|
LDA [$88]
|
|
STA $78
|
|
LDY #$0002
|
|
LDA [$88],Y
|
|
STA $7A
|
|
LDY #$001C
|
|
LDA [$78],Y
|
|
STA $52
|
|
INY
|
|
INY
|
|
LDA [$78],Y
|
|
STA $54
|
|
LDA L033947
|
|
CMP #L033994
|
|
BNE L033777
|
|
LDY #$0008
|
|
LDA [$02],Y
|
|
CMP #$000F
|
|
BEQ L03379D
|
|
LDA #$0506
|
|
JSR L033597
|
|
PHX
|
|
PHA
|
|
_ShowControl
|
|
BRA L03379D
|
|
L033777 PEA ^L032FFC
|
|
PEA L032FFC
|
|
LDA L032FFA
|
|
PHA
|
|
PEI $54
|
|
PEI $52
|
|
_LESetText
|
|
PEA $0000
|
|
PEA $00FF
|
|
PEI $54
|
|
PEI $52
|
|
_LESetSelect
|
|
L03379D LDA #$0505
|
|
JSR L033597
|
|
STA L033020
|
|
STX L033022
|
|
_InitCursor
|
|
STZ L03301E
|
|
L0337B3 LDA #$0000
|
|
STAL L06000C
|
|
STAL L06000A
|
|
L0337BE LDA [$52]
|
|
STA $78
|
|
LDY #$0002
|
|
LDA [$52],Y
|
|
STA $7A
|
|
LDY #$0004
|
|
LDA [$78],Y
|
|
BEQ L0337DD
|
|
LDA #$8000
|
|
TSB L03301E
|
|
BNE L0337F8
|
|
LDA #$0000
|
|
BRA L0337E8
|
|
L0337DD LDA #$8000
|
|
TRB L03301E
|
|
BEQ L0337F8
|
|
LDA #$00FF
|
|
L0337E8 PHA
|
|
LDA L033022
|
|
PHA
|
|
LDA L033020
|
|
PHA
|
|
_HiliteControl
|
|
L0337F8 JSR L0334DA
|
|
LDAL L06000A
|
|
BEQ L0337BE
|
|
CMP #$0503
|
|
BNE L03380E
|
|
LDAL L06000C
|
|
BNE L033844
|
|
BRA L0337B3
|
|
L03380E CMP #$0505
|
|
BNE L033844
|
|
LDA [$52]
|
|
STA $78
|
|
LDY #$0002
|
|
LDA [$52],Y
|
|
STA $7A
|
|
LDY #$0004
|
|
LDA [$78],Y
|
|
STA L032FF8
|
|
DEY
|
|
DEY
|
|
LDA [$78],Y
|
|
STA $7E
|
|
LDA [$78]
|
|
STA $7C
|
|
LDA [$7C]
|
|
STA $78
|
|
LDA [$7C],Y
|
|
STA $7A
|
|
LDY #$001E
|
|
L03383B LDA [$78],Y
|
|
STA L032FFA,Y
|
|
DEY
|
|
DEY
|
|
BPL L03383B
|
|
L033844 _WaitCursor
|
|
LDA L032FF6
|
|
PHA
|
|
LDA L032FF4
|
|
PHA
|
|
_CloseWindow
|
|
LDA L032FEE
|
|
PHA
|
|
LDA L032FEC
|
|
PHA
|
|
_SetCtlParamPtr
|
|
LDAL L06000A
|
|
CMP #$0504
|
|
BEQ L03387E
|
|
CMP #$0505
|
|
BEQ L0338B5
|
|
CMP #$0506
|
|
BEQ L0338E6
|
|
CLC
|
|
RTS
|
|
|
|
L03387E LDY #$0002
|
|
LDA [$0A],Y
|
|
CMP #$000F
|
|
BEQ L033899
|
|
STZ L033024
|
|
JSR L0333A2
|
|
BCC L033897
|
|
L033890 LDA #$8000
|
|
STAL L06000A
|
|
L033897 CLC
|
|
RTS
|
|
|
|
L033899 LDY #$001E
|
|
LDA [$0A],Y
|
|
INC
|
|
STA L033949
|
|
L0338A2 STZ L033024
|
|
JSR L0333A2
|
|
BCS L033890
|
|
LDY #$001E
|
|
LDA [$0A],Y
|
|
CMP L033949
|
|
BCS L0338A2
|
|
RTS
|
|
|
|
L0338B5 LDAL L0301D1
|
|
TAX
|
|
SEP #$20
|
|
L0338BC DEX
|
|
LDAL L0301D2,X
|
|
CMP #$3A
|
|
BNE L0338BC
|
|
LDY #$0000
|
|
L0338C8 INX
|
|
LDA L032FFA,Y
|
|
STAL L0301D2,X
|
|
INY
|
|
CPY L032FF8
|
|
BNE L0338C8
|
|
INX
|
|
LDA #$3A
|
|
STAL L0301D2,X
|
|
REP #$20
|
|
TXA
|
|
STAL L0301D1
|
|
CLC
|
|
RTS
|
|
|
|
L0338E6 LDY #$0006
|
|
LDA [$02],Y
|
|
ORA #$0080
|
|
STA [$02],Y
|
|
LDA #$2005
|
|
JSR L033500
|
|
BCC L0338F9
|
|
RTS
|
|
|
|
L0338F9 LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #L0301D1
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L0301D1
|
|
STA [$02],Y
|
|
LDA #$2002
|
|
JSR L033500
|
|
RTS
|
|
|
|
L033914 LDAL L0301D1
|
|
TAX
|
|
SEP #$20
|
|
L03391B DEX
|
|
LDAL L0301D2,X
|
|
CMP #$3A
|
|
BNE L03391B
|
|
LDY #$0000
|
|
L033927 INX
|
|
LDA L032FFC,Y
|
|
STAL L0301D2,X
|
|
INY
|
|
CPY L032FFA
|
|
BNE L033927
|
|
INX
|
|
LDA #$3A
|
|
STAL L0301D2,X
|
|
REP #$20
|
|
TXA
|
|
STAL L0301D1
|
|
CLC
|
|
RTS
|
|
|
|
L033945 DW $0000
|
|
L033947 DW $0000
|
|
L033949 DW $0000
|
|
L03394B STR 'The file/folder name "'
|
|
L033962 STR '" is unacceptable to the destination file system.'
|
|
L033994 STR '" already exists.'
|
|
L0339A6 STR '" already exists and is locked.'
|
|
L0339C6 DB $00
|
|
L0339C7 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L033A5C LDA L032EDA
|
|
JSL L03746D
|
|
BIT L032FD6
|
|
BPL L033A77
|
|
SEP #$30
|
|
LDAL L040023
|
|
TAX
|
|
LDA #$FF
|
|
STAL L04002B,X
|
|
REP #$30
|
|
L033A77 JSR L037492
|
|
RTS
|
|
|
|
L033A7B LDAL L0301D1
|
|
DEC
|
|
CLC
|
|
ADC #$0062
|
|
STA L032F32
|
|
LDA L032EE2
|
|
STA L032F56
|
|
LDA #$0000
|
|
STA L032F58
|
|
STA L032F5A
|
|
STA L032F5C
|
|
STA L032F5E
|
|
LDX #$FFFE
|
|
L033A9F INX
|
|
INX
|
|
LDA L034C64,X
|
|
BMI L033A9F
|
|
BEQ L033AB0
|
|
TAY
|
|
LDA [$02],Y
|
|
STA L032F2C,X
|
|
BRA L033A9F
|
|
L033AB0 LDX #$002A
|
|
L033AB3 LDA L033106,X
|
|
STA L032F60,X
|
|
DEX
|
|
DEX
|
|
BPL L033AB3
|
|
RTS
|
|
|
|
L033ABE LDA L032F2A
|
|
BEQ L033ACC
|
|
JSR L034AFC
|
|
BCC L033AC9
|
|
RTS
|
|
|
|
L033AC9 STZ L032F2A
|
|
L033ACC JSR L033419
|
|
L033ACF LDA $0A
|
|
CMP L033056
|
|
BNE L033ADD
|
|
LDA $0C
|
|
CMP L033058
|
|
BEQ L033AE2
|
|
L033ADD JSR L0333A2
|
|
BRA L033ACF
|
|
L033AE2 LDA L03305A
|
|
STA L032FCE
|
|
LDA L03305C
|
|
STA L032FD0
|
|
JSR L03353E
|
|
STZ L032FD2
|
|
STZ L032FD4
|
|
LDA L03305E
|
|
BEQ L033B1E
|
|
AND #$8000
|
|
BNE L033B0C
|
|
LDA #L034DB9+2
|
|
STA L033B8C
|
|
LDA #$0001
|
|
BRA L033B15
|
|
L033B0C LDA #L034D71+2
|
|
STA L033B8C
|
|
LDA #$0000
|
|
L033B15 LDX #$0001
|
|
JSR L034785
|
|
BCC L033B1E
|
|
RTS
|
|
|
|
L033B1E LDA L03305E
|
|
STA L032F2A
|
|
JSR L033A7B
|
|
LDA L033062
|
|
STA L032ECC
|
|
SEC
|
|
SBC L033066
|
|
LDY #$0006
|
|
STA [$02],Y
|
|
LDA L033064
|
|
STA L032ECE
|
|
SBC L033068
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$0003
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032ED0
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
LDA #$2016
|
|
JSR L033500
|
|
BCC L033B60
|
|
RTS
|
|
|
|
L033B60 LDA L033066
|
|
STA L032EB8
|
|
LDA L033068
|
|
STA L032EBA
|
|
LDA L033060
|
|
STA L030BE8
|
|
LDA L03306A
|
|
STA L032ED2
|
|
DEC L032F0C
|
|
LDA L033050
|
|
TCS
|
|
PEA L035684+2
|
|
LDA L033B8C
|
|
PHA
|
|
PEA L034ABD+2
|
|
JMP L033FD8
|
|
|
|
L033B8C BRK $00
|
|
L033B8E LDA L032F2A
|
|
BEQ L033B9C
|
|
JSR L034AFC
|
|
BCC L033B99
|
|
RTS
|
|
|
|
L033B99 STZ L032F2A
|
|
L033B9C JSR L033419
|
|
L033B9F LDA $0A
|
|
CMP L033056
|
|
BNE L033BAD
|
|
LDA $0C
|
|
CMP L033058
|
|
BEQ L033BB2
|
|
L033BAD JSR L0333A2
|
|
BRA L033B9F
|
|
L033BB2 LDA L03305A
|
|
STA L032FCE
|
|
LDA L03305C
|
|
STA L032FD0
|
|
JSR L03353E
|
|
STZ L032FD2
|
|
STZ L032FD4
|
|
LDA L03305E
|
|
BEQ L033BE2
|
|
AND #$8000
|
|
BNE L033BD6
|
|
LDA #$0001
|
|
BRA L033BD9
|
|
L033BD6 LDA #$0000
|
|
L033BD9 LDX #$0001
|
|
JSR L034785
|
|
BCC L033BE2
|
|
RTS
|
|
|
|
L033BE2 LDA L03305E
|
|
STA L032F2A
|
|
LDY #$002A
|
|
LDA [$02],Y
|
|
STA L03313A
|
|
INY
|
|
INY
|
|
LDA [$02],Y
|
|
STA L03313C
|
|
LDY #$0014
|
|
LDA [$02],Y
|
|
STA L03313E
|
|
JSR L033A7B
|
|
LDA L033060
|
|
STA L030BE8
|
|
DEC L032F0C
|
|
JSR L033FD8
|
|
BCC L033C11
|
|
RTS
|
|
|
|
L033C11 LDA L033062
|
|
STA L033038
|
|
LDA L033050
|
|
TCS
|
|
PEA L035684+2
|
|
PEA L034D4E+2
|
|
JMP L034B86
|
|
|
|
L033C24 LDA L033050
|
|
TCS
|
|
JMP L0355C1
|
|
|
|
L033C2B STZ L032F18
|
|
CLC
|
|
JSR L033340
|
|
LDA L032EDA
|
|
BEQ L033C7D
|
|
STA L03303C
|
|
LDA $74
|
|
STA L03303E
|
|
LDA $76
|
|
STA L03303E+2
|
|
LDA L032EF0
|
|
TAX
|
|
STA L033042
|
|
STZ L033042+2
|
|
CPX #$0200
|
|
BNE L033C5B
|
|
LDA #$0001
|
|
STZ L032F18
|
|
BRA L033C64
|
|
L033C5B LDA #$0200
|
|
STA L032F18
|
|
LDA #$0000
|
|
L033C64 STA L033046
|
|
STZ L033046+2
|
|
STX L03304A
|
|
PEA ^L03303A
|
|
PEA L03303A
|
|
PEA $202F ; DRead
|
|
JSL GSOS2
|
|
BCC L033CEF
|
|
RTS
|
|
|
|
L033C7D STZ L032FE2
|
|
LDX L032FE4
|
|
LDA L032FE6
|
|
LDY #$0006
|
|
STA [$02],Y
|
|
DEY
|
|
DEY
|
|
TXA
|
|
STA [$02],Y
|
|
LDA #$0002
|
|
STA [$02]
|
|
LDA #$2010
|
|
JSR L033500
|
|
BCC L033C9E
|
|
RTS
|
|
|
|
L033C9E LDY #$0002
|
|
LDA [$02],Y
|
|
STA L032FE2
|
|
LDA #$0004
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE2
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $74
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $76
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0200
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
LDA #$2012
|
|
JSR L033500
|
|
PHA
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE2
|
|
STA [$02],Y
|
|
LDA #$2014
|
|
JSR L033500
|
|
PLX
|
|
BEQ L033CED
|
|
TXA
|
|
SEC
|
|
L033CEC RTS
|
|
|
|
L033CED BCS L033CEC
|
|
L033CEF LDA #$0008
|
|
CLC
|
|
ADC L032F18
|
|
TAY
|
|
LDX #$0008
|
|
L033CFA LDA [$74],Y
|
|
CMP L032EA8,X
|
|
BNE L033D7E
|
|
DEY
|
|
DEY
|
|
DEX
|
|
DEX
|
|
BPL L033CFA
|
|
LDA L032EDA
|
|
BEQ L033D79
|
|
LDA L032EF0
|
|
CMP #$2000
|
|
BEQ L033D79
|
|
LDY #$0012
|
|
LDX #$0006
|
|
L033D1A LDA [$74],Y
|
|
CPX #$0000
|
|
BNE L033D24
|
|
AND #$FF00
|
|
L033D24 STA L033D83,X
|
|
DEY
|
|
DEY
|
|
DEX
|
|
DEX
|
|
BPL L033D1A
|
|
LDA L033D85
|
|
CMP #$2800
|
|
BCS L033D4A
|
|
SEP #$21
|
|
XBA
|
|
ADC #$63
|
|
STA L033D85+1
|
|
LDA L033D89+1
|
|
DEC
|
|
BNE L033D45
|
|
LDA #$07
|
|
L033D45 STA L033D89+1
|
|
REP #$20
|
|
L033D4A LDA #$0007
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #L034FEC
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L034FEC
|
|
STA [$02],Y
|
|
LDA #$2006
|
|
JSR L033500
|
|
BCS L033D7E
|
|
LDY #$001E
|
|
LDX #$0006
|
|
L033D6C LDA [$02],Y
|
|
CMP L033D83,X
|
|
BNE L033D7E
|
|
DEY
|
|
DEY
|
|
DEX
|
|
DEX
|
|
BPL L033D6C
|
|
L033D79 LDA #$0000
|
|
CLC
|
|
RTS
|
|
|
|
L033D7E LDA #$002E
|
|
SEC
|
|
RTS
|
|
|
|
L033D83 DW $0000
|
|
L033D85 DW $0000
|
|
DW $0000
|
|
L033D89 DW $0000
|
|
L033D8B LDY #$0002
|
|
STA [$02],Y
|
|
LDA #$0005
|
|
STA [$02]
|
|
INY
|
|
INY
|
|
TXA
|
|
STA [$02],Y
|
|
LDA #$0000
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$202E
|
|
JSR L033500
|
|
RTS
|
|
|
|
L033DB4 LDA L032EDA
|
|
STA L03451F
|
|
PEA ^L03451D
|
|
PEA L03451D
|
|
PEA $202D ; DStatus
|
|
JSL GSOS2
|
|
BCC L033DCA
|
|
RTS
|
|
|
|
L033DCA LDA L03452F
|
|
LDX L032EF0
|
|
CPX #$2000
|
|
BEQ L033DDD
|
|
AND #$0010
|
|
EOR #$0010
|
|
L033DDB CLC
|
|
RTS
|
|
|
|
L033DDD AND #$0010
|
|
EOR #$0010
|
|
BEQ L033DDB
|
|
PEA ^L03451D
|
|
PEA L03451D
|
|
PEA $202D ; DStatus
|
|
JSL GSOS2
|
|
BCC L033DF5
|
|
RTS
|
|
|
|
L033DF5 LDA L03452F
|
|
AND #$0010
|
|
EOR #$0010
|
|
CLC
|
|
RTS
|
|
|
|
L033E00 PEA $4050
|
|
_SysBeep2
|
|
LDA #$0001
|
|
LDX #L033E22
|
|
JSR L033456
|
|
TAX
|
|
BEQ L033E18
|
|
L033E16 CLC
|
|
RTS
|
|
|
|
L033E18 JSR L0334CD
|
|
BCS L033E16
|
|
LDA #$8010
|
|
SEC
|
|
RTS
|
|
|
|
L033E22 STR 'The media just inserted is write-protected. Make sure the write-protect tab is in the correct position.'
|
|
L033E8A LDA L032EF2
|
|
AND #$0004
|
|
BNE L033E95
|
|
BRL L03423C
|
|
L033E95 LDA L032F0C
|
|
BNE L033E9D
|
|
BRL L033F3D
|
|
L033E9D BIT L032FD6
|
|
BPL L033F19
|
|
LDAL L060002
|
|
AND #$0010
|
|
BEQ L033F19
|
|
LDA L0370AA
|
|
STA L03454B
|
|
LDX #L0343EF
|
|
JSR L03793E
|
|
JSR L0395E4
|
|
PHP
|
|
LDX L03454B
|
|
JSR L03793E
|
|
PLP
|
|
BCC L033F19
|
|
L033EC4 LDA L032EDA
|
|
STA L034537
|
|
LDA L032EF0
|
|
STA L03453D
|
|
STA L034545
|
|
CMP #$0200
|
|
BNE L033EDD
|
|
LDA #$0001
|
|
BRA L033EE0
|
|
L033EDD LDA #$0000
|
|
L033EE0 STA L034541
|
|
PEA ^L034535
|
|
PEA L034535
|
|
PEA $2030 ; DWrite
|
|
JSL GSOS2
|
|
PEA $4033
|
|
_SysBeep2
|
|
LDA #$0001
|
|
LDX #L03439A
|
|
JSR L033456
|
|
TAX
|
|
BEQ L033F0F
|
|
L033F06 LDA L033052
|
|
STA L033F0C+1
|
|
L033F0C JMP $0000
|
|
|
|
L033F0F JSR L0334CD
|
|
BCS L033F06
|
|
LDA #$8010
|
|
SEC
|
|
RTS
|
|
|
|
L033F19 LDA L033054
|
|
STA L033052
|
|
LDX #$003C
|
|
L033F22 LDA L033094,X
|
|
STA L033056,X
|
|
DEX
|
|
DEX
|
|
BPL L033F22
|
|
L033F2C LDA L032EF0
|
|
CMP #$2000
|
|
BEQ L033F3D
|
|
LDA L032EDA
|
|
LDX #$0002
|
|
JSR L033D8B
|
|
L033F3D PEA $4030
|
|
_SysBeep2
|
|
LDA L032EF0
|
|
CMP #$2000
|
|
BEQ L033F57
|
|
LDA #$6964
|
|
LDX #$6B73
|
|
BRA L033F5D
|
|
L033F57 LDA #$6174
|
|
LDX #$6570
|
|
L033F5D LDY L032F0C
|
|
BEQ L033FBC
|
|
STA L03427B
|
|
STX L03427D
|
|
AND #$FFDF
|
|
STA L034282
|
|
STX L034284
|
|
PHY
|
|
PEA ^L0330D6
|
|
PEA L0330D6
|
|
PEA $0005
|
|
PEA $0000
|
|
_Int2Dec
|
|
LDX #$000C
|
|
LDY #$FFFF
|
|
SEP #$20
|
|
L033F8D INY
|
|
LDA L0330D6,Y
|
|
CMP #$20
|
|
BEQ L033F8D
|
|
L033F95 STA L034282,X
|
|
INX
|
|
INY
|
|
LDA L0330D6,Y
|
|
CPY #$0005
|
|
BNE L033F95
|
|
LDY #$0000
|
|
L033FA5 LDA L034254,Y
|
|
BEQ L033FB1
|
|
STA L034282,X
|
|
INX
|
|
INY
|
|
BRA L033FA5
|
|
L033FB1 TXA
|
|
STA L034281
|
|
REP #$20
|
|
LDX #L034281
|
|
BRA L033FC5
|
|
L033FBC STA L0342BF+$19
|
|
STX L0342BF+$1B
|
|
LDX #L0342BF
|
|
L033FC5 LDA #$0001
|
|
JSR L033456
|
|
TAX
|
|
BNE L033FD8
|
|
JSR L0334CD
|
|
BCS L033FD8
|
|
LDA #$8010
|
|
SEC
|
|
RTS
|
|
|
|
L033FD8 JSR L033DB4
|
|
BCC L033FDE
|
|
RTS
|
|
|
|
L033FDE BEQ L033FE3
|
|
BRL L033F2C
|
|
L033FE3 STZ L0370B0
|
|
LDA L03452F
|
|
AND #$0004
|
|
BEQ L033FF4
|
|
JSR L033E00
|
|
BCC L033FD8
|
|
RTS
|
|
|
|
L033FF4 BIT L032FD6
|
|
BPL L034004
|
|
LDA #$0640
|
|
STA L032ED6
|
|
STZ L032ED8
|
|
BRA L034010
|
|
L034004 LDA L034531
|
|
STA L032ED6
|
|
LDA L034533
|
|
STA L032ED8
|
|
L034010 JSR L033C2B
|
|
STA L033138
|
|
BCS L03406B
|
|
LDA L032F18
|
|
CLC
|
|
ADC #$0046
|
|
TAY
|
|
LDA L032F08
|
|
CMP [$74],Y
|
|
BNE L034046
|
|
INY
|
|
INY
|
|
LDA L032F0A
|
|
CMP [$74],Y
|
|
BNE L034046
|
|
PEA $4052
|
|
_SysBeep2
|
|
LDA #$0002
|
|
LDX #L034413
|
|
JSR L033456
|
|
BRL L033F2C
|
|
L034046 LDAL L060002
|
|
AND #$0020
|
|
BNE L03406B
|
|
PEA $4054
|
|
_SysBeep2
|
|
LDA #$0008
|
|
LDX #L034471
|
|
JSR L033456
|
|
TAX
|
|
BEQ L034068
|
|
BRL L03410C
|
|
L034068 BRL L033F2C
|
|
L03406B LDA #$01FC
|
|
STA [$74]
|
|
LDA #$0007
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #L034FEC
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L034FEC
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $74
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $76
|
|
STA [$02],Y
|
|
LDA #$2008
|
|
JSR L033500
|
|
BCS L03410C
|
|
LDY #$0016
|
|
LDA [$02],Y
|
|
AND #$0010
|
|
BEQ L0340B8
|
|
PEA $4052
|
|
_SysBeep2
|
|
LDA #$0002
|
|
LDX #L0344CB
|
|
JSR L033456
|
|
BRL L033F2C
|
|
L0340B8 LDAL L060002
|
|
AND #$0020
|
|
BNE L03410C
|
|
LDY #$0002
|
|
LDA [$74],Y
|
|
CMP #$0023
|
|
BCC L0340CE
|
|
LDA #$0022
|
|
L0340CE STA L032F8C
|
|
LDX #$0000
|
|
LDY #$0004
|
|
SEP #$20
|
|
L0340D9 LDA [$74],Y
|
|
STA L034377,X
|
|
INY
|
|
INX
|
|
CPX L032F8C
|
|
BNE L0340D9
|
|
LDA #$3F
|
|
STA L034377,X
|
|
TXA
|
|
CLC
|
|
ADC #$16
|
|
STA L034361
|
|
REP #$20
|
|
PEA $4054
|
|
_SysBeep2
|
|
LDA #$0008
|
|
LDX #L034361
|
|
JSR L033456
|
|
TAX
|
|
BNE L03410C
|
|
BRL L033F2C
|
|
L03410C STZ L0370B0
|
|
BIT L032FD6
|
|
BPL L034117
|
|
BRL L03419A
|
|
L034117 LDA L032EF0
|
|
CMP #$2000
|
|
BNE L03413E
|
|
LDA L033138
|
|
CMP #$0027
|
|
BEQ L034132
|
|
LDA #$000A
|
|
JSR L033456
|
|
TAX
|
|
BEQ L03419A
|
|
BRA L03413E
|
|
L034132 LDA #$000B
|
|
JSR L033456
|
|
TAX
|
|
BNE L03413E
|
|
BRL L033F2C
|
|
L03413E JSR L0334DA
|
|
BCC L034144
|
|
RTS
|
|
|
|
L034144 LDA L0370AA
|
|
STA L0370AC
|
|
LDA L0370B0
|
|
BNE L034197
|
|
LDX #L0343FF
|
|
JSR L03793E
|
|
LDA L032EDA
|
|
LDX #$0001
|
|
JSR L033D8B
|
|
PHA
|
|
PHP
|
|
LDX L0370AC
|
|
JSR L03793E
|
|
PLP
|
|
PLA
|
|
BCC L03419A
|
|
CMP #$002F
|
|
BEQ L034197
|
|
CMP #$002E
|
|
BEQ L034197
|
|
PEA $4033
|
|
_SysBeep2
|
|
LDA #$0001
|
|
LDX #L03439A
|
|
JSR L033456
|
|
TAX
|
|
BEQ L03418D
|
|
L03418A BRL L033F2C
|
|
L03418D JSR L0334CD
|
|
BCS L03418A
|
|
LDA #$8010
|
|
SEC
|
|
RTS
|
|
|
|
L034197 BRL L033F2C
|
|
L03419A STZ L0370B0
|
|
BIT L032FD6
|
|
BMI L0341A8
|
|
JSR L034F86
|
|
BCC L0341A8
|
|
RTS
|
|
|
|
L0341A8 INC L032F0C
|
|
STZ L032EBC
|
|
STZ L032EBE
|
|
STZ L032EE8
|
|
STZ L032EEA
|
|
LDA #$0000
|
|
STAL L040025
|
|
STAL L040027
|
|
JSR L03454D
|
|
JSR L035282
|
|
BCC L0341CB
|
|
RTS
|
|
|
|
L0341CB BIT L032FD8
|
|
BMI L034237
|
|
LDA L032F0C
|
|
DEC
|
|
BEQ L034237
|
|
LDA L032F2A
|
|
BNE L0341E0
|
|
STZ L032F5A
|
|
BRA L034203
|
|
L0341E0 AND #$8000
|
|
BEQ L0341EA
|
|
LDA #$0000
|
|
BRA L0341ED
|
|
L0341EA LDA #$8000
|
|
L0341ED STA L032F5A
|
|
LDA L032ECC
|
|
SEC
|
|
SBC L032EB8
|
|
STA L032F5C
|
|
LDA L032ECE
|
|
SBC L032EBA
|
|
STA L032F5E
|
|
L034203 LDA #L032F2C
|
|
STA $68
|
|
LDA #^L032F2C
|
|
STA $6A
|
|
LDA #$0060
|
|
STA L032EB4
|
|
STZ L032EB6
|
|
JSR L0348AB
|
|
BCC L03421C
|
|
RTS
|
|
|
|
L03421C LDA #L0301D1
|
|
STA $68
|
|
LDA #^L0301D1
|
|
STA $6A
|
|
LDAL L0301D1
|
|
INC
|
|
STA L032EB4
|
|
STZ L032EB6
|
|
JSR L0348AB
|
|
BCC L034237
|
|
RTS
|
|
|
|
L034237 LDA #$0000
|
|
CLC
|
|
RTS
|
|
|
|
L03423C PEA $400C
|
|
_SysBeep2
|
|
LDA #$0002
|
|
LDX #L0342F1
|
|
JSR L033456
|
|
LDA #$8011
|
|
SEC
|
|
RTS
|
|
|
|
L034254 ASC ' is full. Please insert another blank '
|
|
L03427B DB $00
|
|
DB $00
|
|
L03427D DB $00
|
|
DB $00
|
|
ASC '.'
|
|
DB $00
|
|
L034281 DB $00
|
|
L034282 DB $00
|
|
DB $00
|
|
L034284 DB $00
|
|
DB $00
|
|
ASC ' number '
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L0342BF STR 'Please insert the first '00000000' for this backup set.'
|
|
L0342F1 STR 'The destination device for the backup is full and contains non-removable media. The backup must now be aborted.'
|
|
L034361 DB $00
|
|
ASC 'OK to destroy volume '
|
|
L034377 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L03439A STR 'A media error occurred while writing the last disk/tape. Insert a new one for retry.'
|
|
L0343EF STR 'Verifying diskI'
|
|
L0343FF STR 'Initializing mediaI'
|
|
L034413 STR 'Sorry, you inserted an earlier member of this backup set! Please use another piece of media.'
|
|
L034471 STR 'The media you inserted contains an earlier Archiver backup. Do you still want to use it?'
|
|
L0344CB STR 'Sorry, you cannot back up to that disk because it contains files that are in use.'
|
|
L03451D DW $0005 ; Parms for DStatus
|
|
L03451F DW $0000 ; device num
|
|
DW $0000 ; status code
|
|
ADRL L03452F ; status list
|
|
ADRL $00000006 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
L03452F DB $00
|
|
DB $00
|
|
L034531 DB $00
|
|
DB $00
|
|
L034533 DB $00
|
|
DB $00
|
|
L034535 DW $0006 ; Parms for DWrite
|
|
L034537 DW $0000 ; device num
|
|
ADRL $00FF0000 ; buffer ptr
|
|
L03453D ADRL $00000000 ; request count
|
|
L034541 ADRL $00000000 ; starting block
|
|
L034545 DW $0000 ; block size
|
|
ADRL $00000000 ; transfer count
|
|
L03454B DW $0000
|
|
L03454D LDA L032EBC
|
|
ORA L032EBE
|
|
BNE L034558
|
|
BRL L0346DF
|
|
L034558 LDX L0370B4
|
|
JSR L03793E
|
|
LDA L032EDA
|
|
BNE L0345A9
|
|
LDA #$0004
|
|
STA [$02]
|
|
LDA L032FE2
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $6C
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $6E
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EBC
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EBE
|
|
STA [$02],Y
|
|
LDA #$2013
|
|
JSR L033500
|
|
BCS L0345A8
|
|
LDA L032FE8
|
|
CLC
|
|
ADC L032EBC
|
|
STA L032FE8
|
|
LDA L032FEA
|
|
ADC L032EBE
|
|
STA L032FEA
|
|
BRL L034748
|
|
L0345A8 RTS
|
|
|
|
L0345A9 LDA L0370B0
|
|
BEQ L0345B4
|
|
L0345AE JSR L033A5C
|
|
BCC L0345B4
|
|
RTS
|
|
|
|
L0345B4 BIT L032FD6
|
|
BPL L0345E0
|
|
LDA $6C
|
|
STA $96
|
|
LDA $6E
|
|
STA $98
|
|
LDA #$0000
|
|
STAL L040029
|
|
JSL L041DEA
|
|
BCS L0345D1
|
|
BRL L03467C
|
|
L0345D1 AND #$00FF
|
|
CMP #$002F
|
|
BEQ L0345AE
|
|
CMP #$002E
|
|
BEQ L0345AE
|
|
SEC
|
|
RTS
|
|
|
|
L0345E0 LDA L032EBC
|
|
LDY L032EBE
|
|
JSR L033372
|
|
STY L032EE6
|
|
TXY
|
|
BEQ L0345F0
|
|
INC
|
|
L0345F0 STA L032EE4
|
|
LDA L032EE4
|
|
STA L032EF4
|
|
LDA L032EF4
|
|
STA L032EEC
|
|
STZ L032EEE
|
|
LDX L032ED4
|
|
L034605 ASL L032EEC
|
|
ROL L032EEE
|
|
DEX
|
|
BNE L034605
|
|
LDA #$0006
|
|
LDY #$0000
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EDA
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $6C
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $6E
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EEC
|
|
STA [$02],Y
|
|
LDA L032EEE
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EE8
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EEA
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EF0
|
|
STA [$02],Y
|
|
LDA #$2030
|
|
JSR L033500
|
|
BCC L03467C
|
|
CMP #$002F
|
|
BNE L03465C
|
|
L034659 BRL L0345AE
|
|
L03465C CMP #$002E
|
|
BEQ L034659
|
|
LDX L0330D2
|
|
BNE L03467A
|
|
CMP #$0027
|
|
BNE L03467A
|
|
TAX
|
|
LDA L032EF2
|
|
AND #$0004
|
|
TAY
|
|
TXA
|
|
TYX
|
|
BEQ L03467A
|
|
JMP L033EC4
|
|
|
|
L03467A SEC
|
|
RTS
|
|
|
|
L03467C STZ L0370B0
|
|
BIT L032FD6
|
|
BPL L0346BD
|
|
LDA L032EE8
|
|
CLC
|
|
ADC L032FDC
|
|
STA L032EE8
|
|
LDAL L040026
|
|
EOR #$8000
|
|
STAL L040026
|
|
BMI L0346DF
|
|
LDAL L040025
|
|
INC
|
|
STAL L040025
|
|
CMP #$0050
|
|
BNE L0346DF
|
|
LDA L033132
|
|
STA $78
|
|
LDA L033134
|
|
STA $7A
|
|
LDY #$000A
|
|
LDA #$0640
|
|
STA [$78],Y
|
|
BRA L0346DC
|
|
L0346BD LDA L032EE8
|
|
CLC
|
|
ADC L032EF4
|
|
STA L032EE8
|
|
BCC L0346CC
|
|
INC L032EE8
|
|
L0346CC LDA L032EE8
|
|
CMP L032ED6
|
|
BNE L0346DF
|
|
LDA L032EEA
|
|
CMP L032ED8
|
|
BNE L0346DF
|
|
L0346DC JMP L033E8A
|
|
|
|
L0346DF LDA L032EDA
|
|
BEQ L034748
|
|
BIT L032FD6
|
|
BPL L034708
|
|
LDAL L040025
|
|
AND #$00FF
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
EOR #$FFFF
|
|
SEC
|
|
ADC #$000C
|
|
STA L032FDC
|
|
XBA
|
|
ASL
|
|
STA L032EC8
|
|
STZ L032ECA
|
|
BRA L034748
|
|
L034708 LDA L032ED6
|
|
SEC
|
|
SBC L032EE8
|
|
TAX
|
|
LDA L032ED8
|
|
SBC L032EEA
|
|
BNE L03473C
|
|
STZ L032ECA
|
|
STX L032EC8
|
|
LDX L032ED4
|
|
L034721 ASL L032EC8
|
|
ROL L032ECA
|
|
DEX
|
|
BNE L034721
|
|
LDA L032ECA
|
|
CMP L032EC2
|
|
BCC L034748
|
|
BNE L03473C
|
|
LDA L032EC8
|
|
CMP L032EC0
|
|
BCC L034748
|
|
L03473C LDA L032EC0
|
|
STA L032EC8
|
|
LDA L032EC2
|
|
STA L032ECA
|
|
L034748 STZ L032EBC
|
|
STZ L032EBE
|
|
LDA #$0000
|
|
CLC
|
|
RTS
|
|
|
|
L034753 STR 'Writing data to backup setI'
|
|
L03476F LDA #$0200
|
|
LDX L032EDC
|
|
CPX #$0020
|
|
BNE L03477D
|
|
LDA #$2000
|
|
L03477D STA L032EF0
|
|
LDA #$0000
|
|
CLC
|
|
RTS
|
|
|
|
L034785 LDY #$000A
|
|
STA [$02],Y
|
|
LDY #$0008
|
|
TXA
|
|
STA [$02],Y
|
|
LDY #$0006
|
|
L034793 LDA L0347C4,Y
|
|
STA [$02],Y
|
|
DEY
|
|
DEY
|
|
BPL L034793
|
|
LDY #$0026
|
|
LDA #L033104
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L033104
|
|
STA [$02],Y
|
|
LDA #$2010
|
|
JSR L033500
|
|
BCC L0347B7
|
|
STZ L032ED0
|
|
RTS
|
|
|
|
L0347B7 LDY #$0002
|
|
LDA [$02],Y
|
|
STA L032ED0
|
|
LDA #$0000
|
|
CLC
|
|
RTS
|
|
|
|
L0347C4 DW $000F
|
|
DW $0000
|
|
ADRL L0301D1
|
|
L0347CC LDA L032F0C
|
|
STA L033032
|
|
JSR L034C90
|
|
STX L03302E
|
|
STA L033030
|
|
JSR L03454D
|
|
BCC L0347E1
|
|
RTS
|
|
|
|
L0347E1 BIT L032FD6
|
|
BPL L03484A
|
|
LDAL L040025
|
|
ORAL L040027
|
|
BEQ L034838
|
|
LDX #L034894
|
|
JSR L03793E
|
|
LDA L0370B0
|
|
BEQ L034801
|
|
L0347FB JSR L033A5C
|
|
BCC L034801
|
|
RTS
|
|
|
|
L034801 LDA #$8000
|
|
STAL L040029
|
|
JSL L041DEA
|
|
BCC L03481D
|
|
AND #$00FF
|
|
CMP #$002F
|
|
BEQ L0347FB
|
|
CMP #$002E
|
|
BEQ L0347FB
|
|
SEC
|
|
RTS
|
|
|
|
L03481D LDAL L040026
|
|
EOR #$8000
|
|
STAL L040026
|
|
BMI L034801
|
|
LDAL L040025
|
|
INC
|
|
STAL L040025
|
|
CMP #$0050
|
|
BNE L034801
|
|
L034838 LDA L033132
|
|
STA $78
|
|
LDA L033134
|
|
STA $7A
|
|
LDY #$000A
|
|
LDA #$0640
|
|
STA [$78],Y
|
|
L03484A LDA L032FD2
|
|
CLC
|
|
ADC L032FCE
|
|
STA L032FCE
|
|
LDA L032FD4
|
|
ADC L032FD0
|
|
STA L032FD0
|
|
JSR L03353E
|
|
STZ L032FD2
|
|
STZ L032FD4
|
|
BIT L032FD6
|
|
BPL L034892
|
|
LDAL L060002
|
|
AND #$0010
|
|
BEQ L034892
|
|
LDA L0370AA
|
|
STA L0370AC
|
|
LDX #L0343EF
|
|
JSR L03793E
|
|
JSR L0395E4
|
|
PHP
|
|
PHA
|
|
LDX L0370AC
|
|
JSR L03793E
|
|
PLA
|
|
PLP
|
|
BCC L034892
|
|
JMP L033EC4
|
|
|
|
L034892 CLC
|
|
RTS
|
|
|
|
L034894 STR 'Finishing disk formatI'
|
|
L0348AB TSC
|
|
SEC
|
|
SBC #$000C
|
|
TCS
|
|
LDA $68
|
|
STA $01,S
|
|
LDA $6A
|
|
STA $03,S
|
|
LDA L032EB4
|
|
STA $05,S
|
|
LDA L032EB6
|
|
STA $07,S
|
|
L0348C3 LDA L032EBC
|
|
CLC
|
|
ADC $05,S
|
|
STA L032EC4
|
|
LDA L032EBE
|
|
ADC $07,S
|
|
STA L032EC6
|
|
CMP L032ECA
|
|
BCC L0348EF
|
|
BNE L0348E3
|
|
LDA L032EC8
|
|
CMP L032EC4
|
|
BCS L0348EF
|
|
L0348E3 LDA L032EC8
|
|
STA L032EC4
|
|
LDA L032ECA
|
|
STA L032EC6
|
|
L0348EF LDA L032EC4
|
|
SEC
|
|
SBC L032EBC
|
|
STA $09,S
|
|
LDA L032EC6
|
|
SBC L032EBE
|
|
STA $0B,S
|
|
LDA $01,S
|
|
TAX
|
|
LDA $03,S
|
|
PHA
|
|
PHX
|
|
LDA $6C
|
|
CLC
|
|
ADC L032EBC
|
|
TAX
|
|
LDA $6E
|
|
ADC L032EBE
|
|
PHA
|
|
PHX
|
|
LDA $11,S
|
|
TAX
|
|
LDA $13,S
|
|
PHA
|
|
PHX
|
|
_BlockMove
|
|
LDA L032EC4
|
|
LDX L032EC6
|
|
STA L032EBC
|
|
STX L032EBE
|
|
CMP L032EC8
|
|
BNE L03496F
|
|
CPX L032ECA
|
|
BNE L03496F
|
|
LDA L0370AA
|
|
STA L03497E
|
|
JSR L03454D
|
|
BCS L034972
|
|
LDX L03497E
|
|
JSR L03793E
|
|
LDA $01,S
|
|
CLC
|
|
ADC $09,S
|
|
STA $01,S
|
|
LDA $03,S
|
|
ADC $0B,S
|
|
STA $03,S
|
|
LDA $05,S
|
|
SEC
|
|
SBC $09,S
|
|
STA $05,S
|
|
TAX
|
|
LDA $07,S
|
|
SBC $0B,S
|
|
STA $07,S
|
|
BNE L03496C
|
|
TXA
|
|
BNE L03496C
|
|
BRA L03496F
|
|
L03496C BRL L0348C3
|
|
L03496F LDA #$0000
|
|
L034972 TAX
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TXA
|
|
CMP #$0001
|
|
RTS
|
|
|
|
L03497E DW $0000
|
|
L034980 LDA #$0004
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032ED0
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $70
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $72
|
|
STA [$02],Y
|
|
LDY #$0008
|
|
LDA L032EDE
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EE0
|
|
STA [$02],Y
|
|
LDA #$2012
|
|
JSR L033500
|
|
RTS
|
|
|
|
L0349AF LDA L032ECC
|
|
STA L032EB8
|
|
LDA L032ECE
|
|
STA L032EBA
|
|
L0349BB LDA L032EBC
|
|
CLC
|
|
ADC L032EB8
|
|
STA L032EC4
|
|
LDA L032EBE
|
|
ADC L032EBA
|
|
STA L032EC6
|
|
CMP L032ECA
|
|
BCC L0349E9
|
|
BNE L0349DD
|
|
LDA L032EC8
|
|
CMP L032EC4
|
|
BCS L0349E9
|
|
L0349DD LDA L032EC8
|
|
STA L032EC4
|
|
LDA L032ECA
|
|
STA L032EC6
|
|
L0349E9 LDA L032EC4
|
|
SEC
|
|
SBC L032EBC
|
|
STA L032EDE
|
|
LDA L032EC6
|
|
SBC L032EBE
|
|
STA L032EE0
|
|
LDA $6C
|
|
CLC
|
|
ADC L032EBC
|
|
STA $70
|
|
LDA $6E
|
|
ADC L032EBE
|
|
STA $72
|
|
JSR L034980
|
|
BCC L034A13
|
|
SEP #$41
|
|
RTS
|
|
|
|
L034A13 LDA L032EE0
|
|
STA $78
|
|
LDA L032EDE
|
|
LSR $78
|
|
ROR
|
|
TAY
|
|
CLC
|
|
ADC L032FD2
|
|
STA L032FD2
|
|
LDA $78
|
|
ADC L032FD4
|
|
STA L032FD4
|
|
TYA
|
|
CLC
|
|
ADC L032FCE
|
|
STA L032FCE
|
|
LDA L032FD0
|
|
ADC $78
|
|
STA L032FD0
|
|
JSR L03353E
|
|
LDA L032EB8
|
|
SEC
|
|
SBC L032EDE
|
|
STA L032EB8
|
|
LDA L032EBA
|
|
SBC L032EE0
|
|
STA L032EBA
|
|
LDA L032EC4
|
|
LDX L032EC6
|
|
STA L032EBC
|
|
STX L032EBE
|
|
CMP L032EC8
|
|
BNE L034A6A
|
|
CPX L032ECA
|
|
BEQ L034A6D
|
|
L034A6A BRL L034AF7
|
|
L034A6D LDA #L033ABE
|
|
STA L033054
|
|
LDA $0A
|
|
STA L033094
|
|
LDA $0C
|
|
STA L033096
|
|
LDA L032FCE
|
|
STA L033098
|
|
LDA L032FD0
|
|
STA L03309A
|
|
LDA L032F2A
|
|
STA L03309C
|
|
LDA L030BE8
|
|
STA L03309E
|
|
LDA L032ECC
|
|
STA L0330A0
|
|
LDA L032ECE
|
|
STA L0330A2
|
|
LDA L032EB8
|
|
STA L0330A4
|
|
LDA L032EBA
|
|
STA L0330A6
|
|
LDA L032ED2
|
|
STA L0330A8
|
|
LDA L0370AA
|
|
STA L0370AC
|
|
SEC
|
|
ROR L0370C6
|
|
L034ABD JSR L03454D
|
|
BCC L034AC5
|
|
REP #$40
|
|
RTS
|
|
|
|
L034AC5 STZ L0370C6
|
|
LDX L0370B2
|
|
JSR L03793E
|
|
LDA L032FD2
|
|
CLC
|
|
ADC L032FCE
|
|
STA L032FCE
|
|
LDA L032FD4
|
|
ADC L032FD0
|
|
STA L032FD0
|
|
JSR L03353E
|
|
STZ L032FD2
|
|
STZ L032FD4
|
|
LDA L032EB8
|
|
ORA L032EBA
|
|
BNE L034AF4
|
|
BRA L034AF7
|
|
L034AF4 BRL L0349BB
|
|
L034AF7 LDA #$0000
|
|
CLC
|
|
RTS
|
|
|
|
L034AFC LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032ED0
|
|
BEQ L034B17
|
|
STA [$02],Y
|
|
LDA #$2014
|
|
JSR L033500
|
|
BCC L034B17
|
|
STZ L032ED0
|
|
RTS
|
|
|
|
L034B17 LDA #$0000
|
|
CLC
|
|
RTS
|
|
|
|
L034B1C PHX
|
|
PHA
|
|
LDA #$0003
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE2
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
PLA
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
PLA
|
|
STA [$02],Y
|
|
LDA #$2016
|
|
JSR L033500
|
|
RTS
|
|
|
|
L034B43 STZ L033038
|
|
LDA #L033B8E
|
|
STA L033054
|
|
LDA $0A
|
|
STA L033094
|
|
LDA $0C
|
|
STA L033096
|
|
LDA L032FCE
|
|
STA L033098
|
|
LDA L032FD0
|
|
STA L03309A
|
|
LDA L032F2A
|
|
STA L03309C
|
|
LDA L032EC8
|
|
SEC
|
|
SBC L032EBC
|
|
TAX
|
|
LDA L032ECA
|
|
SBC L032EBE
|
|
BNE L034B7D
|
|
STX L0330A0
|
|
BRA L034B86
|
|
L034B7D STZ L0330A0
|
|
LDA L030BE8
|
|
STA L03309E
|
|
L034B86 LDX #$0060
|
|
L034B89 DEX
|
|
DEX
|
|
STZ L032F2C,X
|
|
BNE L034B89
|
|
LDA L032EA8
|
|
EOR L032F08
|
|
STA L032F2C
|
|
LDA L032EAA
|
|
EOR L032F0A
|
|
STA L032F2E
|
|
LDA L032EAC
|
|
STA L032F30
|
|
LDAL L0301D1
|
|
DEC
|
|
CLC
|
|
ADC #$0062
|
|
STA L032F32
|
|
LDA L032EE2
|
|
STA L032F56
|
|
LDA #$0000
|
|
STA L032F58
|
|
STA L032F5A
|
|
STA L032F5C
|
|
STA L032F5E
|
|
LDX #$FFFE
|
|
L034BCC INX
|
|
INX
|
|
LDA L034C64,X
|
|
BMI L034BCC
|
|
BEQ L034BDD
|
|
TAY
|
|
LDA [$02],Y
|
|
STA L032F2C,X
|
|
BRA L034BCC
|
|
L034BDD LDX #$002A
|
|
L034BE0 LDA L033106,X
|
|
STA L032F60,X
|
|
DEX
|
|
DEX
|
|
BPL L034BE0
|
|
LDA L033038
|
|
SEC
|
|
SBC #$0060
|
|
BCC L034BF8
|
|
STA L033038
|
|
BRA L034C20
|
|
L034BF8 LDA #L032F2C
|
|
CLC
|
|
ADC L033038
|
|
STA $68
|
|
LDA #^L032F2C
|
|
ADC #$0000
|
|
STA $6A
|
|
LDA #$0060
|
|
SEC
|
|
SBC L033038
|
|
STA L032EB4
|
|
STZ L032EB6
|
|
STZ L033038
|
|
JSR L0348AB
|
|
BCC L034C20
|
|
BRA L034C4A
|
|
L034C20 LDA #L0301D1
|
|
CLC
|
|
ADC L033038
|
|
STA $68
|
|
LDA #^L0301D1
|
|
ADC #$0000
|
|
STA $6A
|
|
LDAL L0301D1
|
|
INC
|
|
SEC
|
|
SBC L033038
|
|
BCS L034C41
|
|
LDA #$0000
|
|
BRA L034C4A
|
|
L034C41 STA L032EB4
|
|
STZ L032EB6
|
|
JSR L0348AB
|
|
L034C4A TAX
|
|
LDA L032EF6
|
|
STA $78
|
|
LDA L032EF8
|
|
STA $7A
|
|
LDY #$0004
|
|
LDA [$78],Y
|
|
AND #$7FFF
|
|
STA [$78],Y
|
|
TXA
|
|
CMP #$0001
|
|
RTS
|
|
|
|
L034C64 DW $8000
|
|
DW $8000
|
|
DW $8000
|
|
DW $8000
|
|
DW $000C
|
|
DW $000E
|
|
DW $0010
|
|
DW $0012
|
|
DW $0014
|
|
DW $002A
|
|
DW $002C
|
|
DW $0016
|
|
DW $0018
|
|
DW $001A
|
|
DW $001C
|
|
DW $001E
|
|
DW $0020
|
|
DW $0022
|
|
DW $0024
|
|
DW $0032
|
|
DW $0034
|
|
DW $0000
|
|
L034C90 LDA L032EDA
|
|
BNE L034CA4
|
|
LDA L032FE8
|
|
CLC
|
|
ADC L032EBC
|
|
TAX
|
|
LDA L032FEA
|
|
ADC L032EBE
|
|
RTS
|
|
|
|
L034CA4 LDA L032EBC
|
|
STA L032F1A
|
|
LDA L032EBE
|
|
STA L032F1C
|
|
LDA L032EEA
|
|
STA L032F20
|
|
LDA L032EE8
|
|
LDX L032ED4
|
|
L034CBC ASL
|
|
ROL L032F20
|
|
DEX
|
|
BNE L034CBC
|
|
STA L032F1E
|
|
CLC
|
|
ADC L032F1A
|
|
TAX
|
|
LDA L032F20
|
|
ADC L032F1C
|
|
RTS
|
|
|
|
L034CD2 LDX L0370B2
|
|
JSR L03793E
|
|
STZ L0370C6
|
|
JSR L033419
|
|
L034CDE LDY #$0002
|
|
LDA [$0A],Y
|
|
CMP #$000F
|
|
BNE L034CEB
|
|
BRL L034DD0
|
|
L034CEB JSR L034C90
|
|
LDY #$0026
|
|
STA [$0A],Y
|
|
DEY
|
|
DEY
|
|
TXA
|
|
STA [$0A],Y
|
|
LDY #$0022
|
|
LDA L032F0C
|
|
STA [$0A],Y
|
|
LDA #$0000
|
|
LDX #$0001
|
|
JSR L034785
|
|
BCC L034D14
|
|
JSR L031B6F
|
|
BCC L034D11
|
|
RTS
|
|
|
|
L034D11 BRL L034DD0
|
|
L034D14 LDA #$8000
|
|
TSB L032F2A
|
|
LDX #L030B20
|
|
JSR L0305D3
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
CMP #$000F
|
|
BNE L034D33
|
|
STZ L032F2A
|
|
JSR L034AFC
|
|
BRL L034DD0
|
|
L034D33 LDY #$002A
|
|
LDA [$02],Y
|
|
STA L03313A
|
|
INY
|
|
INY
|
|
LDA [$02],Y
|
|
STA L03313C
|
|
LDY #$0014
|
|
LDA [$02],Y
|
|
STA L03313E
|
|
SEC
|
|
ROR L0370C6
|
|
L034D4E JSR L034B43
|
|
BCC L034D54
|
|
RTS
|
|
|
|
L034D54 STZ L0370C6
|
|
LDA L032F32
|
|
LDY #$0028
|
|
STA [$0A],Y
|
|
LDA L03313A
|
|
STA L032ECC
|
|
LDA L03313C
|
|
STA L032ECE
|
|
LDA L03313E
|
|
STA L032ED2
|
|
L034D71 JSR L0349AF
|
|
BCC L034D89
|
|
L034D76 BVS L034D7A
|
|
L034D78 SEC
|
|
RTS
|
|
|
|
L034D7A PHA
|
|
JSR L034AFC
|
|
STZ L032F2A
|
|
PLA
|
|
L034D82 JSR L031B6F
|
|
BCS L034D78
|
|
BRA L034DD0
|
|
L034D89 JSR L034AFC
|
|
BCS L034D78
|
|
STZ L032F2A
|
|
LDA L032ED2
|
|
CMP #$0005
|
|
BNE L034DC6
|
|
LDA #$0001
|
|
LDX #$0001
|
|
JSR L034785
|
|
BCS L034D82
|
|
LDA #$4000
|
|
TSB L032F2A
|
|
LDY #$0032
|
|
LDA [$02],Y
|
|
STA L032ECC
|
|
INY
|
|
INY
|
|
LDA [$02],Y
|
|
STA L032ECE
|
|
L034DB9 JSR L0349AF
|
|
BCS L034D76
|
|
JSR L034AFC
|
|
STZ L032F2A
|
|
BCS L034D82
|
|
L034DC6 LDY #$001C
|
|
LDA [$0A],Y
|
|
AND #$FF7F
|
|
STA [$0A],Y
|
|
L034DD0 LDA #$2000
|
|
STA L033024
|
|
JSR L0333A2
|
|
BCS L034DE4
|
|
JSR L0334DA
|
|
BCC L034DE1
|
|
RTS
|
|
|
|
L034DE1 BRL L034CDE
|
|
L034DE4 LDA #$0000
|
|
CLC
|
|
RTS
|
|
|
|
L034DE9 LDA L032EF0
|
|
CMP #$0200
|
|
BEQ L034DF5
|
|
STZ L032F0E
|
|
RTS
|
|
|
|
L034DF5 LDA L032ED8
|
|
BEQ L034E01
|
|
LDA #$0010
|
|
STA L032F0E
|
|
RTS
|
|
|
|
L034E01 STZ L032F0E
|
|
LDA L032ED6
|
|
LDX #$0004
|
|
L034E0A ASL
|
|
ROL L032F0E
|
|
DEX
|
|
BNE L034E0A
|
|
TAX
|
|
BEQ L034E17
|
|
INC L032F0E
|
|
L034E17 RTS
|
|
|
|
L034E18 SEC
|
|
JSR L033340
|
|
LDY #$0008
|
|
LDX #$000A
|
|
L034E22 LDA L032E9F+7,X
|
|
STA [$74],Y
|
|
DEY
|
|
DEY
|
|
DEX
|
|
DEX
|
|
BNE L034E22
|
|
LDY #$000A
|
|
LDA L033034
|
|
STA [$74],Y
|
|
LDY #$0012
|
|
LDX #$0008
|
|
L034E3B LDA L032EF8,X
|
|
STA [$74],Y
|
|
DEY
|
|
DEY
|
|
DEX
|
|
DEX
|
|
BNE L034E3B
|
|
CPY #$0012
|
|
BEQ L034E53
|
|
LDY #$001A
|
|
LDX #$0008
|
|
BRA L034E3B
|
|
L034E53 LDA L032F02
|
|
STA $78
|
|
LDA L032F04
|
|
STA $7A
|
|
LDY #$0002
|
|
LDA [$78],Y
|
|
TAX
|
|
LDA [$78]
|
|
SEC
|
|
SBC #$001E
|
|
STA $78
|
|
BCS L034E6E
|
|
DEX
|
|
L034E6E STX $7A
|
|
LDY #$001E
|
|
LDX #$0014
|
|
L034E76 LDA [$78],Y
|
|
STA [$74],Y
|
|
INY
|
|
INY
|
|
DEX
|
|
BNE L034E76
|
|
LDA #$001E
|
|
CLC
|
|
ADC L032F06
|
|
TAY
|
|
SEP #$20
|
|
LDA #$20
|
|
L034E8B CPY #$0046
|
|
BEQ L034E95
|
|
STA [$74],Y
|
|
INY
|
|
BRA L034E8B
|
|
L034E95 REP #$20
|
|
LDA L032F08
|
|
LDY #$0046
|
|
STA [$74],Y
|
|
INY
|
|
INY
|
|
LDA L032F0A
|
|
STA [$74],Y
|
|
LDY #$004A
|
|
LDA L032F0C
|
|
STA [$74],Y
|
|
BIT L032FD8
|
|
BMI L034EC9
|
|
LDY #$01B2
|
|
LDA [$06],Y
|
|
TAX
|
|
INY
|
|
INY
|
|
LDA [$06],Y
|
|
LDY #$0050
|
|
STA [$74],Y
|
|
DEY
|
|
DEY
|
|
TXA
|
|
STA [$74],Y
|
|
BRA L034ED8
|
|
L034EC9 LDA L037042
|
|
LDY #$004E
|
|
STA [$74],Y
|
|
LDA L037044
|
|
INY
|
|
INY
|
|
STA [$74],Y
|
|
L034ED8 JSR L034DE9
|
|
BIT L032FD8
|
|
BMI L034EE6
|
|
LDA L032F0C
|
|
DEC
|
|
BNE L034F0A
|
|
L034EE6 LDA L032EF0
|
|
CMP #$0200
|
|
BEQ L034EF3
|
|
LDA #$0400
|
|
BRA L034EFB
|
|
L034EF3 LDA L032F0E
|
|
INC
|
|
INC
|
|
INC
|
|
XBA
|
|
ASL
|
|
L034EFB LDY #$0054
|
|
STA [$74],Y
|
|
STA L032F28
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$74],Y
|
|
L034F0A BIT L032FD8
|
|
BMI L034F2E
|
|
LDY #$000C
|
|
LDA [$06],Y
|
|
TAX
|
|
DEY
|
|
DEY
|
|
LDA [$06],Y
|
|
LDY #$000E
|
|
CLC
|
|
ADC [$06],Y
|
|
BCC L034F22
|
|
INX
|
|
L034F22 LDY #$0058
|
|
STA [$74],Y
|
|
TXA
|
|
INY
|
|
INY
|
|
STA [$74],Y
|
|
BRA L034F56
|
|
L034F2E LDA L037046
|
|
LDY #$005C
|
|
STA [$74],Y
|
|
LDA L037054
|
|
LDY #$0062
|
|
STA [$74],Y
|
|
LDA L03704C
|
|
LDY #$0060
|
|
STA [$74],Y
|
|
LDA L037022
|
|
LDY #$006C
|
|
STA [$74],Y
|
|
LDA L03705A
|
|
LDY #$006E
|
|
STA [$74],Y
|
|
L034F56 LDA $74
|
|
STA $68
|
|
LDA $76
|
|
STA $6A
|
|
LDA #$0200
|
|
STA L032EB4
|
|
STZ L032EB6
|
|
JSR L0348AB
|
|
BCC L034F6D
|
|
RTS
|
|
|
|
L034F6D LDX L032EF6
|
|
STX $78
|
|
LDX L032EF8
|
|
STX $7A
|
|
LDY #$0004
|
|
LDA [$78],Y
|
|
AND #$7FFF
|
|
STA [$78],Y
|
|
LDA #$0000
|
|
CLC
|
|
RTS
|
|
|
|
L034F86 LDA #$0008
|
|
STA [$02]
|
|
LDA L032EDA
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA #L034FEA
|
|
LDY #$0004
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L034FEA
|
|
STA [$02],Y
|
|
LDA #$202C
|
|
JSR L033500
|
|
BCC L034FAB
|
|
RTS
|
|
|
|
L034FAB LDY #$000A
|
|
LDA [$02],Y
|
|
STA L032ED6
|
|
INY
|
|
INY
|
|
LDA [$02],Y
|
|
STA L032ED8
|
|
LDY #$0014
|
|
LDA [$02],Y
|
|
STA L032EDC
|
|
LDY #$0010
|
|
LDA [$02],Y
|
|
STA L032FDE
|
|
LDY #$000E
|
|
LDA [$02],Y
|
|
STA L032FE0
|
|
JSR L03476F
|
|
BCC L034FD8
|
|
RTS
|
|
|
|
L034FD8 LDA L032EF0
|
|
LDX #$FFFF
|
|
L034FDE INX
|
|
LSR
|
|
BCC L034FDE
|
|
STX L032ED4
|
|
LDA #$0000
|
|
CLC
|
|
RTS
|
|
|
|
L034FEA CLC
|
|
DB $00
|
|
L034FEC DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L035002 LDA L032FE0
|
|
CMP #$0005
|
|
BNE L035036
|
|
STZ L032FDA
|
|
STZ L035097
|
|
LDA #$0008
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #$0001
|
|
STA [$02],Y
|
|
LDY #$0004
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
L035029 LDA #$202C
|
|
JSR L033500
|
|
BCC L035038
|
|
CMP #$0011
|
|
BEQ L03508D
|
|
L035036 SEC
|
|
RTS
|
|
|
|
L035038 LDY #$0014
|
|
LDA [$02],Y
|
|
CMP #$0003
|
|
BNE L035083
|
|
LDY #$000E
|
|
LDA [$02],Y
|
|
CMP #$0005
|
|
BNE L035083
|
|
LDAL $00BD20
|
|
STA $78
|
|
LDAL $00BD22
|
|
STA $7A
|
|
LDY #$0044
|
|
LDA [$78],Y
|
|
CMP #$00C0
|
|
BNE L035083
|
|
LDY #$0010
|
|
LDA [$02],Y
|
|
CMP L032FDE
|
|
BEQ L035076
|
|
BCS L035083
|
|
LDA #$0001
|
|
STA L032FDA
|
|
BRA L035083
|
|
L035076 INC L035097
|
|
LDA $78
|
|
STA L033132
|
|
LDA $7A
|
|
STA L033134
|
|
L035083 LDY #$0002
|
|
LDA [$02],Y
|
|
INC
|
|
STA [$02],Y
|
|
BRA L035029
|
|
L03508D LDA L035097
|
|
BEQ L035036
|
|
LDA L032FDA
|
|
CLC
|
|
RTS
|
|
|
|
L035097 DW $0000
|
|
L035099 LDA L032F0C
|
|
PHA
|
|
PEA ^L035178
|
|
PEA L035178
|
|
PEA $0005
|
|
PEA $0000
|
|
_Int2Dec
|
|
LDX #$0005
|
|
SEP #$20
|
|
L0350B5 LDA L03516F+8,X
|
|
CMP #$20
|
|
BNE L0350C1
|
|
LDA #$30
|
|
STA L03516F+8,X
|
|
L0350C1 DEX
|
|
BNE L0350B5
|
|
REP #$20
|
|
LDA L032ED8
|
|
BEQ L0350D0
|
|
LDA #$FFFF
|
|
BRA L0350D3
|
|
L0350D0 LDA L032ED6
|
|
L0350D3 STA L035193
|
|
LDA L032EFE
|
|
CLC
|
|
ADC #$0101
|
|
SEP #$20
|
|
ASL
|
|
ASL
|
|
ASL
|
|
REP #$20
|
|
LSR
|
|
LSR
|
|
LSR
|
|
AND #$01FF
|
|
STA L035186
|
|
LDA L032EFD
|
|
AND #$007F
|
|
ASL
|
|
XBA
|
|
ORA L035186
|
|
STA L035186
|
|
STA L035180
|
|
LDA L032EFB
|
|
STA L035188
|
|
STA L035182
|
|
SEC
|
|
JSR L033340
|
|
LDY #$0029
|
|
L03510E LDA L03516A,Y
|
|
STA [$74],Y
|
|
DEY
|
|
DEY
|
|
BPL L03510E
|
|
LDA $74
|
|
STA $68
|
|
LDA $76
|
|
STA $6A
|
|
LDA #$0200
|
|
STA L032EB4
|
|
STZ L032EB6
|
|
JSR L0348AB
|
|
BCC L03512F
|
|
BRA L035150
|
|
L03512F LDY #$01FE
|
|
LDA #$0000
|
|
L035135 STA [$74],Y
|
|
DEY
|
|
DEY
|
|
BPL L035135
|
|
LDA L032F0E
|
|
STA L035195
|
|
L035141 JSR L0348AB
|
|
BCC L035148
|
|
BRA L035150
|
|
L035148 DEC L035195
|
|
BNE L035141
|
|
LDA #$0000
|
|
L035150 TAX
|
|
LDA L032EF6
|
|
STA $78
|
|
LDA L032EF8
|
|
STA $7A
|
|
LDY #$0004
|
|
LDA [$78],Y
|
|
AND #$7FFF
|
|
STA [$78],Y
|
|
TXA
|
|
CMP #$0001
|
|
RTS
|
|
|
|
L03516A DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
ASC "~"
|
|
L03516F ASC 'ARCHIVER.'
|
|
L035178 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L035180 DB $00
|
|
DB $00
|
|
L035182 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L035186 DB $00
|
|
DB $00
|
|
L035188 DB $00
|
|
DB $00
|
|
DB $08
|
|
DB $00
|
|
DB $C3
|
|
DB $27
|
|
DB $0D
|
|
DB $00
|
|
DB $00
|
|
DB $03
|
|
DB $00
|
|
L035193 DB $00
|
|
DB $00
|
|
L035195 DB $00
|
|
DB $00
|
|
L035197 STZ L032FD6
|
|
LDA L032EDA
|
|
BEQ L0351DF
|
|
LDA L032EDC
|
|
CMP #$0003
|
|
BNE L0351CA
|
|
LDA L032EC2
|
|
BNE L0351B4
|
|
LDA L032EC0
|
|
CMP #$1800
|
|
BCC L0351CA
|
|
L0351B4 JSR L035002
|
|
BCS L0351CA
|
|
STAL L040023
|
|
LDA #$0640
|
|
STA L032ED6
|
|
STZ L032ED8
|
|
SEC
|
|
ROR L032FD6
|
|
L0351CA LDA L032EF2
|
|
AND #$0004
|
|
BEQ L0351D9
|
|
JSR L033E8A
|
|
BCC L0351DE
|
|
BCS L0351DE
|
|
L0351D9 JSR L0341A8
|
|
BCC L0351DE
|
|
L0351DE RTS
|
|
|
|
L0351DF STZ L032FE2
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE4
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032FE6
|
|
STA [$02],Y
|
|
LDA #$2002
|
|
JSR L033500
|
|
BCC L035205
|
|
CMP #$0046
|
|
BEQ L035205
|
|
SEC
|
|
RTS
|
|
|
|
L035205 LDA #$0005
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE4
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032FE6
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$00C3
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$00E0
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0004
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$2001
|
|
JSR L033500
|
|
BCC L035242
|
|
L035241 RTS
|
|
|
|
L035242 LDA #$0002
|
|
STA [$02]
|
|
LDY #$0004
|
|
LDA L032FE4
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032FE6
|
|
STA [$02],Y
|
|
LDA #$2010
|
|
JSR L033500
|
|
BCS L035241
|
|
LDY #$0002
|
|
LDA [$02],Y
|
|
STA L032FE2
|
|
STZ L032EBC
|
|
STZ L032EBE
|
|
LDA L032EC0
|
|
STA L032EC8
|
|
LDA L032EC2
|
|
STA L032ECA
|
|
STZ L032FE8
|
|
STZ L032FEA
|
|
JSR L034E18
|
|
RTS
|
|
|
|
L035282 LDA L032F0C
|
|
PHA
|
|
PEA ^L0330D6
|
|
PEA L0330D6
|
|
PEA $0005
|
|
PEA $0000
|
|
_Int2Dec
|
|
LDX #$0000
|
|
LDY #$FFFF
|
|
SEP #$20
|
|
L0352A1 INY
|
|
LDA L0330D6,Y
|
|
CMP #$20
|
|
BEQ L0352A1
|
|
L0352A9 ORA #$80
|
|
STA L033140+$F1,X
|
|
INX
|
|
INY
|
|
LDA L0330D6,Y
|
|
CPY #$0005
|
|
BNE L0352A9
|
|
STZ L033140+$F1,X
|
|
REP #$20
|
|
BIT L032FD8
|
|
BMI L0352CE
|
|
LDY #$01B2
|
|
LDA [$06],Y
|
|
TAX
|
|
INY
|
|
INY
|
|
LDA [$06],Y
|
|
BRA L0352D4
|
|
L0352CE LDX L037042
|
|
LDA L037044
|
|
L0352D4 PHA
|
|
PHX
|
|
PEA ^L0330D6
|
|
PEA L0330D6
|
|
PEA $000A
|
|
PEA $0000
|
|
_Long2Dec
|
|
SEP #$20
|
|
LDX #$0000
|
|
STZ $78
|
|
L0352F0 LDA L0330D6,X
|
|
CMP #$20
|
|
BNE L035302
|
|
DEC $78
|
|
BPL L0352FF
|
|
LDA #$02
|
|
STA $78
|
|
L0352FF INX
|
|
BRA L0352F0
|
|
L035302 LDY #$0000
|
|
L035305 LDA L0330D6,X
|
|
INX
|
|
L035309 ORA #$80
|
|
STA L033240+$14,Y
|
|
INY
|
|
CPX #$000A
|
|
BEQ L035320
|
|
DEC $78
|
|
BPL L035305
|
|
LDA #$03
|
|
STA $78
|
|
LDA #$AC
|
|
BRA L035309
|
|
L035320 LDX #$0000
|
|
BIT L032FD9
|
|
BMI L035334
|
|
L035328 LDA L03536E,X
|
|
STA L033240+$14,Y
|
|
BEQ L035340
|
|
INY
|
|
INX
|
|
BRA L035328
|
|
L035334 LDA L035375,X
|
|
STA L033240+$14,Y
|
|
BEQ L035340
|
|
INY
|
|
INX
|
|
BRA L035334
|
|
L035340 REP #$20
|
|
LDA #L033140
|
|
STA $68
|
|
LDA #^L033140
|
|
STA $6A
|
|
LDA #$0200
|
|
STA L032EB4
|
|
STZ L032EB6
|
|
JSR L0348AB
|
|
BCC L03535B
|
|
RTS
|
|
|
|
L03535B JSR L034E18
|
|
BCC L035361
|
|
RTS
|
|
|
|
L035361 LDA L032EF0
|
|
CMP #$0200
|
|
CLC
|
|
BNE L03536D
|
|
JSR L035099
|
|
L03536D RTS
|
|
|
|
L03536E ASC " BYTES"00
|
|
L035375 ASC " BLOCKS"00
|
|
L03537D _CompactMem
|
|
LDX #$0200
|
|
LDA #$0000
|
|
LDY L032F14
|
|
JSR L0325E6
|
|
STX L032EF6
|
|
STY L032EF8
|
|
BCC L03539C
|
|
LDA #$0054
|
|
RTS
|
|
|
|
L03539C LDA L032EDA
|
|
BEQ L0353E6
|
|
JSR L034F86
|
|
BCC L0353A7
|
|
RTS
|
|
|
|
L0353A7 LDA L032EF0
|
|
CMP #$0200
|
|
BEQ L0353E6
|
|
LDX L032EF6
|
|
STX $78
|
|
LDX L032EF8
|
|
STX $7A
|
|
LDY #$0004
|
|
LDA [$78],Y
|
|
AND #$7FFF
|
|
STA [$78],Y
|
|
PEA $0000
|
|
LDA L032EF0
|
|
PHA
|
|
PHX
|
|
LDA L032EF6
|
|
PHA
|
|
_SetHandleSize
|
|
BCC L0353DC
|
|
LDA #$0054
|
|
RTS
|
|
|
|
L0353DC LDY #$0004
|
|
LDA [$78],Y
|
|
ORA #$8000
|
|
STA [$78],Y
|
|
L0353E6 LDA #$0000
|
|
CLC
|
|
RTS
|
|
|
|
L0353EB LDA L032EF8
|
|
PHA
|
|
LDA L032EF6
|
|
PHA
|
|
_DisposeHandle
|
|
STZ L032EF8
|
|
RTS
|
|
|
|
L0353FE PHA
|
|
PHA
|
|
_MaxBlock
|
|
TAY
|
|
PLA
|
|
PLX
|
|
STA L03547A
|
|
STAL $0002F8
|
|
STX L03547C
|
|
PHA
|
|
TXA
|
|
STAL $0002FA
|
|
PLA
|
|
SEC
|
|
SBC #$8002
|
|
BCS L03542A
|
|
CPX #$0000
|
|
BNE L035429
|
|
L035426 TYA
|
|
SEC
|
|
RTS
|
|
|
|
L035429 DEX
|
|
L03542A LDY L032EF0
|
|
CPY #$0200
|
|
BEQ L035437
|
|
AND #$E000
|
|
BRA L03543A
|
|
L035437 AND #$FE00
|
|
L03543A BIT L032FD8
|
|
BPL L035443
|
|
CLC
|
|
ADC #$0002
|
|
L035443 STA L032EC0
|
|
TAY
|
|
STX L032EC2
|
|
AND #$FFFC
|
|
ORA L032EC2
|
|
BEQ L035426
|
|
TXA
|
|
TYX
|
|
LDY L032F14
|
|
JSR L0325E6
|
|
STX L032F10
|
|
STX $78
|
|
STY L032F12
|
|
STY $7A
|
|
BCC L03546A
|
|
LDA #$0054
|
|
RTS
|
|
|
|
L03546A LDA [$78]
|
|
STA $6C
|
|
LDY #$0002
|
|
LDA [$78],Y
|
|
STA $6E
|
|
LDA #$0000
|
|
CLC
|
|
RTS
|
|
|
|
L03547A DW $0000
|
|
L03547C DW $0000
|
|
L03547E ENT
|
|
PHB
|
|
LDA $01,S
|
|
PHK
|
|
PLB
|
|
STA L032FC6
|
|
TDC
|
|
STA L032EB2
|
|
LDA $05,S
|
|
TCD
|
|
LDA $09,S
|
|
STA L032EDA
|
|
LDA $0B,S
|
|
STA L032EF2
|
|
LDA $07,S
|
|
ORA #$0300
|
|
STA L032F14
|
|
LDA $0D,S
|
|
STA L032F02
|
|
LDA $0F,S
|
|
STA L032F04
|
|
LDA $11,S
|
|
STA L032F06
|
|
LDA $13,S
|
|
STA $22
|
|
LDA $15,S
|
|
STA $24
|
|
LDA $17,S
|
|
STA L032FE4
|
|
LDA $19,S
|
|
STA L032FE6
|
|
LDA $1B,S
|
|
STA $3A
|
|
LDA $1D,S
|
|
STA $3C
|
|
PLA
|
|
STA $19,S
|
|
PLA
|
|
STA $19,S
|
|
TSC
|
|
CLC
|
|
ADC #$0016
|
|
TCS
|
|
STA L033050
|
|
LDA #L038997
|
|
STA L033102
|
|
LDA #$FFFF
|
|
STA L0370AA
|
|
JSR L0334DA
|
|
BCC L0354EB
|
|
BRL L0357F3
|
|
L0354EB LDX #L0358F3
|
|
JSR L03793E
|
|
LDA #L05004E
|
|
STA $02
|
|
LDA #^L05004E
|
|
STA $04
|
|
STZ L032FD8
|
|
STZ L032F16
|
|
LDAL L060002
|
|
LDX #$8000
|
|
STZ L033036
|
|
BIT #$0040
|
|
BNE L035513
|
|
STX L033036
|
|
L035513 PHD
|
|
PHA
|
|
JSL L031AE4
|
|
SEC
|
|
ROR L0370C6
|
|
JSR L03537D
|
|
BCC L035525
|
|
L035522 BRL L0357F3
|
|
L035525 JSR L0353FE
|
|
BCS L035522
|
|
LDA [$1A]
|
|
STA $06
|
|
LDY #$0002
|
|
LDA [$1A],Y
|
|
STA $08
|
|
JSR L033562
|
|
PHA
|
|
PHA
|
|
PHA
|
|
PHA
|
|
_ReadTimeHex
|
|
LDX #$0000
|
|
L035546 PLA
|
|
STA L032EFA,X
|
|
INX
|
|
INX
|
|
CPX #$0008
|
|
BNE L035546
|
|
LDA L032EFA
|
|
EOR L032EFC
|
|
TAX
|
|
LDA L032EFE
|
|
EOR L032F00
|
|
LDY #$0004
|
|
EOR [$06],Y
|
|
INY
|
|
INY
|
|
EOR [$06],Y
|
|
LDY #$0008
|
|
EOR [$06],Y
|
|
LDY #$000A
|
|
EOR [$06],Y
|
|
STA L032F0A
|
|
TXA
|
|
INY
|
|
INY
|
|
EOR [$06],Y
|
|
INY
|
|
INY
|
|
EOR [$06],Y
|
|
LDY #$01B2
|
|
EOR [$06],Y
|
|
INY
|
|
INY
|
|
EOR [$06],Y
|
|
STA L032F08
|
|
STZ L033034
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDA #L03745D
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA #^L03745D
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$2034
|
|
JSR L033500
|
|
BCC L0355AB
|
|
BRL L0357F3
|
|
L0355AB JSR L03738B
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #$8000
|
|
STA [$02],Y
|
|
LDA #$200C
|
|
JSR L033500
|
|
L0355C1 LDA #L033C24
|
|
STA L033052
|
|
STZ L032F0C
|
|
STZ L032F2A
|
|
STZ L0330D2
|
|
JSR L03350A
|
|
STZ L032EBC
|
|
STZ L032EBE
|
|
SEC
|
|
ROR L0370C6
|
|
JSR L035197
|
|
BCC L0355E5
|
|
BRL L0357F3
|
|
L0355E5 STZ L032FD2
|
|
STZ L032FD4
|
|
STZ L030BE8
|
|
JSR L0334DA
|
|
BCC L0355F6
|
|
BRL L0357F3
|
|
L0355F6 LDA L032ECA
|
|
BNE L03560E
|
|
LDA L032EC8
|
|
CMP #$8000
|
|
BCS L03560E
|
|
LDA #L0358DD
|
|
STA L0370B2
|
|
STA L0370B4
|
|
BRA L03561A
|
|
L03560E LDA #L0358CE
|
|
STA L0370B2
|
|
LDA #L034753
|
|
STA L0370B4
|
|
L03561A LDY #$000C
|
|
LDA [$06],Y
|
|
TAX
|
|
DEY
|
|
DEY
|
|
LDA [$06],Y
|
|
LDY #$000E
|
|
CLC
|
|
ADC [$06],Y
|
|
BCC L03562D
|
|
INX
|
|
L03562D STA L032EB4
|
|
STX L032EB6
|
|
LDA $06
|
|
STA $68
|
|
LDA $08
|
|
STA $6A
|
|
SEC
|
|
ROR L0370C6
|
|
JSR L0348AB
|
|
BCC L035647
|
|
BRL L0357F3
|
|
L035647 BIT L032FD6
|
|
BPL L035674
|
|
LDA L032EBC
|
|
AND #$01FF
|
|
BEQ L03567C
|
|
EOR #$FFFF
|
|
SEC
|
|
ADC #$0200
|
|
STA L032EB4
|
|
STZ L032EB6
|
|
LDA $74
|
|
STA $68
|
|
LDA $76
|
|
STA $6A
|
|
SEC
|
|
ROR L0370C6
|
|
JSR L0348AB
|
|
BCC L03567C
|
|
BRA L035679
|
|
L035674 JSR L03454D
|
|
BCC L03567C
|
|
L035679 BRL L0357F3
|
|
L03567C JSR L0334DA
|
|
BCC L035684
|
|
BRL L0357F3
|
|
L035684 JSR L034CD2
|
|
BCC L03568F
|
|
STA L032F16
|
|
BRL L0357F6
|
|
L03568F SEC
|
|
ROR L0370C6
|
|
JSR L0347CC
|
|
BCC L03569B
|
|
BRL L0357F3
|
|
L03569B JSR L037239
|
|
BCC L0356A3
|
|
BRL L0357F3
|
|
L0356A3 LDA L032EDA
|
|
BNE L0356B9
|
|
LDA #$0200
|
|
LDX #$0000
|
|
JSR L034B1C
|
|
BCC L0356B6
|
|
BRL L0357F3
|
|
L0356B6 BRL L035734
|
|
L0356B9 LDA L032F28
|
|
LDY #$0000
|
|
JSR L033372
|
|
STA L032EE8
|
|
STY L032EEA
|
|
STX L032F26
|
|
TXA
|
|
BEQ L035718
|
|
LDA #$0006
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032EDA
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $6C
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $6E
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EF0
|
|
TAX
|
|
STA [$02],Y
|
|
LDA #$0000
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EE8
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EEA
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
TXA
|
|
STA [$02],Y
|
|
SEC
|
|
ROR L0370C6
|
|
LDA #$202F
|
|
JSR L033500
|
|
BCC L035718
|
|
BRL L0357F3
|
|
L035718 STZ L032FD6
|
|
DEC L0330D2
|
|
STZ L032EBC
|
|
STZ L032EBE
|
|
SEC
|
|
ROR L0370C6
|
|
JSR L03454D
|
|
LDA L032F26
|
|
STA L032EBC
|
|
STZ L032EBE
|
|
L035734 LDY #$000C
|
|
LDA [$06],Y
|
|
TAX
|
|
DEY
|
|
DEY
|
|
LDA [$06],Y
|
|
LDY #$000E
|
|
CLC
|
|
ADC [$06],Y
|
|
BCC L035747
|
|
INX
|
|
L035747 STA L032EB4
|
|
STX L032EB6
|
|
LDA $06
|
|
STA $68
|
|
LDA $08
|
|
STA $6A
|
|
JSR L0348AB
|
|
BCC L03575D
|
|
BRL L0357F3
|
|
L03575D LDA L032EBC
|
|
ORA L032EBE
|
|
BEQ L035779
|
|
LDA L0370AA
|
|
STA L0370AC
|
|
JSR L03454D
|
|
BCC L035773
|
|
BRL L0357F3
|
|
L035773 LDX L0370AC
|
|
JSR L03793E
|
|
L035779 LDA #$FFFF
|
|
STA L032FCE
|
|
STA L032FD0
|
|
JSR L03353E
|
|
LDX #L03590E
|
|
JSR L03793E
|
|
LDA #$0000
|
|
STA [$02]
|
|
LDA #$201D
|
|
JSR L033500
|
|
BCS L0357F3
|
|
JSR L033419
|
|
STZ L0370C6
|
|
L03579E LDY #$001C
|
|
LDA [$0A],Y
|
|
AND #$0080
|
|
BNE L0357D5
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #L0301D1
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L0301D1
|
|
STA [$02],Y
|
|
LDA #$200B
|
|
JSR L033500
|
|
BCC L0357D5
|
|
CMP #$0046
|
|
BEQ L0357D5
|
|
CMP #$004E
|
|
BEQ L0357D5
|
|
CMP #$002B
|
|
BEQ L0357E0
|
|
BNE L0357E3
|
|
L0357D5 LDA #$2000
|
|
STA L033024
|
|
JSR L0333A2
|
|
BCC L03579E
|
|
L0357E0 LDA #$0000
|
|
L0357E3 PHA
|
|
LDA #$0000
|
|
STA [$02]
|
|
LDA #$201E
|
|
JSR L033500
|
|
PLX
|
|
BEQ L0357F3
|
|
TXA
|
|
L0357F3 STA L032F16
|
|
L0357F6 LDA L032EDA
|
|
BNE L035819
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE2
|
|
BEQ L035819
|
|
STA [$02],Y
|
|
LDA L032F16
|
|
BNE L035813
|
|
SEC
|
|
ROR L0370C6
|
|
L035813 LDA #$2014
|
|
JSR L033500
|
|
L035819 JSR L03860F
|
|
JSR L0373B3
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDA #L03745D
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA #^L03745D
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$2035
|
|
JSR L033500
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
LDA #$200C
|
|
JSR L033500
|
|
LDA L032F16
|
|
STA [$22]
|
|
LDA L030BE8
|
|
STA [$3A]
|
|
LDA L032EB2
|
|
TCD
|
|
PLB
|
|
CMP #$0001
|
|
RTL
|
|
|
|
STR 'Please insert the first disk/tape from this backup.'
|
|
STR 'Sorry, you inserted the wrong disk/tape. Please try again.'
|
|
L0358CE STR 'Reading filesI'
|
|
L0358DD STR 'Backing up file dataI'
|
|
L0358F3 STR 'Preparing for file backupI'
|
|
L03590E STR 'Marking files that were backed upI'
|
|
L035931 ENT
|
|
PHB
|
|
PHK
|
|
PLB
|
|
TDC
|
|
STA L032EB2
|
|
LDA $05,S
|
|
TCD
|
|
LDA $07,S
|
|
ORA #$0300
|
|
STA L032F14
|
|
LDA $09,S
|
|
STA $84
|
|
LDA $0B,S
|
|
STA $86
|
|
PLA
|
|
STA $07,S
|
|
PLA
|
|
STA $07,S
|
|
TSC
|
|
CLC
|
|
ADC #$0004
|
|
TCS
|
|
LDA #L05004E
|
|
STA $02
|
|
LDA #^L05004E
|
|
STA $04
|
|
STZ L032F16
|
|
STZ L032EF8
|
|
LDY #$0006
|
|
LDA [$84],Y
|
|
STA L035B14
|
|
LDY #$0004
|
|
LDA [$84],Y
|
|
STA L032EDC
|
|
LDY #$0012
|
|
LDA [$84],Y
|
|
STA L032FE4
|
|
INY
|
|
INY
|
|
LDA [$84],Y
|
|
STA L032FE6
|
|
LDY #$0002
|
|
LDA [$84],Y
|
|
STA L032EDA
|
|
BEQ L0359B4
|
|
STA L03451F
|
|
PEA ^L03451D
|
|
PEA L03451D
|
|
PEA $202D ; DStatus
|
|
JSL GSOS2
|
|
BCC L0359A8
|
|
STA L032F16
|
|
BRL L035B06
|
|
L0359A8 LDA L03452F
|
|
TAX
|
|
AND #$0010
|
|
BNE L0359B4
|
|
BRL L035AEC
|
|
L0359B4 LDA L035B14
|
|
BNE L0359C2
|
|
TXA
|
|
AND #$0001
|
|
BNE L0359C2
|
|
BRL L035AFE
|
|
L0359C2 LDX #$0200
|
|
LDA #$0000
|
|
LDY L032F14
|
|
JSR L0325E6
|
|
STX L032EF6
|
|
STX $78
|
|
STY L032EF8
|
|
STY $7A
|
|
BCC L0359E0
|
|
STA L032F16
|
|
BRL L035B06
|
|
L0359E0 LDA [$78]
|
|
STA $74
|
|
LDY #$0002
|
|
LDA [$78],Y
|
|
STA $76
|
|
LDA L032EDA
|
|
BEQ L035A3D
|
|
JSR L034F86
|
|
BCC L0359FB
|
|
STA L032F16
|
|
BRL L035B06
|
|
L0359FB LDA L032EF0
|
|
CMP #$0200
|
|
BEQ L035A3D
|
|
LDX L032EF6
|
|
STX $78
|
|
LDX L032EF8
|
|
STX $7A
|
|
LDY #$0004
|
|
LDA [$78],Y
|
|
AND #$7FFF
|
|
STA [$78],Y
|
|
PEA $0000
|
|
LDA L032EF0
|
|
PHA
|
|
PHX
|
|
LDA L032EF6
|
|
PHA
|
|
_SetHandleSize
|
|
BCC L035A32
|
|
STA L032F16
|
|
BRL L035B06
|
|
L035A32 LDA [$78]
|
|
STA $74
|
|
LDY #$0002
|
|
LDA [$78],Y
|
|
STA $76
|
|
L035A3D JSR L033C2B
|
|
BCC L035A45
|
|
BRL L035AF9
|
|
L035A45 LDY #$0008
|
|
LDA [$84],Y
|
|
STA $80
|
|
INY
|
|
INY
|
|
LDA [$84],Y
|
|
STA $82
|
|
LDA L032F18
|
|
TAX
|
|
CLC
|
|
ADC #$001D
|
|
ADC $74
|
|
STA $78
|
|
LDA $76
|
|
ADC #$0000
|
|
STA $7A
|
|
LDY #$0028
|
|
SEP #$20
|
|
L035A6A LDA [$78],Y
|
|
CMP #$20
|
|
BNE L035A73
|
|
DEY
|
|
BNE L035A6A
|
|
L035A73 TYA
|
|
STA [$80]
|
|
BEQ L035A7F
|
|
L035A78 LDA [$78],Y
|
|
STA [$80],Y
|
|
DEY
|
|
BNE L035A78
|
|
L035A7F REP #$20
|
|
TXA
|
|
CLC
|
|
ADC #$0046
|
|
TAY
|
|
LDA [$74],Y
|
|
STA L032F08
|
|
INY
|
|
INY
|
|
LDA [$74],Y
|
|
STA L032F0A
|
|
TXA
|
|
CLC
|
|
ADC #$004A
|
|
TAY
|
|
LDA [$74],Y
|
|
LDY #$000C
|
|
STA [$84],Y
|
|
DEC
|
|
BNE L035AC3
|
|
TXA
|
|
CLC
|
|
ADC #$0054
|
|
TAY
|
|
LDA [$74],Y
|
|
STA L032F22
|
|
INY
|
|
INY
|
|
LDA [$74],Y
|
|
STA L032F24
|
|
INY
|
|
INY
|
|
LDA [$74],Y
|
|
STA L032FC2
|
|
INY
|
|
INY
|
|
LDA [$74],Y
|
|
STA L032FC4
|
|
L035AC3 TXA
|
|
CLC
|
|
ADC #$000A
|
|
TAY
|
|
LDA [$74],Y
|
|
LDY #$0016
|
|
STA [$84],Y
|
|
TXA
|
|
CLC
|
|
ADC #$004E
|
|
TAY
|
|
LDA [$74],Y
|
|
TAX
|
|
INY
|
|
INY
|
|
LDA [$74],Y
|
|
LDY #$0010
|
|
STA [$84],Y
|
|
DEY
|
|
DEY
|
|
TXA
|
|
STA [$84],Y
|
|
LDA #$0002
|
|
BRA L035B01
|
|
L035AEC LDA L035B14
|
|
BNE L035AF9
|
|
LDA L03452F
|
|
AND #$0001
|
|
BEQ L035AFE
|
|
L035AF9 LDA #$0001
|
|
BRA L035B01
|
|
L035AFE LDA #$0000
|
|
L035B01 LDY #$0006
|
|
STA [$84],Y
|
|
L035B06 JSR L0353EB
|
|
LDA L032F16
|
|
STA [$84]
|
|
LDA L032EB2
|
|
TCD
|
|
PLB
|
|
RTL
|
|
|
|
L035B14 DW $0000
|
|
L035B16 ENT
|
|
PHB
|
|
LDA $01,S
|
|
PHK
|
|
PLB
|
|
STA L032FC6
|
|
TDC
|
|
STA L032EB2
|
|
LDA $05,S
|
|
TCD
|
|
LDA $07,S
|
|
ORA #$0600
|
|
STA L032F14
|
|
LDA $09,S
|
|
STA $22
|
|
LDA $0B,S
|
|
STA $24
|
|
LDA $0D,S
|
|
STA L032EDA
|
|
LDA $0F,S
|
|
STA L032FE4
|
|
LDA $11,S
|
|
STA L032FE6
|
|
PLA
|
|
STA $0D,S
|
|
PLA
|
|
STA $0D,S
|
|
TSC
|
|
CLC
|
|
ADC #$000A
|
|
TCS
|
|
LDA #L05004E
|
|
STA $02
|
|
LDA #^L05004E
|
|
STA $04
|
|
STZ L032F16
|
|
JSR L03537D
|
|
BCC L035B68
|
|
STA L032F16
|
|
BRL L035D4C
|
|
L035B68 JSR L033340
|
|
LDA L032EDA
|
|
BNE L035BD6
|
|
LDA #$0002
|
|
STA [$02]
|
|
LDY #$0004
|
|
LDA L032FE4
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032FE6
|
|
STA [$02],Y
|
|
LDA #$2010
|
|
JSR L033500
|
|
BCC L035B92
|
|
L035B8C STA L032F16
|
|
BRL L035D4C
|
|
L035B92 LDY #$0002
|
|
LDA [$02],Y
|
|
STA L032FE2
|
|
LDA #$0004
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE2
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $74
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $76
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0200
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
LDA #$2012
|
|
JSR L033500
|
|
BCS L035B8C
|
|
LDY #$005A
|
|
LDA [$74],Y
|
|
TAX
|
|
DEY
|
|
DEY
|
|
LDA [$74],Y
|
|
TXY
|
|
BRA L035C2F
|
|
L035BD6 JSR L034F86
|
|
BCC L035BE1
|
|
L035BDB STA L032F16
|
|
BRL L035D4C
|
|
L035BE1 STZ L032EE8
|
|
STZ L032EEA
|
|
LDA #L035D60
|
|
STA L033102
|
|
JSR L036651
|
|
BCS L035BDB
|
|
LDA L032F22
|
|
LDY L032F24
|
|
JSR L033372
|
|
STA L032F22
|
|
STY L032F24
|
|
STX L032F26
|
|
LDA L032FC2
|
|
LDX L032FC4
|
|
CLC
|
|
ADC L032F26
|
|
BCC L035C11
|
|
INX
|
|
L035C11 TXY
|
|
LDX L032ED4
|
|
STZ L035D5A
|
|
L035C18 LSR
|
|
ROR L035D5A
|
|
DEX
|
|
BNE L035C18
|
|
LDX L035D5A
|
|
BEQ L035C25
|
|
INC
|
|
L035C25 LDX L032ED4
|
|
L035C28 ASL
|
|
DEX
|
|
BNE L035C28
|
|
BCC L035C2F
|
|
INY
|
|
L035C2F STA L035D5C
|
|
STY L035D5E
|
|
TAX
|
|
TYA
|
|
LDY L032F14
|
|
JSR L0325E6
|
|
STX $1A
|
|
STY $1C
|
|
BCC L035C49
|
|
STA L032F16
|
|
BRL L035D4C
|
|
L035C49 LDA [$1A]
|
|
STA $06
|
|
LDY #$0002
|
|
LDA [$1A],Y
|
|
STA $08
|
|
LDA L032EDA
|
|
BNE L035CA6
|
|
LDA #$0004
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE2
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $06
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $08
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L035D5C
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L035D5E
|
|
STA [$02],Y
|
|
LDA #$2012
|
|
JSR L033500
|
|
BCC L035C8B
|
|
STA L032F16
|
|
L035C8B LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE2
|
|
STA [$02],Y
|
|
LDA #$2014
|
|
JSR L033500
|
|
BCC L035CA3
|
|
STA L032F16
|
|
L035CA3 BRL L035D46
|
|
L035CA6 LDA #$0006
|
|
LDY #$0000
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EDA
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $06
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $08
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L035D5C
|
|
STA [$02],Y
|
|
LDA L035D5E
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032F22
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032F24
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EF0
|
|
STA [$02],Y
|
|
LDA #$202F
|
|
JSR L033500
|
|
BCC L035CF2
|
|
STA L032F16
|
|
BRL L035D4C
|
|
L035CF2 LDA L032F26
|
|
BEQ L035D15
|
|
CLC
|
|
ADC $06
|
|
TAX
|
|
LDA $08
|
|
BCC L035D00
|
|
INC
|
|
L035D00 PHA
|
|
PHX
|
|
PEI $08
|
|
PEI $06
|
|
LDA L032FC4
|
|
PHA
|
|
LDA L032FC2
|
|
PHA
|
|
_BlockMove
|
|
L035D15 LDY #$0004
|
|
LDA [$1A],Y
|
|
AND #$7FFF
|
|
STA [$1A],Y
|
|
LDA L032FC4
|
|
PHA
|
|
LDA L032FC2
|
|
PHA
|
|
PEI $1C
|
|
PEI $1A
|
|
_SetHandleSize
|
|
LDY #$0004
|
|
LDA [$1A],Y
|
|
ORA #$8000
|
|
STA [$1A],Y
|
|
DEY
|
|
DEY
|
|
LDA [$1A],Y
|
|
STA $08
|
|
LDA [$1A]
|
|
STA $06
|
|
L035D46 STZ $8C
|
|
STZ $8E
|
|
STZ $90
|
|
L035D4C JSR L0353EB
|
|
LDA L032F16
|
|
STA [$22]
|
|
LDA L032EB2
|
|
TCD
|
|
PLB
|
|
RTL
|
|
|
|
L035D5A DB $00
|
|
DB $00
|
|
L035D5C DB $00
|
|
DB $00
|
|
L035D5E DB $00
|
|
DB $00
|
|
L035D60 DB $00
|
|
L035D61 STX L03302C
|
|
STA L033026
|
|
LDA L032F8E
|
|
PHA
|
|
PEA ^L0330D6
|
|
PEA L0330D6
|
|
PEA $0005
|
|
PEA $0000
|
|
_Int2Dec
|
|
LDX #$001F
|
|
LDY #$FFFF
|
|
SEP #$20
|
|
L035D86 INY
|
|
LDA L0330D6,Y
|
|
CMP #$20
|
|
BEQ L035D86
|
|
L035D8E STA L035EC9,X
|
|
INX
|
|
INY
|
|
LDA L0330D6,Y
|
|
CPY #$0005
|
|
BNE L035D8E
|
|
LDY #$0000
|
|
L035D9E LDA L035EAD,Y
|
|
BEQ L035DAA
|
|
STA L035EC9,X
|
|
INX
|
|
INY
|
|
BRA L035D9E
|
|
L035DAA TXA
|
|
STA L035EC8
|
|
REP #$20
|
|
LDA L032EDA
|
|
LDX #$0002
|
|
JSR L033D8B
|
|
L035DB9 PEA $4030
|
|
_SysBeep2
|
|
LDA L033026
|
|
LDX #L035EC8
|
|
JSR L033456
|
|
CMP L033028
|
|
BNE L035DDB
|
|
JSR L0334CD
|
|
BCS L035DDB
|
|
LDA #$8010
|
|
SEC
|
|
RTS
|
|
|
|
L035DDB STA L03302A
|
|
L035DDE JSR L033DB4
|
|
BCC L035DE4
|
|
RTS
|
|
|
|
L035DE4 BNE L035DB9
|
|
JSR L033C2B
|
|
BCS L035E61
|
|
LDA #$0046
|
|
CLC
|
|
ADC L032F18
|
|
TAY
|
|
LDA [$74],Y
|
|
CMP L032F08
|
|
BNE L035E03
|
|
INY
|
|
INY
|
|
LDA [$74],Y
|
|
CMP L032F0A
|
|
BEQ L035E2E
|
|
L035E03 PEA $4054
|
|
_SysBeep2
|
|
LDA L032EDA
|
|
LDX #$0002
|
|
JSR L033D8B
|
|
LDA L033026
|
|
LDX #L035F07
|
|
JSR L033456
|
|
CMP L033028
|
|
BNE L035DDB
|
|
L035E24 JSR L0334CD
|
|
BCS L035DDB
|
|
LDA #$8010
|
|
SEC
|
|
RTS
|
|
|
|
L035E2E LDA #$004A
|
|
CLC
|
|
ADC L032F18
|
|
TAY
|
|
LDA [$74],Y
|
|
CMP L032F8E
|
|
BEQ L035E7C
|
|
PEA $4054
|
|
_SysBeep2
|
|
LDA L032EDA
|
|
LDX #$0002
|
|
JSR L033D8B
|
|
LDA L033026
|
|
LDX #L035F99
|
|
JSR L033456
|
|
CMP L033028
|
|
BEQ L035E24
|
|
BRL L035DDB
|
|
L035E61 PEA $4033
|
|
_SysBeep2
|
|
LDA L033026
|
|
LDX #L035F53
|
|
JSR L033456
|
|
CMP L033028
|
|
BEQ L035E24
|
|
BRL L035DDB
|
|
L035E7C BIT L03302C
|
|
BPL L035E9A
|
|
LDA L03452F
|
|
AND #$0004
|
|
BEQ L035E9A
|
|
LDA L032EDA
|
|
LDX #$0002
|
|
JSR L033D8B
|
|
JSR L033E00
|
|
BCS L035E24
|
|
BRL L035DDE
|
|
L035E9A STZ L0370B0
|
|
LDA L032F8E
|
|
STA L032F0C
|
|
JSR L034F86
|
|
BCS L035EAC
|
|
LDA L03302A
|
|
CLC
|
|
L035EAC RTS
|
|
|
|
L035EAD ASC ' from the same backup set.'
|
|
DB $00
|
|
L035EC8 DB $00
|
|
L035EC9 ASC 'Please insert disk/tape number '
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L035F07 STR 'That disk/tape does not belong to the current backup set. Please try again.'
|
|
L035F53 STR 'That disk/tape does not contain an Archiver backup. Please try again.'
|
|
L035F99 STR 'That disk/tape is not the correct number. Please try again.'
|
|
L035FD5 LDX L0370B2
|
|
JSR L03793E
|
|
LDA $6C
|
|
STA L032EBC
|
|
LDA $6E
|
|
STA L032EBE
|
|
LDA L032F94
|
|
CMP L032EC2
|
|
BCC L036006
|
|
BNE L035FF7
|
|
LDA L032EC0
|
|
CMP L032F92
|
|
BCS L036006
|
|
L035FF7 LDX L032EC2
|
|
STX L032F98
|
|
LDA L032EC0
|
|
STA L032F96
|
|
BRL L036012
|
|
L036006 LDA L032F92
|
|
STA L032F96
|
|
LDX L032F94
|
|
STX L032F98
|
|
L036012 LDX L032EEA
|
|
LDA L032EE8
|
|
CMP L032FE8
|
|
BNE L036022
|
|
CPX L032FEA
|
|
BEQ L036028
|
|
L036022 JSR L034B1C
|
|
BCC L036028
|
|
L036027 RTS
|
|
|
|
L036028 LDA #$0004
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE2
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EBC
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EBE
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032F96
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032F98
|
|
STA [$02],Y
|
|
LDA #$2012
|
|
JSR L033500
|
|
BCS L036027
|
|
LDA L032EE8
|
|
CLC
|
|
ADC L032F96
|
|
STA L032FE8
|
|
LDA L032EEA
|
|
ADC L032F98
|
|
STA L032FEA
|
|
LDA L032EBC
|
|
CLC
|
|
ADC L032F96
|
|
STA L032EBC
|
|
LDA L032EBE
|
|
ADC L032F98
|
|
STA L032EBE
|
|
LDA L032F96
|
|
CLC
|
|
ADC L032FCE
|
|
STA L032FCE
|
|
LDA L032F98
|
|
ADC L032FD0
|
|
STA L032FD0
|
|
JSR L03353E
|
|
STZ L032F96
|
|
STZ L032F98
|
|
LDA #$0000
|
|
CLC
|
|
RTS
|
|
|
|
L0360A0 LDA #$0007
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #L0301D1
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L0301D1
|
|
STA [$02],Y
|
|
LDY #$0006
|
|
LDA #$00C3
|
|
STA [$02],Y
|
|
LDA #$0000
|
|
LDY #$000A
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
LDY #$0008
|
|
STA [$02],Y
|
|
CMP #$000F
|
|
BEQ L03610A
|
|
LDA #$0000
|
|
LDY #$0012
|
|
STA [$02],Y
|
|
DEY
|
|
DEY
|
|
STA [$02],Y
|
|
LDA #$0001
|
|
LDY #$000E
|
|
STA [$02],Y
|
|
TYX
|
|
LDY #$001C
|
|
LDA [$0A],Y
|
|
AND #$0800
|
|
BEQ L03611D
|
|
LDA #$0005
|
|
TXY
|
|
STA [$02],Y
|
|
LDA #$0000
|
|
LDY #$0016
|
|
STA [$02],Y
|
|
DEY
|
|
DEY
|
|
STA [$02],Y
|
|
BRA L03611D
|
|
L03610A LDY #$000E
|
|
LDA #$000D
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
L03611D LDA #$2001
|
|
JSR L033500
|
|
RTS
|
|
|
|
L036124 LDA #$0008
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #L0301D1
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L0301D1
|
|
STA [$02],Y
|
|
LDA $02
|
|
STA L03614A+1
|
|
LDA $03
|
|
STA L03614A+2
|
|
LDY #$0016
|
|
LDX #$001E
|
|
L036148 LDA [$0A],Y
|
|
L03614A STAL $000000,X
|
|
DEX
|
|
DEX
|
|
DEY
|
|
DEY
|
|
CPY #$0006
|
|
BNE L036148
|
|
LDX #$002A
|
|
L03615A LDA L032F60,X
|
|
STA L033106,X
|
|
DEX
|
|
DEX
|
|
BPL L03615A
|
|
LDY #$0020
|
|
LDA #L033104
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L033104
|
|
STA [$02],Y
|
|
LDY #$0002
|
|
LDA [$0A],Y
|
|
LDY #$0008
|
|
STA [$02],Y
|
|
CMP #$000F
|
|
BEQ L0361A1
|
|
LDA L032F34
|
|
LDY #$0006
|
|
STA [$02],Y
|
|
LDA L032F36
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA L032F38
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA L032F3A
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
BRA L0361BD
|
|
L0361A1 LDA #$0000
|
|
LDY #$000C
|
|
STA [$02],Y
|
|
LDY #$0006
|
|
LDA #$00C3
|
|
STA [$02],Y
|
|
LDY #$0020
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
L0361BD LDA #$2005
|
|
JSR L033500
|
|
RTS
|
|
|
|
L0361C4 LDA L032FB0
|
|
ORA L032FB2
|
|
BNE L0361D1
|
|
LDA #$0000
|
|
CLC
|
|
RTS
|
|
|
|
L0361D1 LDX L0370B4
|
|
JSR L03793E
|
|
LDA #$0004
|
|
STA [$02]
|
|
LDA L032ED0
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $6C
|
|
CLC
|
|
ADC L032FAC
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $6E
|
|
ADC L032FAE
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032FB0
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032FB2
|
|
STA [$02],Y
|
|
LDA #$2013
|
|
JSR L033500
|
|
PHP
|
|
PHA
|
|
LDA L032FB0
|
|
CLC
|
|
ADC L032FCE
|
|
STA L032FCE
|
|
LDA L032FB2
|
|
ADC L032FD0
|
|
STA L032FD0
|
|
JSR L03353E
|
|
PLA
|
|
PLP
|
|
RTS
|
|
|
|
L036226 LDX L0370B2
|
|
JSR L03793E
|
|
LDA $6C
|
|
STA L032EBC
|
|
LDA $6E
|
|
STA L032EBE
|
|
LDA $0A
|
|
STA $12
|
|
LDA $0C
|
|
STA $14
|
|
STZ L032FD2
|
|
STZ L032FD4
|
|
LDA L032EE8
|
|
CMP L032ED6
|
|
BNE L036299
|
|
LDA L032EEA
|
|
CMP L032ED8
|
|
BNE L036299
|
|
LDA L0330FE
|
|
ORA L033100
|
|
BEQ L036299
|
|
LDA L032FA8
|
|
LDY #$0000
|
|
JSR L033372
|
|
TXA
|
|
CLC
|
|
ADC L0330EE
|
|
LDY L0330F0
|
|
BCC L036270
|
|
INY
|
|
L036270 SEC
|
|
SBC L0330E4
|
|
TAX
|
|
TYA
|
|
SBC L0330E6
|
|
TAY
|
|
TXA
|
|
JSR L033372
|
|
PHX
|
|
PLX
|
|
BEQ L036286
|
|
INC
|
|
BNE L036286
|
|
INY
|
|
L036286 STA L0330FE
|
|
STY L033100
|
|
LDA L032F0C
|
|
INC
|
|
STA L032F8E
|
|
JSR L0365A7
|
|
BCC L036299
|
|
RTS
|
|
|
|
L036299 JSR L03660C
|
|
STZ L032F9E
|
|
STZ L032FA0
|
|
LDA L0330FE
|
|
ORA L033100
|
|
BEQ L0362BC
|
|
LDA L0330FE
|
|
LDY L033100
|
|
JSR L033394
|
|
STA L032F9E
|
|
STY L032FA0
|
|
BRL L0363C4
|
|
L0362BC LDY #$0022
|
|
LDA [$12],Y
|
|
TAX
|
|
CMP L032F0C
|
|
BEQ L0362DC
|
|
LDA L032F9E
|
|
ORA L032FA0
|
|
BEQ L0362D3
|
|
SEC
|
|
BRL L03646D
|
|
L0362D3 STX L032F8E
|
|
JSR L0365A7
|
|
BCC L0362DC
|
|
RTS
|
|
|
|
L0362DC LDY #$0024
|
|
LDA [$12],Y
|
|
TAX
|
|
INY
|
|
INY
|
|
LDA [$12],Y
|
|
TAY
|
|
TXA
|
|
JSR L033372
|
|
TXA
|
|
LDY #$0028
|
|
CLC
|
|
ADC [$12],Y
|
|
LDY #$0004
|
|
ADC [$12],Y
|
|
STA L032F92
|
|
LDA #$0000
|
|
INY
|
|
INY
|
|
ADC [$12],Y
|
|
TAX
|
|
LDY #$001C
|
|
LDA [$12],Y
|
|
AND #$0800
|
|
BEQ L03631E
|
|
LDY #$0018
|
|
LDA [$12],Y
|
|
CLC
|
|
ADC L032F92
|
|
STA L032F92
|
|
TXA
|
|
INY
|
|
INY
|
|
ADC [$12],Y
|
|
TAX
|
|
L03631E STX L032F94
|
|
TXY
|
|
LDA L032F92
|
|
JSR L033372
|
|
PHX
|
|
PLX
|
|
BEQ L036330
|
|
INC
|
|
BNE L036330
|
|
INY
|
|
L036330 STA L0330FE
|
|
STY L033100
|
|
LDY #$0024
|
|
LDA [$12],Y
|
|
TAX
|
|
INY
|
|
INY
|
|
LDA [$12],Y
|
|
TAY
|
|
TXA
|
|
JSR L033372
|
|
TAX
|
|
LDA L032F9E
|
|
ORA L032FA0
|
|
BNE L036368
|
|
STX L032EE8
|
|
STY L032EEA
|
|
JSR L03660C
|
|
LDA L0330FE
|
|
LDY L033100
|
|
JSR L033394
|
|
STA L032F9E
|
|
STY L032FA0
|
|
BRA L0363C4
|
|
L036368 TXA
|
|
SEC
|
|
SBC L0330E0
|
|
TAX
|
|
TYA
|
|
SBC L0330E2
|
|
BNE L03637A
|
|
TXA
|
|
BEQ L03637E
|
|
DEC
|
|
BEQ L036396
|
|
L03637A CLC
|
|
BRL L03646D
|
|
L03637E LDY L033100
|
|
LDA L0330FE
|
|
BNE L036387
|
|
DEY
|
|
L036387 DEC
|
|
STA L0330FE
|
|
STY L033100
|
|
ORA L033100
|
|
BNE L036396
|
|
BRL L036558
|
|
L036396 LDA L0330E0
|
|
CLC
|
|
ADC L0330FE
|
|
STA L0330E0
|
|
TAX
|
|
LDA L0330E2
|
|
ADC L033100
|
|
STA L0330E2
|
|
INX
|
|
BNE L0363AE
|
|
INC
|
|
L0363AE TAY
|
|
TXA
|
|
SEC
|
|
SBC L032EE8
|
|
TAX
|
|
TYA
|
|
SBC L032EEA
|
|
TAY
|
|
TXA
|
|
JSR L033394
|
|
STA L032F9E
|
|
STY L032FA0
|
|
L0363C4 LDA L032F9E
|
|
LDY L032FA0
|
|
JSR L033372
|
|
PHX
|
|
PLX
|
|
BEQ L0363D5
|
|
INC
|
|
BNE L0363D5
|
|
INY
|
|
L0363D5 JSR L033394
|
|
STA L032F9E
|
|
STY L032FA0
|
|
CLC
|
|
ADC L032EBC
|
|
TAX
|
|
TYA
|
|
ADC L032EBE
|
|
TAY
|
|
TXA
|
|
SEC
|
|
SBC $6C
|
|
TAX
|
|
TYA
|
|
SBC $6E
|
|
TAY
|
|
TXA
|
|
SEC
|
|
SBC L032EC8
|
|
TAX
|
|
TYA
|
|
SBC L032ECA
|
|
BCC L036402
|
|
BNE L036442
|
|
TXY
|
|
BNE L036442
|
|
L036402 STZ L0330FE
|
|
STZ L033100
|
|
JSR L03658B
|
|
LDY #$0024
|
|
LDA [$12],Y
|
|
TAX
|
|
INY
|
|
INY
|
|
LDA [$12],Y
|
|
TAY
|
|
TXA
|
|
JSR L033372
|
|
TXA
|
|
EOR #$FFFF
|
|
SEC
|
|
ADC L032F92
|
|
LDX L032F94
|
|
BCS L036428
|
|
DEX
|
|
L036428 LDY #$0028
|
|
SEC
|
|
SBC [$12],Y
|
|
BCS L036431
|
|
DEX
|
|
L036431 CLC
|
|
ADC L032FD2
|
|
STA L032FD2
|
|
TXA
|
|
ADC L032FD4
|
|
STA L032FD4
|
|
BRL L036558
|
|
L036442 TAY
|
|
TXA
|
|
JSR L033372
|
|
STA L0330FE
|
|
STY L033100
|
|
LDA L032EC8
|
|
CLC
|
|
ADC $6C
|
|
TAX
|
|
LDA L032ECA
|
|
ADC $6E
|
|
TAY
|
|
TXA
|
|
SEC
|
|
SBC L032EBC
|
|
STA L032F9E
|
|
TYA
|
|
SBC L032EBE
|
|
STA L032FA0
|
|
JSR L03658B
|
|
SEC
|
|
L03646D ROR L036589
|
|
LDA L032EBC
|
|
CMP $6C
|
|
BNE L03648A
|
|
LDA L032EBE
|
|
CMP $6E
|
|
BNE L03648A
|
|
LDA L032EE8
|
|
STA L0330F6
|
|
LDA L032EEA
|
|
STA L0330F8
|
|
L03648A LDA L0370B0
|
|
BEQ L036495
|
|
L03648F JSR L037492
|
|
BCC L036495
|
|
RTS
|
|
|
|
L036495 LDA #$0006
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032EDA
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EBC
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EBE
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032F9E
|
|
STA [$02],Y
|
|
LDA L032FA0
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EE8
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EEA
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EF0
|
|
STA [$02],Y
|
|
LDA #$202F
|
|
JSR L033500
|
|
BCC L0364E7
|
|
CMP #$002F
|
|
BEQ L03648F
|
|
CMP #$002E
|
|
BEQ L03648F
|
|
SEC
|
|
RTS
|
|
|
|
L0364E7 STZ L0370B0
|
|
LDA L032FD2
|
|
CLC
|
|
ADC L032FCE
|
|
STA L032FCE
|
|
LDA L032FD4
|
|
ADC L032FD0
|
|
STA L032FD0
|
|
JSR L03353E
|
|
STZ L032FD2
|
|
STZ L032FD4
|
|
LDA L032F9E
|
|
LDY L032FA0
|
|
JSR L033372
|
|
CLC
|
|
ADC L032EE8
|
|
STA L032EE8
|
|
TAX
|
|
TYA
|
|
ADC L032EEA
|
|
STA L032EEA
|
|
LDA L032EBC
|
|
CLC
|
|
ADC L032F9E
|
|
STA L032EBC
|
|
TAY
|
|
LDA L032EBE
|
|
ADC L032FA0
|
|
STA L032EBE
|
|
TAX
|
|
TYA
|
|
SEC
|
|
SBC $6C
|
|
TAY
|
|
TXA
|
|
SBC $6E
|
|
CMP L032ECA
|
|
BNE L036545
|
|
CPY L032EC8
|
|
BEQ L03654A
|
|
L036545 BIT L036589
|
|
BPL L03654C
|
|
L03654A CLC
|
|
RTS
|
|
|
|
L03654C JSR L03660C
|
|
STZ L032F9E
|
|
STZ L032FA0
|
|
BRL L0362BC
|
|
L036558 LDA [$12]
|
|
AND #$FF00
|
|
BNE L036563
|
|
SEC
|
|
BRL L03646D
|
|
L036563 XBA
|
|
CLC
|
|
ADC $12
|
|
STA $12
|
|
BCC L03656D
|
|
INC $14
|
|
L03656D LDY #$001C
|
|
LDA [$12],Y
|
|
BIT #$0080
|
|
BNE L036558
|
|
AND #$3000
|
|
BEQ L036558
|
|
LDY #$0002
|
|
LDA [$12],Y
|
|
CMP #$000F
|
|
BEQ L036558
|
|
BRL L0362BC
|
|
L036589 BRK $00
|
|
L03658B LDY L032FA0
|
|
LDA L032F9E
|
|
BNE L036594
|
|
DEY
|
|
L036594 DEC
|
|
JSR L033372
|
|
CLC
|
|
ADC L032EE8
|
|
STA L0330E0
|
|
TYA
|
|
ADC L032EEA
|
|
STA L0330E2
|
|
RTS
|
|
|
|
L0365A7 LDA #$0000
|
|
STA L033028
|
|
TAX
|
|
LDA #$0001
|
|
JSR L035D61
|
|
BCC L0365B7
|
|
RTS
|
|
|
|
L0365B7 JSR L0334DA
|
|
BCC L0365BD
|
|
RTS
|
|
|
|
L0365BD JSR L034DE9
|
|
LDA L032F0E
|
|
BEQ L0365C6
|
|
INC
|
|
L0365C6 INC
|
|
INC
|
|
STA L032FA2
|
|
STZ $78
|
|
LDA L032ED4
|
|
SEC
|
|
SBC #$0009
|
|
BEQ L0365EC
|
|
TAX
|
|
L0365D7 LSR L032FA2
|
|
ROR $78
|
|
DEX
|
|
BNE L0365D7
|
|
LDA #$0010
|
|
SEC
|
|
SBC L032ED4
|
|
TAX
|
|
L0365E7 LSR $78
|
|
DEX
|
|
BNE L0365E7
|
|
L0365EC LDY #$0028
|
|
LDA [$12],Y
|
|
CLC
|
|
ADC $78
|
|
LDY #$0000
|
|
JSR L033372
|
|
CLC
|
|
ADC L032FA2
|
|
STA L032EE8
|
|
STZ L032EEA
|
|
STX L032F90
|
|
JSR L03660C
|
|
CLC
|
|
RTS
|
|
|
|
L03660C LDA L032ED6
|
|
SEC
|
|
SBC L032EE8
|
|
TAX
|
|
LDA L032ED8
|
|
SBC L032EEA
|
|
TAY
|
|
TXA
|
|
JSR L033394
|
|
CLC
|
|
ADC L032EBC
|
|
TAX
|
|
TYA
|
|
ADC L032EBE
|
|
TAY
|
|
TXA
|
|
SEC
|
|
SBC $6C
|
|
TAX
|
|
TYA
|
|
SBC $6E
|
|
CMP L032EC2
|
|
BCC L03664A
|
|
BNE L03663D
|
|
CPX L032EC0
|
|
BCC L03664A
|
|
L03663D LDA L032EC0
|
|
STA L032EC8
|
|
LDA L032EC2
|
|
STA L032ECA
|
|
RTS
|
|
|
|
L03664A STX L032EC8
|
|
STA L032ECA
|
|
RTS
|
|
|
|
L036651 LDA #$0001
|
|
STA L0366AB
|
|
L036657 JSR L033C2B
|
|
BCC L036668
|
|
CMP #$002E
|
|
BNE L03668C
|
|
DEC L0366AB
|
|
BEQ L036657
|
|
BRA L03668C
|
|
L036668 LDA L032F18
|
|
TAX
|
|
CLC
|
|
ADC #$0046
|
|
TAY
|
|
LDA [$74],Y
|
|
CMP L032F08
|
|
BNE L03668C
|
|
INY
|
|
INY
|
|
LDA [$74],Y
|
|
CMP L032F0A
|
|
BNE L03668C
|
|
TXA
|
|
CLC
|
|
ADC #$004A
|
|
TAY
|
|
LDA [$74],Y
|
|
DEC
|
|
BEQ L0366A0
|
|
L03668C JSR L034F86
|
|
BCS L03669A
|
|
LDA #$0001
|
|
STA L032F8E
|
|
STA L032F0C
|
|
L03669A JSR L037492
|
|
BCC L0366A0
|
|
RTS
|
|
|
|
L0366A0 LDA #$0001
|
|
STA L032F0C
|
|
STZ L0370B0
|
|
CLC
|
|
RTS
|
|
|
|
L0366AB BRK $00
|
|
L0366AD ENT
|
|
PHB
|
|
LDA $01,S
|
|
PHK
|
|
PLB
|
|
STA L032FC6
|
|
TDC
|
|
STA L032EB2
|
|
LDA $05,S
|
|
TCD
|
|
LDA $07,S
|
|
ORA #$0300
|
|
STA L032F14
|
|
LDA $09,S
|
|
STA $84
|
|
LDA $0B,S
|
|
STA $86
|
|
PLA
|
|
STA $07,S
|
|
PLA
|
|
STA $07,S
|
|
TSC
|
|
CLC
|
|
ADC #$0004
|
|
TCS
|
|
STA L033050
|
|
LDA #L05004E
|
|
STA $02
|
|
LDA #^L05004E
|
|
STA $04
|
|
STZ L032F16
|
|
STZ L032FD8
|
|
STZ L032ED0
|
|
LDA #$FFFF
|
|
STA L0370AA
|
|
LDY #$0002
|
|
LDA [$84],Y
|
|
STA L032EDA
|
|
LDA #L036FBF
|
|
STA L033102
|
|
JSR L0334DA
|
|
BCC L03670A
|
|
BRL L036F0C
|
|
L03670A LDX #L036FE0
|
|
JSR L03793E
|
|
JSR L03350A
|
|
LDY #$000E
|
|
LDA [$84],Y
|
|
STA $78
|
|
INY
|
|
INY
|
|
LDA [$84],Y
|
|
TAY
|
|
ORA $78
|
|
BEQ L036745
|
|
TYA
|
|
LDX #$0000
|
|
L036727 ASL $78
|
|
ROL
|
|
BCS L03672F
|
|
INX
|
|
BNE L036727
|
|
L03672F DEX
|
|
STX L032FCC
|
|
ROR
|
|
PHA
|
|
PHA
|
|
LDA L032FCA
|
|
PHA
|
|
LDA L032FC8
|
|
PHA
|
|
_SetCtlTitle
|
|
L036745 LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #$8000
|
|
STA [$02],Y
|
|
LDA #$200C
|
|
JSR L033500
|
|
LDY #$0006
|
|
LDA [$84],Y
|
|
STA $78
|
|
INY
|
|
INY
|
|
LDA [$84],Y
|
|
STA $7A
|
|
LDA [$78]
|
|
STAL L0301D1
|
|
TAY
|
|
INY
|
|
TYX
|
|
SEP #$20
|
|
L036770 LDA [$78],Y
|
|
STAL L0301D1,X
|
|
DEX
|
|
DEY
|
|
BNE L036770
|
|
REP #$20
|
|
LDA #$0007
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #L0301D1
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L0301D1
|
|
STA [$02],Y
|
|
LDY #$0006
|
|
LDA #$00C3
|
|
STA [$02],Y
|
|
LDA #$0000
|
|
LDY #$000A
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$000F
|
|
LDY #$0008
|
|
STA [$02],Y
|
|
LDY #$000E
|
|
LDA #$000D
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
SEC
|
|
ROR L0370C6
|
|
LDA #$2001
|
|
JSR L033500
|
|
BCC L0367D6
|
|
STA L0330D4
|
|
JSR L0335AF
|
|
BCC L0367D6
|
|
L0367D3 BRL L036F0C
|
|
L0367D6 LDA #$0008
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #L0301D1
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L0301D1
|
|
STA [$02],Y
|
|
LDY #$0020
|
|
LDA #L033104
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L033104
|
|
STA [$02],Y
|
|
SEC
|
|
ROR L0370C6
|
|
LDA #$2006
|
|
JSR L033500
|
|
BCS L0367D3
|
|
LDA L033108
|
|
STA L033136
|
|
LDA #$000D
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #L0301D1
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L0301D1
|
|
STA [$02],Y
|
|
LDA #$0002
|
|
STA [$02]
|
|
LDA #$2009
|
|
JSR L033500
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDA #L03745D
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA #^L03745D
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$2034
|
|
JSR L033500
|
|
BCC L03684B
|
|
BRL L036F0C
|
|
L03684B STZ L0370C6
|
|
JSR L03537D
|
|
BCC L036856
|
|
L036853 BRL L036F0C
|
|
L036856 JSR L0353FE
|
|
BCS L036853
|
|
LDY #$0004
|
|
LDA [$1A],Y
|
|
ORA #$8000
|
|
STA [$1A],Y
|
|
DEY
|
|
DEY
|
|
LDA [$1A],Y
|
|
STA $08
|
|
TAX
|
|
LDA [$1A]
|
|
STA $06
|
|
CLC
|
|
ADC #$01B6
|
|
STA $0A
|
|
BCC L036879
|
|
INX
|
|
L036879 STX $0C
|
|
LDY #$0010
|
|
LDA [$06],Y
|
|
STA L032FA6
|
|
LDY #$002E
|
|
LDA [$0A],Y
|
|
AND #$00FF
|
|
DEC
|
|
STA L032FAA
|
|
LDA #$0001
|
|
STA L032EE2
|
|
LDA #$3331
|
|
STAL L0301D3
|
|
LDA #$203A
|
|
STAL L0301D5
|
|
LDA #$0003
|
|
STAL L0301D1
|
|
JSR L0334DA
|
|
BCC L0368B2
|
|
BRL L036F0C
|
|
L0368B2 LDA L032EC2
|
|
BNE L0368CA
|
|
LDA L032EC0
|
|
CMP #$8000
|
|
BCS L0368CA
|
|
LDA #L036FFC
|
|
STA L0370B2
|
|
STA L0370B4
|
|
BRA L0368D6
|
|
L0368CA LDA #L039575
|
|
STA L0370B2
|
|
LDA #L03700D
|
|
STA L0370B4
|
|
L0368D6 STZ L0330E4
|
|
STZ L0330E6
|
|
STZ L0330EE
|
|
STZ L0330F0
|
|
LDA $6C
|
|
STA L0330E8
|
|
STA L032EBC
|
|
LDA $6E
|
|
STA L032EBE
|
|
STA L0330EA
|
|
STZ L032F90
|
|
STZ L0330FE
|
|
STZ L033100
|
|
STZ L032EE8
|
|
STZ L032EEA
|
|
STZ L0370C6
|
|
LDA L032EDA
|
|
BNE L036946
|
|
STZ L032FE2
|
|
LDY #$000A
|
|
LDA [$84],Y
|
|
STA L032FE4
|
|
TAX
|
|
INY
|
|
INY
|
|
LDA [$84],Y
|
|
STA L032FE6
|
|
LDY #$0006
|
|
STA [$02],Y
|
|
DEY
|
|
DEY
|
|
TXA
|
|
STA [$02],Y
|
|
LDA #$0002
|
|
STA [$02]
|
|
LDA #$2010
|
|
JSR L033500
|
|
BCC L036936
|
|
BRL L036F0C
|
|
L036936 LDY #$0002
|
|
LDA [$02],Y
|
|
STA L032FE2
|
|
STZ L032FE8
|
|
STZ L032FEA
|
|
BRA L036969
|
|
L036946 JSR L036651
|
|
BCC L03694E
|
|
BRL L036F0C
|
|
L03694E LDA #$0000
|
|
STA [$02]
|
|
LDA #$201D
|
|
JSR L033500
|
|
L036959 LDA L0330EE
|
|
CMP L0330E4
|
|
BNE L0369C6
|
|
LDA L0330F0
|
|
CMP L0330E6
|
|
BNE L0369C6
|
|
L036969 STZ L033024
|
|
JSR L0333A2
|
|
BCC L036974
|
|
BRL L036F0A
|
|
L036974 LDY #$001C
|
|
LDA [$0A],Y
|
|
BIT #$0080
|
|
BNE L036969
|
|
STZ L0330E4
|
|
STZ L0330E6
|
|
L036984 LDY #$0002
|
|
LDA [$0A],Y
|
|
CMP #$000F
|
|
BNE L0369C6
|
|
L03698E SEC
|
|
ROR L0370C6
|
|
JSR L0360A0
|
|
BCC L0369BA
|
|
L036997 STA L0330D4
|
|
JSR L0335AF
|
|
BCS L0369B0
|
|
LDAL L06000A
|
|
BPL L0369A8
|
|
BRL L036F0A
|
|
L0369A8 CMP #$0503
|
|
BNE L03698E
|
|
L0369AD LDA #$8010
|
|
L0369B0 BRL L036F0C
|
|
CMP #$0504
|
|
BEQ L036984
|
|
BRA L03698E
|
|
L0369BA JSR L036124
|
|
BCS L036997
|
|
JSR L0334DA
|
|
BCS L0369AD
|
|
BRA L036969
|
|
L0369C6 LDY #$0028
|
|
LDA [$0A],Y
|
|
STA L032FA8
|
|
LDY #$0004
|
|
LDA [$0A],Y
|
|
STA L032FB4
|
|
INY
|
|
INY
|
|
LDA [$0A],Y
|
|
STA L032FB6
|
|
LDY #$001C
|
|
LDA [$0A],Y
|
|
AND #$0800
|
|
BNE L0369EF
|
|
STZ L032FB8
|
|
STZ L032FBA
|
|
BRA L0369FE
|
|
L0369EF LDY #$0018
|
|
LDA [$0A],Y
|
|
STA L032FB8
|
|
INY
|
|
INY
|
|
LDA [$0A],Y
|
|
STA L032FBA
|
|
L0369FE LDA L032FA8
|
|
CLC
|
|
ADC L032FB4
|
|
TAX
|
|
LDA #$0000
|
|
ADC L032FB6
|
|
TAY
|
|
TXA
|
|
ADC L032FB8
|
|
STA L0330EE
|
|
TYA
|
|
ADC L032FBA
|
|
STA L0330F0
|
|
LDX L032EDA
|
|
BNE L036A23
|
|
BRL L036D37
|
|
L036A23 LDX L0330EA
|
|
CPX L032EBE
|
|
BCC L036A60
|
|
BNE L036A35
|
|
LDX L0330E8
|
|
CPX L032EBC
|
|
BCC L036A60
|
|
L036A35 STZ L0370C6
|
|
JSR L036226
|
|
BCC L036A40
|
|
BRL L036F0C
|
|
L036A40 SEC
|
|
ROR L0330EC
|
|
JSR L0334DA
|
|
BCC L036A4C
|
|
BRL L036F0C
|
|
L036A4C LDA $6C
|
|
CLC
|
|
ADC L032F90
|
|
STA L0330E8
|
|
LDA $6E
|
|
BCC L036A5A
|
|
INC
|
|
L036A5A STA L0330EA
|
|
STZ L032F90
|
|
L036A60 LDY #$0024
|
|
LDA [$0A],Y
|
|
TAX
|
|
INY
|
|
INY
|
|
LDA [$0A],Y
|
|
TAY
|
|
TXA
|
|
LDX L0330EC
|
|
BEQ L036AB5
|
|
STZ L0330EC
|
|
LDX $6C
|
|
STX L0330F2
|
|
LDX $6E
|
|
STX L0330F4
|
|
TAX
|
|
LDA L0330E4
|
|
ORA L0330E6
|
|
BNE L036A9F
|
|
TXA
|
|
JSR L033372
|
|
TXA
|
|
CLC
|
|
ADC L0330F2
|
|
STA L0330E8
|
|
LDA L0330F4
|
|
ADC #$0000
|
|
STA L0330EA
|
|
BRL L036B52
|
|
L036A9F LDA L0330E4
|
|
SEC
|
|
SBC L032FA8
|
|
TAX
|
|
LDA L0330E6
|
|
SBC #$0000
|
|
BCS L036AB2
|
|
BRL L036B58
|
|
L036AB2 BRL L036C2E
|
|
L036AB5 JSR L033372
|
|
STA $7C
|
|
STY $7E
|
|
LDY #$0022
|
|
LDA [$0A],Y
|
|
CMP L032F0C
|
|
BEQ L036AC9
|
|
BRL L036A35
|
|
L036AC9 LDA $7C
|
|
SEC
|
|
SBC L0330FA
|
|
TAX
|
|
LDA $7E
|
|
SBC L0330FC
|
|
BNE L036ADD
|
|
TXA
|
|
BEQ L036B24
|
|
DEC
|
|
BEQ L036B24
|
|
L036ADD LDA L0330E8
|
|
SEC
|
|
SBC $6C
|
|
TAX
|
|
LDA L0330EA
|
|
SBC $6E
|
|
TAY
|
|
TXA
|
|
JSR L033372
|
|
PHX
|
|
PLX
|
|
BEQ L036AF6
|
|
INC
|
|
BNE L036AF6
|
|
INY
|
|
L036AF6 JSR L033394
|
|
CLC
|
|
ADC $6C
|
|
STA L0330F2
|
|
TYA
|
|
ADC $6E
|
|
STA L0330F4
|
|
LDA $7C
|
|
STA L0330F6
|
|
LDA $7E
|
|
STA L0330F8
|
|
LDA L0330F4
|
|
CMP L032EBE
|
|
BCC L036B24
|
|
BNE L036B21
|
|
LDA L0330F2
|
|
CMP L032EBC
|
|
BCC L036B24
|
|
L036B21 BRL L036A35
|
|
L036B24 LDA L0330F6
|
|
LDY L0330F8
|
|
JSR L033394
|
|
TYX
|
|
LDY #$0024
|
|
EOR #$FFFF
|
|
SEC
|
|
ADC [$0A],Y
|
|
STA $78
|
|
TXA
|
|
EOR #$FFFF
|
|
INY
|
|
INY
|
|
ADC [$0A],Y
|
|
TAX
|
|
LDA $78
|
|
CLC
|
|
ADC L0330F2
|
|
STA L0330E8
|
|
TXA
|
|
ADC L0330F4
|
|
STA L0330EA
|
|
L036B52 LDA #$0060
|
|
STA L032FBC
|
|
L036B58 LDA L0330E8
|
|
CLC
|
|
ADC L032FBC
|
|
TAX
|
|
LDA L0330EA
|
|
ADC #$0000
|
|
CMP L032EBE
|
|
BCC L036B80
|
|
BNE L036B74
|
|
CPX L032EBC
|
|
BCC L036B80
|
|
BEQ L036B80
|
|
L036B74 LDA L032EBC
|
|
SEC
|
|
SBC L0330E8
|
|
STA L032FB0
|
|
BRA L036B86
|
|
L036B80 LDA L032FBC
|
|
STA L032FB0
|
|
L036B86 LDA L0330E8
|
|
STA $78
|
|
LDA L0330EA
|
|
STA $7A
|
|
LDX L0330E4
|
|
LDY #$0000
|
|
SEP #$20
|
|
L036B98 LDA [$78],Y
|
|
STA L032F2C,X
|
|
INX
|
|
INY
|
|
CPY L032FB0
|
|
BNE L036B98
|
|
REP #$20
|
|
LDA L0330E4
|
|
CLC
|
|
ADC L032FB0
|
|
STA L0330E4
|
|
CMP #$0060
|
|
BNE L036BD1
|
|
LDA L032FA8
|
|
SEC
|
|
SBC #$0060
|
|
TAX
|
|
CLC
|
|
ADC L0330E4
|
|
STA L0330E4
|
|
TXA
|
|
CLC
|
|
ADC L0330E8
|
|
STA L0330E8
|
|
BCC L036BD1
|
|
INC L0330EA
|
|
L036BD1 LDA L0330E8
|
|
CLC
|
|
ADC L032FB0
|
|
STA L0330E8
|
|
BCC L036BE0
|
|
INC L0330EA
|
|
L036BE0 LDA L032FBC
|
|
SEC
|
|
SBC L032FB0
|
|
STA L032FBC
|
|
BEQ L036BEF
|
|
BRL L036A23
|
|
L036BEF STZ L032FC0
|
|
L036BF2 SEC
|
|
ROR L0370C6
|
|
JSR L0360A0
|
|
BCC L036C1F
|
|
STZ L0330D4
|
|
JSR L0335AF
|
|
BCS L036C14
|
|
LDAL L06000A
|
|
BPL L036C0C
|
|
BRL L036F0A
|
|
L036C0C CMP #$0503
|
|
BNE L036C17
|
|
LDA #$8010
|
|
L036C14 BRL L036F0C
|
|
L036C17 CPX #$0504
|
|
BNE L036BF2
|
|
BRL L036984
|
|
L036C1F STZ L032F2A
|
|
LDA L032FB4
|
|
STA L032FBC
|
|
LDA L032FB6
|
|
STA L032FBE
|
|
L036C2E LDA L032F2A
|
|
BNE L036C49
|
|
SEC
|
|
ROR L032F2A
|
|
SEC
|
|
ROR L0370C6
|
|
LDA L032FC0
|
|
LDX #$0003
|
|
JSR L034785
|
|
BCC L036C49
|
|
BRL L036F0C
|
|
L036C49 LDA L032EBC
|
|
SEC
|
|
SBC L0330E8
|
|
TAX
|
|
LDA L032EBE
|
|
SBC L0330EA
|
|
BCS L036C5C
|
|
BRL L036A23
|
|
L036C5C CMP L032FBE
|
|
BCC L036C6E
|
|
BNE L036C68
|
|
CPX L032FBC
|
|
BCC L036C6E
|
|
L036C68 LDA L032FBE
|
|
LDX L032FBC
|
|
L036C6E STA L032FB2
|
|
STX L032FB0
|
|
LDA L0330E8
|
|
SEC
|
|
SBC $6C
|
|
STA L032FAC
|
|
LDA L0330EA
|
|
SBC $6E
|
|
STA L032FAE
|
|
SEC
|
|
ROR L0370C6
|
|
JSR L0361C4
|
|
BCC L036C91
|
|
BRL L036F0C
|
|
L036C91 JSR L0334DA
|
|
BCC L036C99
|
|
BRL L036F0C
|
|
L036C99 LDA L0330E8
|
|
CLC
|
|
ADC L032FB0
|
|
STA L0330E8
|
|
LDA L0330EA
|
|
ADC L032FB2
|
|
STA L0330EA
|
|
LDA L0330E4
|
|
CLC
|
|
ADC L032FB0
|
|
STA L0330E4
|
|
LDA L0330E6
|
|
ADC L032FB2
|
|
STA L0330E6
|
|
LDA L032FBC
|
|
SEC
|
|
SBC L032FB0
|
|
STA L032FBC
|
|
LDA L032FBE
|
|
SBC L032FB2
|
|
STA L032FBE
|
|
ORA L032FBC
|
|
BEQ L036CDA
|
|
BRL L036A23
|
|
L036CDA SEC
|
|
ROR L0370C6
|
|
JSR L034AFC
|
|
BCC L036CE6
|
|
L036CE3 BRL L036F0C
|
|
L036CE6 STZ L032F2A
|
|
LDA L032FC0
|
|
BNE L036D06
|
|
INC
|
|
STA L032FC0
|
|
LDA L032FB8
|
|
STA L032FBC
|
|
LDA L032FBA
|
|
STA L032FBE
|
|
ORA L032FB8
|
|
BEQ L036D06
|
|
BRL L036C2E
|
|
L036D06 SEC
|
|
ROR L0370C6
|
|
JSR L036124
|
|
BCS L036CE3
|
|
LDA L0330E8
|
|
SEC
|
|
SBC L0330F2
|
|
TAX
|
|
LDA L0330EA
|
|
SBC L0330F4
|
|
TAY
|
|
TXA
|
|
BNE L036D22
|
|
DEY
|
|
L036D22 DEC
|
|
JSR L033372
|
|
CLC
|
|
ADC L0330F6
|
|
STA L0330FA
|
|
TYA
|
|
ADC L0330F8
|
|
STA L0330FC
|
|
BRL L036959
|
|
L036D37 LDY #$0024
|
|
LDA [$0A],Y
|
|
STA L032EE8
|
|
INY
|
|
INY
|
|
LDA [$0A],Y
|
|
STA L032EEA
|
|
LDA L032FA8
|
|
CLC
|
|
ADC L032FB4
|
|
TAX
|
|
LDA L032FB6
|
|
BCC L036D54
|
|
INC
|
|
L036D54 TAY
|
|
TXA
|
|
CLC
|
|
ADC L032FB8
|
|
TAX
|
|
TYA
|
|
ADC L032FBA
|
|
STA L032F94
|
|
STX L032F92
|
|
LDA L032FCE
|
|
SEC
|
|
SBC L032FA8
|
|
STA L032FCE
|
|
BCS L036D74
|
|
DEC L032FD0
|
|
L036D74 STZ L0370C6
|
|
JSR L035FD5
|
|
BCC L036D7F
|
|
L036D7C BRL L036F0C
|
|
L036D7F JSR L0334DA
|
|
BCC L036D87
|
|
BRL L036F0C
|
|
L036D87 LDY #$005E
|
|
L036D8A LDA [$6C],Y
|
|
STA L032F2C,Y
|
|
DEY
|
|
DEY
|
|
BPL L036D8A
|
|
LDA L032F92
|
|
SEC
|
|
SBC L032FA8
|
|
STA L032F92
|
|
BCS L036DA2
|
|
DEC L032F94
|
|
L036DA2 LDA L032FA8
|
|
STA L032FAC
|
|
STZ L032FAE
|
|
CLC
|
|
ADC $6C
|
|
LDX $6E
|
|
BCC L036DB3
|
|
INX
|
|
L036DB3 CPX L032EBE
|
|
BCC L036E00
|
|
BNE L036DC1
|
|
CMP L032EBC
|
|
BCC L036E00
|
|
BEQ L036E00
|
|
L036DC1 LDA L032EE8
|
|
STA $7C
|
|
LDA L032EEA
|
|
STA $7E
|
|
LDY #$0024
|
|
LDA [$0A],Y
|
|
CLC
|
|
ADC L032FA8
|
|
STA L032EE8
|
|
TAX
|
|
INY
|
|
INY
|
|
LDA [$0A],Y
|
|
ADC #$0000
|
|
STA L032EEA
|
|
TXA
|
|
SEC
|
|
SBC $7C
|
|
CLC
|
|
ADC L032FCE
|
|
STA L032FCE
|
|
BCC L036DF2
|
|
INC L032FD0
|
|
L036DF2 STZ L0370C6
|
|
JSR L035FD5
|
|
BCS L036D7C
|
|
STZ L032FAC
|
|
STZ L032FAE
|
|
L036E00 SEC
|
|
ROR L0370C6
|
|
JSR L0360A0
|
|
BCC L036E2D
|
|
STZ L0330D4
|
|
JSR L0335AF
|
|
BCS L036E22
|
|
LDAL L06000A
|
|
BPL L036E1A
|
|
BRL L036F0A
|
|
L036E1A CMP #$0503
|
|
BNE L036E25
|
|
LDA #$8010
|
|
L036E22 BRL L036F0C
|
|
L036E25 CPX #$0504
|
|
BNE L036E00
|
|
BRL L036984
|
|
L036E2D STZ L032FC0
|
|
LDA L032FB4
|
|
STA L032FBC
|
|
LDA L032FB6
|
|
STA L032FBE
|
|
L036E3C LDA L032FC0
|
|
LDX #$0003
|
|
JSR L034785
|
|
BCC L036E4A
|
|
BRL L036F0C
|
|
L036E4A LDA L032EBC
|
|
SEC
|
|
SBC $6C
|
|
TAX
|
|
LDA L032EBE
|
|
SBC $6E
|
|
TAY
|
|
TXA
|
|
SEC
|
|
SBC L032FAC
|
|
TAX
|
|
TYA
|
|
SBC L032FAE
|
|
CMP L032FBE
|
|
BCC L036E73
|
|
BNE L036E6D
|
|
CPX L032FBC
|
|
BCC L036E73
|
|
L036E6D LDA L032FBE
|
|
LDX L032FBC
|
|
L036E73 STA L032FB2
|
|
STX L032FB0
|
|
SEC
|
|
ROR L0370C6
|
|
JSR L0361C4
|
|
BCC L036E85
|
|
BRL L036F0C
|
|
L036E85 JSR L0334DA
|
|
BCC L036E8D
|
|
BRL L036F0C
|
|
L036E8D LDA L032F92
|
|
SEC
|
|
SBC L032FB0
|
|
STA L032F92
|
|
LDA L032F94
|
|
SBC L032FB2
|
|
STA L032F94
|
|
LDA L032FBC
|
|
SEC
|
|
SBC L032FB0
|
|
STA L032FBC
|
|
LDA L032FBE
|
|
SBC L032FB2
|
|
STA L032FBE
|
|
ORA L032FBC
|
|
BEQ L036EC3
|
|
STZ L0370C6
|
|
JSR L035FD5
|
|
BCC L036E4A
|
|
BRL L036F0C
|
|
L036EC3 SEC
|
|
ROR L0370C6
|
|
JSR L034AFC
|
|
BCC L036ECE
|
|
L036ECC BRA L036F0C
|
|
L036ECE LDA L032FC0
|
|
BNE L036EFE
|
|
INC
|
|
STA L032FC0
|
|
LDA L032FAC
|
|
CLC
|
|
ADC L032FB0
|
|
STA L032FAC
|
|
LDA L032FAE
|
|
ADC L032FB2
|
|
STA L032FAE
|
|
LDA L032FB8
|
|
STA L032FBC
|
|
LDA L032FBA
|
|
STA L032FBE
|
|
ORA L032FB8
|
|
BEQ L036EFE
|
|
BRL L036E3C
|
|
L036EFE SEC
|
|
ROR L0370C6
|
|
JSR L036124
|
|
BCS L036ECC
|
|
BRL L036969
|
|
L036F0A BRA L036F4B
|
|
L036F0C STA L032F16
|
|
LDA L032ED0
|
|
BEQ L036F24
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDA #$2014
|
|
JSR L033500
|
|
L036F24 LDA L032F16
|
|
CMP #$0048
|
|
BEQ L036F31
|
|
CMP #$0027
|
|
BNE L036F4B
|
|
L036F31 LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #L0301D1
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L0301D1
|
|
STA [$02],Y
|
|
LDA #$2002
|
|
JSR L033500
|
|
L036F4B JSR L03860F
|
|
LDA L032EDA
|
|
BNE L036F7A
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE2
|
|
BEQ L036F7A
|
|
STA [$02],Y
|
|
LDA L032F16
|
|
BNE L036F6A
|
|
STZ L0370C6
|
|
L036F6A LDA #$2014
|
|
JSR L033500
|
|
BCC L036F7A
|
|
L036F72 LDY L032F16
|
|
BNE L036F7A
|
|
STA L032F16
|
|
L036F7A LDA #$0000
|
|
STA [$02]
|
|
LDA #$201E
|
|
JSR L033500
|
|
BCS L036F72
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDA #L03745D
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA #^L03745D
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$2035
|
|
JSR L033500
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
LDA #$200C
|
|
JSR L033500
|
|
LDA L032F16
|
|
STA [$84]
|
|
LDA L032EB2
|
|
TCD
|
|
PLB
|
|
RTL
|
|
|
|
L036FBF STR 'Some files will not be restored.'
|
|
L036FE0 STR 'Preparing for file restoreI'
|
|
L036FFC STR 'Restoring filesI'
|
|
L03700D STR 'Writing filesI'
|
|
L03701C DB $00
|
|
DB $00
|
|
L03701E DB $00
|
|
DB $00
|
|
L037020 DB $00
|
|
DB $00
|
|
L037022 DB $00
|
|
DB $00
|
|
L037024 DB $00
|
|
DB $00
|
|
L037026 DB $00
|
|
DB $00
|
|
L037028 DB $00
|
|
L037029 DB $00
|
|
L03702A DB $00
|
|
DB $00
|
|
L03702C DB $00
|
|
DB $00
|
|
L03702E DB $00
|
|
DB $00
|
|
L037030 DB $00
|
|
DB $00
|
|
L037032 DB $00
|
|
DB $00
|
|
L037034 DB $00
|
|
DB $00
|
|
L037036 DB $00
|
|
DB $00
|
|
L037038 DB $00
|
|
DB $00
|
|
L03703A DB $00
|
|
DB $00
|
|
L03703C DB $00
|
|
DB $00
|
|
L03703E DB $00
|
|
DB $00
|
|
L037040 DB $00
|
|
DB $00
|
|
L037042 DB $00
|
|
DB $00
|
|
L037044 DB $00
|
|
DB $00
|
|
L037046 DB $00
|
|
DB $00
|
|
L037048 DB $00
|
|
DB $00
|
|
L03704A DB $00
|
|
DB $00
|
|
L03704C DB $00
|
|
DB $00
|
|
L03704E DB $00
|
|
DB $00
|
|
L037050 DB $00
|
|
L037051 DB $00
|
|
L037052 DB $00
|
|
DB $00
|
|
L037054 DB $00
|
|
DB $00
|
|
L037056 DB $00
|
|
DB $00
|
|
L037058 DB $00
|
|
DB $00
|
|
L03705A DB $00
|
|
DB $00
|
|
L03705C DB $00
|
|
DB $00
|
|
L03705E DB $00
|
|
L03705F DB $00
|
|
L037060 DB $00
|
|
L037061 DB $00
|
|
L037062 DB $00
|
|
DB $00
|
|
L037064 DB $00
|
|
DB $00
|
|
L037066 DB $24
|
|
DB $00
|
|
L037068 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L03708A DB $00
|
|
DB $00
|
|
L03708C DB $00
|
|
DB $00
|
|
L03708E DB $00
|
|
DB $00
|
|
L037090 DB $00
|
|
DB $00
|
|
L037092 DB $00
|
|
DB $00
|
|
L037094 DB $00
|
|
L037095 DB $00
|
|
L037096 DB $00
|
|
L037097 DB $00
|
|
L037098 DB $00
|
|
L037099 DB $00
|
|
L03709A DB $00
|
|
DB $00
|
|
L03709C DB $00
|
|
DB $00
|
|
L03709E DB $00
|
|
DB $00
|
|
L0370A0 DB $00
|
|
DB $00
|
|
L0370A2 DB $00
|
|
DB $00
|
|
L0370A4 DB $00
|
|
DB $00
|
|
L0370A6 DB $00
|
|
DB $00
|
|
L0370A8 DB $00
|
|
DB $00
|
|
L0370AA DB $00
|
|
DB $00
|
|
L0370AC DB $00
|
|
DB $00
|
|
L0370AE DB $00
|
|
DB $00
|
|
L0370B0 DB $00
|
|
DB $00
|
|
L0370B2 DB $00
|
|
DB $00
|
|
L0370B4 DB $00
|
|
DB $00
|
|
L0370B6 DB $00
|
|
DB $00
|
|
L0370B8 DB $00
|
|
DB $00
|
|
L0370BA DB $00
|
|
DB $00
|
|
L0370BC DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L0370C6 ENT
|
|
DB $00
|
|
DB $00
|
|
L0370C8 DB $00
|
|
DB $00
|
|
L0370CA DB $00
|
|
DB $00
|
|
L0370CC DB $00
|
|
DB $00
|
|
L0370CE DB $00
|
|
DB $00
|
|
L0370D0 DB $00
|
|
L0370D1 DB $00
|
|
L0370D2 DB $00
|
|
L0370D3 DB $00
|
|
DB $00
|
|
L0370D5 DB $00
|
|
DB $00
|
|
L0370D7 DB $00
|
|
DB $00
|
|
L0370D9 DB $00
|
|
DB $00
|
|
L0370DB DB $00
|
|
DB $00
|
|
L0370DD DB $00
|
|
DB $00
|
|
L0370DF DB $00
|
|
DB $00
|
|
L0370E1 DB $00
|
|
DB $00
|
|
L0370E3 DB $00
|
|
DB $00
|
|
L0370E5 DB $00
|
|
L0370E6 DB $00
|
|
L0370E7 DB $00
|
|
L0370E8 DB $00
|
|
L0370E9 DB $00
|
|
DB $00
|
|
DB $00
|
|
L0370EC DB $00
|
|
DW $0000
|
|
DW $0010
|
|
DW $0020
|
|
DW $0030
|
|
DW $0040
|
|
DW $0050
|
|
DW $0060
|
|
DW $0070
|
|
DW $0080
|
|
DW $0090
|
|
DW $00A0
|
|
DW $00B0
|
|
DW $00C0
|
|
DW $00D0
|
|
DW $00E0
|
|
L03710B DW $00F0
|
|
DB $00
|
|
L03710E DB $00
|
|
DB $00
|
|
L037110 DB $00
|
|
DB $01
|
|
DB $00
|
|
DB $02
|
|
DB $00
|
|
DB $04
|
|
DB $00
|
|
DB $08
|
|
DB $00
|
|
DB $10
|
|
DB $00
|
|
DB $20
|
|
DB $00
|
|
DB $40
|
|
DB $00
|
|
DB $80
|
|
DB $01
|
|
DB $00
|
|
DB $02
|
|
DB $00
|
|
DB $04
|
|
DB $00
|
|
DB $08
|
|
DB $00
|
|
DB $10
|
|
DB $00
|
|
DB $20
|
|
DB $00
|
|
DB $40
|
|
DB $00
|
|
DB $80
|
|
DB $00
|
|
L037130 DB $00
|
|
DB $00
|
|
L037132 DB $00
|
|
DB $00
|
|
L037134 DB $00
|
|
DB $00
|
|
L037136 DB $00
|
|
DB $00
|
|
L037138 DB $00
|
|
DB $00
|
|
L03713A DB $00
|
|
DB $00
|
|
L03713C DB $00
|
|
DB $00
|
|
L03713E DB $00
|
|
DB $00
|
|
L037140 DB $00
|
|
DB $00
|
|
L037142 DB $00
|
|
DB $00
|
|
L037144 DB $00
|
|
DB $00
|
|
L037146 DB $00
|
|
L037147 DB $00
|
|
L037148 DB $00
|
|
L037149 DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L03714E DB $00
|
|
DB $00
|
|
L037150 DB $00
|
|
DB $00
|
|
L037152 DB $00
|
|
DB $00
|
|
L037154 DB $00
|
|
DB $00
|
|
L037156 LDA L03708A
|
|
STA $12
|
|
LDA L03708C
|
|
STA $14
|
|
LDA [$12]
|
|
AND #$00FF
|
|
TAY
|
|
STA [$74]
|
|
L037168 LDA [$12],Y
|
|
INY
|
|
STA [$74],Y
|
|
DEY
|
|
DEY
|
|
BNE L037168
|
|
L037171 LDA #$0002
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA $74
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $76
|
|
STA [$02],Y
|
|
LDA #$2020
|
|
JSR L033500
|
|
BCC L0371D5
|
|
CMP #$0045
|
|
BEQ L037192
|
|
SEC
|
|
RTS
|
|
|
|
L037192 LDA [$74]
|
|
INC
|
|
INC
|
|
STA $78
|
|
LDY #$0002
|
|
SEP #$20
|
|
L03719D LDA [$74],Y
|
|
STA L0371F2+$1A,Y
|
|
INY
|
|
CPY $78
|
|
BNE L03719D
|
|
LDA #$2E
|
|
STA L0371F2+$1A,Y
|
|
TYA
|
|
CLC
|
|
ADC #$1B
|
|
STA L0371F1
|
|
REP #$20
|
|
PEA $4030
|
|
_SysBeep2
|
|
LDA #$0001
|
|
LDX #L0371F1
|
|
JSR L033456
|
|
TAX
|
|
BNE L037171
|
|
JSR L0334CD
|
|
BCS L037171
|
|
LDA #$8010
|
|
SEC
|
|
RTS
|
|
|
|
L0371D5 STZ L0370AE
|
|
LDY #$0006
|
|
LDA [$02],Y
|
|
STA L037020
|
|
STA L037233
|
|
PEA ^L037231
|
|
PEA L037231
|
|
PEA $202C ; DInfo
|
|
JSL GSOS2
|
|
RTS
|
|
|
|
L0371F1 DB $00
|
|
L0371F2 ASC 'Please re-insert the volume '
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L037231 DW $0002 ; Parms for DInfo
|
|
L037233 DW $0000 ; device num
|
|
ADRL L037066 ; device name
|
|
L037239 CLC
|
|
JSR L033340
|
|
LDA L032EDA
|
|
BNE L037282
|
|
STZ L032F18
|
|
LDA #$0000
|
|
TAX
|
|
JSR L034B1C
|
|
BCC L03724F
|
|
RTS
|
|
|
|
L03724F LDA #$0004
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE2
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $74
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $76
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0200
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
LDA #$2012
|
|
JSR L033500
|
|
BCC L03727F
|
|
RTS
|
|
|
|
L03727F BRL L0372BB
|
|
L037282 LDA L032F0C
|
|
DEC
|
|
BEQ L0372A0
|
|
LDA #$0001
|
|
STA L032F8E
|
|
LDA #$0000
|
|
STA L033028
|
|
LDA #$0001
|
|
LDX #$8000
|
|
JSR L035D61
|
|
BCC L0372BB
|
|
L03729F RTS
|
|
|
|
L0372A0 LDA L0370B0
|
|
BEQ L0372AA
|
|
L0372A5 JSR L037492
|
|
BCS L03729F
|
|
L0372AA JSR L033C2B
|
|
BCC L0372BB
|
|
CMP #$002F
|
|
BEQ L0372A5
|
|
CMP #$002E
|
|
BEQ L0372A5
|
|
SEC
|
|
RTS
|
|
|
|
L0372BB LDX L032F18
|
|
TXA
|
|
CLC
|
|
ADC #$004C
|
|
TAY
|
|
LDA L033032
|
|
STA [$74],Y
|
|
TXA
|
|
CLC
|
|
ADC #$005E
|
|
TAY
|
|
LDA L03705E
|
|
STA [$74],Y
|
|
TXA
|
|
CLC
|
|
ADC #$0064
|
|
TAY
|
|
LDA L0370D5
|
|
STA [$74],Y
|
|
INY
|
|
INY
|
|
LDA L0370D7
|
|
STA [$74],Y
|
|
TXA
|
|
CLC
|
|
ADC #$000A
|
|
TAY
|
|
LDA [$74],Y
|
|
ORA #$8000
|
|
STA [$74],Y
|
|
TXA
|
|
CLC
|
|
ADC #$0068
|
|
TAY
|
|
LDA L03302E
|
|
STA [$74],Y
|
|
INY
|
|
INY
|
|
LDA L033030
|
|
STA [$74],Y
|
|
LDA L032EDA
|
|
BEQ L037353
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA #$0006
|
|
STA [$02]
|
|
INY
|
|
INY
|
|
LDA $74
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $76
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EF0
|
|
TAX
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
CPX #$0200
|
|
BNE L037339
|
|
LDA #$0001
|
|
BRA L03733C
|
|
L037339 LDA #$0000
|
|
L03733C INY
|
|
INY
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
TXA
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$2030
|
|
JSR L033500
|
|
RTS
|
|
|
|
L037353 LDA #$0000
|
|
TAX
|
|
JSR L034B1C
|
|
BCC L03735D
|
|
RTS
|
|
|
|
L03735D LDA #$0004
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE2
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $74
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $76
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0200
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
LDA #$2013
|
|
JSR L033500
|
|
RTS
|
|
|
|
L03738B SEI
|
|
JSR L03740A
|
|
LDAL DEV_DISPATCHER+1
|
|
STA L037459
|
|
LDAL DEV_DISPATCHER+3
|
|
AND #$00FF
|
|
STA L03745B
|
|
LDA #L0373CA
|
|
STAL DEV_DISPATCHER+1
|
|
LDA #>L0373CA
|
|
STAL DEV_DISPATCHER+2
|
|
JSR L037442
|
|
CLI
|
|
RTS
|
|
|
|
L0373B3 SEI
|
|
JSR L03740A
|
|
LDA L037459
|
|
STAL DEV_DISPATCHER+1
|
|
LDA L03745A
|
|
STAL DEV_DISPATCHER+2
|
|
JSR L037442
|
|
CLI
|
|
RTS
|
|
|
|
L0373CA PHD
|
|
PHB
|
|
PHB
|
|
PHA
|
|
PHX
|
|
PHP
|
|
PHK
|
|
PLB
|
|
REP #$30
|
|
BIT L032FD6
|
|
BPL L0373FA
|
|
LDAL $00BD00
|
|
CMP L032EDA
|
|
BNE L0373FA
|
|
LDAL $00BD02
|
|
CMP #$0002
|
|
BNE L0373FA
|
|
SEP #$30
|
|
LDAL L040023
|
|
TAX
|
|
LDA #$FF
|
|
STAL L04002B,X
|
|
REP #$30
|
|
L0373FA LDA L03745A
|
|
STA $08,S
|
|
LDA L037459
|
|
DEC
|
|
STA $07,S
|
|
PLP
|
|
PLX
|
|
PLA
|
|
PLB
|
|
RTL
|
|
|
|
L03740A SEP #$20
|
|
LDAL STATEREG
|
|
STA L037457
|
|
ORA #$80
|
|
AND #$C7
|
|
STAL STATEREG
|
|
STZ L037458
|
|
LDAL $00D000
|
|
EOR #$FF
|
|
STAL $00D000
|
|
CMPL $00D000
|
|
BNE L037437
|
|
EOR #$FF
|
|
STAL $00D000
|
|
DEC L037458
|
|
L037437 LDAL LCBANK2
|
|
LDAL LCBANK2
|
|
REP #$20
|
|
RTS
|
|
|
|
L037442 SEP #$20
|
|
BIT L037458
|
|
BMI L03744D
|
|
LDAL RDBANK2
|
|
L03744D LDA L037457
|
|
STAL STATEREG
|
|
REP #$20
|
|
RTS
|
|
|
|
L037457 DB $00
|
|
L037458 DB $00
|
|
L037459 DB $00
|
|
L03745A DB $00
|
|
L03745B DB $00
|
|
DB $00
|
|
L03745D DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DW $A55A
|
|
DW $0008
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L03746D PHK
|
|
PLB
|
|
BIT L032FD8
|
|
BMI L03747F
|
|
CMP L032EDA
|
|
BNE L037491
|
|
SEC
|
|
ROR L0370B0
|
|
BRA L037491
|
|
L03747F CMP L032EDA
|
|
BNE L037488
|
|
SEC
|
|
ROR L0370B0
|
|
L037488 CMP L037020
|
|
BNE L037491
|
|
SEC
|
|
ROR L0370AE
|
|
L037491 RTL
|
|
|
|
L037492 PEA $4030
|
|
_SysBeep2
|
|
LDAL L060006
|
|
CMP #$0003
|
|
BEQ L0374AD
|
|
STZ L03762C
|
|
LDX #L037565
|
|
BRA L0374B4
|
|
L0374AD SEC
|
|
ROR L03762C
|
|
LDX #L0375CD
|
|
L0374B4 LDA #$000C
|
|
JSR L033456
|
|
TAX
|
|
BNE L0374C7
|
|
L0374BD JSR L0334CD
|
|
BCS L037492
|
|
LDA #$8010
|
|
SEC
|
|
L0374C6 RTS
|
|
|
|
L0374C7 JSR L033DB4
|
|
BCS L0374C6
|
|
BEQ L0374D0
|
|
BRA L037492
|
|
L0374D0 BIT L03762C
|
|
BMI L0374EC
|
|
LDA L03452F
|
|
AND #$0004
|
|
BEQ L0374E4
|
|
JSR L033E00
|
|
BCC L0374C7
|
|
BRA L0374BD
|
|
L0374E4 LDA L032EE8
|
|
ORA L032EEA
|
|
BEQ L037563
|
|
L0374EC JSR L033C2B
|
|
BCS L037509
|
|
LDA #$0046
|
|
CLC
|
|
ADC L032F18
|
|
TAY
|
|
LDA [$74],Y
|
|
CMP L032F08
|
|
BNE L037509
|
|
INY
|
|
INY
|
|
LDA [$74],Y
|
|
CMP L032F0A
|
|
BEQ L037532
|
|
L037509 PEA $4054
|
|
_SysBeep2
|
|
LDA L032EDA
|
|
LDX #$0002
|
|
JSR L033D8B
|
|
LDA #$0001
|
|
LDX #L035F07
|
|
JSR L033456
|
|
TAX
|
|
BNE L0374C7
|
|
L037528 JSR L0334CD
|
|
BCS L0374C7
|
|
LDA #$8010
|
|
SEC
|
|
RTS
|
|
|
|
L037532 LDA #$004A
|
|
CLC
|
|
ADC L032F18
|
|
TAY
|
|
LDA [$74],Y
|
|
CMP L032F0C
|
|
BEQ L037563
|
|
PEA $4054
|
|
_SysBeep2
|
|
LDA L032EDA
|
|
LDX #$0002
|
|
JSR L033D8B
|
|
LDA #$0001
|
|
LDX #L035F99
|
|
JSR L033456
|
|
TAX
|
|
BEQ L037528
|
|
BRL L0374C7
|
|
L037563 CLC
|
|
RTS
|
|
|
|
L037565 STR 'Please re-insert the destination media into the destination device, or click Cancel to stop the backup.'
|
|
L0375CD STR 'Please re-insert the backup media into the source device, or click Cancel to stop the restore.'
|
|
L03762C DW $0000
|
|
L03762E LDAL L060006
|
|
CMP #$0003
|
|
BEQ L03763C
|
|
STZ L03790C
|
|
BRA L037640
|
|
L03763C SEC
|
|
ROR L03790C
|
|
L037640 LDA L0370B8
|
|
BNE L03767C
|
|
PEA ^L03790E
|
|
PEA L03790E
|
|
PEA $2008 ; Volume
|
|
JSL GSOS2
|
|
BCS L0376BD
|
|
LDA L03708A
|
|
STA $78
|
|
LDA L03708C
|
|
STA $7A
|
|
SEP #$30
|
|
LDA [$78]
|
|
CMP L03791A
|
|
BNE L037675
|
|
TAY
|
|
L037668 LDA [$78],Y
|
|
CMP L03791B,Y
|
|
BNE L037675
|
|
DEY
|
|
BNE L037668
|
|
CLC
|
|
BRA L037676
|
|
L037675 SEC
|
|
L037676 REP #$30
|
|
BCS L0376BD
|
|
BRA L0376F0
|
|
L03767C LDA L037020
|
|
STA L0377C4
|
|
LDA $74
|
|
STA L0377C6
|
|
LDA $76
|
|
STA L0377C6+2
|
|
LDA L0370BA
|
|
STA L0377CE
|
|
L037692 PEA ^L0377C2
|
|
PEA L0377C2
|
|
PEA $202F ; DRead
|
|
JSL GSOS2
|
|
BCC L0376AD
|
|
CMP #$002E
|
|
BEQ L037692
|
|
CMP #$002F
|
|
BEQ L0376BD
|
|
BRA L0376EB
|
|
L0376AD LDY #$0008
|
|
L0376B0 LDA L032EA8,Y
|
|
CMP [$74],Y
|
|
BNE L0376BD
|
|
DEY
|
|
DEY
|
|
BPL L0376B0
|
|
BRA L0376F0
|
|
L0376BD PEA $4030
|
|
_SysBeep2
|
|
LDA L03790C
|
|
BNE L0376D1
|
|
LDX #L0377D8
|
|
BRA L0376D4
|
|
L0376D1 LDX #L037838
|
|
L0376D4 LDA #$000C
|
|
JSR L033456
|
|
TAX
|
|
BEQ L0376E0
|
|
BRL L03762E
|
|
L0376E0 JSR L0334CD
|
|
BCC L0376E8
|
|
BRL L03762E
|
|
L0376E8 LDA #$8010
|
|
L0376EB STZ L0370B8
|
|
L0376EE SEC
|
|
RTS
|
|
|
|
L0376F0 LDAL L060006
|
|
CMP #$0003
|
|
BEQ L0376FE
|
|
STZ L03790C
|
|
BRA L037702
|
|
L0376FE SEC
|
|
ROR L03790C
|
|
L037702 LDA L037020
|
|
STA L0377B0
|
|
PEA ^L0377AE
|
|
PEA L0377AE
|
|
PEA $202D ; DStatus
|
|
JSL GSOS2
|
|
BCS L0376EE
|
|
LDA L0377C0
|
|
BIT #$0010
|
|
BEQ L0376BD
|
|
LDX L03790C
|
|
BEQ L037742
|
|
BIT #$0004
|
|
BEQ L037742
|
|
PEA $4050
|
|
_SysBeep2
|
|
LDX #L0378A5
|
|
LDA #$0004
|
|
JSR L033456
|
|
TAX
|
|
BEQ L0376E0
|
|
BRL L03762E
|
|
L037742 STZ L0370AE
|
|
CLC
|
|
RTS
|
|
|
|
L037747 LDA L037020
|
|
STA L0377C4
|
|
LDA $74
|
|
STA L0377C6
|
|
LDA $76
|
|
STA L0377C6+2
|
|
LDA L0370BA
|
|
STA L0377CE
|
|
LDA L0370AE
|
|
BEQ L037768
|
|
L037762 JSR L03762E
|
|
BCC L037768
|
|
RTS
|
|
|
|
L037768 PEA ^L0377C2
|
|
PEA L0377C2
|
|
PEA $202F ; DRead
|
|
JSL GSOS2
|
|
BCC L037783
|
|
CMP #$002F
|
|
BEQ L037762
|
|
CMP #$002E
|
|
BEQ L037762
|
|
SEC
|
|
RTS
|
|
|
|
L037783 LDY #$0008
|
|
L037786 LDA L0370BC,Y
|
|
STA [$74],Y
|
|
DEY
|
|
DEY
|
|
BPL L037786
|
|
PEA ^L0377C2
|
|
PEA L0377C2
|
|
PEA $2030 ; DWrite
|
|
JSL GSOS2
|
|
BCC L0377AA
|
|
CMP #$002F
|
|
BEQ L037762
|
|
CMP #$002E
|
|
BEQ L037762
|
|
SEC
|
|
RTS
|
|
|
|
L0377AA STZ L0370B8
|
|
RTS
|
|
|
|
L0377AE DW $0005 ; Parms for DStatus
|
|
L0377B0 DW $0000 ; device num
|
|
DW $0000 ; status code
|
|
ADRL L0377C0 ; status list
|
|
ADRL $00000002 ; request count
|
|
ADRL $00000000 ; transfer count
|
|
L0377C0 DW $0000
|
|
L0377C2 DW $0006 ; Parms for DWrite
|
|
L0377C4 DW $0000 ; device num
|
|
L0377C6 ADRL $00000000 ; buffer ptr
|
|
ADRL $00000200 ; request count
|
|
L0377CE ADRL $00000000 ; starting block
|
|
DW $0200 ; block size
|
|
ADRL $00000000 ; transfer count
|
|
L0377D8 STR 'Please re-insert the disk to back up into the source drive, or click Cancel to stop the backup.'
|
|
L037838 STR 'Please re-insert the disk you are restoring into the destination drive, or click Cancel to stop the restore.'
|
|
L0378A5 STR 'The destination volume is write-protected. Make sure the write-protect tab is in the correct position.'
|
|
L03790C DW $0000
|
|
L03790E DW $0002 ; Parms for Volume
|
|
ADRL L037068 ; device name
|
|
ADRL L037918 ; volume name
|
|
L037918 DW $0026
|
|
L03791A DB $00
|
|
L03791B DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
DB $00
|
|
L03793E CPX L0370AA
|
|
BEQ L03799B
|
|
STX L0370AA
|
|
LDA #L05002A
|
|
STA $78
|
|
LDA #^L05002A
|
|
STA $7A
|
|
TXA
|
|
STA [$78]
|
|
LDY #$0002
|
|
LDA #^L03793E
|
|
STA [$78],Y
|
|
PHA
|
|
PHA
|
|
LDAL L0612BF
|
|
PHA
|
|
LDAL L0612BD
|
|
PHA
|
|
PEA $0000
|
|
PEA $048B
|
|
_GetCtlHandleFromID
|
|
PLY
|
|
STY $7C
|
|
PLX
|
|
STX $7E
|
|
PHX
|
|
PHY
|
|
_DrawOneCtl
|
|
LDA [$7C]
|
|
CLC
|
|
ADC #$0008
|
|
TAX
|
|
LDY #$0002
|
|
LDA [$7C],Y
|
|
ADC #$0000
|
|
PHA
|
|
PHX
|
|
_ValidRect
|
|
L03799B RTS
|
|
|
|
L03799C JSR L03350A
|
|
LDA L037042
|
|
LDY L037044
|
|
LDX L03701C
|
|
BEQ L0379B5
|
|
SEC
|
|
SBC L03703E
|
|
TAX
|
|
TYA
|
|
SBC L037040
|
|
TAY
|
|
TXA
|
|
L0379B5 STA $78
|
|
ORA $78
|
|
BEQ L0379DC
|
|
TYA
|
|
LDX #$0000
|
|
L0379BF ASL $78
|
|
ROL
|
|
BCS L0379C7
|
|
INX
|
|
BRA L0379BF
|
|
L0379C7 STX L032FCC
|
|
ROR
|
|
PHA
|
|
PHA
|
|
LDA L032FCA
|
|
PHA
|
|
LDA L032FC8
|
|
PHA
|
|
_SetCtlTitle
|
|
L0379DC RTS
|
|
|
|
L0379DD LDA L037020
|
|
STA L0384B5
|
|
STZ L0370E1
|
|
LDA #$001E
|
|
STA L0370E3
|
|
CLC
|
|
LDA $CE
|
|
ADC #$0128
|
|
STA L0384B7
|
|
STA $D2
|
|
LDA $D0
|
|
ADC #$0000
|
|
STA L0384B7+2
|
|
STA $D4
|
|
LDA #$0200
|
|
STA L0384BB
|
|
STZ L0384BB+2
|
|
STA L0384C3
|
|
LDA L03704C
|
|
STA L0384BF
|
|
STZ L0384BF+2
|
|
STA L0370DF
|
|
JMP L038490
|
|
|
|
L037A1C LDA L0370DF
|
|
INC
|
|
STA L0370DF
|
|
STA L0384BF
|
|
STZ L0384BF+2
|
|
SEC
|
|
SBC L03704C
|
|
CMP L037048
|
|
BNE L037A33
|
|
RTS
|
|
|
|
L037A33 LDA L037020
|
|
STA L0384B5
|
|
CLC
|
|
LDA $CE
|
|
ADC #$0128
|
|
STA L0384B7
|
|
STA $D2
|
|
LDA $D0
|
|
ADC #$0000
|
|
STA L0384B7+2
|
|
STA $D4
|
|
LDA #$0200
|
|
STA L0384BB
|
|
STZ L0384BB+2
|
|
STA L0384C3
|
|
STZ L0370DD
|
|
CLC
|
|
RTS
|
|
|
|
L037A5F LDA L03701E
|
|
BNE L037A80
|
|
LDA $C6
|
|
STA L0370C8
|
|
STA L03714E
|
|
LDA $C8
|
|
STA L0370CA
|
|
STA L037150
|
|
LDA L037146
|
|
STA L037152
|
|
LDA L037148
|
|
STA L037154
|
|
L037A80 SEC
|
|
LDA L037152
|
|
SBC L0370C8
|
|
AND #$FE00
|
|
STA L037028
|
|
LDA L037154
|
|
SBC L0370CA
|
|
STA L03702A
|
|
LDA L0370D9
|
|
BEQ L037AC8
|
|
STZ L0370CC
|
|
STZ L0370CE
|
|
STZ L0370D0
|
|
STZ L0370D2
|
|
BRA L037AC5
|
|
STZ L0370D0
|
|
LDA L03704C
|
|
CLC
|
|
ADC L037048
|
|
STA L0370D1
|
|
LDA L03704E
|
|
ADC L03704A
|
|
STA L0370D3
|
|
ASL L0370D1
|
|
ROL L0370D3
|
|
L037AC5 STZ L0370D9
|
|
L037AC8 LDA L0370DB
|
|
BNE L037AD4
|
|
JSR L037AD8
|
|
BCS L037AD7
|
|
BVS L037AD7
|
|
L037AD4 JSR L037C95
|
|
L037AD7 RTS
|
|
|
|
L037AD8 LDA L03701C
|
|
BNE L037AF4
|
|
L037ADD LDA L0370CC
|
|
CMP L037042
|
|
BNE L037AF1
|
|
LDA L0370CE
|
|
CMP L037044
|
|
BNE L037AF1
|
|
L037AED SEP #$40
|
|
CLC
|
|
RTS
|
|
|
|
L037AF1 REP #$41
|
|
RTS
|
|
|
|
L037AF4 LDA L0370DF
|
|
CMP L037022
|
|
BNE L037B31
|
|
LDY L0370E1
|
|
CPY L037024
|
|
BNE L037B31
|
|
LDX L0370E3
|
|
CPX L037026
|
|
BCS L037B31
|
|
L037B0C LDA L037046
|
|
CMP #$0006
|
|
BNE L037AED
|
|
LDA L0370E9
|
|
BNE L037AED
|
|
LDA L037042
|
|
SEC
|
|
SBC #$0002
|
|
STA L0370CC
|
|
LDA L037044
|
|
SBC #$0000
|
|
STA L0370CE
|
|
DEC L0370E9
|
|
BRA L037AF1
|
|
L037B31 LDA L037046
|
|
CMP #$0001
|
|
BEQ L037B6C
|
|
CMP #$0006
|
|
BNE L037ADD
|
|
LDA L0370CC
|
|
ORA L0370CE
|
|
BEQ L037AF1
|
|
LDX L0370E3
|
|
LDY L0370E1
|
|
L037B4C LDA [$D2],Y
|
|
BEQ L037B5E
|
|
L037B50 AND L037110,X
|
|
BNE L037B94
|
|
JSR L037C10
|
|
BCS L037B83
|
|
BVC L037B4C
|
|
BRA L037B0C
|
|
L037B5E JSR L037C81
|
|
BCS L037B50
|
|
JSR L037C17
|
|
BCS L037B83
|
|
BVC L037B4C
|
|
BRA L037B0C
|
|
L037B6C LDX L0370E3
|
|
LDY L0370E1
|
|
L037B72 LDA [$D2],Y
|
|
CMP #$FFFF
|
|
BEQ L037B87
|
|
L037B79 AND L037110,X
|
|
BEQ L037B94
|
|
JSR L037C10
|
|
BCC L037B84
|
|
L037B83 RTS
|
|
|
|
L037B84 BVC L037B72
|
|
RTS
|
|
|
|
L037B87 JSR L037C81
|
|
BCS L037B79
|
|
JSR L037C17
|
|
BCS L037B83
|
|
BVC L037B72
|
|
RTS
|
|
|
|
L037B94 SEC
|
|
LDA L0370DF
|
|
SBC L03704C
|
|
ASL
|
|
TAX
|
|
LDA L0370EC,X
|
|
STA L037C08
|
|
STZ L037C0A
|
|
TYA
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ADC L037C08
|
|
STA L037C08
|
|
LDX L0370E3
|
|
TXA
|
|
LSR
|
|
STA L037C0C
|
|
SEC
|
|
LDA #$000F
|
|
SBC L037C0C
|
|
CLC
|
|
ADC L037C08
|
|
STA L037C08
|
|
STA L0370CC
|
|
LDA L037C0A
|
|
STA L0370CE
|
|
LDA L0370CC
|
|
STA L037C0C
|
|
LDA L0370CE
|
|
STA L037C0E
|
|
LDX L037054
|
|
BRA L037BF3
|
|
L037BE0 CLC
|
|
LDA L0370CC
|
|
ADC L037C0C
|
|
STA L0370CC
|
|
LDA L0370CE
|
|
ADC L037C0E
|
|
STA L0370CE
|
|
L037BF3 DEX
|
|
BNE L037BE0
|
|
LDA L0370CC
|
|
CLC
|
|
ADC L03704E
|
|
STA L0370CC
|
|
BCC L037C05
|
|
INC L0370CE
|
|
L037C05 BRL L037AF1
|
|
L037C08 DB $00
|
|
DB $00
|
|
L037C0A DB $00
|
|
DB $00
|
|
L037C0C DB $00
|
|
DB $00
|
|
L037C0E DB $00
|
|
DB $00
|
|
L037C10 LDX L0370E3
|
|
DEX
|
|
DEX
|
|
BPL L037C62
|
|
L037C17 LDX #$001E
|
|
LDY L0370E1
|
|
INY
|
|
INY
|
|
BIT L03705C
|
|
BPL L037C2F
|
|
STY L0370E1
|
|
STX L0370E3
|
|
STZ L03705C
|
|
BRA L037C4B
|
|
L037C2F CPY #$0200
|
|
BCC L037C62
|
|
LDAL L060006
|
|
CMP #$0003
|
|
BNE L037C51
|
|
LDA L032EEA
|
|
BNE L037C51
|
|
LDA L0370DF
|
|
INC
|
|
CMP L032EE8
|
|
BCC L037C51
|
|
L037C4B SEC
|
|
ROR L0370DD
|
|
BRA L037C7A
|
|
L037C51 JSR L037A1C
|
|
BCS L037C7A
|
|
JSR L038490
|
|
BCC L037C5C
|
|
RTS
|
|
|
|
L037C5C LDY #$0000
|
|
LDX #$001E
|
|
L037C62 STY L0370E1
|
|
STX L0370E3
|
|
LDA L0370DF
|
|
CMP L037022
|
|
BNE L037C7E
|
|
CPY L037024
|
|
BNE L037C7E
|
|
CPX L037026
|
|
BCS L037C7E
|
|
L037C7A SEP #$40
|
|
CLC
|
|
RTS
|
|
|
|
L037C7E REP #$41
|
|
RTS
|
|
|
|
L037C81 PHA
|
|
LDA L0370DF
|
|
CMP L037022
|
|
BNE L037C92
|
|
CPY L037024
|
|
BNE L037C92
|
|
PLA
|
|
SEC
|
|
RTS
|
|
|
|
L037C92 PLA
|
|
CLC
|
|
RTS
|
|
|
|
L037C95 LDA L0370DB
|
|
BEQ L037C9D
|
|
BRL L037D83
|
|
L037C9D LDA L03701C
|
|
BNE L037CF0
|
|
L037CA2 LDA L037029
|
|
LSR
|
|
CLC
|
|
ADC L0370CC
|
|
TAX
|
|
LDA L0370CE
|
|
BCC L037CB1
|
|
INC
|
|
L037CB1 CMP L037044
|
|
BCC L037CDD
|
|
BNE L037CBD
|
|
CPX L037042
|
|
BCC L037CDD
|
|
L037CBD LDA L037042
|
|
SEC
|
|
SBC L0370CC
|
|
STA L0370D0
|
|
LDA L037044
|
|
SBC L0370CE
|
|
LDX #$0009
|
|
L037CD0 ASL L0370D0
|
|
ROL
|
|
DEX
|
|
BNE L037CD0
|
|
STA L0370D2
|
|
BRL L037DAF
|
|
L037CDD CLC
|
|
LDA L037028
|
|
AND #$FE00
|
|
STA L0370D0
|
|
LDA L03702A
|
|
STA L0370D2
|
|
BRL L037DAF
|
|
L037CF0 LDA L037046
|
|
CMP #$0001
|
|
BEQ L037D5E
|
|
CMP #$0006
|
|
BNE L037CA2
|
|
LDA L0370CC
|
|
ORA L0370CE
|
|
BNE L037D16
|
|
LDA L03704E
|
|
STA L0370D5
|
|
STZ L0370D7
|
|
XBA
|
|
ASL
|
|
STA L0370D0
|
|
STZ L0370D2
|
|
L037D16 LDA L0370E9
|
|
BEQ L037D35
|
|
LDA #$0400
|
|
STA L0370D0
|
|
STZ L0370D2
|
|
LDA L0370D5
|
|
CLC
|
|
ADC #$0002
|
|
STA L0370D5
|
|
BCC L037D83
|
|
INC L0370D7
|
|
BRA L037D83
|
|
L037D35 LDX L0370E3
|
|
LDY L0370E1
|
|
L037D3B LDA [$D2],Y
|
|
CMP #$FFFF
|
|
BEQ L037D50
|
|
L037D42 AND L037110,X
|
|
BEQ L037D83
|
|
JSR L037E5E
|
|
BCS L037D72
|
|
BVC L037D3B
|
|
BRA L037D83
|
|
L037D50 JSR L037C81
|
|
BCS L037D42
|
|
JSR L037E83
|
|
BCS L037D72
|
|
BVC L037D3B
|
|
BRA L037D83
|
|
L037D5E LDX L0370E3
|
|
LDY L0370E1
|
|
L037D64 LDA [$D2],Y
|
|
BEQ L037D77
|
|
L037D68 AND L037110,X
|
|
BNE L037D83
|
|
JSR L037E5E
|
|
BCC L037D73
|
|
L037D72 RTS
|
|
|
|
L037D73 BVC L037D64
|
|
BRA L037D83
|
|
L037D77 JSR L037C81
|
|
BCS L037D68
|
|
JSR L037E83
|
|
BCS L037D72
|
|
BVC L037D64
|
|
L037D83 JSR L0334DA
|
|
BCC L037D89
|
|
RTS
|
|
|
|
L037D89 SEC
|
|
LDA L037028
|
|
SBC L0370D0
|
|
LDA L03702A
|
|
SBC L0370D2
|
|
BCS L037DAF
|
|
LDA L037028
|
|
AND #$FE00
|
|
STA L0384BB
|
|
STA L0330C6
|
|
LDA L03702A
|
|
STA L0384BB+2
|
|
STA L0330C8
|
|
BRA L037DC1
|
|
L037DAF LDA L0370D0
|
|
STA L0384BB
|
|
STA L0330C6
|
|
LDA L0370D2
|
|
STA L0384BB+2
|
|
STA L0330C8
|
|
L037DC1 LDA L0370C8
|
|
STA L0384B7
|
|
LDA L0370CA
|
|
STA L0384B7+2
|
|
LDA L0370CC
|
|
STA L0384BF
|
|
STA L0330CA
|
|
LDA L0370CE
|
|
STA L0384BF+2
|
|
STA L0330CC
|
|
LDA #$0200
|
|
STA L0384C3
|
|
LDA L037020
|
|
STA L0384B5
|
|
LDX L0370B2
|
|
JSR L03793E
|
|
JSR L038490
|
|
BCC L037DF7
|
|
RTS
|
|
|
|
L037DF7 LDA L0384C5+1
|
|
LSR
|
|
LSR
|
|
BCC L037E01
|
|
ORA #$0001
|
|
L037E01 CLC
|
|
ADC L032FCE
|
|
STA L032FCE
|
|
BCC L037E0D
|
|
INC L032FD0
|
|
L037E0D JSR L03353E
|
|
CLC
|
|
LDA L0370C8
|
|
ADC L0384C5
|
|
STA L0370C8
|
|
LDA L0370CA
|
|
ADC L0384C5+2
|
|
STA L0370CA
|
|
SEC
|
|
LDA L0370D0
|
|
SBC L0384C5
|
|
STA L0370D0
|
|
LDA L0370D2
|
|
SBC L0384C5+2
|
|
STA L0370D2
|
|
BCS L037E41
|
|
LDA #$0000
|
|
STA L0370D0
|
|
STA L0370D2
|
|
L037E41 ORA L0370D0
|
|
STA L0370DB
|
|
LDA L0384C5+1
|
|
LSR
|
|
CLC
|
|
ADC L0370CC
|
|
STA L0370CC
|
|
LDA #$0000
|
|
ADC L0370CE
|
|
STA L0370CE
|
|
REP #$41
|
|
RTS
|
|
|
|
L037E5E LDA L037054
|
|
CLC
|
|
ADC L0370D5
|
|
STA L0370D5
|
|
BCC L037E6D
|
|
INC L0370D7
|
|
L037E6D CLC
|
|
LDA L037050
|
|
ADC L0370D0
|
|
STA L0370D0
|
|
LDA L037052
|
|
ADC L0370D2
|
|
STA L0370D2
|
|
JMP L037C10
|
|
|
|
L037E83 LDA L037054
|
|
STZ L037ECE
|
|
LDX #$0004
|
|
L037E8C ASL
|
|
ROL L037ECE
|
|
DEX
|
|
BNE L037E8C
|
|
CLC
|
|
ADC L0370D5
|
|
STA L0370D5
|
|
LDA L037ECE
|
|
ADC L0370D7
|
|
STA L0370D7
|
|
LDA L037052
|
|
STA L037ECE
|
|
LDA L037050
|
|
ASL
|
|
ROL L037ECE
|
|
ASL
|
|
ROL L037ECE
|
|
ASL
|
|
ROL L037ECE
|
|
ASL
|
|
ROL L037ECE
|
|
ADC L0370D0
|
|
STA L0370D0
|
|
LDA L037ECE
|
|
ADC L0370D2
|
|
STA L0370D2
|
|
JMP L037C17
|
|
|
|
L037ECE DW $0000
|
|
L037ED0 LDA L03701E
|
|
BNE L037EED
|
|
LDX L0370CA
|
|
LDA L0370C8
|
|
BNE L037EDE
|
|
DEX
|
|
L037EDE DEC
|
|
STA $C6
|
|
STX $C8
|
|
SEP #$30
|
|
JSR L038186
|
|
REP #$30
|
|
BRL L037F6D
|
|
L037EED JSR L0334DA
|
|
BCC L037EF3
|
|
RTS
|
|
|
|
L037EF3 LDX L0370B6
|
|
JSR L03793E
|
|
LDA L03714E
|
|
STA $C2
|
|
STA L0370A6
|
|
LDA L037150
|
|
STA $C4
|
|
STA L0370A8
|
|
STZ L0370E7
|
|
STZ L0370E5
|
|
STZ L038184
|
|
SEC
|
|
LDA #$0000
|
|
SBC L03710B+1
|
|
STA $E6
|
|
LDA #$0000
|
|
SBC L03710E
|
|
STA $E8
|
|
ORA $E6
|
|
BEQ L037F2A
|
|
LDA #$FFFF
|
|
L037F2A STA $EA
|
|
SEP #$30
|
|
L037F2E LDA $EA
|
|
BEQ L037F6D
|
|
LDA L0370E7
|
|
BNE L037F58
|
|
STZ L0370E8
|
|
LDA [$C2]
|
|
STA L0370E6
|
|
INC L0370E8
|
|
DEC L0370E7
|
|
CMP #$DB
|
|
BNE L037F53
|
|
INC L0370E8
|
|
JSR L03815F
|
|
BVS L037F7D
|
|
BRA L037FCB
|
|
L037F53 JSR L03815F
|
|
BVS L037F7D
|
|
L037F58 LDA [$C2]
|
|
CMP L0370E6
|
|
BNE L037F82
|
|
INC L0370E8
|
|
PHP
|
|
JSR L03815F
|
|
BVS L037F7C
|
|
PLP
|
|
BNE L037F58
|
|
BRA L037F8B
|
|
L037F6D REP #$30
|
|
LDX L03714E
|
|
STX L0370C8
|
|
LDX L037150
|
|
STX L0370CA
|
|
RTS
|
|
|
|
L037F7C PLP
|
|
MX %11
|
|
L037F7D STZ $EA
|
|
STZ L038184
|
|
L037F82 LDA L0370E8
|
|
BEQ L037F8B
|
|
CMP #$04
|
|
BCC L037FCB
|
|
L037F8B LDA #$DB
|
|
STA [$C6]
|
|
JSR L038186
|
|
BCC L037F97
|
|
L037F94 REP #$30
|
|
RTS
|
|
|
|
MX %11
|
|
L037F97 LDA L0370E8
|
|
CMP #$DB
|
|
BNE L037FA2
|
|
DEC
|
|
DEC L0370E5
|
|
L037FA2 STA [$C6]
|
|
JSR L038186
|
|
BCS L037F94
|
|
LDA L0370E6
|
|
STA [$C6]
|
|
JSR L038186
|
|
BCS L037F94
|
|
LDX L0370E5
|
|
BEQ L037FC2
|
|
LDA L0370E6
|
|
STA [$C6]
|
|
JSR L038186
|
|
BCS L037F94
|
|
L037FC2 STZ L0370E7
|
|
STZ L0370E5
|
|
BRL L037F2E
|
|
L037FCB LDX L0370E8
|
|
L037FCE LDA L0370E6
|
|
STA [$C6]
|
|
JSR L038186
|
|
BCS L037F94
|
|
DEX
|
|
BNE L037FCE
|
|
STZ L0370E7
|
|
BRL L037F2E
|
|
MX %00
|
|
L037FE1 LDX L0370B6
|
|
JSR L03793E
|
|
LDA $CA
|
|
STA L03815B
|
|
LDA $CC
|
|
STA L03815D
|
|
LDA $C6
|
|
SEC
|
|
SBC $CA
|
|
STA L03710B+1
|
|
EOR #$FFFF
|
|
STA L037094
|
|
LDA $C8
|
|
SBC $CC
|
|
STA L03710E
|
|
EOR #$FFFF
|
|
INC L037094
|
|
BNE L03800F
|
|
INC
|
|
L03800F STA L037096
|
|
BNE L038017
|
|
BRL L038128
|
|
L038017 SEP #$30
|
|
LDA L03709A
|
|
BEQ L03802B
|
|
STA L037098
|
|
INC L037094
|
|
BNE L03806D
|
|
INC L037096
|
|
BRA L03806D
|
|
L03802B STZ L03709C
|
|
LDA [$CA]
|
|
CMP #$DB
|
|
BNE L03809A
|
|
INC L03709C
|
|
INC L037094
|
|
BNE L038055
|
|
INC L037095
|
|
BNE L038055
|
|
INC L037096
|
|
BNE L038055
|
|
INC L037097
|
|
BNE L038055
|
|
L03804B REP #$30
|
|
JSR L038130
|
|
STZ L03709A
|
|
SEC
|
|
RTS
|
|
|
|
MX %11
|
|
L038055 STZ L037099
|
|
LDY #$01
|
|
LDA [$CA],Y
|
|
BNE L038063
|
|
LDX #$01
|
|
STX L037099
|
|
L038063 CMP #$DB
|
|
BEQ L03809A
|
|
STA L037098
|
|
INC L03709C
|
|
L03806D REP #$30
|
|
LDA L037152
|
|
SEC
|
|
SBC $C2
|
|
TAX
|
|
LDA L037154
|
|
SBC $C4
|
|
BNE L038082
|
|
CPX L037098
|
|
BCC L038085
|
|
L038082 LDX L037098
|
|
L038085 INC L037094
|
|
BNE L03808F
|
|
INC L037096
|
|
BEQ L03804B
|
|
L03808F STX L03709A
|
|
SEP #$30
|
|
LDY #$02
|
|
LDA [$CA],Y
|
|
BRA L0380A5
|
|
L03809A LDX #$01
|
|
STX L03709A
|
|
STX L037098
|
|
STZ L037099
|
|
L0380A5 PHX
|
|
LDY #$00
|
|
L0380A8 STA [$C2],Y
|
|
INY
|
|
DEX
|
|
BNE L0380A8
|
|
PLA
|
|
REP #$31
|
|
AND #$00FF
|
|
BNE L0380B9
|
|
LDA #$0100
|
|
L0380B9 ADC $C2
|
|
STA $C2
|
|
TAY
|
|
LDX $C4
|
|
BCC L0380C5
|
|
INX
|
|
STX $C4
|
|
L0380C5 LDA $CA
|
|
SEC
|
|
ADC L03709C
|
|
STA $CA
|
|
BCC L0380D1
|
|
INC $CC
|
|
L0380D1 CPX L037154
|
|
BNE L03810F
|
|
CPY L037152
|
|
BNE L03810F
|
|
L0380DB LDA L037098
|
|
SEC
|
|
SBC L03709A
|
|
BCS L0380EF
|
|
LDA L03709A
|
|
AND #$00FF
|
|
STA L03709A
|
|
BRA L0380DB
|
|
L0380EF STA L03709A
|
|
BEQ L038100
|
|
LDA $CA
|
|
CLC
|
|
SBC L03709C
|
|
STA $CA
|
|
BCS L038100
|
|
DEC $CC
|
|
L038100 LDA $C2
|
|
STA L0370C8
|
|
LDA $C4
|
|
STA L0370CA
|
|
JSR L038130
|
|
CLC
|
|
RTS
|
|
|
|
L03810F SEP #$30
|
|
INC L037094
|
|
BNE L038125
|
|
INC L037095
|
|
BNE L038125
|
|
INC L037096
|
|
BNE L038125
|
|
INC L037097
|
|
BEQ L038128
|
|
L038125 BRL L03802B
|
|
L038128 REP #$30
|
|
STZ L03709C
|
|
BRL L03804B
|
|
L038130 LDA $CA
|
|
SEC
|
|
SBC L03815B
|
|
STA $78
|
|
LDA $CC
|
|
SBC L03815D
|
|
LDX #$000A
|
|
L038140 LSR
|
|
ROR $78
|
|
DEX
|
|
BNE L038140
|
|
TAX
|
|
LDA L032FCE
|
|
CLC
|
|
ADC $78
|
|
STA L032FCE
|
|
TXA
|
|
ADC L032FD0
|
|
STA L032FD0
|
|
JSR L03353E
|
|
RTS
|
|
|
|
L03815B BRK $00
|
|
L03815D BRK $00
|
|
L03815F INC $E6
|
|
BNE L038172
|
|
INC $E7
|
|
BNE L038172
|
|
INC $E8
|
|
BNE L038172
|
|
INC $E9
|
|
BNE L038172
|
|
DEC L038184
|
|
L038172 INC $C2
|
|
BNE L038180
|
|
INC $C3
|
|
BNE L038180
|
|
INC $C4
|
|
BNE L038180
|
|
INC $C5
|
|
L038180 BIT L038184
|
|
RTS
|
|
|
|
L038184 BRK $00
|
|
L038186 INC $C6
|
|
BNE L038194
|
|
INC $C7
|
|
BNE L038194
|
|
INC $C8
|
|
BNE L038194
|
|
INC $C9
|
|
L038194 LDA $C6
|
|
CMP L037146
|
|
BNE L0381BC
|
|
LDA $C7
|
|
CMP L037147
|
|
BNE L0381BC
|
|
LDA $C8
|
|
CMP L037148
|
|
BNE L0381BC
|
|
LDA $C9
|
|
CMP L037149
|
|
BNE L0381BC
|
|
REP #$30
|
|
PHY
|
|
PHX
|
|
L0381B4 JSR L03826E
|
|
PLX
|
|
PLY
|
|
SEP #$30
|
|
RTS
|
|
|
|
L0381BC CLC
|
|
RTS
|
|
|
|
MX %00
|
|
L0381BE LDA L037142
|
|
STA $CA
|
|
LDA L037144
|
|
STA $CC
|
|
LDA L03714E
|
|
STA $C2
|
|
STA L0370C8
|
|
LDA L037150
|
|
STA $C4
|
|
STA L0370CA
|
|
LDA L033050
|
|
TCS
|
|
JMP L0387CB
|
|
|
|
L0381DF LDX #$0022
|
|
L0381E2 LDA L033056,X
|
|
STA L0370C8,X
|
|
DEX
|
|
DEX
|
|
BPL L0381E2
|
|
LDA L03307A
|
|
STA $C2
|
|
LDA L03307C
|
|
STA $C4
|
|
LDA L03307E
|
|
STA $E6
|
|
LDA L033080
|
|
STA $E8
|
|
LDA L03308C
|
|
LDX L03308E
|
|
CMP L0330CA
|
|
BNE L038210
|
|
CPX L0330CC
|
|
BEQ L038240
|
|
L038210 STA L0384BF
|
|
STX L0384BF+2
|
|
LDA L033088
|
|
STA L0384BB
|
|
LDA L03308A
|
|
STA L0384BB+2
|
|
LDA L03714E
|
|
STA L0384B7
|
|
LDA L037150
|
|
STA L0384B7+2
|
|
LDA #$0200
|
|
STA L0384C3
|
|
LDA L037020
|
|
STA L0384B5
|
|
JSR L038490
|
|
BCC L038240
|
|
RTS
|
|
|
|
L038240 LDA L033090
|
|
STA L032FCE
|
|
LDA L033092
|
|
STA L032FD0
|
|
JSR L03353E
|
|
DEC L032F0C
|
|
LDA L033050
|
|
TCS
|
|
PEA L038882+2
|
|
LDA L033086
|
|
PHA
|
|
LDA L033084
|
|
PHA
|
|
LDA L033082
|
|
PHA
|
|
PEA L0381B4+2
|
|
PEA L0382C7+2
|
|
JMP L033FD8
|
|
|
|
L03826E JSR L0334DA
|
|
BCC L038274
|
|
RTS
|
|
|
|
L038274 LDA $C6
|
|
SEC
|
|
SBC L037142
|
|
STA L032EBC
|
|
LDA $C8
|
|
SBC L037144
|
|
STA L032EBE
|
|
LDX #$0022
|
|
L038288 LDA L0370C8,X
|
|
STA L033094,X
|
|
DEX
|
|
DEX
|
|
BPL L038288
|
|
LDA $C2
|
|
STA L0330B8
|
|
LDA $C4
|
|
STA L0330BA
|
|
LDA $E6
|
|
STA L0330BC
|
|
LDA $E8
|
|
STA L0330BE
|
|
LDA $03,S
|
|
STA L0330C0
|
|
LDA $05,S
|
|
STA L0330C2
|
|
LDA $07,S
|
|
STA L0330C4
|
|
LDA L032FCE
|
|
STA L033090
|
|
LDA L032FD0
|
|
STA L033092
|
|
LDA L0370AA
|
|
STA L0370AC
|
|
L0382C7 JSR L03454D
|
|
BCC L0382CD
|
|
RTS
|
|
|
|
L0382CD LDX L0370AC
|
|
JSR L03793E
|
|
JSR L0334DA
|
|
BCC L0382D9
|
|
RTS
|
|
|
|
L0382D9 LDA L03701E
|
|
BNE L0382EC
|
|
LDA $C6
|
|
SEC
|
|
SBC L037142
|
|
TAY
|
|
LDA $C8
|
|
SBC L037144
|
|
BRA L0382F8
|
|
L0382EC LDA $C2
|
|
SEC
|
|
SBC L0370A6
|
|
TAY
|
|
LDA $C4
|
|
SBC L0370A8
|
|
L0382F8 LDX #$000A
|
|
STA $78
|
|
TYA
|
|
L0382FE LSR $78
|
|
ROR
|
|
DEX
|
|
BNE L0382FE
|
|
BCC L038309
|
|
ORA #$0001
|
|
L038309 CLC
|
|
ADC L032FCE
|
|
STA L032FCE
|
|
BCC L038315
|
|
INC L032FD0
|
|
L038315 LDA $C2
|
|
STA L0370A6
|
|
LDA $C4
|
|
STA L0370A8
|
|
JSR L03353E
|
|
LDA L032EBC
|
|
CLC
|
|
ADC $6C
|
|
STA $CA
|
|
STA $C6
|
|
LDA L032EBE
|
|
ADC $6E
|
|
STA $CC
|
|
STA $C8
|
|
LDA L032EC8
|
|
CLC
|
|
ADC $6C
|
|
STA L037146
|
|
LDA L032ECA
|
|
ADC $6E
|
|
STA L037148
|
|
LDA L03701E
|
|
BNE L03836B
|
|
LDA $CA
|
|
STA L03714E
|
|
STA $C2
|
|
STA L0370C8
|
|
LDA $CC
|
|
STA L037150
|
|
STA $C4
|
|
STA L0370CA
|
|
LDA L037146
|
|
STA L037152
|
|
LDA L037148
|
|
STA L037154
|
|
L03836B CLC
|
|
RTS
|
|
|
|
L03836D LDA L03705A
|
|
XBA
|
|
AND #$00FF
|
|
STA L037048
|
|
STZ L03704A
|
|
LSR L03704A
|
|
ROR L037048
|
|
LSR L03704A
|
|
ROR L037048
|
|
LSR L03704A
|
|
ROR L037048
|
|
LSR L03704A
|
|
ROR L037048
|
|
LDA L03705A
|
|
AND #$0FFF
|
|
BEQ L0383A2
|
|
INC L037048
|
|
BNE L0383A2
|
|
INC L03704A
|
|
L0383A2 PHA
|
|
LSR
|
|
LSR
|
|
LSR
|
|
AND #$FFFE
|
|
STA L037024
|
|
PLA
|
|
AND #$000F
|
|
ASL
|
|
EOR #$001F
|
|
STA L037026
|
|
CLC
|
|
LDA L037048
|
|
DEC
|
|
ADC L03704C
|
|
STA L037022
|
|
RTS
|
|
|
|
L0383C3 LDA L037046
|
|
CMP #$0001
|
|
BEQ L0383D3
|
|
CMP #$0006
|
|
BEQ L0383D3
|
|
BRL L038475
|
|
L0383D3 LDA L037020
|
|
STA L03847C
|
|
CLC
|
|
LDA $CE
|
|
ADC #$0128
|
|
STA L03847E
|
|
STA $D2
|
|
LDA $D0
|
|
ADC #$0000
|
|
STA L03847E+2
|
|
STA $D4
|
|
LDA L0370AE
|
|
BEQ L0383F8
|
|
L0383F3 JSR L03762E
|
|
BCS L03840E
|
|
L0383F8 JSL GSOS
|
|
DW $202F ; DRead
|
|
ADRL L03847A
|
|
BCC L03840F
|
|
CMP #$002F
|
|
BEQ L0383F3
|
|
CMP #$002E
|
|
BEQ L0383F3
|
|
L03840E RTS
|
|
|
|
L03840F LDA L037046
|
|
CMP #$0001
|
|
BNE L03843C
|
|
LDY #$0027
|
|
LDA [$D2],Y
|
|
STA L03704C
|
|
LDA #$0200
|
|
STA L037050
|
|
STZ L037052
|
|
STZ L03704E
|
|
LDA L037042
|
|
STA L037056
|
|
STA L03705A
|
|
LDA L037044
|
|
STA L037058
|
|
BRA L038469
|
|
L03843C LDY #$000E
|
|
LDA [$D2],Y
|
|
XBA
|
|
STA L03704C
|
|
LDY #$0014
|
|
LDA [$D2],Y
|
|
XBA
|
|
STA L037052
|
|
LDY #$0016
|
|
LDA [$D2],Y
|
|
XBA
|
|
STA L037050
|
|
LDY #$001C
|
|
LDA [$D2],Y
|
|
XBA
|
|
STA L03704E
|
|
LDY #$0012
|
|
LDA [$D2],Y
|
|
XBA
|
|
STA L03705A
|
|
L038469 JSR L03836D
|
|
LDA L037051
|
|
LSR
|
|
STA L037054
|
|
CLC
|
|
RTS
|
|
|
|
L038475 STZ L03701C
|
|
CLC
|
|
RTS
|
|
|
|
L03847A DW $0006 ; Parms for DRead
|
|
L03847C DW $0000 ; device num
|
|
L03847E ADRL $00000000 ; buffer ptr
|
|
ADRL $00000200 ; request count
|
|
ADRL $00000002 ; starting block
|
|
DW $0200 ; block size
|
|
ADRL $00000000 ; transfer count
|
|
L038490 LDA L0370AE
|
|
BEQ L03849B
|
|
L038495 JSR L03762E
|
|
BCC L03849B
|
|
RTS
|
|
|
|
L03849B JSL GSOS
|
|
DW $202F ; DRead
|
|
ADRL L0384B3
|
|
BCC L0384B2
|
|
CMP #$002F
|
|
BEQ L038495
|
|
CMP #$002E
|
|
BEQ L038495
|
|
SEC
|
|
L0384B2 RTS
|
|
|
|
L0384B3 DW $0006 ; Parms for DRead
|
|
L0384B5 DW $0000 ; device num
|
|
L0384B7 ADRL $00000000 ; buffer ptr
|
|
L0384BB ADRL $00000000 ; request count
|
|
L0384BF ADRL $00000000 ; starting block
|
|
L0384C3 DW $0000 ; block size
|
|
L0384C5 ADRL $00000000 ; transfer count
|
|
L0384C9 LDA $6C
|
|
STA L037142
|
|
LDA $6E
|
|
STA L037144
|
|
LDA L03701E
|
|
BNE L038529
|
|
LDA L037142
|
|
STA L03714E
|
|
STA $C2
|
|
STA L0370C8
|
|
LDA L037144
|
|
STA L037150
|
|
STA $C4
|
|
STA L0370CA
|
|
LDA L032EC0
|
|
LDX L032EDA
|
|
BEQ L0384FE
|
|
LDX L032EF0
|
|
CPX #$0200
|
|
BNE L038503
|
|
L0384FE AND #$FE00
|
|
BRA L038506
|
|
L038503 AND #$E000
|
|
L038506 BNE L03850F
|
|
LDX L032EC2
|
|
BNE L03850F
|
|
SEC
|
|
RTS
|
|
|
|
L03850F STA L032EC0
|
|
CLC
|
|
ADC L037142
|
|
STA L037146
|
|
STA L037152
|
|
LDA L032EC2
|
|
ADC L037144
|
|
STA L037148
|
|
STA L037154
|
|
RTS
|
|
|
|
L038529 LDA L032EC2
|
|
BNE L03855B
|
|
LDA L032EDA
|
|
BNE L038536
|
|
BRL L0385C6
|
|
L038536 STZ $7A
|
|
LDA L032EC0
|
|
LSR
|
|
CMP L032EF0
|
|
BCC L038545
|
|
STA $78
|
|
BRA L038567
|
|
L038545 LDA L032EC0
|
|
SEC
|
|
SBC L032EF0
|
|
CMP #$0200
|
|
BCS L038554
|
|
BRL L0385F2
|
|
L038554 LDA L032EF0
|
|
STA $78
|
|
BRA L038567
|
|
L03855B LDA L032EC2
|
|
LSR
|
|
STA $7A
|
|
LDA L032EC0
|
|
ROR
|
|
STA $78
|
|
L038567 LDA $78
|
|
LDY L032EF0
|
|
CPY #$0200
|
|
BNE L038576
|
|
AND #$FE00
|
|
BRA L038579
|
|
L038576 AND #$E000
|
|
L038579 CLC
|
|
ADC #$0002
|
|
CLC
|
|
ADC $6C
|
|
STA L037146
|
|
STA L03714E
|
|
STA $C2
|
|
STA L0370C8
|
|
LDA $7A
|
|
ADC $6E
|
|
STA L037148
|
|
STA L037150
|
|
STA $C4
|
|
STA L0370CA
|
|
L03859A LDA L032EC0
|
|
CLC
|
|
ADC $6C
|
|
TAX
|
|
LDA L032EC2
|
|
ADC $6E
|
|
TAY
|
|
TXA
|
|
SEC
|
|
SBC L03714E
|
|
AND #$FE00
|
|
TAX
|
|
TYA
|
|
SBC L037150
|
|
TAY
|
|
TXA
|
|
CLC
|
|
ADC L03714E
|
|
STA L037152
|
|
TYA
|
|
ADC L037150
|
|
STA L037154
|
|
BRA L0385F7
|
|
L0385C6 LDA L032EC0
|
|
CMP #$0400
|
|
BCC L0385EC
|
|
AND #$FE00
|
|
LSR
|
|
CLC
|
|
ADC #$0002
|
|
L0385D6 CLC
|
|
ADC $6C
|
|
STA L037146
|
|
STA L03714E
|
|
LDA $6E
|
|
ADC #$0000
|
|
STA L037148
|
|
STA L037150
|
|
BRA L03859A
|
|
L0385EC SEC
|
|
SBC #$0200
|
|
BCS L0385D6
|
|
L0385F2 LDA #$0054
|
|
SEC
|
|
RTS
|
|
|
|
L0385F7 LDA L037146
|
|
SEC
|
|
SBC L037142
|
|
AND #$FFFC
|
|
STA L032EC0
|
|
LDA L037148
|
|
SBC L037144
|
|
STA L032EC2
|
|
CLC
|
|
RTS
|
|
|
|
L03860F LDA L032F14
|
|
PHA
|
|
_DisposeAll
|
|
RTS
|
|
|
|
L03861B ENT
|
|
PHB
|
|
LDA $01,S
|
|
PHK
|
|
PLB
|
|
STA L032FC6
|
|
TDC
|
|
STA L032EB2
|
|
LDA $05,S
|
|
TCD
|
|
LDA $09,S
|
|
STA L032EDA
|
|
LDA $0B,S
|
|
STA L032EF2
|
|
LDA $07,S
|
|
ORA #$0300
|
|
STA L032F14
|
|
LDA $0D,S
|
|
STA L032F02
|
|
LDA $0F,S
|
|
STA L032F04
|
|
LDA $11,S
|
|
STA L032F06
|
|
LDA $13,S
|
|
STA $22
|
|
LDA $15,S
|
|
STA $24
|
|
LDA $17,S
|
|
STA L032FE4
|
|
LDA $19,S
|
|
STA L032FE6
|
|
LDA $1B,S
|
|
STA L03708A
|
|
LDA $1D,S
|
|
STA L03708C
|
|
LDA $1F,S
|
|
STA L037046
|
|
LDA $21,S
|
|
STA L037042
|
|
LDA $23,S
|
|
STA L037044
|
|
LDA $25,S
|
|
STA L03703E
|
|
LDA $27,S
|
|
STA L037040
|
|
PLA
|
|
STA $23,S
|
|
PLA
|
|
STA $23,S
|
|
TSC
|
|
CLC
|
|
ADC #$0020
|
|
TCS
|
|
STA L033050
|
|
LDA #L038997
|
|
STA L033102
|
|
LDA #$FFFF
|
|
STA L0370AA
|
|
JSR L0334DA
|
|
BCC L0386A3
|
|
BRL L0388E0
|
|
L0386A3 LDX #L038934
|
|
STX L0370B4
|
|
JSR L03793E
|
|
LDA #L05004E
|
|
STA $02
|
|
LDA #^L05004E
|
|
STA $04
|
|
STZ L037130
|
|
STZ L0330D2
|
|
STZ L03701E
|
|
STZ L033034
|
|
STZ L03701C
|
|
LDAL L060002
|
|
BIT #$0200
|
|
BEQ L0386D1
|
|
DEC L03701C
|
|
L0386D1 BIT #$000F
|
|
BEQ L0386DF
|
|
DEC L03701E
|
|
LDA #$0020
|
|
TSB L033034
|
|
L0386DF SEC
|
|
ROR L032FD8
|
|
LDA #$0004
|
|
TSB L033034
|
|
STZ L0370D5
|
|
STZ L0370D7
|
|
JSR L03537D
|
|
BCC L0386F7
|
|
L0386F4 BRL L0388E0
|
|
L0386F7 CLC
|
|
JSR L033340
|
|
LDX #$2000
|
|
LDA #$0000
|
|
LDY L032F14
|
|
JSR L0325E6
|
|
STX L037132
|
|
STX $7C
|
|
STY L037134
|
|
STY $7E
|
|
BCS L0386F4
|
|
LDY #$0002
|
|
LDA [$7C],Y
|
|
STA $D0
|
|
STA L03713C
|
|
STA L037140
|
|
TAX
|
|
LDA [$7C]
|
|
STA $CE
|
|
STA L03713A
|
|
STA L03713E
|
|
CLC
|
|
ADC #$2000
|
|
STA L037136
|
|
BCC L038735
|
|
INX
|
|
L038735 STX L037138
|
|
JSR L0353FE
|
|
BCS L0386F4
|
|
JSR L0384C9
|
|
BCS L0386F4
|
|
STZ L0370C6
|
|
JSR L037156
|
|
BCC L03874D
|
|
BRL L0388E0
|
|
L03874D LDA #$0001
|
|
STA [$02]
|
|
LDA #L03745D
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA #^L03745D
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$2034
|
|
JSR L033500
|
|
BCC L03876C
|
|
BRL L0388E0
|
|
L03876C STZ L0370AE
|
|
JSR L03738B
|
|
STZ L0370C6
|
|
JSR L0383C3
|
|
BCC L03877D
|
|
BRL L0388E0
|
|
L03877D LDA L03701C
|
|
BEQ L038788
|
|
LDA #$0100
|
|
TSB L033034
|
|
L038788 PHA
|
|
PHA
|
|
PHA
|
|
PHA
|
|
_ReadTimeHex
|
|
LDX #$0000
|
|
L038796 PLA
|
|
STA L032EFA,X
|
|
INX
|
|
INX
|
|
CPX #$0008
|
|
BNE L038796
|
|
LDA L032EFA
|
|
EOR L032EFC
|
|
EOR L037042
|
|
EOR L03714E
|
|
STA L032F08
|
|
LDA L032EFE
|
|
EOR L032F00
|
|
EOR L037044
|
|
EOR L037150
|
|
STA L032F0A
|
|
LDA #L0381BE
|
|
STA L033052
|
|
LDA #L0381DF
|
|
STA L033054
|
|
L0387CB JSR L0334DA
|
|
BCC L0387D3
|
|
BRL L0388E0
|
|
L0387D3 STZ L032F0C
|
|
STZ L03705C
|
|
STZ L0370D9
|
|
DEC L0370D9
|
|
STZ L0370DB
|
|
STZ L0370E9
|
|
JSR L03799C
|
|
STZ L032EBC
|
|
STZ L032EBE
|
|
SEC
|
|
ROR L0370C6
|
|
JSR L035197
|
|
BCC L0387FA
|
|
L0387F7 BRL L0388E0
|
|
L0387FA STZ L0370C6
|
|
JSR L0379DD
|
|
BCS L0387F7
|
|
LDA [$D2]
|
|
STA L03705E
|
|
LDA L032EC8
|
|
CLC
|
|
ADC L037142
|
|
STA L037146
|
|
LDA L032ECA
|
|
ADC L037144
|
|
STA L037148
|
|
LDA L032EBC
|
|
CLC
|
|
ADC $6C
|
|
STA $C6
|
|
LDA L032EBE
|
|
ADC $6E
|
|
STA $C8
|
|
LDA L032ECA
|
|
BNE L038844
|
|
LDA L032EC8
|
|
CMP #$8000
|
|
BCS L038844
|
|
LDA #L038951
|
|
STA L0370B2
|
|
STA L0370B4
|
|
STA L0370B6
|
|
BRA L038856
|
|
L038844 LDA #L038982
|
|
STA L0370B2
|
|
LDA #L034753
|
|
STA L0370B4
|
|
LDA #L038969
|
|
STA L0370B6
|
|
L038856 JSR L0334DA
|
|
BCC L03885E
|
|
BRL L0388E0
|
|
L03885E STZ L0370C6
|
|
JSR L037A5F
|
|
BCC L038869
|
|
BRL L0388E0
|
|
L038869 BVS L03888A
|
|
LDA L0370C8
|
|
SEC
|
|
SBC L03714E
|
|
STA L03710B+1
|
|
LDA L0370CA
|
|
SBC L037150
|
|
STA L03710E
|
|
SEC
|
|
ROR L0370C6
|
|
L038882 JSR L037ED0
|
|
BCC L03885E
|
|
BRL L0388E0
|
|
L03888A LDA L03701E
|
|
BNE L038899
|
|
LDA L0370C8
|
|
STA $C6
|
|
LDA L0370CA
|
|
STA $C8
|
|
L038899 LDA $C6
|
|
SEC
|
|
SBC L037142
|
|
STA L032EBC
|
|
STA $78
|
|
LDA $C8
|
|
SBC L037144
|
|
STA L032EBE
|
|
LDX #$0009
|
|
L0388AF LSR
|
|
ROR $78
|
|
DEX
|
|
BNE L0388AF
|
|
STA L032FD4
|
|
LDA $78
|
|
STA L032FD2
|
|
SEC
|
|
ROR L0370C6
|
|
JSR L0347CC
|
|
BCC L0388C9
|
|
BRL L0388E0
|
|
L0388C9 JSR L037239
|
|
BCC L0388D1
|
|
BRL L0388E0
|
|
L0388D1 LDA #$FFFF
|
|
STA L032FCE
|
|
STA L032FD0
|
|
JSR L03353E
|
|
LDA #$0000
|
|
L0388E0 STA L037130
|
|
LDA L032EDA
|
|
BNE L038906
|
|
LDA L037130
|
|
BNE L0388F1
|
|
SEC
|
|
ROR L0370C6
|
|
L0388F1 LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE2
|
|
BEQ L038906
|
|
STA [$02],Y
|
|
LDA #$2014
|
|
JSR L033500
|
|
L038906 JSR L03860F
|
|
JSR L0373B3
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDA #L03745D
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA #^L03745D
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$2035
|
|
JSR L033500
|
|
LDA L037130
|
|
STA [$22]
|
|
CMP #$0001
|
|
LDA L032EB2
|
|
TCD
|
|
PLB
|
|
RTL
|
|
|
|
L038934 STR 'Preparing for volume backupI'
|
|
L038951 STR 'Backing up volume dataI'
|
|
L038969 STR 'Compressing volume dataI'
|
|
L038982 STR 'Reading volume dataI'
|
|
L038997 STR 'Your backup will be completely unusable.'
|
|
DB $00
|
|
L0389C1 LDX L0370B2
|
|
JSR L03793E
|
|
L0389C7 LDA L037146
|
|
SEC
|
|
SBC $CA
|
|
STA L037030
|
|
LDA L037148
|
|
SBC $CC
|
|
STA L037032
|
|
LDA L032EDA
|
|
BEQ L0389E0
|
|
BRL L038A70
|
|
L0389E0 LDA L03302E
|
|
SEC
|
|
SBC L032FE8
|
|
TAX
|
|
STA L037034
|
|
LDA L033030
|
|
SBC L032FEA
|
|
STA L037036
|
|
CMP L037032
|
|
BCC L038A08
|
|
BNE L038A00
|
|
CPX L037030
|
|
BCC L038A08
|
|
L038A00 LDA L037030
|
|
LDX L037032
|
|
BRA L038A0E
|
|
L038A08 LDA L037034
|
|
LDX L037036
|
|
L038A0E STA L0370D0
|
|
STX L0370D2
|
|
TAY
|
|
ORA L0370D2
|
|
BEQ L038A6C
|
|
TYA
|
|
LDY #$0008
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
TXA
|
|
STA [$02],Y
|
|
LDA #$0004
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE2
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $CA
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $CC
|
|
STA [$02],Y
|
|
LDA #$2012
|
|
JSR L033500
|
|
BCC L038A47
|
|
RTS
|
|
|
|
L038A47 LDA L032FE8
|
|
CLC
|
|
ADC L0370D0
|
|
STA L032FE8
|
|
LDA L032FEA
|
|
ADC L0370D2
|
|
STA L032FEA
|
|
LDA $CA
|
|
CLC
|
|
ADC L0370D0
|
|
STA $CA
|
|
LDA $CC
|
|
ADC L0370D2
|
|
STA $CC
|
|
CLC
|
|
CLV
|
|
RTS
|
|
|
|
L038A6C CLC
|
|
SEP #$40
|
|
RTS
|
|
|
|
L038A70 LDA L032F0C
|
|
CMP L033032
|
|
BNE L038A8D
|
|
LDA L037062
|
|
SEC
|
|
SBC L0370CC
|
|
STA L037038
|
|
LDA L037064
|
|
SBC L0370CE
|
|
STA L03703A
|
|
BRA L038AA0
|
|
L038A8D LDA L032ED6
|
|
SEC
|
|
SBC L0370CC
|
|
STA L037038
|
|
LDA L032ED8
|
|
SBC L0370CE
|
|
STA L03703A
|
|
L038AA0 LDA L037030
|
|
LDY L037032
|
|
JSR L033372
|
|
CPY L03703A
|
|
BCC L038AB5
|
|
BNE L038ACD
|
|
CMP L037038
|
|
BCS L038ACD
|
|
L038AB5 LDA L037030
|
|
LDX L032EF0
|
|
CPX #$0200
|
|
BEQ L038AC5
|
|
AND #$E000
|
|
BRA L038AC8
|
|
L038AC5 AND #$FE00
|
|
L038AC8 LDX L037032
|
|
BRA L038AE0
|
|
L038ACD LDA L03703A
|
|
STA $EC
|
|
LDA L037038
|
|
LDX L032ED4
|
|
L038AD8 ASL
|
|
ROL $EC
|
|
DEX
|
|
BNE L038AD8
|
|
LDX $EC
|
|
L038AE0 STA L0370D0
|
|
STX L0370D2
|
|
LDY L0370B0
|
|
BEQ L038AF1
|
|
L038AEB JSR L037492
|
|
BCC L038AF1
|
|
RTS
|
|
|
|
L038AF1 LDA L0370D0
|
|
LDX L0370D2
|
|
TAY
|
|
ORA L0370D2
|
|
BNE L038B00
|
|
BRL L038A6C
|
|
L038B00 TYA
|
|
LDY #$0008
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
TXA
|
|
STA [$02],Y
|
|
LDA #$0006
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032EDA
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $CA
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $CC
|
|
STA [$02],Y
|
|
LDY #$000C
|
|
LDA L0370CC
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L0370CE
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EF0
|
|
STA [$02],Y
|
|
LDA #$202F
|
|
JSR L033500
|
|
BCC L038B50
|
|
CMP #$002F
|
|
BEQ L038AEB
|
|
CMP #$002E
|
|
BNE L038B4E
|
|
BRA L038AEB
|
|
L038B4E SEC
|
|
RTS
|
|
|
|
L038B50 LDA L03703C
|
|
BEQ L038B7C
|
|
CLC
|
|
ADC $CA
|
|
TAX
|
|
LDA $CC
|
|
TAY
|
|
ADC #$0000
|
|
PHA
|
|
PHX
|
|
PHY
|
|
LDA $CA
|
|
PHA
|
|
LDA L0370D0
|
|
SEC
|
|
SBC L03703C
|
|
TAX
|
|
LDA L0370D2
|
|
SBC #$0000
|
|
PHA
|
|
PHX
|
|
_BlockMove
|
|
L038B7C LDA L0370D0
|
|
SEC
|
|
SBC L03703C
|
|
TAX
|
|
LDA L0370D2
|
|
SBC #$0000
|
|
TAY
|
|
TXA
|
|
CLC
|
|
ADC $CA
|
|
STA $CA
|
|
TYA
|
|
ADC $CC
|
|
STA $CC
|
|
STZ L03703C
|
|
LDA L0370D0
|
|
LDY L0370D2
|
|
JSR L033372
|
|
CLC
|
|
ADC L0370CC
|
|
STA L0370CC
|
|
TAX
|
|
TYA
|
|
ADC L0370CE
|
|
STA L0370CE
|
|
CMP L032ED8
|
|
BNE L038BF0
|
|
CPX L032ED6
|
|
BNE L038BF0
|
|
LDA L032F0C
|
|
CMP L033032
|
|
BEQ L038BF0
|
|
INC
|
|
STA L032F8E
|
|
LDA #$0000
|
|
STA L033028
|
|
TAX
|
|
LDA #$0001
|
|
JSR L035D61
|
|
BCC L038BD7
|
|
RTS
|
|
|
|
L038BD7 JSR L039058
|
|
LDA L037146
|
|
SEC
|
|
SBC $CA
|
|
TAX
|
|
LDA L037148
|
|
SBC $CC
|
|
BNE L038BED
|
|
CPX L032EF0
|
|
BCC L038BF0
|
|
L038BED BRL L0389C7
|
|
L038BF0 CLC
|
|
CLV
|
|
RTS
|
|
|
|
L038BF3 STX L038CA8
|
|
STA L038CAA
|
|
LDY L0370AE
|
|
BEQ L038C04
|
|
L038BFE JSR L03762E
|
|
BCC L038C04
|
|
RTS
|
|
|
|
L038C04 LDA L0370B8
|
|
BNE L038C2A
|
|
DEC L0370B8
|
|
LDY #$0008
|
|
L038C0F LDA [$C2],Y
|
|
STA L0370BC,Y
|
|
DEY
|
|
DEY
|
|
BPL L038C0F
|
|
LDY #$0008
|
|
L038C1B LDA L032EA8,Y
|
|
STA [$C2],Y
|
|
DEY
|
|
DEY
|
|
BPL L038C1B
|
|
LDA L032EE8
|
|
STA L0370BA
|
|
L038C2A LDX L038CA8
|
|
LDA L038CAA
|
|
LDY #$000A
|
|
STA [$02],Y
|
|
DEY
|
|
DEY
|
|
TXA
|
|
STA [$02],Y
|
|
LDA #$0006
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L037020
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $C2
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $C4
|
|
STA [$02],Y
|
|
LDY #$000C
|
|
LDA L032EE8
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EEA
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0200
|
|
STA [$02],Y
|
|
LDX L0370B4
|
|
JSR L03793E
|
|
LDA #$2030
|
|
JSR L033500
|
|
BCC L038C86
|
|
CMP #$002F
|
|
BEQ L038BFE
|
|
CMP #$002E
|
|
BNE L038C84
|
|
BRL L038BFE
|
|
L038C84 SEC
|
|
RTS
|
|
|
|
L038C86 LDA L038CA8
|
|
LDX #$000A
|
|
L038C8C LSR L038CAA
|
|
ROR
|
|
DEX
|
|
BNE L038C8C
|
|
CLC
|
|
ADC L032FCE
|
|
STA L032FCE
|
|
LDA L038CAA
|
|
ADC L032FD0
|
|
STA L032FD0
|
|
JSR L03353E
|
|
CLC
|
|
RTS
|
|
|
|
L038CA8 DW $0000
|
|
L038CAA DW $0000
|
|
L038CAC BIT L0370DD
|
|
BPL L038CC7
|
|
LDA L0370E1
|
|
CMP #$0002
|
|
BNE L038CBC
|
|
DEC L0370DF
|
|
L038CBC JSR L037A1C
|
|
BCS L038D0E
|
|
JSR L038490
|
|
BCC L038CC7
|
|
RTS
|
|
|
|
L038CC7 LDA L0370DF
|
|
CMP L037022
|
|
BNE L038D18
|
|
LDY L0370E1
|
|
CPY L037024
|
|
BNE L038D18
|
|
LDX L0370E3
|
|
CPX L037026
|
|
BCS L038D18
|
|
LDA L037046
|
|
CMP #$0006
|
|
BNE L038D0E
|
|
LDA L0370E9
|
|
BNE L038D0E
|
|
L038CEC LDA L037042
|
|
SEC
|
|
SBC #$0002
|
|
STA L032EE8
|
|
LDA L037044
|
|
SBC #$0000
|
|
STA L032EEA
|
|
LDA #$0002
|
|
STA L03702C
|
|
STZ L03702E
|
|
DEC L0370E9
|
|
REP #$41
|
|
RTS
|
|
|
|
L038D0E STZ L03702C
|
|
STZ L03702E
|
|
CLC
|
|
SEP #$40
|
|
RTS
|
|
|
|
L038D18 LDA L037046
|
|
CMP #$0001
|
|
BEQ L038D72
|
|
LDA L032EE8
|
|
TAX
|
|
ORA L032EEA
|
|
BNE L038D39
|
|
LDA L037022
|
|
INC
|
|
STA L03704E
|
|
STA L03702C
|
|
STZ L03702E
|
|
REP #$41
|
|
RTS
|
|
|
|
L038D39 DEX
|
|
CPX L037022
|
|
BNE L038D4A
|
|
LDA L032EEA
|
|
BNE L038D4A
|
|
JSR L0379DD
|
|
BCC L038D4A
|
|
RTS
|
|
|
|
L038D4A LDX L0370E3
|
|
LDY L0370E1
|
|
L038D50 LDA [$D2],Y
|
|
BEQ L038D63
|
|
L038D54 AND L037110,X
|
|
BNE L038DA8
|
|
JSR L037C10
|
|
BCC L038D5F
|
|
L038D5E RTS
|
|
|
|
L038D5F BVC L038D50
|
|
BRA L038CEC
|
|
L038D63 JSR L037C81
|
|
BCS L038D54
|
|
JSR L037C17
|
|
BCS L038D5E
|
|
BVC L038D50
|
|
BRL L038CEC
|
|
L038D72 LDX L0370E3
|
|
LDY L0370E1
|
|
L038D78 BIT L03705C
|
|
BPL L038D82
|
|
LDA L03705E
|
|
BRA L038D84
|
|
L038D82 LDA [$D2],Y
|
|
L038D84 CMP #$FFFF
|
|
BEQ L038D99
|
|
L038D89 AND L037110,X
|
|
BEQ L038DA8
|
|
JSR L037C10
|
|
BCC L038D94
|
|
L038D93 RTS
|
|
|
|
L038D94 BVC L038D78
|
|
BRL L038D0E
|
|
L038D99 JSR L037C81
|
|
BCS L038D89
|
|
JSR L037C17
|
|
BCS L038D93
|
|
BVC L038D78
|
|
BRL L038D0E
|
|
L038DA8 LDA L0370DF
|
|
SEC
|
|
SBC L03704C
|
|
ASL
|
|
TAX
|
|
LDA L0370EC,X
|
|
STA L038EB7
|
|
STZ L038EB9
|
|
TYA
|
|
ASL
|
|
ASL
|
|
ASL
|
|
ADC L038EB7
|
|
STA L038EB7
|
|
LDX L0370E3
|
|
TXA
|
|
LSR
|
|
STA $EC
|
|
SEC
|
|
LDA #$000F
|
|
SBC $EC
|
|
CLC
|
|
ADC L038EB7
|
|
STA L038EB7
|
|
STA L032EE8
|
|
LDA L038EB9
|
|
STA L032EEA
|
|
LDA L032EE8
|
|
STA $EC
|
|
LDA L032EEA
|
|
STA $EE
|
|
LDX L037054
|
|
BRA L038E01
|
|
L038DF0 CLC
|
|
LDA L032EE8
|
|
ADC $EC
|
|
STA L032EE8
|
|
LDA L032EEA
|
|
ADC $EE
|
|
STA L032EEA
|
|
L038E01 DEX
|
|
BNE L038DF0
|
|
LDA L032EE8
|
|
CLC
|
|
ADC L03704E
|
|
STA L032EE8
|
|
BCC L038E13
|
|
INC L032EEA
|
|
L038E13 LDA L037046
|
|
CMP #$0001
|
|
BEQ L038E44
|
|
LDX L0370E3
|
|
LDY L0370E1
|
|
L038E21 LDA [$D2],Y
|
|
CMP #$FFFF
|
|
BEQ L038E36
|
|
L038E28 AND L037110,X
|
|
BEQ L038E75
|
|
JSR L038E9B
|
|
BCS L038E62
|
|
BVC L038E21
|
|
BRA L038E75
|
|
L038E36 JSR L037C81
|
|
BCS L038E28
|
|
JSR L038EA6
|
|
BCS L038E62
|
|
BVC L038E21
|
|
BRA L038E75
|
|
L038E44 LDX L0370E3
|
|
LDY L0370E1
|
|
L038E4A BIT L03705C
|
|
BPL L038E54
|
|
LDA L03705E
|
|
BRA L038E56
|
|
L038E54 LDA [$D2],Y
|
|
L038E56 BEQ L038E67
|
|
L038E58 AND L037110,X
|
|
BNE L038E75
|
|
JSR L038E9B
|
|
BCC L038E63
|
|
L038E62 RTS
|
|
|
|
L038E63 BVC L038E4A
|
|
BRA L038E75
|
|
L038E67 JSR L037C81
|
|
BCS L038E58
|
|
JSR L038EA6
|
|
BCS L038E62
|
|
BVC L038E4A
|
|
BRA L038E75
|
|
L038E75 LDA L03702C
|
|
STA $EC
|
|
LDA L03702E
|
|
STA $EE
|
|
LDX L037054
|
|
BRA L038E95
|
|
L038E84 CLC
|
|
LDA L03702C
|
|
ADC $EC
|
|
STA L03702C
|
|
LDA L03702E
|
|
ADC $EE
|
|
STA L03702E
|
|
L038E95 DEX
|
|
BNE L038E84
|
|
REP #$41
|
|
RTS
|
|
|
|
L038E9B INC L03702C
|
|
BNE L038EA3
|
|
INC L03702E
|
|
L038EA3 JMP L037C10
|
|
|
|
L038EA6 LDA L03702C
|
|
ADC #$0010
|
|
STA L03702C
|
|
BCC L038EB4
|
|
INC L03702E
|
|
L038EB4 JMP L037C17
|
|
|
|
L038EB7 BRK $00
|
|
L038EB9 BRK $00
|
|
L038EBB LDA L03701C
|
|
BEQ L038EC3
|
|
BRL L038F68
|
|
L038EC3 LDA L0370C8
|
|
SEC
|
|
SBC L03714E
|
|
TAX
|
|
LDA L0370CA
|
|
SBC L037150
|
|
TAY
|
|
TXA
|
|
STY $78
|
|
STZ $7A
|
|
LDX #$0009
|
|
L038EDA LSR $78
|
|
ROR
|
|
ROR $7A
|
|
DEX
|
|
BNE L038EDA
|
|
TAY
|
|
LDA #$0010
|
|
SEC
|
|
SBC #$0009
|
|
L038EEA LSR $7A
|
|
DEC
|
|
BNE L038EEA
|
|
TYA
|
|
LDY $78
|
|
LDX $7A
|
|
STA L037060
|
|
CLC
|
|
ADC L032EE8
|
|
TAX
|
|
TYA
|
|
ADC L032EEA
|
|
CMP L037044
|
|
BCC L038F17
|
|
BNE L038F0C
|
|
CPX L037042
|
|
BCC L038F17
|
|
L038F0C LDA L037042
|
|
SEC
|
|
SBC L032EE8
|
|
STA L037060
|
|
TAX
|
|
L038F17 LDA L03705F
|
|
AND #$FF00
|
|
ASL
|
|
STA L032EBC
|
|
TAX
|
|
LDA L037061
|
|
AND #$00FF
|
|
ROL
|
|
STA L032EBE
|
|
LDY L03714E
|
|
STY $C2
|
|
LDY L037150
|
|
STY $C4
|
|
JSR L038BF3
|
|
BCC L038F3C
|
|
RTS
|
|
|
|
L038F3C LDA L032EBF
|
|
AND #$00FF
|
|
LSR
|
|
TAY
|
|
LDA L032EBD
|
|
ROR
|
|
CLC
|
|
ADC L032EE8
|
|
STA L032EE8
|
|
TAX
|
|
TYA
|
|
ADC L032EEA
|
|
STA L032EEA
|
|
CMP L037044
|
|
BNE L038F65
|
|
CPX L037042
|
|
BNE L038F65
|
|
CLC
|
|
SEP #$40
|
|
RTS
|
|
|
|
L038F65 BRL L039045
|
|
L038F68 LDA L03714E
|
|
STA $C2
|
|
LDA L037150
|
|
STA $C4
|
|
LDA L0370C8
|
|
SEC
|
|
SBC $C2
|
|
STA L037028
|
|
LDA L0370CA
|
|
SBC $C4
|
|
STA L03702A
|
|
L038F83 LDA L03702C
|
|
ORA L03702E
|
|
BNE L038F93
|
|
JSR L038CAC
|
|
BCC L038F91
|
|
L038F90 RTS
|
|
|
|
L038F91 BVS L038F90
|
|
L038F93 LDA L037028
|
|
STA $EC
|
|
LDA L03702A
|
|
LDX #$0009
|
|
L038F9E LSR
|
|
ROR $EC
|
|
DEX
|
|
BNE L038F9E
|
|
LDX L03702E
|
|
BNE L038FC6
|
|
LDX $EC
|
|
CPX L03702C
|
|
BCC L038FC6
|
|
LDA L03702C
|
|
STA L037060
|
|
STZ $EC
|
|
LDX #$0009
|
|
L038FBB ASL
|
|
ROL $EC
|
|
DEX
|
|
BNE L038FBB
|
|
TAX
|
|
LDA $EC
|
|
BRA L038FD1
|
|
L038FC6 LDA $EC
|
|
STA L037060
|
|
LDA L03702A
|
|
LDX L037028
|
|
L038FD1 STA L032EBE
|
|
STX L032EBC
|
|
JSR L038BF3
|
|
BCC L038FDD
|
|
RTS
|
|
|
|
L038FDD LDA L032EE8
|
|
CLC
|
|
ADC L037060
|
|
STA L032EE8
|
|
BCC L038FEC
|
|
INC L032EEA
|
|
L038FEC LDA L03702C
|
|
SEC
|
|
SBC L037060
|
|
STA L03702C
|
|
BCS L038FFB
|
|
DEC L03702E
|
|
L038FFB LDA L037090
|
|
CLC
|
|
ADC L037060
|
|
STA L037090
|
|
BCC L03900A
|
|
INC L037092
|
|
L03900A CMP L0370D5
|
|
BNE L03901B
|
|
LDA L037092
|
|
CMP L0370D7
|
|
BNE L03901B
|
|
CLC
|
|
SEP #$40
|
|
RTS
|
|
|
|
L03901B LDA $C2
|
|
CLC
|
|
ADC L032EBC
|
|
STA $C2
|
|
LDA $C4
|
|
ADC L032EBE
|
|
STA $C4
|
|
LDA L037028
|
|
SEC
|
|
SBC L032EBC
|
|
STA L037028
|
|
LDA L03702A
|
|
SBC L032EBE
|
|
STA L03702A
|
|
ORA L037028
|
|
BEQ L039045
|
|
BRL L038F83
|
|
L039045 LDA L03714E
|
|
STA L0370C8
|
|
STA $C2
|
|
LDA L037150
|
|
STA L0370CA
|
|
STA $C4
|
|
REP #$41
|
|
RTS
|
|
|
|
L039058 LDA $74
|
|
CLC
|
|
ADC L032F18
|
|
STA $74
|
|
BCC L039064
|
|
INC $76
|
|
L039064 LDA L032EDA
|
|
BEQ L039072
|
|
LDA L032F0C
|
|
DEC
|
|
BEQ L039072
|
|
BRL L03913C
|
|
L039072 LDY #$0046
|
|
LDA [$74],Y
|
|
STA L032F08
|
|
INY
|
|
INY
|
|
LDA [$74],Y
|
|
STA L032F0A
|
|
LDY #$000A
|
|
LDA [$74],Y
|
|
STA L033034
|
|
BIT #$0100
|
|
BEQ L039091
|
|
DEC L03701C
|
|
L039091 AND #$00E0
|
|
CMP #$0020
|
|
BNE L03909C
|
|
DEC L03701E
|
|
L03909C LDY #$004E
|
|
LDA [$74],Y
|
|
STA L037042
|
|
INY
|
|
INY
|
|
LDA [$74],Y
|
|
STA L037044
|
|
LDY #$006E
|
|
LDA [$74],Y
|
|
STA L03705A
|
|
LDY #$004C
|
|
LDA [$74],Y
|
|
STA L033032
|
|
LDY #$005E
|
|
LDA [$74],Y
|
|
STA L03705E
|
|
LDY #$0060
|
|
LDA [$74],Y
|
|
STA L03704C
|
|
STA L0370DF
|
|
LDY #$006C
|
|
LDA [$74],Y
|
|
STA L037022
|
|
SEC
|
|
SBC L03704C
|
|
INC
|
|
STA L037048
|
|
STZ L03704A
|
|
LDY #$005C
|
|
LDA [$74],Y
|
|
STA L037046
|
|
LDY #$0062
|
|
LDA [$74],Y
|
|
STA L037054
|
|
LDY #$0064
|
|
LDA [$74],Y
|
|
STA L0370D5
|
|
INY
|
|
INY
|
|
LDA [$74],Y
|
|
STA L0370D7
|
|
LDA L037042
|
|
SEC
|
|
SBC L0370D5
|
|
STA L03703E
|
|
LDA L037044
|
|
SBC L0370D7
|
|
STA L037040
|
|
LDY #$0068
|
|
LDA [$74],Y
|
|
STA L03302E
|
|
TAX
|
|
INY
|
|
INY
|
|
LDA [$74],Y
|
|
STA L033030
|
|
LDY L032EDA
|
|
BEQ L039154
|
|
TAY
|
|
TXA
|
|
JSR L033372
|
|
STA L037062
|
|
TXA
|
|
BEQ L039139
|
|
INC L037062
|
|
BNE L039139
|
|
INY
|
|
L039139 STY L037064
|
|
L03913C LDY #$0054
|
|
LDA [$74],Y
|
|
TAX
|
|
INY
|
|
INY
|
|
LDA [$74],Y
|
|
TAY
|
|
TXA
|
|
JSR L033372
|
|
STA L0370CC
|
|
STY L0370CE
|
|
STX L03703C
|
|
L039154 LDA $74
|
|
SEC
|
|
SBC L032F18
|
|
STA $74
|
|
BCS L039160
|
|
DEC $74
|
|
L039160 RTS
|
|
|
|
L039161 ENT
|
|
PHB
|
|
LDA $01,S
|
|
PHK
|
|
PLB
|
|
STA L032FC6
|
|
TDC
|
|
STA L032EB2
|
|
LDA $05,S
|
|
TCD
|
|
LDA $07,S
|
|
ORA #$0300
|
|
STA L032F14
|
|
LDA $09,S
|
|
STA $22
|
|
LDA $0B,S
|
|
STA $24
|
|
LDA $0D,S
|
|
STA L032EDA
|
|
LDA $0F,S
|
|
STA L03708A
|
|
LDA $11,S
|
|
STA L03708C
|
|
LDA $13,S
|
|
STA L032FE4
|
|
LDA $15,S
|
|
STA L032FE6
|
|
PLA
|
|
STA $11,S
|
|
PLA
|
|
STA $11,S
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
LDA #L05004E
|
|
STA $02
|
|
LDA #^L05004E
|
|
STA $04
|
|
STZ L037130
|
|
LDA #$FFFF
|
|
STA L0370AA
|
|
STZ L03701E
|
|
STZ L03701C
|
|
STZ L0370E9
|
|
STZ L0370B8
|
|
SEC
|
|
ROR L032FD8
|
|
LDA #L03952B
|
|
STA L033102
|
|
JSR L0334DA
|
|
BCC L0391D6
|
|
BRL L0394B5
|
|
L0391D6 LDX #L0395C6
|
|
JSR L03793E
|
|
JSR L03537D
|
|
BCC L0391E4
|
|
BRL L0394B5
|
|
L0391E4 STZ L032EE8
|
|
STZ L032EEA
|
|
STZ L0370C6
|
|
LDA L032EDA
|
|
BNE L039263
|
|
STZ L032FE2
|
|
LDY #$0004
|
|
LDA L032FE4
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032FE6
|
|
STA [$02],Y
|
|
LDA #$0002
|
|
STA [$02]
|
|
LDA #$2010
|
|
JSR L033500
|
|
BCC L039214
|
|
BRL L0394B5
|
|
L039214 LDY #$0002
|
|
LDA [$02],Y
|
|
STA L032FE2
|
|
STZ L032FE8
|
|
STZ L032FEA
|
|
CLC
|
|
JSR L033340
|
|
LDA #$0004
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE2
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $74
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA $76
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0200
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
LDA #$2012
|
|
JSR L033500
|
|
BCC L039258
|
|
BRL L0394B5
|
|
L039258 LDA #$0200
|
|
STA L032FE8
|
|
STZ L032F18
|
|
BRA L039273
|
|
L039263 JSR L0334DA
|
|
BCC L03926B
|
|
BRL L0394B5
|
|
L03926B JSR L036651
|
|
BCC L039273
|
|
BRL L0394B5
|
|
L039273 JSR L039058
|
|
SEC
|
|
ROR L0370C6
|
|
JSR L037156
|
|
BCC L039282
|
|
BRL L0394B5
|
|
L039282 LDA #$0001
|
|
STA [$02]
|
|
LDA #L03745D
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA #^L03745D
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$2034
|
|
JSR L033500
|
|
BCC L0392A1
|
|
BRL L0394B5
|
|
L0392A1 SEC
|
|
ROR L0370C6
|
|
LDA #$0004
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA #L037068
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L037068
|
|
BCC L0392BA
|
|
INC
|
|
L0392BA STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #L039522
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #^L039522
|
|
STA [$02],Y
|
|
LDY #$000C
|
|
LDA L037046
|
|
CMP #$0006
|
|
BEQ L0392D8
|
|
LDA #$0001
|
|
L0392D8 STA [$02],Y
|
|
LDA #$2025
|
|
JSR L033500
|
|
BCC L0392F3
|
|
CMP #$002B
|
|
BNE L0392F0
|
|
SEC
|
|
ROR L0370C6
|
|
JSR L0376F0
|
|
BCC L0392A1
|
|
L0392F0 BRL L0394B5
|
|
L0392F3 STZ L0370AE
|
|
LDA L03708A
|
|
STA $12
|
|
LDA L03708C
|
|
STA $14
|
|
SEP #$30
|
|
LDA L039522
|
|
STA [$12]
|
|
TAY
|
|
L039308 LDA L039522+1,Y
|
|
STA [$12],Y
|
|
DEY
|
|
BNE L039308
|
|
REP #$30
|
|
JSR L03799C
|
|
LDX #$2000
|
|
LDA #$0000
|
|
LDY L032F14
|
|
JSR L0325E6
|
|
STX L037132
|
|
STX $7C
|
|
STY L037134
|
|
STY $7E
|
|
BCC L039330
|
|
L03932D BRL L0394B5
|
|
L039330 LDY #$0002
|
|
LDA [$7C],Y
|
|
STA $D0
|
|
STA L03713C
|
|
STA L037140
|
|
TAX
|
|
LDA [$7C]
|
|
STA $CE
|
|
STA L03713A
|
|
STA L03713E
|
|
CLC
|
|
ADC #$2000
|
|
STA L037136
|
|
BCC L039352
|
|
INX
|
|
L039352 STX L037138
|
|
JSR L0353FE
|
|
BCS L03932D
|
|
JSR L0384C9
|
|
BCS L03932D
|
|
JSR L03836D
|
|
LDA L037046
|
|
CMP #$0001
|
|
BNE L039370
|
|
SEC
|
|
ROR L03705C
|
|
BRA L039373
|
|
L039370 STZ L03705C
|
|
L039373 STZ L03709A
|
|
STZ L03702C
|
|
STZ L03702E
|
|
STZ L032EE8
|
|
STZ L032EEA
|
|
STZ L037090
|
|
STZ L037092
|
|
STZ L0370DD
|
|
STZ L03708E
|
|
STZ L0370E1
|
|
LDA #$001E
|
|
STA L0370E3
|
|
LDA L03714E
|
|
STA $C2
|
|
LDA L037150
|
|
STA $C4
|
|
LDA L037142
|
|
STA $CA
|
|
LDA L037144
|
|
STA $CC
|
|
LDA L037146
|
|
SEC
|
|
SBC $CA
|
|
TAX
|
|
LDA L037148
|
|
SBC $CC
|
|
BNE L0393CC
|
|
CPX #$8000
|
|
BCS L0393CC
|
|
LDA #L03955E
|
|
STA L0370B2
|
|
STA L0370B4
|
|
STA L0370B6
|
|
BRA L0393DE
|
|
L0393CC LDA #L039575
|
|
STA L0370B2
|
|
LDA #L039593
|
|
STA L0370B4
|
|
LDA #L0395AB
|
|
STA L0370B6
|
|
L0393DE LDA L032EDA
|
|
BEQ L0393EB
|
|
JSR L036651
|
|
BCC L0393EB
|
|
BRL L0394B5
|
|
L0393EB LDA L037142
|
|
STA $C6
|
|
LDA L037144
|
|
STA $C8
|
|
L0393F5 JSR L0334DA
|
|
BCC L0393FD
|
|
BRL L0394B5
|
|
L0393FD STZ L0370C6
|
|
JSR L0389C1
|
|
BCC L039408
|
|
BRL L0394B5
|
|
L039408 BVC L039416
|
|
LDA $C2
|
|
STA L0370C8
|
|
LDA $C4
|
|
STA L0370CA
|
|
BRA L03948F
|
|
L039416 LDA L03701E
|
|
BEQ L03945B
|
|
LDA $CA
|
|
STA $C6
|
|
LDA $CC
|
|
STA $C8
|
|
LDA L037142
|
|
STA $CA
|
|
LDA L037144
|
|
STA $CC
|
|
L03942D JSR L0334DA
|
|
BCC L039435
|
|
BRL L0394B5
|
|
L039435 JSR L037FE1
|
|
BCC L03948F
|
|
LDA [$CA]
|
|
LDX L037142
|
|
STX $78
|
|
LDX L037144
|
|
STX $7A
|
|
STA [$78]
|
|
LDA L037142
|
|
CLC
|
|
ADC L03709C
|
|
STA $CA
|
|
LDA L037144
|
|
ADC #$0000
|
|
STA $CC
|
|
BRA L0393F5
|
|
L03945B LDA $CA
|
|
SEC
|
|
SBC L037142
|
|
STA $78
|
|
LDA $CC
|
|
SBC L037144
|
|
LDX #$000A
|
|
L03946B LSR
|
|
ROR $78
|
|
DEX
|
|
BNE L03946B
|
|
TAX
|
|
LDA L032FCE
|
|
CLC
|
|
ADC $78
|
|
STA L032FCE
|
|
TXA
|
|
ADC L032FD0
|
|
STA L032FD0
|
|
JSR L03353E
|
|
LDA $CA
|
|
STA L0370C8
|
|
LDA $CC
|
|
STA L0370CA
|
|
L03948F JSR L0334DA
|
|
BCC L039496
|
|
BRA L0394B5
|
|
L039496 SEC
|
|
ROR L0370C6
|
|
JSR L038EBB
|
|
BCC L0394A1
|
|
BRA L0394B5
|
|
L0394A1 BVS L0394B8
|
|
LDA L03701E
|
|
BNE L03942D
|
|
LDA L037142
|
|
STA $CA
|
|
LDA L037144
|
|
STA $CC
|
|
BRL L0393F5
|
|
L0394B5 STA L037130
|
|
L0394B8 LDA L0370B8
|
|
BEQ L0394D3
|
|
LDA L037130
|
|
BNE L0394C6
|
|
SEC
|
|
ROR L0370C6
|
|
L0394C6 JSR L037747
|
|
BCC L0394D3
|
|
LDX L037130
|
|
BNE L0394D3
|
|
STA L037130
|
|
L0394D3 JSR L03860F
|
|
LDA L032EDA
|
|
BNE L0394FA
|
|
LDA #$0001
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032FE2
|
|
BEQ L0394FA
|
|
STA [$02],Y
|
|
LDA #$2014
|
|
JSR L033500
|
|
BCC L0394FA
|
|
LDY L037130
|
|
BNE L0394FA
|
|
STA L037130
|
|
L0394FA LDA #$0001
|
|
STA [$02]
|
|
LDA #L03745D
|
|
LDY #$0002
|
|
STA [$02],Y
|
|
LDA #^L03745D
|
|
INY
|
|
INY
|
|
STA [$02],Y
|
|
LDA #$2035
|
|
JSR L033500
|
|
LDA L037130
|
|
STA [$22]
|
|
CMP #$0001
|
|
LDA L032EB2
|
|
TCD
|
|
PLB
|
|
RTL
|
|
|
|
L039522 STRL ':X.arch'
|
|
L03952B STR 'The restored volume will be left completely blank.'
|
|
L03955E STR 'Restoring volume dataI'
|
|
L039575 STR 'Reading data from backup setI'
|
|
L039593 STR 'Writing data to volumeI'
|
|
L0395AB STR 'Decompressing volume dataI'
|
|
L0395C6 STR 'Preparing for volume restoreI'
|
|
L0395E4 STZ L03709E
|
|
STZ L0370A0
|
|
L0395EA LDA #$9000
|
|
LDY #$0001
|
|
JSR L033372
|
|
STA L0370A2
|
|
STY L0370A4
|
|
CLC
|
|
ADC L03709E
|
|
TAX
|
|
TYA
|
|
ADC L0370A0
|
|
CMP L032ED8
|
|
BCC L039630
|
|
BNE L03960E
|
|
CPX L032ED6
|
|
BCC L039630
|
|
L03960E LDA L032ED6
|
|
SEC
|
|
SBC L03709E
|
|
STA L0370A2
|
|
STA $78
|
|
LDA L032ED8
|
|
SBC L0370A0
|
|
STA L0370A4
|
|
LDX L032ED4
|
|
L039626 ASL $78
|
|
ROL
|
|
DEX
|
|
BNE L039626
|
|
LDX $78
|
|
BRA L039636
|
|
L039630 LDX #$9000
|
|
LDA #$0001
|
|
L039636 LDY #$000A
|
|
STA [$02],Y
|
|
TXA
|
|
DEY
|
|
DEY
|
|
STA [$02],Y
|
|
LDA #$0006
|
|
STA [$02]
|
|
LDY #$0002
|
|
LDA L032EDA
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$0000
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA #$00F0
|
|
STA [$02],Y
|
|
LDY #$000C
|
|
LDA L03709E
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L0370A0
|
|
STA [$02],Y
|
|
INY
|
|
INY
|
|
LDA L032EF0
|
|
STA [$02],Y
|
|
LDA #$202F
|
|
JSR L033500
|
|
BCS L03969C
|
|
LDA L03709E
|
|
CLC
|
|
ADC L0370A2
|
|
STA L03709E
|
|
TAY
|
|
LDA L0370A0
|
|
ADC L0370A4
|
|
STA L0370A0
|
|
CMP L032ED8
|
|
BNE L039697
|
|
CPY L032ED6
|
|
BEQ L03969A
|
|
L039697 BRL L0395EA
|
|
L03969A CLC
|
|
RTS
|
|
|
|
L03969C SEC
|
|
RTS
|
|
|
|
L03969E ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF4
|
|
TCS
|
|
TCD
|
|
PHY
|
|
PHY
|
|
JSL L03A45D
|
|
PLA
|
|
STA $01
|
|
PLX
|
|
STX $03
|
|
L0396B2 PHY
|
|
PHY
|
|
JSL L03A45D
|
|
PLA
|
|
STA $05
|
|
PLX
|
|
STX $07
|
|
PEI $07
|
|
PEI $05
|
|
LDA $01
|
|
LDX $03
|
|
JSL L03B1AC
|
|
PHX
|
|
PHA
|
|
LDA $12
|
|
LDX $14
|
|
JSL L03AA18
|
|
BVS L0396D9
|
|
EOR #$8000
|
|
L0396D9 BPL L0396B2
|
|
LDA $10
|
|
STA $14
|
|
LDA $0F
|
|
STA $13
|
|
LDA $0D
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0012
|
|
TCS
|
|
RTL
|
|
|
|
L0396ED ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FEE3
|
|
TCS
|
|
ADC #$002A
|
|
TCD
|
|
TDC
|
|
CLC
|
|
ADC #$00D6
|
|
PEA $0000
|
|
PHA
|
|
PEI $FA
|
|
PEI $F8
|
|
PEA $0008
|
|
JSL L03B108
|
|
LDA $DA
|
|
JSL L03A610
|
|
INC
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$00E4
|
|
PEA $0000
|
|
PHA
|
|
PEA $0002
|
|
PEA $0000
|
|
JSL L03A8C7
|
|
SEP #$20
|
|
LDA #$02
|
|
STA $E3
|
|
REP #$20
|
|
LDA $DB
|
|
JSL L03A610
|
|
INC
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$00ED
|
|
PEA $0000
|
|
PHA
|
|
PEA $0002
|
|
PEA $0000
|
|
JSL L03A8C7
|
|
SEP #$20
|
|
LDA #$02
|
|
STA $EC
|
|
REP #$20
|
|
LDA $D9
|
|
JSL L03A610
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$00DF
|
|
PEA $0000
|
|
PHA
|
|
PEA $0002
|
|
PEA $0000
|
|
JSL L03A8C7
|
|
SEP #$20
|
|
LDA #$02
|
|
STA $DE
|
|
REP #$20
|
|
LDA $D8
|
|
JSL L03A610
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$00E7
|
|
PEA $0000
|
|
PHA
|
|
PEA $0002
|
|
PEA $0000
|
|
JSL L03A8C7
|
|
SEP #$20
|
|
LDA #$02
|
|
STA $E6
|
|
REP #$20
|
|
LDA $D7
|
|
JSL L03A610
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$00EA
|
|
PEA $0000
|
|
PHA
|
|
PEA $0002
|
|
PEA $0000
|
|
JSL L03A8C7
|
|
SEP #$20
|
|
LDA #$02
|
|
STA $E9
|
|
REP #$20
|
|
LDA #$00FF
|
|
AND $EA
|
|
AND #$00FF
|
|
CMP #$0020
|
|
BNE L0397CD
|
|
SEP #$20
|
|
LDA #$30
|
|
STA $EA
|
|
REP #$20
|
|
L0397CD PEI $FE
|
|
PEI $FC
|
|
LDA $DD
|
|
JSL L03A610
|
|
DEC
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDAL L060124+2,X
|
|
PHA
|
|
LDAL L060124,X
|
|
PLX
|
|
PHX
|
|
PHA
|
|
PEA ^L0514B5
|
|
PEA L0514B5
|
|
TDC
|
|
CLC
|
|
ADC #$00EC
|
|
PEA $0000
|
|
PHA
|
|
PEA ^L0514B8
|
|
PEA L0514B8
|
|
TDC
|
|
CLC
|
|
ADC #$00E3
|
|
PEA $0000
|
|
PHA
|
|
PEA ^L0514BA
|
|
PEA L0514BA
|
|
TDC
|
|
CLC
|
|
ADC #$00DE
|
|
PEA $0000
|
|
PHA
|
|
PEA ^L0514BC
|
|
PEA L0514BC
|
|
TDC
|
|
CLC
|
|
ADC #$00E6
|
|
PEA $0000
|
|
PHA
|
|
PEA ^L0514BF
|
|
PEA L0514BF
|
|
TDC
|
|
CLC
|
|
ADC #$00E9
|
|
PEA $0000
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFD6
|
|
PHA
|
|
PEA $000B
|
|
JSL L03A8DC
|
|
PEA $0100
|
|
JSL L03B108
|
|
LDA $F6
|
|
STA $FA
|
|
LDA $F5
|
|
STA $F9
|
|
LDA $F3
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0123
|
|
TCS
|
|
RTL
|
|
|
|
L03985B ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFE5
|
|
TCS
|
|
TCD
|
|
PEI $23
|
|
TDC
|
|
CLC
|
|
ADC #$000E
|
|
PEA $0000
|
|
PHA
|
|
PEI $21
|
|
PEA $0000
|
|
JSL L03A8C7
|
|
LDA $21
|
|
SEP #$20
|
|
STA $0D
|
|
REP #$20
|
|
LDA $23
|
|
BNE L039897
|
|
TDC
|
|
CLC
|
|
ADC #$000D
|
|
STA $18
|
|
STZ $1A
|
|
LDY $21
|
|
LDA #$0030
|
|
SEP #$20
|
|
STA [$18],Y
|
|
REP #$20
|
|
L039897 LDA #$00FF
|
|
AND $0E
|
|
AND #$00FF
|
|
CMP #$0020
|
|
BNE L0398B9
|
|
TDC
|
|
CLC
|
|
ADC #$000D
|
|
PEA $0000
|
|
PHA
|
|
PEA $0001
|
|
PEA $0001
|
|
JSL L03A96C
|
|
BRA L039897
|
|
L0398B9 PEI $27
|
|
PEI $25
|
|
TDC
|
|
CLC
|
|
ADC #$000D
|
|
PEA $0000
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
PEA $0001
|
|
JSL L03A8DC
|
|
PEA $000B
|
|
JSL L03B108
|
|
LDA $1F
|
|
STA $23
|
|
LDA $1E
|
|
STA $22
|
|
LDA $1C
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0021
|
|
TCS
|
|
RTL
|
|
|
|
L0398EF ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FEE1
|
|
TCS
|
|
ADC #$002C
|
|
TCD
|
|
PEI $FA
|
|
PEI $F8
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFE1
|
|
PHA
|
|
PEA $000A
|
|
PEA $0000
|
|
JSL L03B16B
|
|
LDX #$FFE0
|
|
SEP #$20
|
|
LDA #$0A
|
|
STA $00,X
|
|
REP #$20
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFEB
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFE0
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFD4
|
|
PHA
|
|
PEA $0001
|
|
JSL L03A8DC
|
|
PEA $000B
|
|
JSL L03B108
|
|
LDA #$0001
|
|
STA $EB
|
|
L03994A PEA $000A
|
|
LDA $EB
|
|
PEA $0003
|
|
JSL L03AA73
|
|
PLA
|
|
STA $EF
|
|
PLA
|
|
SEC
|
|
SBC $EF
|
|
STA $ED
|
|
LDA $ED
|
|
CLC
|
|
ADC #$FFEB
|
|
TAX
|
|
LDA #$00FF
|
|
AND $00,X
|
|
AND #$00FF
|
|
CMP #$0020
|
|
BEQ L03998A
|
|
PEA ^L0514C1
|
|
PEA L0514C1
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFEB
|
|
PHA
|
|
LDA $ED
|
|
INC
|
|
PHA
|
|
JSL L03AAE2
|
|
L03998A LDA #$0003
|
|
CMP $EB
|
|
BEQ L039995
|
|
INC $EB
|
|
BRA L03994A
|
|
L039995 LDA #$00FF
|
|
LDX #$FFEC
|
|
AND $00,X
|
|
AND #$00FF
|
|
CMP #$0020
|
|
BNE L0399BA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFEB
|
|
PHA
|
|
PEA $0001
|
|
PEA $0001
|
|
JSL L03A96C
|
|
BRA L039995
|
|
L0399BA PEI $FE
|
|
PEI $FC
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFEB
|
|
PHA
|
|
PEA $0100
|
|
JSL L03B108
|
|
LDA $F6
|
|
STA $FA
|
|
LDA $F5
|
|
STA $F9
|
|
LDA $F3
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0125
|
|
TCS
|
|
RTL
|
|
|
|
L0399E0 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FDF6
|
|
TCS
|
|
ADC #$0117
|
|
TCD
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FEE9
|
|
PHA
|
|
PEI $FA
|
|
PEI $F8
|
|
PEA $0101
|
|
JSL L03B108
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFEE
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FEE9
|
|
PHA
|
|
PEA $0101
|
|
JSL L03B108
|
|
TDC
|
|
CLC
|
|
ADC #$FFEE
|
|
LDX #$FFEA
|
|
STA $00,X
|
|
STZ $02,X
|
|
LDX #$FFEA
|
|
LDA $02,X
|
|
TAY
|
|
LDA $00,X
|
|
TYX
|
|
CLC
|
|
ADC #$0001
|
|
BCC L039A34
|
|
INX
|
|
L039A34 PHX
|
|
PHA
|
|
LDX #$FFEA
|
|
LDA $02,X
|
|
PHA
|
|
LDA $00,X
|
|
PHA
|
|
PLA
|
|
PLX
|
|
STA $EF
|
|
STX $F1
|
|
LDA #$00FF
|
|
AND [$EF]
|
|
PHA
|
|
PLA
|
|
PLX
|
|
STX $EF
|
|
PLX
|
|
STX $F1
|
|
SEP #$20
|
|
STA [$EF]
|
|
REP #$20
|
|
PEI $FE
|
|
PEI $FC
|
|
LDX #$FFEA
|
|
LDA $02,X
|
|
TAY
|
|
LDA $00,X
|
|
TYX
|
|
INC
|
|
BNE L039A69
|
|
INX
|
|
L039A69 PHX
|
|
PHA
|
|
PEA $0100
|
|
JSL L03B108
|
|
LDA $F6
|
|
STA $FA
|
|
LDA $F5
|
|
STA $F9
|
|
LDA $F3
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0210
|
|
TCS
|
|
RTL
|
|
|
|
L039A84 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFE8
|
|
TCS
|
|
TCD
|
|
JSL L03A633
|
|
TAY
|
|
CLC
|
|
TSC
|
|
ADC #$0000
|
|
TCS
|
|
TYA
|
|
STA $01
|
|
PHY
|
|
PHY
|
|
JSL L03A60A
|
|
PLA
|
|
STA $11
|
|
PLX
|
|
STX $13
|
|
PEA $0002
|
|
PEA $0001
|
|
JSL L03ADF1
|
|
LDY #$00B0
|
|
LDA [$11],Y
|
|
TAX
|
|
DEY
|
|
DEY
|
|
LDA [$11],Y
|
|
STA $0B
|
|
LDA $0B
|
|
SEC
|
|
SBC #$0006
|
|
BPL L039AC7
|
|
BRL L039B76
|
|
L039AC7 CMP #$000A
|
|
BMI L039ACF
|
|
BRL L039B76
|
|
L039ACF SEC
|
|
SBC #$0000
|
|
BEQ L039B29
|
|
SEC
|
|
SBC #$0005
|
|
BEQ L039AE6
|
|
DEC
|
|
BEQ L039B4C
|
|
DEC
|
|
DEC
|
|
DEC
|
|
BEQ L039AE6
|
|
BRL L039B76
|
|
L039AE6 LDA #$000B
|
|
CMP $0B
|
|
BNE L039AF9
|
|
LDA #$0033
|
|
STA $0D
|
|
LDA #$006B
|
|
STA $0F
|
|
BRA L039B03
|
|
L039AF9 LDA #$0069
|
|
STA $0D
|
|
LDA #$008C
|
|
STA $0F
|
|
L039B03 PEA $0014
|
|
PEI $0D
|
|
JSL L03B15F
|
|
PEA $01F4
|
|
PEI $0D
|
|
JSL L03A7F1
|
|
PEA $0014
|
|
PEI $0F
|
|
JSL L03B15F
|
|
PEA $01F4
|
|
PEI $0F
|
|
JSL L03A7F1
|
|
BRA L039B76
|
|
L039B29 LDA #$0083
|
|
STA $03
|
|
LDA #$00AD
|
|
STA $07
|
|
LDA #$000A
|
|
STA $05
|
|
LDA #$00FD
|
|
STA $09
|
|
TDC
|
|
CLC
|
|
ADC #$0003
|
|
PEA $0000
|
|
PHA
|
|
JSL L03B1FC
|
|
BRA L039B76
|
|
L039B4C PEA $000F
|
|
PEA $007F
|
|
JSL L03B15F
|
|
PEA $0184
|
|
PEA $007F
|
|
JSL L03A7F1
|
|
PEA $000F
|
|
PEA $0055
|
|
JSL L03B15F
|
|
PEA $0184
|
|
PEA $0055
|
|
JSL L03A7F1
|
|
BRA L039B76
|
|
L039B76 PEA ^L061206
|
|
PEA L061206
|
|
JSL L03AA12
|
|
LDA $0B
|
|
SEC
|
|
SBC #$0009
|
|
BMI L039BDB
|
|
CMP #$0007
|
|
BPL L039BDB
|
|
SEC
|
|
SBC #$0000
|
|
BEQ L039BB1
|
|
SEC
|
|
SBC #$0006
|
|
BEQ L039B9B
|
|
BRA L039BDB
|
|
L039B9B PEA $00D1
|
|
PEA $0014
|
|
JSL L03B15F
|
|
PEA $00D1
|
|
PEA $0038
|
|
JSL L03A7F1
|
|
BRA L039BDB
|
|
L039BB1 PEA $000F
|
|
PEA $005E
|
|
JSL L03B15F
|
|
PEA $01AE
|
|
PEA $005E
|
|
JSL L03A7F1
|
|
PEA $000F
|
|
PEA $0079
|
|
JSL L03B15F
|
|
PEA $01AE
|
|
PEA $0079
|
|
JSL L03A7F1
|
|
BRA L039BDB
|
|
L039BDB PEA ^L06120E
|
|
PEA L06120E
|
|
JSL L03AA12
|
|
PEI $13
|
|
PEI $11
|
|
JSL L03B390
|
|
LDX #$0000
|
|
LDA #$000B
|
|
CMP $0B
|
|
BNE L039BF8
|
|
INX
|
|
L039BF8 PHX
|
|
LDX #$0000
|
|
LDA #$000F
|
|
CMP $0B
|
|
BNE L039C04
|
|
INX
|
|
L039C04 TXA
|
|
ORA $01,S
|
|
PLX
|
|
LSR
|
|
BCC L039C49
|
|
LDA L0612D1
|
|
ORA L0612D3
|
|
BEQ L039C2A
|
|
LDA L0612D1
|
|
LDX L0612D3
|
|
PHX
|
|
PHA
|
|
PEA $F000
|
|
LDA L0612C5
|
|
PHA
|
|
LDA L0612C7
|
|
PHA
|
|
JSL L03A5ED
|
|
L039C2A LDA L0612D5
|
|
ORA L0612D7
|
|
BEQ L039C49
|
|
LDA L0612D5
|
|
LDX L0612D7
|
|
PHX
|
|
PHA
|
|
PEA $F000
|
|
LDA L0612C1
|
|
PHA
|
|
LDA L0612C3
|
|
PHA
|
|
JSL L03A5ED
|
|
L039C49 PEI $01
|
|
JSL L03A8A7
|
|
TAY
|
|
CLC
|
|
TSC
|
|
ADC #$0002
|
|
TCS
|
|
TYA
|
|
TSC
|
|
CLC
|
|
ADC #$0018
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF8
|
|
TCS
|
|
TCD
|
|
LDY #$0002
|
|
LDA [$10],Y
|
|
TAX
|
|
LDA [$10]
|
|
CLC
|
|
ADC #$0028
|
|
BCC L039C76
|
|
INX
|
|
L039C76 STA $05
|
|
STX $07
|
|
LDY #$0002
|
|
LDA [$05],Y
|
|
TAX
|
|
LDA [$05]
|
|
STA $01
|
|
STX $03
|
|
LDY #$0002
|
|
LDA [$01],Y
|
|
TAX
|
|
LDA [$01]
|
|
CLC
|
|
ADC #$0010
|
|
BCC L039C95
|
|
INX
|
|
L039C95 STA $05
|
|
STX $07
|
|
LDA $14
|
|
LDX $16
|
|
STA [$05]
|
|
TXA
|
|
LDY #$0002
|
|
STA [$05],Y
|
|
PEI $16
|
|
PEI $14
|
|
PEI $12
|
|
PEI $10
|
|
JSL L03B208
|
|
LDA $0C
|
|
STA $16
|
|
LDA $0B
|
|
STA $15
|
|
LDA $09
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0014
|
|
TCS
|
|
RTL
|
|
|
|
L039CC3 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFFC
|
|
TCS
|
|
TCD
|
|
PEI $0E
|
|
PEI $0C
|
|
JSL L03B1E4
|
|
LDA $0A
|
|
DEC
|
|
BNE L039CFC
|
|
PHY
|
|
PHY
|
|
LDA L0612DB
|
|
LDX L0612DD
|
|
PHX
|
|
PHA
|
|
PHY
|
|
PHY
|
|
PEA $0000
|
|
PEA $1FE9
|
|
JSL L03A8AE
|
|
JSL L03A1A0
|
|
PLA
|
|
STA L0612DB
|
|
PLA
|
|
STA L0612DD
|
|
BRA L039D18
|
|
L039CFC PHY
|
|
PHY
|
|
LDA L0612DB
|
|
LDX L0612DD
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $1FE9
|
|
JSL L03A39B
|
|
PLA
|
|
STA L0612DB
|
|
PLA
|
|
STA L0612DD
|
|
L039D18 PHY
|
|
PHY
|
|
JSL L03AA61
|
|
PLA
|
|
STA $10
|
|
PLX
|
|
STX $12
|
|
LDA $08
|
|
STA $0E
|
|
LDA $07
|
|
STA $0D
|
|
LDA $05
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
RTL
|
|
|
|
L039D36 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF2
|
|
TCS
|
|
TCD
|
|
PHY
|
|
PHY
|
|
PEI $16
|
|
PEI $14
|
|
LDA $1C
|
|
JSL L03A5FF
|
|
PHX
|
|
PHA
|
|
JSL L03B1DE
|
|
PLA
|
|
STA $07
|
|
PLX
|
|
STX $09
|
|
LDY #$0002
|
|
LDA [$07],Y
|
|
TAX
|
|
LDA [$07]
|
|
STA $03
|
|
STX $05
|
|
LDY #$0010
|
|
LDA [$03],Y
|
|
AND #$00FF
|
|
AND #$00FF
|
|
STA $01
|
|
LDY #$0010
|
|
LDA #$0080
|
|
ORA $01
|
|
PHA
|
|
PLA
|
|
SEP #$20
|
|
STA [$03],Y
|
|
REP #$20
|
|
LDA #$0008
|
|
CLC
|
|
ADC $03
|
|
LDX $05
|
|
BCC L039D8A
|
|
INX
|
|
L039D8A CLC
|
|
ADC #$0002
|
|
BCC L039D91
|
|
INX
|
|
L039D91 STA $0B
|
|
STX $0D
|
|
LDA $18
|
|
CLC
|
|
ADC [$0B]
|
|
PHA
|
|
LDY #$0008
|
|
LDA $1A
|
|
CLC
|
|
ADC [$03],Y
|
|
PHA
|
|
PEI $09
|
|
PEI $07
|
|
JSL L03AA00
|
|
LDY #$0010
|
|
LDA $01
|
|
SEP #$20
|
|
STA [$03],Y
|
|
REP #$20
|
|
LDA $12
|
|
STA $1C
|
|
LDA $11
|
|
STA $1B
|
|
LDA $0F
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$001A
|
|
TCS
|
|
RTL
|
|
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF4
|
|
TCS
|
|
TCD
|
|
LDA L0612BD
|
|
LDX L0612BF
|
|
PHX
|
|
PHA
|
|
JSL L03B165
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
PHY
|
|
PHY
|
|
LDA L0612BD
|
|
LDX L0612BF
|
|
PHX
|
|
PHA
|
|
LDA $12
|
|
JSL L03A5FF
|
|
PHX
|
|
PHA
|
|
JSL L03B1DE
|
|
PLA
|
|
PLX
|
|
STA $09
|
|
STX $0B
|
|
LDY #$0002
|
|
LDA [$09],Y
|
|
TAX
|
|
LDA [$09]
|
|
CLC
|
|
ADC #$0008
|
|
BCC L039E11
|
|
INX
|
|
L039E11 PHX
|
|
PHA
|
|
PEA $0008
|
|
JSL L03B108
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
JSL L03AA43
|
|
LDA $10
|
|
STA $12
|
|
LDA $0F
|
|
STA $11
|
|
LDA $0D
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
RTL
|
|
|
|
L039E39 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF4
|
|
TCS
|
|
TCD
|
|
LDA L0612BD
|
|
LDX L0612BF
|
|
PHX
|
|
PHA
|
|
JSL L03B165
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
PHY
|
|
PHY
|
|
LDA L0612BD
|
|
LDX L0612BF
|
|
PHX
|
|
PHA
|
|
LDA $12
|
|
JSL L03A5FF
|
|
PHX
|
|
PHA
|
|
JSL L03B1DE
|
|
PLA
|
|
PLX
|
|
STA $09
|
|
STX $0B
|
|
LDY #$0002
|
|
LDA [$09],Y
|
|
TAX
|
|
LDA [$09]
|
|
CLC
|
|
ADC #$0008
|
|
BCC L039E81
|
|
INX
|
|
L039E81 PHX
|
|
PHA
|
|
PEA $0008
|
|
JSL L03B108
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
JSL L03B171
|
|
LDA $10
|
|
STA $12
|
|
LDA $0F
|
|
STA $11
|
|
LDA $0D
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
RTL
|
|
|
|
L039EA9 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF0
|
|
TCS
|
|
TCD
|
|
LDA L0612BD
|
|
LDX L0612BF
|
|
PHX
|
|
PHA
|
|
JSL L03B165
|
|
PHY
|
|
PHY
|
|
LDA L0612BD
|
|
LDX L0612BF
|
|
PHX
|
|
PHA
|
|
LDA $16
|
|
JSL L03A5FF
|
|
PHX
|
|
PHA
|
|
JSL L03B1DE
|
|
PLA
|
|
STA $01
|
|
PLX
|
|
STX $03
|
|
PEI $03
|
|
PEI $01
|
|
JSL L03ADDF
|
|
TDC
|
|
CLC
|
|
ADC #$0005
|
|
PEA $0000
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$01],Y
|
|
TAX
|
|
LDA [$01]
|
|
CLC
|
|
ADC #$0008
|
|
BCC L039EF9
|
|
INX
|
|
L039EF9 PHX
|
|
PHA
|
|
PEA $0008
|
|
JSL L03B108
|
|
TDC
|
|
CLC
|
|
ADC #$0005
|
|
PEA $0000
|
|
PHA
|
|
JSL L03B171
|
|
LDA $14
|
|
STA $16
|
|
LDA $13
|
|
STA $15
|
|
LDA $11
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0014
|
|
TCS
|
|
RTL
|
|
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FEFA
|
|
TCS
|
|
ADC #$0015
|
|
TCD
|
|
LDA $F4
|
|
STA $FA
|
|
LDA $F3
|
|
STA $F9
|
|
LDA $F1
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$010E
|
|
TCS
|
|
RTL
|
|
|
|
L039F3E ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FBF8
|
|
TCS
|
|
ADC #$0317
|
|
TCD
|
|
PHY
|
|
PEI $F8
|
|
PEI $F6
|
|
JSL L03A8A1
|
|
PLA
|
|
SEC
|
|
SBC $FA
|
|
BVS L039F5B
|
|
EOR #$8000
|
|
L039F5B BMI L039F60
|
|
BRL L03A0B6
|
|
L039F60 PEI $FA
|
|
PHY
|
|
PEA $00C9
|
|
JSL L03B0D9
|
|
PLA
|
|
STA $ED
|
|
PLA
|
|
SEC
|
|
SBC $ED
|
|
PHA
|
|
PEA $0002
|
|
JSL L03A181
|
|
PLX
|
|
PLX
|
|
SEC
|
|
SBC #$0005
|
|
STA $EB
|
|
LDAL L0514C3
|
|
LDX #$FEE9
|
|
SEP #$20
|
|
STA $00,X
|
|
REP #$20
|
|
STZ $E9
|
|
L039F90 LDA $E9
|
|
INC
|
|
STA $E9
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FEE9
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FEE9
|
|
PHA
|
|
PEI $F8
|
|
PEI $F6
|
|
PEI $E9
|
|
PEA $0001
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FDE9
|
|
PHA
|
|
JSL L03A1B9
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FCE9
|
|
PHA
|
|
PEA $0002
|
|
JSL L03A8DC
|
|
PEA $0100
|
|
JSL L03B108
|
|
PHY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FEE9
|
|
PHA
|
|
JSL L03A8A1
|
|
PLA
|
|
SEC
|
|
SBC $EB
|
|
BVS L039FEB
|
|
EOR #$8000
|
|
L039FEB BPL L039F90
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FEE9
|
|
PHA
|
|
PEI $E9
|
|
PEA $0001
|
|
JSL L03A96C
|
|
LDAL L0514C4
|
|
LDX #$FFE9
|
|
SEP #$20
|
|
STA $00,X
|
|
REP #$20
|
|
LDA #$00FF
|
|
AND [$F6]
|
|
STA $E9
|
|
L03A013 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFE9
|
|
PHA
|
|
PEI $F8
|
|
PEI $F6
|
|
PEI $E9
|
|
PEA $0001
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FDE9
|
|
PHA
|
|
JSL L03A1B9
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFE9
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FCE9
|
|
PHA
|
|
PEA $0002
|
|
JSL L03A8DC
|
|
PEA $0100
|
|
JSL L03B108
|
|
LDA $E9
|
|
DEC
|
|
STA $E9
|
|
PHY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFE9
|
|
PHA
|
|
JSL L03A8A1
|
|
PLA
|
|
SEC
|
|
SBC $EB
|
|
BVS L03A06E
|
|
EOR #$8000
|
|
L03A06E BPL L03A013
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFE9
|
|
PHA
|
|
PEA $0001
|
|
PEA $0001
|
|
JSL L03A96C
|
|
PEI $F8
|
|
PEI $F6
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FEE9
|
|
PHA
|
|
PEA ^L0514C5
|
|
PEA L0514C5
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFE9
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FDE9
|
|
PHA
|
|
PEA $0003
|
|
JSL L03A8DC
|
|
PEA $0100
|
|
JSL L03B108
|
|
L03A0B6 LDA $F4
|
|
STA $FA
|
|
LDA $F3
|
|
STA $F9
|
|
LDA $F1
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0410
|
|
TCS
|
|
RTL
|
|
|
|
L03A0C8 ENT
|
|
LDX #$1302
|
|
JMP L03A8CD
|
|
|
|
L03A0CE ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF0
|
|
TCS
|
|
TCD
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
PEI $18
|
|
PEI $16
|
|
PEA $000A
|
|
JSL L03B108
|
|
PHY
|
|
JSL L03AD07
|
|
PLA
|
|
STA $0B
|
|
PEA $0003
|
|
JSL L03AC4A
|
|
PHY
|
|
PHY
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
JSL L03A126
|
|
PLA
|
|
STA $1A
|
|
PLX
|
|
STX $1C
|
|
PEI $0B
|
|
JSL L03AC4A
|
|
LDA $14
|
|
STA $18
|
|
LDA $13
|
|
STA $17
|
|
LDA $11
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0016
|
|
TCS
|
|
RTL
|
|
|
|
L03A126 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFEE
|
|
TCS
|
|
TCD
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
PEI $1A
|
|
PEI $18
|
|
PEA $000A
|
|
JSL L03B108
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$000B
|
|
PEA $0000
|
|
PHA
|
|
PEA $0310
|
|
_SANEFP816
|
|
BCS L03A163
|
|
LDA #$0000
|
|
L03A163 STAL L0612ED
|
|
LDA $0B
|
|
LDX $0D
|
|
STA $1C
|
|
STX $1E
|
|
LDA $16
|
|
STA $1A
|
|
LDA $15
|
|
STA $19
|
|
LDA $13
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0018
|
|
TCS
|
|
RTL
|
|
|
|
L03A181 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00F0
|
|
TCS
|
|
PEI $FD
|
|
LDA $FF
|
|
SEC
|
|
JSL L03A3D8
|
|
PLY
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L03A1A0 ENT
|
|
LDA $04,S
|
|
AND $08,S
|
|
STA $0C,S
|
|
LDA $06,S
|
|
AND $0A,S
|
|
STA $0E,S
|
|
LDA $02,S
|
|
STA $0A,S
|
|
LDA $01,S
|
|
STA $09,S
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
RTL
|
|
|
|
L03A1B9 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F3
|
|
TCD
|
|
ADC #$FEF6
|
|
TCS
|
|
LDX #$0103
|
|
LDA $00,X
|
|
TAX
|
|
PHX
|
|
LDX #$0101
|
|
LDA $00,X
|
|
PLX
|
|
STX $EA
|
|
STA $E8
|
|
LDA [$E8]
|
|
AND #$00FF
|
|
STA $EC
|
|
LDA $FF
|
|
SEC
|
|
SBC #$0001
|
|
BVS L03A1E7
|
|
EOR #$8000
|
|
L03A1E7 BPL L03A22D
|
|
LDA $FF
|
|
SEC
|
|
SBC #$00FF
|
|
BEQ L03A1F8
|
|
BVS L03A1F6
|
|
EOR #$8000
|
|
L03A1F6 BMI L03A22D
|
|
L03A1F8 LDA $FD
|
|
SEC
|
|
SBC #$0001
|
|
BVS L03A203
|
|
EOR #$8000
|
|
L03A203 BPL L03A22D
|
|
LDA $FD
|
|
SEC
|
|
SBC #$00FF
|
|
BEQ L03A214
|
|
BVS L03A212
|
|
EOR #$8000
|
|
L03A212 BMI L03A22D
|
|
L03A214 LDA $FD
|
|
CLC
|
|
ADC $FF
|
|
PHA
|
|
LDA $EC
|
|
CLC
|
|
ADC #$0001
|
|
PLX
|
|
STX $EE
|
|
SEC
|
|
SBC $EE
|
|
BVS L03A22B
|
|
EOR #$8000
|
|
L03A22B BMI L03A239
|
|
L03A22D LDA #$0000
|
|
SEP #$20
|
|
STA [$F9]
|
|
REP #$20
|
|
BRL L03A36D
|
|
L03A239 LDA #$0000
|
|
STA $EC
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF01
|
|
TXY
|
|
LDX #$FEFC
|
|
STY $02,X
|
|
STA $00,X
|
|
TYX
|
|
LDA $FF
|
|
LDX #$0000
|
|
TAY
|
|
BPL L03A258
|
|
DEX
|
|
L03A258 PHX
|
|
PHA
|
|
LDX $EA
|
|
LDA $E8
|
|
JSL L03A390
|
|
PLA
|
|
PLX
|
|
STX $EA
|
|
STA $E8
|
|
BRA L03A2AD
|
|
L03A26A LDX $EA
|
|
LDA $E8
|
|
INC $E8
|
|
BNE L03A274
|
|
INC $EA
|
|
L03A274 STA $EE
|
|
STX $F0
|
|
LDA [$EE]
|
|
PHA
|
|
LDX #$FEFE
|
|
LDA $00,X
|
|
TAX
|
|
PHX
|
|
LDX #$FEFC
|
|
LDA $00,X
|
|
PHA
|
|
CLC
|
|
ADC #$0001
|
|
LDX #$FEFC
|
|
STA $00,X
|
|
LDX #$FEFE
|
|
LDA $00,X
|
|
BCC L03A299
|
|
INC
|
|
L03A299 LDX #$FEFE
|
|
STA $00,X
|
|
PLA
|
|
PLX
|
|
STA $EE
|
|
STX $F0
|
|
PLA
|
|
SEP #$20
|
|
STA [$EE]
|
|
REP #$20
|
|
INC $EC
|
|
L03A2AD LDA $EC
|
|
CMP $FD
|
|
BNE L03A26A
|
|
LDA $FD
|
|
SEP #$20
|
|
STA [$F9]
|
|
REP #$20
|
|
LDX $FB
|
|
LDA $F9
|
|
TXY
|
|
LDX #$FEF8
|
|
STY $02,X
|
|
STA $00,X
|
|
TYX
|
|
LDA $FD
|
|
CLC
|
|
ADC #$0001
|
|
STA $FD
|
|
LDA #$0001
|
|
STA $EC
|
|
LDX #$FEFA
|
|
LDA $00,X
|
|
TAX
|
|
PHX
|
|
LDX #$FEF8
|
|
LDA $00,X
|
|
PLX
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
PLA
|
|
TXY
|
|
LDX #$FEF8
|
|
STY $02,X
|
|
STA $00,X
|
|
TYX
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF01
|
|
TXY
|
|
LDX #$FEFC
|
|
STY $02,X
|
|
STA $00,X
|
|
TYX
|
|
BRA L03A367
|
|
L03A309 LDX #$FEFE
|
|
LDA $00,X
|
|
TAX
|
|
PHX
|
|
LDX #$FEFC
|
|
LDA $00,X
|
|
PHA
|
|
CLC
|
|
ADC #$0001
|
|
LDX #$FEFC
|
|
STA $00,X
|
|
LDX #$FEFE
|
|
LDA $00,X
|
|
BCC L03A327
|
|
INC
|
|
L03A327 LDX #$FEFE
|
|
STA $00,X
|
|
PLA
|
|
PLX
|
|
STA $EE
|
|
STX $F0
|
|
LDA [$EE]
|
|
PHA
|
|
LDX #$FEFA
|
|
LDA $00,X
|
|
TAX
|
|
PHX
|
|
LDX #$FEF8
|
|
LDA $00,X
|
|
PHA
|
|
CLC
|
|
ADC #$0001
|
|
LDX #$FEF8
|
|
STA $00,X
|
|
LDX #$FEFA
|
|
LDA $00,X
|
|
BCC L03A353
|
|
INC
|
|
L03A353 LDX #$FEFA
|
|
STA $00,X
|
|
PLA
|
|
PLX
|
|
STA $EE
|
|
STX $F0
|
|
PLA
|
|
SEP #$20
|
|
STA [$EE]
|
|
REP #$20
|
|
INC $EC
|
|
L03A367 LDA $EC
|
|
CMP $FD
|
|
BNE L03A309
|
|
L03A36D LDX $FB
|
|
LDA $F9
|
|
TXY
|
|
LDX #$0101
|
|
STY $02,X
|
|
STA $00,X
|
|
TYX
|
|
TSC
|
|
CLC
|
|
ADC #$01FC
|
|
TCS
|
|
PLD
|
|
LDA $02,S
|
|
STA $0A,S
|
|
LDA $01,S
|
|
STA $09,S
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
RTL
|
|
|
|
L03A390 CLC
|
|
ADC $04,S
|
|
STA $04,S
|
|
TXA
|
|
ADC $06,S
|
|
STA $06,S
|
|
RTL
|
|
|
|
L03A39B ENT
|
|
LDA $04,S
|
|
ORA $08,S
|
|
STA $0C,S
|
|
LDA $06,S
|
|
ORA $0A,S
|
|
STA $0E,S
|
|
LDA $02,S
|
|
STA $0A,S
|
|
LDA $01,S
|
|
STA $09,S
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
RTL
|
|
|
|
L03A3B4 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F3
|
|
TCD
|
|
ADC #$00EC
|
|
TCS
|
|
PEI $FB
|
|
PEI $F9
|
|
LDX $FF
|
|
LDA $FD
|
|
SEC
|
|
JSL L03A4BA
|
|
PLY
|
|
PLY
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L03A3D8 PHD
|
|
PHA
|
|
PEA $0001
|
|
TSC
|
|
TCD
|
|
LDA $0A
|
|
BEQ L03A44D
|
|
LDX #$0000
|
|
BCC L03A403
|
|
BIT #$8000
|
|
BEQ L03A3F4
|
|
EOR #$FFFF
|
|
INC
|
|
STA $0A
|
|
INX
|
|
L03A3F4 LDA $03
|
|
BIT #$8000
|
|
BEQ L03A403
|
|
EOR #$FFFF
|
|
INC
|
|
STA $03
|
|
INX
|
|
INX
|
|
L03A403 LDY #$0000
|
|
BRA L03A40A
|
|
L03A408 ASL $01
|
|
L03A40A ASL $0A
|
|
BCC L03A408
|
|
ROR $0A
|
|
L03A410 LDA $03
|
|
CMP $0A
|
|
BCC L03A421
|
|
LDA $03
|
|
SEC
|
|
SBC $0A
|
|
STA $03
|
|
TYA
|
|
ORA $01
|
|
TAY
|
|
L03A421 LSR $0A
|
|
LSR $01
|
|
BCC L03A410
|
|
LDA $03
|
|
STA $0A
|
|
TYA
|
|
CPX #$0000
|
|
BEQ L03A449
|
|
CPX #$0003
|
|
BEQ L03A43F
|
|
EOR #$FFFF
|
|
INC
|
|
CPX #$0001
|
|
BEQ L03A449
|
|
L03A43F TAY
|
|
LDA $0A
|
|
EOR #$FFFF
|
|
INC
|
|
STA $0A
|
|
TYA
|
|
L03A449 PLY
|
|
PLY
|
|
PLD
|
|
RTL
|
|
|
|
L03A44D PEA $0004
|
|
PEA $0000
|
|
PEA $0000
|
|
_SysFailMgr
|
|
L03A45D ENT
|
|
LDX #$2503
|
|
JMP L03A8CD
|
|
|
|
L03A463 ENT
|
|
LDX #$2910
|
|
JMP L03B20E
|
|
|
|
L03A469 ENT
|
|
LDX #$130F
|
|
JMP L03A8CD
|
|
|
|
L03A46F ENT
|
|
LDX #$390F
|
|
JMP L03A8CD
|
|
|
|
L03A475 ENT
|
|
LDX #$0A0F
|
|
JMP L03A8CD
|
|
|
|
L03A47B ENT
|
|
LDX #$2F10
|
|
JMP L03A8CD
|
|
|
|
L03A481 ENT
|
|
LDX #$2E10
|
|
JMP L03A8CD
|
|
|
|
L03A487 ENT
|
|
PHD
|
|
TSC
|
|
TCD
|
|
STZ $0E
|
|
LDY #$0000
|
|
TYA
|
|
SEP #$20
|
|
LDA [$0A]
|
|
CMP [$06]
|
|
BNE L03A4A6
|
|
TAY
|
|
BEQ L03A4A4
|
|
L03A49B LDA [$0A],Y
|
|
CMP [$06],Y
|
|
BNE L03A4A6
|
|
DEY
|
|
BNE L03A49B
|
|
L03A4A4 INC $0E
|
|
L03A4A6 REP #$20
|
|
LDA $03
|
|
STA $0B
|
|
LDA $04
|
|
STA $0C
|
|
LDA $01
|
|
STA $09
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLD
|
|
RTL
|
|
|
|
L03A4BA PHD
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0001
|
|
PEA $0000
|
|
PEA $0000
|
|
TSC
|
|
TCD
|
|
LDA $12
|
|
ORA $14
|
|
BNE L03A4D7
|
|
LDX #$0000
|
|
BRL L03A59B
|
|
L03A4D7 LDX #$0000
|
|
BCC L03A515
|
|
LDA $14
|
|
BIT #$8000
|
|
BEQ L03A4F5
|
|
EOR #$FFFF
|
|
STA $14
|
|
LDA $12
|
|
EOR #$FFFF
|
|
INC
|
|
BNE L03A4F2
|
|
INC $14
|
|
L03A4F2 STA $12
|
|
INX
|
|
L03A4F5 LDA $0B
|
|
BIT #$8000
|
|
BEQ L03A515
|
|
EOR #$FFFF
|
|
STA $0B
|
|
LDA $09
|
|
EOR #$FFFF
|
|
INC
|
|
BNE L03A50B
|
|
INC $0B
|
|
L03A50B STA $09
|
|
INX
|
|
INX
|
|
BRA L03A515
|
|
L03A511 ASL $05
|
|
ROL $07
|
|
L03A515 ASL $12
|
|
ROL $14
|
|
BCC L03A511
|
|
ROR $14
|
|
ROR $12
|
|
L03A51F LDA $0B
|
|
CMP $14
|
|
BEQ L03A529
|
|
BCC L03A548
|
|
BRA L03A52F
|
|
L03A529 LDA $09
|
|
CMP $12
|
|
BCC L03A548
|
|
L03A52F LDA $09
|
|
SEC
|
|
SBC $12
|
|
STA $09
|
|
LDA $0B
|
|
SBC $14
|
|
STA $0B
|
|
LDA $01
|
|
ORA $05
|
|
STA $01
|
|
LDA $03
|
|
ORA $07
|
|
STA $03
|
|
L03A548 LSR $14
|
|
ROR $12
|
|
LSR $07
|
|
ROR $05
|
|
BCC L03A51F
|
|
CPX #$0000
|
|
BEQ L03A587
|
|
CPX #$0003
|
|
BEQ L03A574
|
|
LDA $01
|
|
EOR #$FFFF
|
|
STA $01
|
|
LDA $03
|
|
EOR #$FFFF
|
|
INC $01
|
|
BNE L03A56D
|
|
INC
|
|
L03A56D STA $03
|
|
CPX #$0001
|
|
BEQ L03A587
|
|
L03A574 LDA $09
|
|
EOR #$FFFF
|
|
STA $09
|
|
LDA $0B
|
|
EOR #$FFFF
|
|
INC $09
|
|
BNE L03A585
|
|
INC
|
|
L03A585 STA $0B
|
|
L03A587 LDA $09
|
|
STA $12
|
|
LDA $0B
|
|
STA $14
|
|
LDA $01
|
|
LDX $03
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLD
|
|
RTL
|
|
|
|
L03A59B PEA $0004
|
|
PEA $0000
|
|
PEA $0000
|
|
_SysFailMgr
|
|
L03A5AB ENT
|
|
PHD
|
|
TSC
|
|
TCD
|
|
LDA #$0001
|
|
STA $0E
|
|
LDY #$0000
|
|
TYA
|
|
SEP #$20
|
|
LDA [$0A]
|
|
CMP [$06]
|
|
BNE L03A5CD
|
|
TAY
|
|
BEQ L03A5CB
|
|
L03A5C2 LDA [$0A],Y
|
|
CMP [$06],Y
|
|
BNE L03A5CD
|
|
DEY
|
|
BNE L03A5C2
|
|
L03A5CB DEC $0E
|
|
L03A5CD REP #$20
|
|
LDA $03
|
|
STA $0B
|
|
LDA $04
|
|
STA $0C
|
|
LDA $01
|
|
STA $09
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLD
|
|
RTL
|
|
|
|
L03A5E1 ENT
|
|
LDX #$3803
|
|
JMP L03A8CD
|
|
|
|
L03A5E7 ENT
|
|
LDX #$161C
|
|
JMP L03A8CD
|
|
|
|
L03A5ED ENT
|
|
LDX #$0B12
|
|
JMP L03A8CD
|
|
|
|
L03A5F3 ENT
|
|
LDX #$1117
|
|
JMP L03A8CD
|
|
|
|
L03A5F9 ENT
|
|
LDX #$0F17
|
|
JMP L03A8CD
|
|
|
|
L03A5FF ENT
|
|
TAX
|
|
BMI L03A606
|
|
LDX #$0000
|
|
RTL
|
|
|
|
L03A606 LDX #$FFFF
|
|
RTL
|
|
|
|
L03A60A LDX #$1C04
|
|
JMP L03A8CD
|
|
|
|
L03A610 XBA
|
|
AND #$FF00
|
|
BPL L03A619
|
|
ORA #$00FF
|
|
L03A619 XBA
|
|
RTL
|
|
|
|
L03A61B ENT
|
|
LDX #$1C05
|
|
JMP L03A8CD
|
|
|
|
L03A621 ENT
|
|
LDX #$1F02
|
|
JMP L03A8CD
|
|
|
|
L03A627 ENT
|
|
LDX #$610E
|
|
JMP L03A8CD
|
|
|
|
L03A62D ENT
|
|
LDX #$2C0F
|
|
JMP L03A8CD
|
|
|
|
L03A633 PHB
|
|
PHB
|
|
PLA
|
|
AND #$00FF
|
|
PEA >L0612ED
|
|
PLB
|
|
PLB
|
|
RTL
|
|
|
|
L03A63F ENT
|
|
LDX #$1C0F
|
|
JMP L03A8CD
|
|
|
|
L03A645 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F5
|
|
TCD
|
|
ADC #$00DE
|
|
TCS
|
|
PEI $FF
|
|
PEI $FD
|
|
PEI $FB
|
|
JSL L03ADF7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BEQ L03A666
|
|
LDA #$FFFF
|
|
BRL L03A7E7
|
|
L03A666 LDA #L03AABF
|
|
LDX #^L03AABF
|
|
PHX
|
|
PHA
|
|
LDAL L0514E1+2
|
|
TAX
|
|
LDAL L0514E1
|
|
STA $F0
|
|
STX $F2
|
|
PLA
|
|
PLX
|
|
LDY #$0002
|
|
PHA
|
|
TXA
|
|
STA [$F0],Y
|
|
PLA
|
|
STA [$F0]
|
|
LDA L0612EB
|
|
BNE L03A6A7
|
|
LDA L0612F5
|
|
STAL L0514D1
|
|
LDX L0612E1
|
|
LDA L0612DF
|
|
PHA
|
|
TXA
|
|
STAL L0514D3+2
|
|
PLA
|
|
STAL L0514D3
|
|
BRL L03A7E4
|
|
L03A6A7 LDA #$0004
|
|
STA $E4
|
|
LDA #$0001
|
|
STA $E8
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E4
|
|
STX $EC
|
|
STA $EA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E8
|
|
PHA
|
|
PEA $2027
|
|
LDX #$0000
|
|
JSL GSOS2
|
|
BCS L03A6D5
|
|
LDA #$0000
|
|
L03A6D5 STAL L0612ED
|
|
PHX
|
|
PHA
|
|
LDA $E6
|
|
CLC
|
|
ADC #$0005
|
|
LDX #$0000
|
|
TAY
|
|
BPL L03A6E8
|
|
DEX
|
|
L03A6E8 PHX
|
|
PHA
|
|
LDA L0612EF
|
|
ORA #$0F00
|
|
PHA
|
|
PEA $4000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L03A706
|
|
LDA #$0000
|
|
L03A706 STAL L0612ED
|
|
PLA
|
|
PLX
|
|
STA $F0
|
|
STX $F2
|
|
LDY #$0002
|
|
LDA [$F0],Y
|
|
TAX
|
|
LDA [$F0]
|
|
STX $E2
|
|
STA $E0
|
|
LDA L0612ED
|
|
BEQ L03A727
|
|
LDA #$FFFF
|
|
BRL L03A7E7
|
|
L03A727 LDX $E2
|
|
LDA $E0
|
|
STX $EC
|
|
STA $EA
|
|
LDA $E6
|
|
CLC
|
|
ADC #$0005
|
|
STA [$EA]
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E8
|
|
PHA
|
|
PEA $2027
|
|
LDX #$0000
|
|
JSL GSOS2
|
|
BCS L03A74F
|
|
LDA #$0000
|
|
L03A74F STAL L0612ED
|
|
LDY #$0002
|
|
LDA [$E0],Y
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA $E0
|
|
CLC
|
|
ADC #$0004
|
|
LDX $E2
|
|
BCC L03A768
|
|
INX
|
|
L03A768 JSL L03A390
|
|
PLA
|
|
PLX
|
|
STA $F0
|
|
STX $F2
|
|
LDA #$0000
|
|
SEP #$20
|
|
STA [$F0]
|
|
REP #$20
|
|
LDA $FB
|
|
BEQ L03A793
|
|
LDA $E0
|
|
CLC
|
|
ADC #$0004
|
|
TAX
|
|
LDA $E2
|
|
BCC L03A78B
|
|
INC
|
|
L03A78B PHA
|
|
PHX
|
|
JSL L03B446
|
|
PLY
|
|
PLY
|
|
L03A793 LDA $E0
|
|
CLC
|
|
ADC #$0004
|
|
LDX $E2
|
|
BCC L03A79E
|
|
INX
|
|
L03A79E PHX
|
|
PHA
|
|
LDAL L0514D3+2
|
|
TAX
|
|
LDAL L0514D3
|
|
STA $F0
|
|
STX $F2
|
|
PLA
|
|
PLX
|
|
LDY #$0002
|
|
PHA
|
|
TXA
|
|
STA [$F0],Y
|
|
PLA
|
|
STA [$F0]
|
|
LDA #$0001
|
|
STA L0612F5
|
|
LDAL L0514D3+2
|
|
TAX
|
|
LDAL L0514D3
|
|
STX L0612E1
|
|
STA L0612DF
|
|
PEA $007F
|
|
PEA $0000
|
|
_SetInGlobals
|
|
BCS L03A7E0
|
|
LDA #$0000
|
|
L03A7E0 STAL L0612ED
|
|
L03A7E4 LDA #$0000
|
|
L03A7E7 TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0016
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L03A7F1 LDX #$3C04
|
|
JMP L03A8CD
|
|
|
|
L03A7F7 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00EE
|
|
TCS
|
|
LDAL L0514E1+2
|
|
TAX
|
|
LDAL L0514E1
|
|
STA $F4
|
|
STX $F6
|
|
LDX $F6
|
|
LDA #$0024
|
|
CLC
|
|
ADC $F4
|
|
BCC L03A81A
|
|
INX
|
|
L03A81A STX $F2
|
|
STA $F0
|
|
BRA L03A851
|
|
L03A820 LDY #$0002
|
|
LDA [$F0],Y
|
|
TAX
|
|
LDA [$F0]
|
|
STX $F4
|
|
ORA $F4
|
|
BEQ L03A845
|
|
PEI $FF
|
|
LDY #$0002
|
|
LDA [$F0],Y
|
|
TAX
|
|
LDA [$F0]
|
|
STA $F4
|
|
STX $F6
|
|
LDA $F4
|
|
LDX $F6
|
|
JSL L03B177
|
|
PLY
|
|
L03A845 LDA $F0
|
|
SEC
|
|
SBC #$0004
|
|
STA $F0
|
|
BCS L03A851
|
|
DEC $F2
|
|
L03A851 SEC
|
|
LDA $F0
|
|
SBCL L0514E1
|
|
BNE L03A862
|
|
LDA $F2
|
|
SBCL L0514E1+2
|
|
BRA L03A86A
|
|
L03A862 LDA $F2
|
|
SBCL L0514E1+2
|
|
REP #$02
|
|
L03A86A BEQ L03A873
|
|
BVS L03A871
|
|
EOR #$8000
|
|
L03A871 BMI L03A820
|
|
L03A873 LDA $FF
|
|
STA L0612E9
|
|
LDAL L0514E1+2
|
|
TAX
|
|
LDAL L0514E1
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0002
|
|
LDA [$F4],Y
|
|
TAX
|
|
LDA [$F4]
|
|
STA $F4
|
|
STX $F6
|
|
LDA $F4
|
|
LDX $F6
|
|
JSL L03B177
|
|
TSC
|
|
CLC
|
|
ADC #$000A
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L03A8A1 ENT
|
|
LDX #$A904
|
|
JMP L03A8CD
|
|
|
|
L03A8A7 LDA $04,S
|
|
XBA
|
|
PHA
|
|
PLB
|
|
PLB
|
|
RTL
|
|
|
|
L03A8AE ENT
|
|
LDA $04,S
|
|
EOR #$FFFF
|
|
STA $08,S
|
|
LDA $06,S
|
|
EOR #$FFFF
|
|
STA $0A,S
|
|
LDA $02,S
|
|
STA $06,S
|
|
LDA $01,S
|
|
STA $05,S
|
|
PLA
|
|
PLA
|
|
RTL
|
|
|
|
L03A8C7 LDX #$260B
|
|
JMP L03A8CD
|
|
|
|
L03A8CD JSL DISPATCH2
|
|
STAL L0612ED
|
|
RTL
|
|
|
|
L03A8D6 ENT
|
|
LDX #$420F
|
|
JMP L03A8CD
|
|
|
|
L03A8DC ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$000A
|
|
TCD
|
|
SEC
|
|
SBC #$0100
|
|
TCS
|
|
LDX #$FF01
|
|
STX $01
|
|
LDA $10
|
|
STA $09
|
|
L03A8F1 LDA $10
|
|
BEQ L03A926
|
|
DEC $10
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA $12,X
|
|
STA $03
|
|
LDA $14,X
|
|
STA $05
|
|
LDA [$03]
|
|
AND #$00FF
|
|
BEQ L03A8F1
|
|
STA $07
|
|
LDY #$0001
|
|
LDX $01
|
|
SEP #$20
|
|
L03A912 LDA [$03],Y
|
|
STA $01,X
|
|
INX
|
|
BEQ L03A924
|
|
INY
|
|
DEC $07
|
|
BNE L03A912
|
|
REP #$20
|
|
STX $01
|
|
BRA L03A8F1
|
|
L03A924 STX $01
|
|
L03A926 REP #$20
|
|
LDA #$00FF
|
|
CLC
|
|
ADC $01
|
|
SEP #$20
|
|
LDX #$FF00
|
|
STA $01,X
|
|
REP #$20
|
|
TAY
|
|
LDX $01
|
|
SEP #$20
|
|
L03A93C LDA $00,X
|
|
STA [$12],Y
|
|
DEX
|
|
DEY
|
|
BPL L03A93C
|
|
REP #$20
|
|
LDA $09
|
|
ASL
|
|
ASL
|
|
TAX
|
|
LDA $12
|
|
STA $12,X
|
|
LDA $14
|
|
STA $14,X
|
|
LDA $0D
|
|
STA $0F,X
|
|
LDA $0E
|
|
STA $10,X
|
|
LDA $0B
|
|
STA $0D,X
|
|
STX $07
|
|
TSC
|
|
CLC
|
|
ADC #$010C
|
|
CLC
|
|
ADC $07
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L03A96C ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$000E
|
|
TCS
|
|
TCD
|
|
LDA [$18]
|
|
AND #$00FF
|
|
STA $0B
|
|
SEC
|
|
SBC $16
|
|
INC
|
|
STA $0D
|
|
BEQ L03A9E1
|
|
BMI L03A9E1
|
|
LDA $16
|
|
BEQ L03A9E1
|
|
BMI L03A9E1
|
|
CMP #$0100
|
|
BCS L03A9E1
|
|
LDA $14
|
|
BEQ L03A9E1
|
|
BMI L03A9E1
|
|
CMP #$0100
|
|
BCS L03A9E1
|
|
LDA $0D
|
|
SEC
|
|
SBC $14
|
|
BPL L03A9A5
|
|
LDA #$0000
|
|
L03A9A5 STA $09
|
|
LDA $16
|
|
CLC
|
|
ADC $09
|
|
DEC
|
|
SEP #$20
|
|
STA [$18]
|
|
REP #$20
|
|
LDA $09
|
|
BEQ L03A9E1
|
|
LDA $18
|
|
LDX $1A
|
|
CLC
|
|
ADC $16
|
|
BCC L03A9C1
|
|
INX
|
|
L03A9C1 STA $05
|
|
STX $07
|
|
CLC
|
|
ADC $14
|
|
BCC L03A9CB
|
|
INX
|
|
L03A9CB STA $01
|
|
STX $03
|
|
LDX $09
|
|
DEX
|
|
LDY #$0000
|
|
SEP #$20
|
|
L03A9D7 LDA [$01],Y
|
|
STA [$05],Y
|
|
INY
|
|
DEX
|
|
BPL L03A9D7
|
|
REP #$20
|
|
L03A9E1 LDA $12
|
|
STA $1A
|
|
LDA $11
|
|
STA $19
|
|
LDX $0F
|
|
TDC
|
|
CLC
|
|
ADC #$0018
|
|
TCS
|
|
TXA
|
|
TCD
|
|
RTL
|
|
|
|
L03A9F4 ENT
|
|
LDX #$1110
|
|
JMP L03A8CD
|
|
|
|
L03A9FA ENT
|
|
LDX #$0F10
|
|
JMP L03A8CD
|
|
|
|
L03AA00 ENT
|
|
LDX #$1610
|
|
JMP L03A8CD
|
|
|
|
L03AA06 ENT
|
|
LDX #$0E10
|
|
JMP L03A8CD
|
|
|
|
L03AA0C ENT
|
|
LDX #$220B
|
|
JMP L03A8CD
|
|
|
|
L03AA12 LDX #$3204
|
|
JMP L03A8CD
|
|
|
|
L03AA18 ENT
|
|
PHX
|
|
PHA
|
|
LDA $08,S
|
|
TAX
|
|
LDA $0A,S
|
|
TAY
|
|
LDA $06,S
|
|
STA $0A,S
|
|
LDA $04,S
|
|
STA $08,S
|
|
TXA
|
|
SEC
|
|
SBC $01,S
|
|
BNE L03AA33
|
|
TYA
|
|
SBC $03,S
|
|
BRA L03AA38
|
|
L03AA33 TYA
|
|
SBC $03,S
|
|
REP #$02
|
|
L03AA38 PHP
|
|
LDA $00,S
|
|
STA $08,S
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLP
|
|
RTL
|
|
|
|
L03AA43 LDX #$3A0E
|
|
JMP L03A8CD
|
|
|
|
L03AA49 ENT
|
|
LDX #$300F
|
|
JMP L03A8CD
|
|
|
|
L03AA4F ENT
|
|
LDX #$310F
|
|
JMP L03A8CD
|
|
|
|
L03AA55 ENT
|
|
LDX #$1901
|
|
JMP L03A8CD
|
|
|
|
L03AA5B ENT
|
|
LDX #$120F
|
|
JMP L03A8CD
|
|
|
|
L03AA61 ENT
|
|
LDX #$150E
|
|
JMP L03A8CD
|
|
|
|
L03AA67 ENT
|
|
LDX #$590E
|
|
JMP L03A8CD
|
|
|
|
L03AA6D ENT
|
|
LDX #$1714
|
|
JMP L03A8CD
|
|
|
|
L03AA73 ENT
|
|
SEC
|
|
PHD
|
|
PHA
|
|
TSC
|
|
TCD
|
|
LDX #$0000
|
|
BCC L03AA99
|
|
LDA $08
|
|
BIT #$8000
|
|
BEQ L03AA8B
|
|
EOR #$FFFF
|
|
INC
|
|
STA $08
|
|
INX
|
|
L03AA8B LDA $01
|
|
BIT #$8000
|
|
BEQ L03AA99
|
|
EOR #$FFFF
|
|
INC
|
|
STA $01
|
|
DEX
|
|
L03AA99 LDA #$0000
|
|
BRA L03AAA7
|
|
L03AA9E LSR $01
|
|
BCC L03AAA5
|
|
CLC
|
|
ADC $08
|
|
L03AAA5 ASL $08
|
|
L03AAA7 LDY $01
|
|
BNE L03AA9E
|
|
CPX #$0000
|
|
BEQ L03AAB4
|
|
EOR #$FFFF
|
|
INC
|
|
L03AAB4 STA $08
|
|
PLY
|
|
PLD
|
|
RTL
|
|
|
|
L03AAB9 ENT
|
|
LDX #$1F0F
|
|
JMP L03A8CD
|
|
|
|
L03AABF PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00F2
|
|
TCS
|
|
PEA $0001
|
|
PEA ^L0514C7
|
|
PEA L0514C7
|
|
JSL L03B35E
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L03AAE2 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$000E
|
|
TCS
|
|
TCD
|
|
LDA [$1A]
|
|
AND #$00FF
|
|
STA $0B
|
|
INC $1A
|
|
BNE L03AAF7
|
|
INC $1C
|
|
L03AAF7 LDA [$16]
|
|
AND #$00FF
|
|
STA $0D
|
|
LDA $14
|
|
BEQ L03AB0B
|
|
BMI L03AB0B
|
|
DEC
|
|
CMP $0D
|
|
BEQ L03AB0E
|
|
BCC L03AB0E
|
|
L03AB0B BRL L03ABA3
|
|
L03AB0E LDA $14
|
|
CLC
|
|
ADC $0B
|
|
CMP #$0101
|
|
BCC L03AB2B
|
|
LDA #$0100
|
|
SEC
|
|
SBC $14
|
|
STA $0B
|
|
LDA #$00FF
|
|
L03AB23 SEP #$20
|
|
STA [$16]
|
|
REP #$20
|
|
BRA L03AB86
|
|
L03AB2B LDA $0D
|
|
BNE L03AB33
|
|
LDA $0B
|
|
BRA L03AB23
|
|
L03AB33 LDA $0D
|
|
SEC
|
|
SBC $14
|
|
INC
|
|
STA $09
|
|
LDA $0D
|
|
CLC
|
|
ADC $0B
|
|
CMP #$0100
|
|
BCC L03AB55
|
|
SEC
|
|
SBC #$00FF
|
|
SEC
|
|
SBC $09
|
|
EOR #$FFFF
|
|
INC
|
|
STA $09
|
|
LDA #$00FF
|
|
L03AB55 SEP #$20
|
|
STA [$16]
|
|
REP #$20
|
|
LDA $09
|
|
BEQ L03AB86
|
|
LDA $16
|
|
LDX $18
|
|
CLC
|
|
ADC $14
|
|
BCC L03AB69
|
|
INX
|
|
L03AB69 STA $01
|
|
STX $03
|
|
CLC
|
|
ADC $0B
|
|
BCC L03AB73
|
|
INX
|
|
L03AB73 STA $05
|
|
STX $07
|
|
SEP #$20
|
|
LDY $09
|
|
BRA L03AB81
|
|
L03AB7D LDA [$01],Y
|
|
STA [$05],Y
|
|
L03AB81 DEY
|
|
BPL L03AB7D
|
|
REP #$20
|
|
L03AB86 LDA $16
|
|
LDX $18
|
|
CLC
|
|
ADC $14
|
|
BCC L03AB90
|
|
INX
|
|
L03AB90 STA $05
|
|
STX $07
|
|
SEP #$20
|
|
LDY $0B
|
|
BRA L03AB9E
|
|
L03AB9A LDA [$1A],Y
|
|
STA [$05],Y
|
|
L03AB9E DEY
|
|
BPL L03AB9A
|
|
REP #$20
|
|
L03ABA3 LDA $12
|
|
STA $1C
|
|
LDA $11
|
|
STA $1B
|
|
LDX $0F
|
|
TDC
|
|
CLC
|
|
ADC #$001A
|
|
TCS
|
|
TXA
|
|
TCD
|
|
RTL
|
|
|
|
L03ABB6 ENT
|
|
LDX #$8E04
|
|
JMP L03A8CD
|
|
|
|
L03ABBC ENT
|
|
LDX #$0A12
|
|
JMP L03A8CD
|
|
|
|
L03ABC2 ENT
|
|
SEC
|
|
PHD
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
TSC
|
|
TCD
|
|
LDX #$0000
|
|
BCC L03AC1E
|
|
LDA $10
|
|
BIT #$8000
|
|
BEQ L03ABEC
|
|
EOR #$FFFF
|
|
STA $10
|
|
LDA $0E
|
|
EOR #$FFFF
|
|
INC
|
|
BNE L03ABE9
|
|
INC $10
|
|
L03ABE9 STA $0E
|
|
INX
|
|
L03ABEC LDA $07
|
|
BIT #$8000
|
|
BEQ L03AC1E
|
|
EOR #$FFFF
|
|
STA $07
|
|
LDA $05
|
|
EOR #$FFFF
|
|
INC
|
|
BNE L03AC02
|
|
INC $07
|
|
L03AC02 STA $05
|
|
DEX
|
|
BRA L03AC1E
|
|
L03AC07 LSR $07
|
|
ROR $05
|
|
BCC L03AC1A
|
|
LDA $01
|
|
CLC
|
|
ADC $0E
|
|
STA $01
|
|
LDA $03
|
|
ADC $10
|
|
STA $03
|
|
L03AC1A ASL $0E
|
|
ROL $10
|
|
L03AC1E LDA $05
|
|
ORA $07
|
|
BNE L03AC07
|
|
CPX #$0000
|
|
BEQ L03AC3C
|
|
LDA $01
|
|
EOR #$FFFF
|
|
STA $01
|
|
LDA $03
|
|
EOR #$FFFF
|
|
INC $01
|
|
BNE L03AC3A
|
|
INC
|
|
L03AC3A STA $03
|
|
L03AC3C LDA $01
|
|
STA $0E
|
|
LDA $03
|
|
STA $10
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLD
|
|
RTL
|
|
|
|
L03AC4A PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF6
|
|
TCS
|
|
TCD
|
|
TDC
|
|
CLC
|
|
ADC #$0005
|
|
PEA $0000
|
|
PHA
|
|
JSL L03B3C4
|
|
TAY
|
|
CLC
|
|
TSC
|
|
ADC #$0004
|
|
TCS
|
|
TYA
|
|
LDA $05
|
|
BMI L03AC79
|
|
BEQ L03AC79
|
|
LDA $05
|
|
JSL L03A5FF
|
|
STA $01
|
|
STX $03
|
|
BRA L03AC8D
|
|
L03AC79 LDA $05
|
|
JSL L03A5FF
|
|
PEA $0001
|
|
PEA $0000
|
|
JSL L03ADB9
|
|
STA $01
|
|
STX $03
|
|
L03AC8D PEI $03
|
|
PEI $01
|
|
PEA $0000
|
|
PEA $4000
|
|
JSL L03B4DC
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PHX
|
|
PHA
|
|
LDA $10
|
|
PEA $4000
|
|
JSL L03AA73
|
|
PLA
|
|
LDX #$0000
|
|
BIT #$8000
|
|
BEQ L03ACB4
|
|
DEX
|
|
L03ACB4 JSL L03ADB9
|
|
STA $01
|
|
STX $03
|
|
PEI $03
|
|
PEI $01
|
|
LDA #$8000
|
|
LDX #$0000
|
|
JSL L03AA18
|
|
BVS L03ACCF
|
|
EOR #$8000
|
|
L03ACCF BMI L03ACD7
|
|
LDA $01
|
|
STA $05
|
|
BRA L03ACE7
|
|
L03ACD7 PEA $0001
|
|
PEA $0000
|
|
LDA $01
|
|
LDX $03
|
|
JSL L03B1AC
|
|
STA $05
|
|
L03ACE7 PEI $05
|
|
JSL L03B39C
|
|
TAY
|
|
CLC
|
|
TSC
|
|
ADC #$0002
|
|
TCS
|
|
TYA
|
|
LDA $0E
|
|
STA $10
|
|
LDA $0D
|
|
STA $0F
|
|
LDA $0B
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
RTL
|
|
|
|
L03AD07 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF4
|
|
TCS
|
|
TCD
|
|
TDC
|
|
CLC
|
|
ADC #$0007
|
|
PEA $0000
|
|
PHA
|
|
JSL L03B3C4
|
|
TAY
|
|
CLC
|
|
TSC
|
|
ADC #$0004
|
|
TCS
|
|
TYA
|
|
LDA $07
|
|
BMI L03AD36
|
|
BEQ L03AD36
|
|
LDA $07
|
|
JSL L03A5FF
|
|
STA $03
|
|
STX $05
|
|
BRA L03AD4A
|
|
L03AD36 LDA $07
|
|
JSL L03A5FF
|
|
PEA $0001
|
|
PEA $0000
|
|
JSL L03ADB9
|
|
STA $03
|
|
STX $05
|
|
L03AD4A PEI $05
|
|
PEI $03
|
|
PEA $0000
|
|
PEA $4000
|
|
JSL L03A3B4
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0004
|
|
JSL L03B4DC
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
SEC
|
|
SBC #$0000
|
|
BMI L03ADA1
|
|
CMP #$0004
|
|
BPL L03ADA1
|
|
SEC
|
|
SBC #$0000
|
|
BEQ L03AD88
|
|
DEC
|
|
BEQ L03AD8C
|
|
DEC
|
|
BEQ L03AD93
|
|
DEC
|
|
BEQ L03AD9A
|
|
BRA L03ADA1
|
|
L03AD88 STZ $01
|
|
BRA L03ADA1
|
|
L03AD8C LDA #$0001
|
|
STA $01
|
|
BRA L03ADA1
|
|
L03AD93 LDA #$0002
|
|
STA $01
|
|
BRA L03ADA1
|
|
L03AD9A LDA #$0003
|
|
STA $01
|
|
BRA L03ADA1
|
|
L03ADA1 LDA $01
|
|
STA $12
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L03ADAD ENT
|
|
LDX #$2B0E
|
|
JMP L03A8CD
|
|
|
|
L03ADB3 ENT
|
|
LDX #$2C03
|
|
JMP L03A8CD
|
|
|
|
L03ADB9 ENT
|
|
CLC
|
|
ADC $04,S
|
|
TAY
|
|
TXA
|
|
ADC $06,S
|
|
TAX
|
|
LDA $01,S
|
|
STA $05,S
|
|
LDA $02,S
|
|
STA $06,S
|
|
PLA
|
|
PLA
|
|
TYA
|
|
RTL
|
|
|
|
L03ADCD ENT
|
|
LDX #$0D0E
|
|
JMP L03A8CD
|
|
|
|
L03ADD3 ENT
|
|
LDX #$2810
|
|
JMP L03A8CD
|
|
|
|
L03ADD9 ENT
|
|
LDX #$1801
|
|
JMP L03A8CD
|
|
|
|
L03ADDF LDX #$2510
|
|
JMP L03A8CD
|
|
|
|
L03ADE5 ENT
|
|
LDX #$111C
|
|
JMP L03A8CD
|
|
|
|
L03ADEB ENT
|
|
LDX #$3410
|
|
JMP L03A8CD
|
|
|
|
L03ADF1 LDX #$2C04
|
|
JMP L03A8CD
|
|
|
|
L03ADF7 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F5
|
|
TCD
|
|
ADC #$00E0
|
|
TCS
|
|
STZ L0612F5
|
|
LDX $FF
|
|
LDA $FD
|
|
STX $F0
|
|
ORA $F0
|
|
BNE L03AE1B
|
|
LDA #$0001
|
|
STA L0612EB
|
|
LDA #$0000
|
|
BRL L03B0CF
|
|
L03AE1B LDX $FF
|
|
LDA $FD
|
|
CLC
|
|
ADC #$0008
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
PLA
|
|
STX $E6
|
|
STA $E4
|
|
PEA $0008
|
|
PEI $FF
|
|
PEI $FD
|
|
PEA ^L05152F
|
|
PEA L05152F
|
|
JSL L03B4BC
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA #$0000
|
|
SEP #$20
|
|
STAL L051537
|
|
REP #$20
|
|
STZ L0612EB
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0004
|
|
LDA L0612EF
|
|
ORA #$0F00
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L03AE76
|
|
LDA #$0000
|
|
L03AE76 STAL L0612ED
|
|
PLA
|
|
PLX
|
|
STX $EA
|
|
STA $E8
|
|
LDA L0612ED
|
|
BEQ L03AE8B
|
|
LDA L0612ED
|
|
BRL L03B0CF
|
|
L03AE8B LDA [$E4]
|
|
AND #$00FF
|
|
BNE L03AE95
|
|
BRL L03B019
|
|
L03AE95 LDX #$0000
|
|
LDA #$0002
|
|
PHX
|
|
PHA
|
|
LDA L0612F5
|
|
CLC
|
|
ADC #$0002
|
|
LDX #$0000
|
|
TAY
|
|
BPL L03AEAB
|
|
DEX
|
|
L03AEAB SEC
|
|
JSL L03B185
|
|
PEI $EA
|
|
PEI $E8
|
|
_SetHandleSize
|
|
BCS L03AEC0
|
|
LDA #$0000
|
|
L03AEC0 STAL L0612ED
|
|
LDA L0612F5
|
|
PHA
|
|
INC
|
|
STA L0612F5
|
|
PLA
|
|
LDX #$0000
|
|
TAY
|
|
BPL L03AED4
|
|
DEX
|
|
L03AED4 STX $F4
|
|
ASL
|
|
ROL $F4
|
|
ASL
|
|
ROL $F4
|
|
LDX $F4
|
|
PHX
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$E8],Y
|
|
TAX
|
|
LDA [$E8]
|
|
JSL L03A390
|
|
PLA
|
|
PLX
|
|
STA $F0
|
|
STX $F2
|
|
LDX $E6
|
|
LDA $E4
|
|
LDY #$0002
|
|
PHA
|
|
TXA
|
|
STA [$F0],Y
|
|
PLA
|
|
STA [$F0]
|
|
LDA [$E4]
|
|
AND #$00FF
|
|
CMP #$0022
|
|
BEQ L03AF0D
|
|
BRL L03AFAC
|
|
L03AF0D LDA L0612F5
|
|
SEC
|
|
SBC #$0001
|
|
LDX #$0000
|
|
TAY
|
|
BPL L03AF1B
|
|
DEX
|
|
L03AF1B STX $F4
|
|
ASL
|
|
ROL $F4
|
|
ASL
|
|
ROL $F4
|
|
LDX $F4
|
|
PHX
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$E8],Y
|
|
TAX
|
|
LDA [$E8]
|
|
JSL L03A390
|
|
PLA
|
|
PLX
|
|
STA $F0
|
|
STX $F2
|
|
LDY #$0002
|
|
LDA [$F0],Y
|
|
TAX
|
|
LDA [$F0]
|
|
CLC
|
|
ADC #$0001
|
|
STA [$F0]
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$F0],Y
|
|
BCC L03AF50
|
|
INC
|
|
L03AF50 TAX
|
|
LDY #$0002
|
|
STA [$F0],Y
|
|
PLA
|
|
L03AF57 INC $E4
|
|
BNE L03AF5D
|
|
INC $E6
|
|
L03AF5D LDX $E6
|
|
LDA $E4
|
|
STA $F0
|
|
STX $F2
|
|
LDA [$F0]
|
|
AND #$00FF
|
|
STA $E2
|
|
TAY
|
|
BEQ L03AFAA
|
|
LDA $E2
|
|
CMP #$0022
|
|
BNE L03AFA8
|
|
INC $E4
|
|
BNE L03AF7C
|
|
INC $E6
|
|
L03AF7C LDX $E6
|
|
LDA $E4
|
|
STA $F0
|
|
STX $F2
|
|
LDA [$F0]
|
|
AND #$00FF
|
|
CMP #$0022
|
|
BNE L03AFA6
|
|
LDY #$FFFF
|
|
L03AF91 INY
|
|
LDA [$E4],Y
|
|
XBA
|
|
STA [$E4],Y
|
|
AND #$00FF
|
|
BNE L03AF91
|
|
LDA $E4
|
|
BNE L03AFA2
|
|
DEC $E6
|
|
L03AFA2 DEC $E4
|
|
BRA L03AFA8
|
|
L03AFA6 BRA L03AFAA
|
|
L03AFA8 BRA L03AF57
|
|
L03AFAA BRA L03AFD3
|
|
L03AFAC LDX $E6
|
|
LDA $E4
|
|
INC $E4
|
|
BNE L03AFB6
|
|
INC $E6
|
|
L03AFB6 STA $F0
|
|
STX $F2
|
|
LDA [$F0]
|
|
AND #$00FF
|
|
STA $E2
|
|
CMP #$0020
|
|
BEQ L03AFD3
|
|
LDA $E2
|
|
BEQ L03AFD3
|
|
LDA $E2
|
|
CMP #$0009
|
|
BEQ L03AFD3
|
|
BRA L03AFAC
|
|
L03AFD3 LDX $E6
|
|
LDA $E4
|
|
SEC
|
|
SBC #$0001
|
|
PHA
|
|
TXA
|
|
SBC #$0000
|
|
TAX
|
|
PLA
|
|
STA $F0
|
|
STX $F2
|
|
LDA #$0000
|
|
SEP #$20
|
|
STA [$F0]
|
|
REP #$20
|
|
LDA $E2
|
|
BNE L03AFFB
|
|
LDA $E4
|
|
BNE L03AFF9
|
|
DEC $E6
|
|
L03AFF9 DEC $E4
|
|
L03AFFB LDA [$E4]
|
|
AND #$00FF
|
|
STA $E2
|
|
CMP #$0020
|
|
BEQ L03B00E
|
|
LDA $E2
|
|
CMP #$0009
|
|
BNE L03B016
|
|
L03B00E INC $E4
|
|
BNE L03B014
|
|
INC $E6
|
|
L03B014 BRA L03AFFB
|
|
L03B016 BRL L03AE8B
|
|
L03B019 PEI $EA
|
|
PEI $E8
|
|
_HLock
|
|
BCS L03B029
|
|
LDA #$0000
|
|
L03B029 STAL L0612ED
|
|
LDY #$0002
|
|
LDA [$E8],Y
|
|
TAX
|
|
LDA [$E8]
|
|
STX L0612E1
|
|
STA L0612DF
|
|
LDA L0612F5
|
|
LDX #$0000
|
|
TAY
|
|
BPL L03B045
|
|
DEX
|
|
L03B045 STX $F4
|
|
ASL
|
|
ROL $F4
|
|
ASL
|
|
ROL $F4
|
|
LDX $F4
|
|
PHX
|
|
PHA
|
|
LDX L0612E1
|
|
LDA L0612DF
|
|
JSL L03A390
|
|
PLA
|
|
PLX
|
|
STA $F0
|
|
STX $F2
|
|
LDX #$0000
|
|
LDA #$0000
|
|
LDY #$0002
|
|
PHA
|
|
TXA
|
|
STA [$F0],Y
|
|
PLA
|
|
STA [$F0]
|
|
LDA $FB
|
|
BNE L03B078
|
|
BRL L03B0CC
|
|
L03B078 PEA ^L05152F
|
|
PEA L05152F
|
|
JSL L03B446
|
|
PLY
|
|
PLY
|
|
STZ $E2
|
|
BRA L03B0BF
|
|
L03B088 LDA $E2
|
|
LDX #$0000
|
|
TAY
|
|
BPL L03B091
|
|
DEX
|
|
L03B091 STX $F4
|
|
ASL
|
|
ROL $F4
|
|
ASL
|
|
ROL $F4
|
|
LDX $F4
|
|
PHX
|
|
PHA
|
|
LDX L0612E1
|
|
LDA L0612DF
|
|
JSL L03A390
|
|
PLA
|
|
PLX
|
|
STA $F0
|
|
STX $F2
|
|
LDY #$0002
|
|
LDA [$F0],Y
|
|
TAX
|
|
LDA [$F0]
|
|
PHX
|
|
PHA
|
|
JSL L03B446
|
|
PLY
|
|
PLY
|
|
INC $E2
|
|
L03B0BF LDA $E2
|
|
SEC
|
|
SBC L0612F5
|
|
BVS L03B0CA
|
|
EOR #$8000
|
|
L03B0CA BPL L03B088
|
|
L03B0CC LDA #$0000
|
|
L03B0CF TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0014
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L03B0D9 LDX #$A804
|
|
JMP L03A8CD
|
|
|
|
L03B0DF ENT
|
|
LDX #$1E05
|
|
JMP L03A8CD
|
|
|
|
L03B0E5 PHD
|
|
TSC
|
|
TCD
|
|
STA [$06]
|
|
LDA $01,S
|
|
LDY #$0002
|
|
STA [$06],Y
|
|
LDA $02,S
|
|
INY
|
|
INY
|
|
STA [$06],Y
|
|
LDA $04,S
|
|
INY
|
|
INY
|
|
STA [$06],Y
|
|
PLD
|
|
LDA #$0000
|
|
RTL
|
|
|
|
L03B102 LDX #$1201
|
|
JMP L03A8CD
|
|
|
|
L03B108 ENT
|
|
PHD
|
|
TSC
|
|
TCD
|
|
LDA $08
|
|
CLC
|
|
ADC $06
|
|
BEQ L03B114
|
|
BCS L03B143
|
|
L03B114 LDA $0C
|
|
CLC
|
|
ADC $06
|
|
BEQ L03B11D
|
|
BCS L03B143
|
|
L03B11D LDX $08
|
|
LDY $0C
|
|
LDA $0D
|
|
STA $08
|
|
LDA $09
|
|
STAL L03B12F+1
|
|
LDA $06
|
|
DEC
|
|
PHB
|
|
L03B12F MVN $000000,$000000
|
|
PLB
|
|
L03B133 LDA $04
|
|
STA $0E
|
|
LDA $03
|
|
STA $0D
|
|
PLD
|
|
TSC
|
|
CLC
|
|
ADC #$000A
|
|
TCS
|
|
RTL
|
|
|
|
L03B143 LDA $06
|
|
TAY
|
|
LSR
|
|
TAX
|
|
BCC L03B15A
|
|
SEP #$20
|
|
LDA [$08]
|
|
STA [$0C]
|
|
REP #$20
|
|
BRA L03B15A
|
|
L03B154 DEY
|
|
DEY
|
|
LDA [$08],Y
|
|
STA [$0C],Y
|
|
L03B15A DEX
|
|
BPL L03B154
|
|
BRA L03B133
|
|
L03B15F LDX #$3A04
|
|
JMP L03A8CD
|
|
|
|
L03B165 ENT
|
|
LDX #$1B04
|
|
JMP L03A8CD
|
|
|
|
L03B16B LDX #$270B
|
|
JMP L03A8CD
|
|
|
|
L03B171 LDX #$3C0E
|
|
JMP L03A8CD
|
|
|
|
L03B177 SEP #$10
|
|
PHX
|
|
REP #$10
|
|
DEC
|
|
PHA
|
|
RTL
|
|
|
|
L03B17F ENT
|
|
LDX #$5504
|
|
JMP L03A8CD
|
|
|
|
L03B185 PHD
|
|
PHX
|
|
PHA
|
|
TSC
|
|
TCD
|
|
LDX $0A
|
|
LDA $0C
|
|
BEQ L03B193
|
|
LDX #$0021
|
|
L03B193 TXY
|
|
BEQ L03B1A0
|
|
LDA $01
|
|
L03B198 ASL
|
|
ROL $03
|
|
DEX
|
|
BNE L03B198
|
|
STA $01
|
|
L03B1A0 LDA $01
|
|
STA $0A
|
|
LDA $03
|
|
STA $0C
|
|
PLY
|
|
PLY
|
|
PLD
|
|
RTL
|
|
|
|
L03B1AC ENT
|
|
EOR #$FFFF
|
|
SEC
|
|
ADC $04,S
|
|
TAY
|
|
TXA
|
|
EOR #$FFFF
|
|
ADC $06,S
|
|
TAX
|
|
LDA $01,S
|
|
STA $05,S
|
|
LDA $02,S
|
|
STA $06,S
|
|
PLA
|
|
PLA
|
|
TYA
|
|
RTL
|
|
|
|
L03B1C6 ENT
|
|
LDX #$0E14
|
|
JMP L03A8CD
|
|
|
|
L03B1CC ENT
|
|
LDX #$1910
|
|
JMP L03A8CD
|
|
|
|
L03B1D2 ENT
|
|
LDX #$1A10
|
|
JMP L03A8CD
|
|
|
|
L03B1D8 ENT
|
|
LDX #$1102
|
|
JMP L03A8CD
|
|
|
|
L03B1DE ENT
|
|
LDX #$3010
|
|
JMP L03A8CD
|
|
|
|
L03B1E4 ENT
|
|
LDX #$0B0E
|
|
JMP L03A8CD
|
|
|
|
L03B1EA ENT
|
|
LDX #$0202
|
|
JMP L03A8CD
|
|
|
|
L03B1F0 ENT
|
|
LDX #$131C
|
|
JMP L03A8CD
|
|
|
|
L03B1F6 ENT
|
|
LDX #$0902
|
|
JMP L03A8CD
|
|
|
|
L03B1FC LDX #$5304
|
|
JMP L03A8CD
|
|
|
|
L03B202 ENT
|
|
LDX #$1D0E
|
|
JMP L03A8CD
|
|
|
|
L03B208 ENT
|
|
LDX #$0C10
|
|
JMP L03A8CD
|
|
|
|
L03B20E JSL DISPATCH2
|
|
STAL L0612ED
|
|
LDA $04,S
|
|
BEQ L03B21F
|
|
LDA #$0001
|
|
STA $04,S
|
|
L03B21F RTL
|
|
|
|
L03B220 ENT
|
|
LDX #$430F
|
|
JMP L03A8CD
|
|
|
|
L03B226 ENT
|
|
LDX #$8F04
|
|
JMP L03A8CD
|
|
|
|
L03B22C ENT
|
|
LDX #$2A0F
|
|
JMP L03A8CD
|
|
|
|
L03B232 ENT
|
|
LDX #$240B
|
|
JMP L03A8CD
|
|
|
|
L03B238 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFC8
|
|
TCS
|
|
TCD
|
|
TDC
|
|
CLC
|
|
ADC #$0029
|
|
PEA $0000
|
|
PHA
|
|
PEI $40
|
|
PEI $3E
|
|
PEA $000A
|
|
JSL L03B108
|
|
TDC
|
|
CLC
|
|
ADC #$0033
|
|
PEA $0000
|
|
PHA
|
|
JSL L03B46D
|
|
PHY
|
|
PHY
|
|
TDC
|
|
CLC
|
|
ADC #$0029
|
|
PEA $0000
|
|
PHA
|
|
JSL L03A126
|
|
PLA
|
|
STA $42
|
|
PLX
|
|
STX $44
|
|
PHY
|
|
PEA $0010
|
|
JSL L03B3F0
|
|
PLA
|
|
LSR
|
|
BCS L03B285
|
|
BRL L03B32E
|
|
L03B285 PEA $0003
|
|
JSL L03AC4A
|
|
PHY
|
|
PHY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$001F
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$0029
|
|
PEA $0000
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$000B
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0015
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$0029
|
|
PEA $0000
|
|
PHA
|
|
PEA $000A
|
|
JSL L03B108
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0015
|
|
PHA
|
|
PEA $000F
|
|
_SANEFP816
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0015
|
|
PHA
|
|
PEA $000A
|
|
JSL L03B108
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
PEA ^L051538
|
|
PEA L051538
|
|
PEA $000A
|
|
JSL L03B108
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$000B
|
|
PHA
|
|
PEA $0000
|
|
_SANEFP816
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$000B
|
|
PHA
|
|
JSL L03B52F
|
|
JSL L03A126
|
|
PLA
|
|
STA $42
|
|
PLX
|
|
STX $44
|
|
L03B32E PEI $33
|
|
JSL L03B502
|
|
LDA $3C
|
|
STA $40
|
|
LDA $3B
|
|
STA $3F
|
|
LDA $39
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$003E
|
|
TCS
|
|
RTL
|
|
|
|
L03B346 ENT
|
|
LDX #$0E17
|
|
JMP L03A8CD
|
|
|
|
L03B34C ENT
|
|
LDX #$0B14
|
|
JMP L03A8CD
|
|
|
|
L03B352 ENT
|
|
LDX #$6B0E
|
|
JMP L03A8CD
|
|
|
|
L03B358 ENT
|
|
LDX #$620E
|
|
JMP L03A8CD
|
|
|
|
L03B35E TSC
|
|
TCD
|
|
LDA [$04]
|
|
TAX
|
|
LDA $04,S
|
|
TAY
|
|
LDA $06,S
|
|
TCD
|
|
LDA $08,S
|
|
TXS
|
|
PHA
|
|
PHD
|
|
PHY
|
|
TSC
|
|
TCD
|
|
LDY #$0002
|
|
LDA [$01],Y
|
|
TAX
|
|
INY
|
|
INY
|
|
LDA [$01],Y
|
|
STA $08,S
|
|
INY
|
|
INY
|
|
LDA [$01],Y
|
|
STA $0A,S
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLY
|
|
CMP #$0000
|
|
BNE L03B38D
|
|
INC
|
|
L03B38D PHX
|
|
PLD
|
|
RTL
|
|
|
|
L03B390 ENT
|
|
LDX #$1010
|
|
JMP L03A8CD
|
|
|
|
L03B396 ENT
|
|
LDX #$CA04
|
|
JMP L03A8CD
|
|
|
|
L03B39C PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00F2
|
|
TCS
|
|
PEI $FF
|
|
PEA $0001
|
|
_SANEFP816
|
|
BCS L03B3B8
|
|
LDA #$0000
|
|
L03B3B8 STAL L0612ED
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L03B3C4 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00F0
|
|
TCS
|
|
PEA $0003
|
|
_SANEFP816
|
|
BCS L03B3DE
|
|
LDA #$0000
|
|
L03B3DE STAL L0612ED
|
|
JSL L03B500
|
|
STA [$FD]
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L03B3F0 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFFA
|
|
TCS
|
|
TCD
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
JSL L03B3C4
|
|
TAY
|
|
CLC
|
|
TSC
|
|
ADC #$0004
|
|
TCS
|
|
TYA
|
|
PEI $01
|
|
PEA $0100
|
|
JSL L03A181
|
|
PLX
|
|
PLX
|
|
PHA
|
|
PEA $0020
|
|
JSL L03B49D
|
|
PLX
|
|
PLX
|
|
STA $01
|
|
LDA #$0001
|
|
STA $0E
|
|
LDA $0C
|
|
AND $01
|
|
STA $01
|
|
LDA $01
|
|
BNE L03B435
|
|
STZ $0E
|
|
L03B435 LDA $0A
|
|
STA $0C
|
|
LDA $09
|
|
STA $0B
|
|
LDA $07
|
|
TCD
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
RTL
|
|
|
|
L03B446 TSC
|
|
PHD
|
|
TCD
|
|
LDY #$0000
|
|
SEP #$20
|
|
LDA [$04],Y
|
|
BEQ L03B465
|
|
XBA
|
|
L03B453 INY
|
|
BEQ L03B45F
|
|
LDA [$04],Y
|
|
BEQ L03B45F
|
|
XBA
|
|
STA [$04],Y
|
|
BRA L03B453
|
|
L03B45F XBA
|
|
STA [$04],Y
|
|
TYA
|
|
STA [$04]
|
|
L03B465 REP #$20
|
|
LDX $06
|
|
LDA $04
|
|
PLD
|
|
RTL
|
|
|
|
L03B46D PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFFC
|
|
TCS
|
|
TCD
|
|
PEI $0C
|
|
PEI $0A
|
|
PEA $0017
|
|
_SANEFP816
|
|
BCS L03B488
|
|
LDA #$0000
|
|
L03B488 STAL L0612ED
|
|
LDA $08
|
|
STA $0C
|
|
LDA $07
|
|
STA $0B
|
|
LDA $05
|
|
TCD
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
RTL
|
|
|
|
L03B49D PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00F0
|
|
TCS
|
|
PEI $FD
|
|
LDA $FF
|
|
SEC
|
|
JSL L03A3D8
|
|
PLA
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L03B4BC TSC
|
|
PHD
|
|
TCD
|
|
LDY $0C
|
|
BEQ L03B4D6
|
|
BMI L03B4D6
|
|
SEP #$20
|
|
BRA L03B4CD
|
|
L03B4C9 LDA [$08],Y
|
|
STA [$04],Y
|
|
L03B4CD DEY
|
|
BNE L03B4C9
|
|
LDA [$08]
|
|
STA [$04]
|
|
REP #$20
|
|
L03B4D6 LDA $04
|
|
LDX $06
|
|
PLD
|
|
RTL
|
|
|
|
L03B4DC PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F3
|
|
TCD
|
|
ADC #$00EC
|
|
TCS
|
|
PEI $FB
|
|
PEI $F9
|
|
LDX $FF
|
|
LDA $FD
|
|
SEC
|
|
JSL L03A4BA
|
|
PLA
|
|
PLX
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L03B500 TXA
|
|
RTL
|
|
|
|
L03B502 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFFC
|
|
TCS
|
|
TCD
|
|
PEI $0A
|
|
PEA $0019
|
|
_SANEFP816
|
|
BCS L03B51B
|
|
LDA #$0000
|
|
L03B51B STAL L0612ED
|
|
LDA $08
|
|
STA $0A
|
|
LDA $07
|
|
STA $09
|
|
LDA $05
|
|
TCD
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
RTL
|
|
|
|
L03B52F PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFDE
|
|
TCS
|
|
TCD
|
|
TDC
|
|
CLC
|
|
ADC #$000B
|
|
PEA $0000
|
|
PHA
|
|
PEI $2E
|
|
PEI $2C
|
|
PEA $000A
|
|
JSL L03B108
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
PEI $2A
|
|
PEI $28
|
|
PEA $000A
|
|
JSL L03B108
|
|
TDC
|
|
CLC
|
|
ADC #$0015
|
|
PEA $0000
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
PEA $000A
|
|
JSL L03B108
|
|
TDC
|
|
CLC
|
|
ADC #$000B
|
|
PEA $0000
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$0015
|
|
PEA $0000
|
|
PHA
|
|
PEA $0011
|
|
_SANEFP816
|
|
BCS L03B599
|
|
LDA #$0000
|
|
L03B599 STAL L0612ED
|
|
PEI $32
|
|
PEI $30
|
|
TDC
|
|
CLC
|
|
ADC #$0015
|
|
PEA $0000
|
|
PHA
|
|
PEA $000A
|
|
JSL L03B108
|
|
LDA $26
|
|
STA $2E
|
|
LDA $25
|
|
STA $2D
|
|
LDA $23
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$002C
|
|
TCS
|
|
RTL
|
|
|
|
|