forked from KolibriOS/kolibrios
LAUNCHER changes:
1) Reducing the consumption of RAM, 4 KB instead of 32 KB. 2) Output to BOARD information about running applications. 3) Cleaning of the source code. notice: Only 2 KB of memory for AUTORUN.DAT - be careful! git-svn-id: svn://kolibrios.org@4602 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Marat Zakiyanov (Mario79)
parent
2fa4df3549
commit
31a1418c99
@ -1,5 +1,6 @@
|
|||||||
@erase lang.inc
|
@erase lang.inc
|
||||||
@echo lang fix en >lang.inc
|
@echo lang fix en >lang.inc
|
||||||
@fasm launcher.asm launcher
|
@fasm launcher.asm launcher
|
||||||
|
@kpack launcher
|
||||||
@erase lang.inc
|
@erase lang.inc
|
||||||
@pause
|
@pause
|
||||||
@ -1,5 +1,6 @@
|
|||||||
@erase lang.inc
|
@erase lang.inc
|
||||||
@echo lang fix ru >lang.inc
|
@echo lang fix ru >lang.inc
|
||||||
@fasm launcher.asm launcher
|
@fasm launcher.asm launcher
|
||||||
|
@kpack launcher
|
||||||
@erase lang.inc
|
@erase lang.inc
|
||||||
@pause
|
@pause
|
||||||
@ -1,259 +1,294 @@
|
|||||||
|
;-----------------------------------------------------------------------------
|
||||||
;
|
;
|
||||||
; LAUNCHER - €‚’Ž‡€<E280A1>“‘Š <20><>Žƒ<C5BD>€ŒŒ
|
; LAUNCHER - startup of programs
|
||||||
; Š®¤ ¯à®£à ¬¬ë ᮢᥬ ¥ ®¯â¨¬¨§¨à®¢ , ® ®ç¥ì ¯à®áâ ¤«ï ¯®¨¬ ¨ï.
|
|
||||||
; <20>â®â « ãç¥à £à㧨⠨ä®à¬ æ¨î ® ¯à®£à ¬¬ å ¤«ï § ¯ã᪠¨§ ä ©«
|
|
||||||
; AUTORUN.DAT. ”®à¬ â ®ç¥ì ¯à®áâ ¨ ¢ ª®¬¬¥â à¨ïå ¥ 㦤 ¥âáï.
|
|
||||||
;
|
;
|
||||||
; Š®¬¯¨«¨àã©â¥ á ¯®¬®éìî FASM 1.52 ¨ ¢ëè¥
|
; Compile with FASM 1.52 or newer
|
||||||
;
|
;
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
|
; 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"
|
include "../../../macros.inc"
|
||||||
|
|
||||||
use32
|
define __DEBUG__ 1
|
||||||
org 0x0
|
define __DEBUG_LEVEL__ 1
|
||||||
db 'MENUET01' ; 8 byte id
|
include "../../../debug-fdo.inc"
|
||||||
dd 0x01 ; header version
|
;-----------------------------------------------------------------------------
|
||||||
dd START ; start of code
|
|
||||||
dd I_END ; size of image
|
|
||||||
dd 0x8000 ; memory for app
|
|
||||||
dd 0x8000 ; esp
|
|
||||||
dd 0x0 , 0x0 ; I_Param , I_Icon
|
|
||||||
|
|
||||||
;include "DEBUG.INC"
|
|
||||||
|
|
||||||
START: ; start of execution
|
START: ; start of execution
|
||||||
|
mcall 70,autorun_dat_info ; load AUTORUN.DAT
|
||||||
; mov eax, 5
|
add ebx,file_data
|
||||||
; mov ebx, 10
|
mov [fileend],ebx
|
||||||
; mcall
|
;-----------------------------------------------------------------------------
|
||||||
|
|
||||||
; mcall 18,15
|
|
||||||
|
|
||||||
mov eax, 70 ; load AUTORUN.DAT
|
|
||||||
mov ebx, autorun_dat_info
|
|
||||||
mcall
|
|
||||||
add ebx, file_data
|
|
||||||
mov [fileend], ebx
|
|
||||||
|
|
||||||
; this cycle does not contain an obvious exit condition,
|
; this cycle does not contain an obvious exit condition,
|
||||||
; but auxiliary procedures (like "get_string") will exit
|
; but auxiliary procedures (like "get_string") will exit
|
||||||
; at EOF
|
; at EOF
|
||||||
start_program:
|
start_program:
|
||||||
call skip_spaces
|
call skip_spaces
|
||||||
cmp al,'#'
|
cmp al,byte '#'
|
||||||
jz skip_this_string
|
jz skip_this_string
|
||||||
call clear_strings
|
call clear_strings
|
||||||
mov edi, program
|
mov edi,program
|
||||||
call get_string
|
call get_string
|
||||||
mov edi, parameters
|
mov edi,parameters
|
||||||
call get_string
|
call get_string
|
||||||
call get_number
|
call get_number
|
||||||
;dps <"STARTING A PROGRAM",13,10>
|
call run_program
|
||||||
call run_program
|
;--------------------------------------
|
||||||
skip_this_string:
|
skip_this_string:
|
||||||
call next_line
|
call next_line
|
||||||
jmp start_program
|
jmp start_program
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
exit:
|
exit:
|
||||||
or eax, -1
|
or eax,-1
|
||||||
mcall
|
mcall
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
|
run_program: ; time to delay in eax
|
||||||
run_program: ; time to delay in eax
|
DEBUGF 1, "Launch: %s Parameter: %s\n",program,parameters
|
||||||
push eax
|
push eax
|
||||||
mcall 70, start_info
|
mcall 70,start_info
|
||||||
pop ebx
|
pop ebx
|
||||||
|
|
||||||
; if delay is negative, wait for termination
|
; if delay is negative, wait for termination
|
||||||
; of the spawned process
|
; of the spawned process
|
||||||
test ebx, ebx
|
test ebx,ebx
|
||||||
js must_wait_for_termination
|
js must_wait_for_termination
|
||||||
; otherwise, simply wait
|
; otherwise, simply wait
|
||||||
mov eax, 5
|
mcall 5
|
||||||
mcall
|
ret
|
||||||
ret
|
;-----------------------------------------------------------------------------
|
||||||
must_wait_for_termination:
|
must_wait_for_termination:
|
||||||
mov esi, eax ; save slot for the future
|
mov esi,eax ; save slot for the future
|
||||||
; get process slot
|
; get process slot
|
||||||
mov ecx, eax
|
mov ecx,eax
|
||||||
mcall 18, 21
|
mcall 18,21
|
||||||
; if an error has occured, exit
|
; if an error has occured, exit
|
||||||
test eax, eax
|
test eax,eax
|
||||||
jz child_exited
|
jz child_exited
|
||||||
mov ecx, eax
|
|
||||||
; wait
|
|
||||||
wait_for_termination:
|
|
||||||
mcall 5, 1
|
|
||||||
mov ebx, processinfo
|
|
||||||
mcall 9
|
|
||||||
cmp word [ebx+50], 9 ; the slot was freed?
|
|
||||||
jz child_exited
|
|
||||||
cmp dword [ebx+30], esi ; the slot is still occupied by our child?
|
|
||||||
jz wait_for_termination
|
|
||||||
child_exited:
|
|
||||||
ret
|
|
||||||
|
|
||||||
clear_strings: ; clears buffers
|
mov ecx,eax
|
||||||
pushad
|
;--------------------------------------
|
||||||
|
wait_for_termination:
|
||||||
|
mcall 5,1
|
||||||
|
mov ebx, processinfo
|
||||||
|
mcall 9
|
||||||
|
cmp [ebx+50],word 9 ; the slot was freed?
|
||||||
|
jz child_exited
|
||||||
|
|
||||||
mov ecx, 60
|
cmp [ebx+30],dword esi ; the slot is still occupied by our child?
|
||||||
mov edi, program
|
jz wait_for_termination
|
||||||
xor al, al ;mov al, ' '
|
;--------------------------------------
|
||||||
rep stosb
|
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,file_data
|
||||||
|
cmp [esi],byte '"'
|
||||||
|
jz .quoted
|
||||||
|
;--------------------------------------
|
||||||
|
.start:
|
||||||
|
cmp esi,[fileend]
|
||||||
|
jae exit
|
||||||
|
|
||||||
mov ecx, 60
|
lodsb
|
||||||
mov edi, parameters
|
cmp al,byte ' '
|
||||||
rep stosb
|
jbe .finish
|
||||||
|
|
||||||
popad
|
stosb
|
||||||
ret
|
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
|
||||||
|
|
||||||
get_string: ; pointer to destination buffer in edi
|
stosb
|
||||||
pushad
|
jmp .quoted.start
|
||||||
call skip_spaces
|
;-----------------------------------------------------------------------------
|
||||||
mov esi, [position]
|
get_number:
|
||||||
;dpd esi
|
push ebx esi
|
||||||
;dps <13,10>
|
call skip_spaces
|
||||||
add esi, file_data
|
mov esi,[position]
|
||||||
cmp byte [esi], '"'
|
add esi,file_data
|
||||||
jz .quoted
|
xor eax,eax
|
||||||
.start:
|
cmp [esi],byte '-'
|
||||||
cmp esi, [fileend]
|
jnz @f
|
||||||
jae exit
|
|
||||||
lodsb
|
|
||||||
cmp al, ' '
|
|
||||||
jbe .finish
|
|
||||||
stosb
|
|
||||||
inc [position]
|
|
||||||
jmp .start
|
|
||||||
.finish:
|
|
||||||
popad
|
|
||||||
ret
|
|
||||||
.quoted:
|
|
||||||
inc esi
|
|
||||||
inc [position]
|
|
||||||
.quoted.start:
|
|
||||||
cmp esi, [fileend]
|
|
||||||
jae exit
|
|
||||||
lodsb
|
|
||||||
inc [position]
|
|
||||||
cmp al, '"'
|
|
||||||
je .finish
|
|
||||||
stosb
|
|
||||||
jmp .quoted.start
|
|
||||||
|
|
||||||
|
inc eax
|
||||||
get_number:
|
inc esi
|
||||||
push ebx esi
|
inc dword [position]
|
||||||
call skip_spaces
|
;--------------------------------------
|
||||||
mov esi, [position]
|
|
||||||
add esi, file_data
|
|
||||||
xor eax, eax
|
|
||||||
cmp byte [esi], '-'
|
|
||||||
jnz @f
|
|
||||||
inc eax
|
|
||||||
inc esi
|
|
||||||
inc [position]
|
|
||||||
@@:
|
@@:
|
||||||
push eax
|
push eax
|
||||||
xor eax, eax
|
xor eax,eax
|
||||||
xor ebx, ebx
|
xor ebx,ebx
|
||||||
.start:
|
;--------------------------------------
|
||||||
cmp esi, [fileend]
|
.start:
|
||||||
jae .finish
|
cmp esi,[fileend]
|
||||||
lodsb
|
jae .finish
|
||||||
sub al, '0'
|
|
||||||
cmp al, 9
|
lodsb
|
||||||
ja .finish
|
sub al,byte '0'
|
||||||
lea ebx,[ebx*4+ebx]
|
cmp al,9
|
||||||
lea ebx,[ebx*2+eax]
|
ja .finish
|
||||||
inc [position]
|
|
||||||
jmp .start
|
lea ebx,[ebx*4+ebx]
|
||||||
.finish:
|
lea ebx,[ebx*2+eax]
|
||||||
pop eax
|
inc dword [position]
|
||||||
dec eax
|
jmp .start
|
||||||
jnz @f
|
;--------------------------------------
|
||||||
neg ebx
|
.finish:
|
||||||
|
pop eax
|
||||||
|
dec eax
|
||||||
|
jnz @f
|
||||||
|
|
||||||
|
neg ebx
|
||||||
|
;--------------------------------------
|
||||||
@@:
|
@@:
|
||||||
mov eax, ebx
|
mov eax,ebx
|
||||||
pop esi ebx
|
pop esi ebx
|
||||||
ret
|
ret
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
|
skip_spaces:
|
||||||
|
push esi
|
||||||
|
xor eax,eax
|
||||||
|
mov esi,[position]
|
||||||
|
add esi,file_data
|
||||||
|
;--------------------------------------
|
||||||
|
.start:
|
||||||
|
cmp esi,[fileend]
|
||||||
|
jae .finish
|
||||||
|
|
||||||
|
lodsb
|
||||||
|
cmp al,byte ' '
|
||||||
|
ja .finish
|
||||||
|
|
||||||
skip_spaces:
|
inc dword [position]
|
||||||
push esi
|
jmp .start
|
||||||
xor eax, eax
|
;--------------------------------------
|
||||||
mov esi, [position]
|
.finish:
|
||||||
add esi, file_data
|
pop esi
|
||||||
.start:
|
ret
|
||||||
cmp esi, [fileend]
|
;-----------------------------------------------------------------------------
|
||||||
jae .finish
|
next_line:
|
||||||
lodsb
|
mov esi,[position]
|
||||||
cmp al, ' '
|
add esi,file_data
|
||||||
ja .finish
|
;--------------------------------------
|
||||||
inc [position]
|
.start:
|
||||||
jmp .start
|
cmp esi,[fileend]
|
||||||
.finish:
|
jae exit
|
||||||
;dps "NOW AL = "
|
|
||||||
;mov [tmp],al
|
|
||||||
;mov edx, tmp
|
|
||||||
;call debug_outstr
|
|
||||||
;dps <13,10>
|
|
||||||
pop esi
|
|
||||||
ret
|
|
||||||
|
|
||||||
|
lodsb
|
||||||
|
cmp al,13
|
||||||
|
je .finish
|
||||||
|
|
||||||
next_line:
|
cmp al,10
|
||||||
mov esi, [position]
|
je .finish
|
||||||
add esi, file_data
|
|
||||||
.start:
|
|
||||||
cmp esi, [fileend]
|
|
||||||
jae exit
|
|
||||||
lodsb
|
|
||||||
cmp al, 13
|
|
||||||
je .finish
|
|
||||||
cmp al, 10
|
|
||||||
je .finish
|
|
||||||
inc [position]
|
|
||||||
jmp .start
|
|
||||||
.finish:
|
|
||||||
inc [position]
|
|
||||||
cmp esi, [fileend]
|
|
||||||
jae exit
|
|
||||||
lodsb
|
|
||||||
cmp al, 13
|
|
||||||
je .finish
|
|
||||||
cmp al, 10
|
|
||||||
je .finish
|
|
||||||
ret
|
|
||||||
|
|
||||||
|
inc dword [position]
|
||||||
|
jmp .start
|
||||||
|
;--------------------------------------
|
||||||
|
.finish:
|
||||||
|
inc dword [position]
|
||||||
|
cmp esi,[fileend]
|
||||||
|
jae exit
|
||||||
|
|
||||||
|
lodsb
|
||||||
|
cmp al,13
|
||||||
|
je .finish
|
||||||
|
|
||||||
|
cmp al,10
|
||||||
|
je .finish
|
||||||
|
|
||||||
|
ret
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
; DATA:
|
; DATA:
|
||||||
position dd 0 ; position in file
|
;-----------------------------------------------------------------------------
|
||||||
|
include_debug_strings
|
||||||
autorun_dat_info: ; AUTORUN.DAT
|
;-----------------------------------------------------------------------------
|
||||||
.mode dd 0 ; read file
|
autorun_dat_info: ; AUTORUN.DAT
|
||||||
.start_block dd 0 ; block to read
|
.mode dd 0 ; read file
|
||||||
dd 0
|
.start_block dd 0 ; block to read
|
||||||
.blocks dd 16*512 ; 16*512 bytes max
|
dd 0
|
||||||
.address dd file_data
|
.blocks dd 4*512 ; 2 Kb max for AUTORUN.DAT
|
||||||
db "/SYS/SETTINGS/AUTORUN.DAT",0
|
.address dd file_data
|
||||||
|
db "/SYS/SETTINGS/AUTORUN.DAT",0
|
||||||
start_info:
|
;-----------------------------------------------------------------------------
|
||||||
.mode dd 7
|
start_info:
|
||||||
dd 0
|
.mode dd 7
|
||||||
.params dd parameters
|
dd 0
|
||||||
dd 0
|
.params dd parameters
|
||||||
dd 0
|
dd 0
|
||||||
.path: ;
|
dd 0
|
||||||
|
.path:
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
|
IM_END:
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
|
align 4
|
||||||
|
processinfo:
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
|
program:
|
||||||
|
rb 61 ; 60 + [0] char
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
|
parameters:
|
||||||
|
rb 61
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
|
rb 1024-61*2
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
|
position:
|
||||||
|
rd 1 ; position in file
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
|
fileend:
|
||||||
|
rd 1
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
|
align 4
|
||||||
|
file_data:
|
||||||
|
rb 4*512 ; 2 Kb for AUTORUN.DAT
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
|
align 4
|
||||||
|
rb 256
|
||||||
|
stack_top:
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
I_END:
|
I_END:
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
program rb 61 ; 60 + [0] char
|
|
||||||
parameters rb 61
|
|
||||||
|
|
||||||
processinfo rb 1024
|
|
||||||
fileend dd ?
|
|
||||||
|
|
||||||
file_data rb 16*512
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user