JBCSYMOPT       - PROCESS SYMBIONT MANAGER OPTIONS               22-AUG-1978 00:51:47   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      39  DECLARATIONS

   (3)      59  PROCESS OPTIONS

JBCSYMOPT       - PROCESS SYMBIONT MANAGER OPTIONS               22-AUG-1978 00:51:47   VAX-11 MACRO X0.3-11               Page   1

V01                                                                                                                              (1)



                                     0000     1 	.TITLE	JBCSYMOPT - PROCESS SYMBIONT MANAGER OPTIONS

                                     0000     2 	.IDENT	/V01/

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     7 ;

                                     0000     8 ; THIS SOFTWARE IS FURNISHED  UNDER A LICENSE FOR USE ONLY ON A SINGLE

                                     0000     9 ; COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY WITH  THE INCLUSION OF THE

                                     0000    10 ; ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,

                                     0000    11 ; MAY NOT BE PROVIDED OR  OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON

                                     0000    12 ; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE

                                     0000    13 ; TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES

                                     0000    14 ; REMAIN IN DEC.

                                     0000    15 ;

                                     0000    16 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE

                                     0000    17 ; AND SHOULD  NOT BE CONSTRUED  AS A COMMITMENT  BY DIGITAL  EQUIPMENT

                                     0000    18 ; CORPORATION.

                                     0000    19 ;

                                     0000    20 ; DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE USE OR  RELIABILITY OF ITS

                                     0000    21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

                                     0000    22 ;

                                     0000    23 

                                     0000    24 ;++

                                     0000    25 ; FACILITY:	STARLET JOB CONTROLLER/SYMBIONT MANAGER

                                     0000    26 ;

                                     0000    27 ; ABSTRACT:	CONVERT SYMBIONT MANAGER REQUESTS

                                     0000    28 ;

                                     0000    29 ;

                                     0000    30 ; ENVIRONMENT:	NATIVE NON-PRIVLEGED USER MODE CODE

                                     0000    31 ;

                                     0000    32 ; AUTHOR:  W.H.BROWN, CREATION DATE: 6-APR-77

                                     0000    33 ;

                                     0000    34 ; MODIFIED BY:

                                     0000    35 ;

                                     0000    36 ;	, : VERSION

                                     0000    37 ; 01	- 

                                     0000    38 ;--

                                     0000    39 	.SBTTL	DECLARATIONS

                                     0000    40 ;

                                     0000    41 ; INCLUDE FILES:

                                     0000    42 ;

                                     0000    43 ;	[235,10]J/ML

                                     0000    44 ;

                                     0000    45 ; MACROS:

                                     0000    46 ;

                                     0000    47 ; EQUATED SYMBOLS:

                                     0000    48 ;

                                     0000    49 	$SMRDEF				; SYMBIONT MANAGER REQUEST CODES

                                     0000    50 	$MSGDEF				; SYSTEM WIDE MESSAGE CODES

                                     0000    51 	JBCPARDEF			; DEFINE JOB CONTROLLER PARAMETERS

                                     0000    52 	JBCQUEDEF			; DEFINE QUEUE OFFSETS

                                     0000    53 	JBCSCTDEF			; SYMBIONT CONTROL TABLE DEFINITIONS

                                     0000    54 ;

                                     0000    55 ; OWN STORAGE:	THIS MODULE HAS NO LOCAL STORAGE

                                     0000    56 ;

JBCSYMOPT       - PROCESS SYMBIONT MANAGER OPTIONS               22-AUG-1978 00:51:47   VAX-11 MACRO X0.3-11               Page   2

V01             DECLARATIONS                                                                                                     (3)



                                     0000    58 

                                     0000    59 	.SBTTL	PROCESS OPTIONS

                                     0000    60 ;++

                                     0000    61 ; FUNCTIONAL DESCRIPTION:

                                     0000    62 ;

                                     0000    63 ;	THIS ROUTINE IS CALLED TO PROCESS ALL THE OPTIONS

                                     0000    64 ;	ASSOCIATED WITH A GIVEN SYMBIONT MANAGER REQUEST.

                                     0000    65 ;	THERE ARE SEVERAL MAIN SUBROTINES THAT ARE USED

                                     0000    66 ;	DEPENDING UPON THE CURRENT REQUEST BEING PROCESSED

                                     0000    67 ;	BY THE SYMBIONT MANAGER.

                                     0000    68 ;

                                     0000    69 ; CALLING SEQUENCE:

                                     0000    70 ;

                                     0000    71 ;	BSB/JSB	SYM$CNVOPTINI		; CONVERT OPTIONS FOR INIT & START

                                     0000    72 ;	BSB/JSB	SYM$CNVOPTENT		; CONVERT OPTIONS FOR AN ENTER

                                     0000    73 ;	BSB/JSB	SYM$CNVOPTJOB		; CONVERT OPTIONS FOR JOB CREATE

                                     0000    74 ;

                                     0000    75 ; INPUT PARAMETERS:

                                     0000    76 ;

                                     0000    77 ; IN ALL CASES:		R5 HAS ADDRESS OF FIRST OPTION

                                     0000    78 ; 			R10 HAS BASE OF PRINT QUEUE FILE

                                     0000    79 ;			R9 HAS CURRENT SYMBIONT MANAGER RECORD

                                     0000    80 ;

                                     0000    81 ; AT SYM$CNVOPTINI:	R6 IS THE ADDRESS OF THE DEVICE QUEUE

                                     0000    82 ;

                                     0000    83 ; AT SYM$CNVOPTENT:	R7 HAS ADDRESS OF PRINT JOB HEADER RECORD

                                     0000    84 ;			R8 HAS ADDRESS OF THE PRINT FILE DESCRIPTOR

                                     0000    85 ;

                                     0000    86 ; OUTPUT PARAMETERS:

                                     0000    87 ;

                                     0000    88 ;	ALL OPTIONS ARE PROCESS ADJUSTING DATA IN THE RECORDS

                                     0000    89 ;	AS NECESSARY. R5 IS ADVANCED TO THE END OF THE OPTION LIST

                                     0000    90 ;	AS SPECIFIED BY THE LENGTH OF THE MESSAGE, OR BY ENCOUNTERING

                                     0000    91 ;	A ZERO BYTE IN THE OPTION FIELD

                                     0000    92 ;

                                     0000    93 ; COMPLETION CODES:

                                     0000    94 ;

                                     0000    95 ;	R0 WILL CONTAIN SMINVOPT IF AN INVALID OPTION IS DETECTED

                                     0000    96 ;

                                     0000    97 ; SIDE EFFECTS:		NONE

                                     0000    98 ;--

                                     0000    99 	PURE_SECTION

                                     0000   100 

                                     0000   101 SYM$CNVOPTINI::				; CONVERT OPTIONS FOR INIT AND START

                          0197   30  0000   102 	BSBW	SYM$GETOPT		; PICK UP NEXT OPTION CODE

                       FA AF     DF  0003   103 	PUSHAL	B^SYM$CNVOPTINI		; SET RETURN ADDRESS

                                     0006   104 	CASE	R0,-			; DISPATCH ON CODE

                                     0006   105 		LIMIT = #SMO$K_CURFORM,<- ; LOW VALUE FOR CASE IS THE FORMS-TYPE

                                     0006   106 		DEVQUEFORM,-		; SET DEVICE FORMS TYPE

                                     0006   107 		GENERICPRT,-		; GENERIC PRINTING ALLOWED

                                     0006   108 		NOGENERIC,-		; AND THE ONE TO INHIBIT GENERIC OUTPUT

                                     0006   109 		DETJOB,-		; THE QUEUE IS FOR DETACHED JOB QUEUING

                                     0006   110 		GENDEVQUE,-		; THE QUEUE IS FOR GENERIC DEVICE

                                     0006   111 		NOGENDEV,-		; NOT A GENERIC DEVICE

                                     0006   112 		DEFBRST,-		; DEFAULT A BURST PAGE

                                     0006   113 		NODEFBRST,-		; NO DEFAULT BURST PAGE

                                     0006   114 		DEFFLAG,-		; DEFAULT A FLAG PAGE

