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

TABLE OF CONTENTS   



   (1)    3800  DECLARATIONS

   (1)    4000  DECLARATIONS

   (1)    7400  SYMBIONT INITIALIZATION ROUTINE

SMBINIT         - SYMBIONT INITIALIZATION                        21-AUG-1978 21:33:17   VAX-11 MACRO X0.3-11               Page   1

01              DECLARATIONS                                                                                                     (1)



                                     0000   100 	.TITLE	SMBINIT - SYMBIONT INITIALIZATION

                                     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:	ONCE ONLY INITIALIZATION ROUTINE AND DATA

                                     0000  2800 ;

                                     0000  2900 ;

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

                                     0000  3100 ;

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

                                     0000  3300 ;

                                     0000  3400 ; MODIFIED BY:

                                     0000  3500 ;

                                     0000  3600 ;	, : VERSION

                                     0000  3700 ; 01	- 

                                     0000  3800 ;--

SMBINIT         - SYMBIONT INITIALIZATION                        21-AUG-1978 21:33:17   VAX-11 MACRO X0.3-11               Page   2

01              DECLARATIONS                                                                                                     (1)



                                     0000  4000 	.SBTTL	DECLARATIONS

                                     0000  4100 

                                     0000  4200 	PURE_SECTION	NAME=SMB_INITCODE

                                     0000  4300 

                                     0000  4400 ;

                                     0000  4500 ; INCLUDE FILES:

                                     0000  4600 ;

                                     0000  4700 ;	[PRTSMB.SRC]SMBPRE.MAR

                                     0000  4800 

                                     0000  4900 ;

                                     0000  5000 ; MACROS:

                                     0000  5100 ;

                                     0000  5200 

                                     0000  5300 ;

                                     0000  5400 ; EQUATED SYMBOLS:

                                     0000  5500 ;

                                     0000  5550 	$JBCMSGDEF			;JOB CONTROLLER MESSAGES

                                     0000  5600 

                                     0000  5800 ;

                                     0000  5900 ; OWN STORAGE:

                                     0000  6000 ;

                                     0000  6020 

                                     0000  6200 JBCMAILBOX:				;NAME FOR JOB CONTROLLER MAILBOX

                           00000006' 0000  6300 	.LONG	20$-10$

                           00000008' 0004  6310 	.LONG	10$

                                 5F  0008  6320 10$:	.ASCII	/_/

                           00000000' 0009  6330 	.LONG	SYS$C_JOBCTLMB

                                 3A  000D  6340 	.ASCII	/:/

                                     000E  6350 20$:

                                     000E  6400 

SMBINIT         - SYMBIONT INITIALIZATION                        21-AUG-1978 21:33:17   VAX-11 MACRO X0.3-11               Page   3

