SMBPRE          - PRINT SYMBIONT PREFIX FILE                     21-AUG-1978 21:34:02   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)    3800  DECLARATIONS

   (1)    4100  DECLARATIONS

   (1)    6500  PRINT SYMBIONT MAIN ROUTINE

SMBMAIN         - PRINT SYMBIONT MAIN ROUTINE                    21-AUG-1978 21:34:02   VAX-11 MACRO X0.3-11               Page   1

01              DECLARATIONS                                                                                                     (1)



                                     0000   100 	.TITLE	SMBMAIN - PRINT SYMBIONT MAIN ROUTINE

                                     0000   200 	.IDENT	/01/

                                     0000   300 

                                     0000   400 ;

                                     0000   500 ; COPYRIGHT (C) 1978

                                     0000   600 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000   700 ;

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

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

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

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

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

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

                                     0000  1400 ; REMAIN IN DEC.

                                     0000  1500 ;

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

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

                                     0000  1800 ; CORPORATION.

                                     0000  1900 ;

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

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

                                     0000  2200 ;

                                     0000  2300 

                                     0000  2400 ;++

                                     0000  2500 ; FACILITY:	VAX/VMS PRINT SYMBIONT

                                     0000  2600 ;

                                     0000  2700 ; ABSTRACT:	THIS MODULE CONTAINS THE MAINLINE CODE FOR THE PRINT

                                     0000  2800 ;		SYMBIONT.

                                     0000  2900 ;

                                     0000  3000 ;

                                     0000  3100 ; ENVIRONMENT:	NATIVE/USER MODE NON-PRIVILEGED CODE

                                     0000  3200 ;

                                     0000  3300 ; AUTHOR:	H.B.BOSWELL + LEN KAWELL, CREATION DATE:  22-APR-77

                                     0000  3400 ;

                                     0000  3500 ; MODIFIED BY:

                                     0000  3600 ;

                                     0000  3700 ;	, : VERSION

                                     0000  3800 ; 01	- 

                                     0000  3900 ;--

SMBMAIN         - PRINT SYMBIONT MAIN ROUTINE                    21-AUG-1978 21:34:02   VAX-11 MACRO X0.3-11               Page   2

01              DECLARATIONS                                                                                                     (1)



                                     0000  4100 	.SBTTL	DECLARATIONS

                                     0000  4200 ;

                                     0000  4300 ; INCLUDE FILES:

                                     0000  4400 ;

                                     0000  4500 ;	[PRTSMB.SRC]SMBPRE.MAR

                                     0000  4600 

                                     0000  4700 ;

                                     0000  4800 ; MACROS:

                                     0000  4900 ;

                                     0000  5000 

                                     0000  5100 ;

                                     0000  5200 ; EQUATED SYMBOLS:

                                     0000  5300 ;

                                     0000  5350 	$JBCMSGDEF			;JOB CONTROLLER MESSAGES

                                     0000  5375 	$SHRDEF				;SHARED MESSAGES

                                     0000  5400 

                                     0000  5500 

                                     0000  5600 ;

                                     0000  5700 ; OWN STORAGE:

                                     0000  5800 ;

                                     0000  5900 

                                     0000  6000 	IMPURE_DATA

                                     0000  6100 

                                     0000  6200 SMB$G_DATA::

                           0000030A  0000  6300 	.BLKB	SD_K_SIZE		;SYMBIONT DATA BASE

SMBMAIN         - PRINT SYMBIONT MAIN ROUTINE                    21-AUG-1978 21:34:02   VAX-11 MACRO X0.3-11               Page   3

01              PRINT SYMBIONT MAIN ROUTINE                                                                                      (1)



                                     030A  6500 	.SBTTL	PRINT SYMBIONT MAIN ROUTINE

                                     030A  6600 ;++

                                     030A  6700 ; FUNCTIONAL DESCRIPTION:

                                     030A  6800 ;

                                     030A  6900 ;	THIS IS THE SYMBIONT MAIN LOOP

                                     030A  7000 ;

                                     030A  7100 ;	SINCE THE PRINTER DRIVER IS DOUBLE BUFFERED, IT IS OPTIMAL

                                     030A  7200 ;	TO MAINTAIN TWO OUTSTANDING OUTPUT REQUESTS WHENEVER POSSIBLE.

                                     030A  7300 ;	FOR THIS REASON, THIS MAIN LOOP UTILIZES 2 I/O STATUS BLOCKS

                                     030A  7400 ;	AND 2 EVENT FLAGS. THE INDEX TO THE CURRENT EVENT FLAG AND

                                     030A  7500 ;	STATUS BLOCK IS ALWAYS R2.

                                     030A  7600 ;

                                     030A  7700 ; CALLING SEQUENCE:

                                     030A  7800 ;

                                     030A  7900 ;	ENTER DIRECTLY UPON COMPLETION OF THE INIT ROUTINE

                                     030A  8000 ;

                                     030A  8100 ; INPUT PARAMETERS:

                                     030A  8200 ;

                                     030A  8300 ;	R11 CONTAINS THE ADDRESS OF THE IMPURE DATA BLOCK

                                     030A  8400 ;

                                     030A  8500 ; IMPLICIT INPUTS:

                                     030A  8600 ;

                                     030A  8700 ;	AT WAKE, FILE TO BE PRINTED OPEN, PRINTER ASSIGNED - IN MBAST

                                     030A  8800 ;

                                     030A  8900 ; OUTPUT PARAMETERS:

                                     030A  9000 ;

                                     030A  9100 ;	NONE

                                     030A  9200 ;

                                     030A  9300 ; IMPLICIT OUTPUTS:

                                     030A  9400 ;

                                     030A  9500 ;	FILE PRINTED

                                     030A  9600 ;	DONE MSG SENT TO MGR

                                     030A  9700 ;

                                     030A  9800 ; COMPLETION CODES:

                                     030A  9900 ;

                                     030A 10000 ;	NONE

                                     030A 10100 ;

                                     030A 10200 ; SIDE EFFECTS:

                                     030A 10300 ;

                                     030A 10400 ;	NONE

                                     030A 10500 ;

                                     030A 10600 ;--

                                     030A 10700  

                                     030A 10800 	PURE_SECTION

                                     0000 10900  

                                     0000 11000 	.ENABL	LSB

                                     0000 11100  

                                     0000 11200 SMB$MAIN::				;MAIN LOOP

                                     0000 11300 	$SETEF_S  #SMB$K_TOFEFN		;START WITH TOP OF FORM DONE

                                     0009 11400 10$:

                                     0009 11500 	$HIBER_S			;WAIT FOR SOMETHING TO DO

         03 AB            01     E5  0010 11600 	BBCC	#SD_V_GOOD_WAKE,SD_B_GEN_FLAGS(R11),10$ ;BR IF SHOULDN'T BE AWAKE

                          F4         0014       

                                     0015 11700 

                                     0015 11800 ;

                                     0015 11900 ; PRINT THE FLAG PAGE

                                     0015 12000 ;