JBCSYMOPT       - PROCESS SYMBIONT MANAGER OPTIONS               22-AUG-1978 00:51:47   VAX-11 MACRO X0.3-11               Page   3

V01             PROCESS OPTIONS                                                                                                  (3)



                                     0006   115 		NODEFFLAG,-		; NO DEFAULT FLAG

                                     0006   116 		TERMINAL,-		; QUEUE IS FOR A TERMINAL

                                     0006   117 		NOTERMINAL,-		; NOT A TERMINAL

                                     0006   118 		JOBLIMIT,-		; SET BATCH QUEUE JOB LIMIT

                                     0006   119 		INITPRI,-		; BATCH JOB INITIAL PRIORITY

                                     0006   120 		NOSWAP,-		; DISABLE SWAPING THE JOB

                                     0006   121 		>

                          64     11  002A   122 	BRB	INVOPT			; INVALID OPTION FOR THIS REQUEST

                                     002C   123  

                                     002C   124  

                                     002C   125 SYM$CNVOPTENT::				; CONVERT OPTIONS FOR ENTER FILE

                          016B   30  002C   126 	BSBW	SYM$GETOPT		; GET NEXT OPTION CODE INTO R0

                       FA AF     DF  002F   127 	PUSHAL	B^SYM$CNVOPTENT		; SET RETURN FROM CASE ADDRESS

                                     0032   128 	CASE	R0,-			; DISPATCH ON OPTION TYPE

                                     0032   129 		LIMIT = #SMO$K_DELETE,-	; LOW LIMIT VALE OF CASE

                                     0032   130 		<DELETEOP,-		; DELETE FILE OPTION

                                     0032   131 		BRSTPAG,-		; PROVIDE A BURST PAGE

                                     0032   132 		NOBRST,-		; NO BURST PAGE PRINT

                                     0032   133 		FLAGPAG,-		; PRINT A FLAG PAGE

                                     0032   134 		NOFLAG,-		; DONT PRINT A FLAG

                                     0032   135 		PAGHDR,-		; ENABLE THE PAGE HEADER

                                     0032   136 		DOUBLE,-		; SPACING:2 LISTING

                                     0032   137 		NOFEED,-		; NO SYMBIONT GENERATED FORM-FEEDS

                                     0032   138 		PAGCNT,-		; A PAGE COUNT WAS SPECIFIED

                                     0032   139 		FILCOPIES,-		; NUMBER OF COPIES PER FILE

                                     0032   140 		>

                          06     11  004A   141 	BRB	JOBOPT			; TRY JOB OPTIONS IF THIS FAILS

                                     004C   142  

                                     004C   143 SYM$CNVOPTJOB::				; CONVERT OPTIONS FOR JOB CREATE

                          014B   30  004C   144 	BSBW	SYM$GETOPT		; PICK UP NEXT OPTION BYTE

                       FA AF     DF  004F   145 	PUSHAL	B^SYM$CNVOPTJOB		; SER RETURN ADDRESS

                                     0052   146 JOBOPT:	CASE	R0,-

                                     0052   147 		LIMIT = #SMO$K_RLSTIM,<- ; LOWEST VALID OPTION IS RELEASE TIME

                                     0052   148 		RLSTIME,-		; SPECIFY TIME TO HOLD JOB UNTIL

                                     0052   149 		HOLDJOB,-		; HOLD JOB INDEFINITELY

                                     0052   150 		JOBPRI,-		; SPECIFY JOB PRIORITY

                                     0052   151 		JOBCOPIES,-		; SPECIFY A COPY COUNT FOR JOB

                                     0052   152 		PRTFORMTYP,-		; SPECIFY FORM TYPE

                                     0052   153 		LOWER,-			; REQUIRE LOWER CASE PRINTER

                                     0052   154 		JOBPARM,-		; SET JOB PARAMETERS

                                     0052   155 		JOBNAME,-		; SET THE JOB NAME

                                     0052   156 		NOLOWER,-		; CLEAR LOWER CASE REQUIRED

                                     0052   157 		>

                          26     11  0068   158 10$:	BRB	INVOPT			; BAD OPTION VALUE

                                     006A   159  

                                     006A   160 SYM$CNVOPTABO::				; CONVERT OPTION FOR ABORT

                          51     D4  006A   161 	CLRL	R1			; ASSUME NO REQUEUE IS REQUESTED

                          012B   30  006C   162 10$:	BSBW	SYM$GETOPT		; GET THE NEXT OPTION FROM THE MESSAGE

                       FA AF     9F  006F   163 	PUSHAB	10$			; ADDRESS OF NEXT PLACE TO GO

         70 8F            50     91  0072   164 	CMPB	R0,#SMO$K_REQUEUE	; REQUEUE REQUEST?

                          18     12  0076   165 	BNEQ	INVOPT			; BR IF NO - IT MUST BE INVALID

                          51     D6  0078   166 	INCL	R1			; MAKE VALUE TRUE

                                 05  007A   167 	RSB				; CHECK FOR VALID END OF MESSAGE

                                     007B   168  

                                     007B   169 SYM$CNVOPTRES::				; CONVERT OPTIONS FOR RESTART

            51            13     3C  007B   170 	MOVZWL	#MSG$_RESOPR,R1		; ASSUME RESTART AT CURRENT PLACE

                          0119   30  007E   171 10$:	BSBW	SYM$GETOPT		; PICK UP NEXT OPTION CODE

