date and time created 86/07/20 11:14:35 by sam

SCCS-vsn: sys/tahoe/align/Apusha.c 1.1
SCCS-vsn: sys/tahoe/align/Apushx.c 1.1

diff --git a/usr/src/sys/tahoe/align/Apusha.c b/usr/src/sys/tahoe/align/Apusha.c
new file mode 100644 (file)
index 0000000..a391fe3
--- /dev/null
+++ b/usr/src/sys/tahoe/align/Apusha.c
@@ -0,0 +1,17 @@
+/*     Apusha.c        1.1     86/07/20        */
+
+#include "../tahoealign/align.h" 
+pusha(infop)   process_info *infop;
+/*
+/*     Push address of the operand
+/*
+/**************************************/
+{
+       register long new_address;
+
+       new_address = operand(infop,0)->address;
+       if (new_address < 0) negative_1; else negative_0;
+       if (new_address == 0) zero_1; else zero_0;
+       overflow_0; carry_1;
+       push (infop, new_address);
+}

diff --git a/usr/src/sys/tahoe/align/Apushx.c b/usr/src/sys/tahoe/align/Apushx.c
new file mode 100644 (file)
index 0000000..8194fa6
--- /dev/null
+++ b/usr/src/sys/tahoe/align/Apushx.c
@@ -0,0 +1,17 @@
+/*     Apushx.c        1.1     86/07/20        */
+
+#include "../tahoealign/align.h" 
+pushx(infop)   process_info *infop;
+/*
+/*     Push operand on the stack.
+/*
+/******************************************/
+{
+       register long quantity;
+
+       quantity = operand(infop,0)->data ;
+       if (quantity < 0) negative_1; else negative_0;
+       if (quantity == 0) zero_1; else zero_0;
+       overflow_0; carry_1;
+       push (infop, quantity);
+}