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 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'
 
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
  int  0x40
 
  mcall 12,1
  
  xor  eax,eax                     
  mov  ebx,220*65536+120        
  mov  ecx,30*65536+FILECOUNT*16+35
  mov  edx,[sc.work]
  or   edx,0x33000000
  mov  edi,header
  int  0x40
 
  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
 
 
header  db appname,0
 
fileinfo:
        dd      7
        dd      0
        dd      param
        dd      0 ,0
        db      '/RD/1/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
  embed_file 'GNU.TXT'           ;b
  embed_file 'HOT_KEYS.TXT'      ;c
  embed_file 'FASM.TXT'          ;d
  embed_file 'MTDBG.TXT'         ;e
  embed_file 'VRR_RUS.TXT'       ;f
  embed_file 'SYSFUNCR.TXT'      ;g
  embed_file 'PPP_RUS.TXT'       ;h
  embed_file 'STACK_RU.TXT'      ;i
  embed_file 'GROBFAR.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:
 
sc     system_colors

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

Subversion Repositories Kolibri OS

(root)/programs/system/docpack/trunk/docpack.asm – Rev 123 → 180