Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!***COPYRIGHT (C) 1974, 1975, 1976, 1977 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***
%%%%%%%%%%% GLOBAL VARIABLES AND PLITS FOR MCS REPORT GENERATOR %%%%%%%%%%%


MODULE GLOBEL (MLIST,TIMING,FSAVE,TIMER=EXTERNAL(SIX12)) =
BEGIN

! GLOBAL VARIABLES

GLOBAL
	FIRFRE,					! POINTER TO FIRST ALLOCATION AREA
	CURFRE,					! POINTER TO CURRENT ALLOCATION AREA
	FIRREP,					! POINTER TO FIRST REPORT BLOCK
	CURREP,					! POINTER TO CURRENT BLOCK
	INCHNL,					! INPUT FILE CHANNEL #
	OTCHNL,					! OUTPUT FILE CHANNEL #
	CHANLS[16],				! POINTERS TO FILE BLOCKS FOR ASSIGNED CHANNELS
	CHRDAT[3],				! TODAY'S DATE
	CHRTIM[2],				! NOW'S TIME
	USRPPN,					! USER'S PPN
	USRJBN;					! USER'S JOB #

! DEFINITIONS OF COMMAND KEYWORDS.

MACRO KEY(SIZE,PRINTSTRING,ISCOMMAND) = PLIT(ISCOMMAND,SIZE,ASCII PRINTSTRING)$;

BIND DUMMY1 = PLIT( KEYWRD GLOBALLY NAMES PLIT(
	KEY(2,'BY',0),
	KEY(2,'GO',1),
	KEY(3,'ALL',0),
	KEY(3,'AND',0),
	KEY(4,'BOTH',0),
	KEY(4,'EXIT',1),
	KEY(4,'MPPS',1),
	KEY(4,'SORT',1),
	KEY(5,'AFTER',0),
	KEY(5,'CODES',1),
	KEY(5,'DATES',1),
	KEY(5,'INPUT',1),
	KEY(5,'PRINT',1),
	KEY(5,'TALLY',1),
	KEY(5,'TEXTS',0),
	KEY(5,'TIMES',1),
	KEY(6,'BEFORE',0),
	KEY(6,'OUTPUT',1),
	KEY(6,'REPORT',1),
	KEY(7,'BETWEEN',0),
	KEY(7,'CLASSES',1),
	KEY(7,'SOURCES',1),
	KEY(8,'SEQUENCE',1),
	KEY(12,'DESTINATIONS',1)));

!NOTE THAT PLITS MUST AGREE WITH THE BINDS IN COMMON.BLI AND IN THE TRANSFERVECTOR OF THE MAIN MODULE.

END ELUDOM; ! END OF GLOBAL VARIABLES AND PLITS...