WebSVN – Kolibri OS – Diff – /programs/system/docpack/trunk/docpack.asm


;---------------------------------------------------------------------
;
;   DOCPAK FOR KOLIBRI v1.2
;   Written in pure assembly by Ivushkin Andrey aka Willow
;
;---------------------------------------------------------------------
 
FILE_COUNT=0
DEF_FILE equ 'g'
 
macro embed_docdir_file fn
{
 forward
   local label,label2,label3
   dd label2-label
   dd label-label3
   label3:
   db fn
   label:
     file '%DOCDIR%' # fn
   label2:
   FILE_COUNT=FILE_COUNT+1
}
macro embed_local_file fn
{
 forward
   local label,label2,label3
   dd label2-label
   dd label-label3
   label3:
   db fn
   label:
     file fn
   label2:
   FILE_COUNT=FILE_COUNT+1
}
 
   use32
   org    0x0
   db     'MENUET01'              ; 8 byte id
   dd     0x01                    ; header version
   dd     start                   ; start of code
   dd     I_END                   ; size of image
   dd     I_END+0x400             ; memory for app
   dd     I_END+0x400             ; esp
   dd     my_param , 0x0          ; I_Param , I_Icon
include '../../../macros.inc'
include 'lang.inc'
 
start:
  cmp   [my_param],0
  je    red
  cmp   [my_param],'a'
  jb    .par_a
  cmp   [my_param],'z'
  jbe   .ok2
 .par_a:
  mov   [my_param],DEF_FILE
 .ok2:
  movzx ecx,[my_param]
  mov   [my_param],'*'
 .open:
  sub   ecx,'a'-1
  mov   edx,embedded
  xor   esi,esi
 .list:
  lea   edx,[edx+esi+8]
  mov   esi,[edx-8]
  add   edx,[edx-4]
  test  esi,esi
  jz    .close
  loop  .list
        push    edx
; convert number in esi to decimal representation
        mov     ecx, 10
        push    -'0'
        mov     eax, esi
@@:
        xor	edx, edx
        div     ecx
        push    edx
        test    eax, eax
        jnz     @b
        mov     edi, fsize
@@:
        pop     eax
        add     al, '0'
        stosb
        jnz     @b
  mcall 70,fileinfo
  mov   ecx,eax
  mcall 5,20
  pop   edx
  mcall 60,2
  cmp   [my_param],'*'
  jne   still
 .close:
  mcall -1
 
red:
  mov   [my_param],'a'
 
  mcall 48, 3, sc, sizeof.system_colors
 
  mcall 12,1
 
BTN_H equ 21
  
  mov  edx,[sc.work]
  or   edx,0x34000000
  mcall 0, <220,141>, <30,FILECOUNT*(BTN_H+3)+37>, , ,title
 
  mov   ecx,FILECOUNT
  mov   ebx,23 shl 16+100
  mov   esi,[sc.work_button]
  mov   edi,5 shl 16+BTN_H
  mov   edx,10
  mov   eax,8
 .btnlp:
  push  ecx
  mcall ,,edi
  add   edi,(BTN_H+3) shl 16
  inc   edx
  pop   ecx
  loop  .btnlp
  mov   ecx,FILECOUNT
  mov   edx,embedded
  xor   edi,edi
  mov   ebx,30 shl 16+8
  mov   eax,4
 .list:
  lea   edx,[edx+edi+8]
  mov   edi,[edx-8]
  pusha
  sub   ebx,20 shl 16
  mov ecx, [sc.work_text]
  or  ecx, 0x30000000
  mcall ,,,my_param,1
  inc   [my_param]
  popa
  push  ecx
  mov esi, [edx-4]
  sub esi, 4 ;remove .txt extension
  mov ecx, [sc.work_button_text]
  or  ecx, 0x30000000
  mcall
  pop   ecx
  add   esi, 4
  add   edx, esi
  add   ebx,(BTN_H+3)
  loop  .list
  mcall 12,2
 
still:
  mcall 10
  cmp   eax,1
  je    red
  cmp   eax,2
  jne   .nokey
  mcall 2
  cmp   ah,27 ;Esc
  je    start.close
  cmp   ah,'a'
  jb    still
  cmp   ah,'a'+FILECOUNT
  jae   still
  jmp   .cxax
 .nokey:
  mcall 17
  cmp   ah,1
  je    start.close
  sub   ah,10-'a'
 .cxax:
  movzx  ecx,ah
  jmp   start.open
 
