forked from KolibriOS/kolibrios
447 lines
6.5 KiB
PHP
447 lines
6.5 KiB
PHP
; flat assembler version 1.60
|
|
; Copyright (c) 1999-2005, Tomasz Grysztar
|
|
; All rights reserved.
|
|
;
|
|
; MenuetOS system.inc by VT
|
|
|
|
file_info_open: dd 0,0,0xffffff,0x20000,0xf0000
|
|
fullpath_open: ; db '/RD/1/EXAMPLE.ASM'
|
|
times MAX_PATH db 0
|
|
|
|
|
|
file_info_write: dd 1,0,0,0,0xf0000
|
|
fullpath_write:; db '/RD/1/EXAMPLE'
|
|
times MAX_PATH db 0
|
|
|
|
file_info_start: ;this part is already rewrited to 70th function
|
|
dd 7
|
|
dd 0
|
|
dd 0
|
|
dd 0
|
|
dd 0
|
|
fullpath_start: ; db '/RD/1/EXAMPLE'
|
|
times MAX_PATH db 0
|
|
|
|
_ramdisk db '/RD/1/'
|
|
filepos dd 0x0
|
|
|
|
; info by Privalov: starting from FASM 1.51
|
|
; ~3/8 - additional memory
|
|
; ~5/8 - main memory
|
|
init_memory:
|
|
mov [memory_start],0x100000
|
|
mov [memory_end],0x100000+(APP_MEMORY-0x100000)/8*5
|
|
mov [additional_memory],0x100000+(APP_MEMORY-0x100000)/8*5
|
|
mov [additional_memory_end],APP_MEMORY
|
|
ret
|
|
|
|
exit_program:
|
|
cmp [_mode],NORMAL_MODE
|
|
je still
|
|
or eax,-1
|
|
int 0x40
|
|
|
|
make_timestamp:
|
|
push ebx
|
|
mcall 26,9
|
|
imul eax,10
|
|
pop ebx
|
|
ret
|
|
|
|
get_environment_variable:
|
|
mov ecx,[memory_end]
|
|
sub ecx,edi
|
|
cmp ecx,7
|
|
jb out_of_memory
|
|
cmp dword[esi],'INCL'
|
|
jne .finish
|
|
mov esi,_ramdisk
|
|
mov ecx,6
|
|
cld
|
|
rep movsb
|
|
.finish:
|
|
; stc
|
|
ret
|
|
|
|
open:
|
|
call make_fullpaths
|
|
|
|
; mov eax,fullpath_open
|
|
; DEBUGF '"%s"\n',eax
|
|
|
|
mov dword[file_info_open+8],-1
|
|
mcall 58,file_info_open
|
|
or eax,eax ; found
|
|
jz @f
|
|
cmp eax,6
|
|
jne file_error
|
|
@@: mov [filesize],ebx
|
|
clc
|
|
ret
|
|
file_error:
|
|
stc
|
|
ret
|
|
|
|
create:
|
|
call make_fullpaths
|
|
ret
|
|
|
|
; ebx file handle
|
|
; ecx count of bytes to write
|
|
; edx pointer to buffer
|
|
write:
|
|
pusha
|
|
mov [file_info_write+8],ecx
|
|
mov [file_info_write+12],edx
|
|
mov [filesize],edx
|
|
mov eax,58
|
|
mov ebx,file_info_write
|
|
int 0x40
|
|
popa
|
|
ret
|
|
|
|
make_fullpaths:
|
|
pusha
|
|
push edx
|
|
|
|
mov esi,path ; open
|
|
; DEBUGF " '%s'",esi
|
|
mov edi,fullpath_open
|
|
cld
|
|
newc1:
|
|
movsb
|
|
cmp byte[esi],0;' '
|
|
jne newc1
|
|
mov esi,[esp]
|
|
|
|
cmp byte[esi],'/'
|
|
jne @f
|
|
mov edi,fullpath_open
|
|
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
cmp al,0
|
|
jne @b
|
|
; mov ecx,12
|
|
; cld
|
|
; rep movsb
|
|
; mov byte[edi],0
|
|
|
|
mov esi,path ; write
|
|
mov edi,fullpath_write
|
|
cld
|
|
newc2:
|
|
movsb
|
|
cmp byte[esi],0;' '
|
|
jne newc2
|
|
mov esi,[esp]
|
|
|
|
cmp byte[esi],'/'
|
|
jne @f
|
|
mov edi,fullpath_write
|
|
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
cmp al,0
|
|
jne @b
|
|
; mov ecx,12
|
|
; cld
|
|
; rep movsb
|
|
; mov byte[edi],0
|
|
|
|
mov esi,path ; start
|
|
mov edi,fullpath_start
|
|
cld
|
|
newc3:
|
|
movsb
|
|
cmp byte[esi],0;' '
|
|
jne newc3
|
|
; mov esi,[esp]
|
|
pop esi
|
|
|
|
cmp byte[esi],'/'
|
|
jne @f
|
|
mov edi,fullpath_start
|
|
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
cmp al,0
|
|
jne @b
|
|
; mov ecx,12
|
|
; cld
|
|
; rep movsb
|
|
; mov byte[edi],0
|
|
|
|
; add esp,4
|
|
popa
|
|
ret
|
|
|
|
read:
|
|
pusha
|
|
mov edi,edx
|
|
mov esi,[filepos]
|
|
add esi,0x20000
|
|
cld
|
|
rep movsb
|
|
popa
|
|
; ret
|
|
|
|
close: ret
|
|
|
|
lseek:
|
|
cmp al,0
|
|
jnz @f
|
|
mov [filepos],0
|
|
@@: cmp al,1
|
|
jnz @f
|
|
@@: cmp al,2
|
|
jnz @f
|
|
mov eax,[filesize]
|
|
mov [filepos],eax
|
|
@@: mov eax,[filepos]
|
|
add eax,edx
|
|
mov [filepos],eax
|
|
ret
|
|
|
|
|
|
|
|
display_character:
|
|
pusha
|
|
cmp [_mode],NORMAL_MODE
|
|
jne @f
|
|
cmp dl,13
|
|
jz dc2
|
|
cmp dl,0xa
|
|
jnz dc1
|
|
and [textxy],0x0000FFFF
|
|
add [textxy],OUTPUTXY and 0xFFFF0000 + 10
|
|
dc2:
|
|
popa
|
|
ret
|
|
dc1:
|
|
mov eax,[textxy]
|
|
cmp ax,word[bottom_right]
|
|
ja dc2
|
|
shr eax,16
|
|
cmp ax,word[bottom_right+2]
|
|
ja dc2
|
|
mov [dc],dl
|
|
mcall 4,[textxy],[sc.work_text],dc,1
|
|
add [textxy],0x00060000
|
|
popa
|
|
ret
|
|
@@:
|
|
mov eax,63
|
|
mov ebx,1
|
|
mov cl,dl
|
|
int 0x40
|
|
popa
|
|
ret
|
|
|
|
|
|
display_string:
|
|
pusha
|
|
@@:
|
|
cmp byte[esi],0
|
|
je @f
|
|
mov dl,[esi]
|
|
call display_character
|
|
add esi,1
|
|
jmp @b
|
|
@@:
|
|
popa
|
|
ret
|
|
|
|
display_number:
|
|
push ebx
|
|
mov ecx,1000000000
|
|
xor edx,edx
|
|
xor bl,bl
|
|
display_loop:
|
|
div ecx
|
|
push edx
|
|
cmp ecx,1
|
|
je display_digit
|
|
or bl,bl
|
|
jnz display_digit
|
|
or al,al
|
|
jz digit_ok
|
|
not bl
|
|
display_digit:
|
|
mov dl,al
|
|
add dl,30h
|
|
push ebx ecx
|
|
call display_character
|
|
pop ecx ebx
|
|
digit_ok:
|
|
mov eax,ecx
|
|
xor edx,edx
|
|
mov ecx,10
|
|
div ecx
|
|
mov ecx,eax
|
|
pop eax
|
|
or ecx,ecx
|
|
jnz display_loop
|
|
pop ebx
|
|
ret
|
|
|
|
display_user_messages:
|
|
; push [skinh]
|
|
; pop [textxy]
|
|
; add [textxy],OUTPUTXY
|
|
mov [displayed_count],0
|
|
call flush_display_buffer
|
|
cmp [displayed_count],1
|
|
jb line_break_ok
|
|
je make_line_break
|
|
mov ax,word[last_displayed]
|
|
cmp ax,0A0Dh
|
|
je line_break_ok
|
|
cmp ax,0D0Ah
|
|
je line_break_ok
|
|
make_line_break:
|
|
mov esi,lf
|
|
call display_string
|
|
line_break_ok:
|
|
ret
|
|
|
|
display_block:
|
|
pusha
|
|
@@: mov dl,[esi]
|
|
call display_character
|
|
inc esi
|
|
loop @b
|
|
popa
|
|
ret
|
|
|
|
fatal_error:
|
|
mov esi,error_prefix
|
|
call display_string
|
|
pop esi
|
|
call display_string
|
|
mov esi,error_suffix
|
|
call display_string
|
|
mov esi,lf
|
|
call display_string
|
|
mov al,0FFh
|
|
jmp exit_program
|
|
|
|
assembler_error:
|
|
call display_user_messages
|
|
push dword 0
|
|
mov ebx,[current_line]
|
|
get_error_lines:
|
|
push ebx
|
|
test byte [ebx+7],80h
|
|
jz display_error_line
|
|
mov edx,ebx
|
|
find_definition_origin:
|
|
mov edx,[edx+12]
|
|
test byte [edx+7],80h
|
|
jnz find_definition_origin
|
|
push edx
|
|
mov ebx,[ebx+8]
|
|
jmp get_error_lines
|
|
display_error_line:
|
|
mov esi,[ebx]
|
|
call display_string
|
|
mov esi,line_number_start
|
|
call display_string
|
|
mov eax,[ebx+4]
|
|
and eax,7FFFFFFFh
|
|
call display_number
|
|
mov dl,']'
|
|
call display_character
|
|
pop esi
|
|
cmp ebx,esi
|
|
je line_number_ok
|
|
mov dl,20h
|
|
call display_character
|
|
push esi
|
|
mov esi,[esi]
|
|
movzx ecx,byte [esi]
|
|
inc esi
|
|
call display_block
|
|
mov esi,line_number_start
|
|
call display_string
|
|
pop esi
|
|
mov eax,[esi+4]
|
|
and eax,7FFFFFFFh
|
|
call display_number
|
|
mov dl,']'
|
|
call display_character
|
|
line_number_ok:
|
|
mov esi,line_data_start
|
|
call display_string
|
|
mov esi,ebx
|
|
mov edx,[esi]
|
|
call open
|
|
mov al,2
|
|
xor edx,edx
|
|
call lseek
|
|
mov edx,[esi+8]
|
|
sub eax,edx
|
|
push eax
|
|
xor al,al
|
|
call lseek
|
|
mov ecx,[esp]
|
|
mov edx,[additional_memory]
|
|
lea eax,[edx+ecx]
|
|
cmp eax,[additional_memory_end]
|
|
ja out_of_memory
|
|
call read
|
|
call close
|
|
pop ecx
|
|
mov esi,[additional_memory]
|
|
get_line_data:
|
|
mov al,[esi]
|
|
cmp al,0Ah
|
|
je display_line_data
|
|
cmp al,0Dh
|
|
je display_line_data
|
|
cmp al,1Ah
|
|
je display_line_data
|
|
or al,al
|
|
jz display_line_data
|
|
inc esi
|
|
loop get_line_data
|
|
display_line_data:
|
|
mov ecx,esi
|
|
mov esi,[additional_memory]
|
|
sub ecx,esi
|
|
call display_block
|
|
mov esi,cr_lf
|
|
call display_string
|
|
pop ebx
|
|
or ebx,ebx
|
|
jnz display_error_line
|
|
mov esi,error_prefix
|
|
call display_string
|
|
pop esi
|
|
call display_string
|
|
mov esi,error_suffix
|
|
call display_string
|
|
jmp exit_program
|
|
|
|
|
|
character db ?,0
|
|
bytes_count dd ?
|
|
|
|
textxy dd 0x000500A0
|
|
dc db 0x0
|
|
filesize dd 0x0
|
|
|
|
displayed_count dd ?
|
|
last_displayed rb 2
|
|
|
|
error_prefix db 'error: ',0
|
|
error_suffix db '.',0
|
|
line_data_start db ':'
|
|
cr_lf db 0Dh,0Ah,0
|
|
line_number_start db ' [',0
|
|
|
|
macro dm string { db string,0 }
|