Home » Personal collection » Acorn hard disk » risc_os_3_resources » Apps » !Alarm/!Run

!Alarm/!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 hard disk » risc_os_3_resources » Apps
Filename: !Alarm/!Run
Read OK:
File size: 01FF bytes
Load address: 0000
Exec address: 0000
File contents
| > !Run
|
| !Alarm ROM version 2.31
|
| This variable tells !Alarm where to find the !Alarm and !Config files
|
Set Alarm$Dir <Obey$Dir>
|
| This variable tells !Alarm where to find the Messages and Templates files
| By default these are in ROM, but can be copied into the !Alarm directory
|
Set Alarm$Path <Obey$Dir>.,Resources:$.Resources.Alarm.
|
| Now set up the bits for the filetype
|
Set File$Type_AE9 Alarms
Set Alias$@RunType_AE9 Run <Obey$Dir> %%0
|
WimpSlot -min 32k -max 32k
Run Alarm:!RunLink %*0
00000000  7c 20 3e 20 21 52 75 6e  0a 7c 0a 7c 20 21 41 6c  || > !Run.|.| !Al|
00000010  61 72 6d 20 52 4f 4d 20  76 65 72 73 69 6f 6e 20  |arm ROM version |
00000020  32 2e 33 31 0a 7c 0a 7c  20 54 68 69 73 20 76 61  |2.31.|.| This va|
00000030  72 69 61 62 6c 65 20 74  65 6c 6c 73 20 21 41 6c  |riable tells !Al|
00000040  61 72 6d 20 77 68 65 72  65 20 74 6f 20 66 69 6e  |arm where to fin|
00000050  64 20 74 68 65 20 21 41  6c 61 72 6d 20 61 6e 64  |d the !Alarm and|
00000060  20 21 43 6f 6e 66 69 67  20 66 69 6c 65 73 0a 7c  | !Config files.||
00000070  0a 53 65 74 20 41 6c 61  72 6d 24 44 69 72 20 3c  |.Set Alarm$Dir <|
00000080  4f 62 65 79 24 44 69 72  3e 0a 7c 0a 7c 20 54 68  |Obey$Dir>.|.| Th|
00000090  69 73 20 76 61 72 69 61  62 6c 65 20 74 65 6c 6c  |is variable tell|
000000a0  73 20 21 41 6c 61 72 6d  20 77 68 65 72 65 20 74  |s !Alarm where t|
000000b0  6f 20 66 69 6e 64 20 74  68 65 20 4d 65 73 73 61  |o find the Messa|
000000c0  67 65 73 20 61 6e 64 20  54 65 6d 70 6c 61 74 65  |ges and Template|
000000d0  73 20 66 69 6c 65 73 0a  7c 20 42 79 20 64 65 66  |s files.| By def|
000000e0  61 75 6c 74 20 74 68 65  73 65 20 61 72 65 20 69  |ault these are i|
000000f0  6e 20 52 4f 4d 2c 20 62  75 74 20 63 61 6e 20 62  |n ROM, but can b|
00000100  65 20 63 6f 70 69 65 64  20 69 6e 74 6f 20 74 68  |e copied into th|
00000110  65 20 21 41 6c 61 72 6d  20 64 69 72 65 63 74 6f  |e !Alarm directo|
00000120  72 79 0a 7c 0a 53 65 74  20 41 6c 61 72 6d 24 50  |ry.|.Set Alarm$P|
00000130  61 74 68 20 3c 4f 62 65  79 24 44 69 72 3e 2e 2c  |ath <Obey$Dir>.,|
00000140  52 65 73 6f 75 72 63 65  73 3a 24 2e 52 65 73 6f  |Resources:$.Reso|
00000150  75 72 63 65 73 2e 41 6c  61 72 6d 2e 0a 7c 0a 7c  |urces.Alarm..|.||
00000160  20 4e 6f 77 20 73 65 74  20 75 70 20 74 68 65 20  | Now set up the |
00000170  62 69 74 73 20 66 6f 72  20 74 68 65 20 66 69 6c  |bits for the fil|
00000180  65 74 79 70 65 0a 7c 0a  53 65 74 20 46 69 6c 65  |etype.|.Set File|
00000190  24 54 79 70 65 5f 41 45  39 20 41 6c 61 72 6d 73  |$Type_AE9 Alarms|
000001a0  0a 53 65 74 20 41 6c 69  61 73 24 40 52 75 6e 54  |.Set Alias$@RunT|
000001b0  79 70 65 5f 41 45 39 20  52 75 6e 20 3c 4f 62 65  |ype_AE9 Run <Obe|
000001c0  79 24 44 69 72 3e 20 25  25 30 0a 7c 0a 57 69 6d  |y$Dir> %%0.|.Wim|
000001d0  70 53 6c 6f 74 20 2d 6d  69 6e 20 33 32 6b 20 2d  |pSlot -min 32k -|
000001e0  6d 61 78 20 33 32 6b 0a  52 75 6e 20 41 6c 61 72  |max 32k.Run Alar|
000001f0  6d 3a 21 52 75 6e 4c 69  6e 6b 20 25 2a 30 0a     |m:!RunLink %*0.|
000001ff