fileinfo:
        dd      7
        dd      0
        dd      param
        dd      0 ,0
        db      '/sys/TINYPAD',0
 
param  db '*'
fsize:
       times 10 db '0'
       db 0
 
embedded:
 
; Please use only filenames w/o path!
 
; -- Start of embedding area ------
  embed_docdir_file 'README.TXT'       ;a
if lang eq ru
  embed_docdir_file 'GNU.TXT'          ;b
else
  embed_docdir_file 'COPYING.TXT'      ;b
end if
  embed_docdir_file 'HOT_KEYS.TXT'     ;c
  embed_local_file 'FASM.TXT'          ;d
  embed_docdir_file 'MTDBG.TXT'        ;e
if lang eq ru
  embed_local_file 'SYSFUNCR.TXT'      ;f
else
  embed_local_file 'SYSFUNCS.TXT'      ;f
end if
  embed_docdir_file 'STACK.TXT'        ;g
  embed_docdir_file 'KFAR_KEYS.TXT'    ;h
  embed_docdir_file 'INI.TXT'          ;i
  embed_docdir_file 'OPENDIAL.TXT'     ;j
; -- End of embedding area  -------
 
  dd 0
FILECOUNT = FILE_COUNT
 
  if ~ FILECOUNT>0
    error 'No embedded files'
  end if
 
my_param db 0
  rb 256
I_END:
 
title db 'Doc Pack',0
 
sc     system_colors