JBCSYMOPT       - PROCESS SYMBIONT MANAGER OPTIONS               22-AUG-1978 00:51:47   VAX-11 MACRO X0.3-11               Page   4

V01             PROCESS OPTIONS                                                                                                  (3)



                       FA AF     9F  0081   172 	PUSHAB	10$			; PUSH RETURN FROM OPTION PROCESSOR

                                     0084   173 	CASE	R0,-			; DECODE THE OPTION

                                     0084   174 		LIMIT=#SMO$K_NEXTJOB,<-	; LOW LIMIT FOR THE CASE

                                     0084   175 		RSTRTNXT,-		; RESTART AT NEXT FILE

                                     0084   176 		TOPOFILE,-		; RESTART AT THE BEGINNING

                                     0084   177 		SPACECNT,-		; SPECIFY SPACING COUNT

                                     0084   178 		>

                          011E   31  0090   179 INVOPT:	BRW	SYM_INVOPT		; ILLEGAL OPTION

                                     0093   180 ;

                                     0093   181 ; SPECIFIC OPTION ROUTINES

                                     0093   182 ;

                                     0093   183  

                                     0093   184 RSTRTNXT:				; RESTART PRINTING AT NEXT FILE

            51            11     3C  0093   185 	MOVZWL	#MSG$_ABOOPR,R1		; SET TO ABORT CURRENT OPERATION

                                 05  0096   186 	RSB				; RETURN TO THE DISPATCHER

                                     0097   187  

                                     0097   188 SPACECNT:				; SPACE THE LISTING

            50            85     32  0097   189 	CVTWL	(R5)+,R0		; GET THE COUNT

            50   00010000 8F     7A  009A   190 	EMUL	#<1@16>,R0,R1,R0	; MERGE COUNT WITH MESSAGE

            50            51         00A1       

                                 05  00A3   191 	RSB				; BACK TO THE DISPATCHER

                                     00A4   192  

                                     00A4   193 TOPOFILE:				; RESTART AT THE BEGINNING

                                     00A4   194 	SETBIT	#31,R1			; SET FLAG FOR TOP OF FILE

                                 05  00A8   195 	RSB				; AND BACK TO THE DISPATCHER

                                     00A9   196  

                                     00A9   197 GENERICPRT:				; GENERIC PRINTING ON DEVICE

                                     00A9   198 	CLRBIT	SMQ$V_NOGENERIC,SMQ$B_FLAGS(R6) ; ENABLE GENERIC PRINTING

                                 05  00AD   199 	RSB				; RETURN TO DISPATCHER

                                     00AE   200  

                                     00AE   201 NOGENERIC:				; DISALLOW GENERIC PRINTING ON DEVICE

                                     00AE   202 	SETBIT	SMQ$V_NOGENERIC,SMQ$B_FLAGS(R6) ; DISABLE GENERIC PRINTING

                                 05  00B2   203 	RSB				; RETURN TO DISPATCHER

                                     00B3   204 DETJOB:					; QUEUE IS FOR DETACHED JOB QUEUING

                                     00B3   205 	SETBIT	SMQ$V_DETJOB,SMQ$B_FLAGS(R6) ; SET PROPER FLAG

                                 05  00B7   206 	RSB				; RETURN TO DISPATCHER

                                     00B8   207  

                                     00B8   208 GENDEVQUE:				; SET FLAG THAT THIS QUEUE IS

                                     00B8   209 	SETBIT	SMQ$V_GENDEV,SMQ$B_FLAGS(R6) ; FOR THE GENERIC DEVICE

                                 05  00BC   210 	RSB				; RETURN TO DISPATCHER

                                     00BD   211  

                                     00BD   212 NOGENDEV:				; CLEAR FLAG THAT THIS QUEUE IS

                                     00BD   213 	CLRBIT	SMQ$V_GENDEV,SMQ$B_FLAGS(R6) ; FOR THE GENERIC DEVICE

                                 05  00C1   214 	RSB				; RETURN TO DISPATCHER

                                     00C2   215  

                                     00C2   216 DEFBRST:				; DEFAULT A BURST PAGE

                                     00C2   217 	SETBIT	SMQ$V_DEFBRST,SMQ$B_CHAR(R6) ; SET FLAG

                                 05  00C6   218 	RSB				; RETURN TO DISPATCHER

                                     00C7   219  

                                     00C7   220 NODEFBRST:				; NO DEFAULT BURST PAGE

                                     00C7   221 	CLRBIT	SMQ$V_DEFBRST,SMQ$B_CHAR(R6) ; CLR FLAG

                                 05  00CB   222 	RSB				; RETURN TO DISPATCHER

                                     00CC   223  

                                     00CC   224 DEFFLAG:				; DEFAULT A BURST PAGE

                                     00CC   225 	SETBIT	SMQ$V_DEFFLAG,SMQ$B_CHAR(R6) ; SET FLAG

                                 05  00D0   226 	RSB				; RETURN TO DISPATCHER

                                     00D1   227  

JBCSYMOPT       - PROCESS SYMBIONT MANAGER OPTIONS               22-AUG-1978 00:51:47   VAX-11 MACRO X0.3-11               Page   5

