0� (C) Echoes - Allan Kelly 19/12/87 - 6/2/88
� Inteligent boot system
.� Main code section needs ADD support code
('� Virtual memory version Vs ECHOs27
2 
<oscli=&FFF7
Fosbyte=&FFF4
Posword=&FFF1
Zoswrch=&FFEE
dosnewl=&FFE7
nosasci=&FFE3
xosrdch=&FFE0
�osgbpb=&FFD1
�osbget=&FFD7
�osfind=&FFCE
� 
�sector0=&4200
�sector1=&4300
�filenames=&4500
�filedata=&4800
�filerems=&5000
�� pass=4 � 6 � 2
�P%=&3000
�load=P%
�O%=&6B00

save=O%

[

OPT pass

"LDA&202

,STA old_brkv

6LDA&203

@STA old_brkv+1

JLDA#new_brk � 256

TLDY#new_brk � 256

^SEI

hSTA&202

rSTY&203

|CLI

�.echoes LDA#0

�
STA error

�LDX#initm � 256

�LDY#initm � 256

�JSR display

�LDX#initm2 � 256

�LDY#initm2 � 256

�JSR display

� 

�JSR myrdch \ Wait for key

� 

�\ Read sectors

�\ First read drive
!LDA#6 \ Uses dblock & dblock2
LDX#dblock � 256
LDY#dblock � 256
&JSR osgbpb
0LDA dblock2+1
:SEC
D
SBC#48
NSTA disc
XSTA sec0_rd
bSTA sec1_rd
l 
v%LDX#sec0_rd � 256 \ Read sector 0
�LDY#sec0_rd � 256
�JSR get_sector
�LDX#sec1_rd � 256
�LDY#sec1_rd � 256
�JSR get_sector
� 
�\ Calculate files
�LDA sector1+5
�	LSR A
�	LSR A
�	LSR A
�
STA files
� 
\ Calculate tracks
LDA#&7E
LDX#sectors � 256
 LDY#sectors � 256
*JSR osword
4LDA sectors+2
>	CMP#3
HBCS track80
R
LDA#40
\STA tracks
f
JMP forw1
p.track80 LDA#80
zSTA tracks
�(.forw1 \ Calculate sectors per track
�LDA sectors+1
�
STA&72
�LDA sectors+2
�
STA&73
�	LDA#0
�
STA sa
�STA spt
�.cseba INC spt
�
LDA&72
�SEC
�SBC tracks
�
STA&72

LDA&73
	SBC#0

STA&73
$
BNE cseba
.
LDA&72
8
BNE cseba
B\ Get disc name
L	LDY#0
V.nback LDA sector0,Y
`STA disc_name,Y
jINY
t	CPY#8
~
BNE nback
�	LDX#0
�.nback2 LDA sector1,X
�STA disc_name,Y
�INX
�INY
�
CPY#12
�BNE nback2
� 
�LDA#4 \ Set cursor & f keys
�	LDX#1
�	LDY#0
�JSR osbyte
LDA#225

LDX#144
	LDY#0
JSR osbyte
( 
2JSR sort_names
< 
F\ Extract data on each file
P
LDA files
Z
STA sa
dLDA#filedata � 256
n
STA&72
xLDA#filedata � 256
�
STA&73
�	LDX#0
�.exback LDY#0
�TXA
�CLC
�	ADC#8
�TAX
�LDA sector1,X \ Load addr
�STA(&72),Y
�INY
�LDA sector1+1,X
�STA(&72),Y
�LDA sector1+6,X
�#&C
	LSR A
	LSR A
"INY
,	CMP#3
6
BNE exfo1
@LDA#&FF
J.exfo1 STA(&72),Y
TINY
^INY
hLDA sector1+2,X \ Exec addr
rSTA(&72),Y
|INY
�LDA sector1+3,X
�STA(&72),Y
�INY
�LDA sector1+6
�LSR A:LSR A
�LSR A:LSR A
�LSR A:LSR A
�	CMP#3
�
BNE exfo2
�LDA#&FF
�.exfo2 STA(&72),Y
�INY
�INY
LDA sector1+4,X \ Length
STA(&72),Y
INY
&LDA sector1+5,X
0STA(&72),Y
:INY
DLDA sector1+6,X
N�#48
XLSR A:LSR A
bLSR A:LSR A
l	CMP#3
v
BNE exfo3
�LDA#&FF
�.exfo3 STA(&72),Y
�INY
�INY
�"LDA sector1+7,X \ Start sector
�STA(&72),Y
�INY
�LDA sector1+6,X
��#3
�	CMP#3
�
BNE exfo4
�LDA#&FF
�.exfo4 STA(&72),Y
INY
INY
INY
 TYA
*CLC
4
ADC&72
>
STA&72
H
LDA&73
R	ADC#0
\
STA&73
f
DEC sa
p
BEQ exfo5
zJMP exback
�
.exfo5
� 
�$\ Read sectors, find � and store
�
LDA files
�
STA sa
�<LDA#filedata � 256 \ Each filedata block points to a rem
�
STA&74
�LDA#filedata � 256
�
STA&75
�-LDA#filerems � 256 \ Store �s at &5000 on
�
STA&72
�LDA#filerems � 256
�
STA&73
	 
	.rsrback1 LDY#12
	LDA(&74),Y
	$TAX
	.INY
	8LDA(&74),Y
	BTAY
	LJSR read_sector
	VJSR search_for_rem
	`'\ XY contain address of �, A=length
	jPHA
	tTYA
	~
LDY#15
	�STA(&74),Y
	�DEY
	�TXA
	�STA(&74),Y
	� 
	�PLA
	�CLC
	�
ADC&72
	�
STA&72
	�
LDA&73
	�	ADC#0
	�
STA&73

LDA&74

CLC

ADC#16

STA&74
(
LDA&75
2	ADC#0
<
STA&75
F 
PDEC sa \ All �s read ?
ZBNE rsrback1
d 
n
\ Display
x
LDA#12
�JSR oswrch
�'JSR window0 \ Set up status display
�	LDY#0
�.stsba1 LDA stat_mess,Y
�CMP#&FF
�BEQ stexit
�JSR oswrch
�INY
�JMP stsba1
�.stexit LDX#6
�	LDY#1
�JSR tab
�	LDY#0
.stsba2 LDA disc_name,Y
JSR oswrch
INY
"
CPY#&C
,BNE stsba2
6
LDA#32
@JSR oswrch
JLDA disc
TCLC
^ADC#&30
hJSR oswrch
r	LDY#2
|	LDX#7
�JSR tab
�
LDA files
�JSR byte_to_ascii
�TXA
�JSR oswrch
�TYA
�JSR oswrch
�
LDX#27
�	LDY#2
�JSR tab
�LDA tracks
�JSR byte_to_ascii
�TXA
JSR oswrch
TYA
JSR oswrch
& 
0\ Init main screen
:	LDA#1
DSTA top_file
NSTA current_file
X
LDA#17
bSTA bottem_file
l
CMP files
v
BCC info1
�
LDA files
�STA bottem_file
�
.info1
�JSR file_window
� 
�LDA#&FF
�
STA error
� 
�\ Key control here on
�.key_check LDA#21
�	LDX#0
�JSR osbyte
�LDA current_file

SEC

SBC top_file

TAY

 	LDX#2

*JSR tab

4LDA#�"]"

>JSR oswrch

H 

R.JSR myrdch \ Get key press & check for ESC

\TAX

f 

pCPX#&8B

zBNE cursor_down

� 

�.cursor_up JSR window1

�LDA current_file

�SEC

�SBC top_file

�TAY

�	LDX#2

�JSR tab

�
LDA#32

�JSR oswrch

�LDA#&81

�LDX#&FF

�LDY#&FF
JSR osbyte

BCS cufo1
DEC current_file
$
JMP cufo2
..cufo1 LDA current_file
8SEC
B	SBC#5
LSTA current_file
V.cufo2 LDA current_file
`	CMP#1
j
BPL cufo3
t	LDA#1
~STA current_file
�.cufo3 CMP top_file
�
BCS cufo4
�STA top_file
�CLC
�
ADC#17
�
CMP files
�
BCC cufo5
�
LDA files
�.cufo5 STA bottem_file
�JSR file_window
�.cufo4 JMP key_check
� 
.cursor_down CPX#&8A

BNE tab_key
JSR window1
LDA current_file
(SEC
2.fk0
<SBC top_file
FTAY
P	LDX#2
ZJSR tab
d
LDA#32
nJSR oswrch
xLDA#&81
�LDX#&FF
�LDY#&FF
�JSR osbyte
�
BCS cdfo1
�INC current_file
�
JMP cdfo2
�.cdfo1 LDA current_file
�CLC
�	ADC#5
�STA current_file
�.cdfo2 LDA current_file
�
CMP files
�
BCC cdfo3

LDA files
STA current_file
.cdfo3 CMP bottem_file
"
BCC cdfo4
,STA bottem_file
6SEC
@
SBC#16
J	CMP#1
T
BPL cdfo5
^	LDA#1
h.cdfo5 STA top_file
rJSR file_window
|.cdfo4 JMP key_check
� 
�.tab_key CPX#9
�BNE key0
�$LDA current_file \ Copy filename
�LDX#chi_name � 256
�LDY#chi_name � 256
�JSR get_filename
�
LDA#�""""
�STA chi_name+9
�
LDA#13
�STA chi_name+10
� 
�JSR ready_exit

LDA#21
	LDX#0
JSR osbyte
&	LDY#0
0.rtkba1 STY sy
:LDA chain_int,Y
DTAY
NPHA
XLDA#138
b	LDX#0
lJSR osbyte
v
LDY sy
�INY
�PLA
�
CMP#13
�BNE rtkba1
�LDX#osbasic � 256
�LDY#osbasic � 256
�
JMP oscli
� 
�.key0 CPX#144
�BNE key1
�LDA current_file
�LDX#os_com � 256
�LDY#os_com � 256
JSR get_filename

LDA#&D
STA(&76),Y
 JSR ready_exit
*LDX#os_com � 256
4LDY#os_com � 256
>
JMP oscli
H 
R.key1 CPX#145
\BNE key2
fJSR window1
p
LDA#14
zJSR oswrch
�
LDA#12
�JSR oswrch
�LDA current_file
�LDX#dump_plus � 256
�LDY#dump_plus � 256
�JSR get_filename
�
LDA#13
�STA(&76),Y
�LDX#dump_file � 256
�LDY#dump_file � 256
�
JSR oscli
�
LDA#15
�JSR oswrch

LDA#21
	LDX#0
JSR osbyte
$JSR myrdch
.JSR file_window
8JMP key_check
B 
L.key2 CPX#146
VBNE key3
`
LDA#14
jJSR oswrch
t
LDA#12
~JSR oswrch
�LDA current_file
�LDX#type_name � 256
�LDY#type_name � 256
�JSR get_filename
�
LDA#13
�STA(&76),Y
�LDA#&40
�LDX#type_name � 256
�LDY#type_name � 256
�JSR osfind
�	CMP#0
�BNE k2fo
JMP file_not_found


.k2fo TAY
.k2ba JSR osbget

BCS k2fo3
(
CMP#13
2
BEQ k2fo2
<
CMP#32
FBCC k2ba
PCMP#127
ZBCS k2ba
d.k2fo2 JSR osasci
nJMP k2ba
x.k2fo3 LDA#0 \ Close file
�JSR osfind
�
LDA#15
�JSR oswrch
�
LDA#21
�	LDX#0
�JSR osbyte
�JSR myrdch
�JSR file_window
�JMP key_check
� 
�.key3 CPX#147
�BEQ key3_jump
�JMP key4
.key3_jump JSR window1
LDX#info_mess � 256
LDY#info_mess � 256
"JSR display
,LDX current_file
6DEX
@TXA
JASL A:ASL A
T	ASL A
^TAY
hPHA
r	LDY#0
|	LDX#8
�JSR tab
�PLA
�TAY
�LDA filenames,Y \ filename
�JSR oswrch
�LDA#�"."
�JSR oswrch
�INY
�	LDX#0
�.k3ba2 LDA filenames,Y
�JSR oswrch
�INY
�INX
	CPX#7

BNE k3ba2
LDY#1 \ Load
&	LDX#8
0JSR tab
:LDY current_file
DJSR locate_data
N	LDY#0
XLDA(&70),Y
bTAX
lINY
vLDA(&70),Y
�
STA sy
�INY
�LDA(&70),Y
�
LDY sy
�JSR hex_6_ascii
�LDY#2 \ Exec
�	LDX#8
�JSR tab
�	LDY#4
�LDA(&70),Y
�TAX
�INY
�LDA(&70),Y

STA sy
INY
LDA(&70),Y
 
LDY sy
*JSR hex_6_ascii
4LDX#8 \ Length
>	LDY#3
HJSR tab
R	LDY#8
\LDA(&70),Y
fTAX
pINY
zLDA(&70),Y
�
STA sy
�INY
�LDA(&70),Y
�
LDY sy
�JSR hex_6_ascii
�LDY#4 \ Sector
�	LDX#8
�JSR tab
�
LDY#12
�LDA(&70),Y
�TAX
�INY
�LDA(&70),Y
TAY
	LDA#0
JSR hex_6_ascii
$
LDY#5 \ �
.	LDX#8
8JSR tab
B
LDY#14
LLDA(&70),Y
V
STA&72
`INY
jLDA(&70),Y
t
STA&73
~	LDY#0
�.k3ba3 LDA(&72),Y
�CMP end_token
�
BEQ k3fo2
�
CMP#13
�
BEQ k3fo3
�
CMP#32
�
BCC k3fo4
�CMP#127
�
BCS k3fo4
�.k3fo3 JSR osasci
�.k3fo4 INY
�
JMP k3ba3
.k3fo2 JSR window2

LDX#p_mess � 256
LDY#p_mess � 256
JSR display
(
LDA#21
2	LDX#0
<JSR osbyte
F.k3pb1 JSR myrdch
PCMP#�"Y"
ZBEQ k3print
dCMP#�"N"
n
BNE k3pb1
xJMP k3pf
�.k3print JSR window1
�	LDA#3
�
LDX#64
�JSR osbyte
�	LDA#2
�JSR oswrch
�	LDY#0
�.k3pb3 LDX#0
�	LDA#1
�JSR oswrch
�
LDA#&D
�JSR oswrch
�.k3pb2 JSR tab

STY sy

STX sx
LDA#&87
"JSR osbyte
,	LDA#1
6JSR oswrch
@TXA
JJSR oswrch
T
LDX sx
^
LDY sy
hINX
r
CPX#40
|
BNE k3pb2
�INY
�
CPY#13
�
BNE k3pb3
�	LDA#3
�JSR oswrch
�	LDX#0
�JSR osbyte
�.k3pf JSR window2
�
LDA#12
�JSR oswrch
�JSR window1
�JSR file_window
�JMP key_check
 
.key4 CPX#148
BNE key5
&LDA current_file
0LDX#access_file � 256
:LDY#access_file � 256
DJSR get_filename
NPHA
XCMP#128
bBCS k4fo
l
LDA#32
vSTA(&76),Y
�INY
�LDA#�"L"
�STA(&76),Y
�INY
�.k4fo LDA#13
�STA(&76),Y
�LDX#access � 256
�LDY#access � 256
�
JSR oscli
�LDY current_file
�DEY
�TYA
�ASL A:ASL A:ASL A
TAY
PLA
	�#128
 STA filenames,Y
*JSR file_window
4JMP key_check
> 
H.key5 CPX#149
RBEQ k5_jump
\JMP key6
f.k5_jump LDA current_file
pLDX#new_file � 256
zLDY#new_file � 256
�JSR get_filename
�CMP#128
�BCC k5fo
�JSR window2
�
LDA#12
�JSR oswrch
�LDX#file_locked � 256
�LDY#file_locked � 256
�JSR display
�	LDA#7
�JSR oswrch
�JSR window1
�JMP key_check
.k5fo LDA#32
STA(&76),Y
INY
$TYA
.CLC
8
ADC&76
BSTA name_input
L
STA&76
V
LDA&77
`	ADC#0
jSTA name_input+1
t
STA&77
~JSR window2
�LDX#new_name � 256
�LDY#new_name � 256
�JSR display
�	LDA#0
�LDX#name_input � 256
�LDY#name_input � 256
�JSR osword
�
LDA#&D
�STA(&76),Y
�LDX#rename � 256
�LDY#rename � 256
�
JSR oscli

LDA#12

JSR oswrch
JSR window1
LDX#sec0_rd � 256
(LDY#sec0_rd � 256
2JSR get_sector
<JSR sort_names
FJSR file_window
PJMP key_check
Z 
d.key6 CPX#150
nBEQ k6_jump
xJMP key7
�.k6_jump JSR window2
�
LDA#12
�JSR oswrch
�LDA current_file
�LDX#delete_file � 256
�LDY#delete_file � 256
�JSR get_filename
�CMP#128
�
BCC k6fo1
�LDX#file_locked � 256
�LDY#file_locked � 256
�JSR display
�JSR window1
JMP key_check
.k6fo1 LDA#&D
STA(&76),Y
"LDX#sure � 256
,LDY#sure � 256
6JSR display
@
LDA#21
J	LDX#0
TJSR osbyte
^.k6ba1 JSR myrdch
hCMP#�"Y"
r
BEQ k6fo2
|CMP#�"N"
�
BNE k6ba1
�
LDA#12
�JSR oswrch
�JSR window1
�JMP key_check
�.k6fo2 LDX#delete � 256
�LDY#delete � 256
�
JSR oscli
�LDA current_file
�
CMP files
�
BEQ k6fo3
�JSR shuffle_names
�JSR shuffle_data
 .k6fo3 DEC files
 LDA bottem_file
 
CMP files
 &
BCS k6fo4
 0
LDA files
 :STA bottem_file
 D.k6fo4 LDA#12
 NJSR oswrch
 XJSR window0
 b	LDY#2
 l	LDX#7
 vJSR tab
 �
LDA files
 �JSR byte_to_ascii
 �TXA
 �JSR oswrch
 �TYA
 �JSR oswrch
 �JSR window1
 �JSR file_window
 �JMP key_check
 � 
 �#.shuffle_names LDA current_file
 �
STA sa
 �SEC
!	SBC#1
!ASL A:ASL A:ASL A
!CLC
! ADC#filenames � 256
!*
STA&70
!4LDA#filenames � 256
!>	ADC#0
!H
STA&71
!R.sfba2 LDA&70
!\CLC
!f	ADC#8
!p
STA&72
!z
LDA&71
!�	ADC#0
!�
STA&73
!�	LDY#0
!�.sfba1 LDA(&72),Y
!�STA(&70),Y
!�INY
!�	CPY#8
!�
BNE sfba1
!�
INC sa
!�
LDA sa
!�
CMP files
!�
BEQ sffo1
!�
LDA&72
"
STA&70
"
LDA&73
"
STA&71
"$
JMP sfba2
"..sffo1 RTS
"8 
"B".shuffle_data LDA current_file
"L
STA sa
"VSEC
"`	SBC#1
"jASL A:ASL A
"tASL A:ASL A
"~PHP
"�CLC
"�ADC#filedata � 256
"�
STA&70
"�LDA#filedata � 256
"�	ADC#0
"�PLP
"�	ADC#0
"�
STA&71
"�.sdba2 LDA&70
"�CLC
"�
ADC#16
"�
STA&72
#
LDA&71
#
	ADC#0
#
STA&73
#	LDY#0
#(.sdba1 LDA(&72),Y
#2STA(&70),Y
#<INY
#F
CPY#16
#P
BNE sdba1
#Z
INC sa
#d
LDA sa
#n
CMP files
#x
BEQ snfo1
#�
LDA&72
#�
STA&70
#�
LDA&73
#�
STA&71
#�
JMP sdba2
#�.snfo1 RTS
#� 
#�.key7 CPX#151
#�BNE key8
#�LDA current_file
#�LDX#lo_name � 256
#�LDY#lo_name � 256
#�JSR get_filename
$
LDA#�""""
$STA lo_name+9
$
LDA#13
$"STA lo_name+10
$,JSR ready_exit
$6
LDA#21
$@	LDX#0
$JJSR osbyte
$T	LDY#0
$^.k7ba STY sy
$hLDA lo_int,Y
$rTAY
$|PHA
$�LDA#138
$�	LDX#0
$�JSR osbyte
$�
LDY sy
$�INY
$�PLA
$�
CMP#13
$�BNE k7ba
$�LDX#osbasic � 256
$�LDY#osbasic � 256
$�
JMP oscli
$� 
$� 
%.key8 CPX#152
%BNE key9
%
LDA#26
%&JSR oswrch
%0
LDA#12
%:JSR oswrch
%DLDA current_file
%NLDX#exec_plus � 256
%XLDY#exec_plus � 256
%bJSR get_filename
%l
LDA#13
%vSTA(&76),Y
%�JSR ready_exit
%�LDX#exec_file � 256
%�LDY#exec_file � 256
%�
JMP oscli
%� 
%�.key9 CPX#153
%�BEQ key9_jump
%�JMP space_bar
%�.key9_jump LDA#12
%�JSR oswrch
%�	LDA#2
%�JSR oswrch
%�	LDY#0
&.k9ba LDA banner,Y
&JSR oswrch
&INY
& 	CMP#0
&*BNE k9ba
&4	LDY#0
&>.k9ba2 LDA disc_name,Y
&HJSR oswrch
&RINY
&\	CMP#0
&f
BNE k9ba2
&p
LDA files
&zJSR byte_to_ascii
&�
LDA#32
&�JSR oswrch
&�TXA
&�JSR oswrch
&�TYA
&�JSR oswrch
&�	LDY#0
&�.k9ba3 LDA banner2,Y
&�JSR oswrch
&�INY
&�	CMP#0
&�
BNE k9ba3
&�JSR osnewl
'	LDA#0
'
STA sy
'
LDA#64
'$
STA width
'.	LDX#1
'8
STX sx
'B.k9ba4 JSR print_line
'LJSR osnewl
'V
LDA sx
'`
INC sx
'j
CMP files
't
BMI k9ba4
'~	LDA#3
'�JSR oswrch
'�JSR file_window
'�JMP key_check
'�#.banner EQUS"Echoes  Disc:":BRK
'�.banner2 EQUS" files":BRK
'� 
'�.space_bar CPX#32
'�BNE star_com
'�JSR window2
'�LDX#new_disc � 256
'�LDY#new_disc � 256
'�JSR display
(
LDA#21
(
	LDX#0
(JSR osbyte
(.sbba JSR myrdch
((
CMP#32
(2BNE sbba
(<	LDA#0
(F
STA files
(PSTA spt
(ZSTA tracks
(dSTA sectors
(nSTA top_file
(xSTA bottem_file
(�STA current_file
(�JMP echoes
(� 
(�.star_com CPX#�"*"
(�BNE not_known_key
(�.scba JSR window2
(�LDA#�"*"
(�JSR oswrch
(�	LDA#0
(�LDX#os_input � 256
(�LDY#os_input � 256
(�JSR osword
(�JSR window1
)
LDA#12
)JSR oswrch
)LDX#os_com � 256
)"LDY#os_com � 256
),
JSR oscli
)6JSR myrdch
)@CMP#�"*"
)JBEQ scba
)TJSR window2
)^
LDA#12
)hJSR oswrch
)rJSR window1
)|
LDA#12
)�JSR oswrch
)�JSR file_window
)�JMP key_check
)�.not_known_key
)�JMP key_check
)� 
)�.new_brk LDY#0
)�LDA(&FD),Y
)�
CMP#17
)�BNE nbfo
)�JMP esc_press
)�.nbfo JSR window2
)�
LDA#12
*JSR oswrch
*	LDA#7
*JSR oswrch
*&LDX#error_mess � 256
*0LDY#error_mess � 256
*:JSR display
*D	LDY#1
*N.nbba LDA(&FD),Y
*XJSR oswrch
*bINY
*l	CMP#0
*vBNE nbba
*�LDX#ack_mess � 256
*�LDY#ack_mess � 256
*�JSR display
*�LDA#&81
*�	LDX#0
*�
LDY#10
*�JSR osbyte
*�
BCS nbfo3
*�.recover LDA error
*�	CMP#0
*�
BNE nbfo4
*�JMP echoes
*�.nbfo4 CPY#27
+BEQ esc_press
+
LDA#12
+JSR oswrch
+ JSR window1
+*
LDA#12
+4JSR oswrch
+>JSR file_window
+HJMP key_check
+R 
+\.nbfo3 LDA#7
+fJSR oswrch
+pLDA#&81
+z	LDX#0
+�	LDY#3
+�JSR osbyte
+�BCC recover
+�
CPY#27
+�BEQ esc_press
+�
JMP nbfo3
+� 
+�.esc_press JSR window2
+�LDX#abort � 256
+�LDY#abort � 256
+�JSR display
+�.nbba2 JSR myrdch
+�CMP#�"N"
,BEQ recover
,CMP#�"Y"
,
BNE nbba2
,$JSR ready_exit
,.SEI
,8LDA old_brkv
,BSTA&202
,LLDA old_brkv+1
,VSTA&203
,`CLI
,jBRK
,tEQUB&FF
,~EQUS"Echoes Exited"
,�EQUW&D0A
,�BRK
,� 
,�.old_brkv EQUW 0
,� .error_mess EQUS"Error:":BRK
,�$.ack_mess EQUS"Acknowledge?":BRK
,�/.abort EQUB12:EQUS"Abort Echoes? (Y/N)":BRK
,�.error BRK
,� 
,�.myrdch JSR osrdch
,�BCC myfo
,�.myba LDA#126
-JSR osbyte
-
CPX#&FF
-BNE myba
-JMP esc_press
-(
.myfo RTS
-2]
-< 
-F 
N  � Variables should load here
N* 
N4�"LOAD THE VARIABLES!!!"
N>�
u0�
u:�"Now save this code with:"
uD7�" *SAVE L.CODE ";~save;" ";~O%;" ";~load;" ";~load
uN�"Then CHAIN LINK"
uX�
�

00000000  0d 00 0a 30 f4 20 28 43  29 20 45 63 68 6f 65 73  |...0. (C) Echoes|
00000010  20 2d 20 41 6c 6c 61 6e  20 4b 65 6c 6c 79 20 31  | - Allan Kelly 1|
00000020  39 2f 31 32 2f 38 37 20  2d 20 36 2f 32 2f 38 38  |9/12/87 - 6/2/88|
00000030  0d 00 14 1c f4 20 49 6e  74 65 6c 69 67 65 6e 74  |..... Inteligent|
00000040  20 62 6f 6f 74 20 73 79  73 74 65 6d 0d 00 1e 2e  | boot system....|
00000050  f4 20 4d 61 69 6e 20 63  6f 64 65 20 73 65 63 74  |. Main code sect|
00000060  69 6f 6e 20 6e 65 65 64  73 20 41 44 44 20 73 75  |ion needs ADD su|
00000070  70 70 6f 72 74 20 63 6f  64 65 0d 00 28 27 f4 20  |pport code..('. |
00000080  56 69 72 74 75 61 6c 20  6d 65 6d 6f 72 79 20 76  |Virtual memory v|
00000090  65 72 73 69 6f 6e 20 56  73 20 45 43 48 4f 73 32  |ersion Vs ECHOs2|
000000a0  37 0d 00 32 05 20 0d 00  3c 0f 6f 73 63 6c 69 3d  |7..2. ..<.oscli=|
000000b0  26 46 46 46 37 0d 00 46  10 6f 73 62 79 74 65 3d  |&FFF7..F.osbyte=|
000000c0  26 46 46 46 34 0d 00 50  10 6f 73 77 6f 72 64 3d  |&FFF4..P.osword=|
000000d0  26 46 46 46 31 0d 00 5a  10 6f 73 77 72 63 68 3d  |&FFF1..Z.oswrch=|
000000e0  26 46 46 45 45 0d 00 64  10 6f 73 6e 65 77 6c 3d  |&FFEE..d.osnewl=|
000000f0  26 46 46 45 37 0d 00 6e  10 6f 73 61 73 63 69 3d  |&FFE7..n.osasci=|
00000100  26 46 46 45 33 0d 00 78  10 6f 73 72 64 63 68 3d  |&FFE3..x.osrdch=|
00000110  26 46 46 45 30 0d 00 82  10 6f 73 67 62 70 62 3d  |&FFE0....osgbpb=|
00000120  26 46 46 44 31 0d 00 8c  10 6f 73 62 67 65 74 3d  |&FFD1....osbget=|
00000130  26 46 46 44 37 0d 00 96  10 6f 73 66 69 6e 64 3d  |&FFD7....osfind=|
00000140  26 46 46 43 45 0d 00 a0  05 20 0d 00 aa 11 73 65  |&FFCE.... ....se|
00000150  63 74 6f 72 30 3d 26 34  32 30 30 0d 00 b4 11 73  |ctor0=&4200....s|
00000160  65 63 74 6f 72 31 3d 26  34 33 30 30 0d 00 be 13  |ector1=&4300....|
00000170  66 69 6c 65 6e 61 6d 65  73 3d 26 34 35 30 30 0d  |filenames=&4500.|
00000180  00 c8 12 66 69 6c 65 64  61 74 61 3d 26 34 38 30  |...filedata=&480|
00000190  30 0d 00 d2 12 66 69 6c  65 72 65 6d 73 3d 26 35  |0....filerems=&5|
000001a0  30 30 30 0d 00 dc 14 e3  20 70 61 73 73 3d 34 20  |000..... pass=4 |
000001b0  b8 20 36 20 88 20 32 0d  00 e6 0c 50 25 3d 26 33  |. 6 . 2....P%=&3|
000001c0  30 30 30 0d 00 f0 0b 6c  6f 61 64 3d 50 25 0d 00  |000....load=P%..|
000001d0  fa 0c 4f 25 3d 26 36 42  30 30 0d 01 04 0b 73 61  |..O%=&6B00....sa|
000001e0  76 65 3d 4f 25 0d 01 0e  05 5b 0d 01 18 0c 4f 50  |ve=O%....[....OP|
000001f0  54 20 70 61 73 73 0d 01  22 0b 4c 44 41 26 32 30  |T pass..".LDA&20|
00000200  32 0d 01 2c 10 53 54 41  20 6f 6c 64 5f 62 72 6b  |2..,.STA old_brk|
00000210  76 0d 01 36 0b 4c 44 41  26 32 30 33 0d 01 40 12  |v..6.LDA&203..@.|
00000220  53 54 41 20 6f 6c 64 5f  62 72 6b 76 2b 31 0d 01  |STA old_brkv+1..|
00000230  4a 15 4c 44 41 23 6e 65  77 5f 62 72 6b 20 83 20  |J.LDA#new_brk . |
00000240  32 35 36 0d 01 54 15 4c  44 59 23 6e 65 77 5f 62  |256..T.LDY#new_b|
00000250  72 6b 20 81 20 32 35 36  0d 01 5e 07 53 45 49 0d  |rk . 256..^.SEI.|
00000260  01 68 0b 53 54 41 26 32  30 32 0d 01 72 0b 53 54  |.h.STA&202..r.ST|
00000270  59 26 32 30 33 0d 01 7c  07 43 4c 49 0d 01 86 11  |Y&203..|.CLI....|
00000280  2e 65 63 68 6f 65 73 20  4c 44 41 23 30 0d 01 90  |.echoes LDA#0...|
00000290  0d 53 54 41 20 65 72 72  6f 72 0d 01 9a 13 4c 44  |.STA error....LD|
000002a0  58 23 69 6e 69 74 6d 20  83 20 32 35 36 0d 01 a4  |X#initm . 256...|
000002b0  13 4c 44 59 23 69 6e 69  74 6d 20 81 20 32 35 36  |.LDY#initm . 256|
000002c0  0d 01 ae 0f 4a 53 52 20  64 69 73 70 6c 61 79 0d  |....JSR display.|
000002d0  01 b8 14 4c 44 58 23 69  6e 69 74 6d 32 20 83 20  |...LDX#initm2 . |
000002e0  32 35 36 0d 01 c2 14 4c  44 59 23 69 6e 69 74 6d  |256....LDY#initm|
000002f0  32 20 81 20 32 35 36 0d  01 cc 0f 4a 53 52 20 64  |2 . 256....JSR d|
00000300  69 73 70 6c 61 79 0d 01  d6 05 20 0d 01 e0 1d 4a  |isplay.... ....J|
00000310  53 52 20 6d 79 72 64 63  68 20 5c 20 57 61 69 74  |SR myrdch \ Wait|
00000320  20 66 6f 72 20 6b 65 79  0d 01 ea 05 20 0d 01 f4  | for key.... ...|
00000330  12 5c 20 52 65 61 64 20  73 65 63 74 6f 72 73 0d  |.\ Read sectors.|
00000340  01 fe 16 5c 20 46 69 72  73 74 20 72 65 61 64 20  |...\ First read |
00000350  64 72 69 76 65 0d 02 08  21 4c 44 41 23 36 20 5c  |drive...!LDA#6 \|
00000360  20 55 73 65 73 20 64 62  6c 6f 63 6b 20 26 20 64  | Uses dblock & d|
00000370  62 6c 6f 63 6b 32 0d 02  12 14 4c 44 58 23 64 62  |block2....LDX#db|
00000380  6c 6f 63 6b 20 83 20 32  35 36 0d 02 1c 14 4c 44  |lock . 256....LD|
00000390  59 23 64 62 6c 6f 63 6b  20 81 20 32 35 36 0d 02  |Y#dblock . 256..|
000003a0  26 0e 4a 53 52 20 6f 73  67 62 70 62 0d 02 30 11  |&.JSR osgbpb..0.|
000003b0  4c 44 41 20 64 62 6c 6f  63 6b 32 2b 31 0d 02 3a  |LDA dblock2+1..:|
000003c0  07 53 45 43 0d 02 44 0a  53 42 43 23 34 38 0d 02  |.SEC..D.SBC#48..|
000003d0  4e 0c 53 54 41 20 64 69  73 63 0d 02 58 0f 53 54  |N.STA disc..X.ST|
000003e0  41 20 73 65 63 30 5f 72  64 0d 02 62 0f 53 54 41  |A sec0_rd..b.STA|
000003f0  20 73 65 63 31 5f 72 64  0d 02 6c 05 20 0d 02 76  | sec1_rd..l. ..v|
00000400  25 4c 44 58 23 73 65 63  30 5f 72 64 20 83 20 32  |%LDX#sec0_rd . 2|
00000410  35 36 20 5c 20 52 65 61  64 20 73 65 63 74 6f 72  |56 \ Read sector|
00000420  20 30 0d 02 80 15 4c 44  59 23 73 65 63 30 5f 72  | 0....LDY#sec0_r|
00000430  64 20 81 20 32 35 36 0d  02 8a 12 4a 53 52 20 67  |d . 256....JSR g|
00000440  65 74 5f 73 65 63 74 6f  72 0d 02 94 15 4c 44 58  |et_sector....LDX|
00000450  23 73 65 63 31 5f 72 64  20 83 20 32 35 36 0d 02  |#sec1_rd . 256..|
00000460  9e 15 4c 44 59 23 73 65  63 31 5f 72 64 20 81 20  |..LDY#sec1_rd . |
00000470  32 35 36 0d 02 a8 12 4a  53 52 20 67 65 74 5f 73  |256....JSR get_s|
00000480  65 63 74 6f 72 0d 02 b2  05 20 0d 02 bc 15 5c 20  |ector.... ....\ |
00000490  43 61 6c 63 75 6c 61 74  65 20 66 69 6c 65 73 0d  |Calculate files.|
000004a0  02 c6 11 4c 44 41 20 73  65 63 74 6f 72 31 2b 35  |...LDA sector1+5|
000004b0  0d 02 d0 09 4c 53 52 20  41 0d 02 da 09 4c 53 52  |....LSR A....LSR|
000004c0  20 41 0d 02 e4 09 4c 53  52 20 41 0d 02 ee 0d 53  | A....LSR A....S|
000004d0  54 41 20 66 69 6c 65 73  0d 02 f8 05 20 0d 03 02  |TA files.... ...|
000004e0  16 5c 20 43 61 6c 63 75  6c 61 74 65 20 74 72 61  |.\ Calculate tra|
000004f0  63 6b 73 0d 03 0c 0b 4c  44 41 23 26 37 45 0d 03  |cks....LDA#&7E..|
00000500  16 15 4c 44 58 23 73 65  63 74 6f 72 73 20 83 20  |..LDX#sectors . |
00000510  32 35 36 0d 03 20 15 4c  44 59 23 73 65 63 74 6f  |256.. .LDY#secto|
00000520  72 73 20 81 20 32 35 36  0d 03 2a 0e 4a 53 52 20  |rs . 256..*.JSR |
00000530  6f 73 77 6f 72 64 0d 03  34 11 4c 44 41 20 73 65  |osword..4.LDA se|
00000540  63 74 6f 72 73 2b 32 0d  03 3e 09 43 4d 50 23 33  |ctors+2..>.CMP#3|
00000550  0d 03 48 0f 42 43 53 20  74 72 61 63 6b 38 30 0d  |..H.BCS track80.|
00000560  03 52 0a 4c 44 41 23 34  30 0d 03 5c 0e 53 54 41  |.R.LDA#40..\.STA|
00000570  20 74 72 61 63 6b 73 0d  03 66 0d 4a 4d 50 20 66  | tracks..f.JMP f|
00000580  6f 72 77 31 0d 03 70 13  2e 74 72 61 63 6b 38 30  |orw1..p..track80|
00000590  20 4c 44 41 23 38 30 0d  03 7a 0e 53 54 41 20 74  | LDA#80..z.STA t|
000005a0  72 61 63 6b 73 0d 03 84  28 2e 66 6f 72 77 31 20  |racks...(.forw1 |
000005b0  5c 20 43 61 6c 63 75 6c  61 74 65 20 73 65 63 74  |\ Calculate sect|
000005c0  6f 72 73 20 70 65 72 20  74 72 61 63 6b 0d 03 8e  |ors per track...|
000005d0  11 4c 44 41 20 73 65 63  74 6f 72 73 2b 31 0d 03  |.LDA sectors+1..|
000005e0  98 0a 53 54 41 26 37 32  0d 03 a2 11 4c 44 41 20  |..STA&72....LDA |
000005f0  73 65 63 74 6f 72 73 2b  32 0d 03 ac 0a 53 54 41  |sectors+2....STA|
00000600  26 37 33 0d 03 b6 09 4c  44 41 23 30 0d 03 c0 0a  |&73....LDA#0....|
00000610  53 54 41 20 73 61 0d 03  ca 0b 53 54 41 20 73 70  |STA sa....STA sp|
00000620  74 0d 03 d4 12 2e 63 73  65 62 61 20 49 4e 43 20  |t.....cseba INC |
00000630  73 70 74 0d 03 de 0a 4c  44 41 26 37 32 0d 03 e8  |spt....LDA&72...|
00000640  07 53 45 43 0d 03 f2 0e  53 42 43 20 74 72 61 63  |.SEC....SBC trac|
00000650  6b 73 0d 03 fc 0a 53 54  41 26 37 32 0d 04 06 0a  |ks....STA&72....|
00000660  4c 44 41 26 37 33 0d 04  10 09 53 42 43 23 30 0d  |LDA&73....SBC#0.|
00000670  04 1a 0a 53 54 41 26 37  33 0d 04 24 0d 42 4e 45  |...STA&73..$.BNE|
00000680  20 63 73 65 62 61 0d 04  2e 0a 4c 44 41 26 37 32  | cseba....LDA&72|
00000690  0d 04 38 0d 42 4e 45 20  63 73 65 62 61 0d 04 42  |..8.BNE cseba..B|
000006a0  13 5c 20 47 65 74 20 64  69 73 63 20 6e 61 6d 65  |.\ Get disc name|
000006b0  0d 04 4c 09 4c 44 59 23  30 0d 04 56 18 2e 6e 62  |..L.LDY#0..V..nb|
000006c0  61 63 6b 20 4c 44 41 20  73 65 63 74 6f 72 30 2c  |ack LDA sector0,|
000006d0  59 0d 04 60 13 53 54 41  20 64 69 73 63 5f 6e 61  |Y..`.STA disc_na|
000006e0  6d 65 2c 59 0d 04 6a 07  49 4e 59 0d 04 74 09 43  |me,Y..j.INY..t.C|
000006f0  50 59 23 38 0d 04 7e 0d  42 4e 45 20 6e 62 61 63  |PY#8..~.BNE nbac|
00000700  6b 0d 04 88 09 4c 44 58  23 30 0d 04 92 19 2e 6e  |k....LDX#0.....n|
00000710  62 61 63 6b 32 20 4c 44  41 20 73 65 63 74 6f 72  |back2 LDA sector|
00000720  31 2c 58 0d 04 9c 13 53  54 41 20 64 69 73 63 5f  |1,X....STA disc_|
00000730  6e 61 6d 65 2c 59 0d 04  a6 07 49 4e 58 0d 04 b0  |name,Y....INX...|
00000740  07 49 4e 59 0d 04 ba 0a  43 50 59 23 31 32 0d 04  |.INY....CPY#12..|
00000750  c4 0e 42 4e 45 20 6e 62  61 63 6b 32 0d 04 ce 05  |..BNE nback2....|
00000760  20 0d 04 d8 1f 4c 44 41  23 34 20 5c 20 53 65 74  | ....LDA#4 \ Set|
00000770  20 63 75 72 73 6f 72 20  26 20 66 20 6b 65 79 73  | cursor & f keys|
00000780  0d 04 e2 09 4c 44 58 23  31 0d 04 ec 09 4c 44 59  |....LDX#1....LDY|
00000790  23 30 0d 04 f6 0e 4a 53  52 20 6f 73 62 79 74 65  |#0....JSR osbyte|
000007a0  0d 05 00 0b 4c 44 41 23  32 32 35 0d 05 0a 0b 4c  |....LDA#225....L|
000007b0  44 58 23 31 34 34 0d 05  14 09 4c 44 59 23 30 0d  |DX#144....LDY#0.|
000007c0  05 1e 0e 4a 53 52 20 6f  73 62 79 74 65 0d 05 28  |...JSR osbyte..(|
000007d0  05 20 0d 05 32 12 4a 53  52 20 73 6f 72 74 5f 6e  |. ..2.JSR sort_n|
000007e0  61 6d 65 73 0d 05 3c 05  20 0d 05 46 1f 5c 20 45  |ames..<. ..F.\ E|
000007f0  78 74 72 61 63 74 20 64  61 74 61 20 6f 6e 20 65  |xtract data on e|
00000800  61 63 68 20 66 69 6c 65  0d 05 50 0d 4c 44 41 20  |ach file..P.LDA |
00000810  66 69 6c 65 73 0d 05 5a  0a 53 54 41 20 73 61 0d  |files..Z.STA sa.|
00000820  05 64 16 4c 44 41 23 66  69 6c 65 64 61 74 61 20  |.d.LDA#filedata |
00000830  83 20 32 35 36 0d 05 6e  0a 53 54 41 26 37 32 0d  |. 256..n.STA&72.|
00000840  05 78 16 4c 44 41 23 66  69 6c 65 64 61 74 61 20  |.x.LDA#filedata |
00000850  81 20 32 35 36 0d 05 82  0a 53 54 41 26 37 33 0d  |. 256....STA&73.|
00000860  05 8c 09 4c 44 58 23 30  0d 05 96 11 2e 65 78 62  |...LDX#0.....exb|
00000870  61 63 6b 20 4c 44 59 23  30 0d 05 a0 07 54 58 41  |ack LDY#0....TXA|
00000880  0d 05 aa 07 43 4c 43 0d  05 b4 09 41 44 43 23 38  |....CLC....ADC#8|
00000890  0d 05 be 07 54 41 58 0d  05 c8 1d 4c 44 41 20 73  |....TAX....LDA s|
000008a0  65 63 74 6f 72 31 2c 58  20 5c 20 4c 6f 61 64 20  |ector1,X \ Load |
000008b0  61 64 64 72 0d 05 d2 0e  53 54 41 28 26 37 32 29  |addr....STA(&72)|
000008c0  2c 59 0d 05 dc 07 49 4e  59 0d 05 e6 13 4c 44 41  |,Y....INY....LDA|
000008d0  20 73 65 63 74 6f 72 31  2b 31 2c 58 0d 05 f0 0e  | sector1+1,X....|
000008e0  53 54 41 28 26 37 32 29  2c 59 0d 05 fa 13 4c 44  |STA(&72),Y....LD|
000008f0  41 20 73 65 63 74 6f 72  31 2b 36 2c 58 0d 06 04  |A sector1+6,X...|
00000900  08 80 23 26 43 0d 06 0e  09 4c 53 52 20 41 0d 06  |..#&C....LSR A..|
00000910  18 09 4c 53 52 20 41 0d  06 22 07 49 4e 59 0d 06  |..LSR A..".INY..|
00000920  2c 09 43 4d 50 23 33 0d  06 36 0d 42 4e 45 20 65  |,.CMP#3..6.BNE e|
00000930  78 66 6f 31 0d 06 40 0b  4c 44 41 23 26 46 46 0d  |xfo1..@.LDA#&FF.|
00000940  06 4a 15 2e 65 78 66 6f  31 20 53 54 41 28 26 37  |.J..exfo1 STA(&7|
00000950  32 29 2c 59 0d 06 54 07  49 4e 59 0d 06 5e 07 49  |2),Y..T.INY..^.I|
00000960  4e 59 0d 06 68 1f 4c 44  41 20 73 65 63 74 6f 72  |NY..h.LDA sector|
00000970  31 2b 32 2c 58 20 5c 20  45 78 65 63 20 61 64 64  |1+2,X \ Exec add|
00000980  72 0d 06 72 0e 53 54 41  28 26 37 32 29 2c 59 0d  |r..r.STA(&72),Y.|
00000990  06 7c 07 49 4e 59 0d 06  86 13 4c 44 41 20 73 65  |.|.INY....LDA se|
000009a0  63 74 6f 72 31 2b 33 2c  58 0d 06 90 0e 53 54 41  |ctor1+3,X....STA|
000009b0  28 26 37 32 29 2c 59 0d  06 9a 07 49 4e 59 0d 06  |(&72),Y....INY..|
000009c0  a4 11 4c 44 41 20 73 65  63 74 6f 72 31 2b 36 0d  |..LDA sector1+6.|
000009d0  06 ae 0f 4c 53 52 20 41  3a 4c 53 52 20 41 0d 06  |...LSR A:LSR A..|
000009e0  b8 0f 4c 53 52 20 41 3a  4c 53 52 20 41 0d 06 c2  |..LSR A:LSR A...|
000009f0  0f 4c 53 52 20 41 3a 4c  53 52 20 41 0d 06 cc 09  |.LSR A:LSR A....|
00000a00  43 4d 50 23 33 0d 06 d6  0d 42 4e 45 20 65 78 66  |CMP#3....BNE exf|
00000a10  6f 32 0d 06 e0 0b 4c 44  41 23 26 46 46 0d 06 ea  |o2....LDA#&FF...|
00000a20  15 2e 65 78 66 6f 32 20  53 54 41 28 26 37 32 29  |..exfo2 STA(&72)|
00000a30  2c 59 0d 06 f4 07 49 4e  59 0d 06 fe 07 49 4e 59  |,Y....INY....INY|
00000a40  0d 07 08 1c 4c 44 41 20  73 65 63 74 6f 72 31 2b  |....LDA sector1+|
00000a50  34 2c 58 20 5c 20 4c 65  6e 67 74 68 0d 07 12 0e  |4,X \ Length....|
00000a60  53 54 41 28 26 37 32 29  2c 59 0d 07 1c 07 49 4e  |STA(&72),Y....IN|
00000a70  59 0d 07 26 13 4c 44 41  20 73 65 63 74 6f 72 31  |Y..&.LDA sector1|
00000a80  2b 35 2c 58 0d 07 30 0e  53 54 41 28 26 37 32 29  |+5,X..0.STA(&72)|
00000a90  2c 59 0d 07 3a 07 49 4e  59 0d 07 44 13 4c 44 41  |,Y..:.INY..D.LDA|
00000aa0  20 73 65 63 74 6f 72 31  2b 36 2c 58 0d 07 4e 08  | sector1+6,X..N.|
00000ab0  80 23 34 38 0d 07 58 0f  4c 53 52 20 41 3a 4c 53  |.#48..X.LSR A:LS|
00000ac0  52 20 41 0d 07 62 0f 4c  53 52 20 41 3a 4c 53 52  |R A..b.LSR A:LSR|
00000ad0  20 41 0d 07 6c 09 43 4d  50 23 33 0d 07 76 0d 42  | A..l.CMP#3..v.B|
00000ae0  4e 45 20 65 78 66 6f 33  0d 07 80 0b 4c 44 41 23  |NE exfo3....LDA#|
00000af0  26 46 46 0d 07 8a 15 2e  65 78 66 6f 33 20 53 54  |&FF.....exfo3 ST|
00000b00  41 28 26 37 32 29 2c 59  0d 07 94 07 49 4e 59 0d  |A(&72),Y....INY.|
00000b10  07 9e 07 49 4e 59 0d 07  a8 22 4c 44 41 20 73 65  |...INY..."LDA se|
00000b20  63 74 6f 72 31 2b 37 2c  58 20 5c 20 53 74 61 72  |ctor1+7,X \ Star|
00000b30  74 20 73 65 63 74 6f 72  0d 07 b2 0e 53 54 41 28  |t sector....STA(|
00000b40  26 37 32 29 2c 59 0d 07  bc 07 49 4e 59 0d 07 c6  |&72),Y....INY...|
00000b50  13 4c 44 41 20 73 65 63  74 6f 72 31 2b 36 2c 58  |.LDA sector1+6,X|
00000b60  0d 07 d0 07 80 23 33 0d  07 da 09 43 4d 50 23 33  |.....#3....CMP#3|
00000b70  0d 07 e4 0d 42 4e 45 20  65 78 66 6f 34 0d 07 ee  |....BNE exfo4...|
00000b80  0b 4c 44 41 23 26 46 46  0d 07 f8 15 2e 65 78 66  |.LDA#&FF.....exf|
00000b90  6f 34 20 53 54 41 28 26  37 32 29 2c 59 0d 08 02  |o4 STA(&72),Y...|
00000ba0  07 49 4e 59 0d 08 0c 07  49 4e 59 0d 08 16 07 49  |.INY....INY....I|
00000bb0  4e 59 0d 08 20 07 54 59  41 0d 08 2a 07 43 4c 43  |NY.. .TYA..*.CLC|
00000bc0  0d 08 34 0a 41 44 43 26  37 32 0d 08 3e 0a 53 54  |..4.ADC&72..>.ST|
00000bd0  41 26 37 32 0d 08 48 0a  4c 44 41 26 37 33 0d 08  |A&72..H.LDA&73..|
00000be0  52 09 41 44 43 23 30 0d  08 5c 0a 53 54 41 26 37  |R.ADC#0..\.STA&7|
00000bf0  33 0d 08 66 0a 44 45 43  20 73 61 0d 08 70 0d 42  |3..f.DEC sa..p.B|
00000c00  45 51 20 65 78 66 6f 35  0d 08 7a 0e 4a 4d 50 20  |EQ exfo5..z.JMP |
00000c10  65 78 62 61 63 6b 0d 08  84 0a 2e 65 78 66 6f 35  |exback.....exfo5|
00000c20  0d 08 8e 05 20 0d 08 98  24 5c 20 52 65 61 64 20  |.... ...$\ Read |
00000c30  73 65 63 74 6f 72 73 2c  20 66 69 6e 64 20 f4 20  |sectors, find . |
00000c40  61 6e 64 20 73 74 6f 72  65 0d 08 a2 0d 4c 44 41  |and store....LDA|
00000c50  20 66 69 6c 65 73 0d 08  ac 0a 53 54 41 20 73 61  | files....STA sa|
00000c60  0d 08 b6 3c 4c 44 41 23  66 69 6c 65 64 61 74 61  |...<LDA#filedata|
00000c70  20 83 20 32 35 36 20 5c  20 45 61 63 68 20 66 69  | . 256 \ Each fi|
00000c80  6c 65 64 61 74 61 20 62  6c 6f 63 6b 20 70 6f 69  |ledata block poi|
00000c90  6e 74 73 20 74 6f 20 61  20 72 65 6d 0d 08 c0 0a  |nts to a rem....|
00000ca0  53 54 41 26 37 34 0d 08  ca 16 4c 44 41 23 66 69  |STA&74....LDA#fi|
00000cb0  6c 65 64 61 74 61 20 81  20 32 35 36 0d 08 d4 0a  |ledata . 256....|
00000cc0  53 54 41 26 37 35 0d 08  de 2d 4c 44 41 23 66 69  |STA&75...-LDA#fi|
00000cd0  6c 65 72 65 6d 73 20 83  20 32 35 36 20 5c 20 53  |lerems . 256 \ S|
00000ce0  74 6f 72 65 20 f4 73 20  61 74 20 26 35 30 30 30  |tore .s at &5000|
00000cf0  20 6f 6e 0d 08 e8 0a 53  54 41 26 37 32 0d 08 f2  | on....STA&72...|
00000d00  16 4c 44 41 23 66 69 6c  65 72 65 6d 73 20 81 20  |.LDA#filerems . |
00000d10  32 35 36 0d 08 fc 0a 53  54 41 26 37 33 0d 09 06  |256....STA&73...|
00000d20  05 20 0d 09 10 14 2e 72  73 72 62 61 63 6b 31 20  |. .....rsrback1 |
00000d30  4c 44 59 23 31 32 0d 09  1a 0e 4c 44 41 28 26 37  |LDY#12....LDA(&7|
00000d40  34 29 2c 59 0d 09 24 07  54 41 58 0d 09 2e 07 49  |4),Y..$.TAX....I|
00000d50  4e 59 0d 09 38 0e 4c 44  41 28 26 37 34 29 2c 59  |NY..8.LDA(&74),Y|
00000d60  0d 09 42 07 54 41 59 0d  09 4c 13 4a 53 52 20 72  |..B.TAY..L.JSR r|
00000d70  65 61 64 5f 73 65 63 74  6f 72 0d 09 56 16 4a 53  |ead_sector..V.JS|
00000d80  52 20 73 65 61 72 63 68  5f 66 6f 72 5f 72 65 6d  |R search_for_rem|
00000d90  0d 09 60 27 5c 20 58 59  20 63 6f 6e 74 61 69 6e  |..`'\ XY contain|
00000da0  20 61 64 64 72 65 73 73  20 6f 66 20 f4 2c 20 41  | address of ., A|
00000db0  3d 6c 65 6e 67 74 68 0d  09 6a 07 50 48 41 0d 09  |=length..j.PHA..|
00000dc0  74 07 54 59 41 0d 09 7e  0a 4c 44 59 23 31 35 0d  |t.TYA..~.LDY#15.|
00000dd0  09 88 0e 53 54 41 28 26  37 34 29 2c 59 0d 09 92  |...STA(&74),Y...|
00000de0  07 44 45 59 0d 09 9c 07  54 58 41 0d 09 a6 0e 53  |.DEY....TXA....S|
00000df0  54 41 28 26 37 34 29 2c  59 0d 09 b0 05 20 0d 09  |TA(&74),Y.... ..|
00000e00  ba 07 50 4c 41 0d 09 c4  07 43 4c 43 0d 09 ce 0a  |..PLA....CLC....|
00000e10  41 44 43 26 37 32 0d 09  d8 0a 53 54 41 26 37 32  |ADC&72....STA&72|
00000e20  0d 09 e2 0a 4c 44 41 26  37 33 0d 09 ec 09 41 44  |....LDA&73....AD|
00000e30  43 23 30 0d 09 f6 0a 53  54 41 26 37 33 0d 0a 00  |C#0....STA&73...|
00000e40  0a 4c 44 41 26 37 34 0d  0a 0a 07 43 4c 43 0d 0a  |.LDA&74....CLC..|
00000e50  14 0a 41 44 43 23 31 36  0d 0a 1e 0a 53 54 41 26  |..ADC#16....STA&|
00000e60  37 34 0d 0a 28 0a 4c 44  41 26 37 35 0d 0a 32 09  |74..(.LDA&75..2.|
00000e70  41 44 43 23 30 0d 0a 3c  0a 53 54 41 26 37 35 0d  |ADC#0..<.STA&75.|
00000e80  0a 46 05 20 0d 0a 50 1a  44 45 43 20 73 61 20 5c  |.F. ..P.DEC sa \|
00000e90  20 41 6c 6c 20 f4 73 20  72 65 61 64 20 3f 0d 0a  | All .s read ?..|
00000ea0  5a 10 42 4e 45 20 72 73  72 62 61 63 6b 31 0d 0a  |Z.BNE rsrback1..|
00000eb0  64 05 20 0d 0a 6e 0d 5c  20 44 69 73 70 6c 61 79  |d. ..n.\ Display|
00000ec0  0d 0a 78 0a 4c 44 41 23  31 32 0d 0a 82 0e 4a 53  |..x.LDA#12....JS|
00000ed0  52 20 6f 73 77 72 63 68  0d 0a 8c 27 4a 53 52 20  |R oswrch...'JSR |
00000ee0  77 69 6e 64 6f 77 30 20  5c 20 53 65 74 20 75 70  |window0 \ Set up|
00000ef0  20 73 74 61 74 75 73 20  64 69 73 70 6c 61 79 0d  | status display.|
00000f00  0a 96 09 4c 44 59 23 30  0d 0a a0 1b 2e 73 74 73  |...LDY#0.....sts|
00000f10  62 61 31 20 4c 44 41 20  73 74 61 74 5f 6d 65 73  |ba1 LDA stat_mes|
00000f20  73 2c 59 0d 0a aa 0b 43  4d 50 23 26 46 46 0d 0a  |s,Y....CMP#&FF..|
00000f30  b4 0e 42 45 51 20 73 74  65 78 69 74 0d 0a be 0e  |..BEQ stexit....|
00000f40  4a 53 52 20 6f 73 77 72  63 68 0d 0a c8 07 49 4e  |JSR oswrch....IN|
00000f50  59 0d 0a d2 0e 4a 4d 50  20 73 74 73 62 61 31 0d  |Y....JMP stsba1.|
00000f60  0a dc 11 2e 73 74 65 78  69 74 20 4c 44 58 23 36  |....stexit LDX#6|
00000f70  0d 0a e6 09 4c 44 59 23  31 0d 0a f0 0b 4a 53 52  |....LDY#1....JSR|
00000f80  20 74 61 62 0d 0a fa 09  4c 44 59 23 30 0d 0b 04  | tab....LDY#0...|
00000f90  1b 2e 73 74 73 62 61 32  20 4c 44 41 20 64 69 73  |..stsba2 LDA dis|
00000fa0  63 5f 6e 61 6d 65 2c 59  0d 0b 0e 0e 4a 53 52 20  |c_name,Y....JSR |
00000fb0  6f 73 77 72 63 68 0d 0b  18 07 49 4e 59 0d 0b 22  |oswrch....INY.."|
00000fc0  0a 43 50 59 23 26 43 0d  0b 2c 0e 42 4e 45 20 73  |.CPY#&C..,.BNE s|
00000fd0  74 73 62 61 32 0d 0b 36  0a 4c 44 41 23 33 32 0d  |tsba2..6.LDA#32.|
00000fe0  0b 40 0e 4a 53 52 20 6f  73 77 72 63 68 0d 0b 4a  |.@.JSR oswrch..J|
00000ff0  0c 4c 44 41 20 64 69 73  63 0d 0b 54 07 43 4c 43  |.LDA disc..T.CLC|
00001000  0d 0b 5e 0b 41 44 43 23  26 33 30 0d 0b 68 0e 4a  |..^.ADC#&30..h.J|
00001010  53 52 20 6f 73 77 72 63  68 0d 0b 72 09 4c 44 59  |SR oswrch..r.LDY|
00001020  23 32 0d 0b 7c 09 4c 44  58 23 37 0d 0b 86 0b 4a  |#2..|.LDX#7....J|
00001030  53 52 20 74 61 62 0d 0b  90 0d 4c 44 41 20 66 69  |SR tab....LDA fi|
00001040  6c 65 73 0d 0b 9a 15 4a  53 52 20 62 79 74 65 5f  |les....JSR byte_|
00001050  74 6f 5f 61 73 63 69 69  0d 0b a4 07 54 58 41 0d  |to_ascii....TXA.|
00001060  0b ae 0e 4a 53 52 20 6f  73 77 72 63 68 0d 0b b8  |...JSR oswrch...|
00001070  07 54 59 41 0d 0b c2 0e  4a 53 52 20 6f 73 77 72  |.TYA....JSR oswr|
00001080  63 68 0d 0b cc 0a 4c 44  58 23 32 37 0d 0b d6 09  |ch....LDX#27....|
00001090  4c 44 59 23 32 0d 0b e0  0b 4a 53 52 20 74 61 62  |LDY#2....JSR tab|
000010a0  0d 0b ea 0e 4c 44 41 20  74 72 61 63 6b 73 0d 0b  |....LDA tracks..|
000010b0  f4 15 4a 53 52 20 62 79  74 65 5f 74 6f 5f 61 73  |..JSR byte_to_as|
000010c0  63 69 69 0d 0b fe 07 54  58 41 0d 0c 08 0e 4a 53  |cii....TXA....JS|
000010d0  52 20 6f 73 77 72 63 68  0d 0c 12 07 54 59 41 0d  |R oswrch....TYA.|
000010e0  0c 1c 0e 4a 53 52 20 6f  73 77 72 63 68 0d 0c 26  |...JSR oswrch..&|
000010f0  05 20 0d 0c 30 16 5c 20  49 6e 69 74 20 6d 61 69  |. ..0.\ Init mai|
00001100  6e 20 73 63 72 65 65 6e  0d 0c 3a 09 4c 44 41 23  |n screen..:.LDA#|
00001110  31 0d 0c 44 10 53 54 41  20 74 6f 70 5f 66 69 6c  |1..D.STA top_fil|
00001120  65 0d 0c 4e 14 53 54 41  20 63 75 72 72 65 6e 74  |e..N.STA current|
00001130  5f 66 69 6c 65 0d 0c 58  0a 4c 44 41 23 31 37 0d  |_file..X.LDA#17.|
00001140  0c 62 13 53 54 41 20 62  6f 74 74 65 6d 5f 66 69  |.b.STA bottem_fi|
00001150  6c 65 0d 0c 6c 0d 43 4d  50 20 66 69 6c 65 73 0d  |le..l.CMP files.|
00001160  0c 76 0d 42 43 43 20 69  6e 66 6f 31 0d 0c 80 0d  |.v.BCC info1....|
00001170  4c 44 41 20 66 69 6c 65  73 0d 0c 8a 13 53 54 41  |LDA files....STA|
00001180  20 62 6f 74 74 65 6d 5f  66 69 6c 65 0d 0c 94 0a  | bottem_file....|
00001190  2e 69 6e 66 6f 31 0d 0c  9e 13 4a 53 52 20 66 69  |.info1....JSR fi|
000011a0  6c 65 5f 77 69 6e 64 6f  77 0d 0c a8 05 20 0d 0c  |le_window.... ..|
000011b0  b2 0b 4c 44 41 23 26 46  46 0d 0c bc 0d 53 54 41  |..LDA#&FF....STA|
000011c0  20 65 72 72 6f 72 0d 0c  c6 05 20 0d 0c d0 19 5c  | error.... ....\|
000011d0  20 4b 65 79 20 63 6f 6e  74 72 6f 6c 20 68 65 72  | Key control her|
000011e0  65 20 6f 6e 0d 0c da 15  2e 6b 65 79 5f 63 68 65  |e on.....key_che|
000011f0  63 6b 20 4c 44 41 23 32  31 0d 0c e4 09 4c 44 58  |ck LDA#21....LDX|
00001200  23 30 0d 0c ee 0e 4a 53  52 20 6f 73 62 79 74 65  |#0....JSR osbyte|
00001210  0d 0c f8 14 4c 44 41 20  63 75 72 72 65 6e 74 5f  |....LDA current_|
00001220  66 69 6c 65 0d 0d 02 07  53 45 43 0d 0d 0c 10 53  |file....SEC....S|
00001230  42 43 20 74 6f 70 5f 66  69 6c 65 0d 0d 16 07 54  |BC top_file....T|
00001240  41 59 0d 0d 20 09 4c 44  58 23 32 0d 0d 2a 0b 4a  |AY.. .LDX#2..*.J|
00001250  53 52 20 74 61 62 0d 0d  34 0c 4c 44 41 23 97 22  |SR tab..4.LDA#."|
00001260  5d 22 0d 0d 3e 0e 4a 53  52 20 6f 73 77 72 63 68  |]"..>.JSR oswrch|
00001270  0d 0d 48 05 20 0d 0d 52  2e 4a 53 52 20 6d 79 72  |..H. ..R.JSR myr|
00001280  64 63 68 20 5c 20 47 65  74 20 6b 65 79 20 70 72  |dch \ Get key pr|
00001290  65 73 73 20 26 20 63 68  65 63 6b 20 66 6f 72 20  |ess & check for |
000012a0  45 53 43 0d 0d 5c 07 54  41 58 0d 0d 66 05 20 0d  |ESC..\.TAX..f. .|
000012b0  0d 70 0b 43 50 58 23 26  38 42 0d 0d 7a 13 42 4e  |.p.CPX#&8B..z.BN|
000012c0  45 20 63 75 72 73 6f 72  5f 64 6f 77 6e 0d 0d 84  |E cursor_down...|
000012d0  05 20 0d 0d 8e 1a 2e 63  75 72 73 6f 72 5f 75 70  |. .....cursor_up|
000012e0  20 4a 53 52 20 77 69 6e  64 6f 77 31 0d 0d 98 14  | JSR window1....|
000012f0  4c 44 41 20 63 75 72 72  65 6e 74 5f 66 69 6c 65  |LDA current_file|
00001300  0d 0d a2 07 53 45 43 0d  0d ac 10 53 42 43 20 74  |....SEC....SBC t|
00001310  6f 70 5f 66 69 6c 65 0d  0d b6 07 54 41 59 0d 0d  |op_file....TAY..|
00001320  c0 09 4c 44 58 23 32 0d  0d ca 0b 4a 53 52 20 74  |..LDX#2....JSR t|
00001330  61 62 0d 0d d4 0a 4c 44  41 23 33 32 0d 0d de 0e  |ab....LDA#32....|
00001340  4a 53 52 20 6f 73 77 72  63 68 0d 0d e8 0b 4c 44  |JSR oswrch....LD|
00001350  41 23 26 38 31 0d 0d f2  0b 4c 44 58 23 26 46 46  |A#&81....LDX#&FF|
00001360  0d 0d fc 0b 4c 44 59 23  26 46 46 0d 0e 06 0e 4a  |....LDY#&FF....J|
00001370  53 52 20 6f 73 62 79 74  65 0d 0e 10 0d 42 43 53  |SR osbyte....BCS|
00001380  20 63 75 66 6f 31 0d 0e  1a 14 44 45 43 20 63 75  | cufo1....DEC cu|
00001390  72 72 65 6e 74 5f 66 69  6c 65 0d 0e 24 0d 4a 4d  |rrent_file..$.JM|
000013a0  50 20 63 75 66 6f 32 0d  0e 2e 1b 2e 63 75 66 6f  |P cufo2.....cufo|
000013b0  31 20 4c 44 41 20 63 75  72 72 65 6e 74 5f 66 69  |1 LDA current_fi|
000013c0  6c 65 0d 0e 38 07 53 45  43 0d 0e 42 09 53 42 43  |le..8.SEC..B.SBC|
000013d0  23 35 0d 0e 4c 14 53 54  41 20 63 75 72 72 65 6e  |#5..L.STA curren|
000013e0  74 5f 66 69 6c 65 0d 0e  56 1b 2e 63 75 66 6f 32  |t_file..V..cufo2|
000013f0  20 4c 44 41 20 63 75 72  72 65 6e 74 5f 66 69 6c  | LDA current_fil|
00001400  65 0d 0e 60 09 43 4d 50  23 31 0d 0e 6a 0d 42 50  |e..`.CMP#1..j.BP|
00001410  4c 20 63 75 66 6f 33 0d  0e 74 09 4c 44 41 23 31  |L cufo3..t.LDA#1|
00001420  0d 0e 7e 14 53 54 41 20  63 75 72 72 65 6e 74 5f  |..~.STA current_|
00001430  66 69 6c 65 0d 0e 88 17  2e 63 75 66 6f 33 20 43  |file.....cufo3 C|
00001440  4d 50 20 74 6f 70 5f 66  69 6c 65 0d 0e 92 0d 42  |MP top_file....B|
00001450  43 53 20 63 75 66 6f 34  0d 0e 9c 10 53 54 41 20  |CS cufo4....STA |
00001460  74 6f 70 5f 66 69 6c 65  0d 0e a6 07 43 4c 43 0d  |top_file....CLC.|
00001470  0e b0 0a 41 44 43 23 31  37 0d 0e ba 0d 43 4d 50  |...ADC#17....CMP|
00001480  20 66 69 6c 65 73 0d 0e  c4 0d 42 43 43 20 63 75  | files....BCC cu|
00001490  66 6f 35 0d 0e ce 0d 4c  44 41 20 66 69 6c 65 73  |fo5....LDA files|
000014a0  0d 0e d8 1a 2e 63 75 66  6f 35 20 53 54 41 20 62  |.....cufo5 STA b|
000014b0  6f 74 74 65 6d 5f 66 69  6c 65 0d 0e e2 13 4a 53  |ottem_file....JS|
000014c0  52 20 66 69 6c 65 5f 77  69 6e 64 6f 77 0d 0e ec  |R file_window...|
000014d0  18 2e 63 75 66 6f 34 20  4a 4d 50 20 6b 65 79 5f  |..cufo4 JMP key_|
000014e0  63 68 65 63 6b 0d 0e f6  05 20 0d 0f 00 18 2e 63  |check.... .....c|
000014f0  75 72 73 6f 72 5f 64 6f  77 6e 20 43 50 58 23 26  |ursor_down CPX#&|
00001500  38 41 0d 0f 0a 0f 42 4e  45 20 74 61 62 5f 6b 65  |8A....BNE tab_ke|
00001510  79 0d 0f 14 0f 4a 53 52  20 77 69 6e 64 6f 77 31  |y....JSR window1|
00001520  0d 0f 1e 14 4c 44 41 20  63 75 72 72 65 6e 74 5f  |....LDA current_|
00001530  66 69 6c 65 0d 0f 28 07  53 45 43 0d 0f 32 08 2e  |file..(.SEC..2..|
00001540  66 6b 30 0d 0f 3c 10 53  42 43 20 74 6f 70 5f 66  |fk0..<.SBC top_f|
00001550  69 6c 65 0d 0f 46 07 54  41 59 0d 0f 50 09 4c 44  |ile..F.TAY..P.LD|
00001560  58 23 32 0d 0f 5a 0b 4a  53 52 20 74 61 62 0d 0f  |X#2..Z.JSR tab..|
00001570  64 0a 4c 44 41 23 33 32  0d 0f 6e 0e 4a 53 52 20  |d.LDA#32..n.JSR |
00001580  6f 73 77 72 63 68 0d 0f  78 0b 4c 44 41 23 26 38  |oswrch..x.LDA#&8|
00001590  31 0d 0f 82 0b 4c 44 58  23 26 46 46 0d 0f 8c 0b  |1....LDX#&FF....|
000015a0  4c 44 59 23 26 46 46 0d  0f 96 0e 4a 53 52 20 6f  |LDY#&FF....JSR o|
000015b0  73 62 79 74 65 0d 0f a0  0d 42 43 53 20 63 64 66  |sbyte....BCS cdf|
000015c0  6f 31 0d 0f aa 14 49 4e  43 20 63 75 72 72 65 6e  |o1....INC curren|
000015d0  74 5f 66 69 6c 65 0d 0f  b4 0d 4a 4d 50 20 63 64  |t_file....JMP cd|
000015e0  66 6f 32 0d 0f be 1b 2e  63 64 66 6f 31 20 4c 44  |fo2.....cdfo1 LD|
000015f0  41 20 63 75 72 72 65 6e  74 5f 66 69 6c 65 0d 0f  |A current_file..|
00001600  c8 07 43 4c 43 0d 0f d2  09 41 44 43 23 35 0d 0f  |..CLC....ADC#5..|
00001610  dc 14 53 54 41 20 63 75  72 72 65 6e 74 5f 66 69  |..STA current_fi|
00001620  6c 65 0d 0f e6 1b 2e 63  64 66 6f 32 20 4c 44 41  |le.....cdfo2 LDA|
00001630  20 63 75 72 72 65 6e 74  5f 66 69 6c 65 0d 0f f0  | current_file...|
00001640  0d 43 4d 50 20 66 69 6c  65 73 0d 0f fa 0d 42 43  |.CMP files....BC|
00001650  43 20 63 64 66 6f 33 0d  10 04 0d 4c 44 41 20 66  |C cdfo3....LDA f|
00001660  69 6c 65 73 0d 10 0e 14  53 54 41 20 63 75 72 72  |iles....STA curr|
00001670  65 6e 74 5f 66 69 6c 65  0d 10 18 1a 2e 63 64 66  |ent_file.....cdf|
00001680  6f 33 20 43 4d 50 20 62  6f 74 74 65 6d 5f 66 69  |o3 CMP bottem_fi|
00001690  6c 65 0d 10 22 0d 42 43  43 20 63 64 66 6f 34 0d  |le..".BCC cdfo4.|
000016a0  10 2c 13 53 54 41 20 62  6f 74 74 65 6d 5f 66 69  |.,.STA bottem_fi|
000016b0  6c 65 0d 10 36 07 53 45  43 0d 10 40 0a 53 42 43  |le..6.SEC..@.SBC|
000016c0  23 31 36 0d 10 4a 09 43  4d 50 23 31 0d 10 54 0d  |#16..J.CMP#1..T.|
000016d0  42 50 4c 20 63 64 66 6f  35 0d 10 5e 09 4c 44 41  |BPL cdfo5..^.LDA|
000016e0  23 31 0d 10 68 17 2e 63  64 66 6f 35 20 53 54 41  |#1..h..cdfo5 STA|
000016f0  20 74 6f 70 5f 66 69 6c  65 0d 10 72 13 4a 53 52  | top_file..r.JSR|
00001700  20 66 69 6c 65 5f 77 69  6e 64 6f 77 0d 10 7c 18  | file_window..|.|
00001710  2e 63 64 66 6f 34 20 4a  4d 50 20 6b 65 79 5f 63  |.cdfo4 JMP key_c|
00001720  68 65 63 6b 0d 10 86 05  20 0d 10 90 12 2e 74 61  |heck.... .....ta|
00001730  62 5f 6b 65 79 20 43 50  58 23 39 0d 10 9a 0c 42  |b_key CPX#9....B|
00001740  4e 45 20 6b 65 79 30 0d  10 a4 24 4c 44 41 20 63  |NE key0...$LDA c|
00001750  75 72 72 65 6e 74 5f 66  69 6c 65 20 5c 20 43 6f  |urrent_file \ Co|
00001760  70 79 20 66 69 6c 65 6e  61 6d 65 0d 10 ae 16 4c  |py filename....L|
00001770  44 58 23 63 68 69 5f 6e  61 6d 65 20 83 20 32 35  |DX#chi_name . 25|
00001780  36 0d 10 b8 16 4c 44 59  23 63 68 69 5f 6e 61 6d  |6....LDY#chi_nam|
00001790  65 20 81 20 32 35 36 0d  10 c2 14 4a 53 52 20 67  |e . 256....JSR g|
000017a0  65 74 5f 66 69 6c 65 6e  61 6d 65 0d 10 cc 0d 4c  |et_filename....L|
000017b0  44 41 23 97 22 22 22 22  0d 10 d6 12 53 54 41 20  |DA#.""""....STA |
000017c0  63 68 69 5f 6e 61 6d 65  2b 39 0d 10 e0 0a 4c 44  |chi_name+9....LD|
000017d0  41 23 31 33 0d 10 ea 13  53 54 41 20 63 68 69 5f  |A#13....STA chi_|
000017e0  6e 61 6d 65 2b 31 30 0d  10 f4 05 20 0d 10 fe 12  |name+10.... ....|
000017f0  4a 53 52 20 72 65 61 64  79 5f 65 78 69 74 0d 11  |JSR ready_exit..|
00001800  08 0a 4c 44 41 23 32 31  0d 11 12 09 4c 44 58 23  |..LDA#21....LDX#|
00001810  30 0d 11 1c 0e 4a 53 52  20 6f 73 62 79 74 65 0d  |0....JSR osbyte.|
00001820  11 26 09 4c 44 59 23 30  0d 11 30 12 2e 72 74 6b  |.&.LDY#0..0..rtk|
00001830  62 61 31 20 53 54 59 20  73 79 0d 11 3a 13 4c 44  |ba1 STY sy..:.LD|
00001840  41 20 63 68 61 69 6e 5f  69 6e 74 2c 59 0d 11 44  |A chain_int,Y..D|
00001850  07 54 41 59 0d 11 4e 07  50 48 41 0d 11 58 0b 4c  |.TAY..N.PHA..X.L|
00001860  44 41 23 31 33 38 0d 11  62 09 4c 44 58 23 30 0d  |DA#138..b.LDX#0.|
00001870  11 6c 0e 4a 53 52 20 6f  73 62 79 74 65 0d 11 76  |.l.JSR osbyte..v|
00001880  0a 4c 44 59 20 73 79 0d  11 80 07 49 4e 59 0d 11  |.LDY sy....INY..|
00001890  8a 07 50 4c 41 0d 11 94  0a 43 4d 50 23 31 33 0d  |..PLA....CMP#13.|
000018a0  11 9e 0e 42 4e 45 20 72  74 6b 62 61 31 0d 11 a8  |...BNE rtkba1...|
000018b0  15 4c 44 58 23 6f 73 62  61 73 69 63 20 83 20 32  |.LDX#osbasic . 2|
000018c0  35 36 0d 11 b2 15 4c 44  59 23 6f 73 62 61 73 69  |56....LDY#osbasi|
000018d0  63 20 81 20 32 35 36 0d  11 bc 0d 4a 4d 50 20 6f  |c . 256....JMP o|
000018e0  73 63 6c 69 0d 11 c6 05  20 0d 11 d0 11 2e 6b 65  |scli.... .....ke|
000018f0  79 30 20 43 50 58 23 31  34 34 0d 11 da 0c 42 4e  |y0 CPX#144....BN|
00001900  45 20 6b 65 79 31 0d 11  e4 14 4c 44 41 20 63 75  |E key1....LDA cu|
00001910  72 72 65 6e 74 5f 66 69  6c 65 0d 11 ee 14 4c 44  |rrent_file....LD|
00001920  58 23 6f 73 5f 63 6f 6d  20 83 20 32 35 36 0d 11  |X#os_com . 256..|
00001930  f8 14 4c 44 59 23 6f 73  5f 63 6f 6d 20 81 20 32  |..LDY#os_com . 2|
00001940  35 36 0d 12 02 14 4a 53  52 20 67 65 74 5f 66 69  |56....JSR get_fi|
00001950  6c 65 6e 61 6d 65 0d 12  0c 0a 4c 44 41 23 26 44  |lename....LDA#&D|
00001960  0d 12 16 0e 53 54 41 28  26 37 36 29 2c 59 0d 12  |....STA(&76),Y..|
00001970  20 12 4a 53 52 20 72 65  61 64 79 5f 65 78 69 74  | .JSR ready_exit|
00001980  0d 12 2a 14 4c 44 58 23  6f 73 5f 63 6f 6d 20 83  |..*.LDX#os_com .|
00001990  20 32 35 36 0d 12 34 14  4c 44 59 23 6f 73 5f 63  | 256..4.LDY#os_c|
000019a0  6f 6d 20 81 20 32 35 36  0d 12 3e 0d 4a 4d 50 20  |om . 256..>.JMP |
000019b0  6f 73 63 6c 69 0d 12 48  05 20 0d 12 52 11 2e 6b  |oscli..H. ..R..k|
000019c0  65 79 31 20 43 50 58 23  31 34 35 0d 12 5c 0c 42  |ey1 CPX#145..\.B|
000019d0  4e 45 20 6b 65 79 32 0d  12 66 0f 4a 53 52 20 77  |NE key2..f.JSR w|
000019e0  69 6e 64 6f 77 31 0d 12  70 0a 4c 44 41 23 31 34  |indow1..p.LDA#14|
000019f0  0d 12 7a 0e 4a 53 52 20  6f 73 77 72 63 68 0d 12  |..z.JSR oswrch..|
00001a00  84 0a 4c 44 41 23 31 32  0d 12 8e 0e 4a 53 52 20  |..LDA#12....JSR |
00001a10  6f 73 77 72 63 68 0d 12  98 14 4c 44 41 20 63 75  |oswrch....LDA cu|
00001a20  72 72 65 6e 74 5f 66 69  6c 65 0d 12 a2 17 4c 44  |rrent_file....LD|
00001a30  58 23 64 75 6d 70 5f 70  6c 75 73 20 83 20 32 35  |X#dump_plus . 25|
00001a40  36 0d 12 ac 17 4c 44 59  23 64 75 6d 70 5f 70 6c  |6....LDY#dump_pl|
00001a50  75 73 20 81 20 32 35 36  0d 12 b6 14 4a 53 52 20  |us . 256....JSR |
00001a60  67 65 74 5f 66 69 6c 65  6e 61 6d 65 0d 12 c0 0a  |get_filename....|
00001a70  4c 44 41 23 31 33 0d 12  ca 0e 53 54 41 28 26 37  |LDA#13....STA(&7|
00001a80  36 29 2c 59 0d 12 d4 17  4c 44 58 23 64 75 6d 70  |6),Y....LDX#dump|
00001a90  5f 66 69 6c 65 20 83 20  32 35 36 0d 12 de 17 4c  |_file . 256....L|
00001aa0  44 59 23 64 75 6d 70 5f  66 69 6c 65 20 81 20 32  |DY#dump_file . 2|
00001ab0  35 36 0d 12 e8 0d 4a 53  52 20 6f 73 63 6c 69 0d  |56....JSR oscli.|
00001ac0  12 f2 0a 4c 44 41 23 31  35 0d 12 fc 0e 4a 53 52  |...LDA#15....JSR|
00001ad0  20 6f 73 77 72 63 68 0d  13 06 0a 4c 44 41 23 32  | oswrch....LDA#2|
00001ae0  31 0d 13 10 09 4c 44 58  23 30 0d 13 1a 0e 4a 53  |1....LDX#0....JS|
00001af0  52 20 6f 73 62 79 74 65  0d 13 24 0e 4a 53 52 20  |R osbyte..$.JSR |
00001b00  6d 79 72 64 63 68 0d 13  2e 13 4a 53 52 20 66 69  |myrdch....JSR fi|
00001b10  6c 65 5f 77 69 6e 64 6f  77 0d 13 38 11 4a 4d 50  |le_window..8.JMP|
00001b20  20 6b 65 79 5f 63 68 65  63 6b 0d 13 42 05 20 0d  | key_check..B. .|
00001b30  13 4c 11 2e 6b 65 79 32  20 43 50 58 23 31 34 36  |.L..key2 CPX#146|
00001b40  0d 13 56 0c 42 4e 45 20  6b 65 79 33 0d 13 60 0a  |..V.BNE key3..`.|
00001b50  4c 44 41 23 31 34 0d 13  6a 0e 4a 53 52 20 6f 73  |LDA#14..j.JSR os|
00001b60  77 72 63 68 0d 13 74 0a  4c 44 41 23 31 32 0d 13  |wrch..t.LDA#12..|
00001b70  7e 0e 4a 53 52 20 6f 73  77 72 63 68 0d 13 88 14  |~.JSR oswrch....|
00001b80  4c 44 41 20 63 75 72 72  65 6e 74 5f 66 69 6c 65  |LDA current_file|
00001b90  0d 13 92 17 4c 44 58 23  74 79 70 65 5f 6e 61 6d  |....LDX#type_nam|
00001ba0  65 20 83 20 32 35 36 0d  13 9c 17 4c 44 59 23 74  |e . 256....LDY#t|
00001bb0  79 70 65 5f 6e 61 6d 65  20 81 20 32 35 36 0d 13  |ype_name . 256..|
00001bc0  a6 14 4a 53 52 20 67 65  74 5f 66 69 6c 65 6e 61  |..JSR get_filena|
00001bd0  6d 65 0d 13 b0 0a 4c 44  41 23 31 33 0d 13 ba 0e  |me....LDA#13....|
00001be0  53 54 41 28 26 37 36 29  2c 59 0d 13 c4 0b 4c 44  |STA(&76),Y....LD|
00001bf0  41 23 26 34 30 0d 13 ce  17 4c 44 58 23 74 79 70  |A#&40....LDX#typ|
00001c00  65 5f 6e 61 6d 65 20 83  20 32 35 36 0d 13 d8 17  |e_name . 256....|
00001c10  4c 44 59 23 74 79 70 65  5f 6e 61 6d 65 20 81 20  |LDY#type_name . |
00001c20  32 35 36 0d 13 e2 0e 4a  53 52 20 6f 73 66 69 6e  |256....JSR osfin|
00001c30  64 0d 13 ec 09 43 4d 50  23 30 0d 13 f6 0c 42 4e  |d....CMP#0....BN|
00001c40  45 20 6b 32 66 6f 0d 14  00 16 4a 4d 50 20 66 69  |E k2fo....JMP fi|
00001c50  6c 65 5f 6e 6f 74 5f 66  6f 75 6e 64 0d 14 0a 0d  |le_not_found....|
00001c60  2e 6b 32 66 6f 20 54 41  59 0d 14 14 14 2e 6b 32  |.k2fo TAY.....k2|
00001c70  62 61 20 4a 53 52 20 6f  73 62 67 65 74 0d 14 1e  |ba JSR osbget...|
00001c80  0d 42 43 53 20 6b 32 66  6f 33 0d 14 28 0a 43 4d  |.BCS k2fo3..(.CM|
00001c90  50 23 31 33 0d 14 32 0d  42 45 51 20 6b 32 66 6f  |P#13..2.BEQ k2fo|
00001ca0  32 0d 14 3c 0a 43 4d 50  23 33 32 0d 14 46 0c 42  |2..<.CMP#32..F.B|
00001cb0  43 43 20 6b 32 62 61 0d  14 50 0b 43 4d 50 23 31  |CC k2ba..P.CMP#1|
00001cc0  32 37 0d 14 5a 0c 42 43  53 20 6b 32 62 61 0d 14  |27..Z.BCS k2ba..|
00001cd0  64 15 2e 6b 32 66 6f 32  20 4a 53 52 20 6f 73 61  |d..k2fo2 JSR osa|
00001ce0  73 63 69 0d 14 6e 0c 4a  4d 50 20 6b 32 62 61 0d  |sci..n.JMP k2ba.|
00001cf0  14 78 1d 2e 6b 32 66 6f  33 20 4c 44 41 23 30 20  |.x..k2fo3 LDA#0 |
00001d00  5c 20 43 6c 6f 73 65 20  66 69 6c 65 0d 14 82 0e  |\ Close file....|
00001d10  4a 53 52 20 6f 73 66 69  6e 64 0d 14 8c 0a 4c 44  |JSR osfind....LD|
00001d20  41 23 31 35 0d 14 96 0e  4a 53 52 20 6f 73 77 72  |A#15....JSR oswr|
00001d30  63 68 0d 14 a0 0a 4c 44  41 23 32 31 0d 14 aa 09  |ch....LDA#21....|
00001d40  4c 44 58 23 30 0d 14 b4  0e 4a 53 52 20 6f 73 62  |LDX#0....JSR osb|
00001d50  79 74 65 0d 14 be 0e 4a  53 52 20 6d 79 72 64 63  |yte....JSR myrdc|
00001d60  68 0d 14 c8 13 4a 53 52  20 66 69 6c 65 5f 77 69  |h....JSR file_wi|
00001d70  6e 64 6f 77 0d 14 d2 11  4a 4d 50 20 6b 65 79 5f  |ndow....JMP key_|
00001d80  63 68 65 63 6b 0d 14 dc  05 20 0d 14 e6 11 2e 6b  |check.... .....k|
00001d90  65 79 33 20 43 50 58 23  31 34 37 0d 14 f0 11 42  |ey3 CPX#147....B|
00001da0  45 51 20 6b 65 79 33 5f  6a 75 6d 70 0d 14 fa 0c  |EQ key3_jump....|
00001db0  4a 4d 50 20 6b 65 79 34  0d 15 04 1a 2e 6b 65 79  |JMP key4.....key|
00001dc0  33 5f 6a 75 6d 70 20 4a  53 52 20 77 69 6e 64 6f  |3_jump JSR windo|
00001dd0  77 31 0d 15 0e 17 4c 44  58 23 69 6e 66 6f 5f 6d  |w1....LDX#info_m|
00001de0  65 73 73 20 83 20 32 35  36 0d 15 18 17 4c 44 59  |ess . 256....LDY|
00001df0  23 69 6e 66 6f 5f 6d 65  73 73 20 81 20 32 35 36  |#info_mess . 256|
00001e00  0d 15 22 0f 4a 53 52 20  64 69 73 70 6c 61 79 0d  |..".JSR display.|
00001e10  15 2c 14 4c 44 58 20 63  75 72 72 65 6e 74 5f 66  |.,.LDX current_f|
00001e20  69 6c 65 0d 15 36 07 44  45 58 0d 15 40 07 54 58  |ile..6.DEX..@.TX|
00001e30  41 0d 15 4a 0f 41 53 4c  20 41 3a 41 53 4c 20 41  |A..J.ASL A:ASL A|
00001e40  0d 15 54 09 41 53 4c 20  41 0d 15 5e 07 54 41 59  |..T.ASL A..^.TAY|
00001e50  0d 15 68 07 50 48 41 0d  15 72 09 4c 44 59 23 30  |..h.PHA..r.LDY#0|
00001e60  0d 15 7c 09 4c 44 58 23  38 0d 15 86 0b 4a 53 52  |..|.LDX#8....JSR|
00001e70  20 74 61 62 0d 15 90 07  50 4c 41 0d 15 9a 07 54  | tab....PLA....T|
00001e80  41 59 0d 15 a4 1e 4c 44  41 20 66 69 6c 65 6e 61  |AY....LDA filena|
00001e90  6d 65 73 2c 59 20 5c 20  66 69 6c 65 6e 61 6d 65  |mes,Y \ filename|
00001ea0  0d 15 ae 0e 4a 53 52 20  6f 73 77 72 63 68 0d 15  |....JSR oswrch..|
00001eb0  b8 0c 4c 44 41 23 97 22  2e 22 0d 15 c2 0e 4a 53  |..LDA#."."....JS|
00001ec0  52 20 6f 73 77 72 63 68  0d 15 cc 07 49 4e 59 0d  |R oswrch....INY.|
00001ed0  15 d6 09 4c 44 58 23 30  0d 15 e0 1a 2e 6b 33 62  |...LDX#0.....k3b|
00001ee0  61 32 20 4c 44 41 20 66  69 6c 65 6e 61 6d 65 73  |a2 LDA filenames|
00001ef0  2c 59 0d 15 ea 0e 4a 53  52 20 6f 73 77 72 63 68  |,Y....JSR oswrch|
00001f00  0d 15 f4 07 49 4e 59 0d  15 fe 07 49 4e 58 0d 16  |....INY....INX..|
00001f10  08 09 43 50 58 23 37 0d  16 12 0d 42 4e 45 20 6b  |..CPX#7....BNE k|
00001f20  33 62 61 32 0d 16 1c 10  4c 44 59 23 31 20 5c 20  |3ba2....LDY#1 \ |
00001f30  4c 6f 61 64 0d 16 26 09  4c 44 58 23 38 0d 16 30  |Load..&.LDX#8..0|
00001f40  0b 4a 53 52 20 74 61 62  0d 16 3a 14 4c 44 59 20  |.JSR tab..:.LDY |
00001f50  63 75 72 72 65 6e 74 5f  66 69 6c 65 0d 16 44 13  |current_file..D.|
00001f60  4a 53 52 20 6c 6f 63 61  74 65 5f 64 61 74 61 0d  |JSR locate_data.|
00001f70  16 4e 09 4c 44 59 23 30  0d 16 58 0e 4c 44 41 28  |.N.LDY#0..X.LDA(|
00001f80  26 37 30 29 2c 59 0d 16  62 07 54 41 58 0d 16 6c  |&70),Y..b.TAX..l|
00001f90  07 49 4e 59 0d 16 76 0e  4c 44 41 28 26 37 30 29  |.INY..v.LDA(&70)|
00001fa0  2c 59 0d 16 80 0a 53 54  41 20 73 79 0d 16 8a 07  |,Y....STA sy....|
00001fb0  49 4e 59 0d 16 94 0e 4c  44 41 28 26 37 30 29 2c  |INY....LDA(&70),|
00001fc0  59 0d 16 9e 0a 4c 44 59  20 73 79 0d 16 a8 13 4a  |Y....LDY sy....J|
00001fd0  53 52 20 68 65 78 5f 36  5f 61 73 63 69 69 0d 16  |SR hex_6_ascii..|
00001fe0  b2 10 4c 44 59 23 32 20  5c 20 45 78 65 63 0d 16  |..LDY#2 \ Exec..|
00001ff0  bc 09 4c 44 58 23 38 0d  16 c6 0b 4a 53 52 20 74  |..LDX#8....JSR t|
00002000  61 62 0d 16 d0 09 4c 44  59 23 34 0d 16 da 0e 4c  |ab....LDY#4....L|
00002010  44 41 28 26 37 30 29 2c  59 0d 16 e4 07 54 41 58  |DA(&70),Y....TAX|
00002020  0d 16 ee 07 49 4e 59 0d  16 f8 0e 4c 44 41 28 26  |....INY....LDA(&|
00002030  37 30 29 2c 59 0d 17 02  0a 53 54 41 20 73 79 0d  |70),Y....STA sy.|
00002040  17 0c 07 49 4e 59 0d 17  16 0e 4c 44 41 28 26 37  |...INY....LDA(&7|
00002050  30 29 2c 59 0d 17 20 0a  4c 44 59 20 73 79 0d 17  |0),Y.. .LDY sy..|
00002060  2a 13 4a 53 52 20 68 65  78 5f 36 5f 61 73 63 69  |*.JSR hex_6_asci|
00002070  69 0d 17 34 12 4c 44 58  23 38 20 5c 20 4c 65 6e  |i..4.LDX#8 \ Len|
00002080  67 74 68 0d 17 3e 09 4c  44 59 23 33 0d 17 48 0b  |gth..>.LDY#3..H.|
00002090  4a 53 52 20 74 61 62 0d  17 52 09 4c 44 59 23 38  |JSR tab..R.LDY#8|
000020a0  0d 17 5c 0e 4c 44 41 28  26 37 30 29 2c 59 0d 17  |..\.LDA(&70),Y..|
000020b0  66 07 54 41 58 0d 17 70  07 49 4e 59 0d 17 7a 0e  |f.TAX..p.INY..z.|
000020c0  4c 44 41 28 26 37 30 29  2c 59 0d 17 84 0a 53 54  |LDA(&70),Y....ST|
000020d0  41 20 73 79 0d 17 8e 07  49 4e 59 0d 17 98 0e 4c  |A sy....INY....L|
000020e0  44 41 28 26 37 30 29 2c  59 0d 17 a2 0a 4c 44 59  |DA(&70),Y....LDY|
000020f0  20 73 79 0d 17 ac 13 4a  53 52 20 68 65 78 5f 36  | sy....JSR hex_6|
00002100  5f 61 73 63 69 69 0d 17  b6 12 4c 44 59 23 34 20  |_ascii....LDY#4 |
00002110  5c 20 53 65 63 74 6f 72  0d 17 c0 09 4c 44 58 23  |\ Sector....LDX#|
00002120  38 0d 17 ca 0b 4a 53 52  20 74 61 62 0d 17 d4 0a  |8....JSR tab....|
00002130  4c 44 59 23 31 32 0d 17  de 0e 4c 44 41 28 26 37  |LDY#12....LDA(&7|
00002140  30 29 2c 59 0d 17 e8 07  54 41 58 0d 17 f2 07 49  |0),Y....TAX....I|
00002150  4e 59 0d 17 fc 0e 4c 44  41 28 26 37 30 29 2c 59  |NY....LDA(&70),Y|
00002160  0d 18 06 07 54 41 59 0d  18 10 09 4c 44 41 23 30  |....TAY....LDA#0|
00002170  0d 18 1a 13 4a 53 52 20  68 65 78 5f 36 5f 61 73  |....JSR hex_6_as|
00002180  63 69 69 0d 18 24 0d 4c  44 59 23 35 20 5c 20 f4  |cii..$.LDY#5 \ .|
00002190  0d 18 2e 09 4c 44 58 23  38 0d 18 38 0b 4a 53 52  |....LDX#8..8.JSR|
000021a0  20 74 61 62 0d 18 42 0a  4c 44 59 23 31 34 0d 18  | tab..B.LDY#14..|
000021b0  4c 0e 4c 44 41 28 26 37  30 29 2c 59 0d 18 56 0a  |L.LDA(&70),Y..V.|
000021c0  53 54 41 26 37 32 0d 18  60 07 49 4e 59 0d 18 6a  |STA&72..`.INY..j|
000021d0  0e 4c 44 41 28 26 37 30  29 2c 59 0d 18 74 0a 53  |.LDA(&70),Y..t.S|
000021e0  54 41 26 37 33 0d 18 7e  09 4c 44 59 23 30 0d 18  |TA&73..~.LDY#0..|
000021f0  88 15 2e 6b 33 62 61 33  20 4c 44 41 28 26 37 32  |...k3ba3 LDA(&72|
00002200  29 2c 59 0d 18 92 11 43  4d 50 20 65 6e 64 5f 74  |),Y....CMP end_t|
00002210  6f 6b 65 6e 0d 18 9c 0d  42 45 51 20 6b 33 66 6f  |oken....BEQ k3fo|
00002220  32 0d 18 a6 0a 43 4d 50  23 31 33 0d 18 b0 0d 42  |2....CMP#13....B|
00002230  45 51 20 6b 33 66 6f 33  0d 18 ba 0a 43 4d 50 23  |EQ k3fo3....CMP#|
00002240  33 32 0d 18 c4 0d 42 43  43 20 6b 33 66 6f 34 0d  |32....BCC k3fo4.|
00002250  18 ce 0b 43 4d 50 23 31  32 37 0d 18 d8 0d 42 43  |...CMP#127....BC|
00002260  53 20 6b 33 66 6f 34 0d  18 e2 15 2e 6b 33 66 6f  |S k3fo4.....k3fo|
00002270  33 20 4a 53 52 20 6f 73  61 73 63 69 0d 18 ec 0e  |3 JSR osasci....|
00002280  2e 6b 33 66 6f 34 20 49  4e 59 0d 18 f6 0d 4a 4d  |.k3fo4 INY....JM|
00002290  50 20 6b 33 62 61 33 0d  19 00 16 2e 6b 33 66 6f  |P k3ba3.....k3fo|
000022a0  32 20 4a 53 52 20 77 69  6e 64 6f 77 32 0d 19 0a  |2 JSR window2...|
000022b0  14 4c 44 58 23 70 5f 6d  65 73 73 20 83 20 32 35  |.LDX#p_mess . 25|
000022c0  36 0d 19 14 14 4c 44 59  23 70 5f 6d 65 73 73 20  |6....LDY#p_mess |
000022d0  81 20 32 35 36 0d 19 1e  0f 4a 53 52 20 64 69 73  |. 256....JSR dis|
000022e0  70 6c 61 79 0d 19 28 0a  4c 44 41 23 32 31 0d 19  |play..(.LDA#21..|
000022f0  32 09 4c 44 58 23 30 0d  19 3c 0e 4a 53 52 20 6f  |2.LDX#0..<.JSR o|
00002300  73 62 79 74 65 0d 19 46  15 2e 6b 33 70 62 31 20  |sbyte..F..k3pb1 |
00002310  4a 53 52 20 6d 79 72 64  63 68 0d 19 50 0c 43 4d  |JSR myrdch..P.CM|
00002320  50 23 97 22 59 22 0d 19  5a 0f 42 45 51 20 6b 33  |P#."Y"..Z.BEQ k3|
00002330  70 72 69 6e 74 0d 19 64  0c 43 4d 50 23 97 22 4e  |print..d.CMP#."N|
00002340  22 0d 19 6e 0d 42 4e 45  20 6b 33 70 62 31 0d 19  |"..n.BNE k3pb1..|
00002350  78 0c 4a 4d 50 20 6b 33  70 66 0d 19 82 18 2e 6b  |x.JMP k3pf.....k|
00002360  33 70 72 69 6e 74 20 4a  53 52 20 77 69 6e 64 6f  |3print JSR windo|
00002370  77 31 0d 19 8c 09 4c 44  41 23 33 0d 19 96 0a 4c  |w1....LDA#3....L|
00002380  44 58 23 36 34 0d 19 a0  0e 4a 53 52 20 6f 73 62  |DX#64....JSR osb|
00002390  79 74 65 0d 19 aa 09 4c  44 41 23 32 0d 19 b4 0e  |yte....LDA#2....|
000023a0  4a 53 52 20 6f 73 77 72  63 68 0d 19 be 09 4c 44  |JSR oswrch....LD|
000023b0  59 23 30 0d 19 c8 10 2e  6b 33 70 62 33 20 4c 44  |Y#0.....k3pb3 LD|
000023c0  58 23 30 0d 19 d2 09 4c  44 41 23 31 0d 19 dc 0e  |X#0....LDA#1....|
000023d0  4a 53 52 20 6f 73 77 72  63 68 0d 19 e6 0a 4c 44  |JSR oswrch....LD|
000023e0  41 23 26 44 0d 19 f0 0e  4a 53 52 20 6f 73 77 72  |A#&D....JSR oswr|
000023f0  63 68 0d 19 fa 12 2e 6b  33 70 62 32 20 4a 53 52  |ch.....k3pb2 JSR|
00002400  20 74 61 62 0d 1a 04 0a  53 54 59 20 73 79 0d 1a  | tab....STY sy..|
00002410  0e 0a 53 54 58 20 73 78  0d 1a 18 0b 4c 44 41 23  |..STX sx....LDA#|
00002420  26 38 37 0d 1a 22 0e 4a  53 52 20 6f 73 62 79 74  |&87..".JSR osbyt|
00002430  65 0d 1a 2c 09 4c 44 41  23 31 0d 1a 36 0e 4a 53  |e..,.LDA#1..6.JS|
00002440  52 20 6f 73 77 72 63 68  0d 1a 40 07 54 58 41 0d  |R oswrch..@.TXA.|
00002450  1a 4a 0e 4a 53 52 20 6f  73 77 72 63 68 0d 1a 54  |.J.JSR oswrch..T|
00002460  0a 4c 44 58 20 73 78 0d  1a 5e 0a 4c 44 59 20 73  |.LDX sx..^.LDY s|
00002470  79 0d 1a 68 07 49 4e 58  0d 1a 72 0a 43 50 58 23  |y..h.INX..r.CPX#|
00002480  34 30 0d 1a 7c 0d 42 4e  45 20 6b 33 70 62 32 0d  |40..|.BNE k3pb2.|
00002490  1a 86 07 49 4e 59 0d 1a  90 0a 43 50 59 23 31 33  |...INY....CPY#13|
000024a0  0d 1a 9a 0d 42 4e 45 20  6b 33 70 62 33 0d 1a a4  |....BNE k3pb3...|
000024b0  09 4c 44 41 23 33 0d 1a  ae 0e 4a 53 52 20 6f 73  |.LDA#3....JSR os|
000024c0  77 72 63 68 0d 1a b8 09  4c 44 58 23 30 0d 1a c2  |wrch....LDX#0...|
000024d0  0e 4a 53 52 20 6f 73 62  79 74 65 0d 1a cc 15 2e  |.JSR osbyte.....|
000024e0  6b 33 70 66 20 4a 53 52  20 77 69 6e 64 6f 77 32  |k3pf JSR window2|
000024f0  0d 1a d6 0a 4c 44 41 23  31 32 0d 1a e0 0e 4a 53  |....LDA#12....JS|
00002500  52 20 6f 73 77 72 63 68  0d 1a ea 0f 4a 53 52 20  |R oswrch....JSR |
00002510  77 69 6e 64 6f 77 31 0d  1a f4 13 4a 53 52 20 66  |window1....JSR f|
00002520  69 6c 65 5f 77 69 6e 64  6f 77 0d 1a fe 11 4a 4d  |ile_window....JM|
00002530  50 20 6b 65 79 5f 63 68  65 63 6b 0d 1b 08 05 20  |P key_check.... |
00002540  0d 1b 12 11 2e 6b 65 79  34 20 43 50 58 23 31 34  |.....key4 CPX#14|
00002550  38 0d 1b 1c 0c 42 4e 45  20 6b 65 79 35 0d 1b 26  |8....BNE key5..&|
00002560  14 4c 44 41 20 63 75 72  72 65 6e 74 5f 66 69 6c  |.LDA current_fil|
00002570  65 0d 1b 30 19 4c 44 58  23 61 63 63 65 73 73 5f  |e..0.LDX#access_|
00002580  66 69 6c 65 20 83 20 32  35 36 0d 1b 3a 19 4c 44  |file . 256..:.LD|
00002590  59 23 61 63 63 65 73 73  5f 66 69 6c 65 20 81 20  |Y#access_file . |
000025a0  32 35 36 0d 1b 44 14 4a  53 52 20 67 65 74 5f 66  |256..D.JSR get_f|
000025b0  69 6c 65 6e 61 6d 65 0d  1b 4e 07 50 48 41 0d 1b  |ilename..N.PHA..|
000025c0  58 0b 43 4d 50 23 31 32  38 0d 1b 62 0c 42 43 53  |X.CMP#128..b.BCS|
000025d0  20 6b 34 66 6f 0d 1b 6c  0a 4c 44 41 23 33 32 0d  | k4fo..l.LDA#32.|
000025e0  1b 76 0e 53 54 41 28 26  37 36 29 2c 59 0d 1b 80  |.v.STA(&76),Y...|
000025f0  07 49 4e 59 0d 1b 8a 0c  4c 44 41 23 97 22 4c 22  |.INY....LDA#."L"|
00002600  0d 1b 94 0e 53 54 41 28  26 37 36 29 2c 59 0d 1b  |....STA(&76),Y..|
00002610  9e 07 49 4e 59 0d 1b a8  10 2e 6b 34 66 6f 20 4c  |..INY.....k4fo L|
00002620  44 41 23 31 33 0d 1b b2  0e 53 54 41 28 26 37 36  |DA#13....STA(&76|
00002630  29 2c 59 0d 1b bc 14 4c  44 58 23 61 63 63 65 73  |),Y....LDX#acces|
00002640  73 20 83 20 32 35 36 0d  1b c6 14 4c 44 59 23 61  |s . 256....LDY#a|
00002650  63 63 65 73 73 20 81 20  32 35 36 0d 1b d0 0d 4a  |ccess . 256....J|
00002660  53 52 20 6f 73 63 6c 69  0d 1b da 14 4c 44 59 20  |SR oscli....LDY |
00002670  63 75 72 72 65 6e 74 5f  66 69 6c 65 0d 1b e4 07  |current_file....|
00002680  44 45 59 0d 1b ee 07 54  59 41 0d 1b f8 15 41 53  |DEY....TYA....AS|
00002690  4c 20 41 3a 41 53 4c 20  41 3a 41 53 4c 20 41 0d  |L A:ASL A:ASL A.|
000026a0  1c 02 07 54 41 59 0d 1c  0c 07 50 4c 41 0d 1c 16  |...TAY....PLA...|
000026b0  09 82 23 31 32 38 0d 1c  20 13 53 54 41 20 66 69  |..#128.. .STA fi|
000026c0  6c 65 6e 61 6d 65 73 2c  59 0d 1c 2a 13 4a 53 52  |lenames,Y..*.JSR|
000026d0  20 66 69 6c 65 5f 77 69  6e 64 6f 77 0d 1c 34 11  | file_window..4.|
000026e0  4a 4d 50 20 6b 65 79 5f  63 68 65 63 6b 0d 1c 3e  |JMP key_check..>|
000026f0  05 20 0d 1c 48 11 2e 6b  65 79 35 20 43 50 58 23  |. ..H..key5 CPX#|
00002700  31 34 39 0d 1c 52 0f 42  45 51 20 6b 35 5f 6a 75  |149..R.BEQ k5_ju|
00002710  6d 70 0d 1c 5c 0c 4a 4d  50 20 6b 65 79 36 0d 1c  |mp..\.JMP key6..|
00002720  66 1d 2e 6b 35 5f 6a 75  6d 70 20 4c 44 41 20 63  |f..k5_jump LDA c|
00002730  75 72 72 65 6e 74 5f 66  69 6c 65 0d 1c 70 16 4c  |urrent_file..p.L|
00002740  44 58 23 6e 65 77 5f 66  69 6c 65 20 83 20 32 35  |DX#new_file . 25|
00002750  36 0d 1c 7a 16 4c 44 59  23 6e 65 77 5f 66 69 6c  |6..z.LDY#new_fil|
00002760  65 20 81 20 32 35 36 0d  1c 84 14 4a 53 52 20 67  |e . 256....JSR g|
00002770  65 74 5f 66 69 6c 65 6e  61 6d 65 0d 1c 8e 0b 43  |et_filename....C|
00002780  4d 50 23 31 32 38 0d 1c  98 0c 42 43 43 20 6b 35  |MP#128....BCC k5|
00002790  66 6f 0d 1c a2 0f 4a 53  52 20 77 69 6e 64 6f 77  |fo....JSR window|
000027a0  32 0d 1c ac 0a 4c 44 41  23 31 32 0d 1c b6 0e 4a  |2....LDA#12....J|
000027b0  53 52 20 6f 73 77 72 63  68 0d 1c c0 19 4c 44 58  |SR oswrch....LDX|
000027c0  23 66 69 6c 65 5f 6c 6f  63 6b 65 64 20 83 20 32  |#file_locked . 2|
000027d0  35 36 0d 1c ca 19 4c 44  59 23 66 69 6c 65 5f 6c  |56....LDY#file_l|
000027e0  6f 63 6b 65 64 20 81 20  32 35 36 0d 1c d4 0f 4a  |ocked . 256....J|
000027f0  53 52 20 64 69 73 70 6c  61 79 0d 1c de 09 4c 44  |SR display....LD|
00002800  41 23 37 0d 1c e8 0e 4a  53 52 20 6f 73 77 72 63  |A#7....JSR oswrc|
00002810  68 0d 1c f2 0f 4a 53 52  20 77 69 6e 64 6f 77 31  |h....JSR window1|
00002820  0d 1c fc 11 4a 4d 50 20  6b 65 79 5f 63 68 65 63  |....JMP key_chec|
00002830  6b 0d 1d 06 10 2e 6b 35  66 6f 20 4c 44 41 23 33  |k.....k5fo LDA#3|
00002840  32 0d 1d 10 0e 53 54 41  28 26 37 36 29 2c 59 0d  |2....STA(&76),Y.|
00002850  1d 1a 07 49 4e 59 0d 1d  24 07 54 59 41 0d 1d 2e  |...INY..$.TYA...|
00002860  07 43 4c 43 0d 1d 38 0a  41 44 43 26 37 36 0d 1d  |.CLC..8.ADC&76..|
00002870  42 12 53 54 41 20 6e 61  6d 65 5f 69 6e 70 75 74  |B.STA name_input|
00002880  0d 1d 4c 0a 53 54 41 26  37 36 0d 1d 56 0a 4c 44  |..L.STA&76..V.LD|
00002890  41 26 37 37 0d 1d 60 09  41 44 43 23 30 0d 1d 6a  |A&77..`.ADC#0..j|
000028a0  14 53 54 41 20 6e 61 6d  65 5f 69 6e 70 75 74 2b  |.STA name_input+|
000028b0  31 0d 1d 74 0a 53 54 41  26 37 37 0d 1d 7e 0f 4a  |1..t.STA&77..~.J|
000028c0  53 52 20 77 69 6e 64 6f  77 32 0d 1d 88 16 4c 44  |SR window2....LD|
000028d0  58 23 6e 65 77 5f 6e 61  6d 65 20 83 20 32 35 36  |X#new_name . 256|
000028e0  0d 1d 92 16 4c 44 59 23  6e 65 77 5f 6e 61 6d 65  |....LDY#new_name|
000028f0  20 81 20 32 35 36 0d 1d  9c 0f 4a 53 52 20 64 69  | . 256....JSR di|
00002900  73 70 6c 61 79 0d 1d a6  09 4c 44 41 23 30 0d 1d  |splay....LDA#0..|
00002910  b0 18 4c 44 58 23 6e 61  6d 65 5f 69 6e 70 75 74  |..LDX#name_input|
00002920  20 83 20 32 35 36 0d 1d  ba 18 4c 44 59 23 6e 61  | . 256....LDY#na|
00002930  6d 65 5f 69 6e 70 75 74  20 81 20 32 35 36 0d 1d  |me_input . 256..|
00002940  c4 0e 4a 53 52 20 6f 73  77 6f 72 64 0d 1d ce 0a  |..JSR osword....|
00002950  4c 44 41 23 26 44 0d 1d  d8 0e 53 54 41 28 26 37  |LDA#&D....STA(&7|
00002960  36 29 2c 59 0d 1d e2 14  4c 44 58 23 72 65 6e 61  |6),Y....LDX#rena|
00002970  6d 65 20 83 20 32 35 36  0d 1d ec 14 4c 44 59 23  |me . 256....LDY#|
00002980  72 65 6e 61 6d 65 20 81  20 32 35 36 0d 1d f6 0d  |rename . 256....|
00002990  4a 53 52 20 6f 73 63 6c  69 0d 1e 00 0a 4c 44 41  |JSR oscli....LDA|
000029a0  23 31 32 0d 1e 0a 0e 4a  53 52 20 6f 73 77 72 63  |#12....JSR oswrc|
000029b0  68 0d 1e 14 0f 4a 53 52  20 77 69 6e 64 6f 77 31  |h....JSR window1|
000029c0  0d 1e 1e 15 4c 44 58 23  73 65 63 30 5f 72 64 20  |....LDX#sec0_rd |
000029d0  83 20 32 35 36 0d 1e 28  15 4c 44 59 23 73 65 63  |. 256..(.LDY#sec|
000029e0  30 5f 72 64 20 81 20 32  35 36 0d 1e 32 12 4a 53  |0_rd . 256..2.JS|
000029f0  52 20 67 65 74 5f 73 65  63 74 6f 72 0d 1e 3c 12  |R get_sector..<.|
00002a00  4a 53 52 20 73 6f 72 74  5f 6e 61 6d 65 73 0d 1e  |JSR sort_names..|
00002a10  46 13 4a 53 52 20 66 69  6c 65 5f 77 69 6e 64 6f  |F.JSR file_windo|
00002a20  77 0d 1e 50 11 4a 4d 50  20 6b 65 79 5f 63 68 65  |w..P.JMP key_che|
00002a30  63 6b 0d 1e 5a 05 20 0d  1e 64 11 2e 6b 65 79 36  |ck..Z. ..d..key6|
00002a40  20 43 50 58 23 31 35 30  0d 1e 6e 0f 42 45 51 20  | CPX#150..n.BEQ |
00002a50  6b 36 5f 6a 75 6d 70 0d  1e 78 0c 4a 4d 50 20 6b  |k6_jump..x.JMP k|
00002a60  65 79 37 0d 1e 82 18 2e  6b 36 5f 6a 75 6d 70 20  |ey7.....k6_jump |
00002a70  4a 53 52 20 77 69 6e 64  6f 77 32 0d 1e 8c 0a 4c  |JSR window2....L|
00002a80  44 41 23 31 32 0d 1e 96  0e 4a 53 52 20 6f 73 77  |DA#12....JSR osw|
00002a90  72 63 68 0d 1e a0 14 4c  44 41 20 63 75 72 72 65  |rch....LDA curre|
00002aa0  6e 74 5f 66 69 6c 65 0d  1e aa 19 4c 44 58 23 64  |nt_file....LDX#d|
00002ab0  65 6c 65 74 65 5f 66 69  6c 65 20 83 20 32 35 36  |elete_file . 256|
00002ac0  0d 1e b4 19 4c 44 59 23  64 65 6c 65 74 65 5f 66  |....LDY#delete_f|
00002ad0  69 6c 65 20 81 20 32 35  36 0d 1e be 14 4a 53 52  |ile . 256....JSR|
00002ae0  20 67 65 74 5f 66 69 6c  65 6e 61 6d 65 0d 1e c8  | get_filename...|
00002af0  0b 43 4d 50 23 31 32 38  0d 1e d2 0d 42 43 43 20  |.CMP#128....BCC |
00002b00  6b 36 66 6f 31 0d 1e dc  19 4c 44 58 23 66 69 6c  |k6fo1....LDX#fil|
00002b10  65 5f 6c 6f 63 6b 65 64  20 83 20 32 35 36 0d 1e  |e_locked . 256..|
00002b20  e6 19 4c 44 59 23 66 69  6c 65 5f 6c 6f 63 6b 65  |..LDY#file_locke|
00002b30  64 20 81 20 32 35 36 0d  1e f0 0f 4a 53 52 20 64  |d . 256....JSR d|
00002b40  69 73 70 6c 61 79 0d 1e  fa 0f 4a 53 52 20 77 69  |isplay....JSR wi|
00002b50  6e 64 6f 77 31 0d 1f 04  11 4a 4d 50 20 6b 65 79  |ndow1....JMP key|
00002b60  5f 63 68 65 63 6b 0d 1f  0e 11 2e 6b 36 66 6f 31  |_check.....k6fo1|
00002b70  20 4c 44 41 23 26 44 0d  1f 18 0e 53 54 41 28 26  | LDA#&D....STA(&|
00002b80  37 36 29 2c 59 0d 1f 22  12 4c 44 58 23 73 75 72  |76),Y..".LDX#sur|
00002b90  65 20 83 20 32 35 36 0d  1f 2c 12 4c 44 59 23 73  |e . 256..,.LDY#s|
00002ba0  75 72 65 20 81 20 32 35  36 0d 1f 36 0f 4a 53 52  |ure . 256..6.JSR|
00002bb0  20 64 69 73 70 6c 61 79  0d 1f 40 0a 4c 44 41 23  | display..@.LDA#|
00002bc0  32 31 0d 1f 4a 09 4c 44  58 23 30 0d 1f 54 0e 4a  |21..J.LDX#0..T.J|
00002bd0  53 52 20 6f 73 62 79 74  65 0d 1f 5e 15 2e 6b 36  |SR osbyte..^..k6|
00002be0  62 61 31 20 4a 53 52 20  6d 79 72 64 63 68 0d 1f  |ba1 JSR myrdch..|
00002bf0  68 0c 43 4d 50 23 97 22  59 22 0d 1f 72 0d 42 45  |h.CMP#."Y"..r.BE|
00002c00  51 20 6b 36 66 6f 32 0d  1f 7c 0c 43 4d 50 23 97  |Q k6fo2..|.CMP#.|
00002c10  22 4e 22 0d 1f 86 0d 42  4e 45 20 6b 36 62 61 31  |"N"....BNE k6ba1|
00002c20  0d 1f 90 0a 4c 44 41 23  31 32 0d 1f 9a 0e 4a 53  |....LDA#12....JS|
00002c30  52 20 6f 73 77 72 63 68  0d 1f a4 0f 4a 53 52 20  |R oswrch....JSR |
00002c40  77 69 6e 64 6f 77 31 0d  1f ae 11 4a 4d 50 20 6b  |window1....JMP k|
00002c50  65 79 5f 63 68 65 63 6b  0d 1f b8 1b 2e 6b 36 66  |ey_check.....k6f|
00002c60  6f 32 20 4c 44 58 23 64  65 6c 65 74 65 20 83 20  |o2 LDX#delete . |
00002c70  32 35 36 0d 1f c2 14 4c  44 59 23 64 65 6c 65 74  |256....LDY#delet|
00002c80  65 20 81 20 32 35 36 0d  1f cc 0d 4a 53 52 20 6f  |e . 256....JSR o|
00002c90  73 63 6c 69 0d 1f d6 14  4c 44 41 20 63 75 72 72  |scli....LDA curr|
00002ca0  65 6e 74 5f 66 69 6c 65  0d 1f e0 0d 43 4d 50 20  |ent_file....CMP |
00002cb0  66 69 6c 65 73 0d 1f ea  0d 42 45 51 20 6b 36 66  |files....BEQ k6f|
00002cc0  6f 33 0d 1f f4 15 4a 53  52 20 73 68 75 66 66 6c  |o3....JSR shuffl|
00002cd0  65 5f 6e 61 6d 65 73 0d  1f fe 14 4a 53 52 20 73  |e_names....JSR s|
00002ce0  68 75 66 66 6c 65 5f 64  61 74 61 0d 20 08 14 2e  |huffle_data. ...|
00002cf0  6b 36 66 6f 33 20 44 45  43 20 66 69 6c 65 73 0d  |k6fo3 DEC files.|
00002d00  20 12 13 4c 44 41 20 62  6f 74 74 65 6d 5f 66 69  | ..LDA bottem_fi|
00002d10  6c 65 0d 20 1c 0d 43 4d  50 20 66 69 6c 65 73 0d  |le. ..CMP files.|
00002d20  20 26 0d 42 43 53 20 6b  36 66 6f 34 0d 20 30 0d  | &.BCS k6fo4. 0.|
00002d30  4c 44 41 20 66 69 6c 65  73 0d 20 3a 13 53 54 41  |LDA files. :.STA|
00002d40  20 62 6f 74 74 65 6d 5f  66 69 6c 65 0d 20 44 11  | bottem_file. D.|
00002d50  2e 6b 36 66 6f 34 20 4c  44 41 23 31 32 0d 20 4e  |.k6fo4 LDA#12. N|
00002d60  0e 4a 53 52 20 6f 73 77  72 63 68 0d 20 58 0f 4a  |.JSR oswrch. X.J|
00002d70  53 52 20 77 69 6e 64 6f  77 30 0d 20 62 09 4c 44  |SR window0. b.LD|
00002d80  59 23 32 0d 20 6c 09 4c  44 58 23 37 0d 20 76 0b  |Y#2. l.LDX#7. v.|
00002d90  4a 53 52 20 74 61 62 0d  20 80 0d 4c 44 41 20 66  |JSR tab. ..LDA f|
00002da0  69 6c 65 73 0d 20 8a 15  4a 53 52 20 62 79 74 65  |iles. ..JSR byte|
00002db0  5f 74 6f 5f 61 73 63 69  69 0d 20 94 07 54 58 41  |_to_ascii. ..TXA|
00002dc0  0d 20 9e 0e 4a 53 52 20  6f 73 77 72 63 68 0d 20  |. ..JSR oswrch. |
00002dd0  a8 07 54 59 41 0d 20 b2  0e 4a 53 52 20 6f 73 77  |..TYA. ..JSR osw|
00002de0  72 63 68 0d 20 bc 0f 4a  53 52 20 77 69 6e 64 6f  |rch. ..JSR windo|
00002df0  77 31 0d 20 c6 13 4a 53  52 20 66 69 6c 65 5f 77  |w1. ..JSR file_w|
00002e00  69 6e 64 6f 77 0d 20 d0  11 4a 4d 50 20 6b 65 79  |indow. ..JMP key|
00002e10  5f 63 68 65 63 6b 0d 20  da 05 20 0d 20 e4 23 2e  |_check. .. . .#.|
00002e20  73 68 75 66 66 6c 65 5f  6e 61 6d 65 73 20 4c 44  |shuffle_names LD|
00002e30  41 20 63 75 72 72 65 6e  74 5f 66 69 6c 65 0d 20  |A current_file. |
00002e40  ee 0a 53 54 41 20 73 61  0d 20 f8 07 53 45 43 0d  |..STA sa. ..SEC.|
00002e50  21 02 09 53 42 43 23 31  0d 21 0c 15 41 53 4c 20  |!..SBC#1.!..ASL |
00002e60  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 0d 21 16  |A:ASL A:ASL A.!.|
00002e70  07 43 4c 43 0d 21 20 17  41 44 43 23 66 69 6c 65  |.CLC.! .ADC#file|
00002e80  6e 61 6d 65 73 20 83 20  32 35 36 0d 21 2a 0a 53  |names . 256.!*.S|
00002e90  54 41 26 37 30 0d 21 34  17 4c 44 41 23 66 69 6c  |TA&70.!4.LDA#fil|
00002ea0  65 6e 61 6d 65 73 20 81  20 32 35 36 0d 21 3e 09  |enames . 256.!>.|
00002eb0  41 44 43 23 30 0d 21 48  0a 53 54 41 26 37 31 0d  |ADC#0.!H.STA&71.|
00002ec0  21 52 11 2e 73 66 62 61  32 20 4c 44 41 26 37 30  |!R..sfba2 LDA&70|
00002ed0  0d 21 5c 07 43 4c 43 0d  21 66 09 41 44 43 23 38  |.!\.CLC.!f.ADC#8|
00002ee0  0d 21 70 0a 53 54 41 26  37 32 0d 21 7a 0a 4c 44  |.!p.STA&72.!z.LD|
00002ef0  41 26 37 31 0d 21 84 09  41 44 43 23 30 0d 21 8e  |A&71.!..ADC#0.!.|
00002f00  0a 53 54 41 26 37 33 0d  21 98 09 4c 44 59 23 30  |.STA&73.!..LDY#0|
00002f10  0d 21 a2 15 2e 73 66 62  61 31 20 4c 44 41 28 26  |.!...sfba1 LDA(&|
00002f20  37 32 29 2c 59 0d 21 ac  0e 53 54 41 28 26 37 30  |72),Y.!..STA(&70|
00002f30  29 2c 59 0d 21 b6 07 49  4e 59 0d 21 c0 09 43 50  |),Y.!..INY.!..CP|
00002f40  59 23 38 0d 21 ca 0d 42  4e 45 20 73 66 62 61 31  |Y#8.!..BNE sfba1|
00002f50  0d 21 d4 0a 49 4e 43 20  73 61 0d 21 de 0a 4c 44  |.!..INC sa.!..LD|
00002f60  41 20 73 61 0d 21 e8 0d  43 4d 50 20 66 69 6c 65  |A sa.!..CMP file|
00002f70  73 0d 21 f2 0d 42 45 51  20 73 66 66 6f 31 0d 21  |s.!..BEQ sffo1.!|
00002f80  fc 0a 4c 44 41 26 37 32  0d 22 06 0a 53 54 41 26  |..LDA&72."..STA&|
00002f90  37 30 0d 22 10 0a 4c 44  41 26 37 33 0d 22 1a 0a  |70."..LDA&73."..|
00002fa0  53 54 41 26 37 31 0d 22  24 0d 4a 4d 50 20 73 66  |STA&71."$.JMP sf|
00002fb0  62 61 32 0d 22 2e 0e 2e  73 66 66 6f 31 20 52 54  |ba2."...sffo1 RT|
00002fc0  53 0d 22 38 05 20 0d 22  42 22 2e 73 68 75 66 66  |S."8. ."B".shuff|
00002fd0  6c 65 5f 64 61 74 61 20  4c 44 41 20 63 75 72 72  |le_data LDA curr|
00002fe0  65 6e 74 5f 66 69 6c 65  0d 22 4c 0a 53 54 41 20  |ent_file."L.STA |
00002ff0  73 61 0d 22 56 07 53 45  43 0d 22 60 09 53 42 43  |sa."V.SEC."`.SBC|
00003000  23 31 0d 22 6a 0f 41 53  4c 20 41 3a 41 53 4c 20  |#1."j.ASL A:ASL |
00003010  41 0d 22 74 0f 41 53 4c  20 41 3a 41 53 4c 20 41  |A."t.ASL A:ASL A|
00003020  0d 22 7e 07 50 48 50 0d  22 88 07 43 4c 43 0d 22  |."~.PHP."..CLC."|
00003030  92 16 41 44 43 23 66 69  6c 65 64 61 74 61 20 83  |..ADC#filedata .|
00003040  20 32 35 36 0d 22 9c 0a  53 54 41 26 37 30 0d 22  | 256."..STA&70."|
00003050  a6 16 4c 44 41 23 66 69  6c 65 64 61 74 61 20 81  |..LDA#filedata .|
00003060  20 32 35 36 0d 22 b0 09  41 44 43 23 30 0d 22 ba  | 256."..ADC#0.".|
00003070  07 50 4c 50 0d 22 c4 09  41 44 43 23 30 0d 22 ce  |.PLP."..ADC#0.".|
00003080  0a 53 54 41 26 37 31 0d  22 d8 11 2e 73 64 62 61  |.STA&71."...sdba|
00003090  32 20 4c 44 41 26 37 30  0d 22 e2 07 43 4c 43 0d  |2 LDA&70."..CLC.|
000030a0  22 ec 0a 41 44 43 23 31  36 0d 22 f6 0a 53 54 41  |"..ADC#16."..STA|
000030b0  26 37 32 0d 23 00 0a 4c  44 41 26 37 31 0d 23 0a  |&72.#..LDA&71.#.|
000030c0  09 41 44 43 23 30 0d 23  14 0a 53 54 41 26 37 33  |.ADC#0.#..STA&73|
000030d0  0d 23 1e 09 4c 44 59 23  30 0d 23 28 15 2e 73 64  |.#..LDY#0.#(..sd|
000030e0  62 61 31 20 4c 44 41 28  26 37 32 29 2c 59 0d 23  |ba1 LDA(&72),Y.#|
000030f0  32 0e 53 54 41 28 26 37  30 29 2c 59 0d 23 3c 07  |2.STA(&70),Y.#<.|
00003100  49 4e 59 0d 23 46 0a 43  50 59 23 31 36 0d 23 50  |INY.#F.CPY#16.#P|
00003110  0d 42 4e 45 20 73 64 62  61 31 0d 23 5a 0a 49 4e  |.BNE sdba1.#Z.IN|
00003120  43 20 73 61 0d 23 64 0a  4c 44 41 20 73 61 0d 23  |C sa.#d.LDA sa.#|
00003130  6e 0d 43 4d 50 20 66 69  6c 65 73 0d 23 78 0d 42  |n.CMP files.#x.B|
00003140  45 51 20 73 6e 66 6f 31  0d 23 82 0a 4c 44 41 26  |EQ snfo1.#..LDA&|
00003150  37 32 0d 23 8c 0a 53 54  41 26 37 30 0d 23 96 0a  |72.#..STA&70.#..|
00003160  4c 44 41 26 37 33 0d 23  a0 0a 53 54 41 26 37 31  |LDA&73.#..STA&71|
00003170  0d 23 aa 0d 4a 4d 50 20  73 64 62 61 32 0d 23 b4  |.#..JMP sdba2.#.|
00003180  0e 2e 73 6e 66 6f 31 20  52 54 53 0d 23 be 05 20  |..snfo1 RTS.#.. |
00003190  0d 23 c8 11 2e 6b 65 79  37 20 43 50 58 23 31 35  |.#...key7 CPX#15|
000031a0  31 0d 23 d2 0c 42 4e 45  20 6b 65 79 38 0d 23 dc  |1.#..BNE key8.#.|
000031b0  14 4c 44 41 20 63 75 72  72 65 6e 74 5f 66 69 6c  |.LDA current_fil|
000031c0  65 0d 23 e6 15 4c 44 58  23 6c 6f 5f 6e 61 6d 65  |e.#..LDX#lo_name|
000031d0  20 83 20 32 35 36 0d 23  f0 15 4c 44 59 23 6c 6f  | . 256.#..LDY#lo|
000031e0  5f 6e 61 6d 65 20 81 20  32 35 36 0d 23 fa 14 4a  |_name . 256.#..J|
000031f0  53 52 20 67 65 74 5f 66  69 6c 65 6e 61 6d 65 0d  |SR get_filename.|
00003200  24 04 0d 4c 44 41 23 97  22 22 22 22 0d 24 0e 11  |$..LDA#."""".$..|
00003210  53 54 41 20 6c 6f 5f 6e  61 6d 65 2b 39 0d 24 18  |STA lo_name+9.$.|
00003220  0a 4c 44 41 23 31 33 0d  24 22 12 53 54 41 20 6c  |.LDA#13.$".STA l|
00003230  6f 5f 6e 61 6d 65 2b 31  30 0d 24 2c 12 4a 53 52  |o_name+10.$,.JSR|
00003240  20 72 65 61 64 79 5f 65  78 69 74 0d 24 36 0a 4c  | ready_exit.$6.L|
00003250  44 41 23 32 31 0d 24 40  09 4c 44 58 23 30 0d 24  |DA#21.$@.LDX#0.$|
00003260  4a 0e 4a 53 52 20 6f 73  62 79 74 65 0d 24 54 09  |J.JSR osbyte.$T.|
00003270  4c 44 59 23 30 0d 24 5e  10 2e 6b 37 62 61 20 53  |LDY#0.$^..k7ba S|
00003280  54 59 20 73 79 0d 24 68  10 4c 44 41 20 6c 6f 5f  |TY sy.$h.LDA lo_|
00003290  69 6e 74 2c 59 0d 24 72  07 54 41 59 0d 24 7c 07  |int,Y.$r.TAY.$|.|
000032a0  50 48 41 0d 24 86 0b 4c  44 41 23 31 33 38 0d 24  |PHA.$..LDA#138.$|
000032b0  90 09 4c 44 58 23 30 0d  24 9a 0e 4a 53 52 20 6f  |..LDX#0.$..JSR o|
000032c0  73 62 79 74 65 0d 24 a4  0a 4c 44 59 20 73 79 0d  |sbyte.$..LDY sy.|
000032d0  24 ae 07 49 4e 59 0d 24  b8 07 50 4c 41 0d 24 c2  |$..INY.$..PLA.$.|
000032e0  0a 43 4d 50 23 31 33 0d  24 cc 0c 42 4e 45 20 6b  |.CMP#13.$..BNE k|
000032f0  37 62 61 0d 24 d6 15 4c  44 58 23 6f 73 62 61 73  |7ba.$..LDX#osbas|
00003300  69 63 20 83 20 32 35 36  0d 24 e0 15 4c 44 59 23  |ic . 256.$..LDY#|
00003310  6f 73 62 61 73 69 63 20  81 20 32 35 36 0d 24 ea  |osbasic . 256.$.|
00003320  0d 4a 4d 50 20 6f 73 63  6c 69 0d 24 f4 05 20 0d  |.JMP oscli.$.. .|
00003330  24 fe 05 20 0d 25 08 11  2e 6b 65 79 38 20 43 50  |$.. .%...key8 CP|
00003340  58 23 31 35 32 0d 25 12  0c 42 4e 45 20 6b 65 79  |X#152.%..BNE key|
00003350  39 0d 25 1c 0a 4c 44 41  23 32 36 0d 25 26 0e 4a  |9.%..LDA#26.%&.J|
00003360  53 52 20 6f 73 77 72 63  68 0d 25 30 0a 4c 44 41  |SR oswrch.%0.LDA|
00003370  23 31 32 0d 25 3a 0e 4a  53 52 20 6f 73 77 72 63  |#12.%:.JSR oswrc|
00003380  68 0d 25 44 14 4c 44 41  20 63 75 72 72 65 6e 74  |h.%D.LDA current|
00003390  5f 66 69 6c 65 0d 25 4e  17 4c 44 58 23 65 78 65  |_file.%N.LDX#exe|
000033a0  63 5f 70 6c 75 73 20 83  20 32 35 36 0d 25 58 17  |c_plus . 256.%X.|
000033b0  4c 44 59 23 65 78 65 63  5f 70 6c 75 73 20 81 20  |LDY#exec_plus . |
000033c0  32 35 36 0d 25 62 14 4a  53 52 20 67 65 74 5f 66  |256.%b.JSR get_f|
000033d0  69 6c 65 6e 61 6d 65 0d  25 6c 0a 4c 44 41 23 31  |ilename.%l.LDA#1|
000033e0  33 0d 25 76 0e 53 54 41  28 26 37 36 29 2c 59 0d  |3.%v.STA(&76),Y.|
000033f0  25 80 12 4a 53 52 20 72  65 61 64 79 5f 65 78 69  |%..JSR ready_exi|
00003400  74 0d 25 8a 17 4c 44 58  23 65 78 65 63 5f 66 69  |t.%..LDX#exec_fi|
00003410  6c 65 20 83 20 32 35 36  0d 25 94 17 4c 44 59 23  |le . 256.%..LDY#|
00003420  65 78 65 63 5f 66 69 6c  65 20 81 20 32 35 36 0d  |exec_file . 256.|
00003430  25 9e 0d 4a 4d 50 20 6f  73 63 6c 69 0d 25 a8 05  |%..JMP oscli.%..|
00003440  20 0d 25 b2 11 2e 6b 65  79 39 20 43 50 58 23 31  | .%...key9 CPX#1|
00003450  35 33 0d 25 bc 11 42 45  51 20 6b 65 79 39 5f 6a  |53.%..BEQ key9_j|
00003460  75 6d 70 0d 25 c6 11 4a  4d 50 20 73 70 61 63 65  |ump.%..JMP space|
00003470  5f 62 61 72 0d 25 d0 15  2e 6b 65 79 39 5f 6a 75  |_bar.%...key9_ju|
00003480  6d 70 20 4c 44 41 23 31  32 0d 25 da 0e 4a 53 52  |mp LDA#12.%..JSR|
00003490  20 6f 73 77 72 63 68 0d  25 e4 09 4c 44 41 23 32  | oswrch.%..LDA#2|
000034a0  0d 25 ee 0e 4a 53 52 20  6f 73 77 72 63 68 0d 25  |.%..JSR oswrch.%|
000034b0  f8 09 4c 44 59 23 30 0d  26 02 16 2e 6b 39 62 61  |..LDY#0.&...k9ba|
000034c0  20 4c 44 41 20 62 61 6e  6e 65 72 2c 59 0d 26 0c  | LDA banner,Y.&.|
000034d0  0e 4a 53 52 20 6f 73 77  72 63 68 0d 26 16 07 49  |.JSR oswrch.&..I|
000034e0  4e 59 0d 26 20 09 43 4d  50 23 30 0d 26 2a 0c 42  |NY.& .CMP#0.&*.B|
000034f0  4e 45 20 6b 39 62 61 0d  26 34 09 4c 44 59 23 30  |NE k9ba.&4.LDY#0|
00003500  0d 26 3e 1a 2e 6b 39 62  61 32 20 4c 44 41 20 64  |.&>..k9ba2 LDA d|
00003510  69 73 63 5f 6e 61 6d 65  2c 59 0d 26 48 0e 4a 53  |isc_name,Y.&H.JS|
00003520  52 20 6f 73 77 72 63 68  0d 26 52 07 49 4e 59 0d  |R oswrch.&R.INY.|
00003530  26 5c 09 43 4d 50 23 30  0d 26 66 0d 42 4e 45 20  |&\.CMP#0.&f.BNE |
00003540  6b 39 62 61 32 0d 26 70  0d 4c 44 41 20 66 69 6c  |k9ba2.&p.LDA fil|
00003550  65 73 0d 26 7a 15 4a 53  52 20 62 79 74 65 5f 74  |es.&z.JSR byte_t|
00003560  6f 5f 61 73 63 69 69 0d  26 84 0a 4c 44 41 23 33  |o_ascii.&..LDA#3|
00003570  32 0d 26 8e 0e 4a 53 52  20 6f 73 77 72 63 68 0d  |2.&..JSR oswrch.|
00003580  26 98 07 54 58 41 0d 26  a2 0e 4a 53 52 20 6f 73  |&..TXA.&..JSR os|
00003590  77 72 63 68 0d 26 ac 07  54 59 41 0d 26 b6 0e 4a  |wrch.&..TYA.&..J|
000035a0  53 52 20 6f 73 77 72 63  68 0d 26 c0 09 4c 44 59  |SR oswrch.&..LDY|
000035b0  23 30 0d 26 ca 18 2e 6b  39 62 61 33 20 4c 44 41  |#0.&...k9ba3 LDA|
000035c0  20 62 61 6e 6e 65 72 32  2c 59 0d 26 d4 0e 4a 53  | banner2,Y.&..JS|
000035d0  52 20 6f 73 77 72 63 68  0d 26 de 07 49 4e 59 0d  |R oswrch.&..INY.|
000035e0  26 e8 09 43 4d 50 23 30  0d 26 f2 0d 42 4e 45 20  |&..CMP#0.&..BNE |
000035f0  6b 39 62 61 33 0d 26 fc  0e 4a 53 52 20 6f 73 6e  |k9ba3.&..JSR osn|
00003600  65 77 6c 0d 27 06 09 4c  44 41 23 30 0d 27 10 0a  |ewl.'..LDA#0.'..|
00003610  53 54 41 20 73 79 0d 27  1a 0a 4c 44 41 23 36 34  |STA sy.'..LDA#64|
00003620  0d 27 24 0d 53 54 41 20  77 69 64 74 68 0d 27 2e  |.'$.STA width.'.|
00003630  09 4c 44 58 23 31 0d 27  38 0a 53 54 58 20 73 78  |.LDX#1.'8.STX sx|
00003640  0d 27 42 19 2e 6b 39 62  61 34 20 4a 53 52 20 70  |.'B..k9ba4 JSR p|
00003650  72 69 6e 74 5f 6c 69 6e  65 0d 27 4c 0e 4a 53 52  |rint_line.'L.JSR|
00003660  20 6f 73 6e 65 77 6c 0d  27 56 0a 4c 44 41 20 73  | osnewl.'V.LDA s|
00003670  78 0d 27 60 0a 49 4e 43  20 73 78 0d 27 6a 0d 43  |x.'`.INC sx.'j.C|
00003680  4d 50 20 66 69 6c 65 73  0d 27 74 0d 42 4d 49 20  |MP files.'t.BMI |
00003690  6b 39 62 61 34 0d 27 7e  09 4c 44 41 23 33 0d 27  |k9ba4.'~.LDA#3.'|
000036a0  88 0e 4a 53 52 20 6f 73  77 72 63 68 0d 27 92 13  |..JSR oswrch.'..|
000036b0  4a 53 52 20 66 69 6c 65  5f 77 69 6e 64 6f 77 0d  |JSR file_window.|
000036c0  27 9c 11 4a 4d 50 20 6b  65 79 5f 63 68 65 63 6b  |'..JMP key_check|
000036d0  0d 27 a6 23 2e 62 61 6e  6e 65 72 20 45 51 55 53  |.'.#.banner EQUS|
000036e0  22 45 63 68 6f 65 73 20  20 44 69 73 63 3a 22 3a  |"Echoes  Disc:":|
000036f0  42 52 4b 0d 27 b0 1d 2e  62 61 6e 6e 65 72 32 20  |BRK.'...banner2 |
00003700  45 51 55 53 22 20 66 69  6c 65 73 22 3a 42 52 4b  |EQUS" files":BRK|
00003710  0d 27 ba 05 20 0d 27 c4  15 2e 73 70 61 63 65 5f  |.'.. .'...space_|
00003720  62 61 72 20 43 50 58 23  33 32 0d 27 ce 10 42 4e  |bar CPX#32.'..BN|
00003730  45 20 73 74 61 72 5f 63  6f 6d 0d 27 d8 0f 4a 53  |E star_com.'..JS|
00003740  52 20 77 69 6e 64 6f 77  32 0d 27 e2 16 4c 44 58  |R window2.'..LDX|
00003750  23 6e 65 77 5f 64 69 73  63 20 83 20 32 35 36 0d  |#new_disc . 256.|
00003760  27 ec 16 4c 44 59 23 6e  65 77 5f 64 69 73 63 20  |'..LDY#new_disc |
00003770  81 20 32 35 36 0d 27 f6  0f 4a 53 52 20 64 69 73  |. 256.'..JSR dis|
00003780  70 6c 61 79 0d 28 00 0a  4c 44 41 23 32 31 0d 28  |play.(..LDA#21.(|
00003790  0a 09 4c 44 58 23 30 0d  28 14 0e 4a 53 52 20 6f  |..LDX#0.(..JSR o|
000037a0  73 62 79 74 65 0d 28 1e  14 2e 73 62 62 61 20 4a  |sbyte.(...sbba J|
000037b0  53 52 20 6d 79 72 64 63  68 0d 28 28 0a 43 4d 50  |SR myrdch.((.CMP|
000037c0  23 33 32 0d 28 32 0c 42  4e 45 20 73 62 62 61 0d  |#32.(2.BNE sbba.|
000037d0  28 3c 09 4c 44 41 23 30  0d 28 46 0d 53 54 41 20  |(<.LDA#0.(F.STA |
000037e0  66 69 6c 65 73 0d 28 50  0b 53 54 41 20 73 70 74  |files.(P.STA spt|
000037f0  0d 28 5a 0e 53 54 41 20  74 72 61 63 6b 73 0d 28  |.(Z.STA tracks.(|
00003800  64 0f 53 54 41 20 73 65  63 74 6f 72 73 0d 28 6e  |d.STA sectors.(n|
00003810  10 53 54 41 20 74 6f 70  5f 66 69 6c 65 0d 28 78  |.STA top_file.(x|
00003820  13 53 54 41 20 62 6f 74  74 65 6d 5f 66 69 6c 65  |.STA bottem_file|
00003830  0d 28 82 14 53 54 41 20  63 75 72 72 65 6e 74 5f  |.(..STA current_|
00003840  66 69 6c 65 0d 28 8c 0e  4a 4d 50 20 65 63 68 6f  |file.(..JMP echo|
00003850  65 73 0d 28 96 05 20 0d  28 a0 16 2e 73 74 61 72  |es.(.. .(...star|
00003860  5f 63 6f 6d 20 43 50 58  23 97 22 2a 22 0d 28 aa  |_com CPX#."*".(.|
00003870  15 42 4e 45 20 6e 6f 74  5f 6b 6e 6f 77 6e 5f 6b  |.BNE not_known_k|
00003880  65 79 0d 28 b4 15 2e 73  63 62 61 20 4a 53 52 20  |ey.(...scba JSR |
00003890  77 69 6e 64 6f 77 32 0d  28 be 0c 4c 44 41 23 97  |window2.(..LDA#.|
000038a0  22 2a 22 0d 28 c8 0e 4a  53 52 20 6f 73 77 72 63  |"*".(..JSR oswrc|
000038b0  68 0d 28 d2 09 4c 44 41  23 30 0d 28 dc 16 4c 44  |h.(..LDA#0.(..LD|
000038c0  58 23 6f 73 5f 69 6e 70  75 74 20 83 20 32 35 36  |X#os_input . 256|
000038d0  0d 28 e6 16 4c 44 59 23  6f 73 5f 69 6e 70 75 74  |.(..LDY#os_input|
000038e0  20 81 20 32 35 36 0d 28  f0 0e 4a 53 52 20 6f 73  | . 256.(..JSR os|
000038f0  77 6f 72 64 0d 28 fa 0f  4a 53 52 20 77 69 6e 64  |word.(..JSR wind|
00003900  6f 77 31 0d 29 04 0a 4c  44 41 23 31 32 0d 29 0e  |ow1.)..LDA#12.).|
00003910  0e 4a 53 52 20 6f 73 77  72 63 68 0d 29 18 14 4c  |.JSR oswrch.)..L|
00003920  44 58 23 6f 73 5f 63 6f  6d 20 83 20 32 35 36 0d  |DX#os_com . 256.|
00003930  29 22 14 4c 44 59 23 6f  73 5f 63 6f 6d 20 81 20  |)".LDY#os_com . |
00003940  32 35 36 0d 29 2c 0d 4a  53 52 20 6f 73 63 6c 69  |256.),.JSR oscli|
00003950  0d 29 36 0e 4a 53 52 20  6d 79 72 64 63 68 0d 29  |.)6.JSR myrdch.)|
00003960  40 0c 43 4d 50 23 97 22  2a 22 0d 29 4a 0c 42 45  |@.CMP#."*".)J.BE|
00003970  51 20 73 63 62 61 0d 29  54 0f 4a 53 52 20 77 69  |Q scba.)T.JSR wi|
00003980  6e 64 6f 77 32 0d 29 5e  0a 4c 44 41 23 31 32 0d  |ndow2.)^.LDA#12.|
00003990  29 68 0e 4a 53 52 20 6f  73 77 72 63 68 0d 29 72  |)h.JSR oswrch.)r|
000039a0  0f 4a 53 52 20 77 69 6e  64 6f 77 31 0d 29 7c 0a  |.JSR window1.)|.|
000039b0  4c 44 41 23 31 32 0d 29  86 0e 4a 53 52 20 6f 73  |LDA#12.)..JSR os|
000039c0  77 72 63 68 0d 29 90 13  4a 53 52 20 66 69 6c 65  |wrch.)..JSR file|
000039d0  5f 77 69 6e 64 6f 77 0d  29 9a 11 4a 4d 50 20 6b  |_window.)..JMP k|
000039e0  65 79 5f 63 68 65 63 6b  0d 29 a4 12 2e 6e 6f 74  |ey_check.)...not|
000039f0  5f 6b 6e 6f 77 6e 5f 6b  65 79 0d 29 ae 11 4a 4d  |_known_key.)..JM|
00003a00  50 20 6b 65 79 5f 63 68  65 63 6b 0d 29 b8 05 20  |P key_check.).. |
00003a10  0d 29 c2 12 2e 6e 65 77  5f 62 72 6b 20 4c 44 59  |.)...new_brk LDY|
00003a20  23 30 0d 29 cc 0e 4c 44  41 28 26 46 44 29 2c 59  |#0.)..LDA(&FD),Y|
00003a30  0d 29 d6 0a 43 4d 50 23  31 37 0d 29 e0 0c 42 4e  |.)..CMP#17.)..BN|
00003a40  45 20 6e 62 66 6f 0d 29  ea 11 4a 4d 50 20 65 73  |E nbfo.)..JMP es|
00003a50  63 5f 70 72 65 73 73 0d  29 f4 15 2e 6e 62 66 6f  |c_press.)...nbfo|
00003a60  20 4a 53 52 20 77 69 6e  64 6f 77 32 0d 29 fe 0a  | JSR window2.)..|
00003a70  4c 44 41 23 31 32 0d 2a  08 0e 4a 53 52 20 6f 73  |LDA#12.*..JSR os|
00003a80  77 72 63 68 0d 2a 12 09  4c 44 41 23 37 0d 2a 1c  |wrch.*..LDA#7.*.|
00003a90  0e 4a 53 52 20 6f 73 77  72 63 68 0d 2a 26 18 4c  |.JSR oswrch.*&.L|
00003aa0  44 58 23 65 72 72 6f 72  5f 6d 65 73 73 20 83 20  |DX#error_mess . |
00003ab0  32 35 36 0d 2a 30 18 4c  44 59 23 65 72 72 6f 72  |256.*0.LDY#error|
00003ac0  5f 6d 65 73 73 20 81 20  32 35 36 0d 2a 3a 0f 4a  |_mess . 256.*:.J|
00003ad0  53 52 20 64 69 73 70 6c  61 79 0d 2a 44 09 4c 44  |SR display.*D.LD|
00003ae0  59 23 31 0d 2a 4e 14 2e  6e 62 62 61 20 4c 44 41  |Y#1.*N..nbba LDA|
00003af0  28 26 46 44 29 2c 59 0d  2a 58 0e 4a 53 52 20 6f  |(&FD),Y.*X.JSR o|
00003b00  73 77 72 63 68 0d 2a 62  07 49 4e 59 0d 2a 6c 09  |swrch.*b.INY.*l.|
00003b10  43 4d 50 23 30 0d 2a 76  0c 42 4e 45 20 6e 62 62  |CMP#0.*v.BNE nbb|
00003b20  61 0d 2a 80 16 4c 44 58  23 61 63 6b 5f 6d 65 73  |a.*..LDX#ack_mes|
00003b30  73 20 83 20 32 35 36 0d  2a 8a 16 4c 44 59 23 61  |s . 256.*..LDY#a|
00003b40  63 6b 5f 6d 65 73 73 20  81 20 32 35 36 0d 2a 94  |ck_mess . 256.*.|
00003b50  0f 4a 53 52 20 64 69 73  70 6c 61 79 0d 2a 9e 0b  |.JSR display.*..|
00003b60  4c 44 41 23 26 38 31 0d  2a a8 09 4c 44 58 23 30  |LDA#&81.*..LDX#0|
00003b70  0d 2a b2 0a 4c 44 59 23  31 30 0d 2a bc 0e 4a 53  |.*..LDY#10.*..JS|
00003b80  52 20 6f 73 62 79 74 65  0d 2a c6 0d 42 43 53 20  |R osbyte.*..BCS |
00003b90  6e 62 66 6f 33 0d 2a d0  16 2e 72 65 63 6f 76 65  |nbfo3.*...recove|
00003ba0  72 20 4c 44 41 20 65 72  72 6f 72 0d 2a da 09 43  |r LDA error.*..C|
00003bb0  4d 50 23 30 0d 2a e4 0d  42 4e 45 20 6e 62 66 6f  |MP#0.*..BNE nbfo|
00003bc0  34 0d 2a ee 0e 4a 4d 50  20 65 63 68 6f 65 73 0d  |4.*..JMP echoes.|
00003bd0  2a f8 11 2e 6e 62 66 6f  34 20 43 50 59 23 32 37  |*...nbfo4 CPY#27|
00003be0  0d 2b 02 11 42 45 51 20  65 73 63 5f 70 72 65 73  |.+..BEQ esc_pres|
00003bf0  73 0d 2b 0c 0a 4c 44 41  23 31 32 0d 2b 16 0e 4a  |s.+..LDA#12.+..J|
00003c00  53 52 20 6f 73 77 72 63  68 0d 2b 20 0f 4a 53 52  |SR oswrch.+ .JSR|
00003c10  20 77 69 6e 64 6f 77 31  0d 2b 2a 0a 4c 44 41 23  | window1.+*.LDA#|
00003c20  31 32 0d 2b 34 0e 4a 53  52 20 6f 73 77 72 63 68  |12.+4.JSR oswrch|
00003c30  0d 2b 3e 13 4a 53 52 20  66 69 6c 65 5f 77 69 6e  |.+>.JSR file_win|
00003c40  64 6f 77 0d 2b 48 11 4a  4d 50 20 6b 65 79 5f 63  |dow.+H.JMP key_c|
00003c50  68 65 63 6b 0d 2b 52 05  20 0d 2b 5c 10 2e 6e 62  |heck.+R. .+\..nb|
00003c60  66 6f 33 20 4c 44 41 23  37 0d 2b 66 0e 4a 53 52  |fo3 LDA#7.+f.JSR|
00003c70  20 6f 73 77 72 63 68 0d  2b 70 0b 4c 44 41 23 26  | oswrch.+p.LDA#&|
00003c80  38 31 0d 2b 7a 09 4c 44  58 23 30 0d 2b 84 09 4c  |81.+z.LDX#0.+..L|
00003c90  44 59 23 33 0d 2b 8e 0e  4a 53 52 20 6f 73 62 79  |DY#3.+..JSR osby|
00003ca0  74 65 0d 2b 98 0f 42 43  43 20 72 65 63 6f 76 65  |te.+..BCC recove|
00003cb0  72 0d 2b a2 0a 43 50 59  23 32 37 0d 2b ac 11 42  |r.+..CPY#27.+..B|
00003cc0  45 51 20 65 73 63 5f 70  72 65 73 73 0d 2b b6 0d  |EQ esc_press.+..|
00003cd0  4a 4d 50 20 6e 62 66 6f  33 0d 2b c0 05 20 0d 2b  |JMP nbfo3.+.. .+|
00003ce0  ca 1a 2e 65 73 63 5f 70  72 65 73 73 20 4a 53 52  |...esc_press JSR|
00003cf0  20 77 69 6e 64 6f 77 32  0d 2b d4 13 4c 44 58 23  | window2.+..LDX#|
00003d00  61 62 6f 72 74 20 83 20  32 35 36 0d 2b de 13 4c  |abort . 256.+..L|
00003d10  44 59 23 61 62 6f 72 74  20 81 20 32 35 36 0d 2b  |DY#abort . 256.+|
00003d20  e8 0f 4a 53 52 20 64 69  73 70 6c 61 79 0d 2b f2  |..JSR display.+.|
00003d30  15 2e 6e 62 62 61 32 20  4a 53 52 20 6d 79 72 64  |..nbba2 JSR myrd|
00003d40  63 68 0d 2b fc 0c 43 4d  50 23 97 22 4e 22 0d 2c  |ch.+..CMP#."N".,|
00003d50  06 0f 42 45 51 20 72 65  63 6f 76 65 72 0d 2c 10  |..BEQ recover.,.|
00003d60  0c 43 4d 50 23 97 22 59  22 0d 2c 1a 0d 42 4e 45  |.CMP#."Y".,..BNE|
00003d70  20 6e 62 62 61 32 0d 2c  24 12 4a 53 52 20 72 65  | nbba2.,$.JSR re|
00003d80  61 64 79 5f 65 78 69 74  0d 2c 2e 07 53 45 49 0d  |ady_exit.,..SEI.|
00003d90  2c 38 10 4c 44 41 20 6f  6c 64 5f 62 72 6b 76 0d  |,8.LDA old_brkv.|
00003da0  2c 42 0b 53 54 41 26 32  30 32 0d 2c 4c 12 4c 44  |,B.STA&202.,L.LD|
00003db0  41 20 6f 6c 64 5f 62 72  6b 76 2b 31 0d 2c 56 0b  |A old_brkv+1.,V.|
00003dc0  53 54 41 26 32 30 33 0d  2c 60 07 43 4c 49 0d 2c  |STA&203.,`.CLI.,|
00003dd0  6a 07 42 52 4b 0d 2c 74  0b 45 51 55 42 26 46 46  |j.BRK.,t.EQUB&FF|
00003de0  0d 2c 7e 17 45 51 55 53  22 45 63 68 6f 65 73 20  |.,~.EQUS"Echoes |
00003df0  45 78 69 74 65 64 22 0d  2c 88 0c 45 51 55 57 26  |Exited".,..EQUW&|
00003e00  44 30 41 0d 2c 92 07 42  52 4b 0d 2c 9c 05 20 0d  |D0A.,..BRK.,.. .|
00003e10  2c a6 14 2e 6f 6c 64 5f  62 72 6b 76 20 45 51 55  |,...old_brkv EQU|
00003e20  57 20 30 0d 2c b0 20 2e  65 72 72 6f 72 5f 6d 65  |W 0.,. .error_me|
00003e30  73 73 20 45 51 55 53 22  45 72 72 6f 72 3a 22 3a  |ss EQUS"Error:":|
00003e40  42 52 4b 0d 2c ba 24 2e  61 63 6b 5f 6d 65 73 73  |BRK.,.$.ack_mess|
00003e50  20 45 51 55 53 22 41 63  6b 6e 6f 77 6c 65 64 67  | EQUS"Acknowledg|
00003e60  65 3f 22 3a 42 52 4b 0d  2c c4 2f 2e 61 62 6f 72  |e?":BRK.,./.abor|
00003e70  74 20 45 51 55 42 31 32  3a 45 51 55 53 22 41 62  |t EQUB12:EQUS"Ab|
00003e80  6f 72 74 20 45 63 68 6f  65 73 3f 20 28 59 2f 4e  |ort Echoes? (Y/N|
00003e90  29 22 3a 42 52 4b 0d 2c  ce 0e 2e 65 72 72 6f 72  |)":BRK.,...error|
00003ea0  20 42 52 4b 0d 2c d8 05  20 0d 2c e2 16 2e 6d 79  | BRK.,.. .,...my|
00003eb0  72 64 63 68 20 4a 53 52  20 6f 73 72 64 63 68 0d  |rdch JSR osrdch.|
00003ec0  2c ec 0c 42 43 43 20 6d  79 66 6f 0d 2c f6 11 2e  |,..BCC myfo.,...|
00003ed0  6d 79 62 61 20 4c 44 41  23 31 32 36 0d 2d 00 0e  |myba LDA#126.-..|
00003ee0  4a 53 52 20 6f 73 62 79  74 65 0d 2d 0a 0b 43 50  |JSR osbyte.-..CP|
00003ef0  58 23 26 46 46 0d 2d 14  0c 42 4e 45 20 6d 79 62  |X#&FF.-..BNE myb|
00003f00  61 0d 2d 1e 11 4a 4d 50  20 65 73 63 5f 70 72 65  |a.-..JMP esc_pre|
00003f10  73 73 0d 2d 28 0d 2e 6d  79 66 6f 20 52 54 53 0d  |ss.-(..myfo RTS.|
00003f20  2d 32 05 5d 0d 2d 3c 05  20 0d 2d 46 05 20 0d 4e  |-2.].-<. .-F. .N|
00003f30  20 20 f4 20 56 61 72 69  61 62 6c 65 73 20 73 68  |  . Variables sh|
00003f40  6f 75 6c 64 20 6c 6f 61  64 20 68 65 72 65 0d 4e  |ould load here.N|
00003f50  2a 05 20 0d 4e 34 1c f1  22 4c 4f 41 44 20 54 48  |*. .N4.."LOAD TH|
00003f60  45 20 56 41 52 49 41 42  4c 45 53 21 21 21 22 0d  |E VARIABLES!!!".|
00003f70  4e 3e 05 fa 0d 75 30 05  ed 0d 75 3a 1f f1 22 4e  |N>...u0...u:.."N|
00003f80  6f 77 20 73 61 76 65 20  74 68 69 73 20 63 6f 64  |ow save this cod|
00003f90  65 20 77 69 74 68 3a 22  0d 75 44 37 f1 22 20 2a  |e with:".uD7." *|
00003fa0  53 41 56 45 20 4c 2e 43  4f 44 45 20 22 3b 7e 73  |SAVE L.CODE ";~s|
00003fb0  61 76 65 3b 22 20 22 3b  7e 4f 25 3b 22 20 22 3b  |ave;" ";~O%;" ";|
00003fc0  7e 6c 6f 61 64 3b 22 20  22 3b 7e 6c 6f 61 64 0d  |~load;" ";~load.|
00003fd0  75 4e 16 f1 22 54 68 65  6e 20 43 48 41 49 4e 20  |uN.."Then CHAIN |
00003fe0  4c 49 4e 4b 22 0d 75 58  05 e0 0d ff              |LINK".uX....|
00003fec