Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2025-01-06 01:31:57 +00:00
Code Issues Projects Releases Wiki Activity
50da8046af
antoine-source/archiver/MAIN.S
Antoine Vignau b0af6d3b6c Archiver 1.0 
This is the reassembly of Archiver GS by Monte Benaresh
2023-03-04 20:37:35 +01:00

21761 lines
564 KiB
ArmAsm
Raw Blame History

*
* 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
Reference in New Issue View Git Blame Copy Permalink