V01             PROCESS OPTIONS                                                                                                  (3)



                                     00D1   228 NODEFFLAG:				; NO DEFAULT BURST PAGE

                                     00D1   229 	CLRBIT	SMQ$V_DEFFLAG,SMQ$B_CHAR(R6) ; CLR FLAG

                                 05  00D5   230 	RSB				; RETURN TO DISPATCHER

                                     00D6   231  

                                     00D6   232 TERMINAL:				; DEVICE IS A TERMINAL

                                     00D6   233 	SETBIT	SMQ$V_TRMDEV,SMQ$B_CHAR(R6) ; SET FLAG

                                 05  00DA   234 	RSB				; RETURN TO DISPATCHER

                                     00DB   235  

                                     00DB   236 NOTERMINAL:				; DEVICE IS NOT A TERMINAL

                                     00DB   237 	CLRBIT	SMQ$V_TRMDEV,SMQ$B_CHAR(R6) ; CLR FLAG

                                 05  00DF   238 	RSB				; RETURN TO DISPATCHER

                                     00E0   239  

                                     00E0   240 JOBLIMIT:				; SET BATCH QUEUE JOB LIMIT

         0B A6            85     90  00E0   241 	MOVB	(R5)+,SMQ$B_JOBLIM(R6)	; SET DETACHED JOB LIMIT

                                 05  00E4   242 	RSB				; RETURN TO DISPATCHER

                                     00E5   243  

            50            85     9A  00E5   244 INITPRI:MOVZBL	(R5)+,R0		; JOB INITIATION PRIOITY

                          50     F0  00E8   245 	INSV	R0,#SMQ$V_INIPRI,-	; SET BASE PRIORITY INTO QUEUE

            04            00         00EA   246 		#SMQ$S_INIPRI,SMQ$B_CHAR(R6) ; INTO CHARACTERISTICS BYTE

                       0A A6         00EC       

                                 05  00EE   247 	RSB				;

                                     00EF   248  

                                     00EF   249 NOSWAP:	SETBIT	SMQ$V_NOSWAP,SMQ$B_CHAR(R6) ; DIABLE SWAPPING FOR THIS QUEUE

                                 05  00F3   250 	RSB

                                     00F4   251  

                                     00F4   252  

                                     00F4   253 DEVQUEFORM:				; SET DEVICE FORMS TYPE

         09 A6            85     90  00F4   254 	MOVB	(R5)+,SMQ$B_FORMS(R6)	; SET THE FORMS TYPE

                                 05  00F8   255 	RSB				; RETURN TO DISPATCHER

                                     00F9   256  

                                     00F9   257 DELETEOP:				; DELETE FILE AFTER PRINTING

                                     00F9   258 	SETBIT	SQR$V_DELETE,SQR$B_FLAGS(R8) ; SET FLAG TO DELETE

                                 05  00FD   259 	RSB				; RETURN TO DISPATCHER

                                     00FE   260  

                                     00FE   261 BRSTPAG:				; PRINT A BURST PAGE PRIOR TO FILE

                                     00FE   262 	SETBIT	SQR$V_BRSTPAG,SQR$B_FLAGS(R8) ; SET FLAG TO PRINT BURST PAGE

                                 05  0102   263 	RSB				; RETURN TO DISPATCHER

                                     0103   264  

                                     0103   265 NOBRST:

                                     0103   266 	CLRBIT	SQR$V_BRSTPAG,SQR$B_FLAGS(R8) ; CLEAR FLAG FOR BUSRT PAGE

                                 05  0107   267 	RSB				; RETURN TO DISPATCHER

                                     0108   268  

                                     0108   269 FLAGPAG:				; PRINT A FLAG PAGE IN FRONT OF FILE

                                     0108   270 	SETBIT	SQR$V_FLAGPAG,SQR$B_FLAGS(R8) ; SET FLAG TO PRINT BURST PAGE

                                 05  010C   271 	RSB				; RETURN TO DISPATCHER

                                     010D   272  

                                     010D   273 NOFLAG:

                                     010D   274 	CLRBIT	SQR$V_FLAGPAG,SQR$B_FLAGS(R8) ; CLEAR BIT TO PRINT FLAG PAGE

                                 05  0111   275 	RSB				; RETURN TO DISPATCHER

                                     0112   276  

                                     0112   277 PAGHDR:					; TURN ON HEADER FOR PAGES

                                     0112   278 	SETBIT	SQR$V_PAGHDR,SQR$B_FLAGS(R8) ; SET FLAG IN FILE RECORD

                                 05  0116   279 	RSB				; RETURN TO DISPATCHER

                                     0117   280  

                                     0117   281 DOUBLE:					; DOUBLE SPACE THE LISTING

                                     0117   282 	SETBIT	SQR$V_DOUBLE,SQR$B_FLAGS(R8) ; SET BIT FOR DOUBLE SPACING

                                 05  011B   283 	RSB				; RETURN TO DISPATCHER

JBCSYMOPT       - PROCESS SYMBIONT MANAGER OPTIONS               22-AUG-1978 00:51:47   VAX-11 MACRO X0.3-11               Page   6

