Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
31 | halyavin | 1 | oX = 6 |
2 | oY = 22+3 |
||
3 | tW = 6 |
||
4 | tH = 9 |
||
5 | |||
6 | VK_TAB = 9 |
||
7 | VK_RETURN = 13 |
||
8 | VK_ESCAPE = 27 |
||
9 | VK_F10 = 49 |
||
10 | VK_F5 = 54 |
||
11 | VK_LEFT = 176 |
||
12 | VK_DOWN = 177 |
||
13 | VK_UP = 178 |
||
14 | VK_RIGHT = 179 |
||
15 | VK_HOME = 180 |
||
16 | VK_END = 181 |
||
17 | VK_PGDOWN = 183 |
||
18 | VK_PGUP = 184 |
||
19 | |||
20 | VK_CTRLF3 = 212 |
||
21 | VK_CTRLF4 = 213 |
||
22 | |||
23 | FA_READONLY = 00000001b |
||
24 | FA_HIDDEN = 00000010b |
||
25 | FA_SYSTEM = 00000100b |
||
26 | FA_LABEL = 00001000b |
||
27 | FA_FOLDER = 00010000b |
||
28 | FA_ARCHIVED = 00100000b |
||
29 | |||
30 | struc mfar_colors { |
||
31 | .background dd $00000080 |
||
32 | .default dd $0000FFFF |
||
33 | .system dd $00008080 |
||
34 | .selection dd $00009090 |
||
35 | .folder dd $00FFFFFF |
||
36 | .executable dd $0000FF00 |
||
37 | .bitmap dd $00FF00FF |
||
38 | .source dd $00FF0000 |
||
39 | .path dd $00C0C0C0 |
||
40 | .pathbg dd $00000000 |
||
41 | .keys dd $00000000 |
||
42 | .keysbg dd $00008080 |
||
43 | } |
||
44 | struct mfar_colors |
||
45 | |||
46 | macro __mov reg,a { |
||
47 | if ~a eq |
||
48 | mov reg,a |
||
49 | end if |
||
50 | } |
||
51 | |||
52 | macro mcall a,b,c,d,e,f { |
||
53 | __mov eax,a |
||
54 | __mov ebx,b |
||
55 | __mov ecx,c |
||
56 | __mov edx,d |
||
57 | __mov esi,e |
||
58 | __mov edi,f |
||
59 | int $40 |
||
60 | } |
||
61 | |||
62 | macro mcall1 a,b1,b2,c,d,e,f { |
||
63 | __mov eax,a |
||
64 | if (~b1 eq)|(~b2 eq) |
||
65 | mov ebx,(b1)*65536+(b2) |
||
66 | end if |
||
67 | __mov ecx,c |
||
68 | __mov edx,d |
||
69 | __mov esi,e |
||
70 | __mov edi,f |
||
71 | int $40 |
||
72 | } |
||
73 | |||
74 | macro mcall2 a,b1,b2,c1,c2,d,e,f { |
||
75 | __mov eax,a |
||
76 | if (~b1 eq)|(~b2 eq) |
||
77 | mov ebx,(b1)*65536+(b2) |
||
78 | end if |
||
79 | if (~c1 eq)|(~c2 eq) |
||
80 | mov ecx,(c1)*65536+(c2) |
||
81 | end if |
||
82 | __mov edx,d |
||
83 | __mov esi,e |
||
84 | __mov edi,f |
||
85 | int $40 |
||
86 | } |
||
87 | |||
88 | macro sz name,[data] { |
||
89 | common |
||
90 | if used name |
||
91 | label name |
||
92 | end if |
||
93 | forward |
||
94 | if used name |
||
95 | db data |
||
96 | end if |
||
97 | common |
||
98 | if used name |
||
99 | .size = $-name |
||
100 | end if |
||
101 | } |
||
102 | |||
103 | macro lsz name,[lng,data] { |
||
104 | common |
||
105 | if used name |
||
106 | label name |
||
107 | end if |
||
108 | forward |
||
109 | if (used name)&(lang eq lng) |
||
110 | db data |
||
111 | end if |
||
112 | common |
||
113 | if used name |
||
114 | .size = $-name |
||
115 | end if |
||
116 | } |
||
117 | |||
118 | macro mmov reg,a1,a2 { |
||
119 | mov reg,(a1)*65536+a2 |
||
120 | } |
||
121 | |||
122 | macro madd reg,a1,a2 { |
||
123 | add reg,(a1)*65536+a2 |
||
124 | } |
||
125 | |||
126 | macro msub reg,a1,a2 { |
||
127 | sub reg,(a1)*65536+a2 |
||
128 | } |
||
129 | |||
130 | macro jmpe reg,def,[val,lab] { |
||
131 | forward |
||
132 | cmp reg,val |
||
133 | je lab |
||
134 | common |
||
135 | if ~def eq |
||
136 | jmp def |
||
137 | end if |
||
138 | } |
||
139 | |||
140 | macro func name { |
||
141 | if used name |
||
142 | label name |
||
143 | } |
||
144 | |||
145 | macro endf { |
||
146 | end if |
||
147 | } |