pdp scaf

svn path=/trunk/externals/pdp/; revision=443

1 files changed, 50 insertions, 0 deletions

diff --git a/scaf/pdp/scaf_feeder.s b/scaf/pdp/scaf_feeder.s
new file mode 100644
index 0000000..e7ef3c6
--- /dev/null
+++ b/scaf/pdp/scaf_feeder.s
@@ -0,0 +1,50 @@
+#     Pure Data Packet - scaf feeder routine.
+#    Copyright (c) by Tom Schouten <pdp@zzz.kotnet.org>
+# 
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+# 
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+# 
+#    You should have received a copy of the GNU General Public License
+#    along with this program; if not, write to the Free Software
+#    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+#
+
+# for dup
+.include "../compiler/scafmacro.s"
+
+
+# *rg is only used for returning the stack pointer
+# the 4 bit counter is using registers mm4-mm7 now
+# long long scaf_feeder(void *tos, void *rg, *void() ca_rule, void *env)
+.globl scaf_feeder
+.type scaf_feeder, @function
+scaf_feeder:	
+	pushl %ebp
+	movl %esp, %ebp
+	push %esi
+	push %edi
+	
+	movl 20(%ebp), %edi	# load env ptr
+	movl 8(%ebp), %esi	# load TOS2 ptr
+	movl 16(%ebp), %eax	# address of ca routine
+	pcmpeqw %mm3, %mm3	# load 1 reg
+
+	call *%eax		# TOS = 32x2 cell result
+	dup			# push %mm0 to memory
+	movl (%esi), %eax
+	movl 4(%esi), %edx
+	lea 16(%esi), %esi	# discard stack
+	movl %esi, (%edi)	# store for stack underflow check
+
+	emms
+	pop %edi
+	pop %esi
+	leave
+	ret