V01             PROCESS OPTIONS                                                                                                  (3)



                                     011C   284  

                                     011C   285 NOFEED:					; NO IMPLIED FORM-FEED

                                     011C   286 	SETBIT	SQR$V_NOFEED,SQR$B_FLAGS(R8) ; SET BIT IF JOB RECORD

                                 05  0120   287 	RSB				; RETURN TO DISPATCHER

                                     0121   288  

                                     0121   289 PAGCNT:					; SET MAXIMUM PAGE COUNT

         3A A8            85     B0  0121   290 	MOVW	(R5)+,SQR$W_PAGCNT(R8)	; SET USER SUPPLIED PAGE COUNT

                                 05  0125   291 	RSB				; RETURN TO DISPATCHER

                                     0126   292  

                                     0126   293 FILCOPIES:				; SPECIFY COPY COUNT FOR FILE

         39 A8            85     90  0126   294 	MOVB	(R5)+,SQR$B_COPYCNT(R8)	; SET COPY COUNT IN FILE RECORD

                                 05  012A   295 	RSB				; RETURN TO DISPATCHER

                                     012B   296  

                                     012B   297 RLSTIME:				; SPECIFY TIME TO RELEASE JOB

         2C A7            85     7D  012B   298 	MOVQ	(R5)+,SJH$Q_TIME(R7)	; SET TIME TO HOLD FILE

                                 05  012F   299 	RSB				; RETURN TO DISPATCHER

                                     0130   300  

                                     0130   301 HOLDJOB:				; HOLD FILE FOR PRINTING LATER

                                     0130   302 	SETBIT	SJH$V_HOLD,SJH$B_FLAGS(R7) ; SET FLAG TO INDICATE HOLD STATE

                                 05  0134   303 	RSB				; RETURN TO DISPATCHER

                                     0135   304  

                                     0135   305 LOWER:	SETBIT	SJH$V_LOWER,SJH$B_FLAGS(R7) ; SET FLAG TO INDICATE LOWER CASE-

                                 05  0139   306 	RSB				; PRINTING REQUIRED AND RETURN

                                     013A   307  

                                     013A   308 NOLOWER:CLRBIT	SJH$V_LOWER,SJH$B_FLAGS(R7) ; CLEAR FLAG TO INDICATE LOWER CASE-

                                 05  013E   309 	RSB				; PRINTING NOT REQUIRED AND RETURN

                                     013F   310  

                                     013F   311 PRTFORMTYP:				; SET PRINT FORM TYPE

         0D A7            85     90  013F   312 	MOVB	(R5)+,SJH$B_FORMS(R7)	; SET PRINT FORMS

                                 05  0143   313 	RSB				; RETURN TO DISPATCHER

                                     0144   314  

                                     0144   315 JOBCOPIES:				; SPECIFY COPY COUNT FOR ENTIRE JOB

         0E A7            85     90  0144   316 	MOVB	(R5)+,SJH$B_COPYCNT(R7)	; SET COUNT IN JOB HEADER

                                 05  0148   317 	RSB				; RETURN TO DISPATCHER

                                     0149   318  

            50            85     9A  0149   319 JOBNAME:MOVZBL	(R5)+,R0		; GET LENGTH OF NAME STRING

            08            50     D1  014C   320 	CMPL	R0,#8			; NAME TO LONG

                          60     14  014F   321 	BGTR	SYM_INVOPT		; BR IF YES

            65            50     2C  0151   322 	MOVC5	R0,(R5),#^A/ /,#8,SJH$Q_JOBNAME(R7) ; SET JOB NAME IN RECORD

            08            20         0154       

                       34 A7         0156       

            55            51     D0  0158   323 	MOVL	R1,R5			; SET INPUT POINTER

                                 05  015B   324 	RSB				;

                                     015C   325  

                          FEA1'  30  015C   326 JOBPARM:BSBW	SYM$ALLRECORD		; ALLOCATE A RECORD FROM THE QUEUE

            52            50     E9  015F   327 	BLBC	R0,ERREXT		; BR IF NO RECORDS

            52            5A     C3  0162   328 	SUBL3	R10,R2,SJH$L_PARMBLK(R7) ; LINK THIS STRUCTURE TO JOB HEADER

                       3C A7         0165       

            51         3F A2     9E  0167   329 	MOVAB	SYM$K_RECSIZE-1(R2),R1	; FIND END OF RECORD

            50            85     9A  016B   330 10$:	MOVZBL	(R5)+,R0		; GET LENGTH OF STRING

                          10     13  016E   331 	BEQL	30$			; BR WHEN DONE

            82            50     90  0170   332 	MOVB	R0,(R2)+		; STORE STRING COUNT

            51            52     D1  0173   333 20$:	CMPL	R2,R1			; FILL UP THE RECORD

                          39     1E  0176   334 	BGEQU	SYM_INVOPT		; REPORT INVALID OPTION

            82            85     90  0178   335 	MOVB	(R5)+,(R2)+		; COPY STRING

            F5            50     F5  017B   336 	SOBGTR	R0,20$			; MOVE ENTIRE STRING

                          EB     11  017E   337 	BRB	10$			; LOOP FOR NEXT STRING

JBCSYMOPT       - PROCESS SYMBIONT MANAGER OPTIONS               22-AUG-1978 00:51:47   VAX-11 MACRO X0.3-11               Page   7

V01             PROCESS OPTIONS                                                                                                  (3)



                                 05  0180   338 30$:	RSB				; RETURN TO DISPATCHER

                                     0181   339  

         24 A9            65     91  0181   340 JOBPRI:	CMPB	(R5),SMR$B_PROCPRI(R9)	; CHECK IF TRYING TO RAISE PRIOITY

                          06     1B  0185   341 	BLEQU	10$			; BR IF NO-THAT IS ALWAYS ALLOWED

                          FE76'  30  0187   342 	BSBW	SYM$CKOPRPRV		; SEE IF THE USER HAS OPERATOR PRIV

            27            50     E9  018A   343 	BLBC	R0,ERREXT		; TAKE ERROR EXIT IF NO

            50            85     9A  018D   344 10$:	MOVZBL	(R5)+,R0		; GET PRIOITY

            20            50     91  0190   345 	CMPB	R0,#SYM_K_PRTPRI	; VALID PRIORITY?

                          1C     1A  0193   346 	BGTRU	SYM_INVOPT		; BR IF INVALID OPTION

         0F A7            50     90  0195   347 	MOVB	R0,SJH$B_PRTPRI(R7)	; SET NEW PRIORITY

                                 05  0199   348 	RSB				; RETURN TO DISPATCHER

                                     019A   349 ;

                                     019A   350 ; SUBROUTINE TO GET THE NEXT OPTION CODE INTO R0

                                     019A   351 ;

                                     019A   352 ;	FIRST A CHECK IS MADE THAT R5 IS STILL POINTING

                                     019A   353 ;	INSIDE THE VALID DATA AREA OF MESSAGE.  IF R5 IS BEYOND

                                     019A   354 ;	THE END OF THE MESSAGE DATA, AN OPTION WAS SPECIFIED THAT

                                     019A   355 ;	HAD AN INCORRECT PARAMETER OR NONE.

                                     019A   356 ;

                                     019A   357 ;	IF R5 IS EXACTLY AT THE END, SUCESSFUL STATUS IS SET AND

                                     019A   358 ;	RETURN 2 LEVELS(IE: BACK TO REAL CALLER OF CONVERT OPTIONS)

                                     019A   359 ;

                                     019A   360 SYM$GETOPT::				; GET NEXT OPTION BYTE

         F0 A9            55     D1  019A   361 	CMPL	R5,-JCM_T_MSGDATA(R9)	; CHECK FOR BUFFER OVER RUN

                          11     1A  019E   362 	BGTRU	SYM_INVOPT		; SET ERROR

            50            85     9A  01A0   363 	MOVZBL	(R5)+,R0		; PICK UP OPTION BYTE

                          06     13  01A3   364 	BEQL	10$			; IF ITS ZERO THAT STOPS THE SHOW

         F0 A9            55     D1  01A5   365 	CMPL	R5,-JCM_T_MSGDATA(R9)	; CHECK AGAINST END OF DATA INDICATOR

                          05     1B  01A9   366 	BLEQU	20$			; BR IF CODE IS VALID

                          8E     D5  01AB   367 10$:	TSTL	(SP)+			; CLEAR 1 LEVEL OF RETURN

                                     01AD   368 	SETSTAT	NORMAL			; SET FINAL STATUS

                                 05  01B0   369 20$:	RSB				; RETURN TO SOME PLACE

                                     01B1   370 					; JOIN INVALID OPTION

                                     01B1   371 ;

                                     01B1   372 ; AN ILLEGAL OPTION HAS BEEN SPECIFIED

                                     01B1   373 ;

                                     01B1   374 SYM_INVOPT:

                                     01B1   375 	SETSTAT	SMINVOPT		; SET ERROR CAUSE

                          8E     D5  01B4   376 ERREXT:	TSTL	(SP)+			; CLEAR RETURN TO DISPATCHER

                                 05  01B6   377 	RSB				; RETURN TO ORIGINAL CALLER

                                     01B7   378 	.END

