Subversion Repositories Kolibri OS

Rev

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

Rev 3357 Rev 4274
Line 1... Line 1...
1
;-----------------------------------------------------------------------------
1
;-----------------------------------------------------------------------------
2
; project name:      TINYPAD
2
; project name:      TINYPAD
3
; compiler:          flat assembler 1.67.21
3
; compiler:          flat assembler 1.67.21
4
; memory to compile: 3.0/9.0 MBytes (without/with size optimizations)
4
; memory to compile: 3.0/9.0 MBytes (without/with size optimizations)
5
; version:           SVN (4.0.5)
5
; version:           SVN (4.0.7)
6
; last update:       2008-07-18 (Jul 18, 2008)
6
; last update:       2013-11-21 (Nov 21, 2013)
7
; minimal kernel:    revision #823 (svn://kolibrios.org/kernel/trunk)
7
; minimal kernel:    revision #823 (svn://kolibrios.org/kernel/trunk)
8
;-----------------------------------------------------------------------------
8
;-----------------------------------------------------------------------------
9
; originally by:     Ville Michael Turjanmaa >> villemt@aton.co.jyu.fi
9
; originally by:     Ville Michael Turjanmaa >> villemt@aton.co.jyu.fi
10
; maintained by:     Mike Semenyako          >> mike.dld@gmail.com
10
; maintained by:     Mike Semenyako          >> mike.dld@gmail.com
11
;                    Ivan Poddubny           >> ivan-yar@bk.ru
11
;                    Ivan Poddubny           >> ivan-yar@bk.ru
Line 33... Line 33...
33
 
33
 
Line 34... Line 34...
34
;purge mov,add,sub            ;  SPEED
34
;purge mov,add,sub            ;  SPEED
Line 35... Line 35...
35
 
35
 
Line 36... Line 36...
36
header '01',1,@CODE,TINYPAD_END,STATIC_MEM_END,MAIN_STACK,@PARAMS,ini_path
36
header '01',1,@CODE,TINYPAD_END,STATIC_MEM_END,MAIN_STACK,@PARAMS,ini_path
37
 
37
 
Line 38... Line 38...
38
APP_VERSION equ 'SVN (4.0.6)'
38
APP_VERSION equ 'SVN (4.0.7)'
Line 464... Line 464...
464
endp
464
endp
Line 465... Line 465...
465
 
465
 
466
;-----------------------------------------------------------------------------
466
;-----------------------------------------------------------------------------
467
proc start_fasm ;/////////////////////////////////////////////////////////////
467
proc start_fasm ;/////////////////////////////////////////////////////////////
-
 
468
;-----------------------------------------------------------------------------
468
;-----------------------------------------------------------------------------
469
; BL = 0 - compile
-
 
470
; BL = 1 - run after compile
469
; BL = run after compile
471
; BL = 2 - run under mtdbg after compile
470
;-----------------------------------------------------------------------------
472
;-----------------------------------------------------------------------------
471
; FASM infile,outfile,/path/to/files[,run]
473
; FASM infile,outfile,/path/to/files[,run]
472
;-----------------------------------------------------------------------------
474
;-----------------------------------------------------------------------------
473
	cmp	[cur_editor.AsmMode],0
475
	cmp	[cur_editor.AsmMode],0
Line 514... Line 516...
514
	pop	ecx esi
516
	pop	ecx esi
515
	add	esi,TABITEM.Editor.FilePath
517
	add	esi,TABITEM.Editor.FilePath
516
	sub	ecx,esi
518
	sub	ecx,esi
517
	rep	movsb
519
	rep	movsb
Line 518... Line 520...
518
 
520
 
519
	cmp	bl,0 ; run outfile ?
521
	cmp	bl,0 ; compile outfile ?
520
	je	@f
522
	je	@f
-
 
523
	mov	dword[edi],',run'
-
 
524
	cmp	bl,1 ; run outfile ?
-
 
525
	je	do_run
-
 
526
	mov	dword[edi],',dbg'
521
	mov	dword[edi],',run'
527
do_run:
522
	add	edi,4
528
	add	edi,4
523
    @@:
529
		@@:
524
	mov	al,0
530
	mov	al,0