pdp scaf

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

1 files changed, 0 insertions, 49 deletions

diff --git a/scaf/system/scaf_feeder.s b/scaf/system/scaf_feeder.s
deleted file mode 100644
index 1cd8fd3..0000000
--- a/scaf/system/scaf_feeder.s
+++ /dev/null
@@ -1,49 +0,0 @@
-#     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.
-#
-
-.include "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