JBCSYMOPT       - PROCESS SYMBIONT MANAGER OPTIONS               22-AUG-1978 00:51:47   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (3)



ACM$B_PROCPRI    00000024            JBC$_PRINTOUT  = 000484E0            JCD_W_LBUFCNT    00000008            

ACM$L_PROCID     FFFFFFFC            JBC$_QUECNT    = 00048428            JCD_W_LBUFSIZ    0000000A            

ACM$L_UIC        0000000C            JBC$_QUEERR    = 00048458            JCD_W_MBCHAN     00000002            

ACM$Q_ACNTNAM    0000001C            JBC$_QUENOSTOP = 00048050            JCD_W_TMPCHAN    00000000            

ACM$Q_PRVMSK     00000004            JBC$_QUEUPD    = 000484E8            JCM_K_SIZE       000000C0            

ACM$T_DATA       00000028            JBC$_SCTERR    = 00048450            JCM_Q_IOSB       00000008            

ACM$T_USERNAM    00000010            JBC$_SMINVOPR  = 00048058            JCM_Q_LINKS      00000000            

ACM$W_MAILBOX    00000002            JBC$_SMINVOPT  = 00048060            JCM_T_MSGDATA    00000010            

ACM$W_TYPE       00000000            JBC$_SMINVREQ  = 00048068            JOBCOPIES        00000144 R     03   

ACM$W_USERREQ    00000026            JBC$_SMZEROJOB = 00048070            JOBLIMIT         000000E0 R     03   

BIT...         = 00000009            JBC$_SNDRESP   = 00048420            JOBNAME          00000149 R     03   

BRSTPAG          000000FE R     03   JBC$_SYMBASN   = 00048440            JOBOPT           00000052 R     03   

DEFBRST          000000C2 R     03   JBC$_SYMBCRE   = 000484D8            JOBPARM          0000015C R     03   

DEFFLAG          000000CC R     03   JBC$_SYMBDSAB  = 00048078            JOBPRI           00000181 R     03   

DELETEOP         000000F9 R     03   JBC$_SYMBWRT   = 00048448            LOWER            00000135 R     03   

DETJOB           000000B3 R     03   JBC$_SYMDEL    = 00048470            MSG$_ABOOPR    = 00000011            

DEVQUEFORM       000000F4 R     03   JBC$_UAFOPN    = 000484A0            MSG$_ABORT     = 00000030            

DOUBLE           00000117 R     03   JBC$_UNESYMMSG = 000484C0            MSG$_ACCRSP    = 00000021            

ERREXT           000001B4 R     03   JBC$_USERVAL   = 00048498            MSG$_CONFIRM   = 00000031            

FILCOPIES        00000126 R     03   JBC_K_MAXBUFR  = 00000004            MSG$_CONNECT   = 00000032            

FLAGPAG          00000108 R     03   JBC_K_PRTIMFLAG= 00000002            MSG$_CRUNSOLIC = 00000002            

GBL...         = 00000000            JBC_K_SYNCFLAG = 00000001            MSG$_DELPROC   = 00000003            

GENDEVQUE        000000B8 R     03   JBC_K_UPDFLG   = 00000008            MSG$_DELSMB    = 00000014            

GENERICPRT       000000A9 R     03   JBC_M_CREJOBREQ= 00000008            MSG$_DEVOFFLIN = 00000005            

HOLDJOB          00000130 R     03   JBC_M_MBREADREQ= 00000001            MSG$_DEVONLIN  = 00000007            

INITPRI          000000E5 R     03   JBC_M_SRVTIMQUE= 00000010            MSG$_DISCON    = 00000033            

INVOPT           00000090 R     03   JBC_M_SYMCREREQ= 00000002            MSG$_EXIT      = 00000034            

JBC$_ACMINVOP  = 00048088            JBC_M_SYMINIREQ= 00000004            MSG$_INIOPR    = 00000010            

JBC$_ACNTOPN   = 00048478            JBC_V_CREJOBREQ= 00000003            MSG$_INTMSG    = 00000035            

JBC$_ACNTWRT   = 00048480            JBC_V_MBREADREQ= 00000000            MSG$_OPREPLY   = 00000009            

JBC$_ENTQUE    = 000484A8            JBC_V_SRVTIMQUE= 00000004            MSG$_OPRQST    = 00000008            

JBC$_ILLDEVNAM = 00048000            JBC_V_SYMCREREQ= 00000001            MSG$_PATHLOST  = 00000036            

JBC$_ILLDEVTYP = 00048008            JBC_V_SYMINIREQ= 00000002            MSG$_PROTOCOL  = 00000037            

JBC$_ILLFILNAM = 00048010            JCD_A_LBUFADR    0000000C            MSG$_REJECT    = 00000038            

JBC$_ILLQUENAM = 00048018            JCD_A_QUEBASE    00000018            MSG$_RESOPR    = 00000013            

JBC$_INPASGN   = 00048488            JCD_B_CURPDEV    0000001D            MSG$_SCANBAD   = 00000028            

JBC$_INPREAD   = 00048490            JCD_B_CURSYMB    0000001C            MSG$_SCANRSP   = 00000029            

JBC$_INVMSG    = 00048418            JCD_G_LISTS      00000000            MSG$_SMBDON    = 00000009            

JBC$_INVSCT    = 00048468            JCD_G_WLEND      FFFFFFF0            MSG$_SMBINI    = 00000008            

JBC$_JOBABORT  = 00048080            JCD_G_WORKLIST   FFFFFFD0            MSG$_SMBRSP    = 00000020            

JBC$_JOBCRD    = 000484B0            JCD_K_SIZE     = 000000FC            MSG$_SNDACC    = 0000000A            

JBC$_LOSTREC   = 00048438            JCD_L_SMBPID     FFFFFFCC            MSG$_SNDSMB    = 00000004            

JBC$_MBASGN    = 00048400            JCD_Q_ACNTFIL    FFFFFFE8            MSG$_SUSOPR    = 00000012            

JBC$_MBDEAS    = 00048460            JCD_Q_FREEBUFR   FFFFFFF0            MSG$_THIRDPARTY= 00000039            

