Google
 

Trailing-Edge - PDP-10 Archives - BB-PENEA-BM_1990 - galsrc/oprscm.mac
There are 15 other files named oprscm.mac in the archive. Click here to see a list.
TITLE	OPRSCM - SEMI OPR command tables for ORION
	SUBTTL	Preliminaries

;	COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1988.
;	ALL RIGHTS RESERVED.
;
;	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 THAT IS NOT SUPPLIED BY DIGITAL.

	SALL
	SEARCH	GLXMAC
	SEARCH	ORNMAC
	SEARCH	NEBMAC
	SEARCH  MONSYM,MACSYM
	PROLOG(OPRSCM)

;Version numbers

	SCMMAN==:16			;Maintenance edit number
	SCMDEV==:3			;Development edit number
	VERSIN (SCM)			;Generate edit number

	.DIRECTIVE FLBLST
	Subttl	Table of Contents

;		     Table of Contents for OPRSCM
;
;				  Section		      Page
;
;
;    1. Revision History . . . . . . . . . . . . . . . . . . .   3
;    2. SEMI-OPR command tables  . . . . . . . . . . . . . . .   4
;    3. START command tables for SEMI-OPR  . . . . . . . . . .   5
;    4. CONTINUE command tables  . . . . . . . . . . . . . . .   6
;    5. STOP command tables  . . . . . . . . . . . . . . . . .   7
	SUBTTL	Revision History

COMMENT \
*****  Release 6.0 -- begin development edits  *****

1	6.1117		3-Dec-87
	Place the SEMI-OPR command tables in module OPRSCM

2	6.1225		8-Mar-88
	Update copyright notice.

3	6.1237		21-Apr-88
	Move part of the command table from OPRCMD to here. This is a
result of adding LAT printers as a valid printer type to the commands
ALIGN, BACKSPACE, FORWARDSPACE and SUPPRESS. These changes caused
OPRCMD symbol's table to overflow.

4	6.1267		8-Aug-88
	Reinstalled /NODE: switch in several OPR commands dealing with printers

5	6.1269		18-Oct-88
	Add the /CLUSTER-NODE: switch to the command tables.

6	6.1296		25-Dec-89
	Add the /NODE: switch for the SHOW STATUS and SHOW PARAMETERS commands
for local printers.

7	6.1305		19-Jan-90
	Add the /CLUSTER-NODE: switch to the FORWARD, ROUTE and SUPPRESS
commands. Also, make it possible only to specify a single unit number
rather than also a range for cluster printers in the ROUTE command.

10	6.1306		31-Jan-90
	Add the /CLUSTER-NODE: switch to the SET TAPE INITIALIZE command.

11	6.1311		14-Feb-90
	Add the /CLUSTER-NODE: switch to the REPORT command.

12	6.1314		10-Mar-90
	Add the SHOW BROADCAST-MESSAGES and SHOW RECEIVE-REMOTE-MESSAGES
commands. Add the /ALL switch to the SHOW OPERATORS command.

13	6.1318		3-Jun-90
	Add support for alias printers.

14	6.1319		8-Jun-90
	Add the /CLUSTER-NODE: switch to the remaining SEND and SET commands.

15	6.1320		27-Jun-90
	Remove the /CLUSTER-NODE: switch from the START NODE command.

16	6.1320		6-Jul-90
	Remove the SHOW RECEIVE-REMOTE command. Use the $CLUNRE macro
for those commands that can only specify a CLUSTER printer without
a range of units (NEXT, REQUEUE, and ROUTE).

\ ;End of revision history
SUBTTL	SEMI-OPR command tables

	EXTERN	STOBTH,STOHGH,STOOHG
	INTERN	OPRSCM	;MAKE VECTOR ADDRESS AVAILABLE

OPRSCM:	EXP	2	;SIZE
	EXP	SEMICM	;POINTER TO THE INI FUNCTION
	EXP	CMSFDB	;TOP LEVEL DISPATCH FOR SEMI-OPR

;**;[13]At OPRSCM:+2L add 5 lines  PMM  6/3/90
;[13]Alias Keyword Tables 
MAXAKA==500				;[13]Maximum number of alias names
$GDATA	AKATBL,MAXAKA			;[13]Alias keyword table pointers
$GDATA	AKASIX,MAXAKA			;[13]SIXBIT alias keyword table
$GDATA	AKAASC,2*MAXAKA			;[13]ASCIZ alias keyword table