Rev 5098	Rev 6267
1	;---------------------------------------------------------------------	1	;---------------------------------------------------------------------
2	;	2	;
3	; DOCPAK FOR KOLIBRI v1.2	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	;---------------------------------------------------------------------
7		7
8	FILE_COUNT=0	8	FILE_COUNT=0
9	DEF_FILE equ 'g'	9	DEF_FILE equ 'g'
10		10
11	macro embed_docdir_file fn	11	macro embed_docdir_file fn
12	{	12	{
13	forward	13	forward
14	local label,label2,label3	14	local label,label2,label3
15	dd label2-label	15	dd label2-label
16	dd label-label3	16	dd label-label3
17	label3:	17	label3:
18	db fn	18	db fn
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	macro embed_local_file fn	24	macro embed_local_file fn
25	{	25	{
26	forward	26	forward
27	local label,label2,label3	27	local label,label2,label3
28	dd label2-label	28	dd label2-label
29	dd label-label3	29	dd label-label3
30	label3:	30	label3:
31	db fn	31	db fn
32	label:	32	label:
33	file fn	33	file fn
34	label2:	34	label2:
35	FILE_COUNT=FILE_COUNT+1	35	FILE_COUNT=FILE_COUNT+1
36	}	36	}
37		37
38	use32	38	use32
39	org 0x0	39	org 0x0
40	db 'MENUET01' ; 8 byte id	40	db 'MENUET01' ; 8 byte id
41	dd 0x01 ; header version	41	dd 0x01 ; header version
42	dd start ; start of code	42	dd start ; start of code
43	dd I_END ; size of image	43	dd I_END ; size of image
44	dd I_END+0x400 ; memory for app	44	dd I_END+0x400 ; memory for app
45	dd I_END+0x400 ; esp	45	dd I_END+0x400 ; esp
46	dd my_param , 0x0 ; I_Param , I_Icon	46	dd my_param , 0x0 ; I_Param , I_Icon
47	include '../../../macros.inc'	47	include '../../../macros.inc'
48	include 'lang.inc'	48	include 'lang.inc'
49		49
50	start:	50	start:
51	cmp [my_param],0	51	cmp [my_param],0
52	je red	52	je red
53	cmp [my_param],'a'	53	cmp [my_param],'a'
54	jb .par_a	54	jb .par_a
55	cmp [my_param],'z'	55	cmp [my_param],'z'
56	jbe .ok2	56	jbe .ok2
57	.par_a:	57	.par_a:
58	mov [my_param],DEF_FILE	58	mov [my_param],DEF_FILE
59	.ok2:	59	.ok2:
60	movzx ecx,[my_param]	60	movzx ecx,[my_param]
61	mov [my_param],'*'	61	mov [my_param],'*'
62	.open:	62	.open:
63	sub ecx,'a'-1	63	sub ecx,'a'-1
64	mov edx,embedded	64	mov edx,embedded
65	xor esi,esi	65	xor esi,esi
66	.list:	66	.list:
67	lea edx,[edx+esi+8]	67	lea edx,[edx+esi+8]
68	mov esi,[edx-8]	68	mov esi,[edx-8]
69	add edx,[edx-4]	69	add edx,[edx-4]
70	test esi,esi	70	test esi,esi
71	jz .close	71	jz .close
72	loop .list	72	loop .list
73	push edx	73	push edx
74	; convert number in esi to decimal representation	74	; convert number in esi to decimal representation
75	mov ecx, 10	75	mov ecx, 10
76	push -'0'	76	push -'0'
77	mov eax, esi	77	mov eax, esi
78	@@:	78	@@:
79	xor edx, edx	79	xor edx, edx
80	div ecx	80	div ecx
81	push edx	81	push edx
82	test eax, eax	82	test eax, eax
83	jnz @b	83	jnz @b
84	mov edi, fsize	84	mov edi, fsize
85	@@:	85	@@:
86	pop eax	86	pop eax
87	add al, '0'	87	add al, '0'
88	stosb	88	stosb
89	jnz @b	89	jnz @b
90	mcall 70,fileinfo	90	mcall 70,fileinfo
91	mov ecx,eax	91	mov ecx,eax
92	mcall 5,20	92	mcall 5,20
93	pop edx	93	pop edx
94	mcall 60,2	94	mcall 60,2
95	cmp [my_param],'*'	95	cmp [my_param],'*'
96	jne still	96	jne still
97	.close:	97	.close:
98	mcall -1	98	mcall -1
99		99
100	red:	100	red:
101	mov [my_param],'a'	101	mov [my_param],'a'
102		102
103	mcall 48, 3, sc, sizeof.system_colors	103	mcall 48, 3, sc, sizeof.system_colors
104		104
105	mcall 12,1	105	mcall 12,1
-		106
-		107	BTN_H equ 21
106		108
107	mov edx,[sc.work]	109	mov edx,[sc.work]
108	or edx,0x34000000	110	or edx,0x34000000
109	mcall 0, <220,120>, <30,FILECOUNT*16+35>, , ,title	111	mcall 0, <220,141>, <30,FILECOUNT*(BTN_H+3)+37>, , ,title
110		112
111	mov ecx,FILECOUNT	113	mov ecx,FILECOUNT
112	mov ebx,5 shl 16+100	114	mov ebx,23 shl 16+100
113	mov esi,[sc.work_button]	115	mov esi,[sc.work_button]
114	mov edi,5 shl 16+14	116	mov edi,5 shl 16+BTN_H
115	mov edx,10	117	mov edx,10
116	mov eax,8	118	mov eax,8
117	.btnlp:	119	.btnlp:
118	push ecx	120	push ecx
119	mcall ,,edi	121	mcall ,,edi
120	add edi,16 shl 16	122	add edi,(BTN_H+3) shl 16
121	inc edx	123	inc edx
122	pop ecx	124	pop ecx
123	loop .btnlp	125	loop .btnlp
124	mov ecx,FILECOUNT	126	mov ecx,FILECOUNT
125	mov edx,embedded	127	mov edx,embedded
126	xor edi,edi	128	xor edi,edi
127	mov ebx,25 shl 16+8	129	mov ebx,30 shl 16+8
128	mov eax,4	130	mov eax,4
129	.list:	131	.list:
130	lea edx,[edx+edi+8]	132	lea edx,[edx+edi+8]
131	mov edi,[edx-8]	133	mov edi,[edx-8]
132	pusha	134	pusha
133	sub ebx,15 shl 16	135	sub ebx,20 shl 16
-		136	mov ecx, [sc.work_text]
-		137	or ecx, 0x30000000
134	mcall ,,0xff0000,my_param,1	138	mcall ,,,my_param,1
135	inc [my_param]	139	inc [my_param]
136	popa	140	popa
137	push ecx	141	push ecx
138	mov esi, [edx-4]	142	mov esi, [edx-4]
139	sub esi, 4 ;remove .txt extension	143	sub esi, 4 ;remove .txt extension
140	mcall ,,[sc.work_button_text]	144	mov ecx, [sc.work_button_text]
-		145	or ecx, 0x30000000
-		146	mcall
141	pop ecx	147	pop ecx
142	add esi, 4	148	add esi, 4
143	add edx, esi	149	add edx, esi
144	add ebx,16	150	add ebx,(BTN_H+3)
145	loop .list	151	loop .list
146	mcall 12,2	152	mcall 12,2
147		153
148	still:	154	still:
149	mcall 10	155	mcall 10
150	cmp eax,1	156	cmp eax,1
151	je red	157	je red
152	cmp eax,2	158	cmp eax,2
153	jne .nokey	159	jne .nokey
154	mcall 2	160	mcall 2
155	cmp ah,27 ;Esc	161	cmp ah,27 ;Esc
156	je start.close	162	je start.close
157	cmp ah,'a'	163	cmp ah,'a'
158	jb still	164	jb still
159	cmp ah,'a'+FILECOUNT	165	cmp ah,'a'+FILECOUNT
160	jae still	166	jae still
161	jmp .cxax	167	jmp .cxax
162	.nokey:	168	.nokey:
163	mcall 17	169	mcall 17
164	cmp ah,1	170	cmp ah,1
165	je start.close	171	je start.close
166	sub ah,10-'a'	172	sub ah,10-'a'
167	.cxax:	173	.cxax:
168	movzx ecx,ah	174	movzx ecx,ah
169	jmp start.open	175	jmp start.open
170		176
171	fileinfo:	177	fileinfo:
172	dd 7	178	dd 7
173	dd 0	179	dd 0
174	dd param	180	dd param
175	dd 0 ,0	181	dd 0 ,0
176	db '/sys/TINYPAD',0	182	db '/sys/TINYPAD',0
177		183
178	param db '*'	184	param db '*'
179	fsize:	185	fsize:
180	times 10 db '0'	186	times 10 db '0'
181	db 0	187	db 0
182		188
183	embedded:	189	embedded:
184		190
185	; Please use only filenames w/o path!	191	; Please use only filenames w/o path!
186		192
187	; -- Start of embedding area ------	193	; -- Start of embedding area ------
188	embed_docdir_file 'README.TXT' ;a	194	embed_docdir_file 'README.TXT' ;a
189	if lang eq ru	195	if lang eq ru
190	embed_docdir_file 'GNU.TXT' ;b	196	embed_docdir_file 'GNU.TXT' ;b
191	else	197	else
192	embed_docdir_file 'COPYING.TXT' ;b	198	embed_docdir_file 'COPYING.TXT' ;b
193	end if	199	end if
194	embed_docdir_file 'HOT_KEYS.TXT' ;c	200	embed_docdir_file 'HOT_KEYS.TXT' ;c
195	embed_local_file 'FASM.TXT' ;d	201	embed_local_file 'FASM.TXT' ;d
196	embed_docdir_file 'MTDBG.TXT' ;e	202	embed_docdir_file 'MTDBG.TXT' ;e
197	if lang eq ru	203	if lang eq ru
198	embed_local_file 'SYSFUNCR.TXT' ;f	204	embed_local_file 'SYSFUNCR.TXT' ;f
199	else	205	else
200	embed_local_file 'SYSFUNCS.TXT' ;f	206	embed_local_file 'SYSFUNCS.TXT' ;f
201	end if	207	end if
202	embed_docdir_file 'STACK.TXT' ;g	208	embed_docdir_file 'STACK.TXT' ;g
203	embed_docdir_file 'KFAR_KEYS.TXT' ;h	209	embed_docdir_file 'KFAR_KEYS.TXT' ;h
204	embed_docdir_file 'INI.TXT' ;i	210	embed_docdir_file 'INI.TXT' ;i
205	embed_docdir_file 'OPENDIAL.TXT' ;j	211	embed_docdir_file 'OPENDIAL.TXT' ;j
206	; -- End of embedding area -------	212	; -- End of embedding area -------
207		213
208	dd 0	214	dd 0
209	FILECOUNT = FILE_COUNT	215	FILECOUNT = FILE_COUNT
210		216
211	if ~ FILECOUNT>0	217	if ~ FILECOUNT>0
212	error 'No embedded files'	218	error 'No embedded files'
213	end if	219	end if
214		220
215	my_param db 0	221	my_param db 0
216	rb 256	222	rb 256
217	I_END:	223	I_END:
218		224
219	title db 'Doc Pack',0	225	title db 'Doc Pack',0
220		226
221	sc system_colors	227	sc system_colors

Subversion Repositories Kolibri OS

(root)/programs/system/docpack/trunk/docpack.asm – Rev 5098 → 6267