1 files changed, 1021 insertions, 1021 deletions
diff --git a/thread/afileIO3.asm b/thread/afileIO3.asm
index 62efe53..e93dca0 100644
--- a/thread/afileIO3.asm
+++ b/thread/afileIO3.asm
@@ -1,1021 +1,1021 @@
-
-; nonvolatile registers: rbx rsi rdi rbp r12 r13 r14 r15
-; volatile    registers: rax rcx rdx r8 r9 r10 r11
-
-	THREAD equ 1
-
-_TEXT	segment para 'CODE'
-_TEXT	ends
-_DATA	segment para 'DATA'
-_DATA	ends
-
-	_DATA segment
-	align	8
-
-freadstring_error:
-	db	"Error in freadsubstring parameters."
-	db	10,0
-	db	0,0,0
-fwritestring_error:
-	db	"Error in fwritesubstring parameters."
-	db	10,0
-	db	0,0
-
-	extrn	clean_exception_handler:near
-	public	clean_unwind_info
-clean_unwind_info:
-	DD	000000009H
-	DD	imagerel(clean_exception_handler)
-
-_DATA	ends
-
-	_TEXT segment
-
-	public	stdioF
-	public	stderrF
-	public	openF
-	public	closeF
-	public	reopenF
-	public	readFC
-	public	readFI
-	public	readFR
-	public	readFS
-	public	readFString
-	public	readLineF
-	public	writeFC
-	public	writeFI
-	public	writeFR
-	public	writeFS
-	public	writeFString
-	public	endF
-	public	errorF
-	public	positionF
-	public	seekF
-	public	shareF
-	public	flushF
-	public	openSF
-	public	readSFC
-	public	readSFI
-	public	readSFR
-	public	readSFS
-	public	readLineSF
-	public	endSF
-	public	positionSF
-	public	seekSF
-
-; imports
-
-	extrn	open_file:near
-	extrn	open_stdio:near
-	extrn	open_stderr:near
-	extrn	re_open_file:near
-	extrn	close_file:near
-	extrn	file_read_char:near
-	extrn	file_read_int:near
-	extrn	file_read_real:near
-	extrn	file_read_characters:near
-	extrn	file_read_line:near
-	extrn	file_write_char:near
-	extrn	file_write_int:near
-	extrn	file_write_real:near
-	extrn	file_write_characters:near
-	extrn	file_end:near
-	extrn	file_error:near
-	extrn	file_position:near
-	extrn	file_seek:near
-	extrn	file_share:near
-	extrn	flush_file_buffer:near
-	extrn	open_s_file:near
-	extrn	file_read_s_char:near
-	extrn	file_read_s_int:near
-	extrn	file_read_s_real:near
-	extrn	file_read_s_string:near
-	extrn	file_read_s_line:near
-	extrn	file_s_end:near
-	extrn	file_s_position:near
-	extrn	file_s_seek:near
-
-	extrn	collect_0:near
-	extrn	collect_1:near
-
-	extrn	print_error:near
-
-	extrn	__STRING__:near
-
-stdioF:
-	mov	rbp,rsp
-	and	rsp,-16
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,32
-	call	open_stdio
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	rbx,rax
-	mov	rax,-1
-	ret
-
-stderrF:
-	mov	rbp,rsp
-	and	rsp,-16
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,32
-	call	open_stderr
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	rbx,rax
-	mov	rax,-1
-	ret
-
-openF:
-	mov	rbp,rsp
-	and	rsp,-16
-
-	mov	rdx,rax
-	add	rcx,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,32
-	call	open_file
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	xor	r10,r10
-	test	rax,rax
-	setns	r10b
-	mov	rbx,rax
-	mov	rax,-1
-	ret
-
-closeF:	mov	rcx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	close_file
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	ret
-
-reopenF:
-	mov	rdx,rax
-	mov	rcx,r10
-	mov	rbx,r10
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	re_open_file
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	r10d,eax
-	mov	rax,-1
-	ret
-
-readFC:
-	mov	rcx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_read_char
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	cmp	eax,-1
-	je	readFC_eof
-
-	mov	r10,rax
-	mov	rax,-1
-	mov	r11,1
-	ret
-
-readFC_eof:
-	xor	r10,r10
-	mov	rax,-1
-	xor	r11,r11
-	ret
-
-readFI:
-	mov	rbp,rsp
-	sub	rsp,40+8
- if THREAD
-	mov	r14,r9
- endif
-	and	rsp,-16
-
-	lea	rdx,32[rsp]
-	mov	rcx,rbx
-	call	file_read_int
-
-	mov	r10,32[rsp]
-
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	r11,rax
-	mov	rax,-1
-	ret
-
-readFR:
-	mov	rbp,rsp
-	sub	rsp,40+8
- if THREAD
-	mov	r14,r9
- endif
-	and	rsp,-16
-
-	lea	rdx,32[rsp]
-	mov	rcx,rbx
-	call	file_read_real
-
-	movlpd	xmm0,qword ptr 32[rsp]
-	
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	r10,rax
-	mov	rax,-1	
-	ret
-
-readFString:
-	mov	rbp,8[rcx]
-	cmp	r11,rbp
-	jae	readFString_error
-
-	sub	rbp,r11
-	cmp	r10,rbp
-	ja	readFString_error
-
-	push	rcx
-
-	push	r11
-
-	lea	r8,16[rcx+r11]
-	mov	rdx,rsp
-	mov	rcx,rbx
-	
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_read_characters
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	add	rsp,8
-	pop	rcx
-	
-	mov	r10,rax
-	mov	rax,-1
-	ret
-
-readFString_error:
-	mov	rbp,offset freadstring_error
-	jmp	print_error
-
-readFS:	lea	rbp,16+7[rax]
-	shr	rbp,3
-	sub	r15,rbp
-	jb	readFS_gc
-readFS_r_gc:
-	add	r15,rbp
-
-	lea	r8,__STRING__+2
-	mov	qword ptr [rdi],r8
-;	mov	qword ptr [rdi],offset __STRING__+2
-
-	lea	r8,16[rdi]
-	mov	8[rdi],rax
-	lea	rdx,8[rdi]
-	mov	rcx,r10
-
-	mov	rbx,r10
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_read_characters
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-
-readFS_end:
-	add	rax,16+7
-	mov	rcx,rdi
-	shr	rax,3
-	sub	r15,rax
-	lea	rdi,[rdi+rax*8]
-	mov	rax,-1
-	ret
-
-readFS_gc:	push	rbp
-	call	collect_0
-	pop	rbp
-	jmp	readFS_r_gc
-
-readLineF:
-	cmp	r15,32+2
-	jb	readLineF_gc
-
-readLineF_r_gc:
-	lea	r8,__STRING__+2
-	mov	qword ptr [rdi],r8
-;	mov	qword ptr [rdi],offset __STRING__+2
-
-	lea	r8,16[rdi]
-	lea	rdx,-16[r15*8]
-	mov	rcx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_read_line
-	mov	rsp,rbp
-
-	mov	8[rdi],rax
- if THREAD
-	mov	r9,r14
- endif
-	test	rax,rax
-	jns	readFS_end
-
-	lea	rax,-16[r15*8]
-	mov	r12,rdi
-	mov	8[rdi],rax
-	add	rdi,16
-
-readLineF_lp:
-	add	rdi,rax
-
-	mov	r13,8[r12]
-	mov	rcx,r12
-	shr	r13,3
-	xor	r15,r15
-	add	r13,2+32
-	sub	r15,r13
-	
-	call	collect_1
-
-	add	r15,r13
-	mov	rax,8[rcx]
-	lea	rdx,16[rcx]
-	lea	rcx,7[rax]
-	shr	rcx,3
-	sub	r15,2
-	sub	r15,rcx
-
-	mov	r12,rdi
-
-	lea	rbp,__STRING__+2
-	mov	qword ptr [rdi],rbp
-;	mov	qword ptr [rdi],offset __STRING__+2
-
-	mov	8[rdi],rax
-	add	rdi,16
-	jmp	st_copy_string1
-
-copy_st_lp1:
-	mov	rbp,[rdx]
-	add	rdx,8
-	mov	[rdi],rbp
-	add	rdi,8
-st_copy_string1:
-	sub	rcx,1
-	jnc	copy_st_lp1
-
-	mov	r8,rdi
-	lea	rdx,[r15*8]
-	mov	rcx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_read_line
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	test	rax,rax
-	js	readLineF_again
-
-	add	8[r12],rax
-	add	rax,7
-
-	mov	rcx,r12
-
-	shr	rax,3
-	sub	r15,rax
-	lea	rdi,[rdi+rax*8]
-
-	mov	rax,-1
-	ret
-
-readLineF_gc:
-	sub	r15,32+2
-	call	collect_0
-	add	r15,32+2
-	jmp	readLineF_r_gc
-
-readLineF_again:
-	mov	rcx,8[r12]
-	lea	rax,[r15*8]
-	add	rcx,rax
-	mov	8[r12],rcx
-	jmp	readLineF_lp
-
-writeFC:
-	mov	rcx,r10
-	mov	rdx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_write_char
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	rax,-1
-	ret
-
-writeFI:
-	mov	rcx,r10
-	mov	rdx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_write_int
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	rax,-1
-	ret
-
-writeFR:
-	mov	rdx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
- 	call	file_write_real
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	rax,-1
-	ret
-
-writeFS:
-	mov	r8,rbx
-	mov	rdx,8[rcx]
-	add	rcx,16
-	
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_write_characters
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	rax,-1
-	ret
-
-writeFString:
-	mov	rbp,8[rcx]
-	cmp	r11,rbp
-	jae	writeFString_error
-
-	sub	rbp,r11
-	cmp	r10,rbp
-	ja	writeFString_error
-
-	mov	r8,rbx
-	mov	rdx,r10
-	lea	rcx,16[rcx+r11]
-	
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_write_characters
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	rax,-1
-
-	ret
-
-writeFString_error:
-	mov	rbp,offset fwritestring_error
-	jmp	print_error
-
-endF:
-	mov	rcx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_end
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	r10,rax
-	mov	rax,-1
-	ret
-
-errorF:
-	mov	rcx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_error
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	r10,rax
-	mov	rax,-1
-	ret
-
-positionF:
-	mov	rcx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_position
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	r10,rax
-	mov	rax,-1
-	ret
-
-seekF:
-	mov	r8,rax
-	mov	rdx,rbx
-	mov	rcx,r11
-	
-	mov	rbx,r11
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_seek
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	r10,rax
-	mov	rax,-1
-	ret
-
-shareF:
-	mov	rcx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_share
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	rax,-1
-	ret
-
-flushF:
-	mov	rcx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	flush_file_buffer
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	r10,rax
-	mov	rax,-1
-	ret
-
-openSF:	mov	rdx,rax
-	add	rcx,8
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	open_s_file
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	xor	r10,r10
-	test	rax,rax
-	setns	r10b
-
-	mov	rbx,rax
-	xor	rax,rax
-	ret
-
-readSFC:
-	push	rax
-
-	mov	rdx,rsp
-	mov	rax,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_read_s_char
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	cmp	rax,-1
-	je	readSFC_eof
-
-	pop	rax
-	mov	r10,rax
-	mov	r11,1
-	ret
-
-readSFC_eof:
-	pop	rax
-	xor	r10,r10
-	xor	r11,r11
-	ret
-
-readSFI:
-	push	rax
-	mov	r8,rsp
-	sub	rsp,8
-	mov	rdx,rsp
-	mov	rcx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_read_s_int
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	pop	r10
-	mov	r11,rax
-	pop	rax
-	
-	ret
-
-readSFR:
-	push	rax
-	mov	r8,rsp
-	sub	rsp,8
-	mov	rdx,rsp
-	mov	rcx,rbx
-
-	mov	rbp,rsp
-	sub	rsp,40+8
- if THREAD
-	mov	r14,r9
- endif
-	and	rsp,-16
-	call	file_read_s_real
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	movlpd	xmm0,qword ptr [rsp]
-	mov	r10,rax
-	add	rsp,8
-	pop	rax
-
-	ret
-
-readSFS:
-	lea	rbp,16+7[rax]
-	shr	rbp,3
-	sub	r15,rbp
-	jb	readSFS_gc
-readSFS_r_gc:
-	add	r15,rbp
-
- if THREAD
-	lea	rbp,__STRING__+2
-	mov	qword ptr [rdi],rbp
- else
-	lea	r9,__STRING__+2
-	mov	qword ptr [rdi],r9
- endif
-;	mov	qword ptr [rdi],offset __STRING__+2
-
-	push	rbx
-
- if THREAD
-	mov	r14,r9
- endif
-	mov	r9,rsp
-	lea	r8,8[rdi]
-	mov	rdx,rax
-	mov	rcx,r10
-	
-	mov	rbx,r10
-	
-	mov	rbp,rsp
-	or	rsp,8
-	sub	rsp,40
-	call	file_read_s_string
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-
-readSFS_end:
-	add	rax,16+7
-	mov	rcx,rdi
-	shr	rax,3
-	sub	r15,rax
-	lea	rdi,[rdi+rax*8]
-	pop	rax
-	ret
-
-readSFS_gc:	push	rbp
-	call	collect_0
-	pop	rbp
-	jmp	readSFS_r_gc
-
-readLineSF:
-	cmp	r15,32+2
-	ja	readLineSF_gc
-
-readLineSF_r_gc:
-	push	rax
-
- if THREAD
-	lea	rbp,__STRING__+2
-	mov	qword ptr [rdi],rbp
- else
-	lea	r9,__STRING__+2
-	mov	qword ptr [rdi],r9
- endif
-;	mov	qword ptr [rdi],offset __STRING__+2
-
- if THREAD
-	mov	r14,r9
- endif
-	mov	r9,rsp
-	lea	r8,16[rdi]
-	lea	rdx,-16[r15*8]
-	mov	rcx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
-	sub	rsp,40
-	call	file_read_s_line
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	8[rdi],rax
-
-	test	rax,rax
-	jns	readSFS_end
-
-	lea	rax,-16[r15*8]
-	mov	r12,rdi
-	mov	8[rdi],rax
-	add	rdi,16
-
-readLineSF_lp:
-	add	rdi,rax
-
-	mov	r13,8[r12]
-	mov	rcx,r12
-	shr	r13,3
-	xor	r15,r15
-	add	r13,2+32
-	sub	r15,r13
-
-	call	collect_1
-
-	add	r15,r13
-	mov	rax,8[rcx]
-	lea	rdx,16[rcx]
-	lea	rcx,7[rax]
-	shr	rcx,3
-	sub	r15,2
-	sub	r15,rcx
-
-	mov	r12,rdi
-
-	lea	rbp,__STRING__+2
-	mov	qword ptr [rdi],rbp
-;	mov	qword ptr [rdi],offset __STRING__+2
-
-	mov	8[rdi],rax
-	add	rdi,16
-	jmp	st_copy_string2
-
-copy_st_lp2:
-	mov	rbp,[rdx]
-	add	rdx,8
-	mov	[rdi],rbp
-	add	rdi,8
-st_copy_string2:
-	sub	rcx,1
-	jnc	copy_st_lp2
-
- if THREAD
-	mov	r14,r9
- endif
-	mov	r9,rsp
-	mov	r8,rdi
-	lea	rdx,[r15*8]
-	mov	rcx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
-	sub	rsp,40
-	call	file_read_s_line
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	test	rax,rax
-	js	readLineSF_again
-
-	add	8[r12],rax
-	add	rax,7
-
-	mov	rcx,r12
-
-	shr	rax,3
-	sub	r15,rax
-	lea	rdi,[rdi+rax*8]
-
-	pop	rax
-	ret
-
-readLineSF_gc:
-	sub	r15,32+2
-	call	collect_0
-	add	r15,32+2
-	jmp	readLineSF_r_gc
-
-readLineSF_again:
-	mov	rcx,8[r12]
-	lea	rax,[r15*8]
-	add	rcx,rax
-	mov	8[r12],rcx
-	jmp	readLineSF_lp
-
-endSF:
-	mov	rdx,rax
-	mov	rcx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_s_end
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	ret
-
-positionSF:
-	mov	rdx,rax
-	mov	rcx,rbx
-
-	mov	rbp,rsp
-	or	rsp,8
- if THREAD
-	mov	r14,r9
- endif
-	sub	rsp,40
-	call	file_s_position
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	ret
-
-seekSF:
-	push	rbx
- if THREAD
-	mov	r14,r9
- endif
-	mov	r9,rsp
-	mov	r8,rax
-	mov	rdx,r10
-	mov	rcx,r11
-
-	mov	rbx,r11
-
-	mov	rbp,rsp
-	or	rsp,8
-	sub	rsp,40
-	call	file_s_seek
-	mov	rsp,rbp
- if THREAD
-	mov	r9,r14
- endif
-	mov	r10,rax	
-	pop	rax
-
-	ret
-
-_TEXT	ends
-
-
-	end
+
+; nonvolatile registers: rbx rsi rdi rbp r12 r13 r14 r15
+; volatile    registers: rax rcx rdx r8 r9 r10 r11
+
+	THREAD equ 1
+
+_TEXT	segment para 'CODE'
+_TEXT	ends
+_DATA	segment para 'DATA'
+_DATA	ends
+
+	_DATA segment
+	align	8
+
+freadstring_error:
+	db	"Error in freadsubstring parameters."
+	db	10,0
+	db	0,0,0
+fwritestring_error:
+	db	"Error in fwritesubstring parameters."
+	db	10,0
+	db	0,0
+
+	extrn	clean_exception_handler:near
+	public	clean_unwind_info
+clean_unwind_info:
+	DD	000000009H
+	DD	imagerel(clean_exception_handler)
+
+_DATA	ends
+
+	_TEXT segment
+
+	public	stdioF
+	public	stderrF
+	public	openF
+	public	closeF
+	public	reopenF
+	public	readFC
+	public	readFI
+	public	readFR
+	public	readFS
+	public	readFString
+	public	readLineF
+	public	writeFC
+	public	writeFI
+	public	writeFR
+	public	writeFS
+	public	writeFString
+	public	endF
+	public	errorF
+	public	positionF
+	public	seekF
+	public	shareF
+	public	flushF
+	public	openSF
+	public	readSFC
+	public	readSFI
+	public	readSFR
+	public	readSFS
+	public	readLineSF
+	public	endSF
+	public	positionSF
+	public	seekSF
+
+; imports
+
+	extrn	open_file:near
+	extrn	open_stdio:near
+	extrn	open_stderr:near
+	extrn	re_open_file:near
+	extrn	close_file:near
+	extrn	file_read_char:near
+	extrn	file_read_int:near
+	extrn	file_read_real:near
+	extrn	file_read_characters:near
+	extrn	file_read_line:near
+	extrn	file_write_char:near
+	extrn	file_write_int:near
+	extrn	file_write_real:near
+	extrn	file_write_characters:near
+	extrn	file_end:near
+	extrn	file_error:near
+	extrn	file_position:near
+	extrn	file_seek:near
+	extrn	file_share:near
+	extrn	flush_file_buffer:near
+	extrn	open_s_file:near
+	extrn	file_read_s_char:near
+	extrn	file_read_s_int:near
+	extrn	file_read_s_real:near
+	extrn	file_read_s_string:near
+	extrn	file_read_s_line:near
+	extrn	file_s_end:near
+	extrn	file_s_position:near
+	extrn	file_s_seek:near
+
+	extrn	collect_0:near
+	extrn	collect_1:near
+
+	extrn	print_error:near
+
+	extrn	__STRING__:near
+
+stdioF:
+	mov	rbp,rsp
+	and	rsp,-16
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,32
+	call	open_stdio
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	rbx,rax
+	mov	rax,-1
+	ret
+
+stderrF:
+	mov	rbp,rsp
+	and	rsp,-16
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,32
+	call	open_stderr
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	rbx,rax
+	mov	rax,-1
+	ret
+
+openF:
+	mov	rbp,rsp
+	and	rsp,-16
+
+	mov	rdx,rax
+	add	rcx,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,32
+	call	open_file
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	xor	r10,r10
+	test	rax,rax
+	setns	r10b
+	mov	rbx,rax
+	mov	rax,-1
+	ret
+
+closeF:	mov	rcx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	close_file
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	ret
+
+reopenF:
+	mov	rdx,rax
+	mov	rcx,r10
+	mov	rbx,r10
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	re_open_file
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	r10d,eax
+	mov	rax,-1
+	ret
+
+readFC:
+	mov	rcx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_read_char
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	cmp	eax,-1
+	je	readFC_eof
+
+	mov	r10,rax
+	mov	rax,-1
+	mov	r11,1
+	ret
+
+readFC_eof:
+	xor	r10,r10
+	mov	rax,-1
+	xor	r11,r11
+	ret
+
+readFI:
+	mov	rbp,rsp
+	sub	rsp,40+8
+ if THREAD
+	mov	r14,r9
+ endif
+	and	rsp,-16
+
+	lea	rdx,32[rsp]
+	mov	rcx,rbx
+	call	file_read_int
+
+	mov	r10,32[rsp]
+
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	r11,rax
+	mov	rax,-1
+	ret
+
+readFR:
+	mov	rbp,rsp
+	sub	rsp,40+8
+ if THREAD
+	mov	r14,r9
+ endif
+	and	rsp,-16
+
+	lea	rdx,32[rsp]
+	mov	rcx,rbx
+	call	file_read_real
+
+	movlpd	xmm0,qword ptr 32[rsp]
+	
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	r10,rax
+	mov	rax,-1	
+	ret
+
+readFString:
+	mov	rbp,8[rcx]
+	cmp	r11,rbp
+	jae	readFString_error
+
+	sub	rbp,r11
+	cmp	r10,rbp
+	ja	readFString_error
+
+	push	rcx
+
+	push	r11
+
+	lea	r8,16[rcx+r11]
+	mov	rdx,rsp
+	mov	rcx,rbx
+	
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_read_characters
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	add	rsp,8
+	pop	rcx
+	
+	mov	r10,rax
+	mov	rax,-1
+	ret
+
+readFString_error:
+	mov	rbp,offset freadstring_error
+	jmp	print_error
+
+readFS:	lea	rbp,16+7[rax]
+	shr	rbp,3
+	sub	r15,rbp
+	jb	readFS_gc
+readFS_r_gc:
+	add	r15,rbp
+
+	lea	r8,__STRING__+2
+	mov	qword ptr [rdi],r8
+;	mov	qword ptr [rdi],offset __STRING__+2
+
+	lea	r8,16[rdi]
+	mov	8[rdi],rax
+	lea	rdx,8[rdi]
+	mov	rcx,r10
+
+	mov	rbx,r10
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_read_characters
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+
+readFS_end:
+	add	rax,16+7
+	mov	rcx,rdi
+	shr	rax,3
+	sub	r15,rax
+	lea	rdi,[rdi+rax*8]
+	mov	rax,-1
+	ret
+
+readFS_gc:	push	rbp
+	call	collect_0
+	pop	rbp
+	jmp	readFS_r_gc
+
+readLineF:
+	cmp	r15,32+2
+	jb	readLineF_gc
+
+readLineF_r_gc:
+	lea	r8,__STRING__+2
+	mov	qword ptr [rdi],r8
+;	mov	qword ptr [rdi],offset __STRING__+2
+
+	lea	r8,16[rdi]
+	lea	rdx,-16[r15*8]
+	mov	rcx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_read_line
+	mov	rsp,rbp
+
+	mov	8[rdi],rax
+ if THREAD
+	mov	r9,r14
+ endif
+	test	rax,rax
+	jns	readFS_end
+
+	lea	rax,-16[r15*8]
+	mov	r12,rdi
+	mov	8[rdi],rax
+	add	rdi,16
+
+readLineF_lp:
+	add	rdi,rax
+
+	mov	r13,8[r12]
+	mov	rcx,r12
+	shr	r13,3
+	xor	r15,r15
+	add	r13,2+32
+	sub	r15,r13
+	
+	call	collect_1
+
+	add	r15,r13
+	mov	rax,8[rcx]
+	lea	rdx,16[rcx]
+	lea	rcx,7[rax]
+	shr	rcx,3
+	sub	r15,2
+	sub	r15,rcx
+
+	mov	r12,rdi
+
+	lea	rbp,__STRING__+2
+	mov	qword ptr [rdi],rbp
+;	mov	qword ptr [rdi],offset __STRING__+2
+
+	mov	8[rdi],rax
+	add	rdi,16
+	jmp	st_copy_string1
+
+copy_st_lp1:
+	mov	rbp,[rdx]
+	add	rdx,8
+	mov	[rdi],rbp
+	add	rdi,8
+st_copy_string1:
+	sub	rcx,1
+	jnc	copy_st_lp1
+
+	mov	r8,rdi
+	lea	rdx,[r15*8]
+	mov	rcx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_read_line
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	test	rax,rax
+	js	readLineF_again
+
+	add	8[r12],rax
+	add	rax,7
+
+	mov	rcx,r12
+
+	shr	rax,3
+	sub	r15,rax
+	lea	rdi,[rdi+rax*8]
+
+	mov	rax,-1
+	ret
+
+readLineF_gc:
+	sub	r15,32+2
+	call	collect_0
+	add	r15,32+2
+	jmp	readLineF_r_gc
+
+readLineF_again:
+	mov	rcx,8[r12]
+	lea	rax,[r15*8]
+	add	rcx,rax
+	mov	8[r12],rcx
+	jmp	readLineF_lp
+
+writeFC:
+	mov	rcx,r10
+	mov	rdx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_write_char
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	rax,-1
+	ret
+
+writeFI:
+	mov	rcx,r10
+	mov	rdx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_write_int
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	rax,-1
+	ret
+
+writeFR:
+	mov	rdx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+ 	call	file_write_real
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	rax,-1
+	ret
+
+writeFS:
+	mov	r8,rbx
+	mov	rdx,8[rcx]
+	add	rcx,16
+	
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_write_characters
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	rax,-1
+	ret
+
+writeFString:
+	mov	rbp,8[rcx]
+	cmp	r11,rbp
+	jae	writeFString_error
+
+	sub	rbp,r11
+	cmp	r10,rbp
+	ja	writeFString_error
+
+	mov	r8,rbx
+	mov	rdx,r10
+	lea	rcx,16[rcx+r11]
+	
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_write_characters
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	rax,-1
+
+	ret
+
+writeFString_error:
+	mov	rbp,offset fwritestring_error
+	jmp	print_error
+
+endF:
+	mov	rcx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_end
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	r10,rax
+	mov	rax,-1
+	ret
+
+errorF:
+	mov	rcx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_error
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	r10,rax
+	mov	rax,-1
+	ret
+
+positionF:
+	mov	rcx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_position
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	r10,rax
+	mov	rax,-1
+	ret
+
+seekF:
+	mov	r8,rax
+	mov	rdx,rbx
+	mov	rcx,r11
+	
+	mov	rbx,r11
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_seek
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	r10,rax
+	mov	rax,-1
+	ret
+
+shareF:
+	mov	rcx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_share
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	rax,-1
+	ret
+
+flushF:
+	mov	rcx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	flush_file_buffer
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	r10,rax
+	mov	rax,-1
+	ret
+
+openSF:	mov	rdx,rax
+	add	rcx,8
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	open_s_file
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	xor	r10,r10
+	test	rax,rax
+	setns	r10b
+
+	mov	rbx,rax
+	xor	rax,rax
+	ret
+
+readSFC:
+	push	rax
+
+	mov	rdx,rsp
+	mov	rax,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_read_s_char
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	cmp	rax,-1
+	je	readSFC_eof
+
+	pop	rax
+	mov	r10,rax
+	mov	r11,1
+	ret
+
+readSFC_eof:
+	pop	rax
+	xor	r10,r10
+	xor	r11,r11
+	ret
+
+readSFI:
+	push	rax
+	mov	r8,rsp
+	sub	rsp,8
+	mov	rdx,rsp
+	mov	rcx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_read_s_int
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	pop	r10
+	mov	r11,rax
+	pop	rax
+	
+	ret
+
+readSFR:
+	push	rax
+	mov	r8,rsp
+	sub	rsp,8
+	mov	rdx,rsp
+	mov	rcx,rbx
+
+	mov	rbp,rsp
+	sub	rsp,40+8
+ if THREAD
+	mov	r14,r9
+ endif
+	and	rsp,-16
+	call	file_read_s_real
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	movlpd	xmm0,qword ptr [rsp]
+	mov	r10,rax
+	add	rsp,8
+	pop	rax
+
+	ret
+
+readSFS:
+	lea	rbp,16+7[rax]
+	shr	rbp,3
+	sub	r15,rbp
+	jb	readSFS_gc
+readSFS_r_gc:
+	add	r15,rbp
+
+ if THREAD
+	lea	rbp,__STRING__+2
+	mov	qword ptr [rdi],rbp
+ else
+	lea	r9,__STRING__+2
+	mov	qword ptr [rdi],r9
+ endif
+;	mov	qword ptr [rdi],offset __STRING__+2
+
+	push	rbx
+
+ if THREAD
+	mov	r14,r9
+ endif
+	mov	r9,rsp
+	lea	r8,8[rdi]
+	mov	rdx,rax
+	mov	rcx,r10
+	
+	mov	rbx,r10
+	
+	mov	rbp,rsp
+	or	rsp,8
+	sub	rsp,40
+	call	file_read_s_string
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+
+readSFS_end:
+	add	rax,16+7
+	mov	rcx,rdi
+	shr	rax,3
+	sub	r15,rax
+	lea	rdi,[rdi+rax*8]
+	pop	rax
+	ret
+
+readSFS_gc:	push	rbp
+	call	collect_0
+	pop	rbp
+	jmp	readSFS_r_gc
+
+readLineSF:
+	cmp	r15,32+2
+	ja	readLineSF_gc
+
+readLineSF_r_gc:
+	push	rax
+
+ if THREAD
+	lea	rbp,__STRING__+2
+	mov	qword ptr [rdi],rbp
+ else
+	lea	r9,__STRING__+2
+	mov	qword ptr [rdi],r9
+ endif
+;	mov	qword ptr [rdi],offset __STRING__+2
+
+ if THREAD
+	mov	r14,r9
+ endif
+	mov	r9,rsp
+	lea	r8,16[rdi]
+	lea	rdx,-16[r15*8]
+	mov	rcx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+	sub	rsp,40
+	call	file_read_s_line
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	8[rdi],rax
+
+	test	rax,rax
+	jns	readSFS_end
+
+	lea	rax,-16[r15*8]
+	mov	r12,rdi
+	mov	8[rdi],rax
+	add	rdi,16
+
+readLineSF_lp:
+	add	rdi,rax
+
+	mov	r13,8[r12]
+	mov	rcx,r12
+	shr	r13,3
+	xor	r15,r15
+	add	r13,2+32
+	sub	r15,r13
+
+	call	collect_1
+
+	add	r15,r13
+	mov	rax,8[rcx]
+	lea	rdx,16[rcx]
+	lea	rcx,7[rax]
+	shr	rcx,3
+	sub	r15,2
+	sub	r15,rcx
+
+	mov	r12,rdi
+
+	lea	rbp,__STRING__+2
+	mov	qword ptr [rdi],rbp
+;	mov	qword ptr [rdi],offset __STRING__+2
+
+	mov	8[rdi],rax
+	add	rdi,16
+	jmp	st_copy_string2
+
+copy_st_lp2:
+	mov	rbp,[rdx]
+	add	rdx,8
+	mov	[rdi],rbp
+	add	rdi,8
+st_copy_string2:
+	sub	rcx,1
+	jnc	copy_st_lp2
+
+ if THREAD
+	mov	r14,r9
+ endif
+	mov	r9,rsp
+	mov	r8,rdi
+	lea	rdx,[r15*8]
+	mov	rcx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+	sub	rsp,40
+	call	file_read_s_line
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	test	rax,rax
+	js	readLineSF_again
+
+	add	8[r12],rax
+	add	rax,7
+
+	mov	rcx,r12
+
+	shr	rax,3
+	sub	r15,rax
+	lea	rdi,[rdi+rax*8]
+
+	pop	rax
+	ret
+
+readLineSF_gc:
+	sub	r15,32+2
+	call	collect_0
+	add	r15,32+2
+	jmp	readLineSF_r_gc
+
+readLineSF_again:
+	mov	rcx,8[r12]
+	lea	rax,[r15*8]
+	add	rcx,rax
+	mov	8[r12],rcx
+	jmp	readLineSF_lp
+
+endSF:
+	mov	rdx,rax
+	mov	rcx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_s_end
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	ret
+
+positionSF:
+	mov	rdx,rax
+	mov	rcx,rbx
+
+	mov	rbp,rsp
+	or	rsp,8
+ if THREAD
+	mov	r14,r9
+ endif
+	sub	rsp,40
+	call	file_s_position
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	ret
+
+seekSF:
+	push	rbx
+ if THREAD
+	mov	r14,r9
+ endif
+	mov	r9,rsp
+	mov	r8,rax
+	mov	rdx,r10
+	mov	rcx,r11
+
+	mov	rbx,r11
+
+	mov	rbp,rsp
+	or	rsp,8
+	sub	rsp,40
+	call	file_s_seek
+	mov	rsp,rbp
+ if THREAD
+	mov	r9,r14
+ endif
+	mov	r10,rax	
+	pop	rax
+
+	ret
+
+_TEXT	ends
+
+
+	end