kolibrios/programs/develop/scc/OSFUNC.ASM

682 lines
10 KiB
NASM
Raw Normal View History

include "macros.inc"
;
; OS function implementation
; SmallC for KolibriOS
;
;B+ General definitions
;B+ File defs
;const
;param
BAD equ -1
files equ 100
save_buffer equ 0x20000 ;32
save_buffer_w equ 0x400000 ;32
save_file_name equ 0x20000
;system
EOF equ -1
;memory
fileinfo equ I_END
start_data equ (fileinfo+16384)
;
mem_heap equ 0x100000
;
g_handle equ 0x300000
;dword - pointer - relative to file
;dword - begin of file
;dword - file size
;dword - 0/1 <=> read/write
;E:.
;E:.
init_osfunc:
;B+ Init OS functions
;B+ Clear file handles
mov edi,g_handle
mov ecx,files
shl ecx,2 ;*4
xor eax,eax
cld
rep stosd
;E:.
ret
;E:.
;B+ Main OS functions
ppp dd 70
_OS_fopen:
;B+ Implement "fopen"
;esp+4 - mode
;esp+8 - file name
; mov eax,-1
; int 0x40
; mov ebx,[esp+8];
; push dword 10
; push dword [ppp]
; push ebx
; push dword 12
; call _outstrg
; add esp,4*4
; add [ppp],10
; cmp byte [ebx+8],0
; jne .l
; mov byte [ebx+8],'?'
;.l:
; cmp [ppp],80
; je .l
mov ecx , [esp+4] ; file mode
mov [file_mode],ecx
;B+ Copy file name
mov esi,[esp+8]
mov edi,[p_filename]
mov ecx,12
.next_copy:
lodsb
;fill name (space)
or al,al
jz .fill_space
;set upper case
cmp al,'a'
jb .good_char
cmp al,'z'
ja .good_char
add al,'A'-'a'
.good_char:
stosb
dec ecx
jnz .next_copy
.fill_space:
mov al,' '
cld
rep stosb
mov eax,[file_mode]
cmp byte [eax],'w'
jne .no_wri
;B+ Copy file name
mov esi,[esp+8]
mov edi,[w_file_name]
mov ecx,12
.next_copy2:
lodsb
;fill name (space)
or al,al
jz .fill_space2
;set upper case
cmp al,'a'
jb .good_char2
cmp al,'z'
ja .good_char2
add al,'A'-'a'
.good_char2:
stosb
dec ecx
jnz .next_copy2
.fill_space2:
;mov al,' '
;cld
rep stosb
.no_wri:
;E:.
;B+ Find file handle
mov eax,g_handle
.new_handle:
cmp dword [eax+4],0
je .find_place
add eax,16
cmp eax,g_handle+files*16-16
jne .new_handle
xor eax,eax ; no free handle
ret
.find_place:
; TMP: mov eax,[.ccc]
; TMP: add [.ccc],16
;E:.
push eax
;B+ Test open mode
mov eax,[esp+4+4]
cmp byte [eax],'r'
je .open_read
cmp byte [eax],'w'
je .open_write
;bad mode
add esp,4
mov eax,eax ; invalid open mode
ret
;E:.
; TMP:.ccc dd g_handle
.open_read:
;B+ Open for read
;B+ Read file
;Wait to read correct
mov ebx,100
mov eax,5
int 0x40
mov eax,[g_fileend]
mov dword [file_parameters+2*4],2000 ;read all
mov dword [file_parameters+3*4],eax
mov dword [file_parameters],0
mov ebx,file_parameters
mov eax,58
int 0x40
;E:.
;B+ TEST FILE FOUND
or eax,eax
jz .file_found
cmp eax,5
je .file_found
; mov ecx,eax ; eax
; mov ebx,8 shl 16 + 0x0100
; mov edx,100 shl 16 + 120
; mov esi,0xffffff
; mov eax,47
; int 0x40
;file not found - return 0
add esp,4
xor eax,eax
ret
.file_found:
;E:.
pop eax
push ebx
xchg eax,ebx
;B+ Fill file handle
;save current pointer
xor eax,eax
mov [ebx],eax
;save file begin
mov eax,[g_fileend]
mov [ebx+4],eax
;save file size
pop eax
mov [ebx+8],eax
;reserve file zone
add eax,7
and eax,not 7
add [g_fileend],eax
;save file mode
mov eax,0 ;read
mov [ebx+12],eax
;E:.
xchg eax,ebx ;return pointer place
ret
;E:.
.open_write:
;B+ Open for write
;B+ Reserve filename
; p_filename -> w_file_name
;pusha
; mov eax, w_file_name
; mov ebx, [p_filename]
;.ncpy:
; mov ch, byte [ebx]
; cmp ch, 0
; je .ecpy
; mov [eax], ch
; inc dword [eax]
; inc dword [ebx]
;jmp .ncpy
;
;.ecpy:
;
;popa
mov [save_buffer_p], save_buffer_w
mov esi,[p_filename]
mov edi,[g_fileend]
mov ecx,12
cld
rep movsb
add [g_fileend],16
;E:.
pop ebx
;B+ Fill file handle
;save begin pointer
xor eax,eax
mov [ebx],eax
;save file begin
mov eax,[g_fileend]
mov [ebx+4],eax
;save file zone
mov dword [ebx+8],save_buffer
;reserve file zone
add [g_fileend],save_buffer
;save file mode
mov eax,1 ;write
mov [ebx+12],eax
;E:.
xchg eax,ebx ;return pointer place
ret
;E:.
;E:.
_OS_fclos:
;B+ Close file
;esp+4 - file handle
;B+ Test write mode - save file
mov eax,[esp+4]
mov eax,[eax+12]
cmp eax,1
;E:.
jne .no_write
mov eax, [esp+4]
mov ecx, [eax]
mov ebx, [eax+8]
mov ebx, [save_buffer_p]
sub ebx, save_buffer_w
; ebx = number of read bytes = file size
; save loaded file
mov [dest_info.bytes],ebx ; file size in bytes
mov [dest_info.bytes+4], save_buffer_w
;mov eax, [p_filename];[w_file_name]
;mov [destination],eax
mov eax,70
mov ebx,dest_info
mcall
; check if 58 function failed
test eax,eax
je .ok_write
add eax,7 ; error number += 7
cmp eax,6+7
jna .copy_error
mov eax,7+7
jmp .copy_error
.copy_error:
.ok_write:
;E:.
jmp .read
.no_write:
;B+ Test read mode - if no error end
cmp eax,0
je .read
mov eax,BAD
ret
;E:.
.read:
;B+ Relace memory
;find file size
mov eax,[esp+4]
mov ecx,[eax+8]
add ecx,7
and ecx,not 7
push ecx
;mov memory
mov esi,[eax+4]
mov edi,esi
add esi,ecx
mov ecx,[g_fileend]
sub ecx,edi
jz .is_last
shr ecx,2
inc ecx ;not neccessery
cld
rep movsd
;update gl. memory
.is_last:
pop ecx
sub dword [g_fileend],ecx
;update file pointers
mov edx,ecx
mov ecx,[eax+4]
mov eax,g_handle
.new_handle1:
mov ebx,[eax+4]
cmp ebx,ecx
jbe .no_update
sub ebx,edx
mov [eax+4],ebx
.no_update:
add eax,16
cmp eax,g_handle+files*16
jne .new_handle1
;clear handle
mov edi,[esp+4]
xor eax,eax
cld
stosd
stosd
stosd
stosd
;E:.
ret
;E:.
_OS_fgetc:
;B+ Load char from file
;esp+4 - input file
mov eax,[esp+4]
mov ebx,[eax]
cmp ebx,[eax+8]
je .eof
inc dword [eax]
add ebx,[eax+4]
movzx eax,byte [ebx]
ret
.eof:
mov eax,EOF
ret
;E:.
;rrr db 'g',0
_OS_fputc:
;B+ Save char to file
;esp+4 - output file
;esp+8 - char to write
;push dword '<'
;mov cl,1
;push dword 0
;call test_outch
;add esp,8
;B+ Temp - write direct.
cmp dword [esp+4],__iob
jne .real_write0
jmp _OS_exit
.real_write0:
cmp dword [esp+4],__iob+32
jne .real_write1
mov [print_textcolor],0x00ffff
jmp test_outch
.real_write1:
cmp dword [esp+4],__iob+64
jne .real_write2
mov [print_textcolor],0x77ffff
jmp test_outch
.real_write2:
;E:.
mov ebx,[save_buffer_p]
mov eax,[esp+8]
mov [ebx],eax
inc dword [save_buffer_p]
ret
;push dword '<'
;mov cl,1
;push dword 0
;call test_outch
;add esp,8
mov eax,[esp+4]
mov ebx,[eax]
push ebx
cmp ebx,[eax+8]
jne .write_normal
;B+ Alloc save_buffer bytes
;mov memory
mov ebx,[esp+4+4]
mov esi,[g_fileend]
mov edi,esi
add edi,save_buffer-4
mov ecx,esi
sub ecx,[ebx+4]
sub ecx,[ebx+8]
shr ecx,2
jz .is_last
sub esi,4
std
rep movsd
.is_last:
;expand file size
add dword [eax+8],save_buffer
;update file pointers
mov ebx,g_handle
.new_handle:
mov ecx,[ebx+4]
cmp [eax+4],ecx
jae .no_update
add dword [ebx+4],save_buffer
.no_update:
add ebx,16
cmp ebx,g_handle+files*16-16
jne .new_handle
;E:.
.write_normal:
pop ebx
inc dword [eax]
add ebx,[eax+4]
mov cl,[esp+8]
mov byte [ebx],cl
;sub [test_outch.x_coord],2
;
;push dword '>'
;mov cl,1
;push dword 0
;call test_outch
;add esp,8
;
;sub [test_outch.x_coord],6
xor eax,eax
ret
;E:.
_OS_callo:
;B+ Alloc memory
;find all size
mov eax,[esp+4]
mov ebx,[esp+8]
mul ebx
push eax
;clear memory
mov edi,[.mem_p]
xor eax,eax
mov ecx,[esp]
cld
rep stosb
;update new memory pointer
pop ebx
push dword [.mem_p]
add ebx,7
and ebx,not 7
add [.mem_p],ebx
;return value
pop eax
ret
.mem_p dd mem_heap
;E:.
_OS_exit:
;B+ Exit program
; ;TMP
; mov eax,-1
; int 0x40
mov esp,[exit_esp]
sub esp,4
ret
;E:.
;E:.
;B+ Test procedures
;B+ Definitions
LEFTMARGIN equ 11
BEGIN_CHARS equ 20
NL equ 10
;E:.
print_textcolor dd 0x00ffff
_file_beg:
;B+ Show begin of file - test fopen
;esp+4 - file handle (descriptor)
mov eax,[esp+4]
mov ebx,10 shl 16 + 30
mov ecx,[print_textcolor]
mov edx,[eax+4]
mov esi,BEGIN_CHARS
mov eax,4
int 0x40
ret
;E:.
_outstrg:
;B+ Draw black text - test function call
;esp+4*4 - x
;esp+4*3 - y
;esp+4*2 - *c
;esp+4*1 - len
mov ebx,[esp+4*4]
shl ebx,16
mov bx,[esp+4*3]
mov ecx,[print_textcolor]
mov edx,[esp+4*2]
mov esi,[esp+4]
mov eax,4
int 0x40
ret
;E:.
test_outch:
;B+ Draw one char - use as _OS_fputc, to test printf(...)
;esp+8 - char to write
;this is test! \b \r - not nesessary
mov al,[esp+8]
cmp al,NL
jne .no_newline
add [.y_coord],10
mov [.x_coord],LEFTMARGIN
ret
.no_newline:
mov ebx,[.x_coord]
shl ebx,16
mov bx,word [.y_coord]
mov ecx,[print_textcolor]
mov [.out_char],al
mov edx,.out_char
mov esi,1
mov eax,4
int 0x40
add [.x_coord],6
;mov eax,5
;mov ebx,5
;int 0x40
ret
.x_coord dd LEFTMARGIN
.y_coord dd 60
.out_char db 0
;E:.
;E:.
;B+ Data section
;B+ Memory managment
g_fileend dd g_handle+files*4*4 ;from 2MB+100*4*4
;w_buff dd
;E:.
save_buffer_p dd save_buffer_w
;B+ File parameters
file_parameters:
dd 0x0 ; mode
dd 0x0 ; first block
dd 1000 ; block read
dd -1 ; return place
dd fileinfo ; work area
filepath: times 100 db 0
file_mode dd 0 ;file mode
dest_info: ; DESTINATION FILEINFO
dd 2
dd 0
dd 0
.bytes dd ?
dd save_buffer
db 0
destination:
dd save_file_name
;db "EXAMPLE.ASM",0
w_file_name dd save_file_name
p_filename dd 0x0
;E:.
;E:.
;TO DO
mov eax,-1
int 0x40
;TO DO