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


;---------------------------------------------------------------------
;
;   DOCPAK FOR MENUET v1.1
;   Written in pure assembly by Ivushkin Andrey aka Willow
;
;---------------------------------------------------------------------
 
FILE_COUNT=0
DEF_FILE equ 'g'
 
macro embed_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
}
appname equ 'Doc Pack'
   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'
  
  mov  eax,48
  mov  ebx,3
  mov  ecx,sc
  mov  edx,sizeof.system_colors
  mcall
 
  mcall 12,1
  
  xor  eax,eax                     
  mov  ebx,220*65536+120        
  mov  ecx,30*65536+FILECOUNT*16+35
  mov  edx,[sc.work]
  or   edx,0x34000000
  mov  edi,title
  mcall
 
  mov   ecx,FILECOUNT
  mov   ebx,5 shl 16+100
  mov   esi,[sc.work_button]
  mov   edi,5 shl 16+14
  mov   edx,10
  mov   eax,8
 .btnlp:
  push  ecx
  mcall ,,edi
  add   edi,16 shl 16
  inc   edx
  pop   ecx
  loop  .btnlp
  mov   ecx,FILECOUNT
  mov   edx,embedded
  xor   edi,edi
  mov   ebx,25 shl 16+8
  mov   eax,4
 .list: 
  lea   edx,[edx+edi+8]
  mov   edi,[edx-8]
  pusha
  sub   ebx,15 shl 16
  mcall ,,0xff0000,my_param,1
  inc   [my_param]
  popa
  push  ecx
  mcall ,,[sc.work_button_text],,[edx-4]
  pop   ecx
  add   edx,esi
  add   ebx,16
  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
 
title  db appname,0
 
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_file 'README.TXT'        ;a
if lang eq ru
  embed_file 'GNU.TXT'           ;b
else
  embed_file 'COPYING.TXT'       ;b
end if
  embed_file 'HOT_KEYS.TXT'      ;c
  embed_file 'FASM.TXT'          ;d
  embed_file 'MTDBG.TXT'         ;e
if lang eq ru
  embed_file 'VRR_RUS.TXT'       ;f
  embed_file 'SYSFUNCR.TXT'      ;g
  embed_file 'STACK_RU.TXT'      ;h
  embed_file 'GROBFAR.TXT'       ;i
else
  embed_file 'VRR_ENG.TXT'       ;f
  embed_file 'SYSFUNCS.TXT'      ;g
  embed_file 'STACK.TXT'         ;h
  embed_file 'FARA.TXT'          ;i
end if
  embed_file 'KFAR_KEYS.TXT'     ;j
  embed_file 'INI.TXT'           ;k
; -- 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:
 
sc     system_colors

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

Subversion Repositories Kolibri OS

(root)/programs/system/docpack/trunk/docpack.asm @ 1769 – Rev 1735 → 1736