Subversion Repositories Kolibri OS

; 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 '/HD/1/EXAMPLE.ASM'

		    times MAX_PATH db 0

file_info_write: dd 1,0,0,0,0xf0000

fullpath_write:; db '/HD/1/EXAMPLE'

		    times MAX_PATH db 0

file_info_start: dd 16,0,0,0,0xf0000

fullpath_start:; db '/HD/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

__draw_caption:

;        mcall   48,4

;        mov     [skinh],eax

;        mov     ebx,eax

;        shr     ebx,1

;        adc     ebx,1+0x000A0000-4

;        mcall   4,,[sc.grab_text],s_title,[s_title.size]

    mcall 48,4

    mov   [skinh],eax

    shr   eax,1

    adc   eax,0

    add   eax,1-4

    push  ax

  if center eq true

    mcall 9,PROCESSINFO,-1

    mov   ebx,[PROCESSINFO+process_information.x_size]

    shr   ebx,1

    sub   ebx,header.size*6/2 + 8

  else

    mov   ebx,8

  end if

    shl   ebx,16

    pop   bx

    mcall 4,,[SYSTEMCOLORS+system_colors.grab_text]

    ret

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 }