Home » Archimedes archive » Archimedes World » AW-1995-10 Disc 2.adf » AW1095_2 » Freeware/MPEGTools/!MPEGplay/!Boot

Freeware/MPEGTools/!MPEGplay/!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 » Archimedes World » AW-1995-10 Disc 2.adf » AW1095_2
Filename: Freeware/MPEGTools/!MPEGplay/!Boot
Read OK:
File size: 032C bytes
Load address: 0000
Exec address: 0000
File contents
|
| !Boot file for MPEGplay
|
| Copyright � L.L. Frederiks, 1995
|

Iconsprites <Obey$Dir>.!Sprites

Set MPEGplay$Dir <Obey$Dir>

Set File$Type_BF8 MPEG

Set Alias$@RunType_BF8 Run <MPEGplay$Dir>.MPEGRun %*0

| If your version of !ARMovie contains all the dithering tables that are in
| the !MPEGplay.Tables directory, then you can delete the files from inside
| !MPEGplay.Tables and the MPEG player will still find them (as long as
| !ARMovie has been 'seen').

SetMacro MPEGTable$Path <MPEGplay$Dir>.Tables.
If "<ARMovie$Dir>"<>"" Then SetMacro MPEGTable$Path <MPEGplay$Dir>.Tables.,<ARMovie$Dir>.MovingLine.

| If you have a PCATS Graphics Enhancer and want !MPEG
| to automatically enter a 16bpp mode for playing,
| include the following line:

