Home » Archimedes archive » Zipped Apps » 1st Word Plus » WP/utils/RFS_!BOOT

WP/utils/RFS_!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 » Zipped Apps » 1st Word Plus
Filename: WP/utils/RFS_!BOOT
Read OK:
File size: 0252 bytes
Load address: 0000
Exec address: 0000
File contents
   10 REM>RFS:!BOOT
   20 :
   30 PRINT"Auto-starting from RFS"
   40 PRINT'TIME$
   50 *LIB Library
   60 *SET Run$Path ,RFS:%.,ADFS:%.
   70 *SET ALIAS$CATALL COUNT $ V
   90 *SET ALIAS$SKIP ECHO |<2>|<1>|<27>|<1>|<78>|<1>|<8>|<3>
  100 *SET ALIAS$NLQ ECHO |<2>|<1>|<27>|<1>|<40>|<3>
  110 *RMLOAD PMODULE
  120 *BUFFON
  130 PRINT'"Printer buffer loaded. ";
  140 *BUFFSIZE
  150 *ADFS
  160 SYS "OS_Byte",255,8
  170 PRINT'"Press any key when disc is ready in Drive 0 ";
  180 *FX15,1
  190 REPEAT UNTIL GET
  200 ON ERROR IF ERR=17 THEN 270 ELSE 230
  210 PRINT''"Looking for ADFS !BOOT";
  220 *RUN !BOOT
  230 PRINT". Nothing found"'
  240 ON ERROR GOTO 270
  250 *BASIC
  260 :
  270 VDU10:ON ERROR OFF:END

 �>RFS:!BOOT
 :
 �"Auto-starting from RFS"
