h18908
s 00024/00000/00000
d D 1.1 83/03/18 13:18:53 tes 1 0
c date and time created 83/03/18 13:18:53 by tes
e
u
4
U
t
T
I 1
# static struct fcbtab {
#	struct F_C_B fcb;
#	int b_count;        /* buffer count */
#	char *b_pointer;    /* buffer pointer for local buffer */
#	char f_buffer[128]; /* buffer for file i/o */
#	char mode;          /* file i/o mode 0=not open, 1=read, 2=write, */
#			    /* 3=read/write,4=binary read,5=binary write, */
#			    /* 6=binary read/write */
# fcbtab[MAXFILE];

# fcbsta - current fcb status, -1=not initialized, 0=initialized
# fp - current file pointer (1-MAXFILE)
# fcbp - current pointer to fcb block ("(fp-1)*36 + 1")
# bp - current buffer pointer ("(fp-1)*128 + 1")
# bufcnt - array of buffer count for each file
# mode - array of file mode for each open file
# fcbs - array of "cpm file control blocks" for each file
# fcbbfr - array of buffers for each file

integer fcbp, bp, bufcnt(MAXFILE)
SHORTINT fcbsta, fp
SHORTINT mode(MAXFILE), fcbs(eval(MAXFILE*36)), fcbbfr(eval(MAXFILE*128))

common /fcbcom/ fcbp, bp, bufcnt, fcbsta, fp, mode, fcbs, fcbbfr
E 1