SMBMAIN         - PRINT SYMBIONT MAIN ROUTINE                    21-AUG-1978 21:34:02   VAX-11 MACRO X0.3-11               Page   4

01              PRINT SYMBIONT MAIN ROUTINE                                                                                      (1)



                                     0015 12100 

                                 E1  0015 12200 	BBC	#PQR$V_FLAGPAG,-

       008B CB            01         0016 12300 		SD_T_MSGDATA+SIM$B_FLAGS(R11),30$ ;BR IF NO FLAG PAGE

                          10         001A       

         04 AB            03     90  001B 12400 	MOVB	#STATE$_FLAGPAGE,SD_B_STATE(R11) ;SET FLAG PAGE STATE

                          FFDE'  30  001F 12500 	BSBW	SMB$FLAGPAGE		;PRINT THE FLAG PAGE

            03            50     E8  0022 12600 	BLBS	R0,20$			;BR IF OK

                          00E1   31  0025 12700 	BRW	80$			;QUIT

                          FFD5'  30  0028 12800 20$:	BSBW	SMB$TOPOFORM		;PRINT THE FORM FEED

                                     002B 12900 

                                     002B 13000 30$:

         02 AB            02     E1  002B 13100 	BBC	#SD_V_OPENERR,SD_B_ERR_FLAGS(R11),35$ ;BR IF OPENED OK

                          1F         002F       

                     0104 CB     DD  0030 13200 	PUSHL	SD_G_FAB+FAB$L_STV(R11)	;RMS STATUS VALUE

                     0100 CB     DD  0034 13300 	PUSHL	SD_G_FAB+FAB$L_STS(R11)	;RMS STATUS CODE

                     0302 CB     DF  0038 13400 	PUSHAL	SD_Q_FILENAME(R11)	;ADDR OF FILE NAME DESCRIPTOR

                          01     DD  003C 13500 	PUSHL	#1			;1 FAO ARG

                 0004109C 8F     DD  003E 13600 	PUSHL	#<4@16>!SHR$_OPENIN!4	;CONDITION CODE

       0000'CF            05     FB  0044 13602 	CALLS	#5,W^LIB$SIGNAL		;SIGNAL THE ERROR

                          FFB4'  30  0049 13603 	BSBW	SMB$TOPOFORM		;PRINT FORM FEED

                          00FD   31  004C 13604 	BRW	90$			;EXIT

                                     004F 13606 

                                     004F 13608 35$:

       0300 CB            01     B0  004F 13700 	MOVW	#1,SD_W_PAGE(R11)	;INIT PAGE NUMBER

       008B CB            05     E1  0054 13800 	BBC	#PQR$V_PAGHDR,SD_T_MSGDATA+SIM$B_FLAGS(R11),40$ ;BR IF NO HEADERS

                          03         0059       

                          FFA3'  30  005A 13900 	BSBW	SMB$PAGEHDRNFF		;PRINT A HEADER / NO FORM FEED

                                     005D 14000 40$:	SETBIT	SD_V_FLGPAGDONE,SD_B_GEN_FLAGS(R11) ;SET DONE WITH FLAG PAGE

                                     0061 14100 	CLRBIT	SD_V_FFREQ,SD_B_GEN_FLAGS(R11) ;CLEAR FORM FEED REQUIRED

                                     0065 14200 

                                     0065 14300 ;

                                     0065 14400 ; CHECK IF INTERNAL CARRIAGE CONTROL

                                     0065 14500 ;

                                     0065 14600 

                                 93  0065 14700 	BITB	#FAB$M_CR!FAB$M_FTN!FAB$M_PRN,-

       0116 CB            07         0066 14800 			SD_G_FAB+FAB$B_RAT(R11) ;IS IT INTERNAL CAR CONT

                          08     12  006A 14900 	BNEQ	50$			;BR IF NO

                     00EC CB     D4  006C 15000 	CLRL	SD_G_QIOBLK+QIO$_P4(R11);NO CARRIAGE CONTROL

                                     0070 15100 	SETBIT	SD_V_INTRNLCC,SD_B_GEN_FLAGS(R11) ;SHOW INTERNAL CARRIAGE CONTROL

                                     0074 15200 

                                     0074 15300 ;

                                     0074 15400 ; CHECK IF 'CR-LF' CARRIAGE CONTROL

                                     0074 15500 ;

                                     0074 15600 

                                     0074 15700 50$:

       0116 CB            01     E1  0074 15800 	BBC	#FAB$V_CR,SD_G_FAB+FAB$B_RAT(R11),60$ ;BR IF NOT 'CR-LF'

                          05         0079       

       00EC CB            20     9A  007A 15900 	MOVZBL	#^A\ \,SD_G_QIOBLK+QIO$_P4(R11) ;SET SINGLE SPACE CC

                                     007F 16000 

                                     007F 16100 ;

                                     007F 16200 ; INITIALIZE THE I/O STATUS

                                     007F 16300 ;

                                     007F 16400 60$:

                                     007F 16500 	$SETEF_S 	#SMB$K_LPEFN0	;INITIALLY SET THE EVENT FLAGS,

                                     0088 16600 	$SETEF_S	#SMB$K_LPEFN1	;

                       17 AB     7C  0091 16700 	CLRQ	SD_Q_IOSB0(R11)		;CLEAR I/O STATUS

                       1F AB     7C  0094 16800 	CLRQ	SD_Q_IOSB1(R11)		;...

SMBMAIN         - PRINT SYMBIONT MAIN ROUTINE                    21-AUG-1978 21:34:02   VAX-11 MACRO X0.3-11               Page   5