01              SYMBIONT INITIALIZATION ROUTINE                                                                                  (1)



                                     000E  7400 	.SBTTL	SYMBIONT INITIALIZATION ROUTINE

                                     000E  7500 ;++

                                     000E  7600 ; FUNCTIONAL DESCRIPTION:

                                     000E  7700 ;

                                     000E  7800 ;	THIS ROUTINE PERFORMS ALL ONE TIME FUNCTIONS FOR THE

                                     000E  7900 ;	PRINT SYMBIONT.

                                     000E  8000 ;

                                     000E  8100 ; CALLING SEQUENCE:

                                     000E  8200 ;

                                     000E  8300 ;	MAIN ENTRY POINT OF SYMBIONT

                                     000E  8400 ;

                                     000E  8500 ; INPUT PARAMETERS:

                                     000E  8600 ;

                                     000E  8700 ;	NONE

                                     000E  8800 ;

                                     000E  8900 ; IMPLICIT INPUTS:

                                     000E  9000 ;

                                     000E  9100 ;	NONE

                                     000E  9200 ;

                                     000E  9300 ; OUTPUT PARAMETERS:

                                     000E  9400 ;

                                     000E  9500 ;	R11 CONTAINS THE ADDRESS OF THE IMPURE DATA BLOCK

                                     000E  9600 ;	INIT DONE MESSAGE SENT TO SYMBIONT MANAGER

                                     000E  9700 ;

                                     000E  9800 ; IMPLICIT OUTPUTS:

                                     000E  9900 ;

                                     000E 10000 ;	CHANNEL ASSIGNED TO SYMBIONT MANAGER MAILBOX

                                     000E 10100 ;	MAILBOX CREATED FOR RECEIPT OF MANAGER MESSAGES

                                     000E 10200 ;

                                     000E 10300 ; COMPLETION CODES:

                                     000E 10400 ;

                                     000E 10500 ;	NONE

                                     000E 10600 ;

                                     000E 10700 ; SIDE EFFECTS:

                                     000E 10800 ;

                                     000E 10900 ;	THIS ROUTINE DISPATCHES DIRECTLY TO THE SYMBIONT IDLE LOOP

                                     000E 11000 ;

                                     000E 11100 ;--

                                     000E 11200  

                                     000E 11300  

                                     000E 11400  

                                     000E 11500 SMB_START:				;SYMBIONT INITIAL ENTRY

                               0000  000E 11600 	.WORD	0			;ENTRY MASK

                                     0010 11700 

            6D       0000'CF     DE  0010 11710 	MOVAL	W^SMB$HANDLER,(FP)	;SET CONDITION HANDLER ADDRESS

                                     0015 11720 

                                     0015 11800 ;

                                     0015 11900 ; DISABLE ASTS UNTIL MESSAGE IS SENT

                                     0015 12000 ;

                                     0015 12100 

                                     0015 12200 	$SETAST_S	#0		;DISABLE ASTS

                                     001E 12300 

            5B       0000'CF     DE  001E 12400 	MOVAL	W^SMB$G_DATA,R11	;SET ADDR OF IMPURE DATA BLOCK

                                     0023 12500 

                                     0023 12600 ;

                                     0023 12700 ; RUN-TIME INITIALIZATION OF DATA FIELDS

                                     0023 12800 ;

SMBINIT         - SYMBIONT INITIALIZATION                        21-AUG-1978 21:33:17   VAX-11 MACRO X0.3-11               Page   4

