From e67bbcd560573e70004754e755c3bb4d3f237c1f Mon Sep 17 00:00:00 2001
From: blitz-research <blitzmunter@gamil.com>
Date: Thu, 23 Jan 2014 12:58:42 +1300
Subject: [PATCH] Added some mod files.

---
 mod/brl.mod/blitz.mod/blitz_ex.linux.x86.s   | 41 ++++++++++++++++
 mod/brl.mod/blitz.mod/blitz_ex.macos.x86.s   | 50 ++++++++++++++++++++
 mod/brl.mod/blitz.mod/blitz_ex.win32.x86.s   | 43 +++++++++++++++++
 mod/brl.mod/blitz.mod/blitz_ftoi.linux.x86.s | 30 ++++++++++++
 mod/brl.mod/blitz.mod/blitz_ftoi.macos.x86.s | 27 +++++++++++
 mod/brl.mod/blitz.mod/blitz_ftoi.win32.x86.s | 30 ++++++++++++
 6 files changed, 221 insertions(+)
 create mode 100644 mod/brl.mod/blitz.mod/blitz_ex.linux.x86.s
 create mode 100644 mod/brl.mod/blitz.mod/blitz_ex.macos.x86.s
 create mode 100644 mod/brl.mod/blitz.mod/blitz_ex.win32.x86.s
 create mode 100644 mod/brl.mod/blitz.mod/blitz_ftoi.linux.x86.s
 create mode 100644 mod/brl.mod/blitz.mod/blitz_ftoi.macos.x86.s
 create mode 100644 mod/brl.mod/blitz.mod/blitz_ftoi.win32.x86.s