(	 �'�$
2 *LIB Library
<" *SET Run$Path ,RFS:%.,ADFS:%.
F  *SET ALIAS$CATALL COUNT $ V
Z< *SET ALIAS$SKIP ECHO |<2>|<1>|<27>|<1>|<78>|<1>|<8>|<3>
d3 *SET ALIAS$NLQ ECHO |<2>|<1>|<27>|<1>|<40>|<3>
n *RMLOAD PMODULE
x *BUFFON
�! �'"Printer buffer loaded. ";
� *BUFFSIZE
�
 *ADFS
� ș "OS_Byte",255,8
�6 �'"Press any key when disc is ready in Drive 0 ";
� *FX15,1
�
 � � �
� � � � �=17 � �TNA � �df@
�! �''"Looking for ADFS !BOOT";
� *RUN !BOOT
� �". Nothing found"'
� � � � �TNA
� *BASIC
 :
 �10:� � �:�
�
00000000  0d 00 0a 10 20 f4 3e 52  46 53 3a 21 42 4f 4f 54  |.... .>RFS:!BOOT|
00000010  0d 00 14 06 20 3a 0d 00  1e 1e 20 f1 22 41 75 74  |.... :.... ."Aut|
00000020  6f 2d 73 74 61 72 74 69  6e 67 20 66 72 6f 6d 20  |o-starting from |
00000030  52 46 53 22 0d 00 28 09  20 f1 27 91 24 0d 00 32  |RFS"..(. .'.$..2|
00000040  11 20 2a 4c 49 42 20 4c  69 62 72 61 72 79 0d 00  |. *LIB Library..|
00000050  3c 22 20 2a 53 45 54 20  52 75 6e 24 50 61 74 68  |<" *SET Run$Path|
00000060  20 2c 52 46 53 3a 25 2e  2c 41 44 46 53 3a 25 2e  | ,RFS:%.,ADFS:%.|
00000070  0d 00 46 20 20 2a 53 45  54 20 41 4c 49 41 53 24  |..F  *SET ALIAS$|
00000080  43 41 54 41 4c 4c 20 43  4f 55 4e 54 20 24 20 56  |CATALL COUNT $ V|
00000090  0d 00 5a 3c 20 2a 53 45  54 20 41 4c 49 41 53 24  |..Z< *SET ALIAS$|
000000a0  53 4b 49 50 20 45 43 48  4f 20 7c 3c 32 3e 7c 3c  |SKIP ECHO |<2>|<|
000000b0  31 3e 7c 3c 32 37 3e 7c  3c 31 3e 7c 3c 37 38 3e  |1>|<27>|<1>|<78>|
000000c0  7c 3c 31 3e 7c 3c 38 3e  7c 3c 33 3e 0d 00 64 33  ||<1>|<8>|<3>..d3|
000000d0  20 2a 53 45 54 20 41 4c  49 41 53 24 4e 4c 51 20  | *SET ALIAS$NLQ |
000000e0  45 43 48 4f 20 7c 3c 32  3e 7c 3c 31 3e 7c 3c 32  |ECHO |<2>|<1>|<2|
000000f0  37 3e 7c 3c 31 3e 7c 3c  34 30 3e 7c 3c 33 3e 0d  |7>|<1>|<40>|<3>.|
00000100  00 6e 14 20 2a 52 4d 4c  4f 41 44 20 50 4d 4f 44  |.n. *RMLOAD PMOD|
00000110  55 4c 45 0d 00 78 0c 20  2a 42 55 46 46 4f 4e 0d  |ULE..x. *BUFFON.|
00000120  00 82 21 20 f1 27 22 50  72 69 6e 74 65 72 20 62  |..! .'"Printer b|
00000130  75 66 66 65 72 20 6c 6f  61 64 65 64 2e 20 22 3b  |uffer loaded. ";|
00000140  0d 00 8c 0e 20 2a 42 55  46 46 53 49 5a 45 0d 00  |.... *BUFFSIZE..|
00000150  96 0a 20 2a 41 44 46 53  0d 00 a0 17 20 c8 99 20  |.. *ADFS.... .. |
00000160  22 4f 53 5f 42 79 74 65  22 2c 32 35 35 2c 38 0d  |"OS_Byte",255,8.|
00000170  00 aa 36 20 f1 27 22 50  72 65 73 73 20 61 6e 79  |..6 .'"Press any|
00000180  20 6b 65 79 20 77 68 65  6e 20 64 69 73 63 20 69  | key when disc i|
00000190  73 20 72 65 61 64 79 20  69 6e 20 44 72 69 76 65  |s ready in Drive|
000001a0  20 30 20 22 3b 0d 00 b4  0c 20 2a 46 58 31 35 2c  | 0 ";.... *FX15,|
000001b0  31 0d 00 be 0a 20 f5 20  fd 20 a5 0d 00 c8 1d 20  |1.... . . ..... |
000001c0  ee 20 85 20 e7 20 9f 3d  31 37 20 8c 20 8d 54 4e  |. . . .=17 . .TN|
000001d0  41 20 8b 20 8d 64 66 40  0d 00 d2 21 20 f1 27 27  |A . .df@...! .''|
000001e0  22 4c 6f 6f 6b 69 6e 67  20 66 6f 72 20 41 44 46  |"Looking for ADF|
000001f0  53 20 21 42 4f 4f 54 22  3b 0d 00 dc 0f 20 2a 52  |S !BOOT";.... *R|
00000200  55 4e 20 21 42 4f 4f 54  0d 00 e6 18 20 f1 22 2e  |UN !BOOT.... .".|
00000210  20 4e 6f 74 68 69 6e 67  20 66 6f 75 6e 64 22 27  | Nothing found"'|
00000220  0d 00 f0 0f 20 ee 20 85  20 e5 20 8d 54 4e 41 0d  |.... . . . .TNA.|
00000230  00 fa 0b 20 2a 42 41 53  49 43 0d 01 04 06 20 3a  |... *BASIC.... :|
00000240  0d 01 0e 10 20 ef 31 30  3a ee 20 85 20 87 3a e0  |.... .10:. . .:.|
00000250  0d ff                                             |..|
00000252