Rev 2689 | Rev 2700 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 2689 | Rev 2698 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | ;--------------------------------------------------------------------- |
1 | ;--------------------------------------------------------------------- |
2 | ; |
2 | ; |
3 | ; DOCPAK FOR MENUET v1.1 |
3 | ; DOCPAK FOR KOLIBRI v1.2 |
4 | ; Written in pure assembly by Ivushkin Andrey aka Willow |
4 | ; Written in pure assembly by Ivushkin Andrey aka Willow |
5 | ; |
5 | ; |
6 | ;--------------------------------------------------------------------- |
6 | ;--------------------------------------------------------------------- |
Line 7... | Line 7... | ||
7 | 7 | ||
Line 19... | Line 19... | ||
19 | label: |
19 | label: |
20 | file '%DOCDIR%' # fn |
20 | file '%DOCDIR%' # fn |
21 | label2: |
21 | label2: |
22 | FILE_COUNT=FILE_COUNT+1 |
22 | FILE_COUNT=FILE_COUNT+1 |
23 | } |
23 | } |
24 | appname equ 'Doc Pack' |
- | |
- | 24 | ||
25 | use32 |
25 | use32 |
26 | org 0x0 |
26 | org 0x0 |
27 | db 'MENUET01' ; 8 byte id |
27 | db 'MENUET01' ; 8 byte id |
28 | dd 0x01 ; header version |
28 | dd 0x01 ; header version |
29 | dd start ; start of code |
29 | dd start ; start of code |
Line 85... | Line 85... | ||
85 | mcall -1 |
85 | mcall -1 |
Line 86... | Line 86... | ||
86 | 86 | ||
87 | red: |
87 | red: |
Line 88... | Line -... | ||
88 | mov [my_param],'a' |
- | |
89 | - | ||
90 | mov eax,48 |
- | |
91 | mov ebx,3 |
88 | mov [my_param],'a' |
92 | mov ecx,sc |
- | |
Line 93... | Line 89... | ||
93 | mov edx,sizeof.system_colors |
89 | |
Line 94... | Line -... | ||
94 | mcall |
- | |
95 | - | ||
96 | mcall 12,1 |
- | |
97 | 90 | mcall 48, 3, sc, sizeof.system_colors |
|
98 | xor eax,eax |
91 | |
99 | mov ebx,220*65536+120 |
92 | mcall 12,1 |
100 | mov ecx,30*65536+FILECOUNT*16+35 |
- | |
Line 101... | Line 93... | ||
101 | mov edx,[sc.work] |
93 | |
102 | or edx,0x34000000 |
94 | mov edx,[sc.work] |
103 | mov edi,title |
95 | or edx,0x34000000 |
104 | mcall |
96 | mcall 0, <220,120>, <30,FILECOUNT*16+35>, , ,title |
Line 158... | Line 150... | ||
158 | sub ah,10-'a' |
150 | sub ah,10-'a' |
159 | .cxax: |
151 | .cxax: |
160 | movzx ecx,ah |
152 | movzx ecx,ah |
161 | jmp start.open |
153 | jmp start.open |
Line 162... | Line -... | ||
162 | - | ||
163 | title db appname,0 |
- | |
164 | 154 | ||
165 | fileinfo: |
155 | fileinfo: |
166 | dd 7 |
156 | dd 7 |
167 | dd 0 |
157 | dd 0 |
168 | dd param |
158 | dd param |
Line 177... | Line 167... | ||
177 | embedded: |
167 | embedded: |
Line 178... | Line 168... | ||
178 | 168 | ||
Line 179... | Line 169... | ||
179 | ; Please use only filenames w/o path! |
169 | ; Please use only filenames w/o path! |
180 | 170 | ||
181 | ; -- Start of embedding area ------ |
171 | ; -- Start of embedding area ------ |
182 | embed_file 'README.TXT' ;a |
172 | embed_file 'Readme.txt' ;a |
183 | if lang eq ru |
173 | if lang eq ru |
184 | embed_file 'GNU.TXT' ;b |
174 | embed_file 'GNU.txt' ;b |
185 | else |
175 | else |
186 | embed_file 'COPYING.TXT' ;b |
176 | embed_file 'Copying.txt' ;b |
187 | end if |
177 | end if |
188 | embed_file 'HOT_KEYS.TXT' ;c |
178 | embed_file 'Hot_keys.txt' ;c |
189 | embed_file 'FASM.TXT' ;d |
179 | embed_file 'FASM.TXT' ;d |
190 | embed_file 'MTDBG.TXT' ;e |
180 | embed_file 'MTDBG.TXT' ;e |
191 | if lang eq ru |
181 | if lang eq ru |
192 | embed_file 'SYSFUNCR.TXT' ;f |
182 | embed_file 'Sysfuncr.txt' ;f |
193 | embed_file 'STACK_RU.TXT' ;g |
183 | embed_file 'Stack_ru.txt' ;g |
194 | else |
184 | else |
195 | embed_file 'SYSFUNCS.TXT' ;f |
185 | embed_file 'Sysfuncs.txt' ;f |
196 | embed_file 'STACK.TXT' ;g |
186 | embed_file 'Stack.txt' ;g |
197 | end if |
187 | end if |
198 | embed_file 'KFAR_KEYS.TXT' ;h |
188 | embed_file 'Kfar_keys.txt' ;h |
Line 199... | Line 189... | ||
199 | embed_file 'INI.TXT' ;i |
189 | embed_file 'Ini.txt' ;i |
200 | ; -- End of embedding area ------- |
190 | ; -- End of embedding area ------- |
Line 208... | Line 198... | ||
208 | 198 | ||
209 | my_param db 0 |
199 | my_param db 0 |
210 | rb 256 |
200 | rb 256 |
Line -... | Line 201... | ||
- | 201 | I_END: |
|
- | 202 | ||
211 | I_END: |
203 | title db 'Doc Pack',0 |