KolibriOS/kolibrios
13
4
Fork 12
Code Issues 78 Pull Requests 5 Projects Releases Activity

docpak: small update

Browse Source 
git-svn-id: svn://kolibrios.org@2698 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kirill Lipatov (Leency) 2012-05-28 06:46:50 +00:00
parent 7826bd0917
commit 8245cf0e69
2 changed files with 18 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
programs/system/docpack/trunk/build.bat
View File

@ -1,2 +1,3 @@
fasm docpack.asm docpack fasm docpack.asm docpak
kpack docpak
pause pause

40
programs/system/docpack/trunk/docpack.asm
View File

@ -1,6 +1,6 @@
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
; ;
; DOCPAK FOR MENUET v1.1 ; DOCPAK FOR KOLIBRI v1.2
; Written in pure assembly by Ivushkin Andrey aka Willow ; Written in pure assembly by Ivushkin Andrey aka Willow
; ;
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
@ -21,7 +21,7 @@ macro embed_file fn
label2: label2:
FILE_COUNT=FILE_COUNT+1 FILE_COUNT=FILE_COUNT+1
} }
appname equ 'Doc Pack'
use32 use32
org 0x0 org 0x0
db 'MENUET01' ; 8 byte id db 'MENUET01' ; 8 byte id
@ -87,21 +87,13 @@ start:
red: red:
mov [my_param],'a' mov [my_param],'a'
mov eax,48 mcall 48, 3, sc, sizeof.system_colors
mov ebx,3
mov ecx,sc
mov edx,sizeof.system_colors
mcall
mcall 12,1 mcall 12,1
xor eax,eax
mov ebx,220*65536+120
mov ecx,30*65536+FILECOUNT*16+35
mov edx,[sc.work] mov edx,[sc.work]
or edx,0x34000000 or edx,0x34000000
mov edi,title mcall 0, <220,120>, <30,FILECOUNT*16+35>, , ,title
mcall
mov ecx,FILECOUNT mov ecx,FILECOUNT
mov ebx,5 shl 16+100 mov ebx,5 shl 16+100
@ -160,8 +152,6 @@ still:
movzx ecx,ah movzx ecx,ah
jmp start.open jmp start.open
title db appname,0
fileinfo: fileinfo:
dd 7 dd 7
dd 0 dd 0
@ -179,24 +169,24 @@ embedded:
; Please use only filenames w/o path! ; Please use only filenames w/o path!
; -- Start of embedding area ------ ; -- Start of embedding area ------
embed_file 'README.TXT' ;a embed_file 'Readme.txt' ;a
if lang eq ru if lang eq ru
embed_file 'GNU.TXT' ;b embed_file 'GNU.txt' ;b
else else
embed_file 'COPYING.TXT' ;b embed_file 'Copying.txt' ;b
end if end if
embed_file 'HOT_KEYS.TXT' ;c embed_file 'Hot_keys.txt' ;c
embed_file 'FASM.TXT' ;d embed_file 'FASM.TXT' ;d
embed_file 'MTDBG.TXT' ;e embed_file 'MTDBG.TXT' ;e
if lang eq ru if lang eq ru
embed_file 'SYSFUNCR.TXT' ;f embed_file 'Sysfuncr.txt' ;f
embed_file 'STACK_RU.TXT' ;g embed_file 'Stack_ru.txt' ;g
else else
embed_file 'SYSFUNCS.TXT' ;f embed_file 'Sysfuncs.txt' ;f
embed_file 'STACK.TXT' ;g embed_file 'Stack.txt' ;g
end if end if
embed_file 'KFAR_KEYS.TXT' ;h embed_file 'Kfar_keys.txt' ;h
embed_file 'INI.TXT' ;i embed_file 'Ini.txt' ;i
; -- End of embedding area ------- ; -- End of embedding area -------
dd 0 dd 0
@ -210,4 +200,6 @@ my_param db 0
rb 256 rb 256
I_END: I_END:
title db 'Doc Pack',0
sc system_colors sc system_colors