01              PRINT SYMBIONT MAIN ROUTINE                                                                                      (1)



                          52     D4  0097 16900 	CLRL	R2			;AND INITIALIZE THE I/O STATUS INDEX

                                     0099 17000 

                                     0099 17100 ;

                                     0099 17200 ; MAIN I/O LOOP

                                     0099 17300 ;

         04 AB            04     90  0099 17400 	MOVB	#STATE$_GET_PRIN,SD_B_STATE(R11) ;SET GET/PRINT STATE

                                     009D 17500 

                                     009D 17600 70$:

            52            01     C1  009D 17700 	ADDL3	#SMB$K_LPEFN0,R2,R0	;GET EVENT FLAG NUMBER

                          50         00A0       

                                     00A1 17800 	$WAITFR_S R0			;WAIT FOR THE I/O TO COMPLETE

         02 AB            00     E0  00AA 17900 	BBS	#SD_V_ABORT,SD_B_ERR_FLAGS(R11),80$ ;BR IF ABORTING

                          5A         00AE       

            50         17 AB42   7E  00AF 18000 	MOVAQ	SD_Q_IOSB0(R11)[R2],R0	;GET THE IOSB ADDRESS

                          60     B5  00B4 18050 	TSTW	(R0)			;DID IT COMPLETE?

                          39     13  00B6 18075 	BEQL	77$			;BR IF NO (OR 1ST I/O)

            15            60     E8  00B8 18100 	BLBS	(R0),75$		;BR IF OK

                                     00BB 18200 	SETBIT	SD_V_PRINTERR,SD_B_ERR_FLAGS(R11) ;SET PRINT ERROR

                                     00BF 18300 	SIGNAL	JBC$_PRINTOUT,#0,(R0)	;SIGNAL THE ERROR

                          39     11  00CE 18400 	BRB	80$			;QUIT

                                     00D0 18500 

            51         04 A0     9A  00D0 18600 75$:	MOVZBL	4(R0),R1		;GET #LINES PRINTED

         45 AB            51     C0  00D4 18700 	ADDL	R1,SD_L_LINECNT(R11)	;ADD LINES PRINTED TO TOTAL

         03 AB            03     E0  00D8 18800 	BBS	#SD_V_FFREQ,SD_B_GEN_FLAGS(R11),77$ ;BR IF LAST I/O WAS A FF

                          14         00DC       

                          51     D7  00DD 18900 	DECL	R1			;ALREADY ASSUMED ONE LINE

         43 AB            51     80  00DF 19000 	ADDB	R1,SD_B_LTPCNT(R11)	;ADD TO LINES THIS PAGE COUNT

         49 AB         43 AB     91  00E3 19100 76$:	CMPB	SD_B_LTPCNT(R11),SD_B_PAGELEN(R11) ;# LINES GTR THAN PAGE SIZE?

                          07     1B  00E8 19200 	BLEQU	77$			;BR IF NO

         43 AB         49 AB     82  00EA 19300 	SUBB	SD_B_PAGELEN(R11),SD_B_LTPCNT(R11) ;NORMALIZE

                          F2     11  00EF 19400 	BRB	76$			;CHECK AGAIN

                                 93  00F1 19500 77$:	BITB	#SD_M_GETERR!SD_M_PRINTERR!SD_M_ABORT,- ;ANY ERRORS?

         02 AB            0B         00F2 19600 		SD_B_ERR_FLAGS(R11)

                          12     12  00F5 19700 	BNEQ	80$			;BR IF YES

                                     00F7 19800 

         04 AB            05     91  00F7 19900 	CMPB	#STATE$_EOF_CLOS,SD_B_STATE(R11) ;ARE WE DONE?

                          0C     13  00FB 20000 	BEQL	80$			;BR IF YES

                                     00FD 20100 	CLRBIT	SD_V_FFREQ,SD_B_GEN_FLAGS(R11) ;CLEAR FF REQUIRED

                          FEFC'  30  0101 20200 	BSBW	SMB$GET			;GET AND PRINT THE NEXT LINE

            52            01     8C  0104 20300 	XORB	#1,R2			;TOGGLE I/O STATUS INDEX

                          94     11  0107 20400 	BRB	70$			;GET AND PRINT NEXT LINE

                                     0109 20500 

                                     0109 20600 ;

                                     0109 20700 ; FILE PRINTED, SET PAPER TO TOP OF PAGE, AND SEE IF ANY MORE COPIES

                                     0109 20800 ;

                                     0109 20900 

                                     0109 21000 80$:	$SETIMR_S  #SMB$K_TOFEFN,B^85$	;SET TIMER IN CASE PRINTER IS BROKEN

                          FEE4'  30  0119 21100 	BSBW	SMB$TOPOFORM		;PUT PAPER AT TOP OF FORM

                                     011C 21200 	$CANTIM_S			;CANCEL TOP OF FORM TIMER

                       02 AB     95  0127 21300 	TSTB	SD_B_ERR_FLAGS(R11)	;ANY ERRORS

                          20     12  012A 21400 	BNEQ	90$			;BR IF ERRORS - CAN'T BE OPEN ERROR

                     008C CB     97  012C 21500 	DECB	SD_T_MSGDATA+SIM$B_FILCOPY(R11) ;SUBT 1 FOR THIS COPY

                          1A     1B  0130 21600 	BLEQU	90$			;BR IF DONE - CAN'T BE ANY ERRORS

                                     0132 21700 	$REWIND	SD_G_RAB(R11)		;REWIND THE FILE FOR NEXT COPY

         04 AB            02     90  013D 21900 	MOVB	#STATE$_OPEN,SD_B_STATE(R11) ;RESET STATE TO OPEN

                          FEE7   31  0141 22000 	BRW	30$			;PRINT NEXT COPY

                                     0144 22100  

SMBMAIN         - PRINT SYMBIONT MAIN ROUTINE                    21-AUG-1978 21:34:02   VAX-11 MACRO X0.3-11               Page   6