SEMICM:: $INIT(CMSFDB)
CMSFDB:: $KEYDSP(CMSTAB,<$ACTION(CMDACT##),$ERROR(BADSCM)>)

CMSTAB:	$STAB
IFN SOPR,<
IFN SOPRI,<ORNDSP(ALIFDB##,ALIGN,ALI)
	ORNDSP(BKSFDB##,BACKSPACE,BKS)>
	ORNDSP(SOCFDB,CONTINUE,CNT)
	ORNDSP(EXTFDB##,EXIT,EXT)
IFN SOPRI,<ORNDSP(BKSFDB,FORWARDSPACE,FWS)>
	ORNDSP(HLPFDB##,HELP,HLP)
IFN SOTAP,<ORNDSP(IDNFDB##,IDENTIFY,IDN)>
	ORNDSP(PUSFDB,PUSH,PUS)				;[3]
	ORNDSP(SHWFDB,SHOW,SHW)				;[3]
	ORNDSP(SSDFDB,SHUTDOWN,SHD)
	ORNDSP(SSTFDB,START,STA)
	ORNDSP(SSPFDB,STOP,PAU)
IFN SOPRI,<ORNDSP(SUPFDB,SUPPRESS,SUP)>			;[3]
	ORNDSP(TAKOPR##,TAKE,TAK)
	ORNDSP(WAIOPR##,WAIT,WAI)>

	$ETAB

BADSCM:	MOVEI	S2,[ASCIZ/Invalid SEMI-OPR command specified/]
	$RETF				;BAD COMMAND
SUBTTL	START command tables for SEMI-OPR

SSTFDB:	$NOISE (SSTF01,<object>)

SSTF01:	$KEYDSP(SSTF02)

SSTF02:	$STAB
IFN SOCPH,<ORNDSP(SSTF04,<CARD-PUNCH>,CDP)>
IFN SOPTP,<ORNDSP(SSTF04,<PAPER-TAPE-PUNCH>,PTP)>
IFN SOPLO,<ORNDSP(SSTF04,<PLOTTER>,PLT)>
IFN SOPRI,<ORNDSP(SSTF11,PRINTER,LPT)>
IFN SOCRD,<ORNDSP(SSTF04,READER,RDR)>
	$ETAB

SSTF04:	$URANGE	(CONFRM)

SSTF11:	$URANGE(SSTF12)

SSTF12:	$SWITCH	(SSTF14,SSTF13,<$ALTERNATE(<CONFRM>)>)

SSTF13:	$STAB
	ORNSWI	(<DEVICE:>,DEV)
	$ETAB

SSTF14:	$DEV(CONFRM,<$HELP(<tape drive name>)>)
SUBTTL	CONTINUE command tables
SUBTTL	SHUTDOWN command tables

COMMENT	\
NOTE: SHOULD IT BECOME DESIRABLE FOR THE SHUTDOWN AND
CONTINUE COMMANDS TO BE NO LONGER SYNTACTICALLY IDENTICAL THEN THE
COMMON USE OF THIS PDB CHAIN DEFINITION IS NO LONGER VALID.
\

SSDFDB:	$NOISE	(SSD010,<scheduling for>)

SOCFDB:	$NOISE (SOCF01,<object>)

SOCF01:	$KEYDSP(SOCF02)

SOCF02:	$STAB
IFN SOCPH,<ORNDSP(SOCF04,<CARD-PUNCH>,CDP)>
IFN SOPTP,<ORNDSP(SOCF04,<PAPER-TAPE-PUNCH>,PTP)>
IFN SOPLO,<ORNDSP(SOCF04,<PLOTTER>,PLT)>
IFN SOPRI,<ORNDSP(SOCF04,PRINTER,LPT)>
IFN SOCRD,<ORNDSP(SOCF04,READER,RDR)>
	$ETAB

SOCF03:	$SRANGE(CONFRM)

SOCF04:	$URANGE(CONFRM)

SSD010:	$KEYDSP(SSD020)

SSD020:	$STAB
IFN SOCPH,<ORNDSP(SOCF04,<CARD-PUNCH>,CDP)>
IFN SOPTP,<ORNDSP(SOCF04,<PAPER-TAPE-PUNCH>,PTP)>
IFN SOPLO,<ORNDSP(SOCF04,<PLOTTER>,PLT)>
IFN SOPRI,<ORNDSP(SOCF04,PRINTER,LPT)>
IFN SOCRD,<ORNDSP(SOCF04,READER,RDR)>
	$ETAB
SUBTTL	STOP command tables

SSPFDB:	$NOISE (SSPF01,<object>)

SSPF01:	$KEYDSP(SSPF02)

SSPF02:	$STAB
IFN SOCPH,<ORNDSP(SSPU01,<CARD-PUNCH>,CDP)>
IFN SOPTP,<ORNDSP(SSPU01,<PAPER-TAPE-PUNCH>,PTP)>
IFN SOPLO,<ORNDSP(SSPU01,<PLOTTER>,PLT)>
IFN SOPRI,<ORNDSP(SSPU01,PRINTER,LPT)>
IFN SOCRD,<ORNDSP(SSPU01,READER,RDR)>
	$ETAB

SSPS01:	$NOISE	(SSPN01,<stream number>)

SSPU01:	$NOISE	(SSPN01,<unit number>)

SSPN01:	$NUMBER	(SSPN02,^D10,<number or range (n:m)>,<$ACTION(STOBTH##)>)
SSPN02:	$TOKEN	(SSPN03,<:>,<$HELP(<colon to specify a range>),$DEFAULT(IMMEDIATELY),>)
SSPN03:	$NUMBER	(SSP010,^D10,,<$ACTION(STOHGH##)>)

SSP010: $KEYDSP	(SSP020,<$DEFAULT(<IMMEDIATELY>),$ALTERNATE(CONFRM)>)

SSP020:	$STAB
	ORNDSP(SSP030,<AFTER>,AFT)
	ORNDSP(CONFRM,<IMMEDIATELY>,IMM)
	$ETAB


SSP030:$KEY(CONFRM,SSP040)

SSP040:	$STAB
	ORNKEY(<CURRENT-REQUEST>,ACR)
	ORNKEY(<EVERY-REQUEST>,AER)
	$ETAB

CONFRM: $CRLF

;**;The following code to the end of OPRSCM is a part of edit 3

	EXTERN	CHKVAL,DSTBRK,CHKNOD,DQSCHK,LPTMSK,DQSSHO        
	EXTERN	LATSAP,LATSHO,SHOMSK,CLUMSK,BLDCNT,CLNTAB,CHGBLK 
	EXTERN	MAXNOD,CLNNAM,CLNTAB,SBNNAMT,STOBTH,STOHGH       
	EXTERN	CHKPOS,FIXIT,LATSRV,STOOHG			 
;***;[13]At CONFRM:+7L add 1 line  PMM  6/3/90
	EXTERN	CHGAKA,CHGLST,CHKLST,LSTCHK ;[13]Alias Printer action routines
	EXTERN	RLSCHK				;[13]
	INTERN	MTNFDB,NXTFDB,PUSFDB,RPTFDB,REQFDB,RSPFDB,RTEFDB 
	INTERN	SETFDB,STAFDB,STPFDB,SUPFDB,SWIFDB,SNDFDB,SHWFDB 
	INTERN	UNDFDB 	 					 
SUBTTL	MOUNT command tables

MTNFDB:	$KEY	(MTN020,MTN010,<$DEFAULT(<STRUCTURE>)>)
MTN010:	$STAB
	ORNKEY	(<STRUCTURE>,STR)
	$ETAB
MTN020:	$DEV	(MTN030,<$HELP(<alias name>)>)

CLUSTER<
MTN030:	$SWITCH	(MTN050,MTN040,<$ALTERNATE(<MTN060>)>)	
>
SINGLE<
MTN030:	$SWITCH	(MTN050,MTN040,<$ALTERNATE(<CONFRM>)>)	
>
MTN040:	$STAB
	ORNSWI(<STRUCTURE-ID:>,SID)
	$ETAB

CLUSTER<
MTN050:	$DEV	(MTN060,<$HELP(<structure name>)>) 

MTN060:	$CLUNOD	(CONFRM)				

> 

SINGLE<
MTN050:	$DEV	(CONFRM,<$HELP(<structure name>)>) 
> 
	SUBTTL	NEXT - NEXT COMMAND

NXTFDB:	$NOISE	(NXT010,<job on>)		

NXT010:	$KEYDSP(NXT020)				

NXT020:	$STAB					
	ORNDSP(NXT040,BATCH-STREAM,BAT)		
	ORNDSP(NXT030,CARD-PUNCH,CDP)		
	ORNDSP(NXT030,PAPER-TAPE-PUNCH,PTP)	
	ORNDSP(NXT030,PLOTTER,PLT)		
	ORNDSP(NXT025,PRINTER,LPT)		
	$ETAB					

;**;[13]At NXT020:+7L replace 1 line with 2 lines  PPM  6/3/90
NXT025:	$NOISE(NXT027,<specify printer>,<$ACTION(LSTCHK),$FLAGS(CM%SDH)>) ;[13]
NXT027:	$AKAMAC	(NXT100,NXT045)					;[13]


NXT030:	$NOISE	(NXT050,<unit number>)		
NXT040:	$NOISE	(NXT050,<stream number>)	

;[4]change 1 line at NXT045:+0L  JYCW 8-Aug-88
NXT045:	$NUMBER	(NXT130,^D10,<number (/NODE:)>,<$ACTION(STOBTH),$ALTERNATE(NXT091)>) 
;[4]Add 1 line at NXT045:+1L    JYCW 8-Aug-88
NXT130:	$NODE	(NXT100)	;[4]/NODE:

NXT050:	$NUMBER	(NXT080,^D10,<number (/NODE:)>,<$ACTION(STOBTH),>) 
NXT080:	$SWITCH (NXT090,NXT085,<$DEFAULT(<REQUEST-ID>),$ALTER(NXT100)>) 
NXT085:	$STAB					
	ORNSWI(NODE:,NOD)			
	$ETAB					
NXT090:	$NODNM	(NXT100,<node name>,<$FLAGS(CM%PO!CM%NSF)>) 

;REMOTE PRINTERS

NXT091:	$KEYDSP(NXT092)				
NXT092:	$STAB					
CLUSTER<  ORNDSP (NXT093,CLUSTER,CLU)>		
	  ORNDSP (NXT094,DQS,DQS)		
	  ORNDSP (NXT095,LAT,LAT)		
	$ETAB					

CLUSTER<
;**;[16]At NXT093:+0L change 1 line  JCR  7/6/90
NXT093:	$CLUNRE(NXT100)				;[16]Range is not allowed
> 
NXT094:	$DQSSPL(NXT100)				
NXT095:	$LATSPL(NXT100)				

NXT100:	$KEYDSP	(NXT110,<$DEFAULT(<REQUEST-ID>)>) 

NXT110:	$STAB					
	ORNDSP(NXT120,<REQUEST-ID>,RQN)		
	$ETAB					

;**;[5]At NXT120 change 1 line JYCw Oct-18-88
NXT120:	$NUMBER(STACLU,^D10,<request number of the next job to schedule>,<$ACTION(CHKPOS)>) 	;[5]
SUBTTL	PUSH command tables

PUSFDB: $NOISE(PUS100,<to EXEC level>)

PUS100:	$CRLF(<$ACTION(PUSHRT##)>)
SUBTTL	REPORT command tables

RPTFDB:	$NOISE	(RPT005,<by>)

RPT005:	$FIELD (RPT015,<user name>)

RPT015:	$DEV	(RPT020,<$HELP(<device being reported>)>)

;**;[11]At RPT020:+0L replace 1 line with 2 lines  JCR  2/14/90
RPT020:	$CLUNOD	(RPT022,RPT022)		;[11]
RPT022:	$CRLF	(<$ALTER(RPT025),$ACTION(TXTLIN##),$HELP(<confirm for multiple line response>)>) ;[11]

RPT025:	$CTEXT	(CONFRM,<single line response>)
SUBTTL	REQUEUE command tables

REQFDB:	$NOISE	(REQ010,<current job on>)

REQ010:	$KEYDSP	(REQ020)
REQ020:	$STAB
	ORNDSP	(REQ030,<BATCH-STREAM>,BAT)
	ORNDSP	(REQ040,<CARD-PUNCH>,CDP)
IFN FTFTS,<
	ORNDSP	(REQ030,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
	ORNDSP	(REQ040,<PAPER-TAPE-PUNCH>,PTP)
	ORNDSP	(REQ040,<PLOTTER>,PLT)
	ORNDSP	(REQ041,<PRINTER>,LPT)
	$ETAB


; Batch tables
;
REQ030:	$STREAM	(REQ100)


; Output device tables
;
REQ040:	$UNIT	(REQ050)
;**;[13]At REQ040:+1L replace 2 lines with 3 lines  PMM  6/3/90
REQ041:	$NOISE(REQ039,<specify printer>,<$ACTION(LSTCHK),$FLAGS(CM%SDH)>) ;[13]
REQ039:	$AKAMAC	(REQ050,REQ042)					;[13]
REQ042:	$NUMBER	(REQ110,^D10,<unit number (/NODE:)>,<$ACTION(CHKVAL),$ALTERNATIVE(REQ044)>) ;[13]
;[4]At 1 line at REQ042:+1L    JYCW 8-Aug-88
REQ110:	$NODE	(REQ050)	;[4] /NODE:

REQ044:	$KEYDSP	(REQ045)
REQ045:	$STAB
CLUSTER<  ORNDSP (REQ046,CLUSTER,CLU)> 
	  ORNDSP (REQ047,DQS,DQS)
	  ORNDSP (REQ048,LAT,LAT)
	$ETAB
CLUSTER<
;**;[16]At REQ046:+0L change 1 line  JCR  7/6/90
REQ046:	$CLUNRE (REQ050)	;[16]Range is not allod
> 
REQ047:	$DQSSPL	(REQ050)
REQ048:	$LATSPL	(REQ050)


REQ050:	$KEYDSP	(REQ060,<$DEFAULT(CURRENT-POSITION),$ALTER(REQ100)>)
REQ060:	$STAB
	ORNDSP	(REQ070,<BEGINNING-OF>,BEG)
	ORNDSP	(REQ100,<CURRENT-POSITION>,CUR)
	$ETAB
REQ070:	$KEY	(REQ100,REQ080)
REQ080:	$STAB
	ORNKEY	(<COPY>,CPY)
	ORNKEY	(<FILE>,FIL)
	ORNKEY	(<JOB>,JOB)
	$ETAB

;**;[5]At REQ100 replace 1 line with 7 JYCW Oct-18-88
CLUSTER<
REQ100:	$CLUNOD (REQ200,REQ200)
REQ200:	$EXPL	(CONFRM,<$ALTER(CONFRM)>)
>
SINGLE<
REQ100:	$EXPL	(CONFRM,<$ALTER(CONFRM)>)
>
SUBTTL	RESPOND command tables

RSPFDB:	$NOISE	(RSP001,<to message number>)

;**;[5]At RSP001 replace 1 line with 2 JYCW Oct-18-88
RSP001:	$NUMBER	(RSP003,^D10,<message number>,$ACTION(CHKVAL)) ;[5]
RSP003:	$CLUNOD (RSP005,RSP005)	;[5]

RSP005:	$CRLF	(<$ALTER(RSP010),$ACTION(TXTLIN##),$HELP(<confirm for multiple line response>)>)

RSP010:	$CTEXT	(CONFRM,<single line response>)
SUBTTL	ROUTE command tables

RTEFDB:	$NOISE	(RTEF05,device)

RTEF05:	$KEYDSP(RTEF10)

RTEF10:	$STAB
	ORNDSP(RTEF50,<ALL-DEVICES>,ALL)
	ORNDSP(RTEF15,<CARD-PUNCH>,CDP)
	ORNDSP(RTEF15,<PAPER-TAPE-PUNCH>,PTP)
	ORNDSP(RTEF15,<PLOTTER>,PLT)
	ORNDSP(RTEF13,<PRINTER>,LPT)		
	$ETAB

;**;[13]At RTEF13:+0L replace 1 line with 2 lines  PMM  6/3/90
RTEF13:	$NO