From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 17 Nov 1987 18:26:12 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: 20090517-FFI~13058
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=94e69b8d70892f76bea85c4d8d475fa107ee3820;p=mit-scheme.git

Initial revision
---

diff --git a/v7/src/microcode/intrpt.h b/v7/src/microcode/intrpt.h
new file mode 100644
index 000000000..3717bf48e
--- /dev/null
+++ b/v7/src/microcode/intrpt.h
@@ -0,0 +1,110 @@
+/* -*-C-*-
+
+Copyright (c) 1987 Massachusetts Institute of Technology
+
+This material was developed by the Scheme project at the Massachusetts
+Institute of Technology, Department of Electrical Engineering and
+Computer Science.  Permission to copy this software, to redistribute
+it, and to use it for any purpose is granted, subject to the following
+restrictions and understandings.
+
+1. Any copy made of this software must include this copyright notice
+in full.
+
+2. Users of this software agree to make their best efforts (a) to
+return to the MIT Scheme project any improvements or extensions that
+they make, so that these may be included in future releases; and (b)
+to inform MIT of noteworthy uses of this software.
+
+3. All materials developed as a consequence of the use of this
+software shall duly acknowledge such use, in accordance with the usual
+standards of acknowledging credit in academic research.
+
+4. MIT has made no warrantee or representation that the operation of
+this software will be error-free, and MIT is under no obligation to
+provide any services, by way of maintenance, update, or otherwise.
+
+5. In conjunction with products arising from the use of this material,
+there shall be no use of the name of the Massachusetts Institute of
+Technology nor of any adaptation thereof in any advertising,
+promotional, or sales literature without prior written consent from
+MIT in each case. */
+
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/intrpt.h,v 1.1 1987/11/17 18:26:12 jinx Exp $
+ *
+ * Interrupt manipulation utilities.
+ */
+
+/* Interrupt bits -- scanned from LSB (1) to MSB (16) */
+
+#define INT_Stack_Overflow	1	/* Local interrupt */
+#define INT_Global_GC		2
+#define INT_GC			4	/* Local interrupt */
+#define INT_Global_1		8
+#define INT_Character		16	/* Local interrupt */
+#define INT_Global_2		32
+#define INT_Timer		64	/* Local interrupt */
+#define INT_Global_3		128
+#define INT_Global_Mask		\
+  (INT_Global_GC | INT_Global_1 | INT_Global_2 | INT_Global_3)
+
+#define Global_GC_Level		1
+#define Global_1_Level		3
+#define Global_2_Level		5
+#define Global_3_Level		7
+#define MAX_INTERRUPT_NUMBER	7
+
+#define INT_Mask		((1 << (MAX_INTERRUPT_NUMBER + 1)) - 1)
+
+/* Utility macros. */
+
+#define PENDING_INTERRUPTS() (IntEnb & IntCode)
+
+#define INTERRUPT_QUEUED_P(mask) ((IntCode & (mask)) != 0)
+
+#define INTERRUPT_ENABLED_P(mask) ((IntEnb & (mask)) != 0)
+
+#define INTERRUPT_PENDING_P(mask) (((PENDING_INTERRUPTS()) & (mask)) != 0)
+
+#define COMPILER_SETUP_INTERRUPT()					\
+{									\
+  Regs[REGBLOCK_MEMTOP] = ((INTERRUPT_PENDING_P(INT_Mask)) ?		\
+			   ((Pointer) MemTop) :				\
+			   ((Pointer) -1));				\
+}
+
+#define FETCH_INTERRUPT_MASK()		(IntEnb)
+
+#define SET_INTERRUPT_MASK(mask)					\
+{									\
+  IntEnb = (mask);							\
+  COMPILER_SETUP_INTERRUPT();						\
+}
+
+#define FETCH_INTERRUPT_CODE()		(IntCode)
+
+#define CLEAR_INTERRUPT(code)						\
+{									\
+  IntCode &= ~(code);							\
+  COMPILER_SETUP_INTERRUPT();						\
+}
+
+#define REQUEST_INTERRUPT(code)						\
+{									\
+  IntCode |= (code);							\
+  COMPILER_SETUP_INTERRUPT();						\
+}
+
+#define INITIALIZE_INTERRUPTS()						\
+{									\
+  IntEnb = 0;								\
+  IntCode = 0;								\
+  SET_INTERRUPT_MASK(INT_Mask);						\
+  CLEAR_INTERRUPT(INT_Mask);						\
+}
+
+/* Compatibility */
+
+#define COMPILER_SET_MEMTOP()	COMPILER_SETUP_INTERRUPT()
+
+#define Request_Interrupt(code) REQUEST_INTERRUPT(code)