Home » Personal collection » Acorn hard disk » apps » web » !ArcWeb/ROFS
!ArcWeb/ROFS
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 hard disk » apps » web |
| Filename: | !ArcWeb/ROFS |
| Read OK: | ✔ |
| File size: | 0165 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_1.6M_ArcWeb.adf » !ArcWeb/ROFS
- Personal collection » Acorn hard disk » apps » web » !ArcWeb/ROFS
File contents
10REM >ROFS tests filing system for write permission 20 30*%set ArcWeb$ROFS_Status yes 40ON ERROR END 50*%remove <obey$dir>.Test_RO_FS 60A%=OPENOUT "<Obey$Dir>.Test_RO_FS" 70IF A%=0 THEN END 80SYS "OS_Args",254,A% TO B%,,D% 90CLOSE #A% 100*%remove <obey$dir>.Test_RO_FS 110IF (D% AND (1<<16))=(1<<16) END 120IF (B% AND 128)=0: REM File is locked 130*%set ArcWeb$ROFS_Status no 140END
5� >ROFS tests filing system for write permission *%set ArcWeb$ROFS_Status yes ( � � � 2"*%remove <obey$dir>.Test_RO_FS < A%=� "<Obey$Dir>.Test_RO_FS" F� A%=0 � � P ș "OS_Args",254,A% � B%,,D% Z � #A% d"*%remove <obey$dir>.Test_RO_FS n � (D% � (1<<16))=(1<<16) � x$� (B% � 128)=0: � File is locked � *%set ArcWeb$ROFS_Status no �� �
00000000 0d 00 0a 35 f4 20 3e 52 4f 46 53 20 20 74 65 73 |...5. >ROFS tes| 00000010 74 73 20 66 69 6c 69 6e 67 20 73 79 73 74 65 6d |ts filing system| 00000020 20 66 6f 72 20 77 72 69 74 65 20 70 65 72 6d 69 | for write permi| 00000030 73 73 69 6f 6e 0d 00 14 04 0d 00 1e 20 2a 25 73 |ssion....... *%s| 00000040 65 74 20 41 72 63 57 65 62 24 52 4f 46 53 5f 53 |et ArcWeb$ROFS_S| 00000050 74 61 74 75 73 20 79 65 73 0d 00 28 09 ee 20 85 |tatus yes..(.. .| 00000060 20 e0 0d 00 32 22 2a 25 72 65 6d 6f 76 65 20 3c | ...2"*%remove <| 00000070 6f 62 65 79 24 64 69 72 3e 2e 54 65 73 74 5f 52 |obey$dir>.Test_R| 00000080 4f 5f 46 53 0d 00 3c 20 41 25 3d ae 20 22 3c 4f |O_FS..< A%=. "<O| 00000090 62 65 79 24 44 69 72 3e 2e 54 65 73 74 5f 52 4f |bey$Dir>.Test_RO| 000000a0 5f 46 53 22 0d 00 46 0e e7 20 41 25 3d 30 20 8c |_FS"..F.. A%=0 .| 000000b0 20 e0 0d 00 50 20 c8 99 20 22 4f 53 5f 41 72 67 | ...P .. "OS_Arg| 000000c0 73 22 2c 32 35 34 2c 41 25 20 b8 20 42 25 2c 2c |s",254,A% . B%,,| 000000d0 44 25 0d 00 5a 09 d9 20 23 41 25 0d 00 64 22 2a |D%..Z.. #A%..d"*| 000000e0 25 72 65 6d 6f 76 65 20 3c 6f 62 65 79 24 64 69 |%remove <obey$di| 000000f0 72 3e 2e 54 65 73 74 5f 52 4f 5f 46 53 0d 00 6e |r>.Test_RO_FS..n| 00000100 1e e7 20 28 44 25 20 80 20 28 31 3c 3c 31 36 29 |.. (D% . (1<<16)| 00000110 29 3d 28 31 3c 3c 31 36 29 20 e0 0d 00 78 24 e7 |)=(1<<16) ...x$.| 00000120 20 28 42 25 20 80 20 31 32 38 29 3d 30 3a 20 f4 | (B% . 128)=0: .| 00000130 20 46 69 6c 65 20 69 73 20 6c 6f 63 6b 65 64 0d | File is locked.| 00000140 00 82 1f 2a 25 73 65 74 20 41 72 63 57 65 62 24 |...*%set ArcWeb$| 00000150 52 4f 46 53 5f 53 74 61 74 75 73 20 6e 6f 0d 00 |ROFS_Status no..| 00000160 8c 05 e0 0d ff |.....| 00000165
.