Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_PC_Emulator_2.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_2.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:
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_PC_Emulator_2.adf » !MultiFS/!Run
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_PC_Emulator_1.adf » !MultiFS/!Run
- Personal collection » Acorn hard disk » apps » PC » !MultiFS/!Run
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
.