Subversion Repositories Kolibri OS

Rev

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

Rev 7839 Rev 8236
Line 1... Line 1...
1 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 1 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 
;;                                                 ;;
 2 
;;                                                 ;;
3 
;;  flat assembler source                          ;;
 3 
;;  flat assembler source                          ;;
4 
;;  Copyright (c) 1999-2012, Tomasz Grysztar       ;;
 4 
;;  Copyright (c) 1999-2020, Tomasz Grysztar       ;;
5 
;;  All rights reserved.                           ;;
 5 
;;  All rights reserved.                           ;;
6 
;;                                                 ;;
 6 
;;                                                 ;;
7 
;;  KolibriOS port by KolibriOS Team               ;;
 7 
;;  KolibriOS port by KolibriOS Team               ;;
8 
;;  Menuet port by VT                              ;;
 8 
;;  Menuet port by VT                              ;;
9 
;;                                                 ;;
 9 
;;                                                 ;;
Line 40... Line 40...
40 
include '../../../macros.inc'
 40 
include '../../../macros.inc'
41 
purge add,sub	 ; macros.inc does incorrect substitution
 41 
purge add,sub	 ; macros.inc does incorrect substitution
42 
include 'fasm.inc'
 42 
include 'fasm.inc'
Line 43... Line 43...
43 
 
 43 
 
- 
 
 44 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
44 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
 45 
include '../../../KOSfuncs.inc'
45 
include '../../../develop/libraries/box_lib/load_lib.mac'
 46 
include '../../../load_lib.mac'
Line 46... Line 47...
46 
  @use_library
 47 
  @use_library
47 
 
 48 
 
48 
center fix true
 49 
center fix true
Line 474... Line 475...
474 
  s_run     db ' ã᪠ '
 475 
  s_run     db ' ã᪠ '
475 
  s_debug   db 'Žâ« ¤ª '
 476 
  s_debug   db 'Žâ« ¤ª '
476 
  s_dbgdescr db '‘®§¤ ¢ âì ®â« ¤®ç­ãî ¨­ä®à¬ æ¨î',0
 477 
  s_dbgdescr db '‘®§¤ ¢ âì ®â« ¤®ç­ãî ¨­ä®à¬ æ¨î',0
Line 477... Line -...
477 
 
 - 
 
478 
 
 - 
 
479 
  err_message_found_lib0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  box_lib.obj',0  ;áâப , ª®â®à ï ¡ã¤¥â ¢ áä®à¬¨à®¢ ­­®¬ ®ª­¥, ¥á«¨ ¡¨¡«¨®â¥ª  ­¥ ¡ã¤¥â ­ ©¤¥­ 
 - 
 
480 
  err_message_import0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ box_lib.obj',0
 - 
 
481 
  err_message_found_lib1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  proc_lib.obj',0
 - 
 
482 
  err_message_import1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ proc_lib.obj',0
 - 
 
483 
  head_f_i:
 478 
 
484 
  head_f_l db '‘¨á⥬­ ï ®è¨¡ª ',0 ;§ £®«®¢®ª ®ª­ , ¯à¨ ¢®§­¨ª­®¢¥­¨¨ ®è¨¡ª¨
 479 
 
485 
else
 480 
else
486 
text:
 481 
text:
487 
  db ' InFile:'
 482 
  db ' InFile:'
Line 494... Line 489...
494 
  s_run     db '  RUN  '
 489 
  s_run     db '  RUN  '
495 
  s_debug   db ' DEBUG '
 490 
  s_debug   db ' DEBUG '
496 
  s_dbgdescr db 'Generate debug information',0
 491 
  s_dbgdescr db 'Generate debug information',0
Line 497... Line -...
497 
 
 - 
 
498 
 
 - 
 
499 
  err_message_found_lib0 db 'Sorry I cannot found library box_lib.obj',0
 - 
 
500 
  err_message_import0 db 'Error on load import library box_lib.obj',0
 - 
 
501 
  err_message_found_lib1 db 'Sorry I cannot found library proc_lib.obj',0
 - 
 
502 
  err_message_import1 db 'Error on load import library proc_lib.obj',0
 - 
 
503 
 
 - 
 
504 
  head_f_i:
 492 
 
Line 505... Line 493...
505 
  head_f_l db 'System error',0 ;§ £®«®¢®ª ®ª­ , ¯à¨ ¢®§­¨ª­®¢¥­¨¨ ®è¨¡ª¨
 493 
 
506 
end if
 494 
end if
Line 545... Line 533...
545 
aOpenDialog_Init	db 'OpenDialog_init',0
 533 
aOpenDialog_Init	db 'OpenDialog_init',0
546 
aOpenDialog_Start	db 'OpenDialog_start',0
 534 
aOpenDialog_Start	db 'OpenDialog_start',0
547 
;---------------------------------------------------------------------
 535 
;---------------------------------------------------------------------
548 
;library structures
 536 
;library structures
549 
l_libs_start:
 537 
l_libs_start:
550 
  lib0 l_libs lib0_name, cur_dir_path, library_path, system_dir0, err_message_found_lib0, head_f_l, import_box_lib, err_message_import0, head_f_i
 538 
  lib0 l_libs lib0_name, library_path, system_dir0, import_box_lib
551 
  lib1 l_libs lib1_name, cur_dir_path, library_path, system_dir1, err_message_found_lib1, head_f_l, import_proc_lib,err_message_import1, head_f_i
 539 
  lib1 l_libs lib1_name, library_path, system_dir1, import_proc_lib
552 
load_lib_end:
 540 
load_lib_end:
Line 553... Line 541...
553 
 
 541 
 
554 
edit1 edit_box 153, 72, 3,          0xffffff, 0xA4C4E4, 0x80ff, 0, 0x10000000,(outfile-infile-1), infile, mouse_dd, 0, 11,11
 542 
edit1 edit_box 153, 72, 3,          0xffffff, 0xA4C4E4, 0x80ff, 0, 0x10000000,(outfile-infile-1), infile, mouse_dd, 0, 11,11
555 
edit2 edit_box 153, 72, LINE_H+3,   0xffffff, 0xA4C4E4, 0x80ff, 0, 0x10000000,(path-outfile-1), outfile, mouse_dd, 0, 7,7
 543 
edit2 edit_box 153, 72, LINE_H+3,   0xffffff, 0xA4C4E4, 0x80ff, 0, 0x10000000,(path-outfile-1), outfile, mouse_dd, 0, 7,7