Go to most recent revision | 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 | } |