Subversion Repositories Kolibri OS

;-----------------------------------------------------------------------------

;

;   LAUNCHER - startup of programs

;

;   Compile with FASM 1.52 or newer

;

;-----------------------------------------------------------------------------

; last update:  06/03/2014

; changed by:   Marat Zakiyanov aka Mario79, aka Mario

; changes:      Dynamic memory allocation for AUTORUN.DAT.

;               Added additional diagnostic messages for BOARD.

;-----------------------------------------------------------------------------

; last update:  02/03/2014

; changed by:   Marat Zakiyanov aka Mario79, aka Mario

; changes:      Reducing the consumption of RAM, 4 KB instead of 32 KB.

;               Output to BOARD information about running applications.

;               Cleaning of the source code.

; notice:       Only 2 KB of memory for AUTORUN.DAT - be careful!

;-----------------------------------------------------------------------------

	use32

	org 0x0

	db 'MENUET01'	; 8 byte id

	dd 0x01		; header version

	dd START	; start of code

	dd IM_END	; size of image

	dd I_END	; memory for app

	dd stack_top	; esp

	dd 0x0		; I_Param

	dd 0x0		; I_Icon

;-----------------------------------------------------------------------------

include "../../../macros.inc"

define __DEBUG__ 1

define __DEBUG_LEVEL__ 1

include "../../../debug-fdo.inc"

;-----------------------------------------------------------------------------

START:                           ; start of execution

	mcall	68,11

	mcall	70,autorun_dat_info	;get information AUTORUN.DAT

	test	eax,eax

	jnz	.read_error

	mov	ecx,[processinfo+32]

	test	ecx,ecx

	jnz	@f

	inc	ecx	; if file size zero

;--------------------------------------

@@:

	mov	[autorun_dat_info.size],ecx

	mcall	68,12

	mov	[autorun_dat_info.address],eax

	mov	ebp,eax

	mov	[autorun_dat_info.mode],dword 0

	mcall	70,autorun_dat_info	;load AUTORUN.DAT

	test	eax,eax

	jz	@f

.read_error:

	DEBUGF	1, "L: AUTORUN.DAT read error\n"

	jmp	exit

;--------------------------------------

@@:

	add	ebx,ebp

	mov	[fileend],ebx

;-----------------------------------------------------------------------------

; this cycle does not contain an obvious exit condition,

; but auxiliary procedures (like "get_string") will exit

; at EOF

start_program:

	call	skip_spaces

	cmp	al,byte '#'

	jz	skip_this_string

	call	clear_strings

	mov	edi,program

	call	get_string

	mov	edi,parameters

	call	get_string

	call	get_number

	call	run_program

;--------------------------------------

skip_this_string:

	call	next_line

	jmp	start_program

;-----------------------------------------------------------------------------

exit_1:

	DEBUGF	1, "L: AUTORUN.DAT processed\n"

exit:

	or	eax,-1

	mcall

;-----------------------------------------------------------------------------

run_program:     ; time to delay in eax

	DEBUGF	1, "L: %s Param: %s\n",program,parameters

	push	eax

	mcall	70,start_info

	pop	ebx

; if delay is negative, wait for termination

;   of the spawned process

	test	ebx,ebx

	js	must_wait_for_termination

; otherwise, simply wait

	mcall	5

	ret

;-----------------------------------------------------------------------------

must_wait_for_termination:

	mov	esi,eax  ; save slot for the future

; get process slot

	mov	ecx,eax

	mcall	18,21

; if an error has occured, exit

	test	eax,eax

	jz	child_exited

	mov	ecx,eax

;--------------------------------------

wait_for_termination:

	mcall	5,1

	mov	ebx, processinfo

	mcall	9

	cmp	[ebx+50],word 9 ; the slot was freed?

	jz	child_exited

	cmp	[ebx+30],dword esi ; the slot is still occupied by our child?

	jz	wait_for_termination

;--------------------------------------

child_exited:

	ret

;-----------------------------------------------------------------------------

clear_strings:   ; clears buffers

	pushad

	mov	ecx,60+1

	mov	edi,program

	xor	al,al

	rep	stosb

	mov	ecx,60+1

	mov	edi,parameters

	rep	stosb

	popad

	ret

;-----------------------------------------------------------------------------

get_string: ; pointer to destination buffer in edi

	pushad

	call	skip_spaces

	mov	esi,[position]

	add	esi,ebp

	cmp	[esi],byte '"'

	jz	.quoted

;--------------------------------------

.start:

	cmp	esi,[fileend]

	jae	exit

	lodsb

	cmp	al,byte ' '

	jbe	.finish

	stosb

	inc	dword [position]

	jmp	.start

;--------------------------------------

.finish:

	popad

	ret

;--------------------------------------

.quoted:

	inc	esi

	inc	dword [position]

;--------------------------------------

.quoted.start:

	cmp	esi,[fileend]

	jae	exit

	lodsb

	inc	dword [position]

	cmp	al,byte '"'

	je	.finish

	stosb

	jmp	.quoted.start

;-----------------------------------------------------------------------------

get_number:

	push	ebx esi

	call	skip_spaces

	mov	esi,[position]

	add	esi,ebp

	xor	eax,eax

	cmp	[esi],byte '-'

	jnz	@f

	inc	eax

	inc	esi

	inc	dword [position]

;--------------------------------------

@@:

	push	eax

	xor	eax,eax

	xor	ebx,ebx

;--------------------------------------

.start:

	cmp	esi,[fileend]

	jae	.finish

	lodsb

	sub	al,byte '0'

	cmp	al,9

	ja	.finish

	lea	ebx,[ebx*4+ebx]

	lea	ebx,[ebx*2+eax]

	inc	dword [position]

	jmp	.start

;--------------------------------------

.finish:

	pop	eax

	dec	eax

	jnz	@f

	neg	ebx

;--------------------------------------

@@:

	mov	eax,ebx

	pop	esi ebx

	ret

;-----------------------------------------------------------------------------

skip_spaces:

	push	esi

	xor	eax,eax

	mov	esi,[position]