--- gforth/arch/alpha/machine.h	1998/12/08 22:02:54	1.3
+++ gforth/arch/alpha/machine.h	1999/02/02 22:02:54	1.4
@@ -159,3 +159,12 @@ typedef short Int16;
 				    _cfa[1] = (doesp); })
 #endif
 
+#ifdef FORCE_REG
+/* $9-$14 are callee-saved, $1-$8 and $22-$25 are caller-saved */
+#define IPREG asm("$10")
+#define SPREG asm("$11")
+#define RPREG asm("$12")
+#define LPREG asm("$13")
+#define TOSREG asm("$14")
+/* #define CFAREG asm("$22") */
+#endif /* FORCE_REG */