Subversion Repositories Kolibri OS

; flat assembler

; Copyright (c) 1999-2007, Tomasz Grysztar

; All rights reserved.

struc FILEIO

{   .cmd            dd ?

    .offset         dd ?

                    dd ?

    .count          dd ?

    .buff           dd ?

                    db ?

    .name           dd ?

};

struc FILEINFO

{   .attr           dd ?

    .flags          dd ?

    .cr_time        dd ?

    .cr_date        dd ?

    .acc_time       dd ?

    .acc_date       dd ?

    .mod_time       dd ?

    .mod_date       dd ?

    .size           dd ?

}

;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:

    dd 7

    dd 0

    dd 0

    dd 0

    dd 0

fullpath_start:  ; db '/RD/1/EXAMPLE'

		    times MAX_PATH db 0

file_info_debug:

	dd	7

	dd	0

	dd	fullpath_start

	dd	0, 0

	db	'/SYS/DEVELOP/MTDBG',0

_ramdisk	 db '/RD/1/'

filepos 	 dd 0x0

init_memory:

        mov ecx, 16*1024*1024

 allocate_memory:

	mov	[memory_setting],ecx

	mcall	68, 12

	or	eax,eax

	jz	out_of_memory

	mov	[additional_memory],eax

	add	eax,[memory_setting]

	mov	[memory_end],eax

	mov	eax,[memory_setting]

	shr	eax,2

	add	eax,[additional_memory]

	mov	[additional_memory_end],eax

	mov	[memory_start],eax

	ret

exit_program:

	cmp	[_mode],NORMAL_MODE

	jne	@f

	mcall	68, 13, [memblock]

	jmp	still

@@:

	or	eax,-1

	mcall

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

alloc_handle:

        call    make_fullpaths

        mov     ebx, fileinfos+4

@@:

        cmp     dword [ebx], -1

        jz      .found

        add     ebx, 4+20+MAX_PATH

        cmp     ebx, fileinfos_end

        jb      @b

        stc

        ret

.found:

        and     dword [ebx+4], 0

        and     dword [ebx+8], 0

        push    esi edi ecx

        mov     esi, fullpath_open

        lea     edi, [ebx+20]

        mov     ecx, MAX_PATH

        rep     movsb

        pop     ecx edi esi

        ret	; CF=0

create:

        call    alloc_handle

        jc      .ret

        and     dword [ebx-4], 0

        mov     dword [ebx], 2

.ret:

        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

        call    alloc_handle

        jc      .ret

        mov     dword [ebx], 5

        and     dword [ebx+12], 0

        mov     dword [ebx+16], fileinfo

        mov     eax, 70

        push    ebx

        mcall

        pop     ebx

        test    eax, eax

        jnz     .fail

        mov     eax, [fileinfo.size]

        mov     [ebx-4], eax

        and     dword [ebx], 0

.ret:

        ret

.fail:

	or	dword [ebx], -1	; close handle

        stc

        ret

read:

;          pusha

;          mov     edi,edx

;          mov     esi,[filepos]

;          add     esi,0x20000

;          cld

;          rep     movsb

;          popa

;;         ret

        mov     [ebx+12], ecx

        mov     [ebx+16], edx

        push    ebx

        mov     eax, 70

        mcall

        xchg    eax, [esp]

        add     [eax+4], ebx

        adc     [eax+8], dword 0

        mov     ebx, eax

        pop     eax

        test    eax, eax

        jz      .ok

        cmp     eax, 6

        jz      .ok

        stc

.ok:

        ret

close:

        or      dword [ebx], -1

        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

;        mcall

;        popa

;        ret

        mov     [ebx+12], ecx

        mov     [ebx+16], edx

        push    ebx

        mov     eax, 70

        mcall

        xchg    eax, [esp]

        add     [eax+4], ebx

        adc     [eax+8], dword 0

        mov     ebx, eax