Subversion Repositories Kolibri OS

Rev

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