*** empty log message ***

1984-11-29 14:22:02 +00:00
parent 0c0c3b7892
commit ae1e81adb1
36 changed files with 1740 additions and 0 deletions
--- a/lang/basic/lib/peek.c
+++ b/lang/basic/lib/peek.c
@@ -0,0 +1,26 @@
+/* $Header $ */
+
+int peek(addr)
+int addr;
+{
+	/* this can not work properly for machines in which the 
+	   POINTERSIZE differs from the integer size
+	*/
+	char	*p;
+	int i;
+
+	p= (char *)addr;
+	i= *p;
+#ifdef DEBUG
+	printf("peek %d = %d\n",addr,i);
+#endif
+	return(i);
+}
+
+_poke(i,j)
+int i,j;
+{
+	char *p;
+	p= (char *) i;
+	*p=j;
+}