Google
 

Trailing-Edge - PDP-10 Archives - bb-d868c-bm_tops20_v4_2020_distr - language-sources/ornmac.mac
There are 44 other files named ornmac.mac in the archive. Click here to see a list.
UNIVERSAL	ORNMAC	--	Symbol File for ORION AND OPR
SUBTTL	MURRAY BERKOWITZ 23-Aug-79


;
;
;                COPYRIGHT (c) 1975,1976,1977,1978,1979
;                    DIGITAL EQUIPMENT CORPORATION
;
;     THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY  BE  USED
;     AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE
;     AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.   THIS
;     SOFTWARE  OR ANY OTHER COPIES THEREOF MAY NOT BE PROVIDED OR
;     OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.  NO  TITLE  TO
;     AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
;
;     THE INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE
;     WITHOUT  NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
;     BY DIGITAL EQUIPMENT CORPORATION.
;
;     DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
;     OF  ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT SUPPLIED BY
;     DIGITAL.

	.DIRECTIVE .NOBIN	;NO REL FILE NEEDED
	SEARCH	GALCNF		;GET GALAXY OPTIONS

	SEARCH	GLXMAC
IFN	FTUUOS,<
	IF1,<PRINTX BUILDING A GALAXY-10 ORNMAC>
		SEARCH	UUOSYM>
IFN	FTJSYS,<
	IF1,<PRINTX BUILDING A GALAXY-20 ORNMAC>
		SEARCH	MONSYM>

	SALL		; CLEAN LISTINGS

	XP	FTRJE,FTRJE		;SETUP RJE VALUE
	XP	FTDN60,FTDN60		;SETUP DN60 VALUE

	%%.OPR==26		;ORNMAC VERSION NUMBER
	SUBTTL	Table of Contents

;               TABLE OF CONTENTS FOR ORNMAC
;
;
;                        SECTION                                   PAGE
;    1. MURRAY BERKOWITZ 2-APR-79.................................   1
;    2. Table of Contents.........................................   3
;    3. Operating System Dependent Definitions....................   3
;    4. DEFINE SYMBOLS FOR KEYWORD VALUES.........................   4
;    5. DEFINE SYMBOLS FOR SWITCHES...............................   5
;    6. SYNTAX TABLE MACROS.......................................   6
;    7. GALCNF PARAMETERS.........................................   7
;    8. ORNKEY, ORNDSP,ORNSDP AND ORNSWI MACROS FOR COMMAND TABLES   8
;    9. GENERAL MESSAGE FORMAT....................................   8
;   10. ORION Message Codes.......................................   9
;   11. SPECIAL ORION ACCUMULATOR ASSIGNMENTS.....................  10
;   12. THE OBJECT AREA...........................................  11
;   13. ORION COMMAND MESSAGES....................................  12
;   14. OPRHEL -- OPR HELLO MESSAGE TO ORION......................  13
;   15. START,STOP(PAUSE),CONTINUE AND SHUTDOWN...................  14
;   16. OPRSET  --      OPR SETUP MESSAGE FROM ORION..............  15
;   17. OPRSTR  --      OPR SETUP REPLY TO ORION..................  16
;   18. APLHEL  --      APPLICATION HELLO MESSAGE.................  17
;   19. APLACK  --      ACKNOWLEDGEMENT TO APPLICATION HELLO......  18
;   20. The SET Message...........................................  19
;   21. FORWARDSPACE AND BACKSPACE COMMANDS.......................  20
;   22. HOLD AND RELEASE COMMANDS.................................  21
;   23. MODIFY MESSAGE............................................  22
;   24. ROUTE COMMAND.............................................  23
;   25. DELETE COMMAND............................................  24
;   26. The SEND Message..........................................  25
;   27. The NOTIFY Message........................................  26
;   28. The SUPPRESS Message......................................  27
;   29. CANCEL COMMAND MESSAGE....................................  28
;   30. REQUEUE COMMAND MESSAGE...................................  29
;   31. DEFINE COMMAND MESSAGE....................................  30
;   32. TAPE AND DISK COMMANDS....................................  31
;   33. SHOW COMMANDS FOR TAPES...................................  32
;   34. SWITCH COMMAND............................................  33
;   35. DISMOUNT COMMAND..........................................  34
;   36. UNLOAD COMMAND............................................  35
;   37. RECOGNIZE COMMAND FOR -10.................................  35
;   38. SET TAPE AND DISK COMMANDS................................  36
;   39. SET STRUCTURE COMMAND FOR DISKS...........................  37
;   40. SET TAPE XXX INITIALIZE COMMAND...........................  38
;   41. ENABLE AND DISABLE COMMAND FOR TAPES......................  39
;   42. MOUNT COMMAND FOR TAPE AND DISK...........................  40
;   43. IDENTIFY MESSAGE FOR TAPES................................  41
;   44. RESPONSE MESSAGE..........................................  42
;   45. COMMAND Message...........................................  43
;   46. DN60 COMMAND MESSAGE......................................  44
;   47. WTO,WTOR AND ACK FORMATS FOR ALL PROGRAMS.................  45
;   48. ALIGN MESSAGE.............................................  46
;   49. The STATUS Message........................................  47
;   50. The SHOW CONTROL-FILE Message.............................  48
;   51. SHOW STATUS MESSAGE.......................................  49
;   52. LOGOUT Message - Function 27 (sent by IPCC)...............  50
;   53. ORION Fatal Error Codes...................................  51
;   54. PARSER SETUP MACROS.......................................  52
;   55. Node/Operator Data Base...................................  53
;   56. OPR LIST ENTRY............................................  54
;   57. OPR TABLE DATA BASE STRUCTURE.............................  54
;   58. OPERATOR MESSAGE LIST ENTRY...............................  55
;   59. CONSTANT DEFINITIONS FOR PARSER...........................  56
;   60. PARSER BLOCK DESCRIPTION..................................  57
;   61. PARSER FLAG VALUES........................................  57
;   62. ARGUMENT BLOCK FOR CALLING THE PARSER.....................  58
;   63. RETURN BLOCK FROM THE PARSER..............................  59
;   64. TABLE HANDLING DEFINITIONS................................  60
;   65. RESEND LIST DATA BASE.....................................  61
;   66. SEND FAILURE DATA BASE....................................  62
;   67. INTERRUPT DATA............................................  63
;   68. DN200 OPR DEFINITIONS.....................................  64
;   69. DATA STRUCTURES FOR -20 SRV:..............................  65
;   70. ERROPR  --      ERROR  TABLES FOR OPR.....................  66
SUBTTL	Operating System Dependent Definitions

;DEFINE THE COMND JSYS FUNCTIONS FOR ORION TO USE ON TOPS-10

SYSPRM(.CMKEY,0,)
SYSPRM(.CMNUM,1,)
SYSPRM(.CMNOI,2,)
SYSPRM(.CMSWI,3,)
SYSPRM(.CMIFI,4,)
SYSPRM(.CMOFI,5,)
SYSPRM(.CMFIL,6,)
SYSPRM(.CMFLD,7,)
SYSPRM(.CMCFM,10,)
SYSPRM(.CMDIR,11,)
SYSPRM(.CMUSR,12,)
SYSPRM(.CMCMA,13,)
SYSPRM(.CMINI,14,)
SYSPRM(.CMFLT,15,)
SYSPRM(.CMDEV,16,)
SYSPRM(.CMTXT,17,)
SYSPRM(.CMTAD,20,)
SYSPRM(.CMQST,21,)
SYSPRM(.CMUQS,22,)
SYSPRM(.CMTOK,23,)
SYSPRM(.CMNUX,24,)
SYSPRM(.CMACT,25,)
SYSPRM(.CMNOD,26,)


	;DEFINE TAPE AND TTY FLAGS FOR DEVICE DESIGNATORS

SYSPRM	DV%MTA,DV.MTA,.DVMTA	;TAPE VALUE
SYSPRM	DV%TTY,DV.TTY,.DVTTY	;TTY VALUE
SUBTTL	DEFINE SYMBOLS FOR KEYWORD VALUES

;THE VALUES HERE ARE USED TO PASS WHICH KEYWORD THE PARSER SAW
; TO THE EVENT PROCESSOR
	;THERE WILL BE 3 KEYWORD TABLES
	;	KEYMAIN	-	MAIN KEYWORDS THAT START COMMANDS
	;	KEYOBJ	-	KEYWORDS THAT ARE OBJECTS
	;	OBJORN	-	ORION OBJECTS ..DEVICES BAT,LPT,CDP,CDR
	;	KEYWORD	-	ALL OTHER KEYWORDS

DEFINE	KEYMAIN,<
	X	ALIGN,ALI		;ALIGN
	X	BACKSPACE,BKS		;BACKSPACE
	X	CANCEL,CNC		;CANCEL
	X	CLOSE,CLO		;CLOSE
	X	CONTINUE,CNT		;CONTINUE
	X	DELETE,DEL		;DELETE COMMAND
IFN	FTDN60,<
	X	DEFINE,DEF		;DEFINE
>;END FTDN60
	X	DISABLE,DIS		;DISABLE
	X	DISMOUNT,DSM		;DISMOUNT COMMAND
	X	ENABLE,ENA		; ENABLE
	X	ENTER,ENT		;ENTER
	X	EXIT,EXT		;EXIT
	X	FORWARDSPACE,FWS	;FORWARDSPACE
	X	HELP,HLP		;HELP COMMAND
	X	HOLD,HLD		;HOLD
	X	IDENTIFY,IDN		;IDENTIFY
	X	MODIFY,MOD		;MODIFY COMMAND
	X	MOUNT,MTN		;MOUNT COMMAND
	X	PAUSE,PAU		;PAUSE
TOPS20<	X	PUSH,PUS>		;PUSH COMMAND
	X	PRINT,PRT		;PRINT COMMAND
TOPS10 <	X	RECOGNIZE,REC >	;RECOGNIZE COMMAND
	X	RELEASE,REL		;RELEASE
	X	REPORT,RPT		;REPORT
	X	REQUEUE,REQ		;REQUEUE
	X	RESPOND,RSP		;RESPOND
	X	RETURN,RTN		;RETURN
	X	ROUTE,RTE		;ROUTE (ROUTE COMMAND FOR QUASAR)
	X	SEND,SND		;SEND
	X	SET,SET			;SET
	X	SHOW,SHW		;SHOW
	X	SHUTDOWN,SHD		;SHUTDOWN
	X	START,STA		;STARTUP
	X	SUBMIT,SUB		;SUBMIT COMMAND
	X	SUPPRESS,SUP		;SUPPRESS
	X	TAKE,TAK		;TAKE
	X	UNLOAD,UNL		;UNLOAD COMMAND
	X	WAIT,WAI		;WAIT COMMAND

	;COMMANDS FOR TAPE AND DISK
	X	SWITCH,SWI		;SWITCH COMMAND

	;COMMANDS FOR MDA ON -10
	X	LOCK,LOC		;LOCK COMMAND
	X	UNLOCK,ULC		;UNLOCK

>;END OF KEYMAIN


DEFINE	KEYOBJ,<
X	JOB,JOB			;JOB
X	OPERATOR,OPR		;OPERATOR
X	TERMINAL,TRM		;TERMINAL
>;END KEYOBJ


	; *** THE OBJORN ENTRIES MUST BE IN ALPHABETICAL ORDER. ***


DEFINE	OBJORN,<
X	(<BATCH>,BAT)		;BATCH-STREAM
X	(<CARD-PUNCH>,CDP)	;CARD-PUNCH
X	<CARD-READER-INTERPRETER>,BIN	;READER INTERPRETER
IFN	FTJSYS,<
X	<FILE-RETRIEVAL>,RET 	;RETREIVAL REQUESTS
>;END FTJSYS
IFN	FTDN60,<
X	<IBM>,IBM		;IBM EMULATION MESSAGES
>;END FTDN60
X	<MOUNT>,MNT	;MOUNT REQUESTS
X	(<PAPER-TAPE-PUNCH>,PTP);PAPER-TAPE-PUNCH
X	PLOTTER,PLT		;PLOTTER
X	PRINTER,LPT		;PRINTER
X	READER,RDR		;READER
>;END OBJORN

DEFINE KEYWORD,<
X	ALL,ALL			;ALL
X <ALL-MESSAGES>,ALM		;ALL-MESSAGES
X <ALL-NODES>,ALG		;ALL-NODES
X	ASK,ASK			;ASK
X(<BEGINNING-OF>,BEG)		;BEGINNING-OF
X <CONTROL-FILE>,CTL		;CONTROL-FILE
X	COPY,CPY		;COPY
X(<CURRENT-POSITION>,CUR)	;CURRENT-POSITION
X	DAYTIME,DAY		;DAYTIME
X <ERROR-MESSAGES>,ERM		;ERROR-MESSAGES
X	FILE,FIL		;FILE
X (<FORMS-TYPE>,FOT)		;FORMS-TYPE
X	IGNORE,IGN		;IGNORE
X	<JOB-MESSAGES>,JOM	;JOB MESSAGES
X	KEYPAD,KPD		;KEYPAD
X (<LIMIT-EXCEEDED-ACTION>,LEA)	;LIMIT-EXCEEDED-ACTION
X	LINE,LIN		;LINE....LINE NUMBER
X	LOG,LOG			;LOG
X	LOGGING,LGG		;LOGGING
X (<MEMORY-LIMITS>,MEM)		;MEMORY-LIMITS
X	MESSAGES,MSG		;MESSAGES
X	NODE,NOD		;NODE
X	NOKEYPAD,NKP		;NOKEYPAD
X(<NOOPR-INTERVENTION>,NOI)	;NOOPR-INTERVENTION
X <OPR-ACTION-MESSAGES>,OAM	;OPERATOR ACTION MESSAGES
X	<ONLINE>,ONL		;ONLINE
X(<OPR-INTERVENTION>,OIA)	;OPR-INTERVENTION
X	OTHER,OTH		;OTHER MESSAGES
X <OUTPUT-DISPLAY>,OPD		;OUTPUT-DISPLAY
X(<OUTPUT-LIMITS>,OPL)		;OUTPUT-LIMITS
X (<PAGE-LIMITS>,PGL)		;PAGE-LIMITS
X	PARAMETERS,PRM		;PARAMETERS
X	PRIORITY,PRI		;PRIORITY
X (<PRIORITY-LIMITS>,PRL)	;PRIORITY-LIMITS
X	REQUEST,RQN		;REQUEST NUMBER
X	QUEUE,QUE		;QUEUE
X	STATUS,STS		;STATUS
X	SYSTEM,SYS		;SYSTEM
X <TAKE-COMMANDS>,TAC		;TAKE-COMMANDS
X (<TIME-LIMITS>,TIM)		;TIME-LIMITS
X	TO,TO			;TO (USED IN ROUTE COMMAND)
X	TYPE,TYP		;TYPE (TERMINAL TYPE)


	;DN60 KEYWORDS