diff --git a/mod/brl.mod/blitz.mod/blitz_ex.linux.x86.s b/mod/brl.mod/blitz.mod/blitz_ex.linux.x86.s
new file mode 100644
index 0000000..fd09053
--- /dev/null
+++ b/mod/brl.mod/blitz.mod/blitz_ex.linux.x86.s
@@ -0,0 +1,41 @@
+
+	format	ELF
+
+	public	_bbExEnter
+	public	_bbExThrow
+
+	section	"code"
+
+	;0[esp]=ret
+	;4[esp]=state block
+_bbExEnter:
+	mov		edx,[esp+4]
+	;
+	mov		[edx+0],ebx
+	mov		[edx+4],esi
+	mov		[edx+8],edi
+	mov		[edx+12],ebp
+	;
+	mov		ecx,[esp]
+	mov		[edx+16],esp
+	mov		[edx+20],ecx
+	;
+	xor		eax,eax
+	ret
+
+	;0[esp]=ret
+	;4[esp]=state block
+	;8[esp]=throw value
+_bbExThrow:
+	mov		edx,[esp+4]
+	mov		eax,[esp+8]
+	;
+	mov		ebp,[edx+12]
+	mov		edi,[edx+8]
+	mov		esi,[edx+4]
+	mov		ebx,[edx+0]
+	;
+	mov		ecx,[edx+20]
+	mov		esp,[edx+16]
+	add		esp,4
+	jmp		ecx
diff --git a/mod/brl.mod/blitz.mod/blitz_ex.macos.x86.s b/mod/brl.mod/blitz.mod/blitz_ex.macos.x86.s
new file mode 100644
index 0000000..4ad572c
--- /dev/null
+++ b/mod/brl.mod/blitz.mod/blitz_ex.macos.x86.s
@@ -0,0 +1,50 @@
+
+    .globl  _bbArgp
+	.globl	__bbExEnter
+	.globl	__bbExThrow
+
+	.text
+
+_bbArgp:
+#   ;0[esp]=our ret
+#   ;4[esp]=offset arg
+#	;0[ebp]=caller oldebp
+#	;4[ebp]=caller ret
+#	;8[ebp]=caller first arg!
+	lea		8(%ebp),%eax
+    add     4(%esp),%eax
+	ret
+
+#	;0[esp]=ret
+#	;4[esp]=state block
+__bbExEnter:
+	mov		4(%esp),%edx
+#	;
+	mov		%ebx,(%edx)
+	mov		%esi,4(%edx)
+	mov		%edi,8(%edx)
+	mov		%ebp,12(%edx)
+#	;
+	mov		(%esp),%ecx
+	mov		%esp,16(%edx)
+	mov		%ecx,20(%edx)
+#	;
+	xor		%eax,%eax
+	ret
+
+#	;0[esp]=ret
+#	;4[esp]=state block
+#	;8[esp]=throw value
+__bbExThrow:
+	mov		4(%esp),%edx
+	mov		8(%esp),%eax
+#	;
+	mov		12(%edx),%ebp
+	mov		8(%edx),%edi
+	mov		4(%edx),%esi
+	mov		(%edx),%ebx
+#	;
+	mov		20(%edx),%ecx
+	mov		16(%edx),%esp
+	add		$4,%esp
+	jmp		%ecx
diff --git a/mod/brl.mod/blitz.mod/blitz_ex.win32.x86.s b/mod/brl.mod/blitz.mod/blitz_ex.win32.x86.s
new file mode 100644
index 0000000..1c39f75
--- /dev/null
+++ b/mod/brl.mod/blitz.mod/blitz_ex.win32.x86.s
@@ -0,0 +1,43 @@
+
+	format	MS COFF
+
+	public	__bbExEnter
+	public	__bbExThrow
+
+	section	"code" code
+
+	;0[esp]=ret
+	;4[esp]=state block
+__bbExEnter:
+	mov		edx,[esp+4]
+	;
+	mov		[edx+0],ebx
+	mov		[edx+4],esi
+	mov		[edx+8],edi
+	mov		[edx+12],ebp
+	;
+	mov		ecx,[esp]
+	mov		[edx+16],esp
+	mov		[edx+20],ecx
+	;
+	xor		eax,eax
+	ret
+
+	;0[esp]=ret
+	;4[esp]=state block
+	;8[esp]=throw value
+__bbExThrow:
+	mov		edx,[esp+4]
+	mov		eax,[esp+8]
+	;
+	mov		ebp,[edx+12]
+	mov		edi,[edx+8]
+	mov		esi,[edx+4]
+	mov		ebx,[edx+0]
+	;
+	mov		ecx,[edx+20]
+	mov		esp,[edx+16]
+	add		esp,4
+	jmp		ecx
+	
+
diff --git a/mod/brl.mod/blitz.mod/blitz_ftoi.linux.x86.s b/mod/brl.mod/blitz.mod/blitz_ftoi.linux.x86.s
new file mode 100644
index 0000000..e306852
--- /dev/null
+++ b/mod/brl.mod/blitz.mod/blitz_ftoi.linux.x86.s
@@ -0,0 +1,30 @@
+
+	format	ELF
+
+	public	bbFloatToInt
+
+	section	"code" ;code
+
+	;0[esp]=ret
+	;4[esp]=double
+bbFloatToInt:
+	fld		qword [esp+4]
+	sub		esp,12
+	fist	dword [esp]
+	fst		dword [esp+4]
+	fisub	dword [esp]
+	fstp	dword [esp+8]
+	pop		eax
+	pop		ecx
+	pop		edx
+	test	ecx,ecx
+	js		negative
+	add		edx,0x7fffffff
+	sbb		eax,0
+	ret
+negative:
+	xor		ecx,ecx
+	test	edx,edx
+	setg	cl
+	add		eax,ecx
+	ret
diff --git a/mod/brl.mod/blitz.mod/blitz_ftoi.macos.x86.s b/mod/brl.mod/blitz.mod/blitz_ftoi.macos.x86.s
new file mode 100644
index 0000000..a9e4f5f
--- /dev/null
+++ b/mod/brl.mod/blitz.mod/blitz_ftoi.macos.x86.s
@@ -0,0 +1,27 @@
+	.globl	_bbFloatToInt
+
+	.text
+
+#	;0[esp]=ret
+#	;4[esp]=double
+_bbFloatToInt:
+	fldl	4(%esp)
+	sub	$12,%esp
+	fistl	(%esp)
+	fsts	4(%esp)
+	fisubl	(%esp)
+	fstps	8(%esp)
+	pop	%eax
+	pop	%ecx
+	pop	%edx
+	test	%ecx,%ecx
+	js	negative
+	add	$0x7fffffff,%edx
+	sbb	$0,%eax
+	ret
+negative:
+	xor	%ecx,%ecx
+	test	%edx,%edx
+	setg	%cl
+	add	%ecx,%eax
+	ret
diff --git a/mod/brl.mod/blitz.mod/blitz_ftoi.win32.x86.s b/mod/brl.mod/blitz.mod/blitz_ftoi.win32.x86.s
new file mode 100644
index 0000000..2e61fb0
--- /dev/null
+++ b/mod/brl.mod/blitz.mod/blitz_ftoi.win32.x86.s
@@ -0,0 +1,30 @@
+
+	format	MS COFF
+
+	public	_bbFloatToInt
+
+	section	"code" code
+
+	;0[esp]=ret
+	;4[esp]=double
+_bbFloatToInt:
+	fld		qword [esp+4]
+	sub		esp,12
+	fist	dword [esp]
+	fst		dword [esp+4]
+	fisub	dword [esp]
+	fstp	dword [esp+8]
+	pop		eax
+	pop		ecx
+	pop		edx
+	test	ecx,ecx
+	js		negative
+	add		edx,0x7fffffff
+	sbb		eax,0
+	ret
+negative:
+	xor		ecx,ecx
+	test	edx,edx
+	setg	cl
+	add		eax,ecx
+	ret
-- 
2.30.2