WebSVN – Kolibri OS – Diff – /programs/develop/fasm/trunk/fasm.asm



	jne	@f
	mcall	-1 ;exit if not open box_lib.obj
@@:
	mcall	40,0x27 ;¬ áª  á¨áâ¥¬­ëå á®¡ëâ¨©
;---------------------------------------------------------------------
init_checkboxes2 ch1_dbg,ch1_dbg+ch_struc_size
get_sys_colors 1,0
edit_boxes_set_sys_color edit1,editboxes_end,sc
check_boxes_set_sys_color2 ch1_dbg,ch1_dbg+ch_struc_size,sc
;---------------------------------------------------------------------
; OpenDialog initialisation
	push dword OpenDialog_data
	call dword [OpenDialog_Init]
;---------------------------------------------------------------------

 
  s_compile db '®¬¯¨«.'
  s_run     db ' ãáª  '
  s_debug   db 'â« ¤ª '
 
  s_dbgdescr db '®§¤ ¢ âì ®â« ¤®ç­ãî ¨­ä®à¬ æ¨î',0

 
 
  err_message_found_lib0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  box_lib.obj',0  ;áâà®ª , ª®â®à ï ¡ã¤¥â ¢ áä®à¬¨à®¢ ­­®¬ ®ª­¥, ¥á«¨ ¡¨¡«¨®â¥ª  ­¥ ¡ã¤¥â ­ ©¤¥­ 
  err_message_import0 db 'è¨¡ª  ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ box_lib.obj',0

 
  s_compile db 'COMPILE'
  s_run     db '  RUN  '
  s_debug   db ' DEBUG '
 
  s_dbgdescr db 'Generate debug information',0

 
 
  err_message_found_lib0 db 'Sorry I cannot found library box_lib.obj',0
  err_message_import0 db 'Error on load import library box_lib.obj',0

edit_box_key		dd aEdit_box_key
edit_box_mouse		dd aEdit_box_mouse
edit_box_set_text	dd aEdit_box_set_text
;version_ed		dd aVersion_ed

 
init_checkbox 		dd aInit_checkbox
check_box_draw		dd aCheck_box_draw
check_box_mouse		dd aCheck_box_mouse

;version_ch		dd aVersion_ch

aEdit_box_key		db 'edit_box_key',0
aEdit_box_mouse		db 'edit_box_mouse',0
aEdit_box_set_text	db 'edit_box_set_text',0
;aVersion_ed		db 'version_ed',0

 
aInit_checkbox		db 'init_checkbox2',0
aCheck_box_draw		db 'check_box_draw2',0
aCheck_box_mouse	db 'check_box_mouse2',0
;aVersion_ch		db 'version_ch2',0
;---------------------------------------------------------------------
align 4
import_proc_lib:
OpenDialog_Init		dd aOpenDialog_Init

 
edit1 edit_box 153, 56, 1, 0xffffff, 0xff, 0x80ff, 0, 0x8000, (outfile-infile-1), infile, mouse_dd, 0, 11,11
edit2 edit_box 153, 56, 17, 0xffffff, 0xff, 0x80ff, 0, 0x8000,(path-outfile-1), outfile, mouse_dd, 0, 7,7
edit3 edit_box 153, 56, 33, 0xffffff, 0xff, 0x80ff, 0, 0x8000,(path_end-path-1), path, mouse_dd, 0, 6,6
editboxes_end:
ch1_dbg check_box2 (5 shl 16)+12, (49 shl 16)+12, 6, 0xffffff, 0x80ff, 0, s_dbgdescr,ch_flag_bottom
;---------------------------------------------------------------------
align 4
OpenDialog_data:
.type			dd 0

