� 1
� code &1000
block=&D00 : data=&D0D
(� p=4 � 6 � 2
2P%=&8000
<O%=code
F	[OPTp
P
.start
Z
EQUS"MRB"
dJMPserv
nEQUB &82 \ ROMTYPE
xEQUB copyr-&8000-1
�EQUB 1 \ VERSION
�EQUS"Virtual DFS"
�	EQUW0
�
.copyr
�EQUS"(C) MRB 1995":EQUB 0
�
EQUB 0
�EQUS "0.01" \ VERSION
�
EQUB 0
� EQUD 0:EQUD 0 \ TUBE ADDRESS
�	.serv
�PHP
�PHA
�PHX

PHY

TSX


LDA&103,X

"CMP#&04

,BEQ starcmd \ * COMMANDS

6CMP#&09

@BEQ help \ *HELP

JCMP#&27

TBEQ resethard

^CMP#&03

hBEQ reset \ BREAK

rCMP#&0F

| BEQ powerdown \ CHANGE OF FS

�CMP#&10

�BEQ spoolexec

�CMP#&12

�BEQ restart1

�CMP#&25

�BEQ fsinfo

�CMP#&26

�BEQ spoolexec

�CMP#&08

�"BEQ unkosword \ Unknown OSWORD

�\CMP#&07

�#\BEQ unkosbyte \ Unknown OSBYTE

�\CMP#&24
\BEQ workreq
\CMP#&22
\BEQ claimdynhaz
&	.exit
0PLY
:PLX
DPLA
NPLP
XRTS
b
l.unkosword
vPLY:PLX:PLA:PLP
�EQUB &03 : EQUB &40
�
�.unkosbyte
�PLY:PLX:PLA:PLP
�EQUB &03 : EQUB &41
�
�.claimed
�LDA#0:TSX:STA&103,X
�JMPexit
�.starcmd
�JMP star
�	.help
�JSR help2:JMPexit

.reset
JMP powerup
.resethard:JMPpoweruphard
 .powerdown
*JMP deinit
4.spoolexec
>
JMP close
H
.restart1
RJMP restart
\.fsinfo
fJMP osinfo
p
.help2
z	LDX#0
�	.loop
�LDA helpmess,X
�JSR&FFEE
�INX
�	CMP#0
�BNE loop
�RTS
�
.helpmess
�1EQUB10:EQUB13:EQUS"Virtual DFS":EQUB10:EQUB13
�	EQUB0
�.deinit
�STZrfson
�JMPexit

.close
JMPexit
.restart
$CPY#&11
.BNErestartex
8LDA#6:JSRosfsc
BJSRvectors
LLDA#143:LDX#15
VJSR&FFF4:LDA#1:STArfson
`JMPclaimed
j.restartex
tJMPexit
~.osinfo
�JMPexit
�.vectors
�LDA #&FF
�BSTA &213:STA &215:STA &217:STA &219:STA &21B:STA &21D:STA &21F
�LDA #&1B:STA &212
�LDA #&1E:STA &214
�LDA #&21:STA &216
�LDA #&24:STA &218
�LDA #&27:STA &21A
�LDA #&2A:STA &21C
�LDA #&2D:STA &21E
�
LDA#osfile � 256

STA&D9F+&1B
LDA#osfile � 256
STA&D9F+&1C
(
LDA&F4
2STA&D9F+&1D
<STA&D9F+&20
FSTA&D9F+&23
PSTA&D9F+&26
ZSTA&D9F+&29
dSTA&D9F+&2C
nSTA&D9F+&2F
xLDA#osargs � 256
�STA&D9F+&1E
�LDA#osargs � 256
�STA&D9F+&1F
�LDA#osbget � 256
�STA&D9F+&21
�LDA#osbget � 256
�STA&D9F+&22
�LDA#osbput � 256
�STA&D9F+&24
�LDA#osbput � 256
�STA&D9F+&25
�LDA#osgbpb � 256
�STA&D9F+&28
LDA#osgbpb � 256
STA&D9F+&27
LDA#osfind � 256
"STA&D9F+&2A
,LDA#osfind � 256
6STA&D9F+&2B
@LDA#osfsc2 � 256
JSTA&D9F+&2D
TLDA#osfsc2 � 256
^STA&D9F+&2E
hRTS
r.powerup
|PHY:LDArfson:CMP#1:BEQcinit
�LDA#&7A
�JSR&FFF4
�CPX#&FF : BEQ cinit
�CPX#&51 : BEQ cinit
�PLY
�JMPexit
�
.cinit
�	LDX#0
�.initloop1
�LDA breakmess,X
�JSR&FFE3:INX
�
CMP#13
�BNEinitloop1
	.init
"LDA#143:LDX#18:LDY#17:JSR&FFF4
PLY
&	CPY#0
0BEQ boot
:JMPclaimed
D	.boot
N
JSR boot2
XJMPclaimed
be.loadboot:LDX#plboot � 256:LDY#plboot � 256:JSR&FFF7:JMPclaimed:.loplboot:EQUS"LOAD !BOOT":EQUB13
l].runboot:LDX#plboot � 256:LDY#plboot � 256:\JSRrun2:JMPclaimed:.plboot:EQUS"!BOOT":EQUB13
v.execboot:JMPclaimed
�
.boot2
�EQUB &03 : EQUB &D3
�.osinfo
�	LDX#0
�
.nloop
�LDAfsname,X
�STA(&F2),Y
�INY
�INX
�	CPX#8
�BNEnloop
�	LDA#0
�STA(&F2),Y
INY

LDA#10
STA(&F2),Y
 INY
*LDA#&11
4STA(&F2),Y
>INY
HPLA:PHY
RJMP exit
\.fsname
fEQUS"RFS     "
p.osargs
zEQUB &03 : EQUB &05
�
�.run:RTS
�.osfsc2
�CMP #8 : BEQ run
�CMP #5 ; *CAT
�BNE cat_cont
�JMP cat
�
.cat_cont
�	CMP#3
�BNEukscont:JMPuksc:.ukscont
�EQUB &03 : EQUB &00
�..breakmess:EQUS"Virtual DFS":EQUB10:EQUB13
�.rfson:EQUB0
	,.filenotfound:EQUS"File not found":EQUD0
	.nooffiles
		EQUB1
	$#.opt1stat:EQUB0:.opt4stat:EQUB0
	..osbget
	8EQUB &03 : EQUB &04
	B.osbput
	LEQUB &03 : EQUB &03
	V.osgbpb
	`EQUB &03 : EQUB &02
	j.osfind
	tEQUB &03 : EQUB &01
	~
.osfsc
	�
JMP(&21E)
	�2.poweruphard:LDY#1:PHY:LDArfson:CMP#1:BEQdinit
	�LDA#&81
	�LDY#&FF
	�LDX#&AE
	�JSR&FFF4
	�CPX#&FF
	�BNEexihard
	�
.dinit
	�LDA#1:STArfson
	�JMPinit
	�.exihard:PLY:JMPexit
.osfile

EQUB &03 : EQUB &06

.unknown_command
(	.star
2
LDX #0
<.unk_loop1
FPLY:PHY
P.unk_loop2
Z LDA(&F2),Y:CMP#46:BEQ unk_99
d
� #&DF
nCMP commands2,X
xBNE unk_nextcom
�INX
�INY
�LDA commands2,X
�CMP #13
�BNE unk_loop2
�.unk_98
�LDA commands2+1,X : STA &B3
�LDA commands2+2,X : STA &B4
�PLA:PLA:PLA:PLA:JMP (&B3)
�.unk_99
�INX
�%LDA commands2,X:CMP#13:BNE unk_99
�INY:JMP unk_98
.unk_nextcom
.unk_loop3
LDA commands2,X
"INX
,
CMP#13
6BNE unk_loop3
@INX:INX
JLDA commands2,X
T	CMP#0
^BEQ unk_out
hJMP unk_loop1
r.unk_out
|PLY:PLX:PLA:PLP:RTS
�
�.commands2
�#EQUS "DISC":EQUB 13:EQUW select
�#EQUS "DISK":EQUB 13:EQUW select
�#EQUS "ADFS":EQUB 13:EQUW select
�$EQUS "FADFS":EQUB 13:EQUW select
�EQUS"QUIT":EQUB13:EQUWquit
�!EQUS"DESKTOP":EQUB13:EQUWquit
�"EQUS"SHADOW":EQUB13:EQUWdummy2
�"EQUS"INSERT":EQUB13:EQUWdummy2
�"EQUS"SRLOAD":EQUB13:EQUWsrload
�$EQUS"SRWRITE":EQUB13:EQUWsrwrite
�
EQUB 0

.dummy2

LDA #0
&RTS
0
:.select
DLDA#6:JSRosfsc
NJSRvectors
XLDA#143:LDX#15
bJSR&FFF4:LDA#1:STArfson
l
LDA #0
vRTS
�
�	.uksc
�PHA:PHX:PHY
�
STX&B0
�
STY&B1
�	LDX#0
�.ukscloop1
�	LDY#0
�.ukscloop2
� LDA(&B0),Y:CMP#46:BEQ tout99
�	�#&DF
�CMPcommands,X
�BNE nextcom

INX

INY

LDAcommands,X

 
CMP#13

*BNEukscloop2

4.tout98

>LDAcommands+1,X

H
STA&B3

RLDAcommands+2,X

\
STA&B4

fPLA:PLA:PLA:JMP(&B3)

p.tout99

zINX

�"LDAcommands,X:CMP#13:BNEtout99

�INY:JMPtout98

�.nextcom

�.ukscloop3

�LDAcommands,X

�INX

�
CMP#13

�BNE ukscloop3

�INX:INX

�LDAcommands,X

�	CMP#0

�BEQoutuksc

�JMPukscloop1
.outuksc
PLY:PLX:PLA
EQUB &03 : EQUB &00
$
JMPrun
..access:JMPaccess2
8.backup:RTS
B.compact:RTS
L.dummy:RTS
V.destroy:RTS
`.dir:RTS
j*.quit:LDA #0:EQUB &03 : EQUB &FF : RTS
t.enable:RTS
~.format:RTS
�
.free:RTS
�
.libr:RTS
�.rename:RTS
�
.wipe:RTS
�.title2:RTS
�.access2:RTS
�
.commands
�"EQUS"ACCESS":EQUB13:EQUWaccess
�EQUS"BACK":EQUB13:EQUWback
�"EQUS"BACKUP":EQUB13:EQUWbackup
�$EQUS"COMPACT":EQUB13:EQUWcompact
�EQUS"COPY":EQUB13:EQUWdummy
$EQUS"DESTROY":EQUB13:EQUWdestroy

 EQUS"DRIVE":EQUB13:EQUWdrive
 EQUS"MOUNT":EQUB13:EQUWmount
"EQUS"ENABLE":EQUB13:EQUWenable
( EQUS"FORM":EQUB13:EQUWformat
2!EQUS"RFORM":EQUB13:EQUWformat
<EQUS"FREE":EQUB13:EQUWfree
FEQUS"LIB":EQUB13:EQUWlibr
PEQUS"MAP":EQUB13:EQUWfree
Z"EQUS"RENAME":EQUB13:EQUWrename
d!EQUS"TITLE":EQUB13:EQUWtitle2
n!EQUS"VERIFY":EQUB13:EQUWdummy
xEQUS"WIPE":EQUB13:EQUWwipe
�	EQUB0
�
�.srload
�EQUB &03 : EQUB &D0
�.srwrite
�EQUB &03 : EQUB &D1
�
.drive
�EQUB &03 : EQUB &D2
�
.mount
�EQUB &03 : EQUB &D6
�	.back
�EQUB &03 : EQUB &D5
�;.baddrive:EQUS"Bad drive":EQUD0:EQUD0:.drivestat:EQUB48
�
.cat
LDX #1 : STX block
!LDX #data � 256 : STX block+1
"!LDX #data � 256 : STX block+2
,LDX #255 : STX block+5
64LDX #0 : STX block+6 : STX block+7 : STX block+8
@STX block+3 : STX block+4
J
TSTX block+9
^STX block+10
hSTX block+11
rSTX block+12
|
.cat_loop
�
LDA #9
�LDX #block � 256
�LDY #block � 256
�JSR &FFD1 \ OSGBPB
�
LDA block
�
CMP #0
�BEQ cat_exit
�JSR print_name
�LDA #13 : JSR &FFE3
�BRA cat_loop
�
.cat_exit
�RTS
�
.print_name

LDX #0
.print_loop
&LDA data,X
0INX
:JSR &FFEE \ OSWRCH
DCMP #31
NBCS print_loop
XRTS
b
l\.block
v\EQUB 0 \ 1
�\EQUD 0 \ data
�\EQUD 0 \ 255
�\EQUD 0
�
\.data
�EQUS �30," ")
�.end:]:�
�+�"SAVE VDFS "+�~code+" +"+�~(end-start)
�*SETTYPE VDFS BBC
�

00000000  0d 00 0a 07 f4 20 31 0d  00 14 10 de 20 63 6f 64  |..... 1..... cod|
00000010  65 20 26 31 30 30 30 0d  00 1e 1a 62 6c 6f 63 6b  |e &1000....block|
00000020  3d 26 44 30 30 20 3a 20  64 61 74 61 3d 26 44 30  |=&D00 : data=&D0|
00000030  44 0d 00 28 11 e3 20 70  3d 34 20 b8 20 36 20 88  |D..(.. p=4 . 6 .|
00000040  20 32 0d 00 32 0c 50 25  3d 26 38 30 30 30 0d 00  | 2..2.P%=&8000..|
00000050  3c 0b 4f 25 3d 63 6f 64  65 0d 00 46 09 5b 4f 50  |<.O%=code..F.[OP|
00000060  54 70 0d 00 50 0a 2e 73  74 61 72 74 0d 00 5a 0d  |Tp..P..start..Z.|
00000070  45 51 55 53 22 4d 52 42  22 0d 00 64 0b 4a 4d 50  |EQUS"MRB"..d.JMP|
00000080  73 65 72 76 0d 00 6e 16  45 51 55 42 20 26 38 32  |serv..n.EQUB &82|
00000090  20 5c 20 52 4f 4d 54 59  50 45 0d 00 78 16 45 51  | \ ROMTYPE..x.EQ|
000000a0  55 42 20 63 6f 70 79 72  2d 26 38 30 30 30 2d 31  |UB copyr-&8000-1|
000000b0  0d 00 82 14 45 51 55 42  20 31 20 5c 20 56 45 52  |....EQUB 1 \ VER|
000000c0  53 49 4f 4e 0d 00 8c 15  45 51 55 53 22 56 69 72  |SION....EQUS"Vir|
000000d0  74 75 61 6c 20 44 46 53  22 0d 00 96 09 45 51 55  |tual DFS"....EQU|
000000e0  57 30 0d 00 a0 0a 2e 63  6f 70 79 72 0d 00 aa 1d  |W0.....copyr....|
000000f0  45 51 55 53 22 28 43 29  20 4d 52 42 20 31 39 39  |EQUS"(C) MRB 199|
00000100  35 22 3a 45 51 55 42 20  30 0d 00 b4 0a 45 51 55  |5":EQUB 0....EQU|
00000110  42 20 30 0d 00 be 19 45  51 55 53 20 22 30 2e 30  |B 0....EQUS "0.0|
00000120  31 22 20 5c 20 56 45 52  53 49 4f 4e 0d 00 c8 0a  |1" \ VERSION....|
00000130  45 51 55 42 20 30 0d 00  d2 20 45 51 55 44 20 30  |EQUB 0... EQUD 0|
00000140  3a 45 51 55 44 20 30 20  5c 20 54 55 42 45 20 41  |:EQUD 0 \ TUBE A|
00000150  44 44 52 45 53 53 0d 00  dc 09 2e 73 65 72 76 0d  |DDRESS.....serv.|
00000160  00 e6 07 50 48 50 0d 00  f0 07 50 48 41 0d 00 fa  |...PHP....PHA...|
00000170  07 50 48 58 0d 01 04 07  50 48 59 0d 01 0e 07 54  |.PHX....PHY....T|
00000180  53 58 0d 01 18 0d 4c 44  41 26 31 30 33 2c 58 0d  |SX....LDA&103,X.|
00000190  01 22 0b 43 4d 50 23 26  30 34 0d 01 2c 1c 42 45  |.".CMP#&04..,.BE|
000001a0  51 20 73 74 61 72 63 6d  64 20 5c 20 2a 20 43 4f  |Q starcmd \ * CO|
000001b0  4d 4d 41 4e 44 53 0d 01  36 0b 43 4d 50 23 26 30  |MMANDS..6.CMP#&0|
000001c0  39 0d 01 40 14 42 45 51  20 68 65 6c 70 20 5c 20  |9..@.BEQ help \ |
000001d0  2a 48 45 4c 50 0d 01 4a  0b 43 4d 50 23 26 32 37  |*HELP..J.CMP#&27|
000001e0  0d 01 54 11 42 45 51 20  72 65 73 65 74 68 61 72  |..T.BEQ resethar|
000001f0  64 0d 01 5e 0b 43 4d 50  23 26 30 33 0d 01 68 15  |d..^.CMP#&03..h.|
00000200  42 45 51 20 72 65 73 65  74 20 5c 20 42 52 45 41  |BEQ reset \ BREA|
00000210  4b 0d 01 72 0b 43 4d 50  23 26 30 46 0d 01 7c 20  |K..r.CMP#&0F..| |
00000220  42 45 51 20 70 6f 77 65  72 64 6f 77 6e 20 5c 20  |BEQ powerdown \ |
00000230  43 48 41 4e 47 45 20 4f  46 20 46 53 0d 01 86 0b  |CHANGE OF FS....|
00000240  43 4d 50 23 26 31 30 0d  01 90 11 42 45 51 20 73  |CMP#&10....BEQ s|
00000250  70 6f 6f 6c 65 78 65 63  0d 01 9a 0b 43 4d 50 23  |poolexec....CMP#|
00000260  26 31 32 0d 01 a4 10 42  45 51 20 72 65 73 74 61  |&12....BEQ resta|
00000270  72 74 31 0d 01 ae 0b 43  4d 50 23 26 32 35 0d 01  |rt1....CMP#&25..|
00000280  b8 0e 42 45 51 20 66 73  69 6e 66 6f 0d 01 c2 0b  |..BEQ fsinfo....|
00000290  43 4d 50 23 26 32 36 0d  01 cc 11 42 45 51 20 73  |CMP#&26....BEQ s|
000002a0  70 6f 6f 6c 65 78 65 63  0d 01 d6 0b 43 4d 50 23  |poolexec....CMP#|
000002b0  26 30 38 0d 01 e0 22 42  45 51 20 75 6e 6b 6f 73  |&08..."BEQ unkos|
000002c0  77 6f 72 64 20 5c 20 55  6e 6b 6e 6f 77 6e 20 4f  |word \ Unknown O|
000002d0  53 57 4f 52 44 0d 01 ea  0c 5c 43 4d 50 23 26 30  |SWORD....\CMP#&0|
000002e0  37 0d 01 f4 23 5c 42 45  51 20 75 6e 6b 6f 73 62  |7...#\BEQ unkosb|
000002f0  79 74 65 20 5c 20 55 6e  6b 6e 6f 77 6e 20 4f 53  |yte \ Unknown OS|
00000300  42 59 54 45 0d 01 fe 0c  5c 43 4d 50 23 26 32 34  |BYTE....\CMP#&24|
00000310  0d 02 08 10 5c 42 45 51  20 77 6f 72 6b 72 65 71  |....\BEQ workreq|
00000320  0d 02 12 0c 5c 43 4d 50  23 26 32 32 0d 02 1c 14  |....\CMP#&22....|
00000330  5c 42 45 51 20 63 6c 61  69 6d 64 79 6e 68 61 7a  |\BEQ claimdynhaz|
00000340  0d 02 26 09 2e 65 78 69  74 0d 02 30 07 50 4c 59  |..&..exit..0.PLY|
00000350  0d 02 3a 07 50 4c 58 0d  02 44 07 50 4c 41 0d 02  |..:.PLX..D.PLA..|
00000360  4e 07 50 4c 50 0d 02 58  07 52 54 53 0d 02 62 04  |N.PLP..X.RTS..b.|
00000370  0d 02 6c 0e 2e 75 6e 6b  6f 73 77 6f 72 64 0d 02  |..l..unkosword..|
00000380  76 13 50 4c 59 3a 50 4c  58 3a 50 4c 41 3a 50 4c  |v.PLY:PLX:PLA:PL|
00000390  50 0d 02 80 17 45 51 55  42 20 26 30 33 20 3a 20  |P....EQUB &03 : |
000003a0  45 51 55 42 20 26 34 30  0d 02 8a 04 0d 02 94 0e  |EQUB &40........|
000003b0  2e 75 6e 6b 6f 73 62 79  74 65 0d 02 9e 13 50 4c  |.unkosbyte....PL|
000003c0  59 3a 50 4c 58 3a 50 4c  41 3a 50 4c 50 0d 02 a8  |Y:PLX:PLA:PLP...|
000003d0  17 45 51 55 42 20 26 30  33 20 3a 20 45 51 55 42  |.EQUB &03 : EQUB|
000003e0  20 26 34 31 0d 02 b2 04  0d 02 bc 0c 2e 63 6c 61  | &41.........cla|
000003f0  69 6d 65 64 0d 02 c6 17  4c 44 41 23 30 3a 54 53  |imed....LDA#0:TS|
00000400  58 3a 53 54 41 26 31 30  33 2c 58 0d 02 d0 0b 4a  |X:STA&103,X....J|
00000410  4d 50 65 78 69 74 0d 02  da 0c 2e 73 74 61 72 63  |MPexit.....starc|
00000420  6d 64 0d 02 e4 0c 4a 4d  50 20 73 74 61 72 0d 02  |md....JMP star..|
00000430  ee 09 2e 68 65 6c 70 0d  02 f8 15 4a 53 52 20 68  |...help....JSR h|
00000440  65 6c 70 32 3a 4a 4d 50  65 78 69 74 0d 03 02 0a  |elp2:JMPexit....|
00000450  2e 72 65 73 65 74 0d 03  0c 0f 4a 4d 50 20 70 6f  |.reset....JMP po|
00000460  77 65 72 75 70 0d 03 16  1d 2e 72 65 73 65 74 68  |werup.....reseth|
00000470  61 72 64 3a 4a 4d 50 70  6f 77 65 72 75 70 68 61  |ard:JMPpowerupha|
00000480  72 64 0d 03 20 0e 2e 70  6f 77 65 72 64 6f 77 6e  |rd.. ..powerdown|
00000490  0d 03 2a 0e 4a 4d 50 20  64 65 69 6e 69 74 0d 03  |..*.JMP deinit..|
000004a0  34 0e 2e 73 70 6f 6f 6c  65 78 65 63 0d 03 3e 0d  |4..spoolexec..>.|
000004b0  4a 4d 50 20 63 6c 6f 73  65 0d 03 48 0d 2e 72 65  |JMP close..H..re|
000004c0  73 74 61 72 74 31 0d 03  52 0f 4a 4d 50 20 72 65  |start1..R.JMP re|
000004d0  73 74 61 72 74 0d 03 5c  0b 2e 66 73 69 6e 66 6f  |start..\..fsinfo|
000004e0  0d 03 66 0e 4a 4d 50 20  6f 73 69 6e 66 6f 0d 03  |..f.JMP osinfo..|
000004f0  70 0a 2e 68 65 6c 70 32  0d 03 7a 09 4c 44 58 23  |p..help2..z.LDX#|
00000500  30 0d 03 84 09 2e 6c 6f  6f 70 0d 03 8e 12 4c 44  |0.....loop....LD|
00000510  41 20 68 65 6c 70 6d 65  73 73 2c 58 0d 03 98 0c  |A helpmess,X....|
00000520  4a 53 52 26 46 46 45 45  0d 03 a2 07 49 4e 58 0d  |JSR&FFEE....INX.|
00000530  03 ac 09 43 4d 50 23 30  0d 03 b6 0c 42 4e 45 20  |...CMP#0....BNE |
00000540  6c 6f 6f 70 0d 03 c0 07  52 54 53 0d 03 ca 0d 2e  |loop....RTS.....|
00000550  68 65 6c 70 6d 65 73 73  0d 03 d4 31 45 51 55 42  |helpmess...1EQUB|
00000560  31 30 3a 45 51 55 42 31  33 3a 45 51 55 53 22 56  |10:EQUB13:EQUS"V|
00000570  69 72 74 75 61 6c 20 44  46 53 22 3a 45 51 55 42  |irtual DFS":EQUB|
00000580  31 30 3a 45 51 55 42 31  33 0d 03 de 09 45 51 55  |10:EQUB13....EQU|
00000590  42 30 0d 03 e8 0b 2e 64  65 69 6e 69 74 0d 03 f2  |B0.....deinit...|
000005a0  0c 53 54 5a 72 66 73 6f  6e 0d 03 fc 0b 4a 4d 50  |.STZrfson....JMP|
000005b0  65 78 69 74 0d 04 06 0a  2e 63 6c 6f 73 65 0d 04  |exit.....close..|
000005c0  10 0b 4a 4d 50 65 78 69  74 0d 04 1a 0c 2e 72 65  |..JMPexit.....re|
000005d0  73 74 61 72 74 0d 04 24  0b 43 50 59 23 26 31 31  |start..$.CPY#&11|
000005e0  0d 04 2e 10 42 4e 45 72  65 73 74 61 72 74 65 78  |....BNErestartex|
000005f0  0d 04 38 12 4c 44 41 23  36 3a 4a 53 52 6f 73 66  |..8.LDA#6:JSRosf|
00000600  73 63 0d 04 42 0e 4a 53  52 76 65 63 74 6f 72 73  |sc..B.JSRvectors|
00000610  0d 04 4c 12 4c 44 41 23  31 34 33 3a 4c 44 58 23  |..L.LDA#143:LDX#|
00000620  31 35 0d 04 56 1b 4a 53  52 26 46 46 46 34 3a 4c  |15..V.JSR&FFF4:L|
00000630  44 41 23 31 3a 53 54 41  72 66 73 6f 6e 0d 04 60  |DA#1:STArfson..`|
00000640  0e 4a 4d 50 63 6c 61 69  6d 65 64 0d 04 6a 0e 2e  |.JMPclaimed..j..|
00000650  72 65 73 74 61 72 74 65  78 0d 04 74 0b 4a 4d 50  |restartex..t.JMP|
00000660  65 78 69 74 0d 04 7e 0b  2e 6f 73 69 6e 66 6f 0d  |exit..~..osinfo.|
00000670  04 88 0b 4a 4d 50 65 78  69 74 0d 04 92 0c 2e 76  |...JMPexit.....v|
00000680  65 63 74 6f 72 73 0d 04  9c 0c 4c 44 41 20 23 26  |ectors....LDA #&|
00000690  46 46 0d 04 a6 42 53 54  41 20 26 32 31 33 3a 53  |FF...BSTA &213:S|
000006a0  54 41 20 26 32 31 35 3a  53 54 41 20 26 32 31 37  |TA &215:STA &217|
000006b0  3a 53 54 41 20 26 32 31  39 3a 53 54 41 20 26 32  |:STA &219:STA &2|
000006c0  31 42 3a 53 54 41 20 26  32 31 44 3a 53 54 41 20  |1B:STA &21D:STA |
000006d0  26 32 31 46 0d 04 b0 15  4c 44 41 20 23 26 31 42  |&21F....LDA #&1B|
000006e0  3a 53 54 41 20 26 32 31  32 0d 04 ba 15 4c 44 41  |:STA &212....LDA|
000006f0  20 23 26 31 45 3a 53 54  41 20 26 32 31 34 0d 04  | #&1E:STA &214..|
00000700  c4 15 4c 44 41 20 23 26  32 31 3a 53 54 41 20 26  |..LDA #&21:STA &|
00000710  32 31 36 0d 04 ce 15 4c  44 41 20 23 26 32 34 3a  |216....LDA #&24:|
00000720  53 54 41 20 26 32 31 38  0d 04 d8 15 4c 44 41 20  |STA &218....LDA |
00000730  23 26 32 37 3a 53 54 41  20 26 32 31 41 0d 04 e2  |#&27:STA &21A...|
00000740  15 4c 44 41 20 23 26 32  41 3a 53 54 41 20 26 32  |.LDA #&2A:STA &2|
00000750  31 43 0d 04 ec 15 4c 44  41 20 23 26 32 44 3a 53  |1C....LDA #&2D:S|
00000760  54 41 20 26 32 31 45 0d  04 f6 04 0d 05 00 14 4c  |TA &21E........L|
00000770  44 41 23 6f 73 66 69 6c  65 20 83 20 32 35 36 0d  |DA#osfile . 256.|
00000780  05 0a 0f 53 54 41 26 44  39 46 2b 26 31 42 0d 05  |...STA&D9F+&1B..|
00000790  14 14 4c 44 41 23 6f 73  66 69 6c 65 20 81 20 32  |..LDA#osfile . 2|
000007a0  35 36 0d 05 1e 0f 53 54  41 26 44 39 46 2b 26 31  |56....STA&D9F+&1|
000007b0  43 0d 05 28 0a 4c 44 41  26 46 34 0d 05 32 0f 53  |C..(.LDA&F4..2.S|
000007c0  54 41 26 44 39 46 2b 26  31 44 0d 05 3c 0f 53 54  |TA&D9F+&1D..<.ST|
000007d0  41 26 44 39 46 2b 26 32  30 0d 05 46 0f 53 54 41  |A&D9F+&20..F.STA|
000007e0  26 44 39 46 2b 26 32 33  0d 05 50 0f 53 54 41 26  |&D9F+&23..P.STA&|
000007f0  44 39 46 2b 26 32 36 0d  05 5a 0f 53 54 41 26 44  |D9F+&26..Z.STA&D|
00000800  39 46 2b 26 32 39 0d 05  64 0f 53 54 41 26 44 39  |9F+&29..d.STA&D9|
00000810  46 2b 26 32 43 0d 05 6e  0f 53 54 41 26 44 39 46  |F+&2C..n.STA&D9F|
00000820  2b 26 32 46 0d 05 78 14  4c 44 41 23 6f 73 61 72  |+&2F..x.LDA#osar|
00000830  67 73 20 83 20 32 35 36  0d 05 82 0f 53 54 41 26  |gs . 256....STA&|
00000840  44 39 46 2b 26 31 45 0d  05 8c 14 4c 44 41 23 6f  |D9F+&1E....LDA#o|
00000850  73 61 72 67 73 20 81 20  32 35 36 0d 05 96 0f 53  |sargs . 256....S|
00000860  54 41 26 44 39 46 2b 26  31 46 0d 05 a0 14 4c 44  |TA&D9F+&1F....LD|
00000870  41 23 6f 73 62 67 65 74  20 83 20 32 35 36 0d 05  |A#osbget . 256..|
00000880  aa 0f 53 54 41 26 44 39  46 2b 26 32 31 0d 05 b4  |..STA&D9F+&21...|
00000890  14 4c 44 41 23 6f 73 62  67 65 74 20 81 20 32 35  |.LDA#osbget . 25|
000008a0  36 0d 05 be 0f 53 54 41  26 44 39 46 2b 26 32 32  |6....STA&D9F+&22|
000008b0  0d 05 c8 14 4c 44 41 23  6f 73 62 70 75 74 20 83  |....LDA#osbput .|
000008c0  20 32 35 36 0d 05 d2 0f  53 54 41 26 44 39 46 2b  | 256....STA&D9F+|
000008d0  26 32 34 0d 05 dc 14 4c  44 41 23 6f 73 62 70 75  |&24....LDA#osbpu|
000008e0  74 20 81 20 32 35 36 0d  05 e6 0f 53 54 41 26 44  |t . 256....STA&D|
000008f0  39 46 2b 26 32 35 0d 05  f0 14 4c 44 41 23 6f 73  |9F+&25....LDA#os|
00000900  67 62 70 62 20 81 20 32  35 36 0d 05 fa 0f 53 54  |gbpb . 256....ST|
00000910  41 26 44 39 46 2b 26 32  38 0d 06 04 14 4c 44 41  |A&D9F+&28....LDA|
00000920  23 6f 73 67 62 70 62 20  83 20 32 35 36 0d 06 0e  |#osgbpb . 256...|
00000930  0f 53 54 41 26 44 39 46  2b 26 32 37 0d 06 18 14  |.STA&D9F+&27....|
00000940  4c 44 41 23 6f 73 66 69  6e 64 20 83 20 32 35 36  |LDA#osfind . 256|
00000950  0d 06 22 0f 53 54 41 26  44 39 46 2b 26 32 41 0d  |..".STA&D9F+&2A.|
00000960  06 2c 14 4c 44 41 23 6f  73 66 69 6e 64 20 81 20  |.,.LDA#osfind . |
00000970  32 35 36 0d 06 36 0f 53  54 41 26 44 39 46 2b 26  |256..6.STA&D9F+&|
00000980  32 42 0d 06 40 14 4c 44  41 23 6f 73 66 73 63 32  |2B..@.LDA#osfsc2|
00000990  20 83 20 32 35 36 0d 06  4a 0f 53 54 41 26 44 39  | . 256..J.STA&D9|
000009a0  46 2b 26 32 44 0d 06 54  14 4c 44 41 23 6f 73 66  |F+&2D..T.LDA#osf|
000009b0  73 63 32 20 81 20 32 35  36 0d 06 5e 0f 53 54 41  |sc2 . 256..^.STA|
000009c0  26 44 39 46 2b 26 32 45  0d 06 68 07 52 54 53 0d  |&D9F+&2E..h.RTS.|
000009d0  06 72 0c 2e 70 6f 77 65  72 75 70 0d 06 7c 1f 50  |.r..powerup..|.P|
000009e0  48 59 3a 4c 44 41 72 66  73 6f 6e 3a 43 4d 50 23  |HY:LDArfson:CMP#|
000009f0  31 3a 42 45 51 63 69 6e  69 74 0d 06 86 0b 4c 44  |1:BEQcinit....LD|
00000a00  41 23 26 37 41 0d 06 90  0c 4a 53 52 26 46 46 46  |A#&7A....JSR&FFF|
00000a10  34 0d 06 9a 17 43 50 58  23 26 46 46 20 3a 20 42  |4....CPX#&FF : B|
00000a20  45 51 20 63 69 6e 69 74  0d 06 a4 17 43 50 58 23  |EQ cinit....CPX#|
00000a30  26 35 31 20 3a 20 42 45  51 20 63 69 6e 69 74 0d  |&51 : BEQ cinit.|
00000a40  06 ae 07 50 4c 59 0d 06  b8 0b 4a 4d 50 65 78 69  |...PLY....JMPexi|
00000a50  74 0d 06 c2 0a 2e 63 69  6e 69 74 0d 06 cc 09 4c  |t.....cinit....L|
00000a60  44 58 23 30 0d 06 d6 0e  2e 69 6e 69 74 6c 6f 6f  |DX#0.....initloo|
00000a70  70 31 0d 06 e0 13 4c 44  41 20 62 72 65 61 6b 6d  |p1....LDA breakm|
00000a80  65 73 73 2c 58 0d 06 ea  10 4a 53 52 26 46 46 45  |ess,X....JSR&FFE|
00000a90  33 3a 49 4e 58 0d 06 f4  0a 43 4d 50 23 31 33 0d  |3:INX....CMP#13.|
00000aa0  06 fe 10 42 4e 45 69 6e  69 74 6c 6f 6f 70 31 0d  |...BNEinitloop1.|
00000ab0  07 08 09 2e 69 6e 69 74  0d 07 12 22 4c 44 41 23  |....init..."LDA#|
00000ac0  31 34 33 3a 4c 44 58 23  31 38 3a 4c 44 59 23 31  |143:LDX#18:LDY#1|
00000ad0  37 3a 4a 53 52 26 46 46  46 34 0d 07 1c 07 50 4c  |7:JSR&FFF4....PL|
00000ae0  59 0d 07 26 09 43 50 59  23 30 0d 07 30 0c 42 45  |Y..&.CPY#0..0.BE|
00000af0  51 20 62 6f 6f 74 0d 07  3a 0e 4a 4d 50 63 6c 61  |Q boot..:.JMPcla|
00000b00  69 6d 65 64 0d 07 44 09  2e 62 6f 6f 74 0d 07 4e  |imed..D..boot..N|
00000b10  0d 4a 53 52 20 62 6f 6f  74 32 0d 07 58 0e 4a 4d  |.JSR boot2..X.JM|
00000b20  50 63 6c 61 69 6d 65 64  0d 07 62 65 2e 6c 6f 61  |Pclaimed..be.loa|
00000b30  64 62 6f 6f 74 3a 4c 44  58 23 70 6c 62 6f 6f 74  |dboot:LDX#plboot|
00000b40  20 83 20 32 35 36 3a 4c  44 59 23 70 6c 62 6f 6f  | . 256:LDY#plboo|
00000b50  74 20 81 20 32 35 36 3a  4a 53 52 26 46 46 46 37  |t . 256:JSR&FFF7|
00000b60  3a 4a 4d 50 63 6c 61 69  6d 65 64 3a 2e 6c 6f 70  |:JMPclaimed:.lop|
00000b70  6c 62 6f 6f 74 3a 45 51  55 53 22 4c 4f 41 44 20  |lboot:EQUS"LOAD |
00000b80  21 42 4f 4f 54 22 3a 45  51 55 42 31 33 0d 07 6c  |!BOOT":EQUB13..l|
00000b90  5d 2e 72 75 6e 62 6f 6f  74 3a 4c 44 58 23 70 6c  |].runboot:LDX#pl|
00000ba0  62 6f 6f 74 20 83 20 32  35 36 3a 4c 44 59 23 70  |boot . 256:LDY#p|
00000bb0  6c 62 6f 6f 74 20 81 20  32 35 36 3a 5c 4a 53 52  |lboot . 256:\JSR|
00000bc0  72 75 6e 32 3a 4a 4d 50  63 6c 61 69 6d 65 64 3a  |run2:JMPclaimed:|
00000bd0  2e 70 6c 62 6f 6f 74 3a  45 51 55 53 22 21 42 4f  |.plboot:EQUS"!BO|
00000be0  4f 54 22 3a 45 51 55 42  31 33 0d 07 76 18 2e 65  |OT":EQUB13..v..e|
00000bf0  78 65 63 62 6f 6f 74 3a  4a 4d 50 63 6c 61 69 6d  |xecboot:JMPclaim|
00000c00  65 64 0d 07 80 0a 2e 62  6f 6f 74 32 0d 07 8a 17  |ed.....boot2....|
00000c10  45 51 55 42 20 26 30 33  20 3a 20 45 51 55 42 20  |EQUB &03 : EQUB |
00000c20  26 44 33 0d 07 94 0b 2e  6f 73 69 6e 66 6f 0d 07  |&D3.....osinfo..|
00000c30  9e 09 4c 44 58 23 30 0d  07 a8 0a 2e 6e 6c 6f 6f  |..LDX#0.....nloo|
00000c40  70 0d 07 b2 0f 4c 44 41  66 73 6e 61 6d 65 2c 58  |p....LDAfsname,X|
00000c50  0d 07 bc 0e 53 54 41 28  26 46 32 29 2c 59 0d 07  |....STA(&F2),Y..|
00000c60  c6 07 49 4e 59 0d 07 d0  07 49 4e 58 0d 07 da 09  |..INY....INX....|
00000c70  43 50 58 23 38 0d 07 e4  0c 42 4e 45 6e 6c 6f 6f  |CPX#8....BNEnloo|
00000c80  70 0d 07 ee 09 4c 44 41  23 30 0d 07 f8 0e 53 54  |p....LDA#0....ST|
00000c90  41 28 26 46 32 29 2c 59  0d 08 02 07 49 4e 59 0d  |A(&F2),Y....INY.|
00000ca0  08 0c 0a 4c 44 41 23 31  30 0d 08 16 0e 53 54 41  |...LDA#10....STA|
00000cb0  28 26 46 32 29 2c 59 0d  08 20 07 49 4e 59 0d 08  |(&F2),Y.. .INY..|
00000cc0  2a 0b 4c 44 41 23 26 31  31 0d 08 34 0e 53 54 41  |*.LDA#&11..4.STA|
00000cd0  28 26 46 32 29 2c 59 0d  08 3e 07 49 4e 59 0d 08  |(&F2),Y..>.INY..|
00000ce0  48 0b 50 4c 41 3a 50 48  59 0d 08 52 0c 4a 4d 50  |H.PLA:PHY..R.JMP|
00000cf0  20 65 78 69 74 0d 08 5c  0b 2e 66 73 6e 61 6d 65  | exit..\..fsname|
00000d00  0d 08 66 12 45 51 55 53  22 52 46 53 20 20 20 20  |..f.EQUS"RFS    |
00000d10  20 22 0d 08 70 0b 2e 6f  73 61 72 67 73 0d 08 7a  | "..p..osargs..z|
00000d20  17 45 51 55 42 20 26 30  33 20 3a 20 45 51 55 42  |.EQUB &03 : EQUB|
00000d30  20 26 30 35 0d 08 84 04  0d 08 8e 0c 2e 72 75 6e  | &05.........run|
00000d40  3a 52 54 53 0d 08 98 0b  2e 6f 73 66 73 63 32 0d  |:RTS.....osfsc2.|
00000d50  08 a2 14 43 4d 50 20 23  38 20 3a 20 42 45 51 20  |...CMP #8 : BEQ |
00000d60  72 75 6e 0d 08 ac 11 43  4d 50 20 23 35 20 3b 20  |run....CMP #5 ; |
00000d70  2a 43 41 54 0d 08 b6 10  42 4e 45 20 63 61 74 5f  |*CAT....BNE cat_|
00000d80  63 6f 6e 74 0d 08 c0 0b  4a 4d 50 20 63 61 74 0d  |cont....JMP cat.|
00000d90  08 ca 0d 2e 63 61 74 5f  63 6f 6e 74 0d 08 d4 09  |....cat_cont....|
00000da0  43 4d 50 23 33 0d 08 de  1f 42 4e 45 75 6b 73 63  |CMP#3....BNEuksc|
00000db0  6f 6e 74 3a 4a 4d 50 75  6b 73 63 3a 2e 75 6b 73  |ont:JMPuksc:.uks|
00000dc0  63 6f 6e 74 0d 08 e8 17  45 51 55 42 20 26 30 33  |cont....EQUB &03|
00000dd0  20 3a 20 45 51 55 42 20  26 30 30 0d 08 f2 2e 2e  | : EQUB &00.....|
00000de0  62 72 65 61 6b 6d 65 73  73 3a 45 51 55 53 22 56  |breakmess:EQUS"V|
00000df0  69 72 74 75 61 6c 20 44  46 53 22 3a 45 51 55 42  |irtual DFS":EQUB|
00000e00  31 30 3a 45 51 55 42 31  33 0d 08 fc 10 2e 72 66  |10:EQUB13.....rf|
00000e10  73 6f 6e 3a 45 51 55 42  30 0d 09 06 2c 2e 66 69  |son:EQUB0...,.fi|
00000e20  6c 65 6e 6f 74 66 6f 75  6e 64 3a 45 51 55 53 22  |lenotfound:EQUS"|
00000e30  46 69 6c 65 20 6e 6f 74  20 66 6f 75 6e 64 22 3a  |File not found":|
00000e40  45 51 55 44 30 0d 09 10  0e 2e 6e 6f 6f 66 66 69  |EQUD0.....nooffi|
00000e50  6c 65 73 0d 09 1a 09 45  51 55 42 31 0d 09 24 23  |les....EQUB1..$#|
00000e60  2e 6f 70 74 31 73 74 61  74 3a 45 51 55 42 30 3a  |.opt1stat:EQUB0:|
00000e70  2e 6f 70 74 34 73 74 61  74 3a 45 51 55 42 30 0d  |.opt4stat:EQUB0.|
00000e80  09 2e 0b 2e 6f 73 62 67  65 74 0d 09 38 17 45 51  |....osbget..8.EQ|
00000e90  55 42 20 26 30 33 20 3a  20 45 51 55 42 20 26 30  |UB &03 : EQUB &0|
00000ea0  34 0d 09 42 0b 2e 6f 73  62 70 75 74 0d 09 4c 17  |4..B..osbput..L.|
00000eb0  45 51 55 42 20 26 30 33  20 3a 20 45 51 55 42 20  |EQUB &03 : EQUB |
00000ec0  26 30 33 0d 09 56 0b 2e  6f 73 67 62 70 62 0d 09  |&03..V..osgbpb..|
00000ed0  60 17 45 51 55 42 20 26  30 33 20 3a 20 45 51 55  |`.EQUB &03 : EQU|
00000ee0  42 20 26 30 32 0d 09 6a  0b 2e 6f 73 66 69 6e 64  |B &02..j..osfind|
00000ef0  0d 09 74 17 45 51 55 42  20 26 30 33 20 3a 20 45  |..t.EQUB &03 : E|
00000f00  51 55 42 20 26 30 31 0d  09 7e 0a 2e 6f 73 66 73  |QUB &01..~..osfs|
00000f10  63 0d 09 88 0d 4a 4d 50  28 26 32 31 45 29 0d 09  |c....JMP(&21E)..|
00000f20  92 32 2e 70 6f 77 65 72  75 70 68 61 72 64 3a 4c  |.2.poweruphard:L|
00000f30  44 59 23 31 3a 50 48 59  3a 4c 44 41 72 66 73 6f  |DY#1:PHY:LDArfso|
00000f40  6e 3a 43 4d 50 23 31 3a  42 45 51 64 69 6e 69 74  |n:CMP#1:BEQdinit|
00000f50  0d 09 9c 0b 4c 44 41 23  26 38 31 0d 09 a6 0b 4c  |....LDA#&81....L|
00000f60  44 59 23 26 46 46 0d 09  b0 0b 4c 44 58 23 26 41  |DY#&FF....LDX#&A|
00000f70  45 0d 09 ba 0c 4a 53 52  26 46 46 46 34 0d 09 c4  |E....JSR&FFF4...|
00000f80  0b 43 50 58 23 26 46 46  0d 09 ce 0e 42 4e 45 65  |.CPX#&FF....BNEe|
00000f90  78 69 68 61 72 64 0d 09  d8 0a 2e 64 69 6e 69 74  |xihard.....dinit|
00000fa0  0d 09 e2 12 4c 44 41 23  31 3a 53 54 41 72 66 73  |....LDA#1:STArfs|
00000fb0  6f 6e 0d 09 ec 0b 4a 4d  50 69 6e 69 74 0d 09 f6  |on....JMPinit...|
00000fc0  18 2e 65 78 69 68 61 72  64 3a 50 4c 59 3a 4a 4d  |..exihard:PLY:JM|
00000fd0  50 65 78 69 74 0d 0a 00  0b 2e 6f 73 66 69 6c 65  |Pexit.....osfile|
00000fe0  0d 0a 0a 17 45 51 55 42  20 26 30 33 20 3a 20 45  |....EQUB &03 : E|
00000ff0  51 55 42 20 26 30 36 0d  0a 14 04 0d 0a 1e 14 2e  |QUB &06.........|
00001000  75 6e 6b 6e 6f 77 6e 5f  63 6f 6d 6d 61 6e 64 0d  |unknown_command.|
00001010  0a 28 09 2e 73 74 61 72  0d 0a 32 0a 4c 44 58 20  |.(..star..2.LDX |
00001020  23 30 0d 0a 3c 0e 2e 75  6e 6b 5f 6c 6f 6f 70 31  |#0..<..unk_loop1|
00001030  0d 0a 46 0b 50 4c 59 3a  50 48 59 0d 0a 50 0e 2e  |..F.PLY:PHY..P..|
00001040  75 6e 6b 5f 6c 6f 6f 70  32 0d 0a 5a 20 4c 44 41  |unk_loop2..Z LDA|
00001050  28 26 46 32 29 2c 59 3a  43 4d 50 23 34 36 3a 42  |(&F2),Y:CMP#46:B|
00001060  45 51 20 75 6e 6b 5f 39  39 0d 0a 64 0a 80 20 23  |EQ unk_99..d.. #|
00001070  26 44 46 0d 0a 6e 13 43  4d 50 20 63 6f 6d 6d 61  |&DF..n.CMP comma|
00001080  6e 64 73 32 2c 58 0d 0a  78 13 42 4e 45 20 75 6e  |nds2,X..x.BNE un|
00001090  6b 5f 6e 65 78 74 63 6f  6d 0d 0a 82 07 49 4e 58  |k_nextcom....INX|
000010a0  0d 0a 8c 07 49 4e 59 0d  0a 96 13 4c 44 41 20 63  |....INY....LDA c|
000010b0  6f 6d 6d 61 6e 64 73 32  2c 58 0d 0a a0 0b 43 4d  |ommands2,X....CM|
000010c0  50 20 23 31 33 0d 0a aa  11 42 4e 45 20 75 6e 6b  |P #13....BNE unk|
000010d0  5f 6c 6f 6f 70 32 0d 0a  b4 0b 2e 75 6e 6b 5f 39  |_loop2.....unk_9|
000010e0  38 0d 0a be 1f 4c 44 41  20 63 6f 6d 6d 61 6e 64  |8....LDA command|
000010f0  73 32 2b 31 2c 58 20 3a  20 53 54 41 20 26 42 33  |s2+1,X : STA &B3|
00001100  0d 0a c8 1f 4c 44 41 20  63 6f 6d 6d 61 6e 64 73  |....LDA commands|
00001110  32 2b 32 2c 58 20 3a 20  53 54 41 20 26 42 34 0d  |2+2,X : STA &B4.|
00001120  0a d2 1d 50 4c 41 3a 50  4c 41 3a 50 4c 41 3a 50  |...PLA:PLA:PLA:P|
00001130  4c 41 3a 4a 4d 50 20 28  26 42 33 29 0d 0a dc 0b  |LA:JMP (&B3)....|
00001140  2e 75 6e 6b 5f 39 39 0d  0a e6 07 49 4e 58 0d 0a  |.unk_99....INX..|
00001150  f0 25 4c 44 41 20 63 6f  6d 6d 61 6e 64 73 32 2c  |.%LDA commands2,|
00001160  58 3a 43 4d 50 23 31 33  3a 42 4e 45 20 75 6e 6b  |X:CMP#13:BNE unk|
00001170  5f 39 39 0d 0a fa 12 49  4e 59 3a 4a 4d 50 20 75  |_99....INY:JMP u|
00001180  6e 6b 5f 39 38 0d 0b 04  10 2e 75 6e 6b 5f 6e 65  |nk_98.....unk_ne|
00001190  78 74 63 6f 6d 0d 0b 0e  0e 2e 75 6e 6b 5f 6c 6f  |xtcom.....unk_lo|
000011a0  6f 70 33 0d 0b 18 13 4c  44 41 20 63 6f 6d 6d 61  |op3....LDA comma|
000011b0  6e 64 73 32 2c 58 0d 0b  22 07 49 4e 58 0d 0b 2c  |nds2,X..".INX..,|
000011c0  0a 43 4d 50 23 31 33 0d  0b 36 11 42 4e 45 20 75  |.CMP#13..6.BNE u|
000011d0  6e 6b 5f 6c 6f 6f 70 33  0d 0b 40 0b 49 4e 58 3a  |nk_loop3..@.INX:|
000011e0  49 4e 58 0d 0b 4a 13 4c  44 41 20 63 6f 6d 6d 61  |INX..J.LDA comma|
000011f0  6e 64 73 32 2c 58 0d 0b  54 09 43 4d 50 23 30 0d  |nds2,X..T.CMP#0.|
00001200  0b 5e 0f 42 45 51 20 75  6e 6b 5f 6f 75 74 0d 0b  |.^.BEQ unk_out..|
00001210  68 11 4a 4d 50 20 75 6e  6b 5f 6c 6f 6f 70 31 0d  |h.JMP unk_loop1.|
00001220  0b 72 0c 2e 75 6e 6b 5f  6f 75 74 0d 0b 7c 17 50  |.r..unk_out..|.P|
00001230  4c 59 3a 50 4c 58 3a 50  4c 41 3a 50 4c 50 3a 52  |LY:PLX:PLA:PLP:R|
00001240  54 53 0d 0b 86 04 0d 0b  90 0e 2e 63 6f 6d 6d 61  |TS.........comma|
00001250  6e 64 73 32 0d 0b 9a 23  45 51 55 53 20 22 44 49  |nds2...#EQUS "DI|
00001260  53 43 22 3a 45 51 55 42  20 31 33 3a 45 51 55 57  |SC":EQUB 13:EQUW|
00001270  20 73 65 6c 65 63 74 0d  0b a4 23 45 51 55 53 20  | select...#EQUS |
00001280  22 44 49 53 4b 22 3a 45  51 55 42 20 31 33 3a 45  |"DISK":EQUB 13:E|
00001290  51 55 57 20 73 65 6c 65  63 74 0d 0b ae 23 45 51  |QUW select...#EQ|
000012a0  55 53 20 22 41 44 46 53  22 3a 45 51 55 42 20 31  |US "ADFS":EQUB 1|
000012b0  33 3a 45 51 55 57 20 73  65 6c 65 63 74 0d 0b b8  |3:EQUW select...|
000012c0  24 45 51 55 53 20 22 46  41 44 46 53 22 3a 45 51  |$EQUS "FADFS":EQ|
000012d0  55 42 20 31 33 3a 45 51  55 57 20 73 65 6c 65 63  |UB 13:EQUW selec|
000012e0  74 0d 0b c2 1e 45 51 55  53 22 51 55 49 54 22 3a  |t....EQUS"QUIT":|
000012f0  45 51 55 42 31 33 3a 45  51 55 57 71 75 69 74 0d  |EQUB13:EQUWquit.|
00001300  0b cc 21 45 51 55 53 22  44 45 53 4b 54 4f 50 22  |..!EQUS"DESKTOP"|
00001310  3a 45 51 55 42 31 33 3a  45 51 55 57 71 75 69 74  |:EQUB13:EQUWquit|
00001320  0d 0b d6 22 45 51 55 53  22 53 48 41 44 4f 57 22  |..."EQUS"SHADOW"|
00001330  3a 45 51 55 42 31 33 3a  45 51 55 57 64 75 6d 6d  |:EQUB13:EQUWdumm|
00001340  79 32 0d 0b e0 22 45 51  55 53 22 49 4e 53 45 52  |y2..."EQUS"INSER|
00001350  54 22 3a 45 51 55 42 31  33 3a 45 51 55 57 64 75  |T":EQUB13:EQUWdu|
00001360  6d 6d 79 32 0d 0b ea 22  45 51 55 53 22 53 52 4c  |mmy2..."EQUS"SRL|
00001370  4f 41 44 22 3a 45 51 55  42 31 33 3a 45 51 55 57  |OAD":EQUB13:EQUW|
00001380  73 72 6c 6f 61 64 0d 0b  f4 24 45 51 55 53 22 53  |srload...$EQUS"S|
00001390  52 57 52 49 54 45 22 3a  45 51 55 42 31 33 3a 45  |RWRITE":EQUB13:E|
000013a0  51 55 57 73 72 77 72 69  74 65 0d 0b fe 0a 45 51  |QUWsrwrite....EQ|
000013b0  55 42 20 30 0d 0c 08 04  0d 0c 12 0b 2e 64 75 6d  |UB 0.........dum|
000013c0  6d 79 32 0d 0c 1c 0a 4c  44 41 20 23 30 0d 0c 26  |my2....LDA #0..&|
000013d0  07 52 54 53 0d 0c 30 04  0d 0c 3a 0b 2e 73 65 6c  |.RTS..0...:..sel|
000013e0  65 63 74 0d 0c 44 12 4c  44 41 23 36 3a 4a 53 52  |ect..D.LDA#6:JSR|
000013f0  6f 73 66 73 63 0d 0c 4e  0e 4a 53 52 76 65 63 74  |osfsc..N.JSRvect|
00001400  6f 72 73 0d 0c 58 12 4c  44 41 23 31 34 33 3a 4c  |ors..X.LDA#143:L|
00001410  44 58 23 31 35 0d 0c 62  1b 4a 53 52 26 46 46 46  |DX#15..b.JSR&FFF|
00001420  34 3a 4c 44 41 23 31 3a  53 54 41 72 66 73 6f 6e  |4:LDA#1:STArfson|
00001430  0d 0c 6c 0a 4c 44 41 20  23 30 0d 0c 76 07 52 54  |..l.LDA #0..v.RT|
00001440  53 0d 0c 80 04 0d 0c 8a  09 2e 75 6b 73 63 0d 0c  |S.........uksc..|
00001450  94 0f 50 48 41 3a 50 48  58 3a 50 48 59 0d 0c 9e  |..PHA:PHX:PHY...|
00001460  0a 53 54 58 26 42 30 0d  0c a8 0a 53 54 59 26 42  |.STX&B0....STY&B|
00001470  31 0d 0c b2 09 4c 44 58  23 30 0d 0c bc 0e 2e 75  |1....LDX#0.....u|
00001480  6b 73 63 6c 6f 6f 70 31  0d 0c c6 09 4c 44 59 23  |kscloop1....LDY#|
00001490  30 0d 0c d0 0e 2e 75 6b  73 63 6c 6f 6f 70 32 0d  |0.....ukscloop2.|
000014a0  0c da 20 4c 44 41 28 26  42 30 29 2c 59 3a 43 4d  |.. LDA(&B0),Y:CM|
000014b0  50 23 34 36 3a 42 45 51  20 74 6f 75 74 39 39 0d  |P#46:BEQ tout99.|
000014c0  0c e4 09 80 23 26 44 46  0d 0c ee 11 43 4d 50 63  |....#&DF....CMPc|
000014d0  6f 6d 6d 61 6e 64 73 2c  58 0d 0c f8 0f 42 4e 45  |ommands,X....BNE|
000014e0  20 6e 65 78 74 63 6f 6d  0d 0d 02 07 49 4e 58 0d  | nextcom....INX.|
000014f0  0d 0c 07 49 4e 59 0d 0d  16 11 4c 44 41 63 6f 6d  |...INY....LDAcom|
00001500  6d 61 6e 64 73 2c 58 0d  0d 20 0a 43 4d 50 23 31  |mands,X.. .CMP#1|
00001510  33 0d 0d 2a 10 42 4e 45  75 6b 73 63 6c 6f 6f 70  |3..*.BNEukscloop|
00001520  32 0d 0d 34 0b 2e 74 6f  75 74 39 38 0d 0d 3e 13  |2..4..tout98..>.|
00001530  4c 44 41 63 6f 6d 6d 61  6e 64 73 2b 31 2c 58 0d  |LDAcommands+1,X.|
00001540  0d 48 0a 53 54 41 26 42  33 0d 0d 52 13 4c 44 41  |.H.STA&B3..R.LDA|
00001550  63 6f 6d 6d 61 6e 64 73  2b 32 2c 58 0d 0d 5c 0a  |commands+2,X..\.|
00001560  53 54 41 26 42 34 0d 0d  66 18 50 4c 41 3a 50 4c  |STA&B4..f.PLA:PL|
00001570  41 3a 50 4c 41 3a 4a 4d  50 28 26 42 33 29 0d 0d  |A:PLA:JMP(&B3)..|
00001580  70 0b 2e 74 6f 75 74 39  39 0d 0d 7a 07 49 4e 58  |p..tout99..z.INX|
00001590  0d 0d 84 22 4c 44 41 63  6f 6d 6d 61 6e 64 73 2c  |..."LDAcommands,|
000015a0  58 3a 43 4d 50 23 31 33  3a 42 4e 45 74 6f 75 74  |X:CMP#13:BNEtout|
000015b0  39 39 0d 0d 8e 11 49 4e  59 3a 4a 4d 50 74 6f 75  |99....INY:JMPtou|
000015c0  74 39 38 0d 0d 98 0c 2e  6e 65 78 74 63 6f 6d 0d  |t98.....nextcom.|
000015d0  0d a2 0e 2e 75 6b 73 63  6c 6f 6f 70 33 0d 0d ac  |....ukscloop3...|
000015e0  11 4c 44 41 63 6f 6d 6d  61 6e 64 73 2c 58 0d 0d  |.LDAcommands,X..|
000015f0  b6 07 49 4e 58 0d 0d c0  0a 43 4d 50 23 31 33 0d  |..INX....CMP#13.|
00001600  0d ca 11 42 4e 45 20 75  6b 73 63 6c 6f 6f 70 33  |...BNE ukscloop3|
00001610  0d 0d d4 0b 49 4e 58 3a  49 4e 58 0d 0d de 11 4c  |....INX:INX....L|
00001620  44 41 63 6f 6d 6d 61 6e  64 73 2c 58 0d 0d e8 09  |DAcommands,X....|
00001630  43 4d 50 23 30 0d 0d f2  0e 42 45 51 6f 75 74 75  |CMP#0....BEQoutu|
00001640  6b 73 63 0d 0d fc 10 4a  4d 50 75 6b 73 63 6c 6f  |ksc....JMPuksclo|
00001650  6f 70 31 0d 0e 06 0c 2e  6f 75 74 75 6b 73 63 0d  |op1.....outuksc.|
00001660  0e 10 0f 50 4c 59 3a 50  4c 58 3a 50 4c 41 0d 0e  |...PLY:PLX:PLA..|
00001670  1a 17 45 51 55 42 20 26  30 33 20 3a 20 45 51 55  |..EQUB &03 : EQU|
00001680  42 20 26 30 30 0d 0e 24  0a 4a 4d 50 72 75 6e 0d  |B &00..$.JMPrun.|
00001690  0e 2e 16 2e 61 63 63 65  73 73 3a 4a 4d 50 61 63  |....access:JMPac|
000016a0  63 65 73 73 32 0d 0e 38  0f 2e 62 61 63 6b 75 70  |cess2..8..backup|
000016b0  3a 52 54 53 0d 0e 42 10  2e 63 6f 6d 70 61 63 74  |:RTS..B..compact|
000016c0  3a 52 54 53 0d 0e 4c 0e  2e 64 75 6d 6d 79 3a 52  |:RTS..L..dummy:R|
000016d0  54 53 0d 0e 56 10 2e 64  65 73 74 72 6f 79 3a 52  |TS..V..destroy:R|
000016e0  54 53 0d 0e 60 0c 2e 64  69 72 3a 52 54 53 0d 0e  |TS..`..dir:RTS..|
000016f0  6a 2a 2e 71 75 69 74 3a  4c 44 41 20 23 30 3a 45  |j*.quit:LDA #0:E|
00001700  51 55 42 20 26 30 33 20  3a 20 45 51 55 42 20 26  |QUB &03 : EQUB &|
00001710  46 46 20 3a 20 52 54 53  0d 0e 74 0f 2e 65 6e 61  |FF : RTS..t..ena|
00001720  62 6c 65 3a 52 54 53 0d  0e 7e 0f 2e 66 6f 72 6d  |ble:RTS..~..form|
00001730  61 74 3a 52 54 53 0d 0e  88 0d 2e 66 72 65 65 3a  |at:RTS.....free:|
00001740  52 54 53 0d 0e 92 0d 2e  6c 69 62 72 3a 52 54 53  |RTS.....libr:RTS|
00001750  0d 0e 9c 0f 2e 72 65 6e  61 6d 65 3a 52 54 53 0d  |.....rename:RTS.|
00001760  0e a6 0d 2e 77 69 70 65  3a 52 54 53 0d 0e b0 0f  |....wipe:RTS....|
00001770  2e 74 69 74 6c 65 32 3a  52 54 53 0d 0e ba 10 2e  |.title2:RTS.....|
00001780  61 63 63 65 73 73 32 3a  52 54 53 0d 0e c4 0d 2e  |access2:RTS.....|
00001790  63 6f 6d 6d 61 6e 64 73  0d 0e ce 22 45 51 55 53  |commands..."EQUS|
000017a0  22 41 43 43 45 53 53 22  3a 45 51 55 42 31 33 3a  |"ACCESS":EQUB13:|
000017b0  45 51 55 57 61 63 63 65  73 73 0d 0e d8 1e 45 51  |EQUWaccess....EQ|
000017c0  55 53 22 42 41 43 4b 22  3a 45 51 55 42 31 33 3a  |US"BACK":EQUB13:|
000017d0  45 51 55 57 62 61 63 6b  0d 0e e2 22 45 51 55 53  |EQUWback..."EQUS|
000017e0  22 42 41 43 4b 55 50 22  3a 45 51 55 42 31 33 3a  |"BACKUP":EQUB13:|
000017f0  45 51 55 57 62 61 63 6b  75 70 0d 0e ec 24 45 51  |EQUWbackup...$EQ|
00001800  55 53 22 43 4f 4d 50 41  43 54 22 3a 45 51 55 42  |US"COMPACT":EQUB|
00001810  31 33 3a 45 51 55 57 63  6f 6d 70 61 63 74 0d 0e  |13:EQUWcompact..|
00001820  f6 1f 45 51 55 53 22 43  4f 50 59 22 3a 45 51 55  |..EQUS"COPY":EQU|
00001830  42 31 33 3a 45 51 55 57  64 75 6d 6d 79 0d 0f 00  |B13:EQUWdummy...|
00001840  24 45 51 55 53 22 44 45  53 54 52 4f 59 22 3a 45  |$EQUS"DESTROY":E|
00001850  51 55 42 31 33 3a 45 51  55 57 64 65 73 74 72 6f  |QUB13:EQUWdestro|
00001860  79 0d 0f 0a 20 45 51 55  53 22 44 52 49 56 45 22  |y... EQUS"DRIVE"|
00001870  3a 45 51 55 42 31 33 3a  45 51 55 57 64 72 69 76  |:EQUB13:EQUWdriv|
00001880  65 0d 0f 14 20 45 51 55  53 22 4d 4f 55 4e 54 22  |e... EQUS"MOUNT"|
00001890  3a 45 51 55 42 31 33 3a  45 51 55 57 6d 6f 75 6e  |:EQUB13:EQUWmoun|
000018a0  74 0d 0f 1e 22 45 51 55  53 22 45 4e 41 42 4c 45  |t..."EQUS"ENABLE|
000018b0  22 3a 45 51 55 42 31 33  3a 45 51 55 57 65 6e 61  |":EQUB13:EQUWena|
000018c0  62 6c 65 0d 0f 28 20 45  51 55 53 22 46 4f 52 4d  |ble..( EQUS"FORM|
000018d0  22 3a 45 51 55 42 31 33  3a 45 51 55 57 66 6f 72  |":EQUB13:EQUWfor|
000018e0  6d 61 74 0d 0f 32 21 45  51 55 53 22 52 46 4f 52  |mat..2!EQUS"RFOR|
000018f0  4d 22 3a 45 51 55 42 31  33 3a 45 51 55 57 66 6f  |M":EQUB13:EQUWfo|
00001900  72 6d 61 74 0d 0f 3c 1e  45 51 55 53 22 46 52 45  |rmat..<.EQUS"FRE|
00001910  45 22 3a 45 51 55 42 31  33 3a 45 51 55 57 66 72  |E":EQUB13:EQUWfr|
00001920  65 65 0d 0f 46 1d 45 51  55 53 22 4c 49 42 22 3a  |ee..F.EQUS"LIB":|
00001930  45 51 55 42 31 33 3a 45  51 55 57 6c 69 62 72 0d  |EQUB13:EQUWlibr.|
00001940  0f 50 1d 45 51 55 53 22  4d 41 50 22 3a 45 51 55  |.P.EQUS"MAP":EQU|
00001950  42 31 33 3a 45 51 55 57  66 72 65 65 0d 0f 5a 22  |B13:EQUWfree..Z"|
00001960  45 51 55 53 22 52 45 4e  41 4d 45 22 3a 45 51 55  |EQUS"RENAME":EQU|
00001970  42 31 33 3a 45 51 55 57  72 65 6e 61 6d 65 0d 0f  |B13:EQUWrename..|
00001980  64 21 45 51 55 53 22 54  49 54 4c 45 22 3a 45 51  |d!EQUS"TITLE":EQ|
00001990  55 42 31 33 3a 45 51 55  57 74 69 74 6c 65 32 0d  |UB13:EQUWtitle2.|
000019a0  0f 6e 21 45 51 55 53 22  56 45 52 49 46 59 22 3a  |.n!EQUS"VERIFY":|
000019b0  45 51 55 42 31 33 3a 45  51 55 57 64 75 6d 6d 79  |EQUB13:EQUWdummy|
000019c0  0d 0f 78 1e 45 51 55 53  22 57 49 50 45 22 3a 45  |..x.EQUS"WIPE":E|
000019d0  51 55 42 31 33 3a 45 51  55 57 77 69 70 65 0d 0f  |QUB13:EQUWwipe..|
000019e0  82 09 45 51 55 42 30 0d  0f 8c 04 0d 0f 96 0b 2e  |..EQUB0.........|
000019f0  73 72 6c 6f 61 64 0d 0f  a0 17 45 51 55 42 20 26  |srload....EQUB &|
00001a00  30 33 20 3a 20 45 51 55  42 20 26 44 30 0d 0f aa  |03 : EQUB &D0...|
00001a10  0c 2e 73 72 77 72 69 74  65 0d 0f b4 17 45 51 55  |..srwrite....EQU|
00001a20  42 20 26 30 33 20 3a 20  45 51 55 42 20 26 44 31  |B &03 : EQUB &D1|
00001a30  0d 0f be 0a 2e 64 72 69  76 65 0d 0f c8 17 45 51  |.....drive....EQ|
00001a40  55 42 20 26 30 33 20 3a  20 45 51 55 42 20 26 44  |UB &03 : EQUB &D|
00001a50  32 0d 0f d2 0a 2e 6d 6f  75 6e 74 0d 0f d3 17 45  |2.....mount....E|
00001a60  51 55 42 20 26 30 33 20  3a 20 45 51 55 42 20 26  |QUB &03 : EQUB &|
00001a70  44 36 0d 0f dc 09 2e 62  61 63 6b 0d 0f e6 17 45  |D6.....back....E|
00001a80  51 55 42 20 26 30 33 20  3a 20 45 51 55 42 20 26  |QUB &03 : EQUB &|
00001a90  44 35 0d 0f f0 3b 2e 62  61 64 64 72 69 76 65 3a  |D5...;.baddrive:|
00001aa0  45 51 55 53 22 42 61 64  20 64 72 69 76 65 22 3a  |EQUS"Bad drive":|
00001ab0  45 51 55 44 30 3a 45 51  55 44 30 3a 2e 64 72 69  |EQUD0:EQUD0:.dri|
00001ac0  76 65 73 74 61 74 3a 45  51 55 42 34 38 0d 0f fa  |vestat:EQUB48...|
00001ad0  04 0d 10 04 08 2e 63 61  74 0d 10 0e 16 4c 44 58  |......cat....LDX|
00001ae0  20 23 31 20 3a 20 53 54  58 20 62 6c 6f 63 6b 0d  | #1 : STX block.|
00001af0  10 18 21 4c 44 58 20 23  64 61 74 61 20 83 20 32  |..!LDX #data . 2|
00001b00  35 36 20 3a 20 53 54 58  20 62 6c 6f 63 6b 2b 31  |56 : STX block+1|
00001b10  0d 10 22 21 4c 44 58 20  23 64 61 74 61 20 81 20  |.."!LDX #data . |
00001b20  32 35 36 20 3a 20 53 54  58 20 62 6c 6f 63 6b 2b  |256 : STX block+|
00001b30  32 0d 10 2c 1a 4c 44 58  20 23 32 35 35 20 3a 20  |2..,.LDX #255 : |
00001b40  53 54 58 20 62 6c 6f 63  6b 2b 35 0d 10 36 34 4c  |STX block+5..64L|
00001b50  44 58 20 23 30 20 3a 20  53 54 58 20 62 6c 6f 63  |DX #0 : STX bloc|
00001b60  6b 2b 36 20 3a 20 53 54  58 20 62 6c 6f 63 6b 2b  |k+6 : STX block+|
00001b70  37 20 3a 20 53 54 58 20  62 6c 6f 63 6b 2b 38 0d  |7 : STX block+8.|
00001b80  10 40 1d 53 54 58 20 62  6c 6f 63 6b 2b 33 20 3a  |.@.STX block+3 :|
00001b90  20 53 54 58 20 62 6c 6f  63 6b 2b 34 0d 10 4a 04  | STX block+4..J.|
00001ba0  0d 10 54 0f 53 54 58 20  62 6c 6f 63 6b 2b 39 0d  |..T.STX block+9.|
00001bb0  10 5e 10 53 54 58 20 62  6c 6f 63 6b 2b 31 30 0d  |.^.STX block+10.|
00001bc0  10 68 10 53 54 58 20 62  6c 6f 63 6b 2b 31 31 0d  |.h.STX block+11.|
00001bd0  10 72 10 53 54 58 20 62  6c 6f 63 6b 2b 31 32 0d  |.r.STX block+12.|
00001be0  10 7c 0d 2e 63 61 74 5f  6c 6f 6f 70 0d 10 86 0a  |.|..cat_loop....|
00001bf0  4c 44 41 20 23 39 0d 10  90 14 4c 44 58 20 23 62  |LDA #9....LDX #b|
00001c00  6c 6f 63 6b 20 83 20 32  35 36 0d 10 9a 14 4c 44  |lock . 256....LD|
00001c10  59 20 23 62 6c 6f 63 6b  20 81 20 32 35 36 0d 10  |Y #block . 256..|
00001c20  a4 16 4a 53 52 20 26 46  46 44 31 20 5c 20 4f 53  |..JSR &FFD1 \ OS|
00001c30  47 42 50 42 0d 10 ae 0d  4c 44 41 20 62 6c 6f 63  |GBPB....LDA bloc|
00001c40  6b 0d 10 b8 0a 43 4d 50  20 23 30 0d 10 c2 10 42  |k....CMP #0....B|
00001c50  45 51 20 63 61 74 5f 65  78 69 74 0d 10 cc 12 4a  |EQ cat_exit....J|
00001c60  53 52 20 70 72 69 6e 74  5f 6e 61 6d 65 0d 10 d6  |SR print_name...|
00001c70  17 4c 44 41 20 23 31 33  20 3a 20 4a 53 52 20 26  |.LDA #13 : JSR &|
00001c80  46 46 45 33 0d 10 e0 10  42 52 41 20 63 61 74 5f  |FFE3....BRA cat_|
00001c90  6c 6f 6f 70 0d 10 ea 0d  2e 63 61 74 5f 65 78 69  |loop.....cat_exi|
00001ca0  74 0d 10 f4 07 52 54 53  0d 10 fe 04 0d 11 08 0f  |t....RTS........|
00001cb0  2e 70 72 69 6e 74 5f 6e  61 6d 65 0d 11 12 0a 4c  |.print_name....L|
00001cc0  44 58 20 23 30 0d 11 1c  0f 2e 70 72 69 6e 74 5f  |DX #0.....print_|
00001cd0  6c 6f 6f 70 0d 11 26 0e  4c 44 41 20 64 61 74 61  |loop..&.LDA data|
00001ce0  2c 58 0d 11 30 07 49 4e  58 0d 11 3a 16 4a 53 52  |,X..0.INX..:.JSR|
00001cf0  20 26 46 46 45 45 20 5c  20 4f 53 57 52 43 48 0d  | &FFEE \ OSWRCH.|
00001d00  11 44 0b 43 4d 50 20 23  33 31 0d 11 4e 12 42 43  |.D.CMP #31..N.BC|
00001d10  53 20 70 72 69 6e 74 5f  6c 6f 6f 70 0d 11 58 07  |S print_loop..X.|
00001d20  52 54 53 0d 11 62 04 0d  11 6c 0b 5c 2e 62 6c 6f  |RTS..b...l.\.blo|
00001d30  63 6b 0d 11 76 0f 5c 45  51 55 42 20 30 20 5c 20  |ck..v.\EQUB 0 \ |
00001d40  31 0d 11 80 12 5c 45 51  55 44 20 30 20 5c 20 64  |1....\EQUD 0 \ d|
00001d50  61 74 61 0d 11 8a 11 5c  45 51 55 44 20 30 20 5c  |ata....\EQUD 0 \|
00001d60  20 32 35 35 0d 11 94 0b  5c 45 51 55 44 20 30 0d  | 255....\EQUD 0.|
00001d70  11 9e 0a 5c 2e 64 61 74  61 0d 11 a8 11 45 51 55  |...\.data....EQU|
00001d80  53 20 c4 33 30 2c 22 20  22 29 0d 11 b2 0c 2e 65  |S .30," ").....e|
00001d90  6e 64 3a 5d 3a ed 0d 11  bc 2b ff 22 53 41 56 45  |nd:]:....+."SAVE|
00001da0  20 56 44 46 53 20 22 2b  c3 7e 63 6f 64 65 2b 22  | VDFS "+.~code+"|
00001db0  20 2b 22 2b c3 7e 28 65  6e 64 2d 73 74 61 72 74  | +"+.~(end-start|
00001dc0  29 0d 11 c6 15 2a 53 45  54 54 59 50 45 20 56 44  |)....*SETTYPE VD|
00001dd0  46 53 20 42 42 43 0d ff                           |FS BBC..|
00001dd8