Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102/cross/lib/pascal.h

@@ -0,0 +1,22 @@
+/*	HEADER FILE FOR PASCAL FILE I/O
+ *	copyright (c) 1980 by Whitesmiths, Ltd.
+ */
+
+typedef struct {
+	TEXT *p_buf;
+	BYTES p_size;
+	TEXT p_mode;
+	UTINY p_fd;
+	} PFILE;
+
+/*	modes
+ */
+#define P_EOF	0
+#define P_EOLN	1
+#define P_INVAL	2
+#define P_VALID	3
+#define P_WRITE	4
+#define P_WROTE	5
+
+#define NFILES	16
+#define P_TFD	0200