WebSVN – Kolibri OS – Diff – /programs/develop/fasm/trunk/system.inc


; 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:
	mcall	18, 16
	cmp	eax, 0x38000000 shr 9
	jbe	@f
	mov	eax, 0x38000000 shr 9
@@:
	shl	eax, 9
	xchg	eax, ecx
	mov	[memory_setting],ecx
	mcall	68, 12
	or	eax,eax
	jz	out_of_memory
	mov	[memblock], eax
	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
        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;' '
	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
 
 
 
lseek:
	cmp	al,0
	jnz	@f
	and	dword [ebx+4], 0
	and     dword [ebx+8], 0
    @@: cmp	al,2
	jnz	@f
	mov	eax, [ebx-4]
	mov	[ebx+4], eax
	and     dword [ebx+8], 0
    @@: add	dword [ebx+4], edx
        adc     dword [ebx+8], 0
	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], 7 shl 16 +53 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
	mcall
	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], 7 shl 16 +53
	mov	[displayed_count],0
	call	show_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
 
align 4
fileinfo FILEINFO
 
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 }

Rev 992	Rev 1443
1	; flat assembler	1	; flat assembler
2	; Copyright (c) 1999-2007, Tomasz Grysztar	2	; Copyright (c) 1999-2007, Tomasz Grysztar
3	; All rights reserved.	3	; All rights reserved.
4		4
5	struc FILEIO	5	struc FILEIO
6	{ .cmd dd ?	6	{ .cmd dd ?
7	.offset dd ?	7	.offset dd ?
8	dd ?	8	dd ?
9	.count dd ?	9	.count dd ?
10	.buff dd ?	10	.buff dd ?
11	db ?	11	db ?
12	.name dd ?	12	.name dd ?
13	};	13	};
14		14
15	struc FILEINFO	15	struc FILEINFO
16	{ .attr dd ?	16	{ .attr dd ?
17	.flags dd ?	17	.flags dd ?
18	.cr_time dd ?	18	.cr_time dd ?
19	.cr_date dd ?	19	.cr_date dd ?
20	.acc_time dd ?	20	.acc_time dd ?
21	.acc_date dd ?	21	.acc_date dd ?
22	.mod_time dd ?	22	.mod_time dd ?
23	.mod_date dd ?	23	.mod_date dd ?
24	.size dd ?	24	.size dd ?
25	}	25	}
26		26
27		27
28		28
29	;file_info_open: dd 0,0,0xffffff,0x20000,0xf0000	29	;file_info_open: dd 0,0,0xffffff,0x20000,0xf0000
30	fullpath_open: ; db '/RD/1/EXAMPLE.ASM'	30	fullpath_open: ; db '/RD/1/EXAMPLE.ASM'
31	times MAX_PATH db 0	31	times MAX_PATH db 0
32		32
33		33
34	;file_info_write: dd 1,0,0,0,0xf0000	34	;file_info_write: dd 1,0,0,0,0xf0000
35	fullpath_write:; db '/RD/1/EXAMPLE'	35	fullpath_write:; db '/RD/1/EXAMPLE'
36	times MAX_PATH db 0	36	times MAX_PATH db 0
37		37
38	file_info_start:	38	file_info_start:
39	dd 7	39	dd 7
40	dd 0	40	dd 0
41	dd 0	41	dd 0
42	dd 0	42	dd 0
43	dd 0	43	dd 0
44	fullpath_start: ; db '/RD/1/EXAMPLE'	44	fullpath_start: ; db '/RD/1/EXAMPLE'
45	times MAX_PATH db 0	45	times MAX_PATH db 0
46		46
47	file_info_debug:	47	file_info_debug:
48	dd 7	48	dd 7
49	dd 0	49	dd 0
50	dd fullpath_start	50	dd fullpath_start
51	dd 0, 0	51	dd 0, 0
52	db '/SYS/DEVELOP/MTDBG',0	52	db '/SYS/DEVELOP/MTDBG',0
53		53
54	_ramdisk db '/RD/1/'	54	_ramdisk db '/RD/1/'
55	filepos dd 0x0	55	filepos dd 0x0
56		56
57		57
58	init_memory:	58	init_memory:
59		59
60	mov ecx, 1610241024	60	; mov ecx, 1610241024
61		61	;
-		62	; allocate_memory:
-		63	mcall 18, 16
-		64	cmp eax, 0x38000000 shr 9
-		65	jbe @f
-		66	mov eax, 0x38000000 shr 9
-		67	@@:
-		68	shl eax, 9
62	allocate_memory:	69	xchg eax, ecx
63	mov [memory_setting],ecx	70	mov [memory_setting],ecx
64	mcall 68, 12	71	mcall 68, 12
65	or eax,eax	72	or eax,eax
66	jz out_of_memory	73	jz out_of_memory
-		74	mov [memblock], eax
67	mov [additional_memory],eax	75	mov [additional_memory],eax
68	add eax,[memory_setting]	76	add eax,[memory_setting]
69	mov [memory_end],eax	77	mov [memory_end],eax
70	mov eax,[memory_setting]	78	mov eax,[memory_setting]
71	shr eax,2	79	shr eax,2
72	add eax,[additional_memory]	80	add eax,[additional_memory]
73	mov [additional_memory_end],eax	81	mov [additional_memory_end],eax
74	mov [memory_start],eax	82	mov [memory_start],eax
75	ret	83	ret
76		84
77	exit_program:	85	exit_program:
78	cmp [_mode],NORMAL_MODE	86	cmp [_mode],NORMAL_MODE
79	jne @f	87	jne @f
80	mcall 68, 13, [memblock]	88	mcall 68, 13, [memblock]
81	jmp still	89	jmp still
82	@@:	90	@@:
83	or eax,-1	91	or eax,-1
84	mcall	92	mcall
85		93
86	make_timestamp:	94	make_timestamp:
87	push ebx	95	push ebx
88	mcall 26,9	96	mcall 26,9
89	imul eax,10	97	imul eax,10
90	pop ebx	98	pop ebx
91	ret	99	ret
92		100
93	get_environment_variable:	101	get_environment_variable:
94	mov ecx,[memory_end]	102	mov ecx,[memory_end]
95	sub ecx,edi	103	sub ecx,edi
96	cmp ecx,7	104	cmp ecx,7
97	jb out_of_memory	105	jb out_of_memory
98	cmp dword[esi],'INCL'	106	cmp dword[esi],'INCL'
99	jne .finish	107	jne .finish
100	mov esi,_ramdisk	108	mov esi,_ramdisk
101	mov ecx,6	109	mov ecx,6
102	cld	110	cld
103	rep movsb	111	rep movsb
104	.finish:	112	.finish:
105	; stc	113	; stc
106	ret	114	ret
107		115
108	alloc_handle:	116	alloc_handle:
109	call make_fullpaths	117	call make_fullpaths
110	mov ebx, fileinfos+4	118	mov ebx, fileinfos+4
111	@@:	119	@@:
112	cmp dword [ebx], -1	120	cmp dword [ebx], -1
113	jz .found	121	jz .found
114	add ebx, 4+20+MAX_PATH	122	add ebx, 4+20+MAX_PATH
115	cmp ebx, fileinfos_end	123	cmp ebx, fileinfos_end
116	jb @b	124	jb @b
117	stc	125	stc
118	ret	126	ret
119	.found:	127	.found:
120	and dword [ebx+4], 0	128	and dword [ebx+4], 0
121	and dword [ebx+8], 0	129	and dword [ebx+8], 0
122	push esi edi ecx	130	push esi edi ecx
123	mov esi, fullpath_open	131	mov esi, fullpath_open
124	lea edi, [ebx+20]	132	lea edi, [ebx+20]
125	mov ecx, MAX_PATH	133	mov ecx, MAX_PATH
126	rep movsb	134	rep movsb
127	pop ecx edi esi	135	pop ecx edi esi
128	ret ; CF=0	136	ret ; CF=0
129		137
130	create:	138	create:
131	call alloc_handle	139	call alloc_handle
132	jc .ret	140	jc .ret
133	and dword [ebx-4], 0	141	and dword [ebx-4], 0
134	mov dword [ebx], 2	142	mov dword [ebx], 2
135	.ret:	143	.ret:
136	ret	144	ret
137		145
138		146
139	open:	147	open:
140	; call make_fullpaths	148	; call make_fullpaths
141		149
142	;; mov eax,fullpath_open	150	;; mov eax,fullpath_open
143	;; DEBUGF '"%s"\n',eax	151	;; DEBUGF '"%s"\n',eax
144		152
145	; mov dword[file_info_open+8],-1	153	; mov dword[file_info_open+8],-1
146	; mcall 58,file_info_open	154	; mcall 58,file_info_open
147	; or eax,eax ; found	155	; or eax,eax ; found
148	; jz @f	156	; jz @f
149	; cmp eax,6	157	; cmp eax,6
150	; jne file_error	158	; jne file_error
151	;@@: mov [filesize],ebx	159	;@@: mov [filesize],ebx
152	; clc	160	; clc
153	; ret	161	; ret
154	;file_error:	162	;file_error:
155	; stc	163	; stc
156	; ret	164	; ret
157		165
158	call alloc_handle	166	call alloc_handle
159	jc .ret	167	jc .ret
160	mov dword [ebx], 5	168	mov dword [ebx], 5
161	and dword [ebx+12], 0	169	and dword [ebx+12], 0
162	mov dword [ebx+16], fileinfo	170	mov dword [ebx+16], fileinfo
163	mov eax, 70	171	mov eax, 70
164	push ebx	172	push ebx
165	mcall	173	mcall
166	pop ebx	174	pop ebx
167	test eax, eax	175	test eax, eax
168	jnz .fail	176	jnz .fail
169	mov eax, [fileinfo.size]	177	mov eax, [fileinfo.size]
170	mov [ebx-4], eax	178	mov [ebx-4], eax
171	and dword [ebx], 0	179	and dword [ebx], 0
172	.ret:	180	.ret:
173	ret	181	ret
174	.fail:	182	.fail:
175	or dword [ebx], -1 ; close handle	183	or dword [ebx], -1 ; close handle
176	stc	184	stc
177	ret	185	ret
178		186
179	read:	187	read:
180	; pusha	188	; pusha
181	; mov edi,edx	189	; mov edi,edx
182	; mov esi,[filepos]	190	; mov esi,[filepos]
183	; add esi,0x20000	191	; add esi,0x20000
184	; cld	192	; cld
185	; rep movsb	193	; rep movsb
186	; popa	194	; popa
187	;; ret	195	;; ret
188		196
189	mov [ebx+12], ecx	197	mov [ebx+12], ecx
190	mov [ebx+16], edx	198	mov [ebx+16], edx
191	push ebx	199	push ebx
192	mov eax, 70	200	mov eax, 70
193	mcall	201	mcall
194	xchg eax, [esp]	202	xchg eax, [esp]
195	add [eax+4], ebx	203	add [eax+4], ebx
196	adc [eax+8], dword 0	204	adc [eax+8], dword 0
197	mov ebx, eax	205	mov ebx, eax
198	pop eax	206	pop eax
199	test eax, eax	207	test eax, eax
200	jz .ok	208	jz .ok
201	cmp eax, 6	209	cmp eax, 6
202	jz .ok	210	jz .ok
203	stc	211	stc
204	.ok:	212	.ok:
205	ret	213	ret
206		214
207	close:	215	close:
208	or dword [ebx], -1	216	or dword [ebx], -1
209	ret	217	ret
210		218
211		219
212	; ebx file handle	220	; ebx file handle
213	; ecx count of bytes to write	221	; ecx count of bytes to write
214	; edx pointer to buffer	222	; edx pointer to buffer
215	write:	223	write:
216	; pusha	224	; pusha
217	; mov [file_info_write+8],ecx	225	; mov [file_info_write+8],ecx
218	; mov [file_info_write+12],edx	226	; mov [file_info_write+12],edx
219	; mov [filesize],edx	227	; mov [filesize],edx
220	; mov eax,58	228	; mov eax,58
221	; mov ebx,file_info_write	229	; mov ebx,file_info_write
222	; mcall	230	; mcall
223	; popa	231	; popa
224	; ret	232	; ret
225		233
226	mov [ebx+12], ecx	234	mov [ebx+12], ecx
227	mov [ebx+16], edx	235	mov [ebx+16], edx
228	push ebx	236	push ebx
229	mov eax, 70	237	mov eax, 70
230	mcall	238	mcall
231	xchg eax, [esp]	239	xchg eax, [esp]
232	add [eax+4], ebx	240	add [eax+4], ebx
233	adc [eax+8], dword 0	241	adc [eax+8], dword 0
234	mov ebx, eax	242	mov ebx, eax
235	pop eax	243	pop eax
236	mov byte [ebx], 3	244	mov byte [ebx], 3
237	cmp eax, 1	245	cmp eax, 1
238	cmc	246	cmc
239	ret	247	ret
240		248
241	make_fullpaths:	249	make_fullpaths:
242	pusha	250	pusha
243	push edx	251	push edx
244		252
245	mov esi,path ; open	253	mov esi,path ; open
246	; DEBUGF " '%s'",esi	254	; DEBUGF " '%s'",esi
247	mov edi,fullpath_open	255	mov edi,fullpath_open
248	cld	256	cld
249	newc1:	257	newc1:
250	movsb	258	movsb
251	cmp byte[esi],0;' '	259	cmp byte[esi],0;' '
252	jne newc1	260	jne newc1
253	mov esi,[esp]	261	mov esi,[esp]
254		262
255	cmp byte[esi],'/'	263	cmp byte[esi],'/'
256	jne @f	264	jne @f
257	mov edi,fullpath_open	265	mov edi,fullpath_open
258		266
259	@@:	267	@@:
260	lodsb	268	lodsb
261	stosb	269	stosb
262	cmp al,0	270	cmp al,0
263	jne @b	271	jne @b
264	; mov ecx,12	272	; mov ecx,12
265	; cld	273	; cld
266	; rep movsb	274	; rep movsb
267	; mov byte[edi],0	275	; mov byte[edi],0
268		276
269	mov esi,path ; write	277	mov esi,path ; write
270	mov edi,fullpath_write	278	mov edi,fullpath_write
271	cld	279	cld
272	newc2:	280	newc2:
273	movsb	281	movsb
274	cmp byte[esi],0;' '	282	cmp byte[esi],0;' '
275	jne newc2	283	jne newc2
276	mov esi,[esp]	284	mov esi,[esp]
277		285
278	cmp byte[esi],'/'	286	cmp byte[esi],'/'
279	jne @f	287	jne @f
280	mov edi,fullpath_write	288	mov edi,fullpath_write
281		289
282	@@:	290	@@:
283	lodsb	291	lodsb
284	stosb	292	stosb
285	cmp al,0	293	cmp al,0
286	jne @b	294	jne @b
287	; mov ecx,12	295	; mov ecx,12
288	; cld	296	; cld
289	; rep movsb	297	; rep movsb
290	; mov byte[edi],0	298	; mov byte[edi],0
291		299
292	mov esi,path ; start	300	mov esi,path ; start
293	mov edi,fullpath_start	301	mov edi,fullpath_start
294	cld	302	cld
295	newc3:	303	newc3:
296	movsb	304	movsb
297	cmp byte[esi],0;' '	305	cmp byte[esi],0;' '
298	jne newc3	306	jne newc3
299	; mov esi,[esp]	307	; mov esi,[esp]
300	pop esi	308	pop esi
301		309
302	cmp byte[esi],'/'	310	cmp byte[esi],'/'
303	jne @f	311	jne @f
304	mov edi,fullpath_start	312	mov edi,fullpath_start
305		313
306	@@:	314	@@:
307	lodsb	315	lodsb
308	stosb	316	stosb
309	cmp al,0	317	cmp al,0
310	jne @b	318	jne @b
311	; mov ecx,12	319	; mov ecx,12
312	; cld	320	; cld
313	; rep movsb	321	; rep movsb
314	; mov byte[edi],0	322	; mov byte[edi],0
315		323
316	; add esp,4	324	; add esp,4
317	popa	325	popa
318	ret	326	ret
319		327
320		328
321		329
322	lseek:	330	lseek:
323	cmp al,0	331	cmp al,0
324	jnz @f	332	jnz @f
325	and dword [ebx+4], 0	333	and dword [ebx+4], 0
326	and dword [ebx+8], 0	334	and dword [ebx+8], 0
327	@@: cmp al,2	335	@@: cmp al,2
328	jnz @f	336	jnz @f
329	mov eax, [ebx-4]	337	mov eax, [ebx-4]
330	mov [ebx+4], eax	338	mov [ebx+4], eax
331	and dword [ebx+8], 0	339	and dword [ebx+8], 0
332	@@: add dword [ebx+4], edx	340	@@: add dword [ebx+4], edx
333	adc dword [ebx+8], 0	341	adc dword [ebx+8], 0
334	ret	342	ret
335		343
336	display_character:	344	display_character:
337	pusha	345	pusha
338	cmp [_mode],NORMAL_MODE	346	cmp [_mode],NORMAL_MODE
339	jne @f	347	jne @f
340	cmp dl,13	348	cmp dl,13
341	jz dc2	349	jz dc2
342	cmp dl,0xa	350	cmp dl,0xa
343	jnz dc1	351	jnz dc1
344	and [textxy],0x0000FFFF	352	and [textxy],0x0000FFFF
345	add [textxy], 7 shl 16 +53 and 0xFFFF0000 + 10	353	add [textxy], 7 shl 16 +53 and 0xFFFF0000 + 10
346	dc2:	354	dc2:
347	popa	355	popa
348	ret	356	ret
349	dc1:	357	dc1:
350	mov eax,[textxy]	358	mov eax,[textxy]
351	cmp ax,word[bottom_right]	359	cmp ax,word[bottom_right]
352	ja dc2	360	ja dc2
353	shr eax,16	361	shr eax,16
354	cmp ax,word[bottom_right+2]	362	cmp ax,word[bottom_right+2]
355	ja dc2	363	ja dc2
356	mov [dc],dl	364	mov [dc],dl
357	mcall 4,[textxy],[sc.work_text],dc,1	365	mcall 4,[textxy],[sc.work_text],dc,1
358	add [textxy],0x00060000	366	add [textxy],0x00060000
359	popa	367	popa
360	ret	368	ret
361	@@:	369	@@:
362	mov eax,63	370	mov eax,63
363	mov ebx,1	371	mov ebx,1
364	mov cl,dl	372	mov cl,dl
365	mcall	373	mcall
366	popa	374	popa
367	ret	375	ret
368		376
369		377
370	display_string:	378	display_string:
371	pusha	379	pusha
372	@@:	380	@@:
373	cmp byte[esi],0	381	cmp byte[esi],0
374	je @f	382	je @f
375	mov dl,[esi]	383	mov dl,[esi]
376	call display_character	384	call display_character
377	add esi,1	385	add esi,1
378	jmp @b	386	jmp @b
379	@@:	387	@@:
380	popa	388	popa
381	ret	389	ret
382		390
383	display_number:	391	display_number:
384	push ebx	392	push ebx
385	mov ecx,1000000000	393	mov ecx,1000000000
386	xor edx,edx	394	xor edx,edx
387	xor bl,bl	395	xor bl,bl
388	display_loop:	396	display_loop:
389	div ecx	397	div ecx
390	push edx	398	push edx
391	cmp ecx,1	399	cmp ecx,1
392	je display_digit	400	je display_digit
393	or bl,bl	401	or bl,bl
394	jnz display_digit	402	jnz display_digit
395	or al,al	403	or al,al
396	jz digit_ok	404	jz digit_ok
397	not bl	405	not bl
398	display_digit:	406	display_digit:
399	mov dl,al	407	mov dl,al
400	add dl,30h	408	add dl,30h
401	push ebx ecx	409	push ebx ecx
402	call display_character	410	call display_character
403	pop ecx ebx	411	pop ecx ebx
404	digit_ok:	412	digit_ok:
405	mov eax,ecx	413	mov eax,ecx
406	xor edx,edx	414	xor edx,edx
407	mov ecx,10	415	mov ecx,10
408	div ecx	416	div ecx
409	mov ecx,eax	417	mov ecx,eax
410	pop eax	418	pop eax
411	or ecx,ecx	419	or ecx,ecx
412	jnz display_loop	420	jnz display_loop
413	pop ebx	421	pop ebx
414	ret	422	ret
415		423
416	display_user_messages:	424	display_user_messages:
417	; push [skinh]	425	; push [skinh]
418	; pop [textxy]	426	; pop [textxy]
419	; add [textxy], 7 shl 16 +53	427	; add [textxy], 7 shl 16 +53
420	mov [displayed_count],0	428	mov [displayed_count],0
421	call show_display_buffer	429	call show_display_buffer
422	cmp [displayed_count],1	430	cmp [displayed_count],1
423	jb line_break_ok	431	jb line_break_ok
424	je make_line_break	432	je make_line_break
425	mov ax,word[last_displayed]	433	mov ax,word[last_displayed]
426	cmp ax,0A0Dh	434	cmp ax,0A0Dh
427	je line_break_ok	435	je line_break_ok
428	cmp ax,0D0Ah	436	cmp ax,0D0Ah
429	je line_break_ok	437	je line_break_ok
430	make_line_break:	438	make_line_break:
431	mov esi,lf	439	mov esi,lf
432	call display_string	440	call display_string
433	line_break_ok:	441	line_break_ok:
434	ret	442	ret
435		443
436	display_block:	444	display_block:
437	pusha	445	pusha
438	@@: mov dl,[esi]	446	@@: mov dl,[esi]
439	call display_character	447	call display_character
440	inc esi	448	inc esi
441	loop @b	449	loop @b
442	popa	450	popa
443	ret	451	ret
444		452
445	fatal_error:	453	fatal_error:
446	mov esi,error_prefix	454	mov esi,error_prefix
447	call display_string	455	call display_string
448	pop esi	456	pop esi
449	call display_string	457	call display_string
450	mov esi,error_suffix	458	mov esi,error_suffix
451	call display_string	459	call display_string
452	mov esi,lf	460	mov esi,lf
453	call display_string	461	call display_string
454	mov al,0FFh	462	mov al,0FFh
455	jmp exit_program	463	jmp exit_program
456		464
457	assembler_error:	465	assembler_error:
458	call display_user_messages	466	call display_user_messages
459	push dword 0	467	push dword 0
460	mov ebx,[current_line]	468	mov ebx,[current_line]
461	get_error_lines:	469	get_error_lines:
462	push ebx	470	push ebx
463	test byte [ebx+7],80h	471	test byte [ebx+7],80h
464	jz display_error_line	472	jz display_error_line
465	mov edx,ebx	473	mov edx,ebx
466	find_definition_origin:	474	find_definition_origin:
467	mov edx,[edx+12]	475	mov edx,[edx+12]
468	test byte [edx+7],80h	476	test byte [edx+7],80h
469	jnz find_definition_origin	477	jnz find_definition_origin
470	push edx	478	push edx
471	mov ebx,[ebx+8]	479	mov ebx,[ebx+8]
472	jmp get_error_lines	480	jmp get_error_lines
473	display_error_line:	481	display_error_line:
474	mov esi,[ebx]	482	mov esi,[ebx]
475	call display_string	483	call display_string
476	mov esi,line_number_start	484	mov esi,line_number_start
477	call display_string	485	call display_string
478	mov eax,[ebx+4]	486	mov eax,[ebx+4]
479	and eax,7FFFFFFFh	487	and eax,7FFFFFFFh
480	call display_number	488	call display_number
481	mov dl,']'	489	mov dl,']'
482	call display_character	490	call display_character
483	pop esi	491	pop esi
484	cmp ebx,esi	492	cmp ebx,esi
485	je line_number_ok	493	je line_number_ok
486	mov dl,20h	494	mov dl,20h
487	call display_character	495	call display_character
488	push esi	496	push esi
489	mov esi,[esi]	497	mov esi,[esi]
490	movzx ecx,byte [esi]	498	movzx ecx,byte [esi]
491	inc esi	499	inc esi
492	call display_block	500	call display_block

Subversion Repositories Kolibri OS

(root)/programs/develop/fasm/trunk/system.inc – Rev 992 → 1443