Trailing-Edge
-
PDP-10 Archives
-
bb-l014y-bm_tops20_v7_0_tsu02_1_of_2
-
galsrc/oprcmd.mac
There are 40 other files named oprcmd.mac in the archive. Click here to see a list.
TITLE OPRCMD - command tables for ORION
SUBTTL Preliminaries
; COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1975, 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 ;[245]SEARCH NEBULA'S SYMBOLS
SEARCH MONSYM,MACSYM
PROLOG(OPRCMD)
;Version numbers
CMDMAN==:266 ;Maintenance edit number
CMDDEV==:261 ;Development edit number
VERSIN (CMD) ;Generate edit number
.DIRECTIVE FLBLST
Subttl Table of Contents
; Table of Contents for OPRCMD
;
; Section Page
;
;
; 1. Revision history . . . . . . . . . . . . . . . . . . . 4
; 2. Special Macro Definitions . . . . . . . . . . . . . . 5
; 3. $EXPL Macro Definition . . . . . . . . . . . . . . . . 6
; 4. SNADST Macro Definition . . . . . . . . . . . . . . . 7
; 5. Remote Printing Macro Definitions . . . . . . . . . . 8
; 6. Tables and ACTION routine for /CLUSTER-NODE: processin 9
; 7. Command Dispatch . . . . . . . . . . . . . . . . . . . 10
; 8. Argument Subroutines . . . . . . . . . . . . . . . . . 11
; 9. Argument subroutines for printers . . . . . . . . . . 12
; 10. START command tables . . . . . . . . . . . . . . . . . 17
; 11. CONTINUE command tables . . . . . . . . . . . . . . . 18
; 12. STOP command tables . . . . . . . . . . . . . . . . . 19
; 13. ABORT command tables . . . . . . . . . . . . . . . . . 20
; 14. HOLD command tables . . . . . . . . . . . . . . . . . 21
; 15. DEFINE command tables . . . . . . . . . . . . . . . . 22
; 16. CANCEL command tables . . . . . . . . . . . . . . . . 23
; 17. MODIFY command tables . . . . . . . . . . . . . . . . 24
; 18. SHOW command tables . . . . . . . . . . . . . . . . . 25
; 19. SHOW STATUS command tables . . . . . . . . . . . . . . 28
; 20. SHWNOD SHOW STATUS/PARAMETERS FOR NODE . . . . . . . . 29
; 21. RESPOND command tables . . . . . . . . . . . . . . . . 30
; 22. REQUEUE command tables . . . . . . . . . . . . . . . . 31
; 23. BACKSPACE command tables . . . . . . . . . . . . . . . 32
; 24. ALIGN command table . . . . . . . . . . . . . . . . . 33
; 25. SUPPRESS command tables . . . . . . . . . . . . . . . 34
; 26. ROUTE command tables . . . . . . . . . . . . . . . . . 35
; 27. SEND command tables . . . . . . . . . . . . . . . . . 36
; 28. SET command tables . . . . . . . . . . . . . . . . . . 37
; 29. SET STRUCTURE command tables . . . . . . . . . . . . . 38
; 30. SET TAPE command tables . . . . . . . . . . . . . . . 39
; 31. SET DISK command tables . . . . . . . . . . . . . . . 40
; 32. SET ONLINE command tables . . . . . . . . . . . . . . 41
; 33. SET USAGE command tables . . . . . . . . . . . . . . . 42
; 34. SET TAPE INITIALIZE command tables . . . . . . . . . . 43
; 35. SET NODE command tables . . . . . . . . . . . . . . . 44
; 36. SET SCHEDULER command tables (TOPS20) . . . . . . . . 45
; 37. SET PORT command tables . . . . . . . . . . . . . . . 46
; 38. ENABLE/DISABLE command tables . . . . . . . . . . . . 47
; 39. ENACLS ENABLE CLASS SCHEDULER command tables . . . . . 49
; 40. CLOSE command tables . . . . . . . . . . . . . . . . . 50
; 41. ENABLE/DISABLE NEBULA CONNECTIONS . . . . . . . . . . 51
; 42. REPORT command tables . . . . . . . . . . . . . . . . 52
; 43. MOUNT command tables . . . . . . . . . . . . . . . . . 53
; 44. NEXT - NEXT COMMAND . . . . . . . . . . . . . . . . . 54
; 45. IDENTIFY command tables . . . . . . . . . . . . . . . 55
; 46. SWITCH command tables (TOPS20) . . . . . . . . . . . . 56
; 47. DISMOUNT command tables . . . . . . . . . . . . . . . 57
Subttl Table of Contents (page 2)
; Table of Contents for OPRCMD
;
; Section Page
;
;
; 48. PUSH command tables . . . . . . . . . . . . . . . . . 58
; 49. HELP command tables . . . . . . . . . . . . . . . . . 59
; 50. SHOW ALLOCATION command tables . . . . . . . . . . . . 60
; 51. UNDEFINE command tables . . . . . . . . . . . . . . . 61
SUBTTL Revision history
COMMENT \
***** Release 4.2 -- begin maintenance edits *****
146 4.2.1484 9-Aug-82
Allow secondary ports to work on MODIFY commands.
147 4.2.1555 24-Oct-83
Add some range checking stuff to prevent too many objects at
a time from being started.
***** Release 5.0 -- begin development edits *****
160 5.1003 4-Jan-83
Move to new development area. Add version vector. Clean up
edit organization. Update TOC.
161 5.1021 5-Apr-83
Add SET STR SHARED/EXCLUSIVE. Add SET PORT CI ONLINE/OFFLINE.
162 5.1026 6-May-83
Add new ENABLE/DISABLE OUTPUT options for BUGCHK, BUGINF and SYSTEM
messages.
163 5.1027 10-May-83
Change SET PORT CI ONLINE/OFFLINE to AVAILABLE/UNAVAILABLE.
164 5.1035 18-Jul-83
Add support for new DISMOUNT (with) REMOVAL/NOREMOVAL. While here,
clearify a SET ONLINE help message.
165 5.1058 23-Nov-83
Make the SET TERMINAL command invisible for this release. Remove
it in next release.
166 5.1069 23-Jan-84
Add SHOW STATUS STRUCTURE command.
167 5.1075 3-Feb-84
Add structure name to SHOW STATUS STRUCTURE command if desired.
170 5.1080 5-Feb-84
Add UNDEFINE STRUCTURE FOO: command.
171 5.1111 1-Mar-84
Add MOUNT STRUCTURE alias: /STRUCTURE-ID:structure name command
172 5.1124 2-Apr-84
Add controller number to the SET DISK UNAVAILABLE.
173 5.1162 21-Sep-84
Add changes to support SNA Workstations
174 5.1169 19-Oct-84
Correct problems due to new SNA Workstations functionality.
175 5.1179 20-Nov-84
Add support to allow disabling/enabling of two new display types,
DECNET-EVENT messages and DECNET-LINK messages.
176 5.1184 3-Dec-84
Include an additional argument in the "X" macro - used in conjunction
with LCPTAB support.
177 5.1186 5-Dec-84
Add NI AVAILABLE/UNAVAILABLE.
200 5.1203 26-Feb-85
Add support for SHOW CONFIGURATION DISK-DRIVE.
***** Release 5.0 -- begin maintenance edits *****
205 Increment maintenance edit level for GALAXY 5.
206 5.1236 22-Apr-86
Wrong $KEYxxx macro used in ENA105 for the ENABLE/DISABLE
OUTPUT-DISPLAY OPR command.
***** Release 6.0 -- begin development edits *****
230 6.1009 6-Oct-87
Add support for remote printing. The syntax of the OPR commands:
ABORT, CONTINUE, REQUEUE, ROUTE, SET, SHOW STATUS, SHOW PARAMETER, SHUTDOWN,
START and STOP have changed.
231 6.1010 8-Oct-87
Change the Cluster printer help message (n:m)(/NODE:) to (n:m)(NODE)
232 6.1011 8-Oct-87
Have CHKLAC scan the command message buffer rather than the atom buffer
when checking for validity and raising any lower case letters.
233 6.1015 13-Oct-87
Do the following cleanup: ensure that the node specified in a remote
printing command is not the local node, make "$" and "_" illegal as the first
character of a DQS VMS queue name, or the LAT PORT, SERVICE or SERVER name.
Also, change the LAT SERVER name block from .CMFLD to .CMNOD in the message
passed to ORION. Lastly, remove Cluster printers from the SET PRINTER
command.
234 6.1018 15-Oct-87
Remove keywords FORMS-TYPE and DESTINATION in the SET PRINTER command
for DQS and LAT printers.
235 6.1019 18-Oct-87
Allow routing between printers of different types
236 6.1034 23-Oct-87
Add new keyword, SEMI-OPR, to the ENABLE/DISABLE command. Add new
FDB for SEMI-OPR. Add new command tables for SEMI-OPR.
237 6.1041 29-Oct-87
Change SHOW STATUS PRINTER and SHOW PARAMETERS PRINTER to support
remote printing. Remove the /NODE: switch from commands dealing with
local printers.
240 6.1058 5-Nov-87
Help for SET STRUCTURE command shows STRUCTURE STRUCTURE after ?
mark is typed. There were two entries for the set structure command in the
command table. Delete one.
241 6.1078 15-Nov-87
Add support for the /CLUSTER-NODE: switch.
242 6.1072 16-Nov-87
Add the /TERMINAL-CHARACTERISTIC switch to the START PRINTER LAT and
START PRINT 0/DEVICE: command.
243 6.1081 17-Nov-87
Add support for setting structures DUMPABLE/NONDUMABLE.
244 6.1078 18-Nov-87
Make the SEND ALL command cluster-wide.
245 6.1098 22-Nov-87
Add the /CLUSTER-NODE switch to the MOUNT STRUCTURE command.
246 6.1078 25-Nov-87
Change the $CLUNOD macro to accept the next FDB after the /CLUSTER-NODE
switch.
247 6.1114 3-Dec-87
Add support for the SHOW CLUSTER-GALAXY-LINK-STATUS, ENA/DIS
REPORT-CONNECTION-FAILURES and DECNET-CONNECTION-ATTEMPTS commands.
250 6.1117 3-Dec-87
Remove the definitions of $URANGE, $SRANGE, $ORANGE and $NODE and
place them in ORNMAC so that OPRSCM will also have access to their definitions.
251 6.1173 27-Jan-88
Add the FORMS-TYPE keyword for the SET command for LAT printers.
252 6.1177 11-Feb-88
Add commands LOGFILES-TO-SPECIFIC-PRINTERS and PRINT-LOGFILES.
253 6.1182 15-Feb-88
Add ENABLE/DISABLE UNPRIVILEGED-USER-ENTIRE-REMOTE-OUTPUT-DISPLAY
commands.
254 6.1183 16-Feb-88
Conitionalize tables according to CLUSTER and SINGLE in support of
ENABLE/DISABLE Cluster GALAXY.
255 6.1206 2-Mar-88
Allow "." and "-" in LAT PORT, SERVICE and server names. Also, allow
".", "-", "_" and "$" as the first character of these names.
256 6.1225 8-Mar-88
Update copyright notice.
257 6.1235 14-Apr-88
Move symbol definitions MAXNOD, CLNNAM, CLNTAB and SBNNAM to OPRPAR
so that non-GALAXY programs that link in only OPRPAR link successfully.
260 6.1237 21-Apr-88
Move macro definitions $UNIT, $STNUM, $STREAM, $EXPL, SNADST, $CLUSPL,
$DQSSPL, $LATSPL and $CLUNOD to ORNMAC so that OPRSCM may also use them.
Add printer type LAT for the BACKWARD, FORWARD, ALIGN and SUPPRESS commands.
261 6.1260 31-May-88
Remove invalid ")" in ALI03A:
262 6.1267 8-Aug-88
Reinstalled /NODE: switch into several OPR commands.
263 6.1269 18-Oct-88
Implement the /CLUSTER-NODE: switch in the command tables.
264 6.1276 25-Apr-89
Parse first for a number then for a structure name in the CANCEL
MOUNT-REQUEST command. Correct the way the CANCEL MOUNT-REQUEST command
is terminated for a non-cluster GALAXY to prevent OPR from crashing.
265 6.1286 19-Oct-89
Check for minimum lengths for LAT port, service, server names;
and for DQS queue names. This is necessary because the $FIELD PDB accepts
null length strings.
266 6.1287 21-Oct-89
If a LAT port or service name, or a DQS queue name is terminated
with a carriage return, then consider the name to be valid. An invalid
server or node name error will be returned instead of an invalid character
error.
\ ;End of Revision History
SUBTTL Macro Support
INTERN CHKVAL,DSTBRK,CHKNOD,DQSCHK,LPTMSK,DQSSHO ;[260]
INTERN LATSRV,LATSAP,LATSHO,SHOMSK,CLUMSK,CHGBLK ;[260]
INTERN FIXIT,CHKPOS ;[260]
DSTBRK: BRMSK. (EOLB0.,EOLB1.,EOLB2.,EOLB3.,,</>);[260]Break set
BRINI. ;[260]
BRKCH. (0,40) ;[260]
BRKCH. (57) ;[260]
BRKCH. (77) ;[260]
BRKCH. (177) ;[260]
LPTMSK: BRMSK. (W0.,W1.,W2.,W3.) ;[260]
BRINI. ;[260]
BRKCH. (0,14) ;[260]
BRKCH. (16,40) ;[260]
BRKCH. (57) ;[260]
BRKCH. (77) ;[260]
BRKCH. (177) ;[260]
SHOMSK: BRMSK. (W0.,W1.,W2.,W3.) ;[260]
BRINI. ;[260]
BRKCH. (0,40) ;[260]
BRKCH. (77) ;[260]
BRKCH. (177) ;[260]
CLUMSK: BRMSK. (W0.,W1.,W2.,W3.) ;[260]
SUBTTL Command Dispatch
INTERN OPRCMD ;MAKE VECTOR ADDRESS AVAILABLE
INTERN STOBTH,STOHGH,STOOHG ;[247]
OPRCMD: EXP 2 ;SIZE
EXP INITCM ;POINTER TO THE INI FUNCTION
EXP CMDFDB ;TOP LEVEL DISPATCH
INITCM:: $INIT(CMDFDB)
CMDFDB:: $KEYDSP(CMDTAB,<$ACTION(CMDACT##),$ERROR(BADCOM)>)
CMDTAB: $STAB
ORNDSP(ABOFDB,ABORT,CNC)
ORNDSP(ALIFDB,ALIGN,ALI)
ORNDSP(BKSFDB,BACKSPACE,BKS)
ORNDSP(CANFDB,CANCEL,DEL)
ORNDSP(CLOFDB,CLOSE,CLO)
ORNDSP(UNVFDB,CONTINUE,CNT)
IFN FTDN60,<
ORNDSP(DEFFDB,DEFINE,DEF)
>;END FTDN60
ORNDSP(ENAFDB,DISABLE,DIS)
ORNDSP(DSMFDB,DISMOUNT,DSM)
ORNDSP(ENAFDB,ENABLE,ENA)
IFN NUMAPL,< ;CHECK IS ANY APPLICATION TABLES
ORNDSP(ENTFDB##,ENTER,ENT)
>;END NUMAPL
ORNDSP(EXTFDB##,EXIT,EXT)
ORNDSP(BKSFDB,FORWARDSPACE,FWS)
ORNDSP(HLPFDB,HELP,HLP)
ORNDSP(HLDFDB,HOLD,HLD)
ORNDSP(IDNFDB,IDENTIFY,IDN)
ORNDSP(MODFDB,MODIFY,MOD)
ORNDSP(MTNFDB##,MOUNT,MTN) ;[260]
ORNDSP(NXTFDB##,NEXT,NXT) ;[260]
ORNDSP(PUSFDB##,PUSH,PUS) ;[260]
ORNDSP(HLDFDB,RELEASE,REL)
ORNDSP(RPTFDB##,REPORT,RPT) ;[260]
ORNDSP(REQFDB##,REQUEUE,REQ) ;[260]
ORNDSP(RSPFDB##,RESPOND,RSP) ;[260]
ORNDSP(RTEFDB##,ROUTE,RTE) ;[260]
ORNDSP(SNDFDB##,SEND,SND) ;[260]
ORNDSP(SETFDB##,SET,SET) ;[260]
ORNDSP(SHWFDB##,SHOW,SHW) ;[260]
ORNDSP(SHDFDB,SHUTDOWN,SHD)
ORNDSP(STAFDB##,START,STA) ;[260]
ORNDSP(STPFDB##,STOP,PAU) ;[260]
ORNDSP(SUPFDB##,SUPPRESS,SUP) ;[260]
ORNDSP(SWIFDB##,SWITCH,SWI) ;[260]
ORNDSP(TAKOPR##,TAKE,TAK)
ORNDSP(UNDFDB##,UNDEFINE,UDF) ;[260]
ORNDSP(WAIOPR##,WAIT,WAI)
$ETAB
BADCOM: MOVEI S2,[ASCIZ/Invalid OPR command specified/]
$RETF ;BAD COMMAND
SUBTTL Argument Subroutines
;ACTION ROUTINE CALLED ON $UNIT MACRO TO BARF ON NEGATIVE UNIT
;NUMBER ARGUMENTS.
CHKVAL: SKIPL CR.RES(S2) ;CHECK THAT NUMBER
$RETT ;IT'S GOOD
PUSHJ P,FIXIT
MOVEI S2,[ASCIZ/Negative number improper/]
$RETF
CHKPOS: SKIPLE CR.RES(S2) ;CHECK THE NUMBER
$RETT ;O.K..RETURN
PUSHJ P,FIXIT ;FIXUP COMMAND
MOVEI S2,[ASCIZ/Number must be positive/]
$RETF ;RETURN FALSE
; ACTION ROUTINE TO CHECK PRIORITY RANGES
CHKPRI: SKIPLE T1,CR.RES(S2) ;CHECK THAT NUMBER
CAILE T1,^D63
SKIPA
$RETT ;IT'S GOOD
PUSHJ P,FIXIT
MOVEI S2,[ASCIZ/Priority not in range/]
$RETF
;TEMPORARY STORAGE FOR RANGE ARGUMENT
$DATA LSTARG,1 ;LAST PARSED ARGUMENT ADDRESS
$GDATA CMDCOD,1 ;COMMAND FUNCTION CODE
STOBTH: SKIPGE T1,CR.RES(S2)
PJRST CHKVAL ;ABORT COMMAND
MOVEM T1,LSTARG
$RETT
; Routine STOOHG to check width of range for object commands as well as
; the stuff checked by STOHGH.
STOOHG: SKIPGE T1,CR.RES(S2) ;Is the range at least positive?
PJRST CHKVAL ;No, abort command
SUB T1,LSTARG ;Subtract the beginning of range
JUMPL T1,STOH.1 ;Bad range
CAIGE T1,MXOBJR ;Too big?
$RETT ;Just fine
JRST STOH.1 ;Bad range
; Action routine STOHGH to check range validity based on bottom and top
; of range.
STOHGH: SKIPGE T1,CR.RES(S2)
PJRST CHKVAL ;ABORT COMMAND
CAMGE T1,LSTARG
SKIPA ;SKIP AND LOAD ERROR
$RETT
STOH.1: PUSHJ P,FIXIT
MOVEI S2,[ASCIZ /Improper range specification/]
$RETF
FIXIT: HRRZ T4,CR.FLG(S2) ;GET ADR OF CMDBLK
MOVE T1,.CMPTR(T4) ;GET COMMAND POINTER
MOVE T2,.CMABP(T4) ;GET BP TO ATOM BUFFER
FIXI.1: ILDB T3,T2
JUMPE T3,FIXI.2 ;DONE.. ALL FIXED UP
PUSHJ P,DBP ;DECREMENT THE BP
AOS .CMCNT(T4)
JRST FIXI.1 ;TRY NEXT CHARACTER
FIXI.2: MOVEM T1,.CMPTR(T4) ;STORE ADJUSTED BP
POPJ P,0
;LOCAL ROUTINE TO DECREMENT BYTE POINTER IN T1
DBP: SOS T1
IBP T1
IBP T1
IBP T1
IBP T1
$RETT
SUBTTL Argument subroutines for printers
;**;[230]ROUTINES DQSCHK, LATSAP,LATSRV HAVE BEEN ADDED AS PART OF THIS EDIT
EXTERNAL STRADR,G$NODE,ATMBFR,CMDRET,ARGFRE ;[237]
EXTERNAL CLNTAB,BLDCNT ;[263]
MAXDQS==^D31 ;MAX LENGTH OF A DQS QUEUE NAME
MAXSAP==^D16 ;MAX LENGTH OF SERVICE/PORT NAME
MAXSVR==^D6 ;MAX LENGTH OF LAT SERVER NAME
DQSCHK: $CALL CHKLAC ;CHECK LENGTH AND VALID CHARACTERS
JUMPF .POPJ ;INVALID CHARACTER DETECTED
;**;[265]At DQSCHK:+2L replace 4 lines with 5 lines JCR 10/19/89
MOVEI S2,[ASCIZ/VMS printer queue name has an invalid length/] ;[265]
SKIPLE S1 ;[265]Valid minimum length?
CAILE S1,MAXDQS ;[265]Yes, valid maximum length?
$RETF ;[265]No, indicate invalid length
$RET ;[265]Indicate success
LATSAP: $CALL CHKSTR ;[255]CHECK LENGTH AND VALID CHARACTERS
JUMPF .POPJ ;INVALID CHARACTER DETECTED
;**;[265]At LATSAP:+2L replace 4 lines with 5 lines JCR 10/19/89
MOVEI S2,[ASCIZ/Service or port name has an invalid length/] ;[265]
SKIPLE S1 ;[265]Valid minimum length?
CAILE S1,MAXSAP ;[265]Yes, valid maximum length?
$RETF ;[265]No, indicate failure
$RET ;[265]Yes, indicate success
LATSRV: $CALL CHKSTR ;[255]CHECK LENGTH AND VALID CHARACTERS
JUMPF .POPJ ;INVALID CHARACTER DETECTED
;**;[265]At LATSRV:+2L replace 1 line with 2 lines JCR 10/19/89
SKIPLE S1 ;[265]Valid minimum length?
CAILE S1,MAXSVR ;[265]Yes, valid maximum length?
JRST LATSR1 ;[233]NO, INDICATE AN ERROR
$CALL CHKNOD ;[233]CHECK IF NODE IS LOCAL
JUMPF .POPJ ;[233]QUIT, IF SPECIFIED NODE IS LOCAL
MOVX S2,.CMNOD ;[233]PICK UP THE NODE BLOCK TYPE
MOVE S1,STRADR ;[233]PICK UP SERVER BLOCK ADDRESS
STORE S2,PFD.HD(S1),PF.TYP ;[233]CHANGE TO A NODE BLOCK
$RET ;[233]PRESERVE THE TRUE/FALSE FLAG
LATSR1: MOVEI S2,[ASCIZ/Server name has an invalid length/]
$RETF ;INDICATE ERROR
;**;[237]ROUTINE DQSSHO HAS BEEN ADDED AS PART OF THIS EDIT
;DQSSHO is used during the SHOW PRINTER processing for the cases of determining
;if the command is for all the printers of a particular class or for a
;specific printer of that class.
DQSSHO: TDZA S1,S1 ;INDICATE FROM DQS PROCESSING
LATSHO: MOVEI S1,1 ;INDICATE FROM LAT PROCESSING
$SAVE <P1> ;SAVE THIS AC
MOVE P1,STRADR ;PICK UP THE LATEST MESSAGE BLOCK
AOS P1 ;POINT PASS THE HEADER
HRLI P1,(POINT 7,,6) ;MAKE IT INTO A POINTER
LDB S2,P1 ;PICK UP THE FIRST CHARACTER
CAIE S2,.CHCRT ;IS THIS A CARRIAGE RETURN?
JRST @DQSTAB(S1) ;A NAME HAS BEEN SPECIFIED
ILDB S2,P1 ;PICK UP THE NEXT CHARACTER
SKIPE S2 ;IS THERE ANY MORE?
JRST DQSS.3 ;YES, INVALID CHARACTER SPECIFIED
MOVEI S2,DUMPDB+1 ;PICK UP ADDRESS OF DUMMY FDB
STORE S2,CMDRET+CR.PDB,RHMASK ;STORE AS THE CURRENT PDB
EXCH T1,ARGFRE ;BACK OFF .CMFLD BLOCK FROM MESSAGE
$RETT ;INDICATE SUCCESS
DQSS.1: SETZ S1, ;INITIALIZE CHARACTER COUNT
$CALL CHKLA0 ;CHECK FOR VALID CHARACTERS
JUMPF .POPJ ;INVALID CHARACTER DETECTED
;**;[265]At DQSS.1:+3L replace 4 lines with 5 lines JCR 10/19/89
MOVEI S2,[ASCIZ/VMS printer queue name has an invalid length/] ;[265]
SKIPLE S1 ;[265]Valid minimum length?
CAILE S1,MAXDQS ;[265]Yes, valid maximum length?
$RETF ;[265]No, indicate invalid length
$RET ;[265]Indicate valid length
DQSS.2: SETZ S1, ;INITIALIZE CHARACTER COUNT
$CALL CHKST1 ;[255]CHECK FOR VALID CHARACTERS
JUMPF .POPJ ;INVALID CHARACTER DETECTED
;**;[265]At DQSS.2:+3L replace 4 lines with 5 lines JCR 10/19/89
MOVEI S2,[ASCIZ/Service or port name has an invalid length/]
SKIPLE S1 ;[265]Valid minimum length?
CAILE S1,MAXSAP ;[265]Yes, valid maximum length?
$RETF ;[265]Indicate invalid length
$RET ;[265]Indicate valid length
DQSS.3: MOVEI S2,[ASCIZ/Invalid character specified in name/]
$RETF ;INDICATE ERROR
DQSTAB: DQSS.1 ;CHECK DQS NAME CHARACTER VALIDITY
DQSS.2 ;CHECK LAT NAME CHARACTER VALIDITY
DUMPDB: $FIELD (CONFRM,<used to force $CRLF>) ;FORCE AN END TO THIS COMMAND
;**;[230]ROUTINE CHKLAC HAS BEEN ADDED AS PART OF THIS EDIT
;CHKLAC determines the length of an unquoted string. It also checks to ensure
;that the string contains only alphanumber characters, "$" and "_". This
;routine is used to validate DQS VMS printer queue names.
;
;Call is: No Arguments
;Returns true: All the characters specified in the name are valid
; S1/Length of the name
;Returns false: An invalid character was detected in the name
; S2/Address of the ASCIZ error string
CHKLAC: $SAVE <P1> ;SAVE THIS AC
SETZ S1, ;NUMBER OF CHARACTERS
MOVE P1,STRADR ;[232]PICK UP THE STRING ADDRESS
AOS P1 ;[232]POINT PASS THE HEADER
HRLI P1,(POINT 7,,6) ;[232]MAKE IT INTO A POINTER
CHKLA0: LDB S2,P1 ;[237]PICK UP THE FIRST CHARACTER
CAIE S2,"$" ;[233]IS IT A "$"?
CAIN S2,"_" ;[233]NO, IS IT AN "_"?
JRST CHKLA7 ;[233]YES, AN INVALID FIRST CHARACTER
SKIPA ;[233]GO CHECK THE VALIDITY
CHKLA1: LDB S2,P1 ;PICK UP THE NEXT CHARACTER
SKIPN S2 ;IS THIS THE LAST CHARACTER?
JRST CHKLA6 ;YES, GO RETURN SUCCESS
AOS S1 ;NO, COUNT THIS CHARACTER
CAILE S2,"9" ;IS THIS A DIGIT?
JRST CHKLA2 ;NO, CHECK FOR A LETTER
CAIL S2,"0" ;IS THIS A DIGIT?
JRST CHKLA5 ;YES, CHECK THE NEXT CHARACTER
CAIE S2,"$" ;IS THIS A "$"?
JRST CHKLA7 ;NO, SO IT IS INVALID
JRST CHKLA5 ;GO CHECK THE NEXT CHARACTER
CHKLA2: CAILE S2,"Z" ;IS THIS AN UPPER CASE LETTER?
JRST CHKLA3 ;NO, CHECK FOR LOWER CHASE LETTER
CAIL S2,"A" ;IS THIS AN UPPER CASE LETTER?
JRST CHKLA5 ;YES, CHECK THE NEXT CHARACTER
JRST CHKLA7 ;THIS CHARACTER IS INVALID
CHKLA3: CAILE S2,"z" ;IS THIS A LOWER CASE LETTER?
JRST CHKLA7 ;NO, IT IS INVALID
CAIL S2,"a" ;IS THIS A LOWER CASE LETTER?
JRST CHKLA4 ;YES, CONVERT TO UPPER CASE
CAIE S2,"_" ;IS THIS AN UNDERSCORE?
JRST CHKLA7 ;NO, IT IS INVALID
JRST CHKLA5 ;YES, CHECK THE NEXT CHARACTER
CHKLA4: SUBI S2,<"a"-"A"> ;CONVERT TO UPPER CASE
DPB S2,P1 ;STORE THE CHARACTER
CHKLA5: IBP P1 ;POINT TO THE NEXT CHARACTER
JRST CHKLA1 ;CHECK THE NEXT CHARACTER
CHKLA6: $RETT ;INDICATE ALL CHARACTERS VALID
;**;[266]Replace 2 lines with 5 lines JCR 10/20/89
CHKLA7: SOS S1 ;[266]Assume a carriage return
CAIN S2,.CHCRT ;[266]A carriage return?
$RETT ;[266]Yes, indicate success
MOVEI S2,[ASCIZ/Invalid character specified in name/] ;[266]
$RETF ;[266]Indicate invalid character
;**;[255]ROUTINE CHKSTR HAS BEEN ADDED AS PART OF THIS EDIT
;CHKSTR determines the length of an unquoted string. It also checks to ensure
;that the string contains only alphanumeric characters, "$", "-", "." and "_".
;This routine is used to validate LAT port, service and server names.
;
;Call is: No Arguments
;Returns true: All the characters specified in the name are valid
; S1/Length of the name
;Returns false: An invalid character was detected in the name
; S2/Address of the ASCIZ error string
CHKSTR: $SAVE <P1> ;SAVE THIS AC
SETZ S1, ;NUMBER OF CHARACTERS
MOVE P1,STRADR ;PICK UP THE STRING ADDRESS
AOS P1 ;POINT PASS THE HEADER
HRLI P1,(POINT 7,,6) ;MAKE IT INTO A POINTER
CHKST1: LDB S2,P1 ;PICK UP THE NEXT CHARACTER
SKIPN S2 ;IS THIS THE LAST CHARACTER?
JRST CHKST6 ;YES, GO RETURN SUCCESS
AOS S1 ;NO, COUNT THIS CHARACTER
CAILE S2,"9" ;IS THIS A DIGIT?
JRST CHKST2 ;NO, CHECK FOR A LETTER
CAIL S2,"0" ;IS THIS A DIGIT?
JRST CHKST5 ;YES, CHECK THE NEXT CHARACTER
CAIN S2,"$" ;IS THIS A "$"?
JRST CHKST5 ;YES, CHECK THE NEXT CHARACTER
CAIN S2,"-" ;IS THIS A "-"?
JRST CHKST5 ;YES, CHECK THE NEXT CHARACTER
CAIN S2,"." ;IS THIS A "."?
JRST CHKST5 ;YES, CHECK THE NEXT CHARACTER
CHKST2: CAILE S2,"Z" ;IS THIS AN UPPER CASE LETTER?
JRST CHKST3 ;NO, CHECK FOR LOWER CHASE LETTER
CAIL S2,"A" ;IS THIS AN UPPER CASE LETTER?
JRST CHKST5 ;YES, CHECK THE NEXT CHARACTER
JRST CHKST7 ;THIS CHARACTER IS INVALID
CHKST3: CAILE S2,"z" ;IS THIS A LOWER CASE LETTER?
JRST CHKST7 ;NO, IT IS INVALID
CAIL S2,"a" ;IS THIS A LOWER CASE LETTER?
JRST CHKST4 ;YES, CONVERT TO UPPER CASE
CAIE S2,"_" ;IS THIS AN UNDERSCORE?
JRST CHKST7 ;NO, IT IS INVALID
JRST CHKST5 ;YES, CHECK THE NEXT CHARACTER
CHKST4: SUBI S2,<"a"-"A"> ;CONVERT TO UPPER CASE
DPB S2,P1 ;STORE THE CHARACTER
CHKST5: IBP P1 ;POINT TO THE NEXT CHARACTER
JRST CHKST1 ;CHECK THE NEXT CHARACTER
CHKST6: $RETT ;INDICATE ALL CHARACTERS VALID
;**;[266]Replace 2 lines with 5 lines JCR 10/20/89
CHKST7: SOS S1 ;[266]Assume a carriage return
CAIN S2,.CHCRT ;[266]A carriage return?
$RETT ;[266]Yes, indicate success
MOVEI S2,[ASCIZ/Invalid character specified in name/] ;[266]
$RETF ;[266]Indicate invalid character
;[233]ROUTINE CHKNOD HAS BEEN ADDED AS PART OF THIS EDIT
;CHKNOD is called to ensure that the node specified in remote printing
;commands is not the local node
;**;[263]At CHKNOD:+0L change 1 line JYCW Oct-18-88
CHKNOD: $RETT ;[263]No need
;CHKNOD:HRROI S1,ATMBFR ;PICK UP THE ATOM BUFFER
$CALL S%SIXB ;CONVERT TO SIXBIT
CAME S2,G$NODE ;SPECIFIED NODE THE LOCAL NODE?
$RETT ;NO, INDICATE TO THE CALLER
MOVEI S2,[ASCIZ/Cannot specify the local node name/]
$RETF ;INDICATE ERROR TO THE CALLER
CHGBLK: MOVE S1,ARGFRE ;[260]PICK UP ADDRESS OF NEXT BLOCK
MOVE S2,[2,,.NDENM] ;[260]PICK UP CLUSTER-NODE NAME HEADER
EXCH S2,-2(S1) ;[260]REPLACE BLOCK HEADER WORD
CAME S2,[2,,.CMKEY] ;[260]A KEYWORD BLOCK?
JRST CHGB.2 ;[260]NO, GO INDICATE AN ERROR
MOVE S2,@-1(S1) ;[260]PICK UP THE SIXBIT NODE NAME
MOVEM S2,-1(S1) ;[260]REPLACE ITS ADDRESS
$RETT ;[260]RETURN TO OPRPAR VALIDATION
CHGB.2: MOVEI S2,[ASCIZ/Illegal node specification/]
$RETF ;[260]RETURN TO OPRPAR VALIDATION
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.
\
SHDFDB: $NOISE (SHD010,<scheduling for>)
UNVFDB: $NOISE (UNVF01,<object>)
UNVF01: $KEYDSP(UNVF02)
UNVF02: $STAB
ORNDSP(UNVF03,BATCH-STREAM,BAT)
ORNDSP(UNVF04,<CARD-PUNCH>,CDP)
IFN FTFTS,<
ORNDSP(UNVF03,<FAL-STREAM>,FAL)
ORNDSP(UNVF03,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
ORNDSP(UNVF04,<PAPER-TAPE-PUNCH>,PTP)
ORNDSP(UNVF04,<PLOTTER>,PLT)
ORNDSP(UNVF10,PRINTER,LPT)
ORNDSP(UNVF04,READER,RDR)
$ETAB
;**;[263]At UNVF02:+10L change 2 lines JYCW Oct-18-88
UNVF03: $SRANGE(UNVCLU) ;[263]
UNVF04: $URANGE(UNVCLU) ;[263]
;[230]UNVF10 - UNVF16 ARE PART OF THIS EDIT
UNVF10: $NOISE (UNVF11,<unit number or remote printer type >)
;[262]Change 1 line At UNVF11:+0L JYCW 8-Aug-88
UNVF11: $ORANGE (UNVF20,<number or range (n:m) (/NODE:)>,<$ALTERNATE(<UNVF12>)>) ;[237][262]
;[262]Add 1 line UNVF11:+1L JYCW 8-Aug-88
;**;[263]at UNVF20:+0L Change 1 line JYCW OCT-18-88
UNVF20: $NODE (UNVCLU) ;[262][263]/NODE:
;[230]REMOTE PRINTERS
UNVF12: $KEYDSP (UNVF13)
UNVF13: $STAB
CLUSTER< ORNDSP (UNVF14,CLUSTER,CLU)> ;[254]
ORNDSP (UNVF15,DQS,DQS)
ORNDSP (UNVF16,LAT,LAT)
$ETAB
CLUSTER<
;**;[263]At UNVF14:+0L change 1 line JYCW Oct-18-88
UNVF14: $CLUSPL(UNVCLU) ;[263]
> ;[254]End of CLUSTER
;**;[263]At UNVF15:+0L change 2 lines JYCw Oct-18-88
UNVF15: $DQSSPL(UNVCLU) ;[263]
UNVF16: $LATSPL(UNVCLU) ;[263]
;**;[263]At UNVF16:+0L Add 4 lines JYCW Oct-18-88
CLUSTER<
UNVCLU: $CLUNOD (CONFRM) ;[263]
>
SINGLE<
;**;[264]At UNVCLU:+0L change 1 line JCR 4/25/89
UNVCLU: $CRLF ;[264]Terminate the command.
>
CONFRM: $CRLF
SHD010: $KEYDSP(SHD020)
SHD020: $STAB
ORNDSP(UNVF03,BATCH-STREAM,BAT)
ORNDSP(UNVF04,<CARD-PUNCH>,CDP)
ORNDSP(SHD030,NODE,NOD)
ORNDSP(UNVF04,<PAPER-TAPE-PUNCH>,PTP)
ORNDSP(UNVF04,<PLOTTER>,PLT)
ORNDSP(UNVF10,PRINTER,LPT)
ORNDSP(UNVF04,READER,RDR)
$ETAB
SHD030: $NODNM(CONFRM,<node name>,<$FLAGS(CM%PO!CM%NSF)>)
SUBTTL ABORT command tables
ABOFDB: $NOISE (ABO010,<current job on>)
ABO010: $KEYDSP (ABO020)
ABO020: $STAB
ORNDSP (ABO060,<BATCH-STREAM>,BAT)
ORNDSP (ABO030,<CARD-PUNCH>,CDP)
IFN FTFTS,<
ORNDSP (ABO060,<FAL-STREAM>,FAL)
ORNDSP (ABO060,<FTS-STREAM>,FTS)
> ;End FTFTS conditional
ORNDSP (ABO030,<PAPER-TAPE-PUNCH>,PTP)
ORNDSP (ABO030,<PLOTTER>,PLT)
ORNDSP (ABO031,<PRINTER>,LPT)
ORNDSP (ABO090,<READER>,RDR)
$ETAB
; Output device tables
;
ABO030: $UNIT (ABO040)
;[230]ABO031 - ABO038 ARE PART OF THIS EDIT
ABO031: $NOISE (ABO032,<unit number or remote printer type>)
;[262]Change 1 line at ABO032:+1L JYCW 8-Aug-88
ABO032: $NUMBER (ABO033,^D10,<unit number (/NODE:)>,<$ACTION(CHKVAL),$ALTERNATIVE(ABO034)>)
;[262]add 1 line at ABO032:+1L JYCW 8-Aug-88
ABO033: $NODE (ABO040) ;[262]
;[230]REMOTE PRINTERS
ABO034: $KEYDSP (ABO035)
ABO035: $STAB
CLUSTER< ORNDSP (ABO036,CLUSTER,CLU)> ;[254]
ORNDSP (ABO037,DQS,DQS)
ORNDSP (ABO038,LAT,LAT)
$ETAB
CLUSTER<
ABO036: $CLUSPL (ABO040)
>;[254]End of CLUSTER
ABO037: $DQSSPL (ABO040)
ABO038: $LATSPL (ABO040)
ABO040: $SWITCH (ABO100,ABO050,<$ALTERNATE(ABO100)>)
ABO050: $STAB
ORNSWI (<PURGE>,PUR)
$ETAB
; Batch tables
;
ABO060: $STREAM (ABO070)
ABO070: $SWITCH (ABO100,ABO080,<$ALTERNATE(ABO100),$DEFAULT(</ERROR-PROCESSING>)>)
ABO080: $STAB
ORNSWI (<ERROR-PROCESSING>,ERR)
ORNSWI (<NOERROR-PROCESSING>,NER)
ORNSWI (<PURGE>,PUR)
$ETAB
; Card reader tables
;
ABO090: $UNIT (ABO100)
;**;[263]at ABO100:+0L change 1 line JYCW Oct-18-88
ABO100: $EXPL (UNVCLU,<$ALTER(UNVCLU)>) ;[263]
SUBTTL HOLD command tables
SUBTTL RELEASE command tables
HLDFDB: $KEY (HLD030,HLD010)
HLD010: $STAB
ORNKEY (<BATCH-JOBS>,BAT)
ORNKEY (<CARD-PUNCH-JOBS>,CDP)
IFN FTFTS,<
ORNKEY (<FTS-JOBS>,FTS)
> ;End FTFTS conditional
ORNKEY (<PAPER-TAPE-PUNCH-JOBS>,PTP)
ORNKEY (<PLOTTER-JOBS>,PLT)
ORNKEY (<PRINTER-JOBS>,LPT)
$ETAB
;**;[263]At HLD030:+0L change 1 line JYCW Oct-18-88
HLD030: $NUMBER(UNVCLU,^D10,<request-id>,<$ACTION(CHKPOS),$ALTERNATE(HLD035)>)
;**;[263]At HLD035:+0L change 1 line JYCW OCT-18-88
HLD035: $USER(UNVCLU,<$ALTERNATE(HLD040)>) ;[263]
HLD040: $TOKEN(HLD050,<*>,<$HELP(<* to specify all requests>)>)
;**;[263] AT HLD050:+0L change 1 line JYCW OCT-18-88
HLD050: $NODE(UNVCLU)
SUBTTL DEFINE command tables
IFN FTDN60,<
DEFFDB: $KEY(DEF020,DEF010,<$DEFAULT(<NODE>)>)
DEF010: $STAB
ORNKEY(<NODE>,NOD)
$ETAB
DEF020: $NOISE(DEF030,<name>)
DEF030: $NODNM(DEF040,<node name for IBM emulation/termination>,<$FLAGS(CM%PO!CM%NSF)>)
DEF040: $NOISE(DEF050,<type>)
DEF050: $KEYDSP(DEF060,<$DEFAULT(<HASP>)>)
DEF060: $STAB
ORNDSP(DEF063,<2780>,278)
ORNDSP(DEF063,<3780>,378)
ORNDSP(DEF063,<HASP>,HSP)
ORNDSP(DEF140,<SNA-WORKSTATION>,SNA)
$ETAB
DEF063: $SWITCH (DEF070,DEF065,<$ALTERNATE(DEF080),$DEFAULT(</SIGNON-REQUIRED>)>)
DEF065: $STAB
ORNSWI(<NO-SIGNON-REQUIRED>,NSN)
ORNSWI(<SIGNON-REQUIRED>,SON)
$ETAB
DEF070: $NOISE(DEF080,<mode>)
DEF080: $KEY(DEF100,DEF090,<$DEFAULT(<TERMINATION>)>)
DEF090: $STAB
ORNKEY(EMULATION,EMU)
ORNKEY(TERMINATION,TRM)
$ETAB
DEF100: $NOISE(DEF110,<port>)
DEF110: $NUMBER(DEF120,^D8,<port number for DN60>)
DEF120: $NOISE(DEF130,<line>)
DEF130: $NUMBER(CONFRM,^D8,<line number for DN60>)
DEF140: $KEYDSP(DEF142,<$DEFAULT(<GATEWAY>)>)
DEF142: $STAB
ORNDSP(DEF180,<ACCESS-NAME>,ACC)
ORNDSP(DEF150,<GATEWAY>,GWY)
$ETAB
DEF150: $NODNM(DEF160,<node name for SNA Gateway>,<$FLAGS(CM%PO!CM%NSF)>)
DEF160: $KEY(DEF170,DEF162,<$DEFAULT(<ACCESS-NAME>)>)
DEF162: $STAB
ORNKEY(<ACCESS-NAME>,ACC)
$ETAB
DEF170: $FIELD(CONFRM,<access name>)
DEF180: $FIELD(DEF190,<access name>)
DEF190: $KEY(DEF200,DEF192,<$DEFAULT(<GATEWAY>)>)
DEF192: $STAB
ORNKEY(<GATEWAY>,GWY)
$ETAB
DEF200: $NODNM(CONFRM,<node name for SNA Gateway>,<$FLAGS(CM%PO!CM%NSF)>)
>;END FTDN60
SUBTTL CANCEL command tables
CANFDB: $KEYDSP(CAN010)
CAN010: $STAB
ORNDSP (CAN020,<BATCH-REQUEST>,BAT)
ORNDSP (CAN020,<CARD-PUNCH-REQUEST>,CDP)
IFN FTFTS,<
ORNDSP (CAN020,<FTS-REQUEST>,FTS)
> ;End FTFTS conditional
ORNDSP (CAN040,<MOUNT-REQUEST>,MNT)
ORNDSP (CAN020,<PAPER-TAPE-PUNCH-REQUEST>,PTP)
ORNDSP (CAN020,<PLOTTER-REQUEST>,PLT)
ORNDSP (CAN020,<PRINTER-REQUEST>,LPT)
$ETAB
;**;[263]AT CAN020:+0L Change 1 line JYCW OCT-18-88
CAN020: $NUMBER(UNVCLU,^D10,<request number to cancel in queue or if active>,<$ACTION(CHKPOS),$ALTERNATE(CAN030)>) ;[263]
TOPS20 <
;**;[263]AT CAN030:+0L Change 1 line JYCW OCT-18-88
CAN030: $USER(UNVCLU,<$HELP(<user name whose jobs will be canceled>),$ALTERNATE(HLD040)>)
>;END TOPS20
;**;[264]At CAN030:+0L Replace 11 lines with 2 lines JCR 5/25/89
CAN040: $NUMBER(CAN060,^D10,<mount request number to cancel>,<$ACTION(CHKPOS),$ALTERNATE(CAN050)>) ;[264]
CAN050: $DEV(CAN060,<$HELP(<structure name to cancel all mount requests for>)>) ;[264]
;**;[263]At CAN060:+0L Change 1 line JYCW Oct-18-88
CAN060: $EXPL(UNVCLU,<$ALTERNATE(UNVCLU)>) ;[263]
SUBTTL MODIFY command tables
MODFDB:
$KEYDSP (MOD010)
MOD010: $STAB
TOPS10< ORNDSP (MOD300,<ACTIVE-SWAPPING-LIST>,ASL) >
ORNDSP (MOD020,<BATCH-REQUEST>,BAT)
ORNDSP (MOD020,<CARD-PUNCH-REQUEST>,CDP)
TOPS10< ORNDSP (MOD200,<CRASH-DUMP-LIST>,CDL) >
IFN FTFTS,<
ORNDSP (MOD020,<FTS-REQUEST>,FTS)
> ;End FTFTS conditional
ORNDSP (MOD020,<PAPER-TAPE-PUNCH-REQUEST>,PTP)
ORNDSP (MOD020,<PLOTTER-REQUEST>,PLT)
ORNDSP (MOD020,<PRINTER-REQUEST>,LPT)
TOPS10< ORNDSP (MOD200,<SYSTEM-SEARCH-LIST>,SSL) >
$ETAB
MOD020: $NUMBER(MOD030,^D10,<request number to modify in queue>,<$ACTION(CHKPOS),$ALTERNATE(MOD070)>)
MOD030: $KEYDSP(MOD040)
MOD040: $STAB
ORNDSP(MOD050,<PRIORITY>,PRI)
$ETAB
MOD050: $NOISE(MOD060,<to be>)
;**;[263]at MOD060:+0L change 1 line JYCW OCT-18-88
MOD060: $NUMBER(UNVCLU,^D10,<priority for request in range 1 to 63>,<$ACTION(CHKPRI)>) ;[263]
MOD070: $USER(MOD030,<$ALTERNATE(MOD080)>)
MOD080: $TOKEN(MOD090,<*>,<$HELP(<* to specify all requests>)>)
MOD090: $NODE(MOD030)
TOPS10<
;More of the MODIFY command tables
;Here if MODIFYing lists pertaining to file structures
MOD200: $NOISE (MOD210,<to>)
MOD210: $KEY (MOD230,MOD220)
MOD220: $STAB
ORNKEY (EXCLUDE,EXC)
ORNKEY (INCLUDE,INC)
$ETAB
MOD230: $DEV (CONFRM,$HELP(<file structure name>))
;Here if MODIFYing lists pertaining to disk drives (units)
MOD300: $NOISE (MOD310,<to>)
MOD310: $KEY (MOD320,MOD220)
MOD320: $DEV (CONFRM,<$HELP(<disk unit name>),$FLAGS(CM%PO)>)
>;END TOPS10
SUBTTL BACKSPACE command tables
SUBTTL FORWARDSPACE command tables
BKSFDB::$KEY (BKS002,BKS001,<$DEFAULT(<PRINTER>)>)
BKS001: $STAB
ORNKEY (<PRINTER>,LPT)
$ETAB
BKS002: $NOISE (BKS003,<unit number or remote printer type>) ;[260]
;[262]Change 1 line BKS003:+0L JYCW 8-Aug-88
BKS003: $NUMBER (BKS090,^D10,<unit number (/NODE:)>,<$ACTION(CHKVAL),$ALTERNATE(BKS006)>) ;[262]/NODE:
BKS006: $KEYDSP (BKS007) ;[260]
BKS007: $STAB ;[260]
ORNDSP (BKS008,LAT,LAT) ;[260]
$ETAB ;[260]
BKS008: $LATSPL (BKS009) ;[260]
;[262]Add 1 line at BKS080:+1L JYCW 8-Aug-88
BKS090: $NODE (BKS009) ;[262]/NODE:
BKS009: $SWITCH(,BKS010) ;[260]
BKS010: $STAB ;[260]
ORNSDP(BKS011,<COPIES:>,CPY) ;[260]
ORNSDP(CONFRM,<FILE>,FIL) ;[260]
ORNSDP(BKS012,<PAGES:>,PAG) ;[260]
$ETAB ;[260]
BKS011: $NUMBER (CONFRM,^D10,<number of copies>,$ACTION(CHKVAL));[260]
BKS012: $NUMBER (CONFRM,^D10,<number of pages>,$ACTION(CHKVAL)) ;[260]
SUBTTL ALIGN command table
ALIFDB::$NOISE (ALI001,<forms on>)
ALI001: $KEY (ALI003,ALI002,<$DEFAULT(<PRINTER>)>)
ALI002: $STAB
ORNKEY (<PRINTER>,LPT)
$ETAB
ALI003: $NOISE (ALI03A,<unit number or remote printer type>) ;[260]
;[262]Change 1 line at ALI03A:+0L JYCW 8-Aug-88
ALI03A: $NUMBER (ALI01A,^D10,<unit number (/NODE:)>,<$ACTION(CHKVAL),$ALTERNATE(ALI03C)>) ;[261][262]
ALI03C: $KEYDSP (ALI03D) ;[260]
ALI03D: $STAB ;[260]
ORNDSP (ALI03E,LAT,LAT) ;[260]
$ETAB ;[260]
ALI03E: $LATSPL (ALI010) ;[260]
ALI004: $IFILE (ALI005,<alignment file>,<$ALTER(ALI005)>)
ALI005: $SWITCH(,ALI006,<$ALTER(CONFRM),$ACTION(SHRSWT)>)
ALI006: $STAB
ORNSDP(ALI007,<PAUSE:>,PAU)
ORNSDP(ALI008,<REPEAT-COUNT:>,RPT)
$ETAB
ALI007: $NUMBER (NEXT,^D10,<seconds to pause>,$ACTION(CHKVAL))
ALI008: $NUMBER (NEXT,^D10,<times to print>,$ACTION(CHKVAL))
ALI009: $STAB
ORNSWI(STOP,STP)
$ETAB
;[262]Add 1 line at ALI009:+1L JYCW 8-Aug-88
ALI01A: $NODE (ALI010) ;[262]/NODE:
ALI010: $SWITCH(CONFRM,ALI009,<$ALTER(ALI004)>)
SUBTTL ENABLE/DISABLE command tables
ENAFDB: $KEYDSP (ENA001,<$DEFAULT(OUTPUT-DISPLAY)>)
ENA001: $STAB
TOPS20< ORNDSP(ENA050,<AUTOMATIC-VOLUME-RECOGNITION>,AVR)>
TOPS20< ORNDSP(ENACLS,<CLASS-SCHEDULER>,CLS)>
CLUSTER<ORNDSP(ENADCA,<DECNET-CONNECTION-ATTEMPTS>,DCA)> ;[254]
TOPS20< ORNDSP(CONFRM,<FILE-RETRIEVAL-WAITS>,RET)>
ORNDSP(CONFRM,<LOGFILES-TO-SPECIFIC-PRINTERS>,LSP)
ORNDSP(CONFRM,<LOGGING>,LGG)
ORNDSP(ENA100,<OUTPUT-DISPLAY>,OPD)
ORNDSP(ENA180,<PRINT-LOGFILES>,LFS)
ORNDSP(CONFRM,<QUEUE-REQUESTS>,QUE)
CLUSTER<ORNDSP(ENARCF,<REPORT-CONNECTION-FAILURES>,RCF)> ;[254]
ORNDSP(CONFRM,<SEMI-OPR>,SEM) ;[236]ENABLE/DISABLE SEMI-OPR
CLUSTER<ORNDSP(CONFRM,<UNPRIVILEGED-USER-ENTIRE-REMOTE-OUTPUT-DISPLAY>,UNP)>;[254]
TOPS10< ORNDSP(CONFRM,<STRUCTURE-RECOGNITION>,ASR)>
TOPS10< ORNDSP(ENA050,<VOLUME-RECOGNITION>,AVR)>
$ETAB
ENA050: $NOISE(ENA065,<for>)
ENA065: $KEY(CONFRM,ENA070,<$ALTERNATE(ENA075)>)
ENA070: $STAB
TOPS10< ORNKEY(<DISK-DRIVES>,DSK)>
ORNKEY(<TAPE-DRIVES>,TAP)
$ETAB
TOPS20<
ENA075: $DEV(CONFRM,$HELP(tape drive name))
>;END TOPS20
TOPS10<
ENA075: $DEV(CONFRM,<$HELP(<tape or disk drive name>)>)
>;END TOPS10
;continued on next page
;continued from previous page
; Here on ENABLE/DISABLE OUTPUT-DISPLAY
ENA100: $NOISE (ENA105,<of>)
IFG NUMAPL,<
ENA105: $KEYDSP(ENA110,<$ALTERNATE(ENA140)>)
>;END NUMAPL
IFLE NUMAPL,<
;**;[206]At ENA105:+0 change one line JYCW 22-apr-86
ENA105: $KEYDSP(ENA110) ;[206]If no application program show list
>;END
ENA110: $STAB
ORNDSP(ENA160,<ALL-MESSAGES>,ALM)
ORNDSP(ENA160,<BATCH-MESSAGES>,BAT)
ORNDSP(CONFRM,<BUGCHK-MESSAGES>,CHK)
ORNDSP(CONFRM,<BUGINF-MESSAGES>,INF)
ORNDSP(ENA160,<CARD-PUNCH-MESSAGES>,CDP)
ORNDSP(ENA160,<CARD-READER-INTERPRETER-MESSAGES>,BIN)
ORNDSP(CONFRM,<DECNET-EVENT-MESSAGES>,EVT)
ORNDSP(CONFRM,<DECNET-LINK-MESSAGES>,DLK)
IFN FTFTS,<
ORNDSP(ENA160,<FAL-MESSAGES>,FAL)
> ; End of FTFTS conditional
ORNDSP(ENA160,<FILE-RETRIEVAL-MESSAGES>,RET)
IFN FTFTS,<
ORNDSP(ENA160,<FTS-MESSAGES>,FTS)
> ; End of FTFTS conditional
ORNDSP(ENA160,<MOUNT-MESSAGES>,MNT)
ORNDSP(ENA160,<PAPER-TAPE-PUNCH-MESSAGES>,PTP)
ORNDSP(ENA160,<PLOTTER-MESSAGES>,PLT)
ORNDSP(ENA160,<PRINTER-MESSAGES>,LPT)
ORNDSP(ENA160,<READER-MESSAGES>,RDR)
ORNDSP(CONFRM,<SYSTEM-MESSAGES>,SYM)
ORNDSP(ENA160,<USER-MESSAGES>,USR)
$ETAB
IFG NUMAPL,<
ENA140: $KEY(CONFRM,ENA150)
DEFINE X(A,B,C,D),<ORNKEY(<A'-MESSAGES>,<B>)>
ENA150: $STAB
TABAPL
$ETAB
>;END NUMAPL
ENA160: $SWITCH(NEXT(ENA160),ENA170,<$ACTION(SHRSWT),$ALTERNATE(CONFRM)>)
ENA170: $STAB
ORNSWI(<INFORMATION-MESSAGES>,OTH)
ORNSWI(<JOB-MESSAGES>,JOB)
ORNSWI(<OPR-ACTION-MESSAGES>,OAM)
$ETAB
ENA180: $NOISE (ENA185,<to local printer>) ;[252]
ENA185: $ORANGE (CONFRM,<local printer number or range (n:m)>) ;[252]
SUBTTL ENACLS ENABLE CLASS SCHEDULER command tables
TOPS20 <
ENACLS: $SWITCH(,ENAC10,<$ALTERNATE(CONFRM),$ACTION(SHRSWT),$PREFILL(ENAACT)>)
ENAC10: $STAB
ORNSDP(ENAC30,<CLASS-ASSIGNMENTS:>,CAS)
ORNSDP(ENAC20,<WINDFALL:>,WFL)
$ETAB
ENAC20: $KEY(NEXT(ENAC10),ENAC25,<$DEFAULT(<ALLOCATED>)>)
ENAC25: $STAB
ORNKEY(<ALLOCATED>,ALO)
ORNKEY(<WITHHELD>,WHD)
$ETAB
ENAC30: $KEY(NEXT(ENAC10),ENAC35,<$DEFAULT(<ACCOUNT>)>)
ENAC35: $STAB
ORNKEY(ACCOUNT,ACT)
ORNKEY(<POLICY-PROGRAM>,PPR)
$ETAB
ENAACT: MOVE S1,CMDCOD ;GET THE COMMAND CODE
CAIE S1,.KYDIS ;WAS IT DISABLE?
$RETT ;NO..RETURN O.K.
MOVEI S1,CONFRM ;GET CONFRM ADDRESS
AOS S1 ;BUMP TO NEXT PDB
STORE S1,CR.PDB(S2),RHMASK ;RESET NEXT PDB
$RETT ;RETURN
>;END TOPS20
SUBTTL CLOSE command tables
SUBTTL DEFINE command tables
CLOFDB: $KEYDSP (CLO001,<$DEFAULT(<LOG>)>)
CLO001: $STAB
ORNDSP (CONFRM,LOG,LOG)
$ETAB
SUBTTL ENABLE/DISABLE NEBULA CONNECTIONS
CLUSTER<
ENARCF:
ENADCA: $SWITCH(ENAD20,ENAD10,<$ALTER(CONFRM)>) ;[247]
ENAD10: $STAB ;[247]
ORNSWI(<NODE:>,NOD) ;[247]
$ETAB ;[247]
ENAD20: $NODNM(CONFRM,<node name>,<$FLAGS(CM%PO!CM%NSF),$ACTION(CHKNOD)>)
> ;[254]End of CLUSTER
SUBTTL IDENTIFY command tables
TOPS20 <
IDNFDB::$NOISE(IDN010,<tape on drive>)>
TOPS10 <
IDNFDB: $NOISE(IDN010,<device>)>
TOPS20 <
IDN010: $DEV(IDN020,<$HELP(<tape drive name>)>)>
TOPS10 <
IDN010: $DEV(IDN020,<$HELP(<device name>)>)>
IDN020: $NOISE(IDN030,<with>)
IDN030: $KEYDSP(IDN040,<$DEFAULT(<REQUEST-ID>)>)
IDN040: $STAB
ORNDSP(IDN050,<REQUEST-ID>,RQN)
;**;[263]at IDN040:+2L change 4 lines JYCW OCT-18-88
TOPS20< ORNDSP(UNVCLU,<SCRATCH>,SCR) > ;[263]ONLY VALID ON TOPS20
ORNDSP(IDN060,<VOLUME-ID>,VID)
$ETAB
IDN050: $NUMBER(UNVCLU,^D10,<request number of the mount request>,<$ACTION(CHKPOS)>) ;[263]
IDN060: $QUOTE(UNVCLU,<volume-id in quotes if has non-alphanumeric characters>,<$ALTERNATE(IDN070)>) ;[263]
IDN070: $FIELD(UNVCLU,<volume-id without quotes>) ;[263]
SUBTTL DISMOUNT command tables
DSMFDB:$KEYDSP(DSM010)
DSM010: $STAB
ORNDSP(DSM020,<STRUCTURE>,STR)
ORNDSP(DSM030,<TAPE-DRIVE>,TAP)
$ETAB
TOPS20 <
DSM020: $DEV (DSM060,<$HELP(<structure name to dismount>)>)
DSM060: $NOISE (DSM070,<with>,<$ALTERNATE(CONFRM)>)
DSM070: $KEY (CONFRM,DSM080,<$ALTERNATE(CONFRM)>)
DSM080: $STAB
ORNKEY (<NO-REMOVAL>,NRM)
ORNKEY (<REMOVAL>,REM)
$ETAB
> ;End TOPS20
DSM030: $DEV (CONFRM,<$HELP(<tape drive from which to dismount tape>)>)
TOPS10 <
DSM020: $DEV (DSM040,<$HELP(<structure name to dismount>),$FLAGS(CM%PO)>)
DSM040: $SWITCH(,DSM050,<$ACTION(SHRSWT),$ALTERNATE(CONFRM)>)
DSM050: $STAB
ORNSDP(NEXT(DSM040),<NOCHECK>,NCK)
ORNSDP(NEXT(DSM040),<REMOVE>,REM)
$ETAB
> ;End TOPS10
comment \
;removed on July 11,1979
SUBTTL UNLOAD command tables (removed)
UNLFDB: $NOISE(UNL010,<tape drive>)
UNL010: $DEV (CONFRM,<$HELP(<tape drive to unload>)>)
; UNDEFINED FOR NOW
\;end of comment
SUBTTL RECOGNIZE command tables
TOPS10 <
RECFDB: $NOISE(REC010,<labels on>)
REC010: $DEV (CONFRM,<$HELP(<tape or disk drive to recognize>),$FLAGS(CM%PO)>)
>;END TOPS10
SUBTTL HELP command tables
ND CR.ADR,4 ;Address of current argument
HLPFDB:: $NOISE (HLPFD1,<with>)
HLPFD1: $CTEXT(,<command>,<$ACTION(HLPACT),$DEFAULT(HELP)>)
HLPACT: MOVE T1,CR.ADR(S2) ;Get the data
HRROI T1,ARG.DA(T1) ;Point to the string
$CALL SETOUT## ;Setup proper $TEXT defaults
MOVEI S1,HEPFD ;Point to help file
MOVE S2,T1 ;Point to string
$CALL P$HELP##
$CALL SNDOUT## ;Send the output
$CALL P$NPRO## ;Mark no processing
$RETT ;Return
;File descriptor for help file for OPR
TOPS20 <
HEPFD: XWD HSIZ,0
ASCIZ /HLP:OPR.HLP/
HSIZ==.-HEPFD
>
TOPS10 <
HLPFD: $BUILD FDMSIZ
$SET(.FDLEN,FD.LEN,FDMSIZ)
$SET(.FDSTR,,<SIXBIT/HLP/>)
$SET(.FDNAM,,<SIXBIT/OPR/>)
$SET(.FDEXT,,<SIXBIT/HLP/>)
$EOB
>
SUBTTL SHOW ALLOCATION command tables
TOPS10<
ALC000: $KEYDSP (ALC010)
ALC010: $STAB
ORNDSP (CONFRM,<ALL-REQUESTS>,ALL)
ORNDSP (ALC020,<BATCH-REQUEST>,BRQ)
ORNDSP (ALC030,JOB,JOB)
$ETAB
ALC020: $NUMBER (CONFRM,^D10,<request-id for batch job>,<$ALTERNATE(ALC040)>)
ALC030: $NUMBER (CONFRM,^D10,<job number>)
ALC040: $CRLF ($HELP(<confirm for all batch requests>))
>;END TOPS10
END