forked from GSoftwareDevelopment/MIDICar-Player
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathconst.inc
49 lines (38 loc) · 911 Bytes
/
const.inc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
const
{$i memory.inc}
FREE_MEM = ($8000-$4000)+($d000-$c000)+($ff00-$d800);
f_clear = %00100000;
ps_colorSet = %0001;
ps_view = %0010;
ps_loop = %1100;
ps_playonce = %0000;
ps_repeatone= %0100;
ps_repeatall= %1000;
ps_shuffle = %1100;
ps_isRefresh = %10000000;
ps_isStopped = %01000000;
ps_isHelp = %00100000;
LIST_VISIBLE_CHARS = 30;
LIST_VISIBLE_ITEMS = 16;
fl_device = $ff;
fl_directory = $fe;
fl_parentdir = $fd;
fl_playlist = $fc;
fl_midifile = $fb;
fl_otherfile = $fa;
// fe_PLS = $504c5300;
fe_DIR = $c4c9d200;
fe_MID = $4d494400;
dev_size = 6;
path_size = 64;
name_size = 32;
CURDEV_ADDR = $4F0;
CURPATH_ADDR = $4F8;
FN_PATH_ADDR = $539;
OUTSTR_ADDR = $55A;
SNULL_ADDR = $5AB;
dirMask = '*.*';
colors:Array[0..1,0..4] of byte = (
($A8,$00,$0A,$08,$0A),
($A8,$0A,$00,$02,$00)
);