Subversion Repositories Kolibri OS

Rev

Rev 109 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 109 Rev 174
Line 3... Line 3...
3 
; All rights reserved.
 3 
; All rights reserved.
4 
;
 4 
;
5 
; MenuetOS system.inc by VT
 5 
; MenuetOS system.inc by VT
Line 6... Line 6...
6 
 
 6 
 
7 
file_info_open:  dd 0,0,0xffffff,0x20000,0xf0000
 7 
file_info_open:  dd 0,0,0xffffff,0x20000,0xf0000
8 
fullpath_open:;  db '/HD/1/EXAMPLE.ASM'
 8 
fullpath_open:  ;  db '/RD/1/EXAMPLE.ASM'
Line -... Line 9...
- 
 
 9 
		    times MAX_PATH db 0
9 
		    times MAX_PATH db 0
 10 
 
10 
 
 11 
 
11 
file_info_write: dd 1,0,0,0,0xf0000
 12 
file_info_write: dd 1,0,0,0,0xf0000
Line 12... Line 13...
12 
fullpath_write:; db '/HD/1/EXAMPLE'
 13 
fullpath_write:; db '/RD/1/EXAMPLE'
- 
 
 14 
		    times MAX_PATH db 0
- 
 
 15 
 
- 
 
 16 
file_info_start: ;this part is already rewrited to 70th function
- 
 
 17 
    dd 7
- 
 
 18 
    dd 0
13 
		    times MAX_PATH db 0
 19 
    dd 0
14 
 
 20 
    dd 0
Line 15... Line 21...
15 
file_info_start: dd 16,0,0,0,0xf0000
 21 
    dd 0
16 
fullpath_start:; db '/HD/1/EXAMPLE'
 22 
fullpath_start:  ; db '/RD/1/EXAMPLE'
Line 210... Line 216...
210 
	jz	dc2
 216 
	jz	dc2
211 
	cmp	dl,0xa
 217 
	cmp	dl,0xa
212 
	jnz	dc1
 218 
	jnz	dc1
213 
	and	[textxy],0x0000FFFF
 219 
	and	[textxy],0x0000FFFF
214 
	add	[textxy],OUTPUTXY and 0xFFFF0000 + 10
 220 
	add	[textxy],OUTPUTXY and 0xFFFF0000 + 10
- 
 
 221 
dc2:
215 
dc2:	popa
 222 
  popa
216 
	ret
 223 
	ret
- 
 
 224 
dc1:
217 
dc1:	mov	eax,[textxy]
 225 
  mov eax,[textxy]
218 
	cmp	ax,word[bottom_right]
 226 
	cmp	ax,word[bottom_right]
219 
	ja	dc2
 227 
	ja	dc2
220 
	shr	eax,16
 228 
	shr	eax,16
221 
	cmp	ax,word[bottom_right+2]
 229 
	cmp	ax,word[bottom_right+2]
222 
	ja	dc2
 230 
	ja	dc2
223 
	mov	[dc],dl
 231 
	mov	[dc],dl
224 
	mcall	4,[textxy],[sc.work_text],dc,1
 232 
	mcall	4,[textxy],[sc.work_text],dc,1
225 
	add	[textxy],0x00060000
 233 
	add	[textxy],0x00060000
226 
	popa
 234 
	popa
227 
	ret
 235 
	ret
- 
 
 236 
@@:
228 
@@:	mov	eax,63
 237 
  mov	eax,63
229 
	mov	ebx,1
 238 
	mov	ebx,1
230 
	mov	cl,dl
 239 
	mov	cl,dl
231 
	int	0x40
 240 
	int	0x40
232 
	popa
 241 
	popa
233 
	ret
 242 
	ret
Line 234... Line -...
234 
 
 - 
 
235 
 
 243 
 
236 
 
 244 
 
- 
 
 245 
display_string:
237 
display_string:
 246 
	pusha
238 
	pusha
 247 
@@:
239 
    @@: cmp	byte[esi],0
 248 
  cmp	byte[esi],0
240 
	je	@f
 249 
	je	@f
241 
	mov	dl,[esi]
 250 
	mov	dl,[esi]
242 
	call	display_character
 251 
	call	display_character
- 
 
 252 
	add	esi,1
243 
	add	esi,1
 253 
	jmp	@b
244 
	jmp	@b
 254 
@@:
Line 245... Line 255...
245 
    @@: popa
 255 
  popa
246 
	ret
 256 
	ret
247 
 
 257 
 
Line 414... Line 424...
414 
	call	display_string
 424 
	call	display_string
415 
	mov	esi,error_suffix
 425 
	mov	esi,error_suffix
416 
	call	display_string
 426 
	call	display_string
417 
	jmp	exit_program
 427 
	jmp	exit_program
Line 418... Line -...
418 
 
 - 
 
419 
__draw_caption:
 - 
 
420 
;        mcall   48,4
 - 
 
421 
;        mov     [skinh],eax
 - 
 
422 
;        mov     ebx,eax
 - 
 
423 
;        shr     ebx,1
 - 
 
424 
;        adc     ebx,1+0x000A0000-4
 - 
 
425 
;        mcall   4,,[sc.grab_text],s_title,[s_title.size]
 - 
 
426 
 
 - 
 
427 
    mcall 48,4
 - 
 
428 
    mov   [skinh],eax
 - 
 
429 
    shr   eax,1
 - 
 
430 
    adc   eax,0
 - 
 
431 
    add   eax,1-4
 - 
 
432 
    push  ax
 - 
 
433 
  if center eq true
 - 
 
434 
    mcall 9,PROCESSINFO,-1
 - 
 
435 
    mov   ebx,[PROCESSINFO+process_information.x_size]
 - 
 
436 
    shr   ebx,1
 - 
 
437 
    sub   ebx,header.size*6/2 + 8
 - 
 
438 
  else
 - 
 
439 
    mov   ebx,8
 - 
 
440 
  end if
 - 
 
441 
    shl   ebx,16
 - 
 
442 
    pop   bx
 - 
 
443 
    mcall 4,,[SYSTEMCOLORS+system_colors.grab_text]
 - 
 
Line 444... Line 428...
444 
    ret
 428 
 
445 
 
 429 
 
Line 446... Line 430...
446 
character   db ?,0
 430 
character   db ?,0