IFN	FTDN60,<

X	<BYTES-PER-MESSAGE>,BPM	;BYTES PER MESSAGE
X	<CLEAR-SEND-DELAY>,CSD	;CLEAR TO SEND DELAY
X	<DATA-TERMINAL-READY>,DTR ;DATA TERMINAL READY
X	<EMULATION>,EMU		;EMULATION
X	HASP,HSP		;HASP
X	<NO-SIGNON-REQUIRED>,NSN;NO-SIGNON-REQUIRED
X	OFF,OFF			;OFF
X	ON,ON			;ON
X	<RECORDS-PER-MESSAGE>,RPM ;RECORDS PER MESSAGE
X	SECONDARY,SEC		;SECONDARY PROTOCOL
X	<SILO-WARNING-LEVEL>,SWL ;SILO WARNING LEVEL
X	<SIGNON-REQUIRED>,SON	;SIGNON-REQUIRED

;	SYMBOL DEFINED BUT VALUE O.K.

;X	<TERMINATION>,TRM	;TERMINATION
X	<TIMEOUT-CATEGORY>,TOU	;TIMEOUT CATEGORY
X	<TRANSPARENCY>,TRA	;TRANSPARENCY
X	2780,278		;2780
X	3780,378		;3780

>;END FTDN60

	;TAPE AND DISK KEYWORDS

X	<ACKNOWLEDGED>,ACK	;ACKNOWLEDGED
X	<ALL-TAPE-DRIVES>,ATP	;ALL TAPE DRIVES
X	<ANSI>,ANS		;ANSI LABELS
X	<AUTOMATIC-VOLUME-RECOGNITION>,AVR	;AVR
X	<AVAILABLE>,AVA		;AVAILABLE
X	<CHANNEL>,CHN		;CHANNEL
X	<DRIVE>,DRV		;DRIVE
X	<DISK-DRIVE>,DSK	;DISK DRIVE
X	<DOMESTIC>,DOM		;DOMESTIC
X	<EBCDIC>,EBC		;EBCDIC
X	<FOREIGN>,FOR		;FOREIGN
X	<INITIALIZE>,INI	;INITIALIZE
X	NO,NO			;NO
X	<REGULATED>,REG		;REGULATED
X	<SCRATCH>,SCR		;SCRATCH
X	<STRUCTURE>,STR		;STRUCTURE
X	<TAPE-DRIVE>,TAP	;TAPE-DRIVE
X	<TOPS20>,T20		;TOPS-20 LABELS
X	<UNAVAILABLE>,UAV	;UNAVAILABLE
	;VALUE ALREADY DEFINED SO NO NEED TO DEFINE AGAIN
;X	<UNLABELED>,UNL		;UNLABELED
X	<UNREGULATED>,URG	;UNREGULATED
X	<VOLUME-ID>,VID		;VOLUME-ID
X	YES,YES			;YES
X	200,200			;DENSITY OF 200
X	556,556			;DENSITY OF 556
X	800,800			;DENSITY OF 800
X	160,160			;DENSITY OF 1600
X	625,625			;DENSITY OF 6250


	;TOPS20 COMMANDS

X	<BIAS-CONTROL>,BIA	;BIAS CONTROL
X	<SCHEDULER>,SCH		;SCHEDULER
X	<NONE>,NON		;NONE
X	<BACKGROUND>,BCK	;BACKGROUND
X	<CLASS>,CLS		;CLASS
X	<ACCOUNTS>,ACT		;ACCOUNTS
X	<ALLOCATED>,ALO		;ALLOACTED
X	<WITHHELD>,WHD		;WITHHELD
X	<POLICY-PROGRAM>,PPR	;POLICY PROGRAM


	;MDA COMMANDS

X	<AUTOMATIC-STRUCTURE-RECOGNITION>,ASR	;ASR

> ;END OF DEFINITION OF KEYWORDS
;NOW DEFINE THE X MACRO TO GENERATE THE NEEDED SYMBOLS

DEFINE	X(A,B),<
	IF1,<IFDEF .KY'B,< PRINTX ? DUPLICATE KEYWORD CODE -- .KY'B>>
	.KY'B==..Z
	..Z==..Z+1
>
;INITIALIZE THE COUNTER AND CALL KEYWORD TO GENERATE THE SYMBOLS
	..Z==100000
	KEYMAIN
	..Z==200000
	KEYWORD

	DEFINE	X(A,B),<
	IF1,<IFDEF .KY'B,< PRINTX ? DUPLICATE KEYWORD CODE -- .KY'B>>
	.KY'B=.OT'B
	>;END X
	KEYOBJ
	OBJORN
SUBTTL	DEFINE SYMBOLS FOR SWITCHES

;THESE SYMBOLS ARE USED TO INDICATE WHAT SWITCH WAS SEEN BY THE PARSER
;TO THE EVENT PROCESSOR

DEFINE SWITCH,<
	X	<ALL>,ALL		;/ALL
	X	<APPEND>,APD		;/APPEND
	X	<AVAILABLE>,AVA		;/AVAILABLE
	X	<CHARACTERISTICS>,CHR	;/CHARACTERISTICS
	X	<COPIES:>,CPY		;/COPIES:
	X	<CREATE>,CRE		;/CREATE
	X	<DEVICE:>,DEV		;/DEVICE:
	X	<FILE:>,FIL		;/FILE:
	X	<FREE>,FRE		;/FREE
	X	<LINES>,LNS		;/LINES
	X	<PAGES:>,PAG		;/PAGES:
	X	<JOBNAME:>,JOB		;/JOBNAME:
	X	<MOUNTED>,MNT		;/MOUNTED
	X	<NODE:>,NOD		;/NODE
	X	<PAUSE:>,PAU		;/PAUSE
	X	<REQUEST-ID:>,REQ	;/REQUEST-ID:
	X	<REPEAT-COUNT:>,RPT	;/REPEAT
	X	<SEQUENCE:>,SEQ		;/SEQUENCE:
	X	<SHORT>,SHT		;/SHORT
	X	<STOP>,STP		;/STOP
	X	<JOB>,JBX		;/JOB
	X	<SUPERCEDE>,SPR		;/SUPERCEDE
	X	<PURGE>,PUR		;/PURGE (FOR JOB ERROR )
	X	<ERROR-PROCESSING>,ERR	;/ERROR-PROCESSING
	X	<NOERROR-PROCESSING>,NER;/NOERROR-PROCESSING
	X	<REASON:>,RSN		;/REASON 
	X	<DISPLAY>,DSP		;/DISPLAY
	X	<NODISPLAY>,NDP		;/NODISPLAY
	X	<OPR-ACTION-MESSAGE>,OAM ;/OPR-ACTION MESSAGES
	X	<OTHER>,OTH		;/OTHER

	;TAPE AND DISK -20 COMMAND SWITCHES
	X	<COUNT:>,CNT		;/COUNT:
	X	<DENSITY:>,DEN		;/DENSITY:
	X	<INCREMENT:>,INC	;/INCREMENT:
	X	<LABEL-TYPE:>,LBT	;/LABEL-TYPE
	X	<OVERIDE-EXPIRATION:>,OVR;/OVERIDE-EXPIRATION
	X	<OWNER:>,OWN		;/OWNER:
	X	<PROTECTION>,PRO	;/PROTECTION:
	X	<STARTING-VOLUME-ID:>,SVI;/START-VOLUME-ID:
	X	<TAPE-DISPOSITION:>,TDP	;/TAPE-DISPOSITION
	X	<VOLUME-ID>,VID		;/VOLUME-ID

	;-20 SCHEDULER SWITCHES

	X	<WINDFALL:>,WFL		;/WINDFALL:
	X	<CLASS-ASSIGNMENTS:>,CAS	;/CLASS-ASSIGNMENTS:

>
DEFINE	X(A,B),<
	IF1,<IFDEF .SW'B,< PRINTX ? DUPLICATE SWITCH CODE -- .SW'B>>
	.SW'B==..Z
	..Z==..Z+1
>
..Z==400000
	SWITCH
	SUBTTL	SYNTAX TABLE MACROS

	;THESE MACROS ARE USED TO GET THE DATA FROM GALGEN AND BUILD
	;THE NECESSARY DATA NEEDED BY OPR AND ORION

	;DEFINE APPLICATION TABLES


	DEFINE	TABAPL,<
	;THIS TABLE MUST BE IN ALPAHABETICAL ORDER BY THE FIRST ARGUMENT
	;	X	NAME,CODE,TABLE NAME

	G$$ATB		;GET TABLE VALUES

	>;END TABAPL
	APLBEG==700000		;START APPLICATION CODES


	OP.AAP==0		;ALL APLLICATION MESSAGES
	DEFINE	X(A,B,C),<.ZZ==.ZZ+1
	IF1,<IFDEF .KY'B,< PRINTX ? DUPLICATE APPLICATION CODE -- .KY'B>>
	IF1,<IFDEF OP.'B,< PRINTX ? DUPLICATE MESSAGE FLAG -- OP.'B>>
	.KY'B==APLBEG+.ZZ
	OP.'B==1B<.ZZ>
	OP.AAP==OP.AAP!OP.'B
	>;END OF X

	.ZZ==0
	TABAPL		;EXPAND APPLICATION TABLES

	NUMAPL==.ZZ	;NUMBER OF TABLES
	IFG	<NUMAPL-^D18>,
<<PRINTX NUMBER OF APPLICATIONS IS GREATER THAN 18 COMPILE ABORTED>
<PRINTX PLEASE CORRECT THE GALGEN PROCEDURE AND RECOMPILE>
	END>

	%CHKTM==1	;CHECKPOINT LOG INTERVAL
	SUBTTL GALCNF PARAMETERS

	XP	O.LENA,G.OLOG

	DEFINE O$LOGN,<	G$$LGN	>;GET LOG NAME
	DEFINE	X(A),<>			;NULL X EXPANSION
	O$LOGN				;COPY IN MACRO
SUBTTL	ORNKEY, ORNDSP,ORNSDP AND ORNSWI MACROS FOR COMMAND TABLES

;THESE MACROS ARE USED TO DEFINE KEYWORD AND SWITCH TABLES
;THEY USE THE SOFTWARE HALF OF THE TABLE TO POINT TO A WORD
; CONTAINING   .KYXXX OR .SWXXX IN THE LH AND THE ADDRESS OF THE
; NEXT PDB CHAIN IN THE RH
;
;TO GENERATE A TABLE, YOU NEED ONE OF THESE MACROS PER ENTRY.
;THEY MUST BE IN ALPHABETICAL ORDER