JBC$_MBREAD    = 00048408            JCD_Q_LBUFDES    00000008            MSG$_TIMEOUT   = 0000003A            

JBC$_MBSETAST  = 000484C8            JCD_Q_PROCDEL    FFFFFFE0            MSG$_TRMHANGUP = 00000006            

JBC$_MBWRITE   = 000484D0            JCD_Q_SYMBMAN    FFFFFFD8            MSG$_TRMUNSOLIC= 00000001            

JBC$_MULTREC   = 00048430            JCD_Q_SYMBSRV    FFFFFFD0            MSG$_XM_ATTN   = 0000000D            

JBC$_NOOPENJOB = 00048048            JCD_Q_SYMBWAIT   FFFFFFF8            MSG$_XM_DATAVL = 0000000B            

JBC$_NOPRIV    = 00048020            JCD_Q_TIME       FFFFFFC4            MSG$_XM_SHUTDN = 0000000C            

JBC$_NOQUEHDR  = 00048028            JCD_Q_TMPDESC    00000010            NOBRST           00000103 R     03   

JBC$_NOQUESPACE= 00048030            JCD_T_INDEX0     00000000            NODEFBRST        000000C7 R     03   

JBC$_NORMAL    = 00040001            JCD_T_LINBFE     000000C0            NODEFFLAG        000000D1 R     03   

JBC$_NOSUCHJOB = 00048040            JCD_T_LINBUF     0000001E            NOFEED           0000011C R     03   

JBC$_NOSUCHQUE = 00048038            JCD_T_START      FFFFFFC4            NOFLAG           0000010D R     03   

JBC$_PASSCRD   = 000484B8            JCD_W_FLAGS      00000004            NOGENDEV         000000BD R     03   

JBC$_PRCREAT   = 00048410            JCD_W_JOBSEQ     00000006            NOGENERIC        000000AE R     03   

JBCSYMOPT       - PROCESS SYMBIONT MANAGER OPTIONS               22-AUG-1978 00:51:47   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (3)



NOLOWER          0000013A R     03   SMO$K_DELETE   = 00000001            SMQ$S_INIPRI   = 00000004            

NOSWAP           000000EF R     03   SMO$K_DETJOB   = 00000043            SMQ$T_NAME       00000010            

NOTERMINAL       000000DB R     03   SMO$K_DISWAP   = 0000004E            SMQ$V_CREPND   = 00000002            

PAGCNT           00000121 R     03   SMO$K_DOUBLE   = 00000007            SMQ$V_DEFBRST  = 00000001            

PAGHDR           00000112 R     03   SMO$K_FLAGPAG  = 00000004            SMQ$V_DEFFLAG  = 00000000            

PRTFORMTYP       0000013F R     03   SMO$K_FORMTYPE = 00000024            SMQ$V_DETJOB   = 00000001            

RLSTIME          0000012B R     03   SMO$K_GENDEV   = 00000044            SMQ$V_GENDEV   = 00000004            

RSTRTNXT         00000093 R     03   SMO$K_GENPRT   = 00000041            SMQ$V_INIPRI   = 00000000            

SCT_B_FLAGS      00000009            SMO$K_HOLD     = 00000021            SMQ$V_INUSE    = 00000000            

SCT_B_STATE      00000008            SMO$K_INIPRI   = 0000004D            SMQ$V_LOWER    = 00000003            

SCT_K_ABOREQ   = 00000005            SMO$K_JOBCOPY  = 00000023            SMQ$V_NOGENERIC= 00000005            

SCT_K_DEQFIL   = 00000003            SMO$K_JOBLIM   = 0000004C            SMQ$V_NOSWAP   = 00000004            

SCT_K_DEQJOB   = 00000002            SMO$K_JOBNAME  = 00000027            SMQ$V_PAUSED   = 00000002            

SCT_K_FREE     = 00000000            SMO$K_JOBPRI   = 00000022            SMQ$V_REDIRECT = 00000004            

SCT_K_INIT     = 00000001            SMO$K_LOWER    = 00000025            SMQ$V_STOPPED  = 00000003            

SCT_K_MRKDEL   = 00000008            SMO$K_NEXTJOB  = 00000060            SMQ$V_TRMDEV   = 00000002            

SCT_K_REQUE    = 00000006            SMO$K_NOBRSTPAG= 00000003            SMR$B_PROCPRI    00000024            

SCT_K_SIZE       00000028            SMO$K_NODEFBRST= 00000047            SMR$K_ABORT    = 0000000E            

SCT_K_SUSPND   = 00000007            SMO$K_NODEFFLAG= 00000049            SMR$K_ADDFIL   = 0000000A            

SCT_K_TRMJOB   = 00000004            SMO$K_NOFEED   = 00000008            SMR$K_ALTER    = 0000000D            

SCT_L_CPUTIM     00000018            SMO$K_NOFLAGPAG= 00000005            SMR$K_CLSJOB   = 0000000B            

SCT_L_CURFIL     00000010            SMO$K_NOGENDEV = 00000045            SMR$K_CREJOB   = 00000009            

SCT_L_GETCNT     00000024            SMO$K_NOGENPRT = 00000042            SMR$K_DELETE   = 00000001            

SCT_L_PAGCNT     0000001C            SMO$K_NOLOWER  = 00000028            SMR$K_DETINIT  = 00000010            

SCT_L_PROCID     0000000C            SMO$K_NOTRMDEV = 0000004B            SMR$K_ENTER    = 00000008            

SCT_L_QIOCNT     00000020            SMO$K_PAGCNT   = 00000009            SMR$K_INITIAL  = 00000000            

SCT_Q_LINKS      00000000            SMO$K_PAGHDR   = 00000006            SMR$K_JUSTIFY  = 00000006            

SCT_W_JOBSTAT    00000016            SMO$K_PARAMS   = 00000026            SMR$K_MERGE    = 00000004            

SCT_W_MBCHAN     0000000A            SMO$K_REQUEUE  = 00000070            SMR$K_PAUSE    = 00000003            

SCT_W_QINDEX     00000014            SMO$K_RLSTIM   = 00000020            SMR$K_REDIRECT = 00000005            

SJH$B_COPYCNT    0000000E            SMO$K_SPCCNT   = 00000062            SMR$K_RELEASE  = 0000000F            

SJH$B_FLAGS      0000000C            SMO$K_TOPOFILE = 00000061            SMR$K_RMVJOB   = 0000000C            

SJH$B_FORMS      0000000D            SMO$K_TRMDEV   = 0000004A            SMR$K_START    = 00000002            

