Home » Archimedes archive » Apps » Acorn Applications Update (1994)(Acorn Computers).adf » !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 » Archimedes archive » Apps » Acorn Applications Update (1994)(Acorn Computers).adf
Filename: !Alarm/!Run
Read OK:
File size: 0191 bytes
Load address: FFFFEB45
Exec address: 264CC2A8
File contents
| > !Run
|
| This variable tells !Alarm where to look for the !Alarm file
|
Set Alarm$Dir <Obey$Dir>
|
| This variable tells !Alarm where to find the Messages and Templates files
|
Set Alarm$Path <Alarm$Dir>.
|
| Now set up the bits for the filetype
|
Set File$Type_AE9 Alarms
Set Alias$@RunType_AE9 Run <Obey$Dir> %%0
|
WimpSlot -min 112k -max 112k
WimpSlot -min 96k -max 96k
Run Alarm:!RunImage %*0
00000000  7c 20 3e 20 21 52 75 6e  0a 7c 0a 7c 20 54 68 69  || > !Run.|.| Thi|
00000010  73 20 76 61 72 69 61 62  6c 65 20 74 65 6c 6c 73  |s variable tells|
00000020  20 21 41 6c 61 72 6d 20  77 68 65 72 65 20 74 6f  | !Alarm where to|
00000030  20 6c 6f 6f 6b 20 66 6f  72 20 74 68 65 20 21 41  | look for the !A|
00000040  6c 61 72 6d 20 66 69 6c  65 0a 7c 0a 53 65 74 20  |larm file.|.Set |
00000050  41 6c 61 72 6d 24 44 69  72 20 3c 4f 62 65 79 24  |Alarm$Dir <Obey$|
00000060  44 69 72 3e 0a 7c 0a 7c  20 54 68 69 73 20 76 61  |Dir>.|.| This va|
00000070  72 69 61 62 6c 65 20 74  65 6c 6c 73 20 21 41 6c  |riable tells !Al|
00000080  61 72 6d 20 77 68 65 72  65 20 74 6f 20 66 69 6e  |arm where to fin|
00000090  64 20 74 68 65 20 4d 65  73 73 61 67 65 73 20 61  |d the Messages a|
000000a0  6e 64 20 54 65 6d 70 6c  61 74 65 73 20 66 69 6c  |nd Templates fil|
000000b0  65 73 0a 7c 0a 53 65 74  20 41 6c 61 72 6d 24 50  |es.|.Set Alarm$P|
000000c0  61 74 68 20 3c 41 6c 61  72 6d 24 44 69 72 3e 2e  |ath <Alarm$Dir>.|
000000d0  0a 7c 0a 7c 20 4e 6f 77  20 73 65 74 20 75 70 20  |.|.| Now set up |
000000e0  74 68 65 20 62 69 74 73  20 66 6f 72 20 74 68 65  |the bits for the|
000000f0  20 66 69 6c 65 74 79 70  65 0a 7c 0a 53 65 74 20  | filetype.|.Set |
00000100  46 69 6c 65 24 54 79 70  65 5f 41 45 39 20 41 6c  |File$Type_AE9 Al|
00000110  61 72 6d 73 0a 53 65 74  20 41 6c 69 61 73 24 40  |arms.Set Alias$@|
00000120  52 75 6e 54 79 70 65 5f  41 45 39 20 52 75 6e 20  |RunType_AE9 Run |
00000130  3c 4f 62 65 79 24 44 69  72 3e 20 25 25 30 0a 7c  |<Obey$Dir> %%0.||
00000140  0a 57 69 6d 70 53 6c 6f  74 20 2d 6d 69 6e 20 31  |.WimpSlot -min 1|
00000150  31 32 6b 20 2d 6d 61 78  20 31 31 32 6b 0a 57 69  |12k -max 112k.Wi|
00000160  6d 70 53 6c 6f 74 20 2d  6d 69 6e 20 39 36 6b 20  |mpSlot -min 96k |
00000170  2d 6d 61 78 20 39 36 6b  0a 52 75 6e 20 41 6c 61  |-max 96k.Run Ala|
00000180  72 6d 3a 21 52 75 6e 49  6d 61 67 65 20 25 2a 30  |rm:!RunImage %*0|
00000190  0a                                                |.|
00000191