Home » Personal collection » Acorn ADFS disks » Archimedes » Dominic_5.ADF » !InstallVP/!runimage
!InstallVP/!runimage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Archimedes » Dominic_5.ADF |
| Filename: | !InstallVP/!runimage |
| Read OK: | ✔ |
| File size: | 0677 bytes |
| Load address: | FFFFFB44 |
| Exec address: | 2334B557 |
Duplicates
There are 4 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Archimedes » Dominic_5.ADF » !InstallVP/!runimage
- Personal collection » Acorn ADFS disks » Archimedes » Dominic_5B.ADF » !InstallVP/!runimage
- Personal collection » Acorn ADFS disks » Greaseweazled » dos26_pcw_oct_93.adf » !InstallVP/!runimage
- Personal collection » Acorn ADFS disks » Greaseweazled » dos28_pcw_jul_93.adf » !InstallVP/!runimage
- Personal collection » Acorn hard disk » apps » Killer » !InstallVP/!runimage
File contents
5REM>!RunImage
10DIMb 255:DIMc 8192:SYS262336,200,1263747412,"Installer"TO,j:FORA%=0TO50:SYS262343,,b:NEXT:SYS131107,"System$Path",b,255,0TO,,k;d:d=(dAND1):IFNOT(d=0)THEN
15PROCa("Error from","Find your !System and try again")
20ELSE:A$="":FORF%=0TOk-1:IF(b?F%)<>32THENA$=A$+CHR$(b?F%)
25NEXT:A%=INSTR(A$,"$"):IFA%=0THENA%=(INSTR(A$,"::")+2)
30a$=LEFT$(A$,A%):SYS131080,5,A$+"Modules"TOa:IFa<>2THEN
35PROCa("Error from","There is no modules directory inside "+A$)
40ELSE:OSCLI("COPY <Obey$Dir>.vprotect "+A$+"Modules.VProtect ~PF~C~V"):SYS8,5,a$+".!Boot"TOa,,e,g,f,h:CASEaOF
45WHEN0:A%=OPENOUT(a$+".!Boot"):CLOSE#A%:OSCLI("SETTYPE "+a$+".!Boot Obey"):A%=INSTR(A$,":"):OSCLI(LEFT$(A$,A%)+"OPT 4 2"):SYS8,5,a$+".!Boot"TOa,,e,g,f,h:PROCb(a$+".!Boot"):OSCLI("Configure Boot")
50WHEN1:PROCb(a$+".!Boot")
55WHEN2:SYS8,5,a$+".!Boot.!Run"TOl,,e,g,f,h:CASElOF
60WHEN1:PROCb(a$+".!Boot.!Run")
65OTHERWISE:PROCa("Error from","Unable to find startup file - update aborted")
70ENDCASE
75OTHERWISE:PROCa("Error from","Unable to find startup file - update aborted")
80ENDCASE
85ENDIF
90ENDIF
95SYS262365,j,1263747412:END
100DEFPROCb(b$):OSCLI("Access "+b$+" WR"):a=(eAND1048320)>>8:IFa<>4075ANDa<>4094ANDa<>4095ANDa<>4074THEN
105PROCa("Error from","Not an Obey/Command/Text/Desktop file - update aborted")
110ELSE:IFa=4074THEN
115c$="RMRun "+A$+"Modules.VProtect"+CHR$10
120ELSE:c$="RMLoad "+A$+"Modules.VProtect"+CHR$10
125ENDIF
130$c=c$:i=c+LEN(c$):OSCLI("Load "+b$+" "+STR$~i):T$="":T=0:REPEAT:S=i?T:T$=T$+CHR$S:T+=1:UNTILS<32:IFINSTR(T$,"VProtect")>0THEN
135ELSE:OSCLI("Save "+b$+" "+STR$~(c)+" +"+STR$~(f+LENc$)):CASEaOF
140WHEN4074:OSCLI("Settype "+b$+" Desktop")
145WHEN4075:OSCLI("Settype "+b$+" Obey")
150WHEN4094:OSCLI("Settype "+b$+" Command")
155WHEN4095:OSCLI("Settype "+b$+" Text")
160ENDCASE
165*CO. BOOT
170ENDIF
175PROCa("Message from","VProtect successfully installed")
180ENDIF
185ENDPROC
190DEFPROCa(d$,e$):d$=d$+" installer":!b=0:$(b+4)=e$+CHR$0:SYS262367,b,16+1,d$:ENDPROC
�>!RunImage
��b 255:�c 8192:ș262336,200,1263747412,"Installer"�,j:�A%=0�50:ș262343,,b:�:ș131107,"System$Path",b,255,0�,,k;d:d=(d�1):�(d=0)�
6�a("Error from","Find your !System and try again")
/�:A$="":�F%=0�k-1:�(b?F%)<>32�A$=A$+�(b?F%)
(�:A%=�A$,"$"):�A%=0�A%=(�A$,"::")+2)
/a$=�A$,A%):ș131080,5,A$+"Modules"�a:�a<>2�
#?�a("Error from","There is no modules directory inside "+A$)
(d�:�("COPY <Obey$Dir>.vprotect "+A$+"Modules.VProtect ~PF~C~V"):ș8,5,a$+".!Boot"�a,,e,g,f,h:Ȏa�
-��0:A%=�(a$+".!Boot"):�#A%:�("SETTYPE "+a$+".!Boot Obey"):A%=�A$,":"):�(�A$,A%)+"OPT 4 2"):ș8,5,a$+".!Boot"�a,,e,g,f,h:�b(a$+".!Boot"):�("Configure Boot")
2�1:�b(a$+".!Boot")
7-�2:ș8,5,a$+".!Boot.!Run"�l,,e,g,f,h:Ȏl�
<�1:�b(a$+".!Boot.!Run")
AE:�a("Error from","Unable to find startup file - update aborted")
F�
KE:�a("Error from","Unable to find startup file - update aborted")
P�
U�
Z�
_ș262365,j,1263747412:�
dT��b(b$):�("Access "+b$+" WR"):a=(e�1048320)>>8:�a<>4075�a<>4094�a<>4095�a<>4074�
iM�a("Error from","Not an Obey/Command/Text/Desktop file - update aborted")
n�:�a=4074�
s)c$="RMRun "+A$+"Modules.VProtect"+�10
x,�:c$="RMLoad "+A$+"Modules.VProtect"+�10
}�
�c$c=c$:i=c+�(c$):�("Load "+b$+" "+�~i):T$="":T=0:�:S=i?T:T$=T$+�S:T+=1:�S<32:�T$,"VProtect")>0�
�1�:�("Save "+b$+" "+�~(c)+" +"+�~(f+�c$)):Ȏa�
�%�4074:�("Settype "+b$+" Desktop")
�"�4075:�("Settype "+b$+" Obey")
�%�4094:�("Settype "+b$+" Command")
�"�4095:�("Settype "+b$+" Text")
��
�
*CO. BOOT
��
�8�a("Message from","VProtect successfully installed")
��
��
�H��a(d$,e$):d$=d$+" installer":!b=0:$(b+4)=e$+�0:ș262367,b,16+1,d$:�
� 00000000 0d 00 05 0f f4 3e 21 52 75 6e 49 6d 61 67 65 0d |.....>!RunImage.|
00000010 00 0a 86 de 62 20 32 35 35 3a de 63 20 38 31 39 |....b 255:.c 819|
00000020 32 3a c8 99 32 36 32 33 33 36 2c 32 30 30 2c 31 |2:..262336,200,1|
00000030 32 36 33 37 34 37 34 31 32 2c 22 49 6e 73 74 61 |263747412,"Insta|
00000040 6c 6c 65 72 22 b8 2c 6a 3a e3 41 25 3d 30 b8 35 |ller".,j:.A%=0.5|
00000050 30 3a c8 99 32 36 32 33 34 33 2c 2c 62 3a ed 3a |0:..262343,,b:.:|
00000060 c8 99 31 33 31 31 30 37 2c 22 53 79 73 74 65 6d |..131107,"System|
00000070 24 50 61 74 68 22 2c 62 2c 32 35 35 2c 30 b8 2c |$Path",b,255,0.,|
00000080 2c 6b 3b 64 3a 64 3d 28 64 80 31 29 3a e7 ac 28 |,k;d:d=(d.1):..(|
00000090 64 3d 30 29 8c 0d 00 0f 36 f2 61 28 22 45 72 72 |d=0)....6.a("Err|
000000a0 6f 72 20 66 72 6f 6d 22 2c 22 46 69 6e 64 20 79 |or from","Find y|
000000b0 6f 75 72 20 21 53 79 73 74 65 6d 20 61 6e 64 20 |our !System and |
000000c0 74 72 79 20 61 67 61 69 6e 22 29 0d 00 14 2f cc |try again").../.|
000000d0 3a 41 24 3d 22 22 3a e3 46 25 3d 30 b8 6b 2d 31 |:A$="":.F%=0.k-1|
000000e0 3a e7 28 62 3f 46 25 29 3c 3e 33 32 8c 41 24 3d |:.(b?F%)<>32.A$=|
000000f0 41 24 2b bd 28 62 3f 46 25 29 0d 00 19 28 ed 3a |A$+.(b?F%)...(.:|
00000100 41 25 3d a7 41 24 2c 22 24 22 29 3a e7 41 25 3d |A%=.A$,"$"):.A%=|
00000110 30 8c 41 25 3d 28 a7 41 24 2c 22 3a 3a 22 29 2b |0.A%=(.A$,"::")+|
00000120 32 29 0d 00 1e 2f 61 24 3d c0 41 24 2c 41 25 29 |2).../a$=.A$,A%)|
00000130 3a c8 99 31 33 31 30 38 30 2c 35 2c 41 24 2b 22 |:..131080,5,A$+"|
00000140 4d 6f 64 75 6c 65 73 22 b8 61 3a e7 61 3c 3e 32 |Modules".a:.a<>2|
00000150 8c 0d 00 23 3f f2 61 28 22 45 72 72 6f 72 20 66 |...#?.a("Error f|
00000160 72 6f 6d 22 2c 22 54 68 65 72 65 20 69 73 20 6e |rom","There is n|
00000170 6f 20 6d 6f 64 75 6c 65 73 20 64 69 72 65 63 74 |o modules direct|
00000180 6f 72 79 20 69 6e 73 69 64 65 20 22 2b 41 24 29 |ory inside "+A$)|
00000190 0d 00 28 64 cc 3a ff 28 22 43 4f 50 59 20 3c 4f |..(d.:.("COPY <O|
000001a0 62 65 79 24 44 69 72 3e 2e 76 70 72 6f 74 65 63 |bey$Dir>.vprotec|
000001b0 74 20 22 2b 41 24 2b 22 4d 6f 64 75 6c 65 73 2e |t "+A$+"Modules.|
000001c0 56 50 72 6f 74 65 63 74 20 7e 50 46 7e 43 7e 56 |VProtect ~PF~C~V|
000001d0 22 29 3a c8 99 38 2c 35 2c 61 24 2b 22 2e 21 42 |"):..8,5,a$+".!B|
000001e0 6f 6f 74 22 b8 61 2c 2c 65 2c 67 2c 66 2c 68 3a |oot".a,,e,g,f,h:|
000001f0 c8 8e 61 ca 0d 00 2d 9e c9 30 3a 41 25 3d ae 28 |..a...-..0:A%=.(|
00000200 61 24 2b 22 2e 21 42 6f 6f 74 22 29 3a d9 23 41 |a$+".!Boot"):.#A|
00000210 25 3a ff 28 22 53 45 54 54 59 50 45 20 22 2b 61 |%:.("SETTYPE "+a|
00000220 24 2b 22 2e 21 42 6f 6f 74 20 4f 62 65 79 22 29 |$+".!Boot Obey")|
00000230 3a 41 25 3d a7 41 24 2c 22 3a 22 29 3a ff 28 c0 |:A%=.A$,":"):.(.|
00000240 41 24 2c 41 25 29 2b 22 4f 50 54 20 34 20 32 22 |A$,A%)+"OPT 4 2"|
00000250 29 3a c8 99 38 2c 35 2c 61 24 2b 22 2e 21 42 6f |):..8,5,a$+".!Bo|
00000260 6f 74 22 b8 61 2c 2c 65 2c 67 2c 66 2c 68 3a f2 |ot".a,,e,g,f,h:.|
00000270 62 28 61 24 2b 22 2e 21 42 6f 6f 74 22 29 3a ff |b(a$+".!Boot"):.|
00000280 28 22 43 6f 6e 66 69 67 75 72 65 20 42 6f 6f 74 |("Configure Boot|
00000290 22 29 0d 00 32 16 c9 31 3a f2 62 28 61 24 2b 22 |")..2..1:.b(a$+"|
000002a0 2e 21 42 6f 6f 74 22 29 0d 00 37 2d c9 32 3a c8 |.!Boot")..7-.2:.|
000002b0 99 38 2c 35 2c 61 24 2b 22 2e 21 42 6f 6f 74 2e |.8,5,a$+".!Boot.|
000002c0 21 52 75 6e 22 b8 6c 2c 2c 65 2c 67 2c 66 2c 68 |!Run".l,,e,g,f,h|
000002d0 3a c8 8e 6c ca 0d 00 3c 1b c9 31 3a f2 62 28 61 |:..l...<..1:.b(a|
000002e0 24 2b 22 2e 21 42 6f 6f 74 2e 21 52 75 6e 22 29 |$+".!Boot.!Run")|
000002f0 0d 00 41 45 7f 3a f2 61 28 22 45 72 72 6f 72 20 |..AE.:.a("Error |
00000300 66 72 6f 6d 22 2c 22 55 6e 61 62 6c 65 20 74 6f |from","Unable to|
00000310 20 66 69 6e 64 20 73 74 61 72 74 75 70 20 66 69 | find startup fi|
00000320 6c 65 20 2d 20 75 70 64 61 74 65 20 61 62 6f 72 |le - update abor|
00000330 74 65 64 22 29 0d 00 46 05 cb 0d 00 4b 45 7f 3a |ted")..F....KE.:|
00000340 f2 61 28 22 45 72 72 6f 72 20 66 72 6f 6d 22 2c |.a("Error from",|
00000350 22 55 6e 61 62 6c 65 20 74 6f 20 66 69 6e 64 20 |"Unable to find |
00000360 73 74 61 72 74 75 70 20 66 69 6c 65 20 2d 20 75 |startup file - u|
00000370 70 64 61 74 65 20 61 62 6f 72 74 65 64 22 29 0d |pdate aborted").|
00000380 00 50 05 cb 0d 00 55 05 cd 0d 00 5a 05 cd 0d 00 |.P....U....Z....|
00000390 5f 1b c8 99 32 36 32 33 36 35 2c 6a 2c 31 32 36 |_...262365,j,126|
000003a0 33 37 34 37 34 31 32 3a e0 0d 00 64 54 dd f2 62 |3747412:...dT..b|
000003b0 28 62 24 29 3a ff 28 22 41 63 63 65 73 73 20 22 |(b$):.("Access "|
000003c0 2b 62 24 2b 22 20 57 52 22 29 3a 61 3d 28 65 80 |+b$+" WR"):a=(e.|
000003d0 31 30 34 38 33 32 30 29 3e 3e 38 3a e7 61 3c 3e |1048320)>>8:.a<>|
000003e0 34 30 37 35 80 61 3c 3e 34 30 39 34 80 61 3c 3e |4075.a<>4094.a<>|
000003f0 34 30 39 35 80 61 3c 3e 34 30 37 34 8c 0d 00 69 |4095.a<>4074...i|
00000400 4d f2 61 28 22 45 72 72 6f 72 20 66 72 6f 6d 22 |M.a("Error from"|
00000410 2c 22 4e 6f 74 20 61 6e 20 4f 62 65 79 2f 43 6f |,"Not an Obey/Co|
00000420 6d 6d 61 6e 64 2f 54 65 78 74 2f 44 65 73 6b 74 |mmand/Text/Deskt|
00000430 6f 70 20 66 69 6c 65 20 2d 20 75 70 64 61 74 65 |op file - update|
00000440 20 61 62 6f 72 74 65 64 22 29 0d 00 6e 0e cc 3a | aborted")..n..:|
00000450 e7 61 3d 34 30 37 34 8c 0d 00 73 29 63 24 3d 22 |.a=4074...s)c$="|
00000460 52 4d 52 75 6e 20 22 2b 41 24 2b 22 4d 6f 64 75 |RMRun "+A$+"Modu|
00000470 6c 65 73 2e 56 50 72 6f 74 65 63 74 22 2b bd 31 |les.VProtect"+.1|
00000480 30 0d 00 78 2c cc 3a 63 24 3d 22 52 4d 4c 6f 61 |0..x,.:c$="RMLoa|
00000490 64 20 22 2b 41 24 2b 22 4d 6f 64 75 6c 65 73 2e |d "+A$+"Modules.|
000004a0 56 50 72 6f 74 65 63 74 22 2b bd 31 30 0d 00 7d |VProtect"+.10..}|
000004b0 05 cd 0d 00 82 63 24 63 3d 63 24 3a 69 3d 63 2b |.....c$c=c$:i=c+|
000004c0 a9 28 63 24 29 3a ff 28 22 4c 6f 61 64 20 22 2b |.(c$):.("Load "+|
000004d0 62 24 2b 22 20 22 2b c3 7e 69 29 3a 54 24 3d 22 |b$+" "+.~i):T$="|
000004e0 22 3a 54 3d 30 3a f5 3a 53 3d 69 3f 54 3a 54 24 |":T=0:.:S=i?T:T$|
000004f0 3d 54 24 2b bd 53 3a 54 2b 3d 31 3a fd 53 3c 33 |=T$+.S:T+=1:.S<3|
00000500 32 3a e7 a7 54 24 2c 22 56 50 72 6f 74 65 63 74 |2:..T$,"VProtect|
00000510 22 29 3e 30 8c 0d 00 87 31 cc 3a ff 28 22 53 61 |")>0....1.:.("Sa|
00000520 76 65 20 22 2b 62 24 2b 22 20 22 2b c3 7e 28 63 |ve "+b$+" "+.~(c|
00000530 29 2b 22 20 2b 22 2b c3 7e 28 66 2b a9 63 24 29 |)+" +"+.~(f+.c$)|
00000540 29 3a c8 8e 61 ca 0d 00 8c 25 c9 34 30 37 34 3a |):..a....%.4074:|
00000550 ff 28 22 53 65 74 74 79 70 65 20 22 2b 62 24 2b |.("Settype "+b$+|
00000560 22 20 44 65 73 6b 74 6f 70 22 29 0d 00 91 22 c9 |" Desktop")...".|
00000570 34 30 37 35 3a ff 28 22 53 65 74 74 79 70 65 20 |4075:.("Settype |
00000580 22 2b 62 24 2b 22 20 4f 62 65 79 22 29 0d 00 96 |"+b$+" Obey")...|
00000590 25 c9 34 30 39 34 3a ff 28 22 53 65 74 74 79 70 |%.4094:.("Settyp|
000005a0 65 20 22 2b 62 24 2b 22 20 43 6f 6d 6d 61 6e 64 |e "+b$+" Command|
000005b0 22 29 0d 00 9b 22 c9 34 30 39 35 3a ff 28 22 53 |")...".4095:.("S|
000005c0 65 74 74 79 70 65 20 22 2b 62 24 2b 22 20 54 65 |ettype "+b$+" Te|
000005d0 78 74 22 29 0d 00 a0 05 cb 0d 00 a5 0d 2a 43 4f |xt").........*CO|
000005e0 2e 20 42 4f 4f 54 0d 00 aa 05 cd 0d 00 af 38 f2 |. BOOT........8.|
000005f0 61 28 22 4d 65 73 73 61 67 65 20 66 72 6f 6d 22 |a("Message from"|
00000600 2c 22 56 50 72 6f 74 65 63 74 20 73 75 63 63 65 |,"VProtect succe|
00000610 73 73 66 75 6c 6c 79 20 69 6e 73 74 61 6c 6c 65 |ssfully installe|
00000620 64 22 29 0d 00 b4 05 cd 0d 00 b9 05 e1 0d 00 be |d").............|
00000630 48 dd f2 61 28 64 24 2c 65 24 29 3a 64 24 3d 64 |H..a(d$,e$):d$=d|
00000640 24 2b 22 20 69 6e 73 74 61 6c 6c 65 72 22 3a 21 |$+" installer":!|
00000650 62 3d 30 3a 24 28 62 2b 34 29 3d 65 24 2b bd 30 |b=0:$(b+4)=e$+.0|
00000660 3a c8 99 32 36 32 33 36 37 2c 62 2c 31 36 2b 31 |:..262367,b,16+1|
00000670 2c 64 24 3a e1 0d ff |,d$:...|
00000677 
!InstallVP/!runimage.m0
!InstallVP/!runimage.m1
!InstallVP/!runimage.m2
!InstallVP/!runimage.m4
!InstallVP/!runimage.m5
.