SJH$B_PRTPRI     0000000F            SMQ$B_CHAR       0000000A            SMR$K_STOP     = 00000007            

SJH$L_NEXTJOB    00000008            SMQ$B_FLAGS      00000008            SMR$K_SYNCJOB  = 00000011            

SJH$L_PARMBLK    0000003C            SMQ$B_FORMS      00000009            SMR$L_PROCID     FFFFFFFC            

SJH$L_PROCID     00000010            SMQ$B_JOBCNT     00000009            SMR$L_UIC        0000000C            

SJH$L_RECLINK    00000000            SMQ$B_JOBLIM     0000000B            SMR$Q_ACNTNAM    0000001C            

SJH$L_UIC        00000014            SMQ$C_SIZE       00000020            SMR$Q_PRVMSK     00000004            

SJH$M_HOLD     = 00000001            SMQ$K_SIZE       00000020            SMR$T_DATA       00000028            

SJH$M_JOBABORT = 00000004            SMQ$L_ASNSCT     0000000C            SMR$T_USERNAM    00000010            

SJH$M_LOWER    = 00000002            SMQ$L_CURRENT    00000000            SMR$W_MAILBOX    00000002            

SJH$Q_ACNTNAM    00000024            SMQ$L_HOLDLST    00000004            SMR$W_TYPE       00000000            

SJH$Q_JOBNAME    00000034            SMQ$M_CREPND   = 00000004            SMR$W_USERREQ    00000026            

SJH$Q_TIME       0000002C            SMQ$M_DEFBRST  = 00000002            SPACECNT         00000097 R     03   

SJH$T_USERNAM    00000018            SMQ$M_DEFFLAG  = 00000001            SQH$B_FLAGS      00000004            

SJH$V_HOLD     = 00000000            SMQ$M_DETJOB   = 00000002            SQH$B_MAXQUE     00000006            

SJH$V_JOBABORT = 00000002            SMQ$M_GENDEV   = 00000010            SQH$B_NUMQUE     00000005            

SJH$V_LOWER    = 00000001            SMQ$M_INIPRI   = 0000000F            SQH$B_SPARE      00000007            

SJH$W_JOBSEQ     00000004            SMQ$M_INUSE    = 00000001            SQH$C_SIZE       00000120            

SJH$W_MBCHAN     0000000D            SMQ$M_LOWER    = 00000008            SQH$K_SIZE       00000120            

SJH$W_QINDEX     00000006            SMQ$M_NOGENERIC= 00000020            SQH$L_FIRSTREC   00000008            

SMO$K_BRSTPAG  = 00000002            SMQ$M_NOSWAP   = 00000010            SQH$L_FREEREC    00000000            

SMO$K_COPIES   = 0000000A            SMQ$M_PAUSED   = 00000004            SQH$L_LASTREC    00000010            

SMO$K_CURFORM  = 00000040            SMQ$M_REDIRECT = 00000010            SQH$L_NEXTREC    0000000C            

SMO$K_DEFBRST  = 00000046            SMQ$M_STOPPED  = 00000008            SQH$L_OPENJOB    00000014            

SMO$K_DEFFLAG  = 00000048            SMQ$M_TRMDEV   = 00000004            SQH$L_TIMQUE     00000018            

JBCSYMOPT       - PROCESS SYMBIONT MANAGER OPTIONS               22-AUG-1978 00:51:47   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (3)



SQH$Q_QUEUE      00000020            

SQH$W_QUESEQ     0000001C            

SQR$B_COPYCNT    00000039            

SQR$B_FLAGS      00000038            

SQR$L_RECLINK    00000000            

SQR$M_BRSTPAG  = 00000004            

SQR$M_DELETE   = 00000001            

SQR$M_DOUBLE   = 00000008            

SQR$M_FLAGPAG  = 00000002            

SQR$M_NOFEED   = 00000010            

SQR$M_PAGHDR   = 00000020            

SQR$T_FILNAM     00000024            

SQR$T_VOLNAM     00000008            

SQR$V_BRSTPAG  = 00000002            

SQR$V_DELETE   = 00000000            

SQR$V_DOUBLE   = 00000003            

SQR$V_FLAGPAG  = 00000001            

SQR$V_NOFEED   = 00000004            

SQR$V_PAGHDR   = 00000005            

SQR$W_DIRNUM     0000001E            

SQR$W_DIRSEQ     00000020            

SQR$W_DIRVOL     00000022            

SQR$W_FILNUM     00000018            

SQR$W_FILSEQ     0000001A            

SQR$W_JOBSEQ     00000004            

SQR$W_PAGCNT     0000003A            

SQR$W_RECID      00000006            

SQR$W_RELVOL     0000001C            

SYM$ALLRECORD    ********   X   03   

SYM$CKOPRPRV     ********   X   03   

SYM$CNVOPTABO    0000006A RG    03   

SYM$CNVOPTENT    0000002C RG    03   

SYM$CNVOPTINI    00000000 RG    03   

SYM$CNVOPTJOB    0000004C RG    03   

SYM$CNVOPTRES    0000007B RG    03   

SYM$C_RECSIZE    00000040            

SYM$GETOPT       0000019A RG    03   

SYM$K_RECSIZE    00000040            

SYM_INVOPT       000001B1 R     03   

SYM_K_MAXDEVNAM= 0000000F            

SYM_K_MAXFILNAM= 00000013            

SYM_K_MAXSYMB  = 00000010            

SYM_K_NUMQUEUE = 0000001F            

SYM_K_NUMRECORD= 00000400            

SYM_K_PRTPRI   = 00000020            

SYM_K_QUENAM   = 0000000F            

TERMINAL         000000D6 R     03   

TOPOFILE         000000A4 R     03   

_$$$_          = 00000018            

_$$_           = 000000EF            





PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

$ABS$            FFFFFFFC      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

JBCSYMOPT       - PROCESS SYMBIONT MANAGER OPTIONS               22-AUG-1978 00:51:47   VAX-11 MACRO X0.3-11               Page  11

PROGRAM SECTION SYNOPSIS                                                                                                         (3)



JBC_PURE         000001B7      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

13580. BYTES LEFT IN FREE MEMORY POOL.

20. BYTES OF RECLAIMED MEMORY.

OBJ$:JBCSYMOPT,LIS$:JBCSYMOPT/-SP=EXECML$/ML,LIB$:JOBCTL/ML,SRC$:JBCSYMOPT

39 MLB DIR RDS - 637 GETS TO DEFINE 26 MACROS. 44 INTER. FILE WRITES. 

