Subversion Repositories Kolibri OS

; flat assembler

; Copyright (c) 1999-2006, Tomasz Grysztar

; All rights reserved.

;

; MenuetOS system.inc by VT

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

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

        int     0x40

        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

        int     0x40

        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

;        int     0x40

;        popa

;        ret

        mov     [ebx+12], ecx

        mov     [ebx+16], edx

        push    ebx

        mov     eax, 70

        int     0x40

        xchg    eax, [esp]

        add     [eax+4], ebx

        adc     [eax+8], dword 0

        mov     ebx, eax

        pop     eax

        mov     byte [ebx], 3

        cmp     eax, 1

        cmc

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