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