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