aboutsummaryrefslogtreecommitdiff
path: root/scaf/system/scaf_feeder.s
diff options
context:
space:
mode:
Diffstat (limited to 'scaf/system/scaf_feeder.s')
-rw-r--r--scaf/system/scaf_feeder.s49
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