Home » Archimedes archive » Archimedes World » AW-1992-12.adf » AWDec92 » !AWDec92/Goodies/WimpTrak/!WIMPTrack/!Run

!AWDec92/Goodies/WimpTrak/!WIMPTrack/!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 » Archimedes World » AW-1992-12.adf » AWDec92
Filename: !AWDec92/Goodies/WimpTrak/!WIMPTrack/!Run
Read OK:
File size: 049E bytes
Load address: 0000
Exec address: 0000
File contents
WimpSlot -min 112k -max 112k
Set Tr$Dir <Obey$Dir>
Set File$Type_CB5 STsample
Set File$Type_CB6 STmodule
Set File$Type_2B8 WTpattrn
Set File$Type_D3C LinSignd

| Change the '500' in the next line to the amount of music workspace
| you require. The number is in Kilobytes - don't specify more memory than
| you have in the machine; the application uses about 144K more than this
| for internal use. You must allocate at least 133K BUT THIS LEAVES NO SPACE
| FOR SAMPLES, so it's not very useful.

Set WIMPTracker$Mem 500

| The 'DMAFaster' file just does '*RMFaster SoundDMA' in order to speed up
| playing (it's in machine code so that an error is not given if the 
| SoundDMA module is already in RMA space) 

Run <Tr$Dir>.DMAFaster
IconSprites <Tr$Dir>.!Sprites
IconSprites <Tr$Dir>.SpriteFile
RMReInit SoundChannels
RMReInit SoundScheduler
RMReInit WaveSynth
RMReInit StringLib
RMReInit Percussion
RMEnsure WIMPTracker 1.05 RMLoad <Tr$Dir>.SupportMod
RMEnsure WIMPTracker 1.05 Error 0 This version of SupportMod is too old

| The file 'Runner' does '*Run <Tr$Dir>.!RunImage' but ensures that
| SupportMod is RMKilled if !RunImage cannot load for some reason

