Subversion Repositories Kolibri OS

Compare Revisions

No changes between revisions

Regard whitespace Rev 30 → Rev 31

/programs/launcher/trunk/launcher.asm
0,0 → 1,203
;
; LAUNCHER - €‚’Ž‡€“‘Š Žƒ€ŒŒ
; Š®¤ ¯à®£à ¬¬ë ᮢᥬ ­¥ ®¯â¨¬¨§¨à®¢ ­, ­® ®ç¥­ì ¯à®áâ ¤«ï ¯®­¨¬ ­¨ï.
; â®â « ã­ç¥à £à㧨⠨­ä®à¬ æ¨î ® ¯à®£à ¬¬ å ¤«ï § ¯ã᪠ ¨§ ä ©« 
; AUTORUN.DAT. ”®à¬ â ®ç¥­ì ¯à®áâ ¨ ¢ ª®¬¬¥­â à¨ïå ­¥ ­ã¦¤ ¥âáï.
;
; Š®¬¯¨«¨àã©â¥ á ¯®¬®éìî FASM 1.52 ¨ ¢ëè¥
;
include "lang.inc"
include "macros.inc"
 
use32
org 0x0
db 'MENUET01' ; 8 byte id
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
 
mov eax, 5
mov ebx, 10
int 0x40
 
mov eax, 58 ; load AUTORUN.DAT
mov ebx, autorun_dat_info
int 0x40
 
call get_number
mov [number_of_files], eax
;dps "NUMBER OF FILES: "
;dpd eax
;dps <13,10>
call next_line
 
start_program:
;dps <"STARTING A PROGRAM",13,10>
call clear_strings
mov edi, program
call get_string
mov edi, parameters
call get_string
call get_number
call run_program
call next_line
dec [number_of_files]
jnz start_program
 
exit:
or eax, -1
int 0x40
 
 
run_program: ; time to delay in eax
push eax
mcall 58, start_info
pop ebx
 
mov eax, 5
int 0x40
ret
 
 
clear_strings: ; clears buffers
pushad
 
mov ecx, 60
mov edi, program
xor al, al ;mov al, ' '
rep stosb
 
mov ecx, 60
mov edi, parameters
xor al, al
rep stosb
 
popad
ret
 
 
get_string: ; pointer to destination buffer in edi
pushad
call skip_spaces
mov esi, [position]
;dpd esi
;dps <13,10>
add esi, file_data
.start:
lodsb
cmp al, ' '
je .finish
stosb
inc [position]
jmp .start
.finish:
popad
ret
 
 
get_number:
push ebx esi
call skip_spaces
mov esi, [position]
add esi, file_data
xor eax, eax
xor ebx, ebx
.start:
lodsb
cmp al, '0'
jb .finish
cmp al, '9'
ja .finish
sub al, '0'
imul ebx, 10
add ebx, eax
inc [position]
jmp .start
.finish:
mov eax, ebx
pop esi ebx
ret
 
 
skip_spaces:
pushad
xor eax, eax
mov esi, [position]
add esi, file_data
.start:
lodsb
cmp al, ' '
jne .finish
inc [position]
jmp .start
.finish:
;dps "NOW AL = "
;mov [tmp],al
;mov edx, tmp
;call debug_outstr
;dps <13,10>
popad
ret
 
 
next_line:
pushad
mov esi, [position]
add esi, file_data
.start:
lodsb
cmp al, 13
je .finish
inc [position]
jmp .start
.finish:
add [position], 2
inc esi
lodsb
cmp al, '#'
je .skipline
cmp al, 13
jne .donotskip
.skipline:
call next_line
.donotskip:
popad
ret
 
 
 
; DATA:
position dd 0 ; position in file
 
autorun_dat_info: ; AUTORUN.DAT
.mode dd 0 ; read file
.start_block dd 0 ; block to read
.blocks dd 0x10 ; 16*512 bytes max
.address dd file_data
.workarea dd work_area
db "/RD/1/AUTORUN.DAT",0
 
start_info:
.mode dd 16
dd 0
.params dd parameters
dd 0
.workarea dd work_area
.path: ;      
 
I_END:
 
program rb 61 ; 60 + [0] char
parameters rb 61
 
number_of_files dd ?
 
work_area rb 0x4000
file_data rb 16*512
Property changes:
Added: svn:eol-style
+native
\ No newline at end of property