01              SYMBIONT INITIALIZATION ROUTINE                                                                                  (1)



                                     0023 12900 

         0D AB       0070 8F     B0  0023 13000 	MOVW	#SIM$K_SIZE,SD_W_MBREADLEN(R11) ;SET INITIAL MB READ LENGTH

                                     0029 13100 

         27 AB       0100 8F     B0  0029 13200 	MOVW	#SMB$K_TBUFSIZ,SD_W_TBUFCNT(R11) ;SET LENGTH OF TEMP BUFFER

         29 AB       0100 8F     B0  002F 13300 	MOVW	#SMB$K_TBUFSIZ,SD_W_TBUFSIZ(R11) ;SET LENGTH OF TEMP BUFFER

         2B AB       01CA CB     DE  0035 13400 	MOVAL	SD_T_TBUF(R11),SD_A_TBUFADR(R11) ;SET ADDRESS OF TEMP BUFFER

                                     003B 13500 

            56       00F8 CB     DE  003B 13600 	MOVAL	SD_G_FAB(R11),R6	;GET ADDRESS OF FAB

            57       0148 CB     DE  0040 13700 	MOVAL	SD_G_RAB(R11),R7	;GET ADDRESS OF RAB

            58       018C CB     DE  0045 13800 	MOVAL	SD_G_NAM(R11),R8	;GET ADDRESS OF NAM BLK

                                     004A 13801 

                                     004A 13805 	ASSUME	FAB$B_BID+1 EQ FAB$B_BLN

            66       5003 8F     B0  004A 13810 	MOVW	#FAB$C_BID+<FAB$C_BLN@8>,FAB$B_BID(R6) ;CREATE FAB

                                     004F 13815 	ASSUME 	RAB$B_BID+1 EQ RAB$B_BLN

            67       4401 8F     B0  004F 13820 	MOVW	#RAB$C_BID+<RAB$C_BLN@8>,RAB$B_BID(R7) ;CREATE RAB

                                     0054 13825 	ASSUME	NAM$B_BID+1 EQ NAM$B_BLN

            68       3802 8F     B0  0054 13830 	MOVW	#NAM$C_BID+<NAM$C_BLN@8>,NAM$B_BID(R8) ;CREATE NAM BLK

                                     0059 13835 

         28 A6            58     D0  0059 14200 	MOVL	R8,FAB$L_NAM(R6)	;SET NAME BLOCK ADDRESS IN FAB

         3C A7            56     D0  005D 14300 	MOVL	R6,RAB$L_FAB(R7)	;SET FAB ADDRESS IN RAB

         20 A7       0100 8F     B0  0061 14400 	MOVW	#SMB$K_LBUFSIZ,RAB$W_USZ(R7) ;SET RECORD BUFFER SIZE

         24 A7       01CA CB     DE  0067 14450 	MOVAL	SD_T_LBUF(R11),RAB$L_UBF(R7) ;SET RECORD BUFFER ADDR

                                     006D 14475 	SETBIT	RAB$V_RAH,RAB$L_ROP(R7)	;USE READ-AHEAD

                                     0072 14500 

       00C4 CB            0C     9A  0072 14600 	MOVZBL	#QIO$_NARGS,SD_G_QIOBLK(R11) ;SET QIO BLOCK LENGTH

       00D0 CB       0000'8F     3C  0077 14700 	MOVZWL	#IO$_WRITELBLK,SD_G_QIOBLK+QIO$_FUNC(R11) ;SET I/O FUNCTION

                       02 AB     B4  007E 15800 	CLRW	SD_B_ERR_FLAGS(R11)	;CLEAR BOTH SETS OF FLAGS

                                     0081 16100 

                                     0081 16200 	ASSUME	STATE$_IDLE EQ 0

                                     0081 16300 

                       04 AB     94  0081 16400 	CLRB	SD_B_STATE(R11)		;SET INITIAL STATE TO IDLE

                                     0084 16500 

                                     0084 16600 ;

                                     0084 16700 ; ASSIGN THE SYMBIONT MANAGERS MAILBOX

                                     0084 16800 ;

                                     0084 16900 

                                     0084 17000 	$ASSIGN_S	JBCMAILBOX,-	;ASSIGN CHANNEL TO THE JOB CONTROLLER'S

                                     0084 17100 		SD_W_JBCCHAN(R11)	;MAILBOX-CHANNEL NUMBER STORED HERE

            11            50     E8  0094 17200 	BLBS	R0,10$			;BR IF NO ERROR

                                     0097 17210 	SIGNAL	JBC$_MBASGN,#0,R0	;SIGNAL THE ERROR

                          2D     11  00A6 17220 	BRB	20$			;EXIT

                                     00A8 17300 

                                     00A8 17400 ;

                                     00A8 17500 ; CREATE SYMBIONT'S MAILBOX

                                     00A8 17600 ;

                                     00A8 17700 

                                     00A8 17710 10$:

                                     00A8 17800 	$CREMBX_S 	-		;CREATE A MAIL BOX FOR COMMANDS

                                     00A8 17900 		PROMSK = #0,-		; PROTECTION

                                     00A8 18000 		MAXMSG = #SIM$K_SIZE,-	;MAXIMUM MESSAGE SIZE

                                     00A8 18100 		BUFQUO = #2*SIM$K_SIZE,-; 2 MESSAGES MAX

                                     00A8 18200 		CHAN   = SD_W_MBCHAN(R11) ; CHANNEL OF CREATED MAILBOX GOES HERE

            18            50     E8  00C3 18300 	BLBS	R0,30$			;BR IF NO ERROR

                                     00C6 18310 	SIGNAL	JBC$_SYMBCRE,#0,R0	;SIGNAL THE ERROR

                                     00D5 18320 20$:	$EXIT_S				;FORCE IMAGE EXIT

                                     00DE 18400 

                                     00DE 18500 ;