Run <Tr$Dir>.Runner
00000000  57 69 6d 70 53 6c 6f 74  20 2d 6d 69 6e 20 31 31  |WimpSlot -min 11|
00000010  32 6b 20 2d 6d 61 78 20  31 31 32 6b 0a 53 65 74  |2k -max 112k.Set|
00000020  20 54 72 24 44 69 72 20  3c 4f 62 65 79 24 44 69  | Tr$Dir <Obey$Di|
00000030  72 3e 0a 53 65 74 20 46  69 6c 65 24 54 79 70 65  |r>.Set File$Type|
00000040  5f 43 42 35 20 53 54 73  61 6d 70 6c 65 0a 53 65  |_CB5 STsample.Se|
00000050  74 20 46 69 6c 65 24 54  79 70 65 5f 43 42 36 20  |t File$Type_CB6 |
00000060  53 54 6d 6f 64 75 6c 65  0a 53 65 74 20 46 69 6c  |STmodule.Set Fil|
00000070  65 24 54 79 70 65 5f 32  42 38 20 57 54 70 61 74  |e$Type_2B8 WTpat|
00000080  74 72 6e 0a 53 65 74 20  46 69 6c 65 24 54 79 70  |trn.Set File$Typ|
00000090  65 5f 44 33 43 20 4c 69  6e 53 69 67 6e 64 0a 0a  |e_D3C LinSignd..|
000000a0  7c 20 43 68 61 6e 67 65  20 74 68 65 20 27 35 30  || Change the '50|
000000b0  30 27 20 69 6e 20 74 68  65 20 6e 65 78 74 20 6c  |0' in the next l|
000000c0  69 6e 65 20 74 6f 20 74  68 65 20 61 6d 6f 75 6e  |ine to the amoun|
000000d0  74 20 6f 66 20 6d 75 73  69 63 20 77 6f 72 6b 73  |t of music works|
000000e0  70 61 63 65 0a 7c 20 79  6f 75 20 72 65 71 75 69  |pace.| you requi|
000000f0  72 65 2e 20 54 68 65 20  6e 75 6d 62 65 72 20 69  |re. The number i|
00000100  73 20 69 6e 20 4b 69 6c  6f 62 79 74 65 73 20 2d  |s in Kilobytes -|
00000110  20 64 6f 6e 27 74 20 73  70 65 63 69 66 79 20 6d  | don't specify m|
00000120  6f 72 65 20 6d 65 6d 6f  72 79 20 74 68 61 6e 0a  |ore memory than.|
00000130  7c 20 79 6f 75 20 68 61  76 65 20 69 6e 20 74 68  || you have in th|
00000140  65 20 6d 61 63 68 69 6e  65 3b 20 74 68 65 20 61  |e machine; the a|
00000150  70 70 6c 69 63 61 74 69  6f 6e 20 75 73 65 73 20  |pplication uses |
00000160  61 62 6f 75 74 20 31 34  34 4b 20 6d 6f 72 65 20  |about 144K more |
00000170  74 68 61 6e 20 74 68 69  73 0a 7c 20 66 6f 72 20  |than this.| for |
00000180  69 6e 74 65 72 6e 61 6c  20 75 73 65 2e 20 59 6f  |internal use. Yo|
00000190  75 20 6d 75 73 74 20 61  6c 6c 6f 63 61 74 65 20  |u must allocate |
000001a0  61 74 20 6c 65 61 73 74  20 31 33 33 4b 20 42 55  |at least 133K BU|
000001b0  54 20 54 48 49 53 20 4c  45 41 56 45 53 20 4e 4f  |T THIS LEAVES NO|
000001c0  20 53 50 41 43 45 0a 7c  20 46 4f 52 20 53 41 4d  | SPACE.| FOR SAM|
000001d0  50 4c 45 53 2c 20 73 6f  20 69 74 27 73 20 6e 6f  |PLES, so it's no|
000001e0  74 20 76 65 72 79 20 75  73 65 66 75 6c 2e 0a 0a  |t very useful...|
000001f0  53 65 74 20 57 49 4d 50  54 72 61 63 6b 65 72 24  |Set WIMPTracker$|
00000200  4d 65 6d 20 35 30 30 0a  0a 7c 20 54 68 65 20 27  |Mem 500..| The '|
00000210  44 4d 41 46 61 73 74 65  72 27 20 66 69 6c 65 20  |DMAFaster' file |
00000220  6a 75 73 74 20 64 6f 65  73 20 27 2a 52 4d 46 61  |just does '*RMFa|
00000230  73 74 65 72 20 53 6f 75  6e 64 44 4d 41 27 20 69  |ster SoundDMA' i|
00000240  6e 20 6f 72 64 65 72 20  74 6f 20 73 70 65 65 64  |n order to speed|
00000250  20 75 70 0a 7c 20 70 6c  61 79 69 6e 67 20 28 69  | up.| playing (i|
00000260  74 27 73 20 69 6e 20 6d  61 63 68 69 6e 65 20 63  |t's in machine c|
00000270  6f 64 65 20 73 6f 20 74  68 61 74 20 61 6e 20 65  |ode so that an e|
00000280  72 72 6f 72 20 69 73 20  6e 6f 74 20 67 69 76 65  |rror is not give|
00000290  6e 20 69 66 20 74 68 65  20 0a 7c 20 53 6f 75 6e  |n if the .| Soun|
000002a0  64 44 4d 41 20 6d 6f 64  75 6c 65 20 69 73 20 61  |dDMA module is a|
000002b0  6c 72 65 61 64 79 20 69  6e 20 52 4d 41 20 73 70  |lready in RMA sp|
000002c0  61 63 65 29 20 0a 0a 52  75 6e 20 3c 54 72 24 44  |ace) ..Run <Tr$D|
000002d0  69 72 3e 2e 44 4d 41 46  61 73 74 65 72 0a 49 63  |ir>.DMAFaster.Ic|
000002e0  6f 6e 53 70 72 69 74 65  73 20 3c 54 72 24 44 69  |onSprites <Tr$Di|
000002f0  72 3e 2e 21 53 70 72 69  74 65 73 0a 49 63 6f 6e  |r>.!Sprites.Icon|
00000300  53 70 72 69 74 65 73 20  3c 54 72 24 44 69 72 3e  |Sprites <Tr$Dir>|
00000310  2e 53 70 72 69 74 65 46  69 6c 65 0a 52 4d 52 65  |.SpriteFile.RMRe|
00000320  49 6e 69 74 20 53 6f 75  6e 64 43 68 61 6e 6e 65  |Init SoundChanne|
00000330  6c 73 0a 52 4d 52 65 49  6e 69 74 20 53 6f 75 6e  |ls.RMReInit Soun|
00000340  64 53 63 68 65 64 75 6c  65 72 0a 52 4d 52 65 49  |dScheduler.RMReI|
00000350  6e 69 74 20 57 61 76 65  53 79 6e 74 68 0a 52 4d  |nit WaveSynth.RM|
00000360  52 65 49 6e 69 74 20 53  74 72 69 6e 67 4c 69 62  |ReInit StringLib|
00000370  0a 52 4d 52 65 49 6e 69  74 20 50 65 72 63 75 73  |.RMReInit Percus|
00000380  73 69 6f 6e 0a 52 4d 45  6e 73 75 72 65 20 57 49  |sion.RMEnsure WI|
00000390  4d 50 54 72 61 63 6b 65  72 20 31 2e 30 35 20 52  |MPTracker 1.05 R|
000003a0  4d 4c 6f 61 64 20 3c 54  72 24 44 69 72 3e 2e 53  |MLoad <Tr$Dir>.S|
000003b0  75 70 70 6f 72 74 4d 6f  64 0a 52 4d 45 6e 73 75  |upportMod.RMEnsu|
000003c0  72 65 20 57 49 4d 50 54  72 61 63 6b 65 72 20 31  |re WIMPTracker 1|
000003d0  2e 30 35 20 45 72 72 6f  72 20 30 20 54 68 69 73  |.05 Error 0 This|
000003e0  20 76 65 72 73 69 6f 6e  20 6f 66 20 53 75 70 70  | version of Supp|
000003f0  6f 72 74 4d 6f 64 20 69  73 20 74 6f 6f 20 6f 6c  |ortMod is too ol|
00000400  64 0a 0a 7c 20 54 68 65  20 66 69 6c 65 20 27 52  |d..| The file 'R|
00000410  75 6e 6e 65 72 27 20 64  6f 65 73 20 27 2a 52 75  |unner' does '*Ru|
00000420  6e 20 3c 54 72 24 44 69  72 3e 2e 21 52 75 6e 49  |n <Tr$Dir>.!RunI|
00000430  6d 61 67 65 27 20 62 75  74 20 65 6e 73 75 72 65  |mage' but ensure|
00000440  73 20 74 68 61 74 0a 7c  20 53 75 70 70 6f 72 74  |s that.| Support|
00000450  4d 6f 64 20 69 73 20 52  4d 4b 69 6c 6c 65 64 20  |Mod is RMKilled |
00000460  69 66 20 21 52 75 6e 49  6d 61 67 65 20 63 61 6e  |if !RunImage can|
00000470  6e 6f 74 20 6c 6f 61 64  20 66 6f 72 20 73 6f 6d  |not load for som|
00000480  65 20 72 65 61 73 6f 6e  0a 0a 52 75 6e 20 3c 54  |e reason..Run <T|
00000490  72 24 44 69 72 3e 2e 52  75 6e 6e 65 72 0a        |r$Dir>.Runner.|
0000049e