01              PRINT SYMBIONT MAIN ROUTINE                                                                                      (1)



                  FFFFFFFF FD050F80  0144 22200 85$:	.LONG	<-1*50000000>,-1	;5 SECOND DELTA TIME

                                     014C 22300 

                                     014C 22400 ;

                                     014C 22500 ; FILE PRINTING DONE

                                     014C 22600 ;

                                     014C 22700 

                                     014C 22800 90$:	$SETAST_S  #0			;DISABLE ASTS FOR SURE

                                     0155 22900 

                     00FA CB     B5  0155 23000 	TSTW	SD_G_FAB+FAB$W_IFI(R11)	; HAS OPEN BEEN DONE?

                          32     13  0159 23100 	BEQL	120$			; BR IF NO

                                     015B 23200 	CLRBIT	FAB$V_DLT,SD_G_FAB+FAB$L_FOP(R11) ;CLEAR THE DELETE BIT

                     01B6 CB     B5  0161 23300 	TSTW	SD_G_NAM+NAM$W_DID(R11)	;FILE HAVE A DIRECTORY?

                          05     13  0165 23400 	BEQL	112$			;IF NO-DELETE IF REQUESTED EVEN ON ERROR

         02 AB            00     E0  0167 23500 	BBS	#SD_V_ABORT,SD_B_ERR_FLAGS(R11),115$ ;BR IF ABORTING

                          0F         016B       

       008B CB            00     E1  016C 23600 112$:	BBC	#PQR$V_DELETE,SD_T_MSGDATA+SIM$B_FLAGS(R11),115$ ;BR IF NO DELETE

                          09         0171       

                                     0172 23700 	SETBIT	FAB$V_DLT,SD_G_FAB+FAB$L_FOP(R11) ; TELL RMS TO DELETE THE FILE

                          FE85'  30  0178 23800 	BSBW	SMB$SETUIC		;SET UIC TO REQUESTOR'S

                                     017B 23900 115$:	$CLOSE	SD_G_FAB(R11)		;CLOSE THE FILE

                     014A CB     B4  0186 24000 	CLRW	SD_G_RAB+RAB$W_ISI(R11)	; EFFECT A FAST DISCONNECT AFTER CLOSE

                          FE73'  30  018A 24100 	BSBW	SMB$RSTUIC		;BE SURE WE'RE RUNNING AT RIGHT UIC

                                     018D 24200 

                                     018D 24300 ;

                                     018D 24400 ; SET ENDING STATUS

                                     018D 24500 ;

                                     018D 24600 

            53            0C     9A  018D 24700 120$:	MOVZBL	#MOD$_INPERR,R3		;ASSUME INPUT ERROR

                                 93  0190 24800 	BITB	#SD_M_OPENERR!-		;CHECK OPEN ERROR AND

                                     0191 24900 		SD_M_GETERR,-		;  GET ERROR

         02 AB            06         0191 25000 		SD_B_ERR_FLAGS(R11)	;WAS EITHER SET

                          13     12  0194 25100 	BNEQ	130$			;BR IF YES

            53            14     9A  0196 25200 	MOVZBL	#MOD$_PRTERR,R3		;ASSUME PRINT ERROR

         02 AB            03     E0  0199 25300 	BBS	#SD_V_PRINTERR,SD_B_ERR_FLAGS(R11),130$ ;BR IF PRINT ERROR

                          0B         019D       

            53            04     9A  019E 25400 	MOVZBL	#MOD$_ABORT,R3		;ASSUME ABORT

         02 AB            00     E0  01A1 25500 	BBS	#SD_V_ABORT,SD_B_ERR_FLAGS(R11),130$ ;BR IF ABORT

                          03         01A5       

            53            01     9A  01A6 25600 	MOVZBL	#MOD$_SUCCESS,R3	;SET SUCCESS

                                     01A9 25700 

                                     01A9 25800 ;

                                     01A9 25900 ; DO FINAL CLEAN UP

                                     01A9 26000 ;

                                     01A9 26100 

                                     01A9 26200 130$:

                       02 AB     B4  01A9 26300 	CLRW	SD_B_ERR_FLAGS(R11)	;RESET BOTH GROUPS OF FLAGS

                       0F AB     B5  01AC 26400 	TSTW	SD_Q_TOFIOSB(R11)	;DID TOF COMPLETE OR TIMEOUT?

                          0C     12  01AF 26500 	BNEQ	140$			;BR IF IO COMPLETED

                                     01B1 26600 	$CANCEL_S  SD_G_QIOBLK+QIO$_CHAN(R11) ;ABORT THE IO IF NOT DONE

                                     01BD 26700 140$:	$DASSGN_S  SD_G_QIOBLK+QIO$_CHAN(R11) ;DEASSIGN THE PRINTER

                                     01C9 26800 

                                     01C9 26900 ;

                                     01C9 27000 ; SEND DONE MESSAGE TO MGR - R3 HAS STATUS

                                     01C9 27100 ;

                                     01C9 27200 

                                     01C9 27300 

                                     01C9 27400 	ASSUME	STATE$_IDLE EQ 0

SMBMAIN         - PRINT SYMBIONT MAIN ROUTINE                    21-AUG-1978 21:34:02   VAX-11 MACRO X0.3-11               Page   7

01              PRINT SYMBIONT MAIN ROUTINE                                                                                      (1)



                                     01C9 27500 

                       04 AB     94  01C9 27600 	CLRB	SD_B_STATE(R11)		;SET IDLE STATE

                          FE31'  30  01CC 27700 	BSBW	SMB$FILE_DONE		;SEND DONE MSG TO MGR

                                     01CF 27800 	$SETAST_S  #1			;ENABLE ASTS

                          FE25   31  01D8 27900 	BRW	SMB$MAIN		;GO AGAIN

                                     01DB 28000 

                                     01DB 28100 	.DSABL	LSB

                                     01DB 28200 	.END

SMBMAIN         - PRINT SYMBIONT MAIN ROUTINE                    21-AUG-1978 21:34:02   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



$$.TMP1        = 00000001            FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            

$$.TMP2        = 000000CB            FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            

$$ARGS         = 0000000C            FAB$M_INP      = 00080000            FAB$V_MXV      = 00000001            

$$ARGS$$       = 00000003            FAB$M_JNL      = 00400000            FAB$V_NAM      = 00000018            

$$T1           = 00000034            FAB$M_KFO      = 40000000            FAB$V_NEF      = 0000000A            

BIT...         = 00001258            FAB$M_MSE      = 00000010            FAB$V_NFS      = 00000010            

FAB$B_BID        00000000            FAB$M_MXV      = 00000002            FAB$V_NIL      = 00000005            

FAB$B_BKS        0000003E            FAB$M_NAM      = 01000000            FAB$V_OFP      = 0000001D            

FAB$B_BLN        00000001            FAB$M_NEF      = 00000400            FAB$V_ORG      = 00000004            

FAB$B_DNS        00000035            FAB$M_NFS      = 00010000            FAB$V_POS      = 00000008            

FAB$B_FAC        00000016            FAB$M_NIL      = 00000020            FAB$V_PPF      = 00000012            

FAB$B_FNS        00000034            FAB$M_OFP      = 20000000            FAB$V_PPF_IND  = 0000000E            

FAB$B_FSZ        0000003F            FAB$M_POS      = 00000100            FAB$V_PPF_RAT  = 00000006            

FAB$B_ORG        0000001D            FAB$M_PPF      = 00040000            FAB$V_PRN      = 00000002            