SMBINIT         - SYMBIONT INITIALIZATION                        21-AUG-1978 21:33:17   VAX-11 MACRO X0.3-11               Page   5

01              SYMBIONT INITIALIZATION ROUTINE                                                                                  (1)



                                     00DE 18600 ; GET MAILBOX CHANNEL INFO

                                     00DE 18700 ;

                                     00DE 18800 

                                     00DE 18810 30$:

            50            6B     DE  00DE 18900 	MOVAL	SD_W_MBCHAN(R11),R0	;SET ADDR OF CHANNEL

                          FF1C'  30  00E1 19000 	BSBW	SMB$GETCHAN		;GET CHANNEL INFO

                                     00E4 19100 

                                     00E4 19200 ;

                                     00E4 19300 ; SET UNSOLICITED AST FOR MY MAILBOX

                                     00E4 19400 ;

                                     00E4 19500 

                          FF19'  30  00E4 19600 	BSBW	SMB$SETMBAST		;SET THE MAILBOX AST

            50       01D6 CB     B0  00E7 19700 	MOVW	SD_T_TBUF+12(R11),R0	;SET MAILBOX UNIT NUMBER FOR INIT MSG

         39 AB            50     B0  00EC 19800 	MOVW	R0,SD_W_MBUNIT(R11)	;SAVE UNIT FOR $DELMBX

                          FF0D'  30  00F0 19900 	BSBW	SMB$INIT_DONE		;SEND MGR THE INIT DONE MESSAGE

                                     00F3 20000 

                                     00F3 20100 ;

                                     00F3 20200 ; ENABLE ASTS NOW

                                     00F3 20300 ;

                                     00F3 20400 

                                     00F3 20500 	$SETAST_S	#1		;ENABLE ASTS

                                     00FC 20600 

                          FF01'  31  00FC 20700 	BRW	SMB$MAIN		;GOTO MAIN LOOP

                                     00FF 20800  

                                     00FF 20900 	.END	SMB_START

SMBINIT         - SYMBIONT INITIALIZATION                        21-AUG-1978 21:33:17   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (1)



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

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

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

BIT...         = 000484F0            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            IO$_WRITELBLK    ********   X   03   

FAB$L_STS        00000008            FAB$V_BLK      = 00000003            JBC$_ACMINVOP  = 00048088            

FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            JBC$_ACNTOPN   = 00048478            

FAB$L_XAB        00000024            FAB$V_CBT      = 00000015            JBC$_ACNTWRT   = 00048480            

FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            JBC$_ENTQUE    = 000484A8            

FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001            JBC$_ILLDEVNAM = 00048000            

FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014            JBC$_ILLDEVTYP = 00048008            

FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            JBC$_ILLFILNAM = 00048010            

FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            JBC$_ILLQUENAM = 00048018            

FAB$M_CR       = 00000002            FAB$V_DLT      = 0000000F            JBC$_INPASGN   = 00048488            

FAB$M_CTG      = 00100000            FAB$V_DMO      = 0000000C            JBC$_INPREAD   = 00048490            

FAB$M_DEL      = 00000004            FAB$V_ESC      = 0000001B            JBC$_INVMSG    = 00048418            

FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            JBC$_INVSCT    = 00048468            

FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            JBC$_JOBABORT  = 00048080            

FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001            JBC$_JOBCRD    = 000484B0            

FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            JBC$_LOSTREC   = 00048438            

FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            JBC$_MBASGN    = 00048400            

FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            JBC$_MBDEAS    = 00048460            

FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            JBC$_MBREAD    = 00048408            

SMBINIT         - SYMBIONT INITIALIZATION                        21-AUG-1978 21:33:17   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



JBC$_MBSETAST  = 000484C8            MSG$_SCANBAD   = 00000028            NAM$M_WILD_SFD1= 02000000            

