code=&A00
 osbyte=&FFF4
 osasci=&FFE3
( osnewl=&FFE7
2 filev=&212
< findv=&21C
F cliv=&208
P � pass=0 � 2 � 2
Z P%=code
d
 [OPTpass
n LDAfilev+1
x CMP#(start �256)
� BNEinstall
� BRK
�
 EQUB0
�$ EQUS"PROTECT already installed"
� BRK
�
 .install
� SEI
�
 LDAfilev
� STAoldvec
� LDAfilev+1
� STAoldvec+1
� LDA#start �256
�
 STAfilev

 LDA#start �256

 STAfilev+1


 LDAfindv

" STAoldfvec

, LDAfindv+1

6 STAoldfvec+1

@ LDA#openout �256

J
 STAfindv

T LDA#openout �256

^ STAfindv+1

h LDAcliv

r STAoldcliv

| LDAcliv+1

� STAoldcliv+1

� LDA#cli �256

� STAcliv

� LDA#cli �256

� STAcliv+1

� CLI

� LDX#intro �256

� LDY#intro �256

� JSRtext

� RTS

�! .openout \OSFIND entry point

�# CMP#&80  \code for � operation

� BEQfcheck
 JMP(oldfvec)
 .fcheck
 PHA
&
 LDA#1
0 STAflag
:& STXblock   \X and Y hold filename
D STYblock+1 \address.
N JMPread
X .start \OSFILE entry point
b
 CMP#0
l1 BEQcheck \"Save section of memory" operation
v
 CMP#7
�9 BEQcheck \"Create file and pad with zeros" operation
� JMPreturn
� .check
� PHA
�& STXadd+1 \X and Y hold address of
� STYadd+2 \parameter block.
�
 LDX#0
� JSRadd
�+ STAblock \Low byte of filename address
� INX
� JSRadd
�. STAblock+1 \High byte of filename address
�
 .read
 LDX#(block �256)
 LDY#(block �256)

 LDA#5
 ; JSRreturn \read calalogue entry into memory at "block"
*
 CMP#1
4: BNEok \exit if file does not exist, or is a directory
> LDAblock+&E
H �#8
R" BNEok \exit if file is locked
\ LDX#exists �256
f LDY#exists �256
p JSRtext
z
 LDA#0
�
 STAkeyno
� .waitloop
�
 LDX#0
�
 LDY#1
� LDA#&81
� JSRosbyte
�% BCCkey \Key pressed (not Escape)
�! CPY#&1B \Code for Escape key
� BNEwaitloop
� .no
� JSRosnewl
�
 LDXadd+1
�
 LDYadd+2
 PLA
 BRK
 EQUB&92
$ EQUS"Aborted"
. BRK
8	 .key
B TXA
L JSRosasci
V
 LDXkeyno
` CMPyes1,X
j	 BEQy
t CMPyes2,X
~
 BNEno
� .y
� INX
�
 STXkeyno
�
 CPX#4
� BNEwaitloop
� .ok
� LDAflag
� BNEfindend
�
 LDXadd+1
�
 LDYadd+2
� PLA
� .return \exit from OSFILE
 JMP(oldvec)

 .findend \exit from OSFIND

 LDA#0
 STAflag
(
 LDXblock
2 LDYblock+1
< PLA
F JMP(oldfvec)
P	 .add
Z LDA&FFFF,X
d RTS
n
 .text
x JSRosnewl
� STXloop+1
� STYloop+2
�
 LDX#0
�
 .loop
� LDAtext,X
� JSRosasci
� INX
�
 CMP#0
� BNEloop
� RTS
�	 .cli
�
 STXadd+1
�
 STYadd+2
 LDX#&FF
 .starloop
 INX
" JSRadd
, CMP#42 \�II code for "*"
6 BEQstarloop
@
 LDY#0
J .comploop
T JSRadd
^ CMPdisable1,Y
h BEQinc
r CMPdisable2,Y
| BNEout
�	 .inc
� CMP#13
� BEQdis
� INX
� INY
� JMPcomploop
�	 .dis
� PHP
� SEI
� LDAoldvec
�
 STAfilev
� LDAoldvec+1
� STAfilev+1
 LDAoldfvec

 STAfindv
 LDAoldfvec+1
& STAfindv+1
0 LDAoldcliv
: STAcliv
D LDAoldcliv+1
N STAcliv+1
X CLI
b LDX#dismess �256
l LDY#dismess �256
v JSRtext
� PLP
� RTS
�	 .out
�
 LDXadd+1
�
 LDYadd+2
� JMP(oldcliv)
�: .exists EQUS"File exists - Delete old version?":EQUB0
ƛ .intro EQUS"PROTECT utility installed. You will now be asked to confirm (or abort) any file operation which involves overwriting    an existing file."
�D EQUB13:EQUS"Type *DISABLE to disable the utility.":EQUB13:EQUB0
�: .dismess EQUS"PROTECT utility disabled.":EQUB13:EQUB0
�# .disable1 EQUS"DISABLE":EQUB13
�# .disable2 EQUS"disable":EQUB13
� .yes1 EQUS"YES":EQUB13
 .yes2 EQUS"yes":EQUB13
 .oldvec EQUW0
 .oldfvec EQUW0
  .oldcliv EQUW0
* .flag EQUB0
4 .keyno EQUB0
> .block
H
 ]:� pass
R# �"Filename for code",filename$
\+ �"SAVE "+filename$+" "+�~code+" "+�~P%
�

00000000  0d 00 0a 0e 20 63 6f 64  65 3d 26 41 30 30 0d 00  |.... code=&A00..|
00000010  14 11 20 6f 73 62 79 74  65 3d 26 46 46 46 34 0d  |.. osbyte=&FFF4.|
00000020  00 1e 11 20 6f 73 61 73  63 69 3d 26 46 46 45 33  |... osasci=&FFE3|
00000030  0d 00 28 11 20 6f 73 6e  65 77 6c 3d 26 46 46 45  |..(. osnewl=&FFE|
00000040  37 0d 00 32 0f 20 66 69  6c 65 76 3d 26 32 31 32  |7..2. filev=&212|
00000050  0d 00 3c 0f 20 66 69 6e  64 76 3d 26 32 31 43 0d  |..<. findv=&21C.|
00000060  00 46 0e 20 63 6c 69 76  3d 26 32 30 38 0d 00 50  |.F. cliv=&208..P|
00000070  15 20 e3 20 70 61 73 73  3d 30 20 b8 20 32 20 88  |. . pass=0 . 2 .|
00000080  20 32 0d 00 5a 0c 20 50  25 3d 63 6f 64 65 0d 00  | 2..Z. P%=code..|
00000090  64 0d 20 5b 4f 50 54 70  61 73 73 0d 00 6e 0f 20  |d. [OPTpass..n. |
000000a0  4c 44 41 66 69 6c 65 76  2b 31 0d 00 78 15 20 43  |LDAfilev+1..x. C|
000000b0  4d 50 23 28 73 74 61 72  74 20 81 32 35 36 29 0d  |MP#(start .256).|
000000c0  00 82 0f 20 42 4e 45 69  6e 73 74 61 6c 6c 0d 00  |... BNEinstall..|
000000d0  8c 08 20 42 52 4b 0d 00  96 0a 20 45 51 55 42 30  |.. BRK.... EQUB0|
000000e0  0d 00 a0 24 20 45 51 55  53 22 50 52 4f 54 45 43  |...$ EQUS"PROTEC|
000000f0  54 20 61 6c 72 65 61 64  79 20 69 6e 73 74 61 6c  |T already instal|
00000100  6c 65 64 22 0d 00 aa 08  20 42 52 4b 0d 00 b4 0d  |led".... BRK....|
00000110  20 2e 69 6e 73 74 61 6c  6c 0d 00 be 08 20 53 45  | .install.... SE|
00000120  49 0d 00 c8 0d 20 4c 44  41 66 69 6c 65 76 0d 00  |I.... LDAfilev..|
00000130  d2 0e 20 53 54 41 6f 6c  64 76 65 63 0d 00 dc 0f  |.. STAoldvec....|
00000140  20 4c 44 41 66 69 6c 65  76 2b 31 0d 00 e6 10 20  | LDAfilev+1.... |
00000150  53 54 41 6f 6c 64 76 65  63 2b 31 0d 00 f0 13 20  |STAoldvec+1.... |
00000160  4c 44 41 23 73 74 61 72  74 20 83 32 35 36 0d 00  |LDA#start .256..|
00000170  fa 0d 20 53 54 41 66 69  6c 65 76 0d 01 04 13 20  |.. STAfilev.... |
00000180  4c 44 41 23 73 74 61 72  74 20 81 32 35 36 0d 01  |LDA#start .256..|
00000190  0e 0f 20 53 54 41 66 69  6c 65 76 2b 31 0d 01 18  |.. STAfilev+1...|
000001a0  0d 20 4c 44 41 66 69 6e  64 76 0d 01 22 0f 20 53  |. LDAfindv..". S|
000001b0  54 41 6f 6c 64 66 76 65  63 0d 01 2c 0f 20 4c 44  |TAoldfvec..,. LD|
000001c0  41 66 69 6e 64 76 2b 31  0d 01 36 11 20 53 54 41  |Afindv+1..6. STA|
000001d0  6f 6c 64 66 76 65 63 2b  31 0d 01 40 15 20 4c 44  |oldfvec+1..@. LD|
000001e0  41 23 6f 70 65 6e 6f 75  74 20 83 32 35 36 0d 01  |A#openout .256..|
000001f0  4a 0d 20 53 54 41 66 69  6e 64 76 0d 01 54 15 20  |J. STAfindv..T. |
00000200  4c 44 41 23 6f 70 65 6e  6f 75 74 20 81 32 35 36  |LDA#openout .256|
00000210  0d 01 5e 0f 20 53 54 41  66 69 6e 64 76 2b 31 0d  |..^. STAfindv+1.|
00000220  01 68 0c 20 4c 44 41 63  6c 69 76 0d 01 72 0f 20  |.h. LDAcliv..r. |
00000230  53 54 41 6f 6c 64 63 6c  69 76 0d 01 7c 0e 20 4c  |STAoldcliv..|. L|
00000240  44 41 63 6c 69 76 2b 31  0d 01 86 11 20 53 54 41  |DAcliv+1.... STA|
00000250  6f 6c 64 63 6c 69 76 2b  31 0d 01 90 11 20 4c 44  |oldcliv+1.... LD|
00000260  41 23 63 6c 69 20 83 32  35 36 0d 01 9a 0c 20 53  |A#cli .256.... S|
00000270  54 41 63 6c 69 76 0d 01  a4 11 20 4c 44 41 23 63  |TAcliv.... LDA#c|
00000280  6c 69 20 81 32 35 36 0d  01 ae 0e 20 53 54 41 63  |li .256.... STAc|
00000290  6c 69 76 2b 31 0d 01 b8  08 20 43 4c 49 0d 01 c2  |liv+1.... CLI...|
000002a0  13 20 4c 44 58 23 69 6e  74 72 6f 20 83 32 35 36  |. LDX#intro .256|
000002b0  0d 01 cc 13 20 4c 44 59  23 69 6e 74 72 6f 20 81  |.... LDY#intro .|
000002c0  32 35 36 0d 01 d6 0c 20  4a 53 52 74 65 78 74 0d  |256.... JSRtext.|
000002d0  01 e0 08 20 52 54 53 0d  01 ea 21 20 2e 6f 70 65  |... RTS...! .ope|
000002e0  6e 6f 75 74 20 5c 4f 53  46 49 4e 44 20 65 6e 74  |nout \OSFIND ent|
000002f0  72 79 20 70 6f 69 6e 74  0d 01 f4 23 20 43 4d 50  |ry point...# CMP|
00000300  23 26 38 30 20 20 5c 63  6f 64 65 20 66 6f 72 20  |#&80  \code for |
00000310  ae 20 6f 70 65 72 61 74  69 6f 6e 0d 01 fe 0e 20  |. operation.... |
00000320  42 45 51 66 63 68 65 63  6b 0d 02 08 11 20 4a 4d  |BEQfcheck.... JM|
00000330  50 28 6f 6c 64 66 76 65  63 29 0d 02 12 0c 20 2e  |P(oldfvec).... .|
00000340  66 63 68 65 63 6b 0d 02  1c 08 20 50 48 41 0d 02  |fcheck.... PHA..|
00000350  26 0a 20 4c 44 41 23 31  0d 02 30 0c 20 53 54 41  |&. LDA#1..0. STA|
00000360  66 6c 61 67 0d 02 3a 26  20 53 54 58 62 6c 6f 63  |flag..:& STXbloc|
00000370  6b 20 20 20 5c 58 20 61  6e 64 20 59 20 68 6f 6c  |k   \X and Y hol|
00000380  64 20 66 69 6c 65 6e 61  6d 65 0d 02 44 19 20 53  |d filename..D. S|
00000390  54 59 62 6c 6f 63 6b 2b  31 20 5c 61 64 64 72 65  |TYblock+1 \addre|
000003a0  73 73 2e 0d 02 4e 0c 20  4a 4d 50 72 65 61 64 0d  |ss...N. JMPread.|
000003b0  02 58 1f 20 2e 73 74 61  72 74 20 5c 4f 53 46 49  |.X. .start \OSFI|
000003c0  4c 45 20 65 6e 74 72 79  20 70 6f 69 6e 74 0d 02  |LE entry point..|
000003d0  62 0a 20 43 4d 50 23 30  0d 02 6c 31 20 42 45 51  |b. CMP#0..l1 BEQ|
000003e0  63 68 65 63 6b 20 5c 22  53 61 76 65 20 73 65 63  |check \"Save sec|
000003f0  74 69 6f 6e 20 6f 66 20  6d 65 6d 6f 72 79 22 20  |tion of memory" |
00000400  6f 70 65 72 61 74 69 6f  6e 0d 02 76 0a 20 43 4d  |operation..v. CM|
00000410  50 23 37 0d 02 80 39 20  42 45 51 63 68 65 63 6b  |P#7...9 BEQcheck|
00000420  20 5c 22 43 72 65 61 74  65 20 66 69 6c 65 20 61  | \"Create file a|
00000430  6e 64 20 70 61 64 20 77  69 74 68 20 7a 65 72 6f  |nd pad with zero|
00000440  73 22 20 6f 70 65 72 61  74 69 6f 6e 0d 02 8a 0e  |s" operation....|
00000450  20 4a 4d 50 72 65 74 75  72 6e 0d 02 94 0b 20 2e  | JMPreturn.... .|
00000460  63 68 65 63 6b 0d 02 9e  08 20 50 48 41 0d 02 a8  |check.... PHA...|
00000470  26 20 53 54 58 61 64 64  2b 31 20 5c 58 20 61 6e  |& STXadd+1 \X an|
00000480  64 20 59 20 68 6f 6c 64  20 61 64 64 72 65 73 73  |d Y hold address|
00000490  20 6f 66 0d 02 b2 1f 20  53 54 59 61 64 64 2b 32  | of.... STYadd+2|
000004a0  20 5c 70 61 72 61 6d 65  74 65 72 20 62 6c 6f 63  | \parameter bloc|
000004b0  6b 2e 0d 02 bc 0a 20 4c  44 58 23 30 0d 02 c6 0b  |k..... LDX#0....|
000004c0  20 4a 53 52 61 64 64 0d  02 d0 2b 20 53 54 41 62  | JSRadd...+ STAb|
000004d0  6c 6f 63 6b 20 5c 4c 6f  77 20 62 79 74 65 20 6f  |lock \Low byte o|
000004e0  66 20 66 69 6c 65 6e 61  6d 65 20 61 64 64 72 65  |f filename addre|
000004f0  73 73 0d 02 da 08 20 49  4e 58 0d 02 e4 0b 20 4a  |ss.... INX.... J|
00000500  53 52 61 64 64 0d 02 ee  2e 20 53 54 41 62 6c 6f  |SRadd.... STAblo|
00000510  63 6b 2b 31 20 5c 48 69  67 68 20 62 79 74 65 20  |ck+1 \High byte |
00000520  6f 66 20 66 69 6c 65 6e  61 6d 65 20 61 64 64 72  |of filename addr|
00000530  65 73 73 0d 02 f8 0a 20  2e 72 65 61 64 0d 03 02  |ess.... .read...|
00000540  15 20 4c 44 58 23 28 62  6c 6f 63 6b 20 83 32 35  |. LDX#(block .25|
00000550  36 29 0d 03 0c 15 20 4c  44 59 23 28 62 6c 6f 63  |6).... LDY#(bloc|
00000560  6b 20 81 32 35 36 29 0d  03 16 0a 20 4c 44 41 23  |k .256).... LDA#|
00000570  35 0d 03 20 3b 20 4a 53  52 72 65 74 75 72 6e 20  |5.. ; JSRreturn |
00000580  5c 72 65 61 64 20 63 61  6c 61 6c 6f 67 75 65 20  |\read calalogue |
00000590  65 6e 74 72 79 20 69 6e  74 6f 20 6d 65 6d 6f 72  |entry into memor|
000005a0  79 20 61 74 20 22 62 6c  6f 63 6b 22 0d 03 2a 0a  |y at "block"..*.|
000005b0  20 43 4d 50 23 31 0d 03  34 3a 20 42 4e 45 6f 6b  | CMP#1..4: BNEok|
000005c0  20 5c 65 78 69 74 20 69  66 20 66 69 6c 65 20 64  | \exit if file d|
000005d0  6f 65 73 20 6e 6f 74 20  65 78 69 73 74 2c 20 6f  |oes not exist, o|
000005e0  72 20 69 73 20 61 20 64  69 72 65 63 74 6f 72 79  |r is a directory|
000005f0  0d 03 3e 10 20 4c 44 41  62 6c 6f 63 6b 2b 26 45  |..>. LDAblock+&E|
00000600  0d 03 48 08 20 80 23 38  0d 03 52 22 20 42 4e 45  |..H. .#8..R" BNE|
00000610  6f 6b 20 5c 65 78 69 74  20 69 66 20 66 69 6c 65  |ok \exit if file|
00000620  20 69 73 20 6c 6f 63 6b  65 64 0d 03 5c 14 20 4c  | is locked..\. L|
00000630  44 58 23 65 78 69 73 74  73 20 83 32 35 36 0d 03  |DX#exists .256..|
00000640  66 14 20 4c 44 59 23 65  78 69 73 74 73 20 81 32  |f. LDY#exists .2|
00000650  35 36 0d 03 70 0c 20 4a  53 52 74 65 78 74 0d 03  |56..p. JSRtext..|
00000660  7a 0a 20 4c 44 41 23 30  0d 03 84 0d 20 53 54 41  |z. LDA#0.... STA|
00000670  6b 65 79 6e 6f 0d 03 8e  0e 20 2e 77 61 69 74 6c  |keyno.... .waitl|
00000680  6f 6f 70 0d 03 98 0a 20  4c 44 58 23 30 0d 03 a2  |oop.... LDX#0...|
00000690  0a 20 4c 44 59 23 31 0d  03 ac 0c 20 4c 44 41 23  |. LDY#1.... LDA#|
000006a0  26 38 31 0d 03 b6 0e 20  4a 53 52 6f 73 62 79 74  |&81.... JSRosbyt|
000006b0  65 0d 03 c0 25 20 42 43  43 6b 65 79 20 5c 4b 65  |e...% BCCkey \Ke|
000006c0  79 20 70 72 65 73 73 65  64 20 28 6e 6f 74 20 45  |y pressed (not E|
000006d0  73 63 61 70 65 29 0d 03  ca 21 20 43 50 59 23 26  |scape)...! CPY#&|
000006e0  31 42 20 5c 43 6f 64 65  20 66 6f 72 20 45 73 63  |1B \Code for Esc|
000006f0  61 70 65 20 6b 65 79 0d  03 d4 10 20 42 4e 45 77  |ape key.... BNEw|
00000700  61 69 74 6c 6f 6f 70 0d  03 de 08 20 2e 6e 6f 0d  |aitloop.... .no.|
00000710  03 e8 0e 20 4a 53 52 6f  73 6e 65 77 6c 0d 03 f2  |... JSRosnewl...|
00000720  0d 20 4c 44 58 61 64 64  2b 31 0d 03 fc 0d 20 4c  |. LDXadd+1.... L|
00000730  44 59 61 64 64 2b 32 0d  04 06 08 20 50 4c 41 0d  |DYadd+2.... PLA.|
00000740  04 10 08 20 42 52 4b 0d  04 1a 0c 20 45 51 55 42  |... BRK.... EQUB|
00000750  26 39 32 0d 04 24 12 20  45 51 55 53 22 41 62 6f  |&92..$. EQUS"Abo|
00000760  72 74 65 64 22 0d 04 2e  08 20 42 52 4b 0d 04 38  |rted".... BRK..8|
00000770  09 20 2e 6b 65 79 0d 04  42 08 20 54 58 41 0d 04  |. .key..B. TXA..|
00000780  4c 0e 20 4a 53 52 6f 73  61 73 63 69 0d 04 56 0d  |L. JSRosasci..V.|
00000790  20 4c 44 58 6b 65 79 6e  6f 0d 04 60 0e 20 43 4d  | LDXkeyno..`. CM|
000007a0  50 79 65 73 31 2c 58 0d  04 6a 09 20 42 45 51 79  |Pyes1,X..j. BEQy|
000007b0  0d 04 74 0e 20 43 4d 50  79 65 73 32 2c 58 0d 04  |..t. CMPyes2,X..|
000007c0  7e 0a 20 42 4e 45 6e 6f  0d 04 88 07 20 2e 79 0d  |~. BNEno.... .y.|
000007d0  04 92 08 20 49 4e 58 0d  04 9c 0d 20 53 54 58 6b  |... INX.... STXk|
000007e0  65 79 6e 6f 0d 04 a6 0a  20 43 50 58 23 34 0d 04  |eyno.... CPX#4..|
000007f0  b0 10 20 42 4e 45 77 61  69 74 6c 6f 6f 70 0d 04  |.. BNEwaitloop..|
00000800  ba 08 20 2e 6f 6b 0d 04  c4 0c 20 4c 44 41 66 6c  |.. .ok.... LDAfl|
00000810  61 67 0d 04 ce 0f 20 42  4e 45 66 69 6e 64 65 6e  |ag.... BNEfinden|
00000820  64 0d 04 d8 0d 20 4c 44  58 61 64 64 2b 31 0d 04  |d.... LDXadd+1..|
00000830  e2 0d 20 4c 44 59 61 64  64 2b 32 0d 04 ec 08 20  |.. LDYadd+2.... |
00000840  50 4c 41 0d 04 f6 1e 20  2e 72 65 74 75 72 6e 20  |PLA.... .return |
00000850  5c 65 78 69 74 20 66 72  6f 6d 20 4f 53 46 49 4c  |\exit from OSFIL|
00000860  45 0d 05 00 10 20 4a 4d  50 28 6f 6c 64 76 65 63  |E.... JMP(oldvec|
00000870  29 0d 05 0a 1f 20 2e 66  69 6e 64 65 6e 64 20 5c  |).... .findend \|
00000880  65 78 69 74 20 66 72 6f  6d 20 4f 53 46 49 4e 44  |exit from OSFIND|
00000890  0d 05 14 0a 20 4c 44 41  23 30 0d 05 1e 0c 20 53  |.... LDA#0.... S|
000008a0  54 41 66 6c 61 67 0d 05  28 0d 20 4c 44 58 62 6c  |TAflag..(. LDXbl|
000008b0  6f 63 6b 0d 05 32 0f 20  4c 44 59 62 6c 6f 63 6b  |ock..2. LDYblock|
000008c0  2b 31 0d 05 3c 08 20 50  4c 41 0d 05 46 11 20 4a  |+1..<. PLA..F. J|
000008d0  4d 50 28 6f 6c 64 66 76  65 63 29 0d 05 50 09 20  |MP(oldfvec)..P. |
000008e0  2e 61 64 64 0d 05 5a 0f  20 4c 44 41 26 46 46 46  |.add..Z. LDA&FFF|
000008f0  46 2c 58 0d 05 64 08 20  52 54 53 0d 05 6e 0a 20  |F,X..d. RTS..n. |
00000900  2e 74 65 78 74 0d 05 78  0e 20 4a 53 52 6f 73 6e  |.text..x. JSRosn|
00000910  65 77 6c 0d 05 82 0e 20  53 54 58 6c 6f 6f 70 2b  |ewl.... STXloop+|
00000920  31 0d 05 8c 0e 20 53 54  59 6c 6f 6f 70 2b 32 0d  |1.... STYloop+2.|
00000930  05 96 0a 20 4c 44 58 23  30 0d 05 a0 0a 20 2e 6c  |... LDX#0.... .l|
00000940  6f 6f 70 0d 05 aa 0e 20  4c 44 41 74 65 78 74 2c  |oop.... LDAtext,|
00000950  58 0d 05 b4 0e 20 4a 53  52 6f 73 61 73 63 69 0d  |X.... JSRosasci.|
00000960  05 be 08 20 49 4e 58 0d  05 c8 0a 20 43 4d 50 23  |... INX.... CMP#|
00000970  30 0d 05 d2 0c 20 42 4e  45 6c 6f 6f 70 0d 05 dc  |0.... BNEloop...|
00000980  08 20 52 54 53 0d 05 e6  09 20 2e 63 6c 69 0d 05  |. RTS.... .cli..|
00000990  f0 0d 20 53 54 58 61 64  64 2b 31 0d 05 fa 0d 20  |.. STXadd+1.... |
000009a0  53 54 59 61 64 64 2b 32  0d 06 04 0c 20 4c 44 58  |STYadd+2.... LDX|
000009b0  23 26 46 46 0d 06 0e 0e  20 2e 73 74 61 72 6c 6f  |#&FF.... .starlo|
000009c0  6f 70 0d 06 18 08 20 49  4e 58 0d 06 22 0b 20 4a  |op.... INX..". J|
000009d0  53 52 61 64 64 0d 06 2c  1d 20 43 4d 50 23 34 32  |SRadd..,. CMP#42|
000009e0  20 5c 97 49 49 20 63 6f  64 65 20 66 6f 72 20 22  | \.II code for "|
000009f0  2a 22 0d 06 36 10 20 42  45 51 73 74 61 72 6c 6f  |*"..6. BEQstarlo|
00000a00  6f 70 0d 06 40 0a 20 4c  44 59 23 30 0d 06 4a 0e  |op..@. LDY#0..J.|
00000a10  20 2e 63 6f 6d 70 6c 6f  6f 70 0d 06 54 0b 20 4a  | .comploop..T. J|
00000a20  53 52 61 64 64 0d 06 5e  12 20 43 4d 50 64 69 73  |SRadd..^. CMPdis|
00000a30  61 62 6c 65 31 2c 59 0d  06 68 0b 20 42 45 51 69  |able1,Y..h. BEQi|
00000a40  6e 63 0d 06 72 12 20 43  4d 50 64 69 73 61 62 6c  |nc..r. CMPdisabl|
00000a50  65 32 2c 59 0d 06 7c 0b  20 42 4e 45 6f 75 74 0d  |e2,Y..|. BNEout.|
00000a60  06 86 09 20 2e 69 6e 63  0d 06 90 0b 20 43 4d 50  |... .inc.... CMP|
00000a70  23 31 33 0d 06 9a 0b 20  42 45 51 64 69 73 0d 06  |#13.... BEQdis..|
00000a80  a4 08 20 49 4e 58 0d 06  ae 08 20 49 4e 59 0d 06  |.. INX.... INY..|
00000a90  b8 10 20 4a 4d 50 63 6f  6d 70 6c 6f 6f 70 0d 06  |.. JMPcomploop..|
00000aa0  c2 09 20 2e 64 69 73 0d  06 cc 08 20 50 48 50 0d  |.. .dis.... PHP.|
00000ab0  06 d6 08 20 53 45 49 0d  06 e0 0e 20 4c 44 41 6f  |... SEI.... LDAo|
00000ac0  6c 64 76 65 63 0d 06 ea  0d 20 53 54 41 66 69 6c  |ldvec.... STAfil|
00000ad0  65 76 0d 06 f4 10 20 4c  44 41 6f 6c 64 76 65 63  |ev.... LDAoldvec|
00000ae0  2b 31 0d 06 fe 0f 20 53  54 41 66 69 6c 65 76 2b  |+1.... STAfilev+|
00000af0  31 0d 07 08 0f 20 4c 44  41 6f 6c 64 66 76 65 63  |1.... LDAoldfvec|
00000b00  0d 07 12 0d 20 53 54 41  66 69 6e 64 76 0d 07 1c  |.... STAfindv...|
00000b10  11 20 4c 44 41 6f 6c 64  66 76 65 63 2b 31 0d 07  |. LDAoldfvec+1..|
00000b20  26 0f 20 53 54 41 66 69  6e 64 76 2b 31 0d 07 30  |&. STAfindv+1..0|
00000b30  0f 20 4c 44 41 6f 6c 64  63 6c 69 76 0d 07 3a 0c  |. LDAoldcliv..:.|
00000b40  20 53 54 41 63 6c 69 76  0d 07 44 11 20 4c 44 41  | STAcliv..D. LDA|
00000b50  6f 6c 64 63 6c 69 76 2b  31 0d 07 4e 0e 20 53 54  |oldcliv+1..N. ST|
00000b60  41 63 6c 69 76 2b 31 0d  07 58 08 20 43 4c 49 0d  |Acliv+1..X. CLI.|
00000b70  07 62 15 20 4c 44 58 23  64 69 73 6d 65 73 73 20  |.b. LDX#dismess |
00000b80  83 32 35 36 0d 07 6c 15  20 4c 44 59 23 64 69 73  |.256..l. LDY#dis|
00000b90  6d 65 73 73 20 81 32 35  36 0d 07 76 0c 20 4a 53  |mess .256..v. JS|
00000ba0  52 74 65 78 74 0d 07 80  08 20 50 4c 50 0d 07 8a  |Rtext.... PLP...|
00000bb0  08 20 52 54 53 0d 07 94  09 20 2e 6f 75 74 0d 07  |. RTS.... .out..|
00000bc0  9e 0d 20 4c 44 58 61 64  64 2b 31 0d 07 a8 0d 20  |.. LDXadd+1.... |
00000bd0  4c 44 59 61 64 64 2b 32  0d 07 b2 11 20 4a 4d 50  |LDYadd+2.... JMP|
00000be0  28 6f 6c 64 63 6c 69 76  29 0d 07 bc 3a 20 2e 65  |(oldcliv)...: .e|
00000bf0  78 69 73 74 73 20 45 51  55 53 22 46 69 6c 65 20  |xists EQUS"File |
00000c00  65 78 69 73 74 73 20 2d  20 44 65 6c 65 74 65 20  |exists - Delete |
00000c10  6f 6c 64 20 76 65 72 73  69 6f 6e 3f 22 3a 45 51  |old version?":EQ|
00000c20  55 42 30 0d 07 c6 9b 20  2e 69 6e 74 72 6f 20 45  |UB0.... .intro E|
00000c30  51 55 53 22 50 52 4f 54  45 43 54 20 75 74 69 6c  |QUS"PROTECT util|
00000c40  69 74 79 20 69 6e 73 74  61 6c 6c 65 64 2e 20 59  |ity installed. Y|
00000c50  6f 75 20 77 69 6c 6c 20  6e 6f 77 20 62 65 20 61  |ou will now be a|
00000c60  73 6b 65 64 20 74 6f 20  63 6f 6e 66 69 72 6d 20  |sked to confirm |
00000c70  28 6f 72 20 61 62 6f 72  74 29 20 61 6e 79 20 66  |(or abort) any f|
00000c80  69 6c 65 20 6f 70 65 72  61 74 69 6f 6e 20 77 68  |ile operation wh|
00000c90  69 63 68 20 69 6e 76 6f  6c 76 65 73 20 6f 76 65  |ich involves ove|
00000ca0  72 77 72 69 74 69 6e 67  20 20 20 20 61 6e 20 65  |rwriting    an e|
00000cb0  78 69 73 74 69 6e 67 20  66 69 6c 65 2e 22 0d 07  |xisting file."..|
00000cc0  d0 44 20 45 51 55 42 31  33 3a 45 51 55 53 22 54  |.D EQUB13:EQUS"T|
00000cd0  79 70 65 20 2a 44 49 53  41 42 4c 45 20 74 6f 20  |ype *DISABLE to |
00000ce0  64 69 73 61 62 6c 65 20  74 68 65 20 75 74 69 6c  |disable the util|
00000cf0  69 74 79 2e 22 3a 45 51  55 42 31 33 3a 45 51 55  |ity.":EQUB13:EQU|
00000d00  42 30 0d 07 da 3a 20 2e  64 69 73 6d 65 73 73 20  |B0...: .dismess |
00000d10  45 51 55 53 22 50 52 4f  54 45 43 54 20 75 74 69  |EQUS"PROTECT uti|
00000d20  6c 69 74 79 20 64 69 73  61 62 6c 65 64 2e 22 3a  |lity disabled.":|
00000d30  45 51 55 42 31 33 3a 45  51 55 42 30 0d 07 e4 23  |EQUB13:EQUB0...#|
00000d40  20 2e 64 69 73 61 62 6c  65 31 20 45 51 55 53 22  | .disable1 EQUS"|
00000d50  44 49 53 41 42 4c 45 22  3a 45 51 55 42 31 33 0d  |DISABLE":EQUB13.|
00000d60  07 ee 23 20 2e 64 69 73  61 62 6c 65 32 20 45 51  |..# .disable2 EQ|
00000d70  55 53 22 64 69 73 61 62  6c 65 22 3a 45 51 55 42  |US"disable":EQUB|
00000d80  31 33 0d 07 f8 1b 20 2e  79 65 73 31 20 45 51 55  |13.... .yes1 EQU|
00000d90  53 22 59 45 53 22 3a 45  51 55 42 31 33 0d 08 02  |S"YES":EQUB13...|
00000da0  1b 20 2e 79 65 73 32 20  45 51 55 53 22 79 65 73  |. .yes2 EQUS"yes|
00000db0  22 3a 45 51 55 42 31 33  0d 08 0c 12 20 2e 6f 6c  |":EQUB13.... .ol|
00000dc0  64 76 65 63 20 45 51 55  57 30 0d 08 16 13 20 2e  |dvec EQUW0.... .|
00000dd0  6f 6c 64 66 76 65 63 20  45 51 55 57 30 0d 08 20  |oldfvec EQUW0.. |
00000de0  13 20 2e 6f 6c 64 63 6c  69 76 20 45 51 55 57 30  |. .oldcliv EQUW0|
00000df0  0d 08 2a 10 20 2e 66 6c  61 67 20 45 51 55 42 30  |..*. .flag EQUB0|
00000e00  0d 08 34 11 20 2e 6b 65  79 6e 6f 20 45 51 55 42  |..4. .keyno EQUB|
00000e10  30 0d 08 3e 0b 20 2e 62  6c 6f 63 6b 0d 08 48 0d  |0..>. .block..H.|
00000e20  20 5d 3a ed 20 70 61 73  73 0d 08 52 23 20 e8 22  | ]:. pass..R# ."|
00000e30  46 69 6c 65 6e 61 6d 65  20 66 6f 72 20 63 6f 64  |Filename for cod|
00000e40  65 22 2c 66 69 6c 65 6e  61 6d 65 24 0d 08 5c 2b  |e",filename$..\+|
00000e50  20 ff 22 53 41 56 45 20  22 2b 66 69 6c 65 6e 61  | ."SAVE "+filena|
00000e60  6d 65 24 2b 22 20 22 2b  c3 7e 63 6f 64 65 2b 22  |me$+" "+.~code+"|
00000e70  20 22 2b c3 7e 50 25 0d  ff                       | "+.~P%..|
00000e79