Subversion Repositories Kolibri OS

Rev

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

Rev 111 Rev 131
Line 103... Line 103...
103
   	invoke FindWindowEx, eax,NULL,NULL,ok_txt
103
   	invoke FindWindowEx, eax,NULL,NULL,ok_txt
104
   	invoke SendMessage,eax,BM_CLICK,NULL,NULL
104
   	invoke SendMessage,eax,BM_CLICK,NULL,NULL
105
 else
105
 else
106
    test [Flags],THREAD_YES
106
    test [Flags],THREAD_YES
107
    jnz  .ex
107
    jnz  .ex
108
    mcall 51,1,thread,MEMORY
108
    mcall 51,1,thread,child_stack;MEMORY
109
    mov  [child],eax
109
    mov  [child],eax
110
 end if
110
 end if
111
  .ex:	
111
  .ex:	
112
	   ret
112
	   ret
Line 189... Line 189...
189
    mcall 0,,,0x3808080
189
    mcall 0,,,0x3808080
190
    mcall 4,<5,7>,0x10f0f0f0,filename,255
190
    mcall 4,<5,7>,0x10f0f0f0,filename,255
191
    mov  ecx,[PNG_info.Width]
191
    mov  ecx,[PNG_info.Width]
192
    shl  ecx,16
192
    shl  ecx,16
193
    add  ecx,[PNG_info.Height]
193
    add  ecx,[PNG_info.Height]
194
    mcall 7,png_image,,10 shl 16+25
194
    mcall 7,[png_],,10 shl 16+25
195
    mcall 12,2
195
    mcall 12,2
196
  .still:
196
  .still:
197
    mcall 10
197
    mcall 10
198
    cmp  eax,1
198
    cmp  eax,1
199
    je   .red
199
    je   .red
Line 206... Line 206...
206
  .nokey:
206
  .nokey:
207
    cmp  eax,3
207
    cmp  eax,3
208
    jne  .still
208
    jne  .still
209
  .close:
209
  .close:
210
    and  [child],0
210
    and  [child],0
-
 
211
    mcall 64,1,MEMINIT
211
    mcall -1
212
    mcall -1
Line 212... Line 213...
212
 
213
 
213
KillViewer:
214
KillViewer:
214
    pusha
215
    pusha
Line 254... Line 255...
254
    xor  al,al
255
    xor  al,al
255
    rep  stosb
256
    rep  stosb
256
    mov  ecx,255
257
    mov  ecx,255
257
    mov  edi,filename
258
    mov  edi,filename
258
    rep  movsb
259
    rep  movsb
-
 
260
;    test [Flags],LIST_MODE
259
    jmp  again
261
;    jz   again
-
 
262
    xor  eax,eax
-
 
263
    mov  edi,filename
-
 
264
    mov  ecx,255
-
 
265
    repne scasb
-
 
266
    cmp  byte[edi-2],'/'
-
 
267
    je   .slash
-
 
268
    mov  byte[edi-1],'/'
-
 
269
    inc  edi
-
 
270
  .slash:
-
 
271
;    Dump filename,255,os_work
-
 
272
;    ud2
-
 
273
    mov  ecx,edi
-
 
274
;    dec  ecx
-
 
275
    mov  edx,ecx
-
 
276
    mov  dword[Finfo],13
-
 
277
;    mov  dword[Finfo.count],1
-
 
278
    mov  edi,filename+5
-
 
279
    sub  ecx,edi
-
 
280
  .lp:
-
 
281
    mov  al,'/'
-
 
282
    repne scasb
-
 
283
;    jne  .ex
-
 
284
;    dpd  ecx
-
 
285
    and  byte[edi-1],0
-
 
286
    mcall 58,Finfo
-
 
287
    mov  byte[edi-1],'/'
-
 
288
    test ebx,32
-
 
289
    jz   .lp
-
 
290
    test [Flags],LIST_MODE
-
 
291
    jne  .listm
-
 
292
    and  byte[edi-1],0
-
 
293
;    Dump filename,255,os_work
-
 
294
    jmp  .agg
-
 
295
;    ud2
-
 
296
  .listm:
-
 
297
    lea  esi,[edi-1+ecx]
-
 
298
    lea  edi,[esi+1]
-
 
299
    std
-
 
300
    rep  movsb
-
 
301
    and  byte[edi],0
-
 
302
    cld
-
 
303
;    dpd  filename
-
 
304
 
-
 
305
    inc  edi
-
 
306
    dpd  edi
-
 
307
    cmp  edx,edi
-
 
308
    jne  .slash2
-
 
309
;    cmp  byte[edi],'/'
-
 
310
;    je   .slash2
-
 
311
    mov  byte[edi],'/'
-
 
312
    inc  edx
-
 
313
  .slash2:
-
 
314
    sub  edx,edi
-
 
315
    mov  [lpath],edi
-
 
316
    mov  [lpath_len],edx
-
 
317
    dpd  edx
-
 
318
  .agg:
-
 
319
    mov  dword[Finfo],0
-
 
320
;    ud2
-
 
321
    jmp  again;cmdl
260
  .yespar:
322
  .yespar:
261
    cmp  al,'N'
323
    cmp  al,'N'
262
    jne  .nonum
324
    jne  .nonum
263
    call get_6ASCII_num
325
    call get_6ASCII_num
264
  .fnum:
326
  .fnum:
Line 298... Line 360...
298
    cmp  al,'Q'
360
    cmp  al,'Q'
299
    jne  .noofs2
361
    jne  .noofs2
300
    call get_6ASCII_num
362
    call get_6ASCII_num
301
    jmp  .fofs
363
    jmp  .fofs
302
  .noofs2:  
364
  .noofs2:
-
 
365
    cmp  al,'L'
-
 
366
    jne  .nolist
-
 
367
    or   [Flags],LIST_MODE
-
 
368
  .nolist:
303
    jmp  .parse
369
    jmp  .parse
Line 304... Line 370...
304
 
370
 
305
get_6ASCII_num:
371
get_6ASCII_num:
306
; in: esi - str ptr, out: eax - num
372
; in: esi - str ptr, out: eax - num
Line 317... Line 383...
317
    mov  eax,edx
383
    mov  eax,edx
318
    ret
384
    ret
319
}
385
}
Line 320... Line 386...
320
 
386
 
321
StartPad:
387
StartPad:
-
 
388
;    mcall 19,editorcmd,dumpfile
-
 
389
    pusha
-
 
390
    mov   esi,[outfile.size]
-
 
391
;    dpd  esi
-
 
392
    mov   [par_fsize],esi
-
 
393
    mcall 19,editorcmd,editor_par
-
 
394
    mov  ecx,eax
-
 
395
    mcall 5,20
-
 
396
    mcall 60,2,,[outfile.out];output
-
 
397
    mcall 64,1,MEMINIT
322
    mcall 19,editorcmd,dumpfile
398
    popa
Line 323... Line 399...
323
    ret
399
    ret
-
 
400
 
-
 
401
editorcmd db 'TINYPAD    '
324
 
402
editor_par db '*'
325
editorcmd db 'TINYPAD    '
403
par_fsize  dd ?