JBC$_MBWRITE   = 000484D0            MSG$_SCANRSP   = 00000029            NAM$M_WILD_SFD2= 04000000            

JBC$_MULTREC   = 00048430            MSG$_SMBDON    = 00000009            NAM$M_WILD_SFD3= 08000000            

JBC$_NOOPENJOB = 00048048            MSG$_SMBINI    = 00000008            NAM$M_WILD_SFD4= 10000000            

JBC$_NOPRIV    = 00048020            MSG$_SMBRSP    = 00000020            NAM$M_WILD_SFD5= 20000000            

JBC$_NOQUEHDR  = 00048028            MSG$_SNDACC    = 0000000A            NAM$M_WILD_SFD6= 40000000            

JBC$_NOQUESPACE= 00048030            MSG$_SNDSMB    = 00000004            NAM$M_WILD_SFD7= 80000000            

JBC$_NORMAL    = 00040001            MSG$_SUSOPR    = 00000012            NAM$M_WILD_TYPE= 00000010            

JBC$_NOSUCHJOB = 00048040            MSG$_THIRDPARTY= 00000039            NAM$M_WILD_UFD = 01000000            

JBC$_NOSUCHQUE = 00048038            MSG$_TIMEOUT   = 0000003A            NAM$M_WILD_VER = 00000008            

JBC$_PASSCRD   = 000484B8            MSG$_TRMHANGUP = 00000006            NAM$S_DIR_LVLS = 00000003            

JBC$_PRCREAT   = 00048410            MSG$_TRMUNSOLIC= 00000001            NAM$T_DVI        00000014            

JBC$_PRINTOUT  = 000484E0            MSG$_XM_ATTN   = 0000000D            NAM$V_DIR_LVLS = 00000015            

JBC$_QUECNT    = 00048428            MSG$_XM_DATAVL = 0000000B            NAM$V_EXP_DEV  = 00000007            

JBC$_QUEERR    = 00048458            MSG$_XM_SHUTDN = 0000000C            NAM$V_EXP_DIR  = 00000006            

JBC$_QUENOSTOP = 00048050            NAM$B_BID        00000000            NAM$V_EXP_NAME = 00000002            

JBC$_QUEUPD    = 000484E8            NAM$B_BLN        00000001            NAM$V_EXP_TYPE = 00000001            

JBC$_SCTERR    = 00048450            NAM$B_CURLVL     00000038            NAM$V_EXP_VER  = 00000000            

JBC$_SMINVOPR  = 00048058            NAM$B_ESL        0000000B            NAM$V_GRP_MBR  = 00000013            

JBC$_SMINVOPT  = 00048060            NAM$B_ESS        0000000A            NAM$V_HIGHVER  = 0000000F            

JBC$_SMINVREQ  = 00048068            NAM$B_RSL        00000003            NAM$V_LOWVER   = 0000000E            

JBC$_SMZEROJOB = 00048070            NAM$B_RSS        00000002            NAM$V_NODE     = 00000011            

JBC$_SNDRESP   = 00048420            NAM$C_BID      = 00000002            NAM$V_PPF      = 00000010            

JBC$_SYMBASN   = 00048440            NAM$C_BLN        00000038            NAM$V_QUOTED   = 00000012            

JBC$_SYMBCRE   = 000484D8            NAM$C_BLN_DIRWC  00000050            NAM$V_WILDCARD = 00000008            

JBC$_SYMBDSAB  = 00048078            NAM$C_DVI      = 00000010            NAM$V_WILD_DIR = 00000014            

JBC$_SYMBWRT   = 00048448            NAM$C_MAXRSS   = 00000080            NAM$V_WILD_GRP = 00000018            

JBC$_SYMDEL    = 00048470            NAM$C_MAXRSSLCL= 00000060            NAM$V_WILD_MBR = 00000019            

JBC$_UAFOPN    = 000484A0            NAM$K_BLN        00000038            NAM$V_WILD_NAME= 00000005            