Rev 2287	Rev 2298
Line 99...	Line 99...
99	jne @f	99	jne @f
100	mcall -1 ;exit if not open box_lib.obj	100	mcall -1 ;exit if not open box_lib.obj
101	@@:	101	@@:
102	mcall 40,0x27 ;¬ áª á¨áâ¥¬ëå á®¡ëâ¨©	102	mcall 40,0x27 ;¬ áª á¨áâ¥¬ëå á®¡ëâ¨©
103	;---------------------------------------------------------------------	103	;---------------------------------------------------------------------
-		104	init_checkboxes2 ch1_dbg,ch1_dbg+ch_struc_size
104	get_sys_colors 1,0	105	get_sys_colors 1,0
105	edit_boxes_set_sys_color edit1,editboxes_end,sc	106	edit_boxes_set_sys_color edit1,editboxes_end,sc
106	check_boxes_set_sys_color ch1_dbg,ch1_dbg+ch_struc_size,sc	107	check_boxes_set_sys_color2 ch1_dbg,ch1_dbg+ch_struc_size,sc
107	;---------------------------------------------------------------------	108	;---------------------------------------------------------------------
108	; OpenDialog initialisation	109	; OpenDialog initialisation
109	push dword OpenDialog_data	110	push dword OpenDialog_data
110	call dword [OpenDialog_Init]	111	call dword [OpenDialog_Init]
111	;---------------------------------------------------------------------	112	;---------------------------------------------------------------------
Line 405...	Line 406...
405		406
406	s_compile db '®¬¯¨«.'	407	s_compile db '®¬¯¨«.'
407	s_run db ' ãáª '	408	s_run db ' ãáª '
408	s_debug db 'â« ¤ª '	409	s_debug db 'â« ¤ª '
409	s_dbgdescr db '®§¤ ¢ âì ®â« ¤®çãî ¨ä®à¬ æ¨î',0	-
-		410	s_dbgdescr db '®§¤ ¢ âì ®â« ¤®çãî ¨ä®à¬ æ¨î',0
Line 410...	Line 411...
410	s_dbgdescr_end:	411
411		412
412	err_message_found_lib0 db '¥ ©¤¥ ¡¨¡«¨®â¥ª box_lib.obj',0 ;áâà®ª , ª®â®à ï ¡ã¤¥â ¢ áä®à¬¨à®¢ ®¬ ®ª¥, ¥á«¨ ¡¨¡«¨®â¥ª ¥ ¡ã¤¥â ©¤¥	413	err_message_found_lib0 db '¥ ©¤¥ ¡¨¡«¨®â¥ª box_lib.obj',0 ;áâà®ª , ª®â®à ï ¡ã¤¥â ¢ áä®à¬¨à®¢ ®¬ ®ª¥, ¥á«¨ ¡¨¡«¨®â¥ª ¥ ¡ã¤¥â ©¤¥
413	err_message_import0 db 'è¨¡ª ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ box_lib.obj',0	414	err_message_import0 db 'è¨¡ª ¯à¨ ¨¬¯®àâ¥ ¡¨¡«¨®â¥ª¨ box_lib.obj',0
Line 425...	Line 426...
425		426
426	s_compile db 'COMPILE'	427	s_compile db 'COMPILE'
427	s_run db ' RUN '	428	s_run db ' RUN '
428	s_debug db ' DEBUG '	429	s_debug db ' DEBUG '
429	s_dbgdescr db 'Generate debug information',0	-
-		430	s_dbgdescr db 'Generate debug information',0
Line 430...	Line 431...
430	s_dbgdescr_end:	431
431		432
432	err_message_found_lib0 db 'Sorry I cannot found library box_lib.obj',0	433	err_message_found_lib0 db 'Sorry I cannot found library box_lib.obj',0
433	err_message_import0 db 'Error on load import library box_lib.obj',0	434	err_message_import0 db 'Error on load import library box_lib.obj',0
Line 450...	Line 451...
450	edit_box_key dd aEdit_box_key	451	edit_box_key dd aEdit_box_key
451	edit_box_mouse dd aEdit_box_mouse	452	edit_box_mouse dd aEdit_box_mouse
452	edit_box_set_text dd aEdit_box_set_text	453	edit_box_set_text dd aEdit_box_set_text
453	;version_ed dd aVersion_ed	454	;version_ed dd aVersion_ed
Line -...	Line 455...
-		455
454		456	init_checkbox dd aInit_checkbox
455	check_box_draw dd aCheck_box_draw	457	check_box_draw dd aCheck_box_draw
456	check_box_mouse dd aCheck_box_mouse	458	check_box_mouse dd aCheck_box_mouse
Line 457...	Line 459...
457	;version_ch dd aVersion_ch	459	;version_ch dd aVersion_ch
Line 462...	Line 464...
462	aEdit_box_key db 'edit_box_key',0	464	aEdit_box_key db 'edit_box_key',0
463	aEdit_box_mouse db 'edit_box_mouse',0	465	aEdit_box_mouse db 'edit_box_mouse',0
464	aEdit_box_set_text db 'edit_box_set_text',0	466	aEdit_box_set_text db 'edit_box_set_text',0
465	;aVersion_ed db 'version_ed',0	467	;aVersion_ed db 'version_ed',0
Line -...	Line 468...
-		468
466		469	aInit_checkbox db 'init_checkbox2',0
467	aCheck_box_draw db 'check_box_draw',0	470	aCheck_box_draw db 'check_box_draw2',0
468	aCheck_box_mouse db 'check_box_mouse',0	471	aCheck_box_mouse db 'check_box_mouse2',0
469	;aVersion_ch db 'version_ch',0	472	;aVersion_ch db 'version_ch2',0
470	;---------------------------------------------------------------------	473	;---------------------------------------------------------------------
471	align 4	474	align 4
472	import_proc_lib:	475	import_proc_lib:
473	OpenDialog_Init dd aOpenDialog_Init	476	OpenDialog_Init dd aOpenDialog_Init
Line 484...	Line 487...
484		487
485	edit1 edit_box 153, 56, 1, 0xffffff, 0xff, 0x80ff, 0, 0x8000, (outfile-infile-1), infile, mouse_dd, 0, 11,11	488	edit1 edit_box 153, 56, 1, 0xffffff, 0xff, 0x80ff, 0, 0x8000, (outfile-infile-1), infile, mouse_dd, 0, 11,11
486	edit2 edit_box 153, 56, 17, 0xffffff, 0xff, 0x80ff, 0, 0x8000,(path-outfile-1), outfile, mouse_dd, 0, 7,7	489	edit2 edit_box 153, 56, 17, 0xffffff, 0xff, 0x80ff, 0, 0x8000,(path-outfile-1), outfile, mouse_dd, 0, 7,7
487	edit3 edit_box 153, 56, 33, 0xffffff, 0xff, 0x80ff, 0, 0x8000,(path_end-path-1), path, mouse_dd, 0, 6,6	490	edit3 edit_box 153, 56, 33, 0xffffff, 0xff, 0x80ff, 0, 0x8000,(path_end-path-1), path, mouse_dd, 0, 6,6
488	editboxes_end:	491	editboxes_end:
489	ch1_dbg check_box 5, 49, 6, 12, 0xffffff, 0x80ff, 0, s_dbgdescr,(s_dbgdescr_end-s_dbgdescr)	492	ch1_dbg check_box2 (5 shl 16)+12, (49 shl 16)+12, 6, 0xffffff, 0x80ff, 0, s_dbgdescr,ch_flag_bottom
490	;---------------------------------------------------------------------	493	;---------------------------------------------------------------------
491	align 4	494	align 4
492	OpenDialog_data:	495	OpenDialog_data:
493	.type dd 0	496	.type dd 0

Subversion Repositories Kolibri OS

(root)/programs/develop/fasm/trunk/fasm.asm – Rev 2287 → 2298