|Set Alias$@RunType_BF8 Run <MPEGplay$Dir>.PCATS.PCATSplay %*0
00000000  7c 0a 7c 20 21 42 6f 6f  74 20 66 69 6c 65 20 66  ||.| !Boot file f|
00000010  6f 72 20 4d 50 45 47 70  6c 61 79 0a 7c 0a 7c 20  |or MPEGplay.|.| |
00000020  43 6f 70 79 72 69 67 68  74 20 a9 20 4c 2e 4c 2e  |Copyright . L.L.|
00000030  20 46 72 65 64 65 72 69  6b 73 2c 20 31 39 39 35  | Frederiks, 1995|
00000040  0a 7c 0a 0a 49 63 6f 6e  73 70 72 69 74 65 73 20  |.|..Iconsprites |
00000050  3c 4f 62 65 79 24 44 69  72 3e 2e 21 53 70 72 69  |<Obey$Dir>.!Spri|
00000060  74 65 73 0a 0a 53 65 74  20 4d 50 45 47 70 6c 61  |tes..Set MPEGpla|
00000070  79 24 44 69 72 20 3c 4f  62 65 79 24 44 69 72 3e  |y$Dir <Obey$Dir>|
00000080  0a 0a 53 65 74 20 46 69  6c 65 24 54 79 70 65 5f  |..Set File$Type_|
00000090  42 46 38 20 4d 50 45 47  0a 0a 53 65 74 20 41 6c  |BF8 MPEG..Set Al|
000000a0  69 61 73 24 40 52 75 6e  54 79 70 65 5f 42 46 38  |ias$@RunType_BF8|
000000b0  20 52 75 6e 20 3c 4d 50  45 47 70 6c 61 79 24 44  | Run <MPEGplay$D|
000000c0  69 72 3e 2e 4d 50 45 47  52 75 6e 20 25 2a 30 0a  |ir>.MPEGRun %*0.|
000000d0  0a 7c 20 49 66 20 79 6f  75 72 20 76 65 72 73 69  |.| If your versi|
000000e0  6f 6e 20 6f 66 20 21 41  52 4d 6f 76 69 65 20 63  |on of !ARMovie c|
000000f0  6f 6e 74 61 69 6e 73 20  61 6c 6c 20 74 68 65 20  |ontains all the |
00000100  64 69 74 68 65 72 69 6e  67 20 74 61 62 6c 65 73  |dithering tables|
00000110  20 74 68 61 74 20 61 72  65 20 69 6e 0a 7c 20 74  | that are in.| t|
00000120  68 65 20 21 4d 50 45 47  70 6c 61 79 2e 54 61 62  |he !MPEGplay.Tab|
00000130  6c 65 73 20 64 69 72 65  63 74 6f 72 79 2c 20 74  |les directory, t|
00000140  68 65 6e 20 79 6f 75 20  63 61 6e 20 64 65 6c 65  |hen you can dele|
00000150  74 65 20 74 68 65 20 66  69 6c 65 73 20 66 72 6f  |te the files fro|
00000160  6d 20 69 6e 73 69 64 65  0a 7c 20 21 4d 50 45 47  |m inside.| !MPEG|
00000170  70 6c 61 79 2e 54 61 62  6c 65 73 20 61 6e 64 20  |play.Tables and |
00000180  74 68 65 20 4d 50 45 47  20 70 6c 61 79 65 72 20  |the MPEG player |
00000190  77 69 6c 6c 20 73 74 69  6c 6c 20 66 69 6e 64 20  |will still find |
000001a0  74 68 65 6d 20 28 61 73  20 6c 6f 6e 67 20 61 73  |them (as long as|
000001b0  0a 7c 20 21 41 52 4d 6f  76 69 65 20 68 61 73 20  |.| !ARMovie has |
000001c0  62 65 65 6e 20 27 73 65  65 6e 27 29 2e 0a 0a 53  |been 'seen')...S|
000001d0  65 74 4d 61 63 72 6f 20  4d 50 45 47 54 61 62 6c  |etMacro MPEGTabl|
000001e0  65 24 50 61 74 68 20 3c  4d 50 45 47 70 6c 61 79  |e$Path <MPEGplay|
000001f0  24 44 69 72 3e 2e 54 61  62 6c 65 73 2e 0a 49 66  |$Dir>.Tables..If|
00000200  20 22 3c 41 52 4d 6f 76  69 65 24 44 69 72 3e 22  | "<ARMovie$Dir>"|
00000210  3c 3e 22 22 20 54 68 65  6e 20 53 65 74 4d 61 63  |<>"" Then SetMac|
00000220  72 6f 20 4d 50 45 47 54  61 62 6c 65 24 50 61 74  |ro MPEGTable$Pat|
00000230  68 20 3c 4d 50 45 47 70  6c 61 79 24 44 69 72 3e  |h <MPEGplay$Dir>|
00000240  2e 54 61 62 6c 65 73 2e  2c 3c 41 52 4d 6f 76 69  |.Tables.,<ARMovi|
00000250  65 24 44 69 72 3e 2e 4d  6f 76 69 6e 67 4c 69 6e  |e$Dir>.MovingLin|
00000260  65 2e 0a 0a 7c 20 49 66  20 79 6f 75 20 68 61 76  |e...| If you hav|
00000270  65 20 61 20 50 43 41 54  53 20 47 72 61 70 68 69  |e a PCATS Graphi|
00000280  63 73 20 45 6e 68 61 6e  63 65 72 20 61 6e 64 20  |cs Enhancer and |
00000290  77 61 6e 74 20 21 4d 50  45 47 0a 7c 20 74 6f 20  |want !MPEG.| to |
000002a0  61 75 74 6f 6d 61 74 69  63 61 6c 6c 79 20 65 6e  |automatically en|
000002b0  74 65 72 20 61 20 31 36  62 70 70 20 6d 6f 64 65  |ter a 16bpp mode|
000002c0  20 66 6f 72 20 70 6c 61  79 69 6e 67 2c 0a 7c 20  | for playing,.| |
000002d0  69 6e 63 6c 75 64 65 20  74 68 65 20 66 6f 6c 6c  |include the foll|
000002e0  6f 77 69 6e 67 20 6c 69  6e 65 3a 0a 0a 7c 53 65  |owing line:..|Se|
000002f0  74 20 41 6c 69 61 73 24  40 52 75 6e 54 79 70 65  |t Alias$@RunType|
00000300  5f 42 46 38 20 52 75 6e  20 3c 4d 50 45 47 70 6c  |_BF8 Run <MPEGpl|
00000310  61 79 24 44 69 72 3e 2e  50 43 41 54 53 2e 50 43  |ay$Dir>.PCATS.PC|
00000320  41 54 53 70 6c 61 79 20  25 2a 30 0a              |ATSplay %*0.|
0000032c