JBC$_UNESYMMSG = 000484C0            NAM$K_BLN_DIRWC  00000050            NAM$V_WILD_SFD1= 00000019            

JBC$_USERVAL   = 00048498            NAM$L_DIRWCC1    00000040            NAM$V_WILD_SFD2= 0000001A            

JBCMAILBOX       00000000 R     03   NAM$L_DIRWCC2    00000044            NAM$V_WILD_SFD3= 0000001B            

LIB$SIGNAL       ********   X   03   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            

SMBINIT         - SYMBIONT INITIALIZATION                        21-AUG-1978 21:33:17   VAX-11 MACRO X0.3-11               Page   8

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            SIM$B_FILCOPY    00000039            

RAB$M_BIO      = 00000800            RAB$V_WBH      = 0000000A            SIM$B_FLAGS      00000038            

RAB$M_CCO      = 80000000            RAB$W_ISI        00000002            SIM$G_DIRID      00000032            

RAB$M_CVT      = 04000000            RAB$W_RFA        00000010            SIM$G_FILEID     0000002C            

RAB$M_EOF      = 00000100            RAB$W_RFA4       00000014            SIM$K_SIZE       00000070            

RAB$M_FDL      = 00000040            RAB$W_RSZ        00000022            SIM$L_UIC        00000004            

RAB$M_HSH      = 00000080            RAB$W_USZ        00000020            SIM$Q_QTIME      00000014            

RAB$M_KGE      = 00200000            SD_A_TBUFADR     0000002B            SIM$T_ACNTNAM    00000060            

RAB$M_KGT      = 00400000            SD_B_ERR_FLAGS   00000002            SIM$T_FILNAM     0000004C            

RAB$M_LIM      = 00004000            SD_B_GEN_FLAGS   00000003            SIM$T_PRTNAM     0000003C            

SMBINIT         - SYMBIONT INITIALIZATION                        21-AUG-1978 21:33:17   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



SIM$T_USERNAM    00000008            

SIM$T_VOLNAM     0000001C            

SIM$W_MSGTYP     00000000            

SIM$W_PAGCNT     0000003A            

SIM$W_REST       00000002            

SMB$GETCHAN      ********   X   03   

SMB$G_DATA       ********   X   03   

SMB$HANDLER      ********   X   03   

SMB$INIT_DONE    ********   X   03   

SMB$K_ACNTNAMSZ= 00000008            

SMB$K_GENEFN   = 00000000            

SMB$K_HEADERSZ = 00000034            

SMB$K_LBUFSIZ  = 00000100            

SMB$K_LPEFN0   = 00000001            

SMB$K_LPEFN1   = 00000002            

SMB$K_MBEFN    = 00000003            

SMB$K_TBUFSIZ  = 00000100            

SMB$K_TIMEFN   = 00000005            

SMB$K_TOFEFN   = 00000004            

SMB$K_USERNAMSZ= 0000000C            

SMB$MAIN         ********   X   03   

SMB$SETMBAST     ********   X   03   

SMB_START        0000000E R     03   

STATE$_ASNDEV  = 00000001            

STATE$_EOF_CLOS= 00000005            

STATE$_FLAGPAGE= 00000003            

STATE$_GET_PRIN= 00000004            

STATE$_IDLE    = 00000000            

STATE$_OPEN    = 00000002            

STATE$_SUSPEND = 00000006            

SYS$ASSIGN       ********   X   03   

SYS$CREMBX       ********   X   03   

SYS$C_JOBCTLMB   ********   X   03   

SYS$EXIT         ********   X   03   

SYS$SETAST       ********   X   03   

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

SMB_INITCODE     000000FF      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT LONG  





THERE WERE NO ERRORS OR WARNINGS.

10800. BYTES LEFT IN FREE MEMORY POOL.

668. BYTES OF RECLAIMED MEMORY.

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

17 MLB DIR RDS - 668 GETS TO DEFINE 25 MACROS. 63 INTER. FILE WRITES. 

