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

;<3-UTILITIES>COMSYM.MAC.3,  8-Nov-77 10:46:15, EDIT BY KIRSCHEN
;<3-UTILITIES>COMSYM.MAC.2,  8-Nov-77 10:45:24, EDIT BY KIRSCHEN
;<2-UTILITIES>COMSYM.MAC.18, 27-Dec-76 17:10:03, EDIT BY HURLEY
;<2-UTILITIES>COMSYM.MAC.17,  1-Dec-76 12:53:26, EDIT BY OSMAN
;<2-UTILITIES>COMSYM.MAC.16, 12-Nov-76 14:39:39, EDIT BY OSMAN
;<2-UTILITIES>COMSYM.MAC.15,  8-Nov-76 21:01:30, EDIT BY OSMAN
;<2-UTILITIES>COMSYM.MAC.14, 27-Oct-76 22:34:28, EDIT BY OSMAN
;<2-UTILITIES>COMSYM.MAC.13, 27-Oct-76 22:33:10, EDIT BY OSMAN
;<2-UTILITIES>COMSYM.MAC.12, 15-Oct-76 15:45:51, EDIT BY OSMAN
;<2-UTILITIES>COMSYM.MAC.11, 11-Oct-76 19:38:43, EDIT BY OSMAN
;<2-UTILITIES>COMSYM.MAC.10, 11-Oct-76 16:22:08, EDIT BY OSMAN
;<2-UTILITIES>COMSYM.MAC.9,  7-Oct-76 14:00:29, EDIT BY OSMAN
;<2-UTILITIES>COMSYM.MAC.8, 17-Sep-76 15:28:50, EDIT BY OSMAN
;<2-UTILITIES>COMSYM.MAC.7, 14-Sep-76 15:50:32, EDIT BY OSMAN
;<2-UTILITIES>COMSYM.MAC.6, 13-Sep-76 15:57:14, EDIT BY OSMAN
;<2-UTILITIES>COMSYM.MAC.4, 10-Sep-76 21:04:18, EDIT BY OSMAN
;<2-UTILITIES>COMSYM.MAC.3, 10-Sep-76 12:13:24, EDIT BY OSMAN
;<2-UTILITIES>COMSYM.MAC.1,  7-Sep-76 21:59:16, EDIT BY OSMAN


;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, 1977, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

UNIVERSAL COMSYM

;THIS FILE CONTAINS ALL SYMBOLS NEEDED BY OPLEAS, PLEASE, AND THE EXEC
;FOR COMMUNICATION BETWEEN EACH OTHER.  ANY SYMBOLS NEEDED BY MORE THAN
;ONE OF THESE PROGRAMS (AND PERHAPS MORE IN THE FUTURE), SHOULD BE
;DEFINED HERE ONLY, RATHER THAN MULTIPLY IN EACH OF THE PROGRAMS

DEFINE FEATURE(WHAT)<
IFNDEF WHAT'S,<WHAT'S==-1>	;DEFAULT TO TO INCLUDE THE FEATURE
DEFINE WHAT<IFN WHAT'S>
DEFINE NO'WHAT<IFE WHAT'S>
>

FEATURE(TMNT)			;TMOUNT FACILITY FOR MOUNTING MAGTAPES
FEATURE(SMNT)			;SMOUNT FACILLITY FOR DISKS
				;TO ASSEMBLE WITHOUT SMOUNT FACILITY,
				;PRECEDE THIS FEATURE LIST WITH "SMNTS=0"
				;ETC.


DEFINE CD(CODE)
<
CODE==<%%LAST==%%LAST+1>			;;DEFINE UNIQUE CODE NUMBERS
>
%%LAST==-1
;CODES IN MESSAGES BETWEEN PLEASE AND OPLEAS

;SENT BY PLEASE

	CD plone			;USER IS SENDING TEXT BUT NOT WAITING
	CD PLQUES		;USER WANTS TO KNOW RANK IN QUEUE
	CD PLHEL			;USER WANTS TO COMMUNICATE

;SENT BY PLEASE AND OPLEAS AND EXEC

	CD PLABRT		;USER TYPED ^C
	CD PLBYE			;SOMEONE WANTS TO QUIT TALKING
	CD PLTXT			;TEXT BETWEEN OPERATOR AND USER

;SENT BY OPLEAS

	CD PLOK			;OPERATOR IS FREE. NEXT USER CAN TALK
	CD PLCON			;OPLEAS HAS RECEIVED AN UNEXPECTED MESSAGE
	CD PLWAIT		;OPERATOR IS BUSY. REQUEST IS QUEUED.
	CD PLANS		 ;OPLEAS IS SENDING USER'S RANK IN QUEUE

;SENT BY EXEC AND OPLEAS WHILE COMMUNICATING FOR SMOUNT COMMAND

SMNT,<
	CD SHELLO		;EXEC WANTS SMOUNT SERVICE
	CD SMINFO		;EXEC IS SENDING ITS SMONT REQUEST
	CD SRINFO		;EXEC SENDING SREMOVE REQUEST
	CD SMERR		;OPLEAS SENDING SMOUNT ERROR MESSAGE
	CD SMDONE		;EXEC HAS SUCCESSFULLY INCREMENTED THE MOUNT COUNT
>;SMNT

;SENT BY EXEC (TMOUNT)

   TMNT,<
	CD THELLO		;EXEC WANTS TMOUNT SERVICE
	CD TMOUN		;MOUNT
	CD XTMNT		;MOUNT SUCCESS MSG (TO EXEC)
   >;TMNT

;SENT BY EXEC TO CONTROL WHICH STRUCTURES ARE MOUNTABLE

	CD SIGNOR		;MAKE STRUCTURE UNDETECTABLE AS MOUNTABLE STRUCTURE
	CD SACKN			;MAKE STRUCTURE DETECTABLE

;RELATIVE LOCATIONS WITHIN MESSAGE PAGE FOR COMMUNICATION

.NAMES==1		;ASCII ALIAS FOLLOWED BY NULL FOLLOWED BY PHYSICAL ID START HERE
.TEXT==1		;WORD 1 IS START OF ASCII MESSAGE
.FLAGS==777		;CONTROL FLAGS
	NO%WT==1B0	;DON'T WAIT FOR STRUCTURE TO BE MOUNTED IF IT'S NOT ALREADY ON-LINE

;OTHER SYMBOLS

STRNLN==20		;NUMBER OF WORDS IN EACH STRUCTURE NAME BLOCK
			;(LIMITS LENGTHS OF STRUCTURE NAMES TO STRNLN*5-1 CHARACTERS)

END