DEFINE ORNDSP(NXT,KEY,CODE,FLAGS),<
	DSPTAB(NXT,.KY'CODE,KEY,FLAGS)
>;END ORNDSP
DEFINE ORNKEY(KEY,CODE,FLAGS),<
	KEYTAB(.KY'CODE,KEY,FLAGS)
>;END ORNKEY

DEFINE ORNSWI(SWITCH,CODE,FLAGS),<
	KEYTAB(.SW'CODE,SWITCH,FLAGS)
>;END ORNSWI
DEFINE ORNSDP(NXT,SWITCH,CODE,FLAGS),<
	DSPTAB(NXT,.SW'CODE,SWITCH,FLAGS)
>;END ORNSWI
SUBTTL	GENERAL MESSAGE FORMAT

COMMENT $

All ORION messages consist of a message header, at least one object 
area, an ORNMAC version number, and a pointer to an argument length
word.

$
SUBTTL ORION Message Codes

;The following codes are placed into the message header field, MS.TYP to
;	indicate what type of message follows.

		.OMOFF==200000		;OFFSET OF FIRST ORION MESSAGE
		.OMSTA==200002		;START MESSAGE
		.OMSHT==200003		;SHUTDOWN MESSAGE
		.OMPAU==200004		;PAUSE MESSAGE
		.OMCON==200005		;CONTINUE MESSAGE
		.OMSHS==200006		;SHOW STATUS MESSAGE
		.OMAHL==200007		;APPLICATION HELLO MESSAGE
		.OMSTS==200010		;STATUS MESSAGE
		.OMWTO==200011		;WRITE TO OPERATOR MESSAGE
		.OMRSP==200012		;RESPONSE TO WTO MESSAGE (SENT BY ORION)
		.OMWTR==200013		;WTOR MESSAGE
		.OMACK==200014		;ACKNOWLEDGEMENT MESSAGE
		.OMOHL==200015		;OPR HELLO MESSAGE
		.OMOST==200016		;OPR SETUP MESSAGE
		.OMOSR==200017		;OPR SETUP REPLY
		.OMHAC==200020		;HELLO ACK FOR APPLICATIONS
		.OMQHL==200021		;QUASAR HELLO MESSAGE
		.OMREQ==200025		;REQUEUE MESSAGE
		.OMCAN==200026		;CANCEL MESSAGE
		.OMSET==200027		;SET MESSAGE
		.OMFWS==200031		;FORWARDSPACING MESSAGE
		.OMALI==200032		;ALIGN MESSAGE
		.OMSUP==200033		;SUPPRESS MESSAGE
		.OMBKS==200034		;BACKSPACE COMMAND
		.OMSND==200035		;SEND COMMAND
		.OMSHC==200036		;SHOW CONTROL FILE(EXAMINE)
		.OMSHP==200037		;SHOW PARAMETERS MESSAGE
		.OMRTE==200040		;ROUTE COMMAND
		.OMSHQ==200041		;SHOW QUEUES COMMAND
		.OMHLD==200042		;HOLD COMMAND
		.OMREL==200043		;RELEASE COMMAND
		.OMSHR==200044		;SHOW ROUTE TABLES COMMAND
		.OMACS==200045		;ACK FOR SHOW MESSAGES
		.OMTKE==200046		;END OF TAKE FILE FLAG
		.OMCMD==200050		;OPR COMMAND MESSAGE
		.OMDSP==200051		;DISPLAY MESSAGE TO PASS A DISPLAY TO OPR
		.OMSHM==200052		;SHO MOUNT REQUESTS
		.OMLOG==200053		;LOG MESSAGE TYPE
		.OMNFY==200054		;NOTIFY MESSAGE FROM QUASAR
		.OMDEL==200055		;DELETE COMMAND
		.OMSUB==200056		;SUBMIT COMMAND
		.OMPRT==200057		;PRINT COMMAND
		.OMMOD==200060		;MODIFY COMMAND
		.OMQUE==200061		;QUEUE REQUEST ENABLE/DISABLE
		.OMENA==200062		;ENABLE MESSAGE
		.OMDIS==200063		;DISABLE MESSAGE
		.OMDEF==200064		;DEFINE COMMAND
		.OMD60==200065		;DN60 COMMAND MESSAGE
		.OMSSN==200066		;SHOW STATUS NETWORK-NODE
		.OMSPN==200067		;SHOW PARAMETERS NETWORK-NODE
		.OMLOC==200070		;LOCK COMMAND
		.OMULC==200071		;UNLOCK COMMAND
		.OMSTR==200072		;SHOW STATUS STRUCTURES
		.OMHGH==.OMSTR		;HIGHEST DEFINE ORION MESSAGE
		.OMTXT==MT.TXT		;TEXT MESSAGE SYMBOL ***

	;MESSAGE CODES USED FOR TAPE AND DISK COMMANDS IN RELEASE 4

		.OTMES==201000		;OFFSET FOR TAPE AND DISK MESSAGES

		.OTSHT==201001		;SHOW STATUS TAPE
		.OTSHD==201002		;SHOW STATUS DISK DRIVES
		.OTENA==201003		;ENABLE TAPE COMMAND
		.OTDIS==201004		;DISABLE MOUNT COMMAND
		.OTMTS==201005		;MOUNT STRUCTURE COMMAND
		.OTDSM==201006		;DISMOUNT COMMAND
		.OTSDK==201007		;SET DISK COMMAND
		.OTSTP==201010		;SET TAPE COMMAND
		.OTSST==201011		;SET STRUCTURE COMMAND
		.OTREC==201012		;RECOGNIZE COMMAND FOR -10
		.OTUNL==201013		;UNLOAD COMMAND
		.OTIDN==201014		;IDENTIFY MOUNT REQUEST MESSAGE
		.OTDMT==201015		;DELETE MOUNT REQUESTS
		.OTSWI==201016		;SWITCH COMMAND FOR TAPE REQUESTS
	SUBTTL	SPECIAL ORION ACCUMULATOR ASSIGNMENTS

;CHANGE MI TO 15 AND MO TO 14 FROM 16 AND 15
	MI==15				;POINTER TO MESSAGE RECEIVED
	MO==14				;POINTER TO MESSAGE TO SEND
;	PB==14				;POINTER TO FIELD IN MESSAGE RECEIVED
	FLAG==13			;FLAG AC

	;P4 WILL BE USED AS A FLAG REGISTER FLAG AND THEREFORE SHOULD 
	;NOT BE USED ANYWHERE ELSE
	SUBTTL	THE OBJECT AREA

;THIS AREA IS USED TO DEFINE WHAT OBJECT OR OBJECTS A PARTICULAR
;MESSAGE APPLIES TO. AT LEAST ONE OF THESE IS IN EVERY MESSAGE.

;THIS AREA IS AN EXACT COPY A GALAXY DEVICE-OBJECT DESIGNATOR DESCRIBED
;IN GLXMAC
;SEE GLXMAC FOR A DESCRIPTION OF ITS CONTENTS

	PHASE	MSHSIZ

.OBJTY==.+OBJ.TY			;OBJECT TYPE WORD
.OBJUN==.+OBJ.UN			;OBJECT UNIT NUMBER WORD
.OBJND==.+OBJ.ND			;NODE NAME

	BLOCK	OBJ.SZ			;SAVE THE SPACE SO LATER AREAS ARE 
					;CORRECTLY PLACED

OBJSIZ:!				;SIZE OF OBJECT AREA
	DEPHASE
.OBJLN==OBJ.SZ+1			;SIZE OF OBJECT ARGUMENT BLOCK


	;THE ARGUMENT COUNT WORD

	PHASE	OBJSIZ
.ARGLN:! BLOCK	1			;ARGUMENT COUNT POINTER

	DEPHASE
	SUBTTL	ORION COMMAND MESSAGES

	;THE FOLLOWING IS A DESCRIPTION OF THE LAYOUT OF ALL MESSAGES
	;SENT TO AN OBJECT PROCESSOR SIGNING ON WITH THE STANDARD HELLO
	;MESSAGE AS WELL AS RESPOND MESSAGES FOR WTO

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!

	PHASE MSHSIZ
.OFLAG:! BLOCK	1			;FLAG WORD FOR MESSAGE
.OARGC:! BLOCK	1			;ARGUMENT COUNT WORD
.OHDRS:!				;SIZE OF THE HEADER

	DEPHASE

	;DESCRIPTION OF THE ARGUMENT BLOCK

	PHASE 0
ARG.HD:! BLOCK	1			;ARGUMENT HEADER WORD
	AR.LEN==-1,,0			;LENGTH OF THE BLOCK
	AR.TYP==0,,-1			;TYPE OF BLOCK
ARG.DA:! BLOCK	1			;START OF DATA AREA
ARG.SZ:!				;MINIMUM SIZE OF THE BLOCK

	DEPHASE


	;GENERAL DATA TYPES FOR ALL MESSAGES
.OROBJ==100				;OBJECT BLOCK
.ORTYP==101				;OBJECT TYPE FIELD
.ORJBN==102				;JOBNAME TYPE FIELD
.ORSEQ==103				;SEQUENCE NUMBER FIELD
.ORREA==104				;REASON TYPE FIELD
.ORDSP==105				;OPR DISPLAY ARGUMENT
.ORREQ==106				;REQUEST NUMBER FIELD
.ORNOD==107				;NODE BLOCK FOR QUASAR VALIDATION
.ORD60==110				;DN60 BLOCK OF DATA
.ORTIM==111				;TIME BLOCK (UDT)

	;THE FOLLOWING ARE THE COMMAND TYPES CURRENTLY USED AS
	;GENERAL ARGUMENT TYPES
	;
	;.CMNOD			FOR NODE NAME TYPE
	;.CMTXT			FOR TEXT ASCIZ DATA
	;.CMIFI			FOR INPUT FILE SPEC
	;.CMUSR			FOR USER ID INFORMATION
	;.CMDEV			FOR DEVICE DESIGNATOR
	SUBTTL	OPRHEL -- OPR HELLO MESSAGE TO ORION

;	THIS MESSGE IS SENT BY AN OPR TO ORION IDENTIFYING WHAT
;	NODE THE OPR IS AT.

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!


;	THIS MESSAGE USES THE STANDARD ARGUMENT HEADER LAYOUT
;	AND REQUIRES ONE ARGUMENT BLOCK AT THIS TIME
;
;	THIS ARGUMENT BLOCK CONTAINS FOUR WORDS
;
;	1.	NODE NAME WHERE OPR LOCATED
;	2.	OPR VERSION NUMBER
;	3.	ORNMAC VERSION NUMBER


	;THE FOLLOWING FLAGS WILL BE TURNED ON BY AN OPR ON THE -20
	;WITH REMOTE PRIVILEGES.

	OP.RMT==1B0		;REMOTE OPERATOR HELLO

	.OPHEL==100		;OPR HELLO BLOCK TYPE

	PHASE ARG.DA
OPH.ND:! BLOCK	1		;OPR HELLO NODE LOCATION
OPH.VN:! BLOCK	1		;VERSION NUMBER OF THE OPR
OPH.OV:! BLOCK	1		;ORNMAC VERSION NUMBER
OPH.SZ:!			;LENGTH OF THE BLOCK

	DEPHASE
	SUBTTL	START,STOP(PAUSE),CONTINUE AND SHUTDOWN

	;THE FORMAT FOR THESE MESSAGES IS JUST AN OBJECT BLOCK
	;EXCEPT THAT THE  START COMMAND FOR PRINTERS WILL TAKE
	;AN OPTIONAL ARGUMENT FOR DEVICE


;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!


;	THE MESSAGES ALL CONTAIN AN OBJECT BLOCK	.OROBJ
;	AND FOR START OF PRINTERS AND OPTIONAL		.CMDEV
;
;

	;THE START AND SHUTDOWN COMMANDS CAN CONTAIN JUST A .ORNOD BLOCK FOR
	;THE SHUTDOWN/START NODE COMMAND
	SUBTTL	OPRSET	--	OPR SETUP MESSAGE FROM ORION

	;THIS MESSAGE IS SENT BY ORION TO AN OPR IN RESPONSE TO
	;THE HELLO MESSAGE. THIS MESSAGE IS USED TO SYNCRONIZE
	;ALL OPRS WITH THE CURRENT APPLICATION TABLE SETTINGS


;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!


	;THIS MESSAGE WILL CONTAIN APPLICATION NAMES TO BE ADDED
	;TO TABLES IN OPR.
	;
	;	.APNAM		ASCIZ BLOCK OF NAME TO ADD


.APNAM==10000			;DEFINE APPLICATION NAME CODE
	SUBTTL	OPRSTR	--	OPR SETUP REPLY TO ORION

	;THIS MESSAGE IS SENT TO ORION BY OPR IN RESPONSE TO
	;A SETUP MESSAGE. AFTER THIS MESSAGE IS SENT THE OPR
	;CAN NOW INPUT COMMANDS TO ORION IF SUCCESSFUL
	;


;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!


	;THE ARGUMENT BLOCK CONSISTS OF THE FOLLOWING
	;OPR WILL RETURN WITH A CODE FOR SUCCESS OR FAILURE
	;
	;.ORSUC		FOR SUCCESS TYPE....LENGTH OF 1
	;.ORFAL		FOR FAILURE TYPE....LENGTH OF 1

.ORSUC==10100			;SUCCESS IF ZERO
.ORFAL==10101			;FAILURE IF 1
	SUBTTL	APLHEL	--	APPLICATION HELLO MESSAGE

;THIS MESSAGE IS SENT BY AN APPLICATION PROGRAM WISHING
;TO USE AN ALTERNATE SET OF COMMAND TABLES AS SPECIFIED
;AT ORION STARTUP. THE STRING SPECIFIED WILL
;BE USED AS THE PROMPT IF YOU ENTER THE APPLICATION LEVEL
;OR AS THE KEYWORD TO IDENTIFY THE APPLICATION COMMAND
;THE MESSAGE FORMAT USES THE NEW MESSAGE HEADER AND THE STANDARD
;ARGUMENT BLOCK FORMAT AS DESCRIBED UNDER ORION COMMAND MESSAGES

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!
	;CURRENTLY THE FOLLOWING ARE THE DEFINED APPLICATION
	;TYPES THAT CAN BE INCLUDED IN THE MESSAGE

	;APPLICATION HELLO TYPES

	.AHNAM==10200	;TYPE FOR THE APPLICATION NAME STRING  
			;THE ARGUMENT BLOCK WILL CONTAIN THE NAME STRING
			;IN THE ARGUMENT DATA AREA.
			;THE ARGUMENT LENGTH INCLUDES THE ARGUMENT HEADER
			;AND THE APPLICATION NAME STRING.
			;THE NAME MUST BE ASCIZ.
			;THE ARGUMENT COUNT WORD IN THE HEADER SHOULD
			;CONTAIN A 1.
	SUBTTL	APLACK	--	ACKNOWLEDGEMENT TO APPLICATION HELLO

;THIS MESSAGE IS SENT BY ORION TO AN APPLICATION IN RESPONSE
;TO THE APPLICATION HELLO MESSAGE CONTAINING THE INTERNAL TYPE
;CODE ASSIGNED TO THIS APPLICATION PROCESSOR. THIS CODE WILL BE
;USED TO IDENTIFY ALL REQUESTS FROM ORION TO THE APPLICATION.
;
;THE FORMAT OF THE MESSAGE IS THE STANDARD ORION MESSAGE HEADER
;FOR COMMANDS WITH AN ARGUMENT BLOCK
;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!
	;CURRENTLY THE FOLLOWING ARE THE DEFINED APPLICATION
	;TYPES THAT CAN BE INCLUDED IN THE MESSAGE

	;APPLICATION HELLO ACKNOWLEDGEMNT TYPES


	.AHTYP==10300	;THIS CODE IS USED TO DESCRIBE THE FIELD 
			;CONTAINING THE APPLICATION TYPE CODE 
			;RETURNED BY ORION. THE CODE IS A FULL WORD.
			;THE ARGUMENT BLOCK WILL CONSIST OF A HEADER 
			;AND ONE DATA WORD FOR A LENGTH OF 2
			;THE ARGUMENT COUNT WILL HAVE A 1
SUBTTL	The SET Message

;THE SET MESSAGE IS USED TO SET SCHEDULING PARAMETERS FOR AN OBJECT
;ONLY ONE PARAMETER CAN BE SET AT A TIME

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!

	;ARGUMENT TYPES AND VALUES
	;FOR ARGUMENTS WHERE THE TYPE IS SUFFICENT THE BLOCK WILL
	;HAVE A LENGTH OF ONE, OTHERWISE THE BLOCK WILL CONTAIN THE 
	;APPROPRIATE DATA ELEMENT AND INCLUDE ITS LENGTH IN THE BLOCK
	;HEADER.

	;THE MESSAGE WILL ALWAYS CONTAIN AN OBJECT BLOCK TO DESCRIBE THE
	;OBJECT
	;		.OROBJ		OBJECT BLOCK ARGUMENT TYPE

	.STPGL==10400		;PAGE LIMITS..HEADER..MIN..MAX
	.STOPL==.STPGL		;SET OUPUT-LIMIT
	.STFRM==10401		;FORMS TYPE..HEADER..SIXBIT FORMS TYPE
	.STMEM==10402		;CORE LIMITS..HEADER..MIN..MAX
	.STTIM==10403		;TIME LIMITS..HEADER..MIN..MAX
	.STPRI==10404		;PRIORITY LIMITS..HEADER..MIN..MAX
	.STOIA==10405		;OPR INTERVENTION..HEADER
	.STNOI==10406		;NOOPR-INTERVENTION..HEADER
	.STLEA==10407		;LIMIT EXCEED ACTION HEADER..DATA
	  .STCAN==1		;CANCEL
	  .STASK==2		;ASK
	  .STIGN==3		;IGNORE
	.STEND==.STLEA		;LAST DEFINED SET PARAMETER

IFN	FTDN60,<
	.STCSD==10410		;CLEAR TO SEND DELAY
	.STDTR==10411		;DATA TERMINAL READY
	  ST.ON==1		;ON
	  ST.OFF==2		;OFF
	.STRPM==10412		;RECORDS PER MESSAGE
	.STSWL==10413		;SILO WARNING LEVEL
	.STTOU==10414		;TIMEOUT CATEGORY
	  ST.PRI==1		;PRIMARY
	  ST.SEC==2		;SECONDARY
	.STTRA==10415		;TRANSPARENCY (ST.ON OR ST.OFF)
	.STBPM==10416		;BYTES PER MESSAGE
	.STSON==10417		;SIGNON-REQUIRED
	.STNSN==10420		;NO-SIGNON-REQUIRED

	.STEND==.STNSN		;LAST SYMBOL
>;END FTDN60
	SUBTTL	FORWARDSPACE AND BACKSPACE COMMANDS

	;THESE TWO COMMANDS ARE IDENTICAL EXCEPT THAT THE MESSAGE TYPE
	;WILL DESCRIBE THE DESIRED ACTION

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!


	;THE FOLLOWING ARE THE DEFINED ARGUMENT TYPES FOR FORWARDSPACE
	;AND BACKSPACE. IN ALL CASES THE ARGUMENT BLOCK WILL HAVE
	;A LENGTH OF 2 AND THE POSTIONING AMOUNT WILL APPEAR IN THE
	;ARGUMENT DATA WORD.
	;ALL MESSAGES WILL CONTAIN AN OBJECT BLOCK DESCRIBING
	;THE PARTICULAR UNIT
	;
	;	.OROBJ	OBJECT BLOCK TYPE
	;

	.SPPAG==10500		;SPACING NUMBER OF PAGES
	.SPCPY==10501		;SPACING NUMBER OF COPIES
	.SPFIL==10502		;SPACING NUMBER OF FILES
	SUBTTL	HOLD AND RELEASE COMMANDS

	;THE FORMAT OF THE HOLD AND RELEASE COMMANDS ARE IDENTICAL 
	;EXCEPT FOR THE MESSAGE TYPE
	;THE MESSAGE STRUCTURE IS THE STANDARD MESSAGE HEADER AND 
	;A NUMBER OF ARGUMENT BLOCKS DESCRIBING THE JOB(S) TO HOLD OR 
	;RELEASE

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!


	;THE FOLLOWING ARE THE DEFINED ARGUMENTS FOR THE HOLD AND 
	;RELEASE COMMAND
	;
	;	.ORTYP		THE QUEUE AFFECTED BY THE HOLD
	;	.CMUSR		THE USERS JOBS IN THAT QUEUE TO AFFECT
	;	.ORRQN		THE REQUEST NUMBER OF THE JOB
	;
	; IF ONLY THE .ORTYP FIELD IS SPECIFIED THEN  ALL JOBS IN THE 
	; SPECIFIED QUEUE ARE TO BE HELD. OTHERWISE EACH ARGUMENT WILL
	; FURTHER QUALIFY THE JOB(S) TO HOLD/RELEASE.
	SUBTTL	MODIFY MESSAGE

	;THE MODIFY MESSAGE IS USED TO MODIFY THE PARAMETERS OF A
	;JOB REQUEST

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!


	;THE FOLLOWING ARE THE DEFINED ARGUMENTS TO DESCRIBE THE ENTRY
	;TO BE MODIFIED
	;
	;	.ORTYP		THE QUEUE AFFECTED BY THE HOLD
	;	.CMUSR		THE USERS JOBS IN THAT QUEUE TO AFFECT
	;	.ORRQN		THE REQUEST NUMBER OF THE JOB
	;
	; IF ONLY THE .ORTYP FIELD IS SPECIFIED THEN  ALL JOBS IN THE 
	; SPECIFIED QUEUE ARE TO BE MODIFIED. OTHERWISE EACH ARGUMENT WILL
	; FURTHER QUALIFY THE JOB(S) TO MODIFY.

	;THE FOLLOWING ARE THE VALID PARAMTERS FOR ALL QUEUES

	.MOPRI==11600		;MODIFY PRIORITY..BLOCK WITH PRIORITY IN IT
	SUBTTL	ROUTE COMMAND

	;THE ROUTE COMMAND WILL ROUTE THE OUTPUT FROM ONE NODE TO 
	;ANOTHER

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!


	;THE ROUTE COMMAND SUPPORTS THE FOLLOWING BLOCK TYPES
	;
		.ORRTN==11500		;ROUTE NODE BLCOK
		.ORRTJ==11501		;ROUTE JOB BLOCK
	;
	;THE .ORRTN HAS THE FOLLOWING FIELDS
	;
	.SNODE==ARG.DA
	.DNODE=ARG.DA+1

	;WHERE .SNODE IS THE SOURCE NODE TO ROUTE AND
	;.DNODE IS THE DESTINATION NODE TO ROUTE
	;THE OPR ISSUING THE COMMAND MUST HAVE AUTHORIZATION FOR THE
	;SOURCE NODE FOR THE COMMAND TO BE VALID
	SUBTTL	DELETE COMMAND

	;THE DELETE COMMAND WILL  PASS THE QUEUE AND THE REQUEST NUMBER IN
	;A REQUEST ID BLOCK


;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!



;	THE BLOCKS ARE THE SAME FOR HOLD EXCEPT THAT THERE MUST BE A USER OR
;	REQUEST NUMBER BLOCK

	;	.ORTYP			;QUEUE TYPE
	;	.ORREQ			;REQUEST NUMBER
	;	.ORUSR			;USER NUMBER OR PPN


	; FOR DELETE OF MOUNT REQUEST THE FOLLOWING BLOCKS ARE POSSIBLE


	;.ORREQ		;REQUEST NUMBER OF REQUEST TO DELETE
	;	- OR -
	;.STRDV		;STRUCTURE BLOCK FOR DELETING ALL ON A STRUCTURE


	;.ORREA		;OPTIONAL REASON IF SPECIFIED
	SUBTTL	The SEND Message
	;THIS MESSAGE IS USED TO SEND TEXT TO A PARTICULAR BATCH STREAM
	;OR USER IDENTIFIED BY TERMINAL NUMBER OR JOB NUMBER.

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!


	;THE BLOCK WILL CONTAIN A STANDARD ORION OBJECT BLOCK TO DESCRIBE
	;THE OBJECT THE MESSAGE IS BEING SENT TO.
	;
	;	.OROBJ		OBEJCT BLOCK TYPE
	;
	;AT THE CURRENT TIME THE OTHER ARGUMENT IS TEXT
	;AND USES THE STANDARD ORION TEXT TYPE
	;
	;	.CMTXT		;THE TEXT TYPE FOR MESSAGE
	;
	;THE DATA WILL BE ASCIZ TEXT WITH THE LENGTH INCLUDING ALL
	;TEXT AND THE HEADER
	SUBTTL	The NOTIFY Message

	;THIS MESSAGE IS USED BY QUASAR TO HAVE ORION DISPLAY A MESSAGE
	;ABOUT A USERS JOB

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	

	;FLAG WORD BITS

	NT.MLU==1B0		;NOTIFY USER VIA MAIL


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!


	;THIS MESSAGE HAS FOUR ARGUMENTS

		.JOBID==200	;THE USER'S TERMINAL NBR & LOGIN TIME
		.NTSUB==201	;SUBJECT STRING FOR MAIL
	;	.CMDIR		;THE USER DIRECTORY NUMBER
	;	.CMTXT		;THE MESSAGE BODY

	;THE JOB ID BLOCK CONTAINS THE FOLLOWING DATA

		PHASE	ARG.DA

JBI.JB:! BLOCK	1			;JOB NUMBER
JBI.LI:! BLOCK	1			;JOB LOGGED IN TIME
JBI.SZ:!				;SIZE OF THE BLOCK

	;IF THE INFO MATCHES THE CURRENT JOB ON SYSTEM A MESSAGE WILL BE
	;DISPLAYED TO THE TERMINAL IF LOGGED IN.. PITCHED IF NOT OR DETACHED
SUBTTL	The SUPPRESS Message

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!


	;THE SUPPRES COMMAND WILL ALWAYS CONTAIN AN ORION OBEJCT BLOCK
	;TO DESCRIBE THE OBJECT
	;
	;	.OROBJ		OBJECT BLOCK TYPE

	;THE SUPRRESS COMMAND SUPPORTS THE FOLLOWING ARGUMENT TYPES
	;
	.SUPFL==10600		;SUPRRESS CURRENT FILE
	.SUPJB==10601		;SUPPRESS CURRENT JOB
	.SUPST==10602		;STOP DOING SUPPRESSION

	;ALL ARGUMENTS ARE JUST THE ARGUMENT HEADER WITH THE APPROPRIATE
	;TYPE AND A LENGTH OF 1

	;THIS MESSAGE WILL ALWAYS CONTAIN AN ARGUMENT COUNT OF 2
	SUBTTL	CANCEL COMMAND MESSAGE

	;THIS MESSAGE IS USED TO CANCEL A PARTICULAR JOB RUNNING ON A 
	;PARTICULAR OBJECT

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!



	;THE CANCEL COMMAND WILL ALWAYS CONTAIN A ORION OBJECT BLOCK
	;TO DESCRIBE THE OBJECT WHERE JOB IS TO BE CANCELED.
	;
	;	.OROBJ		ORION OBJECT BLOCK
	;
	;THE FOLLOWING ARE THE VALID ARGUMENT TYPES FOR THIS MESSAGE
	
	.CANTY==10700		;CANCEL TYPE WITH THE FOLLOWING DATA

		.CNERR==1	;CANCEL WITH ERROR PROCESSING
		.CNNER==2	;CANCEL NO ERROR-PROCESSING
		.CNPRG==3	;CANCEL AND PURGE THE REQUEST


	;THE FOLLOWING ARGUMENT TYPES ARE OPTIONAL AND WILL
	;BE INCLUDED IF SPECIFIED
	;
	;	.ORRQN		;REQUEST NUMBER
	;	.ORREA		;REASON FOR CANCEL..EXPLANATION IF GIVEN
	;			;DATA IS THE TEXT
	SUBTTL	REQUEUE COMMAND MESSAGE

	;THIS MESSAGE IS TO REQUEUE A JOB ON A PARTICULAR OBJECT


;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!

	;THE REQUEUE COMMAND WILL ALWAYS CONTAIN AN OBJECT BLOCK
	;
	;	.OROBJ		OBJECT BLOCK
	;
	;THE FOLLOWING ARE THE VALID ARGUMENT TYPES FOR REQUEUE
	;
	.REQTY==11000		;REQUEUE TYPE OF OPERATION
		.RQBJB==1	;BEGINNING OF JOB
		.RQBFL==2	;BEGINNING OF FILE
		.RQBCP==3	;BEGINNING OF CURRENT COPY
		.RQCUR==4	;CURRENT POSITION

	;THE FOLLOWING ARGUMENT TYPES ARE OPTIONAL AND MAY BE INCLUDED
	;IN THE COMMAND IF SPECIFIED.
	;
	;	.ORRQN		REQUEST NUMBER OF JOB
	;	.ORREA		REASON FOR CANCEL..EXPLANATION IF GIVEN
	;			THE DATA IS THE TEXT
	SUBTTL	DEFINE COMMAND MESSAGE

	;THIS MESSAGE IS USED FOR DN60 TO DEFINE A NODE TO A PARTICULAR
	;PORT , LINE AND PROTOCOL


;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!


	;THIS MESSAGE CURRENTLY SUPPORTS ONLY ONE BLOCK

	.DFBLK==11100		;THE DEFINE BLOCK TYPE

	PHASE	ARG.DA

DEF.TY:! BLOCK	1			;TYPE OF NODE
	DF.378==1			;3780
	DF.278==2			;2780
	DF.HSP==3			;HASP
DEF.MD:! BLOCK	1			;MODE OF NODE
	DF.TRM==1			;TERMINATION
	DF.EMU==2			;EMULATION
DEF.PT:! BLOCK	1			;PORT
DEF.LN:! BLOCK	1			;LINE
DEF.SZ:!

	DEPHASE
	SUBTTL	TAPE AND DISK COMMANDS

	;THESE COMMANDS ALL HAVE THE STANDARD ORION HEADER 
	;WITH THE MESSAGE CODES IN THE .MSTYP WORD MS.TYP FIELD

	
	;TAPE AND DISK DEVICE INFO BLOCKS

	.TAPDV==20000		;TAPE DRIVE DEVICE BLOCK
	
	;THE BLOCK WILL CONTAIN A STRING FOR THE DEVICE WHICH ONE
	;CAN THEN CONVERT TO A DEVICE DESIGNATOR IF VALID. IF IT MUST BE
	;VALID OPR WILL NOT SET CM%PO AND FORCE OPR TO TYPE IN VALID NAME
	;BUT THE BLOCK WILL STILL CONTAIN A STRING

	;	*** THE STRING WILL NOT END IN A COLON *** 


	.DSKDV==20001		;DISK DEVICE BLOCK

	;THIS BLOCK WILL CONSIST OF 3 WORDS INCLUDING THE HEADER WITH
	;THE FIRST DATA WORD BEING THE CHANNEL NUMBER AND THE SECOND
	;BEING THE DRIVE NUMBER


	.STRDV==20002		;STRUCTURE BLOCK

	;THIS BLOCK WILL CONTAIN THE STRING TYPED BY THE OPERATOR AND 
	;IT WILL BEGIN AFTER THE HEADER. THE LENGTH OF BLOCK WILL 
	;INCLUDE THE WHOLE ASCIZ STRING
;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!
	SUBTTL	SHOW COMMANDS FOR TAPES

	;THESE COMMANDS ARE PROCESSED BY MTCON ON THE -20 FOR THIS
	;RELEASE

	;	.OTSHS		;SHOW STATUS FOR TAPE AND DISKS
	;	.OTSHP		;SHO PARAMTERS FOR TAPES AND DISKS

	;THERE ARE THREE POSSIBLE BLOCKS THAT CAN BE IN THE MESSAGE

	;.TAPDV BLOCK FOR TAPE TO SHOW
	 .ALTAP==20010		; BLOCK FOR ALL TAPES LENGTH OF 1
	 .ALDSK==20011		; BLCOK FOR ALL DISKS LENGTH OF 1
	 .ALSTR==20012		;BLOCK FOR ALL STRUCTURES (MDA ONLY)


	;FLAGS IN .OFLAG TO DESCRIBE OPTIONS OF DISPLAY(FOR TAPE AND DISK)


	ST.ALL==1B0		;ALL
	ST.AVA==1B1		;AVAILABLE DRIVES(FREE)
	ST.CHR==1B2		;CHARACTERISTICS
	ST.MNT==1B3		;MOUNTED


	;FOR STRUCTURES THERE MAY ALSO BE A.STRDV FOR THE PARTICULAR STRUCTURE
	SUBTTL	SWITCH COMMAND

	;THIS COMMAND IS USED BY MOUNTR ON THE -20 TO DETERMINE WHERE
	;THE NEXT VOLUME IS TO BE FOUND FOR A GIVEN REQUEST

	;THE MESSAGE CONSISTS OF THE FOLLOWING BLOCKS

	;.ORREQ		REQUEST NUMBER
	;.VOLID		VOLUME ID
	;.TAPDV		TAPE DEVICE BLOCK	(OPTIONAL)
	SUBTTL	DISMOUNT COMMAND 

	;DISMOUNT STRUCTURE COMMAND CONTAINS A DEVICE BLOCK .CMDEV
	; FOR THE DEVICE TO DISMOUNT

	;THE ARGUMENTS WILL  BE

	;	 .STRDV 


	;THE DISMOUNT TAPE COMMAND WILL CONTAIN A

	; .TAPDV

	; BLOCK FOR TAPE DRIVE 

	SUBTTL	RECOGNIZE COMMAND FOR -10

	;THE RECOGNIZE COMMAND WILL CONTAIN A .TAPDV FOR TAPE
	;DRIVE TO RECOGNIZE
	SUBTTL	SET TAPE AND DISK COMMANDS


	;THIS COMMAND WILL CONTAIN EITHER A TAPE BLOCK OR A DISK BLOCK
	;AS THE FIRST ARGUMENT AND THEN

	.DVAVL==20100		;DEVICE AVAILABLE BLOCK LENGTH 1
	.DVUAV==20101		;DEVICE UNAVAILABLE BLOCK LENGTH  1
	.DVINI==20102		;DEVICE INITIALIZE MODE
	SUBTTL	SET STRUCTURE COMMAND FOR DISKS

	;THIS COMMAND WILL HAVE A STRUCTURE BLOCK AS THE FIRST ARGUMENT
	;AND THEN A CHARACTERISTIC BLOCK WITH ONE OF THE FOLLOWING 
	;SYMBOLS

		.STCHR==20200		;STRUCTURE CHARACHTERISTICS

	S.ACKN==1		;ACKNOWLEDGED
	S.AVAL==2		;AVAILABLE
	S.DOMS==3		;DOMESTIC
	S.FORN==4		;FOREIGN
	S.IGNO==5		;IGNORED
	S.REGU==6		;REGULATED
	S.UAVL==7		;UNAVAILABLE
	S.UREG==10		;UNREGULATED
	SUBTTL	SET TAPE XXX INITIALIZE COMMAND

	;THIS COMMAND IS TO SETUP A TAPE-DRIVE FOR INITIALIZING VOLUMES

	;THE MESSAGE WILL CONSIST OF A SET OF BLOCKS WITH THE FIRST ONE
	;BEING
	;	.TAPDV		TAPE DRIVE BLOCK

	;THEN THERE WILL BE THE OPTIONS FOR THE INITIALIZE

	;.DVINI		FOR INITIALIZE STATE
	;.VOLID		FOR VOLUME ID

	.SILBT==20501			;LABEL TYPE
IFN	FTUUOS,<
		S.ANSI==1		;ANSI
		S.EBCD==2		;EBCDIC
		S.T20==3		;TOPS-20
		S.UNLA==4		;UNLABELED
>;END FTUUOS
IFN	FTJSYS,<
		S.ANSI==.LTANS			;ANSI
		S.EBCD==.LTEBC			;EBCDIC
		S.T20==.LTT20			;TOPS-20
		S.UNLA==.LTUNL			;UNLABELED
>;END FTJSYS
	.SIDEN==20502			;DENSITY
IFN	FTUUOS,<
		S.200==1		;200
		S.556==2		;556
		S.800==3		;800
		S.1600==4		;1600
		S.6250==5		;6250
>;END FTUUOS
IFN	FTJSYS,<
		S.200==.SJDN2		;200
		S.556==.SJDN5		;556
		S.800==.SJDN8		;800
		S.1600==.SJD16		;1600
		S.6250==.SJD62		;6250
>;END FTJSYS
	.SIOWN==20503			;OWNER...USER ID OR PPN
	.SIPRO==20504			;OCTAL NUMBER FOR PROTECTION
	.SIUNL==20505			;UNLOAD TAPE WHEN DONE
	.SIHLD==20506			;HOLD TAPE WHEN DONE
	.SIOVR==20507			;OVERIDE EXPIRATION
	.SINOV==20510			;NO OVERIDING OF EXPIRATIONS
	.SISVI==20511			;STARTING VOLUME ID (DECIMAL NUMBER)
	.SIINC==20512			;INCREMENT FOR VOLUMES (DECIMAL NUMBER)
	.SICNT==20513			;COUNT OF TAPES TO DO (DECIMAL NUMBER)
	SUBTTL	ENABLE AND DISABLE COMMAND FOR TAPES

	;THIS COMMAND WILL CONTAIN THE FOLLOWING POSSIBLE BLOCKS

	.AVREC==20300		;AUTOMATIC VOLUME RECOGNITION BLOCK
	
	;AND EITHER A .TAPDV BLOCK FOR A TAPE DEVICE OR
	;	.ALTAP BLOCK FOR ALL TAPE DRIVES


	.ASREC==20301		;AUTOMATIC STRUCTURE RECOGNITION
	SUBTTL	MOUNT COMMAND FOR TAPE AND DISK

	;THIS COMMAND IS ONLY USED FOR STRUCTURE MOUNTING
	;
	;	THIS  MESSAGE CONTAINS A .STRDV FOR THE STRUCTURE DEVICE
	;	BLOCK


	;	AND OPTIONALLY AN ALIAS BLOCK OF .STALS

		.STALS==20401

	;IF ALIAS IS NOT SPECIFIED IT IS ASSUMED TO BE THE SAME AS THE
	;STRUCTURE DEVICE BLOCK
	SUBTTL	IDENTIFY MESSAGE FOR TAPES

	;THIS MESSAGE WILL ASSOCIATE A TAPE DRIVE WITH A PARTICULAR TAPE
	;REQUEST OR TAPE

	;THERE WILL ALWAYS BE A TAPE DEVICE BLOCK
	;	.TAPDV

	;THE SECOND PART OF THE COMMAND CAN BE ONE OF THE FOLLOWING

	.SCRTP==20402		;SCRATCH TAPE BLOCK	(LEN 1)
	.VOLID==20403		;VOLUME ID BLOCK SPECIFYING
				;THE PARTICULAR VOLUME ID
	
	;.ORREQ			;TO SPECIFY THE REQUEST THE TAPE IS TO BE
				;ASSIGNED TO
	SUBTTL	RESPONSE MESSAGE

	;THE RESPONSE MESSAGE USES THE STANDARD ORION HEADER
	;AND ARGUMENT BLOCKS WITH VALID TYPES DESCRIBED BELOW

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!=======================================================!
;	!			FLAG WORD			!
;	!-------------------------------------------------------!
;	!		     ARGUMENT COUNT			!
;	!=======================================================!


	;THE VALID RESPONSE TYPES ARE

	;	.CMTXT		;FOR TEXT DATA

	;AT THE CURRENT TIME THE ONLY VALID ARGUMENTS FOR A RESPONSE
	;IS ASCIZ TEXT AND ACK ID CODE.
	;THIS CODE IS THE OPR HANDLE TO SEND ACK TO IF DESIRED.


	.ACKID==12000			;ACK FOR OPR ID
					;ORIGIN OF ANSWER (TERMINAL # OR NODE
					;NAME IN SIXBIT

		;THIS BLOCK HAS TWO WORDS OF DATA
		;
		;1	ACK ID  FOR OPR
		;2	NODE OR TERMINAL NUMBER

	;IN THE FUTURE, WHEN ANSWER BLOCKS ARE SUPPORTED
	;OTHER COMMAND FUNCTION CODES WILL BE ALLOWED.
	SUBTTL	LOCK/UNLOCK COMMAND

	;THIS MESSAGE CONTAINS THE FOLLOWING BLOCKS


	;.STRDV		;STRUCTURE BLOCK
	;.ORTIM		;TIME BLOCK


	;THE TIME BLOCK IS OPTIONAL
SUBTTL	COMMAND Message

;THIS MESSAGE CONSISTS OF THE STANDARD MESSAGE HEADER FOLLOWED BY A PARSER
;BLOCK AS DEFINED BELOW

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!=======================================================!
;	!			FLAG WORD			!
;	!-------------------------------------------------------!
;	!                    ARGUMENT COUNT                     !
;	!=======================================================!


;	!-------------------------------------------------------!
;	!		COMMAND OBJECT TYPE			!
;	!-------------------------------------------------------!
;	!		   SOURCE NODE				!
;	!-------------------------------------------------------!
;	!		OFFSET  TO PARSER BLOCK			!
;	!-------------------------------------------------------!
;	!              OFFSET  TO TEXT OF COMMAND               !
;	!=======================================================!

	PHASE	.OHDRS
COM.TY:! BLOCK	1			;OBJECT TYPE CODE
					;VALID FOR APPLICATIONS ONLY
COM.SN:! BLOCK	1			;SOURCE NODE OF COMMAND
COM.PB:! BLOCK	1			;POINTER TO THE PARSER BLOCK
COM.CM:! BLOCK	1			;POINTER TO MESSAGE TEXT
COM.SZ:!				;SIZE OF HEADER
	DEPHASE

COM.AL==COM.SZ-COM.SN		;SIZE OF ARGUMENT BLOCK

		;VALID FLAGS FOR THE COMMAND MESSAGE

	CM.NPR==1B0			;NO PROCESSING REQUIRED..SENT TO
					;ORION TO LOG

COMMENT \

THE PARSER DATA BLOCKS WILL BE SIMILIAR TO THE OTHER
DATA STRUCTURES USED IN OPR AND ORION. EACH FIELD PARSED
WILL GENERATE A BLOCK WITH THE LENGTH IN THE LEFT HALF
AND COMMAND CODE TYPE IN THE RIGHT HALF.

THE LENGTH OF THE BLOCK INCLUDES THE HEADER WORD.

 .CMKEY==0	WORD CONTAINING KEYWORD IDENTIFIER
 .CMNUM==1	WORD FOR NUMBER AND WORD FOR RADIX
 .CMNOI==2	NOT SAVED
 .CMSWI==3	WORD CONTAINING SWITCH IDENTIFIER
 .CMIFI==4	FILE SPEC IN GALAXY FD FORMAT
 .CMOFI==5	FILE SPEC IN GALAXY FD FORMAT
 .CMFIL==6	FILE SPEC IN GALAXY FD FORMAT
	
 .CMFLD==7	ASCIZ STRING
 .CMCFM==10	JUST HEADER WORD
 .CMDIR==11	DIRECTORY NUMBER OR PPN
 .CMUSR==12	USER NUMBER OR PPN
 .CMCMA==13	JUST HEADER WORD
 .CMINI==14	NOT SAVED
 .CMFLT==15	NUMBER
 .CMDEV==16	DEV. DESIGNATOR
 .CMTXT==17	ASCIZ STRING
 .CMTAD==20	INTERNAL DATE/TIME
 .CMQST==21	ASCIZ STRING
 .CMUQS==22	ASCIZ STRING
 .CMTOK==23	ASCIZ STRING
 .CMNUX==24	NUMBER WORD AND RADIX WORD
 .CMACT==25	ASCIZ STRING
 .CMNOD==26	NODE SPECIFICATION -ONE WORD
\
	SUBTTL	DN60 COMMAND MESSAGE

	;THIS MESSAGE FOR CDRIVE TO SEND ORION AN OPR COMMAND
	;TO BE PARSED.

	;THIS MESSAGE CONTAINS THE FOLLOWING BLOCKS

	;	.ORNOD		;NODE BLOCK
	;	.ORD60		;D60 BLOCK

	;	(DATA WORD 1) PORT LINE INFO
	;	(DATA WORD 2) DN60 CHARACTERISTICS DEFINED IN QSRMAC
	;
	;	.CMTXT		;TEXT BLOCK (MUST HAVE CR,LF)
	SUBTTL	WTO,WTOR AND ACK FORMATS FOR ALL PROGRAMS

	;THE FOLLOWING IS A DESCRIPTION OF THE NEW FORMAT FOR WTO,
	;WTOR AND ACK MESSAGES TO BE SENT BY ANY PROGRAM AND ORION.
	;THE FORMAT CONSISTS OF A HEADER, FLAG WORD, ARGUMENT COUNT
	;WORD AND AN ARGUMENT BLOCK. THE ARGUMENT COUNT WORD REFLECTS 
	;THE NUMBER OF ARGUMENT BLOCKS INCLUDED IN THE MESSAGE.
	;THE LENGTH ASSOCIATED WITH EACH BLOCK INCLUDES THE ARGUMENT
	;BLOCK HEADER WORD.
	;THE HEADER IS THE  STANDARD GALAXY MESSAGE HEADER  DEFINED 
	;IN ORNMAC.

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!=======================================================!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	
;
;			ARGUMENT DATA BLOCK
;	
;	
;	
;	!-------------------------------------------------------!
;	! LENGTH OF ARGUMENT BLOCK  !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                 DATA FOR THE ARGUMENT                 \
;	\                                                       \
;	!=======================================================!

	PHASE	MSHSIZ
	;THE HEADER DATA USES THE STANDARD ORION MESSAGE BLOCK
	;WITH MESSAGE HEADER, .OFLAG, AND .OARGC

	;THE ARGUMENT BLOCK IS THE STANDARD ARGUMENT BLOCK USED IN
	;ORION MESSAGES

	;VALID ARGUMENT TYPES FOR WTO MESSAGE

.WTTXT==0			;TEXT MESSAGE
.WTOBJ==1			;GALAXY OBJECT BLOCK FOR USE BY GALAXY
				;COMPONENTS..MUST BE PRIVILEDGED
.WTDES==2			;DESTINATION VALUE
.WTJOB==3			;JOB NUMBER OF USER OR OTHER USER
				;PRIVILEGED
.WTERR==4			;ERROR CODE FOR ERROR DISPLAY
.WTRTE==5			;ROUTE CODE FOR FUNCTION SETUP OPRS
.WTTYP==6			;TYPE FIELD TEXT ..PRIVILEGED
.WTANS==7			;ANSWER BLOCK FOR WTOR ONLY
.WTACD==10			;APPLICATION CODE BLOCK
.WTOCD==11			;OBJECT TYPE BLOCK

	.WTLST==.WTOCD		;LAST VALID TYPE ASSIGNED


	;VALID FLAGS FOR WTO MESSAGE IN .OFLAG
	WT.KIL==1B0		;KILL THE WTOR REQUEST USING .MSCOD HANDLE
	WT.MOR==1B1		;MORE DISPLAY PAGES ARE COMMING.
	WT.NFY==1B2		;NOTIFY IF PID GOES AWAT VIA TTMSG(-10 TRMOP)
	WT.JOB==1B5		;JOB MESSAGE..PRIVILEGED
	WT.SJI==1B6		;SUPPRESS JOB INFO ON DISPLAY
	WT.NFO==1B7		;NO FORMATING OF DISPLAY
	WT.NDA==1B8		;NO DASHES ON TYPE MESSAGE
	WT.KAL==1B9		;KILL ALL MESSAGES FOR THE JOB
	WT.PRV==WT.JOB!WT.SJI!WT.NFO!WT.MOR!WT.NDA ;PRIVILEGE FLAGS


	WTOMAX==^D450		;LARGEST WTO MESSAGE ALLOWED
	TYPMAX==^D11		;LARGEST TYPE BLOCK IN WORDS
	TYPMIN==^D7		;STANDARD TYPE SIZE MAXIMUM IN WORDS
	TYPAPL==^D9		;SIZE OF APPLICATION TYPE MESSAGES

	SYSPRM	OB.WTO,OB.WTO,OB%WTO		;WTO FLAGS IN BATCH JOB TABLE
	SYSPRM	OB.BSS,OB.BSS,OB%BSS		;BATCH-STREAM NUMBER IS SET
	SUBTTL	ALIGN MESSAGE

	;THIS MESSAGE IS SENT TO DESCRIBE THE ALIGNMENT OPTIONS AND
	;FILE TO USE 

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!


	;THE ALIGN MESSAGE WILL ALWAYS CONTAIN AN OBJECT BLOCK
	;
	;	.OROBJ		OBJECT BLOCK
	;
	;THE FOLLOWING OPTIONS ARE ALSO VALID
	;
	;	.CMIFI		INPUT FILE SPEC TO USE
	.ALPAU==11100		;ALIGN PAUSE AMOUNT BETWEEN REPEATS
				;THE ARGUMENT DATA WILL CONTAIN TIME
	.ALRPT==11101		;THE REPEAT COUNT ON THE FILE
				;THE DATA WILL CONTAIN THE COUNT
	.ALSTP==11102		;STOP THE ALIGNMENT..NO DATA FOR THIS FIELD
SUBTTL	The STATUS Message

;THIS MESSAGE IS SENT BY A PROCESSOR TO ORION IN RESPONSE TO A
;SHOW MESSAGE REQUESTING STATUS.

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!=======================================================!
;	!                 ORNMAC VERSION NUMBER                 !
;	!=======================================================!
;	\                                                       \
;	\                    THE OBJECT AREA                    \
;	\                                                       \
;	!=======================================================!
;	\                                                       \
;	\                TEXT BLOCK OF STATUS                   \
;	\                                                       \
;	!=======================================================!

;THE STATUS MESSAGE CONSISTS OF AS MANY OBJECT AREA/TEXT BLOCKS
;PAIRS AS NEEDED.
;THE FIRST WORD OF A TEXT BLOCK IS THE NUMBER OF WORDS IN THE
;TEXT BLOCK, FOLLOWED BY AN ASCIZ STRING

	PHASE	OBJSIZ		;START AFTER THE OBJECT AREA

STS.TB:!	BLOCK	1		;START OF BLOCK -- COUNT FOR THIS BLOCK
STS.TX:!				;WHERE THE TEXT IS

	DEPHASE
SUBTTL	The SHOW CONTROL-FILE Message

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!


	;THE SHOW-CONTROL-FILE COMMAND WILL ALWAYS CONTAIN AN ORION 
	;OBJECT BLOCK
	;
	;	.OROBJ		OBJECT BLOCK TYPE

	;THE SHOW CONTROL-FILE COMMAND SUPPORTS ONE ARGUMENT TYPE
	;
	.SHCLN==11200		;LINE COUNT FOR SHOW CONTROL-FILE
	SUBTTL	SHOW STATUS MESSAGE

	;THE SHOW STATUS MESSAGE IS SENT TO QUASAR REQUESTING
	;INFORMATION ABOUT ONE OR MORE OBJECTS

;	!=======================================================!
;	\                                                       \
;	\                  THE MESSAGE HEADER                   \
;	\                                                       \
;	!-------------------------------------------------------!
;	!                       FLAG WORD                       !
;	!-------------------------------------------------------!
;	!                  ARGUMENT COUNT WORD                  !
;	!=======================================================!
;	


;			ARGUMENT DATA BLOCKS


;	
;	!=======================================================!
;	!  LENGTH OF THE ARGUMENT   !     TYPE OF ARGUMENT      !
;	!-------------------------------------------------------!
;	\                                                       \
;	\                     ARGUMENT DATA                     \
;	\                                                       \
;	!=======================================================!


	;THE SHOW STATUS MESSAGE CONISTS OF AN OBJECT BLOCK
	;THAT DESCRIBES THE NUMBER AND TYPE OF OBJECTS DESIRED.
	;
	;	.OROBJ		OBJECT BLOCK TYPE
	;
	;THE OBJECT BLOCK HAS THE FOLLOWING ADDITIONAL VALUES AND MEANINGS
	;
	;	TYPE		VALUE			MEANING
	;
	;	OBJ.TY		-1			ALL OBJECTS
	;	OBJ.UN		-1			ALL UNITS
	;	OBJ.ND		-1			ALL NODES

	;
	;THE FOLLOWING FLAGS ARE USED TO DESCRIBE THE TYPE OF JOBS
	;TO BE LISTED FOR THE OBJECT DESCRIBED
	;
	.STACT==11201		;JOBS ON ACTIVE OBJECTS
	.STHLD==11202		;JOBS WAITING FOR OBJECTS
	.STWAT==11203		;WAITING TO BE PROCESSED JOBS
	.STALL==11204		;ALL JOBS
	SUBTTL	SHOW STATUS IBM-NODE


	;This command contains only a .ORNOD block to specify the node to
	;be displayed





	SUBTTL	SHOW PARAMTERS IBM-NODE

	;This command contains only a .ORNOD block to specify the node to
	;be displayed
	SUBTTL	LOGOUT Message - Function 27 (sent by IPCC)

IFN FTUUOS,<

;	!=======================================================!
;	!          LENGTH           !   FUNCTION 27 - LOGOUT    !
;	!-------------------------------------------------------!
;	!        JOB NUMBER         !  JBTLOC(J)  !    FLAGS    !
;	!=======================================================!

	PHASE	0

LGO.HD:! BLOCK	1		;THE HEADER FROM IPCC
LGO.JB:! BLOCK	1		;USERS JOB NUMBER
	LG.JOB==-1,,0		;THE JOB NUMBER OF THE USER LOGGING OUT
	LG.LOC==777B26		;THE CURRENT REMOTE STATION NUMBER OF THIS JOB
	LG.BAT==1B27		;THIS IS A BATCH JOB
	LG.DFR==1B28		;DEFERRED MODE SPOOLING

LGO.SZ:!			;SIZE OF THE LOGOUT MESSAGE

	DEPHASE

>  ;END IFN FTUUOS

IFN FTJSYS,<

;	!=======================================================!
;	!                 FUNCTION 27 - LOGOUT                  !
;	!-------------------------------------------------------!
;	!    NO. OF HEADER WORDS    !        JOB NUMBER         !
;	!-------------------------------------------------------!
;	!           FLAGS           !      STATION NUMBER       !
;	!=======================================================!

	PHASE 0

LGO.HD:! BLOCK	1		;HEADER FROM IPCC
LGO.JB:! BLOCK	1		;JOB INFORMATION
	LG.NHW==-1,,0		;NUMBER OF HEADER WORDS
	LG.JOB==0,,-1		;JOB NUMBER

LGO.FL:! BLOCK	1		;FLAG WORD
	LG.BAT==1B0		;THIS WAS A BATCH JOB
	LG.DFR==1B1		;DEFERRED MODE SPOOLING
	LG.LOC==0,,-1		;JOBS STATION NUMBER

LGO.SZ:!			;SIZE OF THE LOGOUT MESSAGE

	DEPHASE

>  ;END IFN FTJSYS
SUBTTL	ORION Fatal Error Codes

;ARGUMENTS USED ARE

;	X	'SUFFIX','TEXT'

;THE EXPANDER MUST DEFINE THE CORRECT X MACRO

DEFINE ERRCDS,<
	XLIST

	X	AON,<Application Block, Object Block and Object Type Block Not allowed Together in WTOR/WTO/ACK Message>
	X	CMI,<Command Message Invalid>
	X	UPO,<Unknown Processor Object>
	X	UPT,<Unidentified Processor Type>
	X	IPE,<Insufficient Privileges Enabled>
	X	IOE,<Invalid OPR Entry>
	X	IFC,<Illegally Formatted Command Message>
	X	IRS,<Illegal Range Specified>
	X	MTS,<Message Too Short>
	X	BML,<Bad Message Length>
	X	CSU,<Cannot SEND to specified User>
	X	NOM,<No Outstanding Messages>
	X	ICS,<Invalid Argument Count Specified in Command>
	X	IAL,<Invalid Argument Length Specified>
	X	ITM,<Invalid Type Argument in Message>
	X	ONS,<OPR Not Setup..Command Ignored>
	X	DTM,<Duplicate Type Specified in Message>
	X	WJP,<WTO, WTOR, or ACK Job Number Field Requires Privileges>
	X	WTP,<WTO, WTOR or ACK Object Type Field Requires Privileges>
	X	IWF,<Invalid WTO or WTOR Field>
	X	WOP,<WTO, WTOR, or ACK Object Block Field Requires Privileges>
	X	IOU,<Invalid Object Unit Specified in Object Block>
	X	RIW,<Range Invalid in WTO, WTOR or ACK Object Block>
	X	OPD,<OPR PID Already Defined>
	X	ISM,<OPR SETUP Message Invalid..OPR did not send HELLO>
	X	OAS,<OPR Already SETUP..OPR Deleted>
	X	ANI,<Application Name Invalid in Application Hello Message>
	X	ODE,<OPR Doesn't Exist..Message Not Sent>
	X	MTF,<WTO Message Type Field required with WT.SJI set>
	X	IAC,<Invalid Acknowledgement code,,Code was Zero>
	X	CNI,<Command Not Yet Implemented>
	X	IPS,<Invalid Pid for Sender  Pid was zero>
	X	ISC,<Invalid Switch Specified in Command>
	X	WNA,<Write To Operator Function not Allowed for this Job>
	X	LNI,<Logging not Enabled>
	X	RNA,<Range not allowed in START Command with /DEVICE>
	X	IQS,<Invalid Queue Specified in Command>
	X	SUF,<SYSERR update Failed on REPORT Command>
	X	IUM,<Invalid User Specified in Message>
	X	ARP,<ACK Messages Require WHEEL or OPERATOR Privileges>
	X	NRW,<Notify Message requires WHEEL or OPERATOR Privileges>
	X	JDE,<Job to be Notified No Longer Exists>
	X	NJD,<Job to be Notified is DETACHED .. Notify Ignored>
	X	BNR,<Batch Commands Not Allowed From Remote Nodes>
	X	NOD,<No Operators Defined>
	X	DOL,<Device Already Online   COMMAND IGNORED>
	X	SFF,<Scheduler Functions Failed for Show Scheduler Command>

	LIST
	SALL
>;END OF DEFINE ERRCDS
	DEFINE	ERRTXT,<
		XLIST
	X	ACI,<Application Code ^D/G$ARG1/ Invalid .. WTO Rejected>
	X	AHF,<^T/@G$ARG1/ Hello Acknowledgement Failed .. Hello Ignored>
	X	ANS,<Application ^T/@G$ARG1/ not Signed on yet .. WTO/WTOR/ACK Rejected>
	X	CPM,<WTO/WTOR/ACK request for ^T/@G$ARG1/ has Different Pid from Hello ..WTO Rejected>
	X	CSF,<Class Scheduler Error: ^E/G$ARG1/>
	X	DDI,<Disk Drive Number ^D/G$ARG1/ Invalid on SET Command>
	X	DJF,<SET ONLINE Failed because ^E/G$ARG1/>
	X	IAP,<^T/@G$ARG1/ is not Running>
	X	ICN,<Channel Number ^D/G$ARG1/ Invalid on SET Command>
	X	IDD,<^T/@G$ARG1/ is not a Valid Disk Structure .. Command Ignored>
	X	IDS,<^T/@G$ARG1/ is not supported for /DEVICE .. Command Ignored>
	X	IMT,<Illegal Message Type ^O/G$ARG1/>
	X	INS,<Operator at Node ^N/G$ARG1/ not Enabled for Node ^N/G$ARG2/>
	X	ION,<OPR Hello Message Node ^N/G$ARG1/ Invalid .. OPR Ignored>
	X	IOT,<Invalid Object Type ^O/G$ARG1/ Specified in Message>
	X	ITD,<^T/@G$ARG1/ is not a Valid Tape Drive .. Command Ignored>
	X	LAO,<ORION Log File ^F/@LOGFD/ Already Open .. Command Ignored>
	X	LFE,<ORION Log Error ^E/[-1]/  Logging Disabled>
	X	MNV,<Message ^D/G$ARG1/ No Longer Valid .. Sender has gone away>
	X	NMC,<No Messages Found with Code ^O/G$ARG1/>
	X	NMN,<No Messages for Node ^N/G$ARG1/>
	X	NON,<No Operators at Node ^N/G$ARG1/>
	X	NSM,<Message ^D/G$ARG1/ does not exist>
	X	NTD,<^T/@G$ARG1/ is not a Tape Drive or Valid Structure .. Command Ignored>
	X	OAE,<DN60 OPR at Node ^N/G$ARG1/ already exists>
	X	ONE,<OPR not Enabled for Message ^D/G$ARG1/ at Node ^N/G$ARG2/>
	X	OSF,<OPR Setup Failure on PID ^O/G$ARG1/ .. OPR Ignored>
	X	PER,<Command Error: ^T/@G$ARG1/>
	X	RWF,<^T/@G$ARG1/ File Retrevial Waits failed  ^E/[-2]/>
	X	SIC,<Set Online ^T/@G$ARG1/ Channel Number ^O/G$ARG2/ Invalid>
	X	SID,<Set Online ^T/@G$ARG1/ Device Number ^O/G$ARG2/ Invalid>
	X	SJF,<Set Job Scheduler Error: ^E/G$ARG1/>
	X	SJN,<Set Job Invalid ,, Job ^D/G$ARG1/ Not Logged In>
	X	SPI,<Set Priority Value ^D/G$ARG1/ Invalid  63 is maximum>
	X	SSF,<Set Scheduler Error: ^E/G$ARG1/>
	X	TAB,<Take File Aborted Because ^T/@G$ARG1/ not running
		on Command "^T/@G$ARG2/">
	X	WTL,<WTO/WTOR Message Length ^D/G$ARG1/ Exceeds Max of ^D/[WTOMAX]/>
	X	WVN,<Wrong ORNMAC Version Number ORION used Version ^O/[%%.OPR]/ AND OPR used Version ^O/.OHDRS+OPH.OV(MI)/>
		LIST
		SALL
	>;END ERRTXT

	DEFINE	ORNMSG,<
		XLIST
	X	CSE,<Class Scheduler ^T/@G$ARG1/>
	X	CWM,<Message ^D/G$ARG1/ Canceled^I/@G$ARG3/>
	X	FRW,<File Retrevial Waits ^T/@G$ARG1/d>
	X	JLO,<Message ^D/G$ARG1/ Canceled .. Job ^D/G$PRVS,MD.PJB/ Logged Out>
	X	LFC,<ORION Logging Disabled by ^I/@JOBTXT/>
	X	MCJ,<^D/G$ARG2/ Message(s) Canceled>
	X	ODM,<OUTPUT DISPLAY for OPR Modified>
	X	OLO,<ORION Logging Enabled by ^I/@JOBTXT/>
	X	SCC,<SEND Command Completed>
	X	SEM,<SYSERR entry made by the REPORT Command>
	X	SJM,<Job ^D/G$ARG1/ Modified>
	X	SOA,<Set Online Accepted>
	X	SSJ,<Job ^D/G$ARG1/ now in Class ^D/G$ARG2/>
	X	SSS,<Scheduler Setting Modified>
		LIST
		SALL
		>;END ORNMSG
	DEFINE	ERRSET,<
		EXTERNAL TXTTBL
		EXTERNAL STSTBL
		EXTERNAL ERRTBL
		EXTERNAL RPTERR
		DEFINE	X(SUFFIX,TEXT),<
		EXTERNAL	E$'SUFFIX
		>;END X
		ERRCDS
		ERRTXT
		ORNMSG
	>;END ERRSET
	SUBTTL	PARSER SETUP MACROS

	DEFINE	PARSET,<
	EXTERNAL	P$GPDB		;GET THE PDB BLOCK
	EXTERNAL	P$PNXT		;GET NEXT PDB GIVEN A PDB BLOCK
	EXTERNAL	P$PERR		;GET ERROR BLOCK FROM PDB GIVEN A PDB
	EXTERNAL	P$PDEF		;GET DEFAULT FILLING ROUTINE GIVEN A PDB
	EXTERNAL	P$PACT		;GET ACTION ROUTINE GIVEN A PDB

	EXTERNAL	P$NARG		;NEXT ARGUMENT TYPE TO PROCESS
	EXTERNAL	P$SETU		;SETUP POINTER TO PARSER BLOCKS
	EXTERNAL	P$CURR		;GET THE CURRENT LOCATION
	EXTERNAL	P$PREV		;SET THE PREVIOUS TO CURRENT
	EXTERNAL	P$FLOT		;FLOATING POINT NUMBER
	EXTERNAL	P$INIT		;PARSER INIT
	EXTERNAL	P$INTR		;PARSER INTERRUPTS
	EXTERNAL	P$TINT		;TIMER INTERRUPTS
	EXTERNAL	P$NFLD		;NEXT FIELD TYPE AND BLOCK ADDRESS
	EXTERNAL	P$DIR		;DIRECTORY FIELD
	EXTERNAL	P$NEXT		;GET NEXT FIELD
	EXTERNAL	P$TIME		;TIME/DATE CHECK
	EXTERNAL	P$COMMA		;COMMA CHECK
	EXTERNAL	P$CFM		;CONFIRM CHECK
	EXTERNAL	P$KEYW		;KEYWORD CHECK
	EXTERNAL	P$SWIT		;SWITCH CHECK
	EXTERNAL	P$USER		;USER CHECK
	EXTERNAL	P$NUM		;NUMBER CHECK
	EXTERNAL	P$FILE		;FILE SPEC CHECK
	EXTERNAL	P$IFIL		;INPUT FILE SPEC
	EXTERNAL	P$OFIL		;OUTPUT FILE SPEC
	EXTERNAL	P$FLD		;FIELD CHECK
	EXTERNAL	P$TOK		;TOKEN CHECK
	EXTERNAL	P$NODE		;NODE CHECK
	EXTERNAL	P$SIXF		;SIXBIT FIELD CHECK
	EXTERNAL	P$RNGE		;RANGE OF NUMBERS
	EXTERNAL	P$TEXT		;TEXT CHECK
	EXTERNAL	P$DEV		;DEVICE CHECK
	EXTERNAL	P$QSTR		;QUOTED STRING
>;END PARSET
SUBTTL	Node/Operator Data Base

	;THE NODE LIST EXTERNAL CONTAINS ONE FOR EACH NODE THAT
	;HAS SIGNED ON TO ORION

	PHASE	0
NOD.NM:! BLOCK	1			;NODE NAME (SIXBIT)
NOD.NU:! BLOCK	1			;NODE NUMBER
NOD.OP:!BLOCK	1			;OPR LIST NUMBER
NOD.ML:!BLOCK	1			;MESSAGE LIST NUMBER
NOD.CT:!BLOCK	1			;NUMBER OF MESSAGES QUEUED FOR
					; THIS NODE.
NOD.AO:!BLOCK	1			;LIST OF ALTERNATE OUTPUT NODES
NOD.AI:! BLOCK	1			;LIST OF ALTERNATE INPUT NODES
NOD.TM:!BLOCK	1			;TIME OF LAST AUTO DISPLAY
NOD.OC:! BLOCK	1			;NUMBER OF OPRS AT NODE
NOD.FL:! BLOCK	1			;FLAGS FOR NODE LIST
	ND.NLE==1B0			;NODE LIST ENABLED
	ND.SYS==1B1			;SYSTEM OPERATOR NODE
	ND.D60==1B2			;D60 TYPE NODE
NOD.SZ:!				;SIZE OF THE NODE BLOCK
	DEPHASE

	SYSPRM	NOD.NX,NOD.NU,NOD.NM	;NUMBER ON -10 NAME ON -20


	;THE FOLLOWING IS THE FORMAT OF THE ALTERNATE NODE LIST
	;FOR EACH NODE. THIS ENTRY IS GENERATED BY THE ENABLE COMMAND


NAL.FL:! BLOCK	1			;FLAGS FOR ALTERNATE NODE
NAL.NM:! BLOCK	1			;NAME OF NODE
NAL.NU:! BLOCK	1			;NUMBER OF NODE
NAL.AD:! BLOCK	1			;ADDRESS OF NODE ENTRY
NAL.SZ:!				;SIZE OF THE ENTRY
	SUBTTL	OPR LIST ENTRY

	;THIS A DESCRIPTION OF AN OPR BLOCK USED TO DESCRIBE
	;EACH OPR THAT HAS SIGNED ON TO ORION. THE OPRS ARE
	;ASSOCIATED WITH THE NODE AT WHICH THEY ARE LOCATED.
	PHASE	0
OPR.PD:!BLOCK	1			;PID FOR THIS OPR
OPR.FL:!BLOCK	1			;FLAG WORD FOR THIS OPR
	OP.NST==1B0			;OPR NOT SETUP YET
	OP.REM==1B1			;REMOTE OPERATOR
	OP.TAK==1B2			;IN A TAKE COMMAND
	OP.ABT==1B3			;ABORT TAKE FILES
	OP.D60==1B4			;DN60 OPERATOR
OPR.OF:! BLOCK	1			;OBJECT FLAGS
OPR.AF:! BLOCK	1			;APPLICATION SCREENING FLAGS
OPR.OC:! BLOCK	1			;COMMANDS OUTPUT TO THIS OPR
OPR.IC:! BLOCK	1			;COMMANDS INPUT FROM THIS OPR
OPR.ND:! BLOCK	1			;NODE ENTRY ADDRESS FOR THIS OPR
OPR.LS:! BLOCK	1			;OPR LIST CONTAINING THIS ENTRY
OPR.TN:! BLOCK	1			;TERMINAL NUMBER OF OPR
OPR.JB:! BLOCK	1			;JOB NUMBER OF THE OPR
OPR.US:! BLOCK	1			;USER NUMBER OR PPN
IFN	FTUUOS,<
OPR.UN:! BLOCK	2			;USER NAME ON THE -10
>;END FTUUOS
OPR.TP:! BLOCK	1			;TABLE ENTRY POINTER
IFN	FTDN60,<
OPR.PL:! BLOCK	1			;DN60 PORT LINE INFO
OPR.DN:! BLOCK	1			;DN60 CHARACTERISTICS
>;END FTDN60
OPR.SZ:!				;SIZE OF THE OPR BLOCK
	DEPHASE


DEFINE	X(A,B),<
	EV.'B==1B<.ZZ>
	JM.'B==1B<.ZZ+1>
	OM.'B==1B<.ZZ+2>
	OP.OTH=OP.OTH!EV.'B
	OP.AJB==OP.AJB!JM.'B
	OP.AOP==OP.AOP!OM.'B
	.ZZ==.ZZ+3
IFLE <^D36-.ZZ>,<PRINTX ? TOO MANY OBJECTS DEFINED IN OBJORN
	PRINTX	COMPILE ABORTED
	END>
>;END OF X
	OP.AJB==0
	OP.AOP==0
	OP.OTH==0


	.KYUSR==2			;USER CODE(OLD .OTNCU)
	EV.USR==1B0			;OTHER USER MESSAGES
	JM.USR==1B1			;USER JOB MESSAGES (IF ANY)
	OM.USR==1B2			;USER OPERATOR MESSAGES
	OP.AUS==1B0!1B1!1B2		;ALL USER MESSAGES

	;UPDATE ALL TO INCLUDE USER DATA

	OP.AJB==OP.AJB!JM.USR
	OP.AOP==OP.AOP!OM.USR
	OP.OTH==OP.OTH!EV.USR

	.ZZ==3			;FIRST THREE FOR USER MESSAGES
	OBJORN		;BUILD THE VALUES

	OP.AST==.ZZ+3			;APPLICATION START BIT
	OP.ALL==OP.AJB!OP.AOP!OP.OTH	;ALL MESSAGES ALLOWED

	WO.EVM==1B0			;OTHER MESSAGES
	WO.JOB==1B1			;JOB MESSAGE
	WO.OAC==1B2			;OPR ACTION MESSAGE

	WO.ALL==WO.EVM!WO.JOB!WO.OAC	;ORIGINAL FLAGS

	SUBTTL	OPR TABLE DATA BASE STRUCTURE

	;THIS IS THE FORMAT OF THE LIST ENTRY FOR THE OPR DATA BASE
	;LIST WHICH IS BUILT BY ORION

	PHASE	0

TOP.PD:! BLOCK	1		;PID OF THE OPR
TOP.OA:! BLOCK	1		;ADDRESS OF OPR ENTRY
TOP.SZ:!			;SIZE OF THE DATA BASE BLOCK

	DEPHASE
	SUBTTL	OPERATOR MESSAGE LIST ENTRY

	;THIS LIST CONTAINS ALL OPERATOR MESSAGES REQUIRING A REPLY
	;AND IS ASSOCIATED WITH EACH NODE
	PHASE	0
MSL.FL:!BLOCK	1			;MESSAGE LIST FLAGS
	MS.NDY==1B35			;MESSAGE HASN'T BEEN DISPLAYED
	MS.TER==1B34			;NOTIFY ON TERMINAL ON SEND FAILURE
MSL.PD:!BLOCK	1			;PID OF THE SENDER
MSL.JB:!BLOCK	1			;JOB NUMBER MESSAGE IS FOR
MSL.JT:! BLOCK	1			;LOGGED IN TIME OF SENDER
MSL.ND:! BLOCK	1			;NODE THE MESSAGE IS PART OF
MSL.CD:! BLOCK	1			;CODE PASSED IN WTOR
MSL.ID:! BLOCK	1			;ID NUMBER OF MESSAGE
MSL.SZ:!				;SIZE OF THE MESSAGE LIST
	DEPHASE
	SUBTTL	CONSTANT DEFINITIONS FOR PARSER 

NCHPW==5			;NUMBER OF ASCII CHARACTERS PER WORD
BUFSIZ==200			;SIZE OF INPUT TEXT BUFFER
ATMSIZ==BUFSIZ			;SIZE OF ATOM BUFFER FOR COMND JSYS
FDBSIZ==.CMDEF+2		;SIZE OF FUNCTION DESCRIPTOR BLOCK

	;GTJFN BLOCK FOR COMMAND

IFN FTJSYS,<
GJFSIZ==.GJRTY+2		;SIZE OF GTJFN BLOCK USED BY COMND JSYS
>	;END IFN FTJSYS

IFN FTUUOS,<
GJFSIZ==FDXSIZ
>   ;END IFN FTUUOS
	SUBTTL	PARSER BLOCK DESCRIPTION

	;THE FOLLOWING SYMBOLS ARE USED TO DESCRIBE AN
	;ENTRY IN THE COMMAND MESSAGE AS OUTPUT BY THE PARSER

	PHASE	0
PFD.HD:! BLOCK	1			;HEADER WORD FOR BLOCK
	PF.TYP==0,,-1			;TYPE IN THE LEFT HALF
	PF.LEN==-1,,0			;LENGTH IN RIGHT HALF
					;INCLUDES THIS WORD
PFD.D1:! BLOCK	1			;FIRST DATA WORD
PFD.D2:! BLOCK	1			;SECOND DATA WORD (IF NECESSARY)
PFD.SZ:! 				;SIZE OF THE BLOCK

	DEPHASE

	SUBTTL	PARSER FLAG VALUES

	P.TAKE==1B0			;TAKE COMMAND PROCESSED
	P.CTAK==1B1			;COMMAND FROM A TAKE COMMAND
	P.ACTE==1B2			;ACTION ROUTINE ERROR
	P.NPRO==1B3			;NO PROCESSING FOR COMMAND
	P.ERRO==1B4			;ERROR FLAG..ERROR OCCURRED
	P.REPA==1B5			;REPARSE REQUIRED
	P.INTE==1B6			;INTERRUPT EXIT FLAG
	P.DSPT==1B7			;DISPLAY THIS TAKE COMMAND
	P.ENDT==1B8			;END OF TAKE FILE
	P.DERR==1B9			;DEFAULT ROUTINE ERROR
	P.CEOF==1B10			;CORE PARSE END OF FILE

	TEMTSZ==10			;SIZE OF TEMP TABLE FOR SHRSWT
	SUBTTL	ARGUMENT BLOCK FOR CALLING THE PARSER

	;THIS IS A DESCRIPTION OF THE ARGUMENT BLOCK USED
	;TO CALL THE PARSER ROUTINE (OPRPAR)
	;	S1/	LENGTH OF THE BLOCK
	;	S2/	ADDRESS OF THE BLOCK

	PHASE	0
PAR.TB:! BLOCK	1			;ADDRESS OF THE TABLES
PAR.PM:! BLOCK	1			;ADDRESS OF THE PROMPT STRING
					;DEFAULT TO OPR> IF ZERO
PAR.CM:! BLOCK	1			;ADDRESS TO STORE PARSED DATA
					;DEFAULT TO GET PAGE IF ZERO
PAR.SR:! BLOCK	1			;ADDRESS OF THE STRING TO PARSE
					;DEFAULT TTY IF NOT SPECIFIED OR ZERO
					;-1 MEANS DO A RESCAN FOR INCORE
PAR.SZ:!				;SIZE OF THE PARSER CALLING BLOCK
	SUBTTL	CALL BLOCK FOR ACTUON ROUTINES

	;THIS BLOCK IS A DESCRIPTION OF THE ELEMENTS AVAILABLE TO THE
	;ACTION,PREFILL, AND ERROR ROUTINES WHEN CALLED

	;CALL	S1/	LENGTH OF THE BLOCK
	;	S2/	ADDRESS OF THE BLOCK
	COMMENT \	;HERE FOR COMMENT ONLY... ARE DEFINED IN GLXMAC

	PHASE	0
CR.FLG:! BLOCK	1			;OFFSET FOR THE FLAG WORD
CR.RES:! BLOCK	1			;OFFSET FOR THE RESULT WORD
CR.PDB:! BLOCK	1			;GIVEN PDB,,USED PDB
CR.COD:! BLOCK	1			;CODE TYPE OF PROCESSED FIELD
CR.SIZ:!				;SIZE OF THE BLOCK

	DEPHASE
	\;END OF COMMENT
	PC.SIZ==CR.SIZ+1
	CR.SAV==CR.SIZ			;DEFINE THE SAVE BLOCK
	SUBTTL	RETURN BLOCK FROM THE PARSER

	;THIS BLOCK IS A DESCRIPTION OF THE ARGUMENT BLOCK RETURNED
	;BY THE PARSER.
	;	S1/	LENGTH OF THE BLOCK
	;	S2/	ADDRESS OF THE BLOCK

	PHASE	0
PRT.FL:! BLOCK	1			;FLAG WORD FOR RETURN
PRT.CM:! BLOCK	1			;COMMAND MESSAGE ADDRESS
PRT.CF:! BLOCK	1			;COMMAND FLAG WORD
PRT.MS:! BLOCK	1			;POINTER TO TEXT OF MESSAGE ON
PRT.SM:!				;SIZE OF PRT ON TRUE RETURN
					;FALSE RETURN
PRT.EM:! BLOCK	1			;POINTER TO ERROR MESSAGE ON
					;FALSE RETURN
PRT.EC:! BLOCK	1			;ERROR CODE RETURNED
					;FROM ACTION ROUTINE
PRT.SZ:!				;SIZE OF PRT ON FALSE RETURN
	DEPHASE
	SUBTTL	TABLE HANDLING DEFINITIONS

	;THESE DEFINITIONS DESCRIBE THE ENTRY BLOCK FOR ALL
	;SYNTAX TABLES USED BY ORION AND OPR

	PHASE 0
TAB.HD:! BLOCK	1			;HEADER WORD FOR TABLES
	TB.LEN==0,,-1			;LENGTH IN RIGHT HALF
TAB.IN:! BLOCK	1			;TABLE ADDRESS OF .CMINI FUNCTION
TAB.KY:! BLOCK	1			;TABLE ADDRESS OF MAIN KEYWORD TABLE
TAB.SZ:!				;SIZE OF THE ENTRY

	DEPHASE

	;FLAGS USED BY ORION

	F.WTXT==1B18		;WTO TEXT ARGUMENT PRESENT
	F.WOBJ==1B19		;WTO OBJECT BLOCK SPECIFIED
	F.WDES==1B20		;WTO DESTINATION FIELD PRESENT
	F.WJOB==1B21		;JOB NUMBER SPECIFIED IN WTO
	F.WERR==1B22		;ERROR CODE SPECIFIED IN WTO
	F.WRTE==1B23		;ROUTE CODE SPECIFIED IN WTO
	F.WTYP==1B24		;TYPE TEXT SPECIFIED IN WTO
	F.WANS==1B25		;ANSWER BLOCK SPECIFIED IN WTOR
	F.WACD==1B26		;APPLICATION CODE FIELD
	F.WOCD==1B27		;OBJECT TYPE BLOCK


	F.WFLG==F.WTXT!F.WOBJ!F.WDES!F.WJOB!F.WERR!F.WRTE!F.WTYP!F.WANS!F.WACD!F.WOCD
	SUBTTL	RESEND LIST DATA BASE

	;THIS LIST IS THE DATA STRUCTURE USED TO KEEP TRACK OF MESSAGES
	;NEEDING TO BE RESENT TO AN OPR OR A PROCESSOR THAT HAD A 
	;RECOVERABLE SEND FAILURE

	PHASE	0

RSD.HD:! BLOCK	1			;HEADER FOR LIST ENTRY
	RS.LEN==-1,,0			;LENGTH OF ENTRY
RSD.TM:! BLOCK	1			;TIME OF THE MESSAGE FIRST TRIED
RSD.MS:! BLOCK	1			;OFFSET IN BLOCK TO MESSAGE TEXT
RSD.FL:! BLOCK	1			;FLAGS FOR THE RESEND LIST
	R.WAIT==1B0			;WAIT FOR PID TO COME
	R.NSNT==1B1			;NOT SENT YET
	R.SQSR==1B2			;SEND TO QUASAR
	R.SOPR==1B3			;SEND TO OPR
	R.SAPL==1B4			;SEND TO APPLICATION
RSD.RT:! BLOCK	1			;COUNT OF RETRIES
RSD.PD:! BLOCK	1			;OFFSET FOR PID LIST
RSD.CT:! BLOCK	1			;NUMBER OF PIDS TO SEND TO
RSD.SZ:! 				;SIZE OF RESEND LIST

	DEPHASE
	SUBTTL	SEND FAILURE DATA BASE

	;THIS IS THE DATA BASE USED FOR THE SEND FAILURE TABLE

	PHASE 0
SFL.PD:! BLOCK	1			;PID WITH FAILURE
SFL.CT:! BLOCK	1			;COUNT OF MESSAGES WITH FAILURE
SFL.SZ:!

	DEPHASE
	SUBTTL	INTERRUPT DATA

	IPCLEV==1		;USE INTERRUPT LEVEL 1
	SUBTTL	DN200 OPR DEFINITIONS
	DEBSRV==200			;DEBUGGING SERVER TYPE

	SRVTSK==57			;TASK TO ACCEPT CONNECTIONS
	DCNTSK==47			;TASK TO DO OUTPUT FROM
	NUMSRV==3			;NUMBER OF SERVERS
	NETBSZ==^D8			;NETWORK BYTE SIZE

	;ORION SRV: DEFINITIONS

	CHNSRV==^D23			;CHANNEL TO START GETTING SERVERS AT


	;OPR SRV: DEFINITIONS

	INPCHN==2			;INPUT CHANNEL
	OUTCHN==3			;OUTPUT CHANNEL
	OUTSIZ==^D381			;SIZE OF LARGEST MESSAGE

	CHNINT==<-1_<<NUMSRV*2>-^D36>>B<<NUMSRV*2>+CHNSRV-1>	;GET BITS FOR AIC
					;SETTING ALL APPROPRIATE CHANNELS
	SUBTTL	DATA STRUCTURES FOR -20 SRV:

	;THE SERVER DATA BASE
	PHASE 0

SRV.CN:! BLOCK	1			;INTERRUPT CHANNEL FOR THIS SERVER
SRV.IN:! BLOCK	1			;INTERRUPT FLAG FOR CHANNEL
SRV.JF:! BLOCK	1			;JFN FOR SERVER LINK
SRV.FK:! BLOCK	1			;FORK HANDLE FOR PROCESS
SRV.SZ:!				;SIZE OF SERVER DATA BASE ENTRY


	DEPHASE


	;THE ACTIVE NETWORK SERVERS


	PHASE 0

NET.FK:! BLOCK	1			;FORK HANDLE OF THE SERVER
NET.PG:! BLOCK	1			;PROGRAM JFN FOR SERVER
NET.LJ:! BLOCK	1			;NETWORK LINK JFN
NET.SA:! BLOCK	1			;SERVER DATA BASE ADDRESS
NET.SZ:!				;SIZE OF DATA BASE

	DEPHASE
	SUBTTL	ERROPR	--	ERROR  TABLES FOR OPR

	DEFINE	ERROPR,<
	XLIST
X	E.NORM,<OPR TERMINATED NORMALLY>
IFN	FTJSYS,<
X	E.OPNF,<Unable to Open ^T/DCNDAT/>
X	E.CONF,<Unable to Get Connects for ^T/DCNDAT/>
X	E.ACFL,<Unable to Accept Connects for Server Links>
X	E.OUTF,<Output over Link ^T/DCNDAT/ Failed  LINK ABORTED>
X	E.INPF,<Input over Server Link Failed  LINK ABORTED>
X	E.STSF,<Status Return for Input Server Link Failed  LINK ABORTED>
X	E.INVC,<Invalid Connect Status ^O/ARG1/  LINK ABORTED>
>;END FTJSYS
X	E.EXIT,<EXIT Command Issued>

	LIST
	SALL
>;END ERROPR

	DEFINE	X(A,B),<
	XLIST
	A==.ZZ
	.ZZ==.ZZ+1
	LIST
	SALL
	>;END X

	.ZZ==0
	ERROPR
	E.MAXE==.ZZ			;LAST ERROR CODE
	END