Subversion Repositories Kolibri OS

Rev

Rev 2737 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2737 Rev 2738
Line 1... Line 1...
1
; version:      0.61
1
; version:      0.6 - 0.62
2
; last update:  01/06/2012
2
; last update:  04/06/2012
3
; written by:   Lipatov Kirill aka Leency
3
; written by:   Lipatov Kirill aka Leency
4
; changes:      removed old code
4
; changes:      removed old code
5
;               added edit_box
5
;               added edit_box
6
;               using system colors
6
;               using system colors
7
;				indicates file saving
7
;				indicates file saving
-
 
8
;				download by pressing Enter
8
;-----------------------------------------------------------
9
;-----------------------------------------------------------
9
; version:      0.5
10
; version:      0.5
10
; date:         07/10/2010
11
; date:         07/10/2010
11
; written by:   Marat Zakiyanov aka Mario79, aka Mario
12
; written by:   Marat Zakiyanov aka Mario79, aka Mario
12
; changes:      reducing the size of the binary code,
13
; changes:      reducing the size of the binary code,
Line 182... Line 183...
182
	mov	[onoff],0
183
	mov	[onoff],0
Line 183... Line 184...
183
 
184
 
184
no_close:
185
no_close:
Line 185... Line 186...
185
	jmp	still
186
	jmp	still
186
 
187
 
-
 
188
key:
187
key:	; key
189
	mcall	2	; read key
Line 188... Line 190...
188
	mcall	2	; read key
190
 
189
	stdcall [edit_box_key], dword edit1
-
 
190
	
-
 
191
	shr	eax,8
-
 
192
	cmp	eax,184
-
 
193
	jne	no_down
-
 
194
	cmp	[display_from],25
-
 
195
	jb	no_down
-
 
196
	sub	[display_from],25
191
	stdcall [edit_box_key], dword edit1
197
 
192
 
198
no_down:
-
 
Line 199... Line -...
199
	cmp	eax,183
-
 
200
	jne	no_up
193
	shr	eax,8
Line -... Line 194...
-
 
194
	cmp	eax,13
201
	add	[display_from],25
195
	je	retkey
202
 
-
 
-
 
196
	
203
no_up:
197
	jmp	still
204
	jmp	still
198
 
205
 
199
	
206
button:	; button
200
button:
207
;dps	<"Button pressed",13,10>
201
 
Line 247... Line 241...
247
	cmp	ah,32
241
	cmp	ah,32
248
	jne	nourl
242
	jne	nourl
249
	add	[display_from],20
243
	add	[display_from],20
250
	jmp	still
244
	jmp	still
Line 251... Line -...
251
 
-
 
252
f11:
-
 
253
	mcall	10
-
 
254
	cmp	eax,2	; key?
-
 
255
	jz	fbu
-
 
256
	jmp	still
-
 
257
 
-
 
258
fbu:
-
 
259
	mcall	2	; get key
-
 
260
	shr	eax,8
-
 
261
	cmp	eax,8
-
 
262
	jnz	nobs
-
 
263
	jmp	f11
-
 
264
 
-
 
265
nobs:
-
 
266
	cmp	eax,10
-
 
267
	je	retkey
-
 
268
	cmp	eax,13
-
 
269
	je	retkey
-
 
270
 
-
 
271
	cmp	eax,31
-
 
272
	jbe	f11
-
 
273
 
-
 
Line 274... Line 245...
274
	jmp	still
245
 
275
 
246
 
Line 276... Line 247...
276
retkey:
247
retkey: