Home » Archimedes archive » Acorn User » AU 1998-02 B.adf » JFShared » !JFShared/!Boot
!JFShared/!Boot
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 » Archimedes archive » Acorn User » AU 1998-02 B.adf » JFShared |
| Filename: | !JFShared/!Boot |
| Read OK: | ✔ |
| File size: | 03D1 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| !Boot file for !JFShared | Lots of Justin Fletcher's shared resources | Don't install over a later version of the shared library If "<JFShared%Version>" > 250 Then Obey SetEval JFShared%Version 250 Set JFShared$Path <Obey$Dir>. Set JFShared$Dir <Obey$Dir> IconSprites <Obey$Dir>.!Sprites If "<File$Type_13C>"="" Then Set Alias$@RunType_13C Error This is a JFPatch assembler file. Drag it to a text editor to read it.|M|| Set File$Type_13C JFPatch Set BasicLibrary$File JFShared:BasicLib.WimpLib Set JFExtEdit$File JFShared:BasicLib.ExtEditLib Set HeapLibrary$File JFShared:BasicLib.HeapLib Set TestLibrary$File JFShared:BasicLib.TestLib Set JFEconetLibrary$File JFShared:BasicLib.EconetLib Set CGILibrary$File JFShared:BasicLib.CGILibrary Set SocketLibrary$File JFShared:BasicLib.SocketLib Set DynMenuLibrary$File JFShared:BasicLib.DynMenu Set DispLibrary$File JFShared:BasicLib.DispLib | The test scrap file can be sent to the PipeFS SetMacro Test$Scrap Pipe:$.TestLog
00000000 7c 20 21 42 6f 6f 74 20 66 69 6c 65 20 66 6f 72 || !Boot file for| 00000010 20 21 4a 46 53 68 61 72 65 64 0a 7c 20 4c 6f 74 | !JFShared.| Lot| 00000020 73 20 6f 66 20 4a 75 73 74 69 6e 20 46 6c 65 74 |s of Justin Flet| 00000030 63 68 65 72 27 73 20 73 68 61 72 65 64 20 72 65 |cher's shared re| 00000040 73 6f 75 72 63 65 73 0a 0a 7c 20 44 6f 6e 27 74 |sources..| Don't| 00000050 20 69 6e 73 74 61 6c 6c 20 6f 76 65 72 20 61 20 | install over a | 00000060 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 20 6f 66 |later version of| 00000070 20 74 68 65 20 73 68 61 72 65 64 20 6c 69 62 72 | the shared libr| 00000080 61 72 79 0a 49 66 20 22 3c 4a 46 53 68 61 72 65 |ary.If "<JFShare| 00000090 64 25 56 65 72 73 69 6f 6e 3e 22 20 3e 20 32 35 |d%Version>" > 25| 000000a0 30 20 54 68 65 6e 20 4f 62 65 79 0a 53 65 74 45 |0 Then Obey.SetE| 000000b0 76 61 6c 20 4a 46 53 68 61 72 65 64 25 56 65 72 |val JFShared%Ver| 000000c0 73 69 6f 6e 20 32 35 30 0a 0a 53 65 74 20 4a 46 |sion 250..Set JF| 000000d0 53 68 61 72 65 64 24 50 61 74 68 20 3c 4f 62 65 |Shared$Path <Obe| 000000e0 79 24 44 69 72 3e 2e 0a 53 65 74 20 4a 46 53 68 |y$Dir>..Set JFSh| 000000f0 61 72 65 64 24 44 69 72 20 3c 4f 62 65 79 24 44 |ared$Dir <Obey$D| 00000100 69 72 3e 0a 49 63 6f 6e 53 70 72 69 74 65 73 20 |ir>.IconSprites | 00000110 3c 4f 62 65 79 24 44 69 72 3e 2e 21 53 70 72 69 |<Obey$Dir>.!Spri| 00000120 74 65 73 0a 0a 49 66 20 22 3c 46 69 6c 65 24 54 |tes..If "<File$T| 00000130 79 70 65 5f 31 33 43 3e 22 3d 22 22 20 54 68 65 |ype_13C>"="" The| 00000140 6e 20 53 65 74 20 41 6c 69 61 73 24 40 52 75 6e |n Set Alias$@Run| 00000150 54 79 70 65 5f 31 33 43 20 45 72 72 6f 72 20 54 |Type_13C Error T| 00000160 68 69 73 20 69 73 20 61 20 4a 46 50 61 74 63 68 |his is a JFPatch| 00000170 20 61 73 73 65 6d 62 6c 65 72 20 66 69 6c 65 2e | assembler file.| 00000180 20 44 72 61 67 20 69 74 20 74 6f 20 61 20 74 65 | Drag it to a te| 00000190 78 74 20 65 64 69 74 6f 72 20 74 6f 20 72 65 61 |xt editor to rea| 000001a0 64 20 69 74 2e 7c 4d 7c 7c 0a 53 65 74 20 46 69 |d it.|M||.Set Fi| 000001b0 6c 65 24 54 79 70 65 5f 31 33 43 20 4a 46 50 61 |le$Type_13C JFPa| 000001c0 74 63 68 0a 0a 53 65 74 20 42 61 73 69 63 4c 69 |tch..Set BasicLi| 000001d0 62 72 61 72 79 24 46 69 6c 65 20 4a 46 53 68 61 |brary$File JFSha| 000001e0 72 65 64 3a 42 61 73 69 63 4c 69 62 2e 57 69 6d |red:BasicLib.Wim| 000001f0 70 4c 69 62 0a 53 65 74 20 4a 46 45 78 74 45 64 |pLib.Set JFExtEd| 00000200 69 74 24 46 69 6c 65 20 4a 46 53 68 61 72 65 64 |it$File JFShared| 00000210 3a 42 61 73 69 63 4c 69 62 2e 45 78 74 45 64 69 |:BasicLib.ExtEdi| 00000220 74 4c 69 62 0a 53 65 74 20 48 65 61 70 4c 69 62 |tLib.Set HeapLib| 00000230 72 61 72 79 24 46 69 6c 65 20 4a 46 53 68 61 72 |rary$File JFShar| 00000240 65 64 3a 42 61 73 69 63 4c 69 62 2e 48 65 61 70 |ed:BasicLib.Heap| 00000250 4c 69 62 0a 53 65 74 20 54 65 73 74 4c 69 62 72 |Lib.Set TestLibr| 00000260 61 72 79 24 46 69 6c 65 20 4a 46 53 68 61 72 65 |ary$File JFShare| 00000270 64 3a 42 61 73 69 63 4c 69 62 2e 54 65 73 74 4c |d:BasicLib.TestL| 00000280 69 62 0a 53 65 74 20 4a 46 45 63 6f 6e 65 74 4c |ib.Set JFEconetL| 00000290 69 62 72 61 72 79 24 46 69 6c 65 20 4a 46 53 68 |ibrary$File JFSh| 000002a0 61 72 65 64 3a 42 61 73 69 63 4c 69 62 2e 45 63 |ared:BasicLib.Ec| 000002b0 6f 6e 65 74 4c 69 62 0a 53 65 74 20 43 47 49 4c |onetLib.Set CGIL| 000002c0 69 62 72 61 72 79 24 46 69 6c 65 20 4a 46 53 68 |ibrary$File JFSh| 000002d0 61 72 65 64 3a 42 61 73 69 63 4c 69 62 2e 43 47 |ared:BasicLib.CG| 000002e0 49 4c 69 62 72 61 72 79 0a 53 65 74 20 53 6f 63 |ILibrary.Set Soc| 000002f0 6b 65 74 4c 69 62 72 61 72 79 24 46 69 6c 65 20 |ketLibrary$File | 00000300 4a 46 53 68 61 72 65 64 3a 42 61 73 69 63 4c 69 |JFShared:BasicLi| 00000310 62 2e 53 6f 63 6b 65 74 4c 69 62 0a 53 65 74 20 |b.SocketLib.Set | 00000320 44 79 6e 4d 65 6e 75 4c 69 62 72 61 72 79 24 46 |DynMenuLibrary$F| 00000330 69 6c 65 20 4a 46 53 68 61 72 65 64 3a 42 61 73 |ile JFShared:Bas| 00000340 69 63 4c 69 62 2e 44 79 6e 4d 65 6e 75 0a 53 65 |icLib.DynMenu.Se| 00000350 74 20 44 69 73 70 4c 69 62 72 61 72 79 24 46 69 |t DispLibrary$Fi| 00000360 6c 65 20 4a 46 53 68 61 72 65 64 3a 42 61 73 69 |le JFShared:Basi| 00000370 63 4c 69 62 2e 44 69 73 70 4c 69 62 0a 0a 7c 20 |cLib.DispLib..| | 00000380 54 68 65 20 74 65 73 74 20 73 63 72 61 70 20 66 |The test scrap f| 00000390 69 6c 65 20 63 61 6e 20 62 65 20 73 65 6e 74 20 |ile can be sent | 000003a0 74 6f 20 74 68 65 20 50 69 70 65 46 53 0a 53 65 |to the PipeFS.Se| 000003b0 74 4d 61 63 72 6f 20 54 65 73 74 24 53 63 72 61 |tMacro Test$Scra| 000003c0 70 20 50 69 70 65 3a 24 2e 54 65 73 74 4c 6f 67 |p Pipe:$.TestLog| 000003d0 0a |.| 000003d1
.