Subversion Repositories Kolibri OS

Rev

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

Rev 1373 Rev 1395
Line 45... Line 45...
45 
 
 45 
 
Line 46... Line 46...
46 
 
 46 
 
47 
center fix true
 - 
 
48 
 
 - 
 
49 
START:	    ; Start of execution
 - 
 
50 
sys_load_library  library_name, cur_dir_path, library_path, system_path, \
 - 
 
51 
  err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
 - 
 
52 
 
 - 
 
53 
  cmp eax,-1
 - 
 
54 
  jne @f
 - 
 
55 
    mcall -1 ;exit if not open box_lib.obj
 - 
 
56 
  @@:
 - 
 
57 
  mcall 40,0x27 ;¬ áª  á¨á⥬­ëå ᮡë⨩
 - 
 
58 
 
 - 
 
59 
  get_sys_colors 1,0
 - 
 
60 
  edit_boxes_set_sys_color edit1,editboxes_end,sc
 47 
center fix true
61 
  check_boxes_set_sys_color ch1_dbg,ch1_dbg+ch_struc_size,sc
 48 
 
62 
 
 49 
START:	    ; Start of execution
63 
	mov	edi, fileinfos
 50 
	mov	edi, fileinfos
64 
	mov	ecx, (fileinfos_end-fileinfos)/4
 51 
	mov	ecx, (fileinfos_end-fileinfos)/4
Line 69... Line 56...
69 
	push	11
 56 
	push	11
70 
	pop	ebx
 57 
	pop	ebx
71 
	mcall
 58 
	mcall
Line 72... Line 59...
72 
 
 59 
 
73 
   cmp	  [params],0
 60 
   cmp	  [params],0
Line 74... Line 61...
74 
   jz	    red
 61 
   jz	    start_1
75 
 
 62 
 
76 
   mov	  ecx,10
 63 
   mov	  ecx,10
77 
   mov	  eax,'    '
 64 
   mov	  eax,'    '
Line 90... Line 77...
90 
;  DEBUGF  "params: %s\n",esi
 77 
;  DEBUGF  "params: %s\n",esi
91 
   mov	   edi,infile
 78 
   mov	   edi,infile
92 
   call    mov_param_str
 79 
   call    mov_param_str
93 
;  mov     edi,infile
 80 
;  mov     edi,infile
94 
;  DEBUGF  " input: %s\n",edi
 81 
;  DEBUGF  " input: %s\n",edi
95 
   inc	   esi
 - 
 
96 
   mov	   edi,outfile
 82 
   mov	   edi,outfile
97 
   call    mov_param_str
 83 
   call    mov_param_str
98 
;  mov     edi,outfile
 84 
;  mov     edi,outfile
99 
;  DEBUGF  "output: %s\n",edi
 85 
;  DEBUGF  "output: %s\n",edi
100 
   inc	   esi
 - 
 
101 
   mov	   edi,path
 86 
   mov	   edi,path
102 
   call    mov_param_str
 87 
   call    mov_param_str
103 
;  mov     edi,path
 88 
;  mov     edi,path
104 
;  DEBUGF  "  path: %s\n",edi
 89 
;  DEBUGF  "  path: %s\n",edi
105 
 
 90 
   dec     esi
106 
   cmp	   [esi], dword ',run'
 91 
   cmp	   [esi], dword ',run'
107 
   jne	   @f
 92 
   jne	   @f
108 
   mov	   [_run_outfile],1
 93 
   mov	   [_run_outfile],1
109 
  @@:
 94 
  @@:
Line 110... Line 95...
110 
 
 95 
 
111 
   mov	   [_mode],CONSOLE_MODE
 96 
   mov	   [_mode],CONSOLE_MODE
Line -... Line 97...
- 
 
 97 
   jmp	   start
- 
 
 98 
 
- 
 
 99 
start_1:
- 
 
 100 
sys_load_library  library_name, cur_dir_path, library_path, system_path, \
- 
 
 101 
  err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
- 
 
 102 
 
- 
 
 103 
  cmp eax,-1
- 
 
 104 
  jne @f
- 
 
 105 
    mcall -1 ;exit if not open box_lib.obj
- 
 
 106 
  @@:
- 
 
 107 
  mcall 40,0x27 ;¬ áª  á¨á⥬­ëå ᮡë⨩
- 
 
 108 
 
- 
 
 109 
  get_sys_colors 1,0
Line 112... Line 110...
112 
   jmp	   start
 110 
  edit_boxes_set_sys_color edit1,editboxes_end,sc
113 
 
 111 
  check_boxes_set_sys_color ch1_dbg,ch1_dbg+ch_struc_size,sc
Line 114... Line 112...
114 
 
 112 
 
Line 410... Line 408...
410 
path_end:
 408 
path_end:
411 
lf db 13,10,0
 409 
lf db 13,10,0
Line 412... Line 410...
412 
 
 410 
 
- 
 
 411 
 
413 
 
 412 
mov_param_str:
414 
mov_param_str:
 413 
    cld
415 
  @@:
 414 
@@:
416 
    mov    al,[esi]
 415 
    lodsb
417 
    cmp    al,','
 - 
 
418 
    je	     @f
 - 
 
419 
    cmp    al,0
 - 
 
420 
    je	     @f
 416 
    cmp    al,','
421 
    mov    [edi],al
 417 
    je     @f
422 
    inc    esi
 418 
    stosb
423 
    inc    edi
 419 
    test   al,al
424 
    jmp    @b
 420 
    jnz    @b
425 
  @@:
 421 
@@:
426 
    mov    al,0
 422 
    xor    al,al
Line -... Line 423...
- 
 
 423 
    stosb
- 
 
 424 
    ret
427 
    stosb
 425 
 
428 
ret
 426 
 
429 
 
 427 
 
430 
start:
 428 
start:
431 
    cmp    [_mode],NORMAL_MODE
 429 
    cmp    [_mode],NORMAL_MODE
Line 538... Line 536...
538 
times $10 db $50
 536 
times $10 db $50
539 
times $04 db $00,$01
 537 
times $04 db $00,$01
540 
times $08 db $00
 538 
times $08 db $00
Line 541... Line 539...
541 
 
 539 
 
542 
;include_debug_strings
 540 
;include_debug_strings
543 
 
 541 
program_end:
- 
 
 542 
;  params db 0 ; 'TINYPAD.ASM,TINYPAD,/HD/1/TPAD4/',
544 
  params db 0 ; 'TINYPAD.ASM,TINYPAD,/HD/1/TPAD4/',
 543 
params	rb 4096
545 
  cur_dir_path rb 4096
 544 
cur_dir_path rb 4096
Line 546... Line -...
546 
  library_path rb 4096
 - 
 
547 
 
 - 
 
548 
program_end:
 - 
 
549 
 
 545 
library_path rb 4096
Line 550... Line 546...
550 
rb 1000h
 546 
 
Line 551... Line 547...
551 
align 4
 547 
align 4