FAB$B_RAT        0000001E            FAB$M_PPF_IND  = 00004000            FAB$V_PUT      = 00000000            

FAB$B_RFM        0000001F            FAB$M_PPF_RAT  = 00003FC0            FAB$V_RCK      = 00000017            

FAB$B_RTV        0000001C            FAB$M_PRN      = 00000004            FAB$V_RWC      = 0000000B            

FAB$B_SHR        00000017            FAB$M_PUT      = 00000001            FAB$V_RWO      = 00000007            

FAB$C_BID      = 00000003            FAB$M_RCK      = 00800000            FAB$V_SCF      = 0000000E            

FAB$C_BLN        00000050            FAB$M_RWC      = 00000800            FAB$V_SHRDEL   = 00000002            

FAB$C_FIX      = 00000001            FAB$M_RWO      = 00000080            FAB$V_SHRGET   = 00000001            

FAB$C_HSH      = 00000030            FAB$M_SCF      = 00004000            FAB$V_SHRPUT   = 00000000            

FAB$C_IDX      = 00000020            FAB$M_SHRDEL   = 00000004            FAB$V_SHRUPD   = 00000003            

FAB$C_MAXRFM   = 00000003            FAB$M_SHRGET   = 00000002            FAB$V_SPL      = 0000000D            

FAB$C_REL      = 00000010            FAB$M_SHRPUT   = 00000001            FAB$V_SQO      = 00000006            

FAB$C_RFM_DFLT = 00000002            FAB$M_SHRUPD   = 00000008            FAB$V_SUP      = 00000002            

FAB$C_SEQ      = 00000000            FAB$M_SPL      = 00002000            FAB$V_TEF      = 0000001C            

FAB$C_UDF      = 00000000            FAB$M_SQO      = 00000040            FAB$V_TMD      = 00000004            

FAB$C_VAR      = 00000002            FAB$M_SUP      = 00000004            FAB$V_TMP      = 00000003            

FAB$C_VFC      = 00000003            FAB$M_TEF      = 10000000            FAB$V_TRN      = 00000004            

FAB$K_BLN        00000050            FAB$M_TMD      = 00000010            FAB$V_UFM      = 0000001A            

FAB$L_ALQ        00000010            FAB$M_TMP      = 00000008            FAB$V_UFO      = 00000011            

FAB$L_CTX        00000018            FAB$M_TRN      = 00000010            FAB$V_UPD      = 00000003            

FAB$L_DEV        00000040            FAB$M_UFM      = 04000000            FAB$V_UPI      = 00000006            

FAB$L_DNA        00000030            FAB$M_UFO      = 00020000            FAB$V_WCK      = 00000009            

FAB$L_FNA        0000002C            FAB$M_UPD      = 00000008            FAB$W_BLS        0000003C            

FAB$L_FOP        00000004            FAB$M_UPI      = 00000040            FAB$W_DEQ        00000014            

FAB$L_JNL        00000020            FAB$M_WCK      = 00000200            FAB$W_IFI        00000002            

FAB$L_MRN        00000038            FAB$S_ORG      = 00000004            FAB$W_MRS        00000036            

FAB$L_NAM        00000028            FAB$S_PPF_RAT  = 00000008            GBL...         = 00000000            

FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            JBC$_ACMINVOP  = 00048088            

FAB$L_STS        00000008            FAB$V_BLK      = 00000003            JBC$_ACNTOPN   = 00048478            

FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            JBC$_ACNTWRT   = 00048480            

FAB$L_XAB        00000024            FAB$V_CBT      = 00000015            JBC$_ENTQUE    = 000484A8            

FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            JBC$_ILLDEVNAM = 00048000            

FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001            JBC$_ILLDEVTYP = 00048008            

FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014            JBC$_ILLFILNAM = 00048010            

FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            JBC$_ILLQUENAM = 00048018            

FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            JBC$_INPASGN   = 00048488            

FAB$M_CR       = 00000002            FAB$V_DLT      = 0000000F            JBC$_INPREAD   = 00048490            

FAB$M_CTG      = 00100000            FAB$V_DMO      = 0000000C            JBC$_INVMSG    = 00048418            

FAB$M_DEL      = 00000004            FAB$V_ESC      = 0000001B            JBC$_INVSCT    = 00048468            

FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            JBC$_JOBABORT  = 00048080            

FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            JBC$_JOBCRD    = 000484B0            

FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001            JBC$_LOSTREC   = 00048438            

FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            JBC$_MBASGN    = 00048400            

FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            JBC$_MBDEAS    = 00048460            

SMBMAIN         - PRINT SYMBIONT MAIN ROUTINE                    21-AUG-1978 21:34:02   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



JBC$_MBREAD    = 00048408            MSG$_SCANBAD   = 00000028            NAM$M_WILD_SFD1= 02000000            

JBC$_MBSETAST  = 000484C8            MSG$_SCANRSP   = 00000029            NAM$M_WILD_SFD2= 04000000            

JBC$_MBWRITE   = 000484D0            MSG$_SMBDON    = 00000009            NAM$M_WILD_SFD3= 08000000            

JBC$_MULTREC   = 00048430            MSG$_SMBINI    = 00000008            NAM$M_WILD_SFD4= 10000000            

JBC$_NOOPENJOB = 00048048            MSG$_SMBRSP    = 00000020            NAM$M_WILD_SFD5= 20000000            

JBC$_NOPRIV    = 00048020            MSG$_SNDACC    = 0000000A            NAM$M_WILD_SFD6= 40000000            

JBC$_NOQUEHDR  = 00048028            MSG$_SNDSMB    = 00000004            NAM$M_WILD_SFD7= 80000000            

JBC$_NOQUESPACE= 00048030            MSG$_SUSOPR    = 00000012            NAM$M_WILD_TYPE= 00000010            

JBC$_NORMAL    = 00040001            MSG$_THIRDPARTY= 00000039            NAM$M_WILD_UFD = 01000000            

JBC$_NOSUCHJOB = 00048040            MSG$_TIMEOUT   = 0000003A            NAM$M_WILD_VER = 00000008            

JBC$_NOSUCHQUE = 00048038            MSG$_TRMHANGUP = 00000006            NAM$S_DIR_LVLS = 00000003            

JBC$_PASSCRD   = 000484B8            MSG$_TRMUNSOLIC= 00000001            NAM$T_DVI        00000014            

JBC$_PRCREAT   = 00048410            MSG$_XM_ATTN   = 0000000D            NAM$V_DIR_LVLS = 00000015            

