Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_PC_Emulator_1.adf » !MultiFS/!Run

!MultiFS/!Run

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 » Greaseweazled » adfs_PC_Emulator_1.adf
Filename: !MultiFS/!Run
Read OK:
File size: 0799 bytes
Load address: FFFFEB43
Exec address: 26853F90
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
*|> !Run to startup MultiFS v1.41a
*|---------------------------------------------------------------------------
*|
*Set MultiFS$Dir <Obey$Dir>
*|
*|---------------------------------------------------------------------------
*| Check for the presence of SharedCLibrary. If it is not loaded or is too
*| old a suitable error is generated.
*|
*Set CLib$Flag 0
*|
*RMEnsure SharedCLibrary 0.00 *Set CLib$Flag 1
*|
*If "<CLib$Flag>" = "1" Then *If "<System$Path>" = "" Then *Error !System cannot be found
*If "<CLib$Flag>" = "1" Then *RMLoad System:Modules.CLib
*|
*Unset CLib$Flag
*|
*RMEnsure SharedCLibrary 3.66 *Error The Shared C Library module is out of date. Please replace it with version 3.66 or later.
*|
*|---------------------------------------------------------------------------
*| You should configure these lines to define your system setup.
*If "<PCe$Drive_C>" = "" THEN *Set PCe$Drive_C ADFS::4.$.PC.Drive_C
*If "<PCe$Drive_D>" = "" THEN *Set PCe$Drive_D ADFS::4.$.PC.Drive_D
*If "<PCe$Drive_E>" = "" THEN *Set PCe$Drive_E ADFS::4.$.PC.Drive_E
*If "<PCe$Drive_F>" = "" THEN *Set PCe$Drive_F ADFS::4.$.PC.Drive_F
*|
*|---------------------------------------------------------------------------
*| Load the actual MultiFS module.
*RMLOAD <Obey$Dir>.MultiFSDOS
*|
*|---------------------------------------------------------------------------
*| Define the default MSDOS extension to RISC OS filetype mappings.
*| You should add/remove mappings to this list as you require.
*DOSMAP TXT Text
*DOSMAP BAT Obey
*DOSMAP BAS BASIC
*DOSMAP C   Text
*DOSMAP H   Text
*DOSMAP PAS Text
*|
*|---------------------------------------------------------------------------
*| Normally a "Desktop_" command is not useable by standard callers, but
*| we wish to load the module, and perform DOSMAP commands before starting
*| the Filer. *NO* lines should be inserted in this !Run file after the
*| "Desktop_MultiFSFiler" command.
*Desktop_MultiFSFiler
00000000  2a 7c 3e 20 21 52 75 6e  20 74 6f 20 73 74 61 72  |*|> !Run to star|
00000010  74 75 70 20 4d 75 6c 74  69 46 53 20 76 31 2e 34  |tup MultiFS v1.4|
00000020  31 61 0a 2a 7c 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |1a.*|-----------|
00000030  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000070  0a 2a 7c 0a 2a 53 65 74  20 4d 75 6c 74 69 46 53  |.*|.*Set MultiFS|
00000080  24 44 69 72 20 3c 4f 62  65 79 24 44 69 72 3e 0a  |$Dir <Obey$Dir>.|
00000090  2a 7c 0a 2a 7c 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |*|.*|-----------|
000000a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000000e0  0a 2a 7c 20 43 68 65 63  6b 20 66 6f 72 20 74 68  |.*| Check for th|
000000f0  65 20 70 72 65 73 65 6e  63 65 20 6f 66 20 53 68  |e presence of Sh|
00000100  61 72 65 64 43 4c 69 62  72 61 72 79 2e 20 49 66  |aredCLibrary. If|
00000110  20 69 74 20 69 73 20 6e  6f 74 20 6c 6f 61 64 65  | it is not loade|
00000120  64 20 6f 72 20 69 73 20  74 6f 6f 0a 2a 7c 20 6f  |d or is too.*| o|
00000130  6c 64 20 61 20 73 75 69  74 61 62 6c 65 20 65 72  |ld a suitable er|
00000140  72 6f 72 20 69 73 20 67  65 6e 65 72 61 74 65 64  |ror is generated|
00000150  2e 0a 2a 7c 0a 2a 53 65  74 20 43 4c 69 62 24 46  |..*|.*Set CLib$F|
00000160  6c 61 67 20 30 0a 2a 7c  0a 2a 52 4d 45 6e 73 75  |lag 0.*|.*RMEnsu|
00000170  72 65 20 53 68 61 72 65  64 43 4c 69 62 72 61 72  |re SharedCLibrar|
00000180  79 20 30 2e 30 30 20 2a  53 65 74 20 43 4c 69 62  |y 0.00 *Set CLib|
00000190  24 46 6c 61 67 20 31 0a  2a 7c 0a 2a 49 66 20 22  |$Flag 1.*|.*If "|
000001a0  3c 43 4c 69 62 24 46 6c  61 67 3e 22 20 3d 20 22  |<CLib$Flag>" = "|
000001b0  31 22 20 54 68 65 6e 20  2a 49 66 20 22 3c 53 79  |1" Then *If "<Sy|
000001c0  73 74 65 6d 24 50 61 74  68 3e 22 20 3d 20 22 22  |stem$Path>" = ""|
000001d0  20 54 68 65 6e 20 2a 45  72 72 6f 72 20 21 53 79  | Then *Error !Sy|
000001e0  73 74 65 6d 20 63 61 6e  6e 6f 74 20 62 65 20 66  |stem cannot be f|
000001f0  6f 75 6e 64 0a 2a 49 66  20 22 3c 43 4c 69 62 24  |ound.*If "<CLib$|
00000200  46 6c 61 67 3e 22 20 3d  20 22 31 22 20 54 68 65  |Flag>" = "1" The|
00000210  6e 20 2a 52 4d 4c 6f 61  64 20 53 79 73 74 65 6d  |n *RMLoad System|
00000220  3a 4d 6f 64 75 6c 65 73  2e 43 4c 69 62 0a 2a 7c  |:Modules.CLib.*||
00000230  0a 2a 55 6e 73 65 74 20  43 4c 69 62 24 46 6c 61  |.*Unset CLib$Fla|
00000240  67 0a 2a 7c 0a 2a 52 4d  45 6e 73 75 72 65 20 53  |g.*|.*RMEnsure S|
00000250  68 61 72 65 64 43 4c 69  62 72 61 72 79 20 33 2e  |haredCLibrary 3.|
00000260  36 36 20 2a 45 72 72 6f  72 20 54 68 65 20 53 68  |66 *Error The Sh|
00000270  61 72 65 64 20 43 20 4c  69 62 72 61 72 79 20 6d  |ared C Library m|
00000280  6f 64 75 6c 65 20 69 73  20 6f 75 74 20 6f 66 20  |odule is out of |
00000290  64 61 74 65 2e 20 50 6c  65 61 73 65 20 72 65 70  |date. Please rep|
000002a0  6c 61 63 65 20 69 74 20  77 69 74 68 20 76 65 72  |lace it with ver|
000002b0  73 69 6f 6e 20 33 2e 36  36 20 6f 72 20 6c 61 74  |sion 3.66 or lat|
000002c0  65 72 2e 0a 2a 7c 0a 2a  7c 2d 2d 2d 2d 2d 2d 2d  |er..*|.*|-------|
000002d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000310  2d 2d 2d 2d 0a 2a 7c 20  59 6f 75 20 73 68 6f 75  |----.*| You shou|
00000320  6c 64 20 63 6f 6e 66 69  67 75 72 65 20 74 68 65  |ld configure the|
00000330  73 65 20 6c 69 6e 65 73  20 74 6f 20 64 65 66 69  |se lines to defi|
00000340  6e 65 20 79 6f 75 72 20  73 79 73 74 65 6d 20 73  |ne your system s|
00000350  65 74 75 70 2e 0a 2a 49  66 20 22 3c 50 43 65 24  |etup..*If "<PCe$|
00000360  44 72 69 76 65 5f 43 3e  22 20 3d 20 22 22 20 54  |Drive_C>" = "" T|
00000370  48 45 4e 20 2a 53 65 74  20 50 43 65 24 44 72 69  |HEN *Set PCe$Dri|
00000380  76 65 5f 43 20 41 44 46  53 3a 3a 34 2e 24 2e 50  |ve_C ADFS::4.$.P|
00000390  43 2e 44 72 69 76 65 5f  43 0a 2a 49 66 20 22 3c  |C.Drive_C.*If "<|
000003a0  50 43 65 24 44 72 69 76  65 5f 44 3e 22 20 3d 20  |PCe$Drive_D>" = |
000003b0  22 22 20 54 48 45 4e 20  2a 53 65 74 20 50 43 65  |"" THEN *Set PCe|
000003c0  24 44 72 69 76 65 5f 44  20 41 44 46 53 3a 3a 34  |$Drive_D ADFS::4|
000003d0  2e 24 2e 50 43 2e 44 72  69 76 65 5f 44 0a 2a 49  |.$.PC.Drive_D.*I|
000003e0  66 20 22 3c 50 43 65 24  44 72 69 76 65 5f 45 3e  |f "<PCe$Drive_E>|
000003f0  22 20 3d 20 22 22 20 54  48 45 4e 20 2a 53 65 74  |" = "" THEN *Set|
00000400  20 50 43 65 24 44 72 69  76 65 5f 45 20 41 44 46  | PCe$Drive_E ADF|
00000410  53 3a 3a 34 2e 24 2e 50  43 2e 44 72 69 76 65 5f  |S::4.$.PC.Drive_|
00000420  45 0a 2a 49 66 20 22 3c  50 43 65 24 44 72 69 76  |E.*If "<PCe$Driv|
00000430  65 5f 46 3e 22 20 3d 20  22 22 20 54 48 45 4e 20  |e_F>" = "" THEN |
00000440  2a 53 65 74 20 50 43 65  24 44 72 69 76 65 5f 46  |*Set PCe$Drive_F|
00000450  20 41 44 46 53 3a 3a 34  2e 24 2e 50 43 2e 44 72  | ADFS::4.$.PC.Dr|
00000460  69 76 65 5f 46 0a 2a 7c  0a 2a 7c 2d 2d 2d 2d 2d  |ive_F.*|.*|-----|
00000470  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000004b0  2d 2d 2d 2d 2d 2d 0a 2a  7c 20 4c 6f 61 64 20 74  |------.*| Load t|
000004c0  68 65 20 61 63 74 75 61  6c 20 4d 75 6c 74 69 46  |he actual MultiF|
000004d0  53 20 6d 6f 64 75 6c 65  2e 0a 2a 52 4d 4c 4f 41  |S module..*RMLOA|
000004e0  44 20 3c 4f 62 65 79 24  44 69 72 3e 2e 4d 75 6c  |D <Obey$Dir>.Mul|
000004f0  74 69 46 53 44 4f 53 0a  2a 7c 0a 2a 7c 2d 2d 2d  |tiFSDOS.*|.*|---|
00000500  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000540  2d 2d 2d 2d 2d 2d 2d 2d  0a 2a 7c 20 44 65 66 69  |--------.*| Defi|
00000550  6e 65 20 74 68 65 20 64  65 66 61 75 6c 74 20 4d  |ne the default M|
00000560  53 44 4f 53 20 65 78 74  65 6e 73 69 6f 6e 20 74  |SDOS extension t|
00000570  6f 20 52 49 53 43 20 4f  53 20 66 69 6c 65 74 79  |o RISC OS filety|
00000580  70 65 20 6d 61 70 70 69  6e 67 73 2e 0a 2a 7c 20  |pe mappings..*| |
00000590  59 6f 75 20 73 68 6f 75  6c 64 20 61 64 64 2f 72  |You should add/r|
000005a0  65 6d 6f 76 65 20 6d 61  70 70 69 6e 67 73 20 74  |emove mappings t|
000005b0  6f 20 74 68 69 73 20 6c  69 73 74 20 61 73 20 79  |o this list as y|
000005c0  6f 75 20 72 65 71 75 69  72 65 2e 0a 2a 44 4f 53  |ou require..*DOS|
000005d0  4d 41 50 20 54 58 54 20  54 65 78 74 0a 2a 44 4f  |MAP TXT Text.*DO|
000005e0  53 4d 41 50 20 42 41 54  20 4f 62 65 79 0a 2a 44  |SMAP BAT Obey.*D|
000005f0  4f 53 4d 41 50 20 42 41  53 20 42 41 53 49 43 0a  |OSMAP BAS BASIC.|
00000600  2a 44 4f 53 4d 41 50 20  43 20 20 20 54 65 78 74  |*DOSMAP C   Text|
00000610  0a 2a 44 4f 53 4d 41 50  20 48 20 20 20 54 65 78  |.*DOSMAP H   Tex|
00000620  74 0a 2a 44 4f 53 4d 41  50 20 50 41 53 20 54 65  |t.*DOSMAP PAS Te|
00000630  78 74 0a 2a 7c 0a 2a 7c  2d 2d 2d 2d 2d 2d 2d 2d  |xt.*|.*|--------|
00000640  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000680  2d 2d 2d 0a 2a 7c 20 4e  6f 72 6d 61 6c 6c 79 20  |---.*| Normally |
00000690  61 20 22 44 65 73 6b 74  6f 70 5f 22 20 63 6f 6d  |a "Desktop_" com|
000006a0  6d 61 6e 64 20 69 73 20  6e 6f 74 20 75 73 65 61  |mand is not usea|
000006b0  62 6c 65 20 62 79 20 73  74 61 6e 64 61 72 64 20  |ble by standard |
000006c0  63 61 6c 6c 65 72 73 2c  20 62 75 74 0a 2a 7c 20  |callers, but.*| |
000006d0  77 65 20 77 69 73 68 20  74 6f 20 6c 6f 61 64 20  |we wish to load |
000006e0  74 68 65 20 6d 6f 64 75  6c 65 2c 20 61 6e 64 20  |the module, and |
000006f0  70 65 72 66 6f 72 6d 20  44 4f 53 4d 41 50 20 63  |perform DOSMAP c|
00000700  6f 6d 6d 61 6e 64 73 20  62 65 66 6f 72 65 20 73  |ommands before s|
00000710  74 61 72 74 69 6e 67 0a  2a 7c 20 74 68 65 20 46  |tarting.*| the F|
00000720  69 6c 65 72 2e 20 2a 4e  4f 2a 20 6c 69 6e 65 73  |iler. *NO* lines|
00000730  20 73 68 6f 75 6c 64 20  62 65 20 69 6e 73 65 72  | should be inser|
00000740  74 65 64 20 69 6e 20 74  68 69 73 20 21 52 75 6e  |ted in this !Run|
00000750  20 66 69 6c 65 20 61 66  74 65 72 20 74 68 65 0a  | file after the.|
00000760  2a 7c 20 22 44 65 73 6b  74 6f 70 5f 4d 75 6c 74  |*| "Desktop_Mult|
00000770  69 46 53 46 69 6c 65 72  22 20 63 6f 6d 6d 61 6e  |iFSFiler" comman|
00000780  64 2e 0a 2a 44 65 73 6b  74 6f 70 5f 4d 75 6c 74  |d..*Desktop_Mult|
00000790  69 46 53 46 69 6c 65 72  0a                       |iFSFiler.|
00000799
!MultiFS/!Run.m0
!MultiFS/!Run.m1
!MultiFS/!Run.m2
!MultiFS/!Run.m4
!MultiFS/!Run.m5