Google
 

Trailing-Edge - PDP-10 Archives - BB-4157E-BM - fortran-compiler/tbl.bli
There are 21 other files named tbl.bli in the archive. Click here to see a list.
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

!COPYRIGHT (C) 1976,1981 BY DIGITAL EQUIPMENT CORPORATION
! Author: *

MODULE TBL=
BEGIN


GLOBAL BIND TBLV = 6^24 + 0^18 + 0;	! Version Date:	25-Nov-80

%(

***** Begin Revision History *****

***** End Revision History *****

)%

%(
	THE CHANNEL TABLE
)%
	MACRO TABMAX=16$, TABSIZ=15$; % MAX CHANNELS AND SIZE %
	STRUCTURE CHTB[I,J]=[(I+1)*(J+1)]((.CHTB+.I*(J+1)+.J)<0,36>);
	EXTERNAL CHTB CHNLTAB[TABMAX,TABSIZ];
%(
	C H A N N E L   T A B L E   M A C R O S
)%
MACRO	FMODE=CHAN[0]$,
	FDEV=CHAN[1]$,
	FBUF=CHAN[2]$,
	FBUFO=CHAN[2]<18,18>$,
	FBUFI=CHAN[2]<0,18>$,
	FOBUFH=CHAN[3]$,
	FOPTR=CHAN[4]$,
	FOCNT=CHAN[5]$,
	FIBUFH=CHAN[6]$,
	FIPTR=CHAN[7]$,
	FICNT=CHAN[8]$,
	FFILE=CHAN[9]$,
	FEXT=CHAN[10]$,
	FERR=CHAN[10]<0,12>$,
	FBLK=CHAN[10]<0,18>$,
	FPROT=CHAN[11]<27,9>$,
	FDMODE=CHAN[11]<23,4>$,
	FTIME=CHAN[11]<13,10>$,
	FDATE=CHAN[11]<0,12>$,
	FPPN=CHAN[12]$,
	FPRJ=CHAN[12]<18,18>$,
	FPRG=CHAN[12]<0,18>$,
	FSIZ=CHAN[12]<18,18>$,
	FSTATUS=CHAN[13]$,
	FSWITCH=CHAN[14]$,
	FNEWPR=CHAN[15]<0,10>$,
%(
	STATUS WORD BITS
)%
	FUSER=0,18$,	% ENTIRE USER FIELD %
	FYEND=0,1$,	% ENDFILE ALLOWED %
	FYREW=1,1$,	% REWIND ALLOWED  %
	FYREAD=2,1$,	% READING ALLOWED %
	FYWRITE=3,1$,	% WRITING ALLOWED %
	FYUPDAT=4,1$,	% UPDATING ALLOWED %
	FYDUMMY=5,1$,	% DUMMY CHANNEL   %
	FYERR=6,1$,	% WRITE ERRORS NOT TRAPPED %
	FPRIMARY=7,1$,	% PRIMARY DEFAULT VALUE %

% SYSTEM BITS OF STATUS WORD %
	FSYS=18,18$,	% ENTIRE SYSTEM FIELD %
	FROPEN=18,1$,	% FILE OPEN FOR INPUT %
	FWOPEN=19,1$,	% FILE OPEN FOR OUTPUT %
	FEOF=20,1$,	% ENDFILE ENCOUNTERED %
	FIS35=21,1$,	% BIT 35 IS SET %
	FSET35=22,1$,	% SET BIT 35 ON NEXT WRITE %
	FSEQ=24,1$,	% PROCESSING SEQUENCE NO. %
	FPGMK=25,1$,	% PROCESSING PAGE MARK %
	FFISTAR=26,1$,	% FILE NAME IS "*" %
	FXSTAR=27,1$,	% EXTENSION NAME IS "*" %
	FUOPEN=28,1$,	% FILE OPEN FOR UPDATE %
	FDEVAS=29,1$,	% DEVICE ASSIGNED %
	FIOERR=30,1$,	% I/O ERROR DETECTED %
	FNSET=35,1$;	% CHANNEL NOT SET %
MACRO
	XFYEND=1^0$,	% ENDFILE ALLOWED %
	XFYREW=1^1$,	% REWIND ALLOWED  %
	XFYREAD=1^2$,	% READING ALLOWED %
	XFYWRITE=1^3$,	% WRITING ALLOWED %
	XFYUPDAT=1^4$,	% UPDATE ALLOWED %
	XFYDUMMY=1^5$,	% DUMMY CHANNEL %
	XFYERR=1^6$,	% ALLOW WRITE ERROR TRAP %
	XFPRIMARY=1^7$;	% PRIMARY DEFAULT VALUE %
MACRO	OTHER=-1$;
%(
	MACROS WHICH DEFINE THE CALLS
)%
MACRO	UMAX=0$,	% MAXIMUM CHANNEL %
	UMODE=1$,	% DATA MODE %
	UDEV=2$,	% DEVICE IN SIXBIT %
	UOBUFF=3$,	% OUTPUT BUFFER HEADER POINTER %
	UIBUFF=4$,	% INPUT BUFFER HEADER POINTER %
	UOBUFFR=5$,	% ADDR OF OUTPUT BUFFER %
	UOPTR=6$,	% OUTPUT BUFFER BYTE POINTER %
	UOCNT=7$,	% OUTPUT BUFFER BYTE COUNT %
	UIBUFFR=8$,	% ADDR OF INPUT BUFFER %
	UIPTR=9$,	% INPUT BUFFER BYTE POINTER %
	UICNT=10$,	% INPUT BUFFER BYTE COUNT %
	UFILE=11$,	% FILE NAME IN SIXBIT %
	UEXT=12$,	% EXTENSION NAME IN SIXBIT %
	UBLK=13$,	% %
	UERR=14$,	% ERROR NUMBER %
	UPROT=15$,	% PROTECTION KEY %
	UDMODE=16$,	% CREATION DATA MODE %
	UTIME=17$,	% CREATION TIME %
	UDATE=18$,	% CREATION DATE %
	UPPN=19$,	% PPN %
	USTAT=20$,	% USER BITS OF STATUS WORD %
	USSTAT=21$,	% SYSTEM BITS OF STATUS WORD %
	USWITCH=22$,	% SWITCH WORD %
	UREPROT=23$;	% REPROTECTION WORD %
MACRO	USIZ=24$;	% FILE SIZE %
MACRO	MAX=24$;	% MAXIMUM CODE ALLOWED %
EXTERNAL IOZERROR,IOERR;
EXTERNAL CHNLMAX,INVALID;
GLOBAL ROUTINE GETTBL(CHNL,CODE)=
    BEGIN
	BIND VECTOR CHAN=CHNLTAB[.CHNL,0]<0,36>;
	IF .CODE EQL UMAX THEN RETURN .CHNLMAX;
	IF INVALID(.CHNL,14) THEN RETURN 0;
	IF .CODE GTR MAX OR .CODE LSS 0 THEN (IOZERROR_.CODE;IOERR(40); RETURN 0);
	CASE .CODE OF
		SET
	%UMAX:%		.CHNLMAX;
	%UMODE:%	.FMODE;
	%UDEV:%		.FDEV;
	%UOBUFF:%	.FBUFO;
	%UIBUFF:%	.FBUFI;
	%UOBUFFR:%	.FOBUFH;
	%UOPTR:%	.FOPTR;
	%UOCNT:%	.FOCNT;
	%UIBUFFR:%	.FIBUFH;
	%UIPTR:%	.FIPTR;
	%UICNT:%	.FICNT;
	%UFILE:%	.FFILE;
	%UEXT:%		.FEXT<18,18>^18;
	%UBLK:%		.FBLK;
	%UERR:%		.FERR;
	%UPROT:%	.FPROT;
	%UDMODE:%	.FDMODE;
	%UTIME:%	.FTIME;
	%UDATE:%	.FDATE;
	%UPPN:%		.FPPN;
	%USTAT:%	.FSTATUS<FUSER>;
	%USSTAT:%	.FSTATUS<FSYS>^18;
	%USWITCH:%	.FSWITCH;
	%UREPROT:%	.FNEWPR;
	%USIZ:%		.FSIZ;
	TES
    END;
GLOBAL ROUTINE SETTBL(CHNL,CODE,DATA)=
BEGIN
	BIND VECTOR CHAN=CHNLTAB[.CHNL,0]<0,36>;
	IF .CODE EQL UMAX THEN (IF .DATA GTR TABMAX OR .DATA LSS 0
		THEN (IOZERROR_.DATA; IOERR(43); RETURN 0) ELSE
			(CHNLMAX_.DATA; RETURN 0));
	IF INVALID(.CHNL,20) THEN RETURN 0;
	IF .CODE GTR MAX OR .CODE LSS 0 THEN (IOZERROR_.CODE; IOERR(41); RETURN 0);
	IF .CODE EQL USSTAT THEN DATA_.DATA^(-18);
	(CASE .CODE OF
		SET
	%UMAX:%		CHNLMAX;
	%UMODE:%	FMODE;
	%UDEV:%		FDEV;
	%UOBUFF:%	FBUFO;
	%UIBUFF:%	FBUFI;
	%UOBUFFR:%	FOBUFH;
	%UOPTR:%	FOPTR;
	%UOCNT:%	FOCNT;
	%UIBUFFR:%	FIBUFH;
	%UIPTR:%	FIPTR;
	%UICNT:%	FICNT;
	%UFILE:%	FFILE;
	%UEXT:%		FEXT<18,18>;
	%UBLK:%		FBLK;
	%UERR:%		FERR;
	%UPROT:%	FPROT;
	%UDMODE:%	FDMODE;
	%UTIME:%	FTIME;
	%UDATE:%	FDATE;
	%UPPN:%		FPPN;
	%USTAT:%	FSTATUS<FUSER>;
	%USSTAT:%	FSTATUS<FSYS>;
	%USWITCH:%	FSWITCH;
	%UREPROT:%	FNEWPR;
	%USIZ:%		FSIZ;
	TES)
	_ .DATA;
END;
END ELUDOM