JBC$_PRINTOUT  = 000484E0            MSG$_XM_DATAVL = 0000000B            NAM$V_EXP_DEV  = 00000007            

JBC$_QUECNT    = 00048428            MSG$_XM_SHUTDN = 0000000C            NAM$V_EXP_DIR  = 00000006            

JBC$_QUEERR    = 00048458            NAM$B_BID        00000000            NAM$V_EXP_NAME = 00000002            

JBC$_QUENOSTOP = 00048050            NAM$B_BLN        00000001            NAM$V_EXP_TYPE = 00000001            

JBC$_QUEUPD    = 000484E8            NAM$B_CURLVL     00000038            NAM$V_EXP_VER  = 00000000            

JBC$_SCTERR    = 00048450            NAM$B_ESL        0000000B            NAM$V_GRP_MBR  = 00000013            

JBC$_SMINVOPR  = 00048058            NAM$B_ESS        0000000A            NAM$V_HIGHVER  = 0000000F            

JBC$_SMINVOPT  = 00048060            NAM$B_RSL        00000003            NAM$V_LOWVER   = 0000000E            

JBC$_SMINVREQ  = 00048068            NAM$B_RSS        00000002            NAM$V_NODE     = 00000011            

JBC$_SMZEROJOB = 00048070            NAM$C_BID      = 00000002            NAM$V_PPF      = 00000010            

JBC$_SNDRESP   = 00048420            NAM$C_BLN        00000038            NAM$V_QUOTED   = 00000012            

JBC$_SYMBASN   = 00048440            NAM$C_BLN_DIRWC  00000050            NAM$V_WILDCARD = 00000008            

JBC$_SYMBCRE   = 000484D8            NAM$C_DVI      = 00000010            NAM$V_WILD_DIR = 00000014            

JBC$_SYMBDSAB  = 00048078            NAM$C_MAXRSS   = 00000080            NAM$V_WILD_GRP = 00000018            

JBC$_SYMBWRT   = 00048448            NAM$C_MAXRSSLCL= 00000060            NAM$V_WILD_MBR = 00000019            

JBC$_SYMDEL    = 00048470            NAM$K_BLN        00000038            NAM$V_WILD_NAME= 00000005            

JBC$_UAFOPN    = 000484A0            NAM$K_BLN_DIRWC  00000050            NAM$V_WILD_SFD1= 00000019            

JBC$_UNESYMMSG = 000484C0            NAM$L_DIRWCC1    00000040            NAM$V_WILD_SFD2= 0000001A            

JBC$_USERVAL   = 00048498            NAM$L_DIRWCC2    00000044            NAM$V_WILD_SFD3= 0000001B            

LIB$SIGNAL       ********   X   04   NAM$L_DIRWCC3    00000048            NAM$V_WILD_SFD4= 0000001C            

MOD$_ABORT     = 00000004            NAM$L_DIRWCC4    0000004C            NAM$V_WILD_SFD5= 0000001D            

MOD$_INPERR    = 0000000C            NAM$L_DWC        00000038            NAM$V_WILD_SFD6= 0000001E            

MOD$_PRTERR    = 00000014            NAM$L_ESA        0000000C            NAM$V_WILD_SFD7= 0000001F            

MOD$_SUCCESS   = 00000001            NAM$L_FNB        00000034            NAM$V_WILD_TYPE= 00000004            

MSG$_ABOOPR    = 00000011            NAM$L_RLF        00000010            NAM$V_WILD_UFD = 00000018            

MSG$_ABORT     = 00000030            NAM$L_RSA        00000004            NAM$V_WILD_VER = 00000003            

MSG$_ACCRSP    = 00000021            NAM$L_WCC        00000030            NAM$W_DID        0000002A            

MSG$_CONFIRM   = 00000031            NAM$M_DIR_LVLS = 00E00000            NAM$W_DID_NUM    0000002A            

MSG$_CONNECT   = 00000032            NAM$M_EXP_DEV  = 00000080            NAM$W_DID_RVN    0000002E            

MSG$_CRUNSOLIC = 00000002            NAM$M_EXP_DIR  = 00000040            NAM$W_DID_SEQ    0000002C            

MSG$_DELPROC   = 00000003            NAM$M_EXP_NAME = 00000004            NAM$W_FID        00000024            

MSG$_DELSMB    = 00000014            NAM$M_EXP_TYPE = 00000002            NAM$W_FID_NUM    00000024            

MSG$_DEVOFFLIN = 00000005            NAM$M_EXP_VER  = 00000001            NAM$W_FID_RVN    00000028            

MSG$_DEVONLIN  = 00000007            NAM$M_GRP_MBR  = 00080000            NAM$W_FID_SEQ    00000026            

MSG$_DISCON    = 00000033            NAM$M_HIGHVER  = 00008000            NAM$W_PRV_DID    0000003A            

MSG$_EXIT      = 00000034            NAM$M_LOWVER   = 00004000            PQR$M_BRSTPAG  = 00000004            

MSG$_INIOPR    = 00000010            NAM$M_NODE     = 00020000            PQR$M_DELETE   = 00000001            

MSG$_INTMSG    = 00000035            NAM$M_PPF      = 00010000            PQR$M_DOUBLE   = 00000008            

MSG$_OPREPLY   = 00000009            NAM$M_QUOTED   = 00040000            PQR$M_FLAGPAG  = 00000002            

MSG$_OPRQST    = 00000008            NAM$M_WILDCARD = 00000100            PQR$M_NOFEED   = 00000010            

MSG$_PATHLOST  = 00000036            NAM$M_WILD_DIR = 00100000            PQR$M_PAGHDR   = 00000020            

MSG$_PROTOCOL  = 00000037            NAM$M_WILD_GRP = 01000000            PQR$V_BRSTPAG  = 00000002            

MSG$_REJECT    = 00000038            NAM$M_WILD_MBR = 02000000            PQR$V_DELETE   = 00000000            

MSG$_RESOPR    = 00000013            NAM$M_WILD_NAME= 00000020            PQR$V_DOUBLE   = 00000003            

SMBMAIN         - PRINT SYMBIONT MAIN ROUTINE                    21-AUG-1978 21:34:02   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



PQR$V_FLAGPAG  = 00000001            RAB$M_LOA      = 00002000            SD_B_LTPCNT      00000043            

PQR$V_NOFEED   = 00000004            RAB$M_LOC      = 00010000            SD_B_MAXLTP      00000044            

PQR$V_PAGHDR   = 00000005            RAB$M_MAS      = 00000020            SD_B_PAGELEN     00000049            

QIO$_ASTADR    = 00000014            RAB$M_NLK      = 00100000            SD_B_PAGEWIDTH   0000004A            

QIO$_ASTPRM    = 00000018            RAB$M_NXR      = 00800000            SD_B_STATE       00000004            

QIO$_CHAN      = 00000008            RAB$M_PMT      = 40000000            SD_G_FAB         000000F8            

QIO$_EFN       = 00000004            RAB$M_PPF_IND  = 00004000            SD_G_MSGTOMGR    000001CA            

QIO$_FUNC      = 0000000C            RAB$M_PPF_RAT  = 00003FC0            SD_G_NAM         0000018C            

QIO$_IOSB      = 00000010            RAB$M_PTA      = 20000000            SD_G_QIOBLK      000000C4            

QIO$_NARGS     = 0000000C            RAB$M_RAH      = 00000200            SD_G_RAB         00000148            

QIO$_P1        = 0000001C            RAB$M_RLK      = 00080000            SD_K_SIZE        0000030A            

QIO$_P2        = 00000020            RAB$M_RNE      = 01000000            SD_L_GETCNT      0000003B            

QIO$_P3        = 00000024            RAB$M_RNF      = 08000000            SD_L_LINECNT     00000045            

QIO$_P4        = 00000028            RAB$M_TMO      = 02000000            SD_L_QIOCNT      0000003F            

QIO$_P5        = 0000002C            RAB$M_TPT      = 00000002            SD_M_ABORT     = 00000001            

QIO$_P6        = 00000030            RAB$M_UIF      = 00000010            SD_M_GETERR    = 00000002            

RAB$B_BID        00000000            RAB$M_ULK      = 00040000            SD_M_OPENERR   = 00000004            

RAB$B_BLN        00000001            RAB$M_WAT      = 00020000            SD_M_PRINTERR  = 00000008            

RAB$B_KRF        00000035            RAB$M_WBH      = 00000400            SD_Q_FILENAME    00000302            

RAB$B_KSZ        00000034            RAB$S_PPF_RAT  = 00000008            SD_Q_IOSB0       00000017            

RAB$B_MBC        00000037            RAB$V_ASY      = 00000000            SD_Q_IOSB1       0000001F            

RAB$B_MBF        00000036            RAB$V_BIO      = 0000000B            SD_Q_MIOSB       00000005            

RAB$B_PSZ        00000034            RAB$V_CCO      = 0000001F            SD_Q_PTIME       0000002F            

RAB$B_RAC        0000001E            RAB$V_CVT      = 0000001A            SD_Q_TBUFDES     00000027            

RAB$B_ROP1       00000005            RAB$V_EOF      = 00000008            SD_Q_TOFIOSB     0000000F            

RAB$B_ROP2       00000006            RAB$V_FDL      = 00000006            SD_Q_TOP_FORMS   0000004B            

RAB$B_ROP3       00000007            RAB$V_HSH      = 00000007            SD_T_HDBUF       000002CA            

RAB$B_TMO        0000001F            RAB$V_KGE      = 00000015            SD_T_LBUF        000001CA            

RAB$C_BID      = 00000001            RAB$V_KGT      = 00000016            SD_T_MSGDATA     00000053            

RAB$C_BLN        00000044            RAB$V_LIM      = 0000000E            SD_T_SQBUF       000001C4            

RAB$C_KEY      = 00000001            RAB$V_LOA      = 0000000D            SD_T_TBUF        000001CA            

RAB$C_RFA      = 00000002            RAB$V_LOC      = 00000010            SD_V_ABORT     = 00000000            

RAB$C_SEQ      = 00000000            RAB$V_MAS      = 00000005            SD_V_FFREQ     = 00000003            

RAB$K_BLN        00000044            RAB$V_NLK      = 00000014            SD_V_FLGPAGDONE= 00000000            

RAB$L_BKT        00000038            RAB$V_NXR      = 00000017            SD_V_GETERR    = 00000001            

RAB$L_CTX        00000018            RAB$V_PMT      = 0000001E            SD_V_GOOD_WAKE = 00000001            

RAB$L_DCT        00000038            RAB$V_PPF_IND  = 0000000E            SD_V_INTRNLCC  = 00000002            

RAB$L_FAB        0000003C            RAB$V_PPF_RAT  = 00000006            SD_V_OPENERR   = 00000002            

RAB$L_KBF        00000030            RAB$V_PTA      = 0000001D            SD_V_PRINTERR  = 00000003            

RAB$L_PBF        00000030            RAB$V_RAH      = 00000009            SD_W_HEAD_L      000002FE            

RAB$L_RBF        00000028            RAB$V_RLK      = 00000013            SD_W_JBCCHAN     00000037            

RAB$L_RFA0       00000010            RAB$V_RNE      = 00000018            SD_W_MBCHAN      00000000            

RAB$L_RHB        0000002C            RAB$V_RNF      = 0000001B            SD_W_MBREADLEN   0000000D            

RAB$L_ROP        00000004            RAB$V_TMO      = 00000019            SD_W_MBUNIT      00000039            

RAB$L_STS        00000008            RAB$V_TPT      = 00000001            SD_W_PAGE        00000300            

RAB$L_STV        0000000C            RAB$V_UIF      = 00000004            SD_W_TBUFCNT     00000027            

RAB$L_UBF        00000024            RAB$V_ULK      = 00000012            SD_W_TBUFSIZ     00000029            

RAB$M_ASY      = 00000001            RAB$V_WAT      = 00000011            SHR$_ABEND     = 000010D8            

RAB$M_BIO      = 00000800            RAB$V_WBH      = 0000000A            SHR$_ABENDD    = 000010E0            

RAB$M_CCO      = 80000000            RAB$W_ISI        00000002            SHR$_ABENDT    = 000010E8            

RAB$M_CVT      = 04000000            RAB$W_RFA        00000010            SHR$_APPENDEDB = 00001000            

RAB$M_EOF      = 00000100            RAB$W_RFA4       00000014            SHR$_APPENDEDR = 00001008            

RAB$M_FDL      = 00000040            RAB$W_RSZ        00000022            SHR$_ATPC      = 00001158            

RAB$M_HSH      = 00000080            RAB$W_USZ        00000020            SHR$_BADBYTE   = 00001010            

RAB$M_KGE      = 00200000            SD_A_TBUFADR     0000002B            SHR$_BADCOPIES = 00001160            

RAB$M_KGT      = 00400000            SD_B_ERR_FLAGS   00000002            SHR$_BADDELIM  = 00001118            

RAB$M_LIM      = 00004000            SD_B_GEN_FLAGS   00000003            SHR$_BADFIELD  = 00001018            

SMBMAIN         - PRINT SYMBIONT MAIN ROUTINE                    21-AUG-1978 21:34:02   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (1)



SHR$_BADFORM   = 00001168            SHR$_SYSERROR  = 000011B0            SYS$SETEF        ********   X   04   

SHR$_BADJOBID  = 00001170            SHR$_SYSERRORPC= 000010F0            SYS$SETIMR       ********   X   04   

SHR$_BADJOBNAME= 00001178            SHR$_TEXT      = 00001130            SYS$WAITFR       ********   X   04   

SHR$_BADKEY    = 00001108            SHR$_UNXPCTSTS = 000011D0            _$$_           = 000000EF            

SHR$_BADLOGIC  = 00001120            SHR$_VALERR    = 000011E8            

SHR$_BADLOGICPC= 00001150            SHR$_WILDCONCAT= 000010C0            

SHR$_BADLONG   = 00001020            SHR$_WILDOUTVER= 000010C8            

SHR$_BADPRTY   = 00001180            SHR$_WRITEERR  = 000010D0            

SHR$_BADQNAME  = 00001188            SIM$B_FILCOPY    00000039            

SHR$_BADTIME   = 00001190            SIM$B_FLAGS      00000038            

SHR$_BADVALUE  = 00001110            SIM$G_DIRID      00000032            

SHR$_BADWORD   = 00001028            SIM$G_FILEID     0000002C            

SHR$_BEGIN     = 00001030            SIM$K_SIZE       00000070            

SHR$_BEGIND    = 00001038            SIM$L_UIC        00000004            

SHR$_BEGINT    = 00001040            SIM$Q_QTIME      00000014            

SHR$_CLICB     = 00001048            SIM$T_ACNTNAM    00000060            

SHR$_CLOSEDEL  = 00001218            SIM$T_FILNAM     0000004C            

SHR$_CLOSEIN   = 00001050            SIM$T_PRTNAM     0000003C            

SHR$_CLOSEOUT  = 00001058            SIM$T_USERNAM    00000008            

SHR$_CONFDEL   = 000011F8            SIM$T_VOLNAM     0000001C            

SHR$_COPIEDB   = 00001060            SIM$W_MSGTYP     00000000            

SHR$_COPIEDR   = 00001068            SIM$W_PAGCNT     0000003A            

SHR$_CREATED   = 00001070            SIM$W_REST       00000002            

SHR$_DELETED   = 00001200            SMB$FILE_DONE    ********   X   04   

SHR$_DELINTERR = 00001240            SMB$FLAGPAGE     ********   X   04   

SHR$_DELVER    = 00001208            SMB$GET          ********   X   04   

SHR$_DIRTOOBUS = 00001220            SMB$G_DATA       00000000 RG    03   

SHR$_ENDED     = 00001078            SMB$K_ACNTNAMSZ= 00000008            

SHR$_ENDEDD    = 00001080            SMB$K_GENEFN   = 00000000            

SHR$_ENDEDT    = 00001088            SMB$K_HEADERSZ = 00000034            

SHR$_FILNOTDEL = 000011F0            SMB$K_LBUFSIZ  = 00000100            

SHR$_FILNOTPUR = 00001230            SMB$K_LPEFN0   = 00000001            

SHR$_FILPURGED = 00001250            SMB$K_LPEFN1   = 00000002            

SHR$_HASHCONCAT= 000011D8            SMB$K_MBEFN    = 00000003            

SHR$_HIGHVER   = 00001148            SMB$K_TBUFSIZ  = 00000100            

SHR$_IDXCONCAT = 00001138            SMB$K_TIMEFN   = 00000005            

SHR$_INCOMPAT  = 000011E0            SMB$K_TOFEFN   = 00000004            

SHR$_NEWFILES  = 00001090            SMB$K_USERNAMSZ= 0000000C            

SHR$_NOFILPURG = 00001228            SMB$MAIN         00000000 RG    04   

SHR$_NOJOBID   = 000011A0            SMB$PAGEHDRNFF   ********   X   04   

SHR$_NOJOBNAME = 000011A8            SMB$RSTUIC       ********   X   04   

SHR$_NOQUEUE   = 00001198            SMB$SETUIC       ********   X   04   

SHR$_NOTCMPLT  = 000011C0            SMB$TOPOFORM     ********   X   04   

SHR$_NOTCOPIED = 000011B8            STATE$_ASNDEV  = 00000001            

SHR$_NOVALUE   = 00001100            STATE$_EOF_CLOS= 00000005            

SHR$_NOWILD    = 00001128            STATE$_FLAGPAGE= 00000003            

SHR$_OPENIN    = 00001098            STATE$_GET_PRIN= 00000004            

SHR$_OPENOUT   = 000010A0            STATE$_IDLE    = 00000000            

SHR$_OVERLAY   = 000010A8            STATE$_OPEN    = 00000002            

SHR$_PARSEFAIL = 00001248            STATE$_SUSPEND = 00000006            

SHR$_PURGEVER  = 00001210            SYS$CANCEL       ********   X   04   

SHR$_READERR   = 000010B0            SYS$CANTIM       ********   X   04   

SHR$_RELCONCAT = 00001140            SYS$CLOSE        ********  GX   04   

SHR$_REPLACED  = 000010B8            SYS$DASSGN       ********   X   04   

SHR$_RMSERROR  = 000011C8            SYS$HIBER        ********   X   04   

SHR$_SEARCHFAIL= 00001238            SYS$REWIND       ********  GX   04   

SHR$_SYNTAX    = 000010F8            SYS$SETAST       ********   X   04   

SMBMAIN         - PRINT SYMBIONT MAIN ROUTINE                    21-AUG-1978 21:34:02   VAX-11 MACRO X0.3-11               Page  12

PROGRAM SECTION SYNOPSIS                                                                                                         (1)







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$            0000030A      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

SMB_RWDATA       0000030A      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

SMB_PURE         000001DB      04     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT LONG  





THERE WERE NO ERRORS OR WARNINGS.

8070. BYTES LEFT IN FREE MEMORY POOL.

742. BYTES OF RECLAIMED MEMORY.

OBJ$:SMBMAIN,LIS$:SMBMAIN/-SP=SRC$:SMBPRE,SMBMAIN

23 MLB DIR RDS - 795 GETS TO DEFINE 31 MACROS. 73 INTER. FILE WRITES. 

