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

TABLE OF CONTENTS   



   (1)    3800  DECLARATIONS

   (1)    3900  DECLARATIONS

   (1)    8500  FLAG PAGE ROUTINE

   (1)   22410  GET_DIR - GET THE DIRECTORY NAME

SMBFLGPAG       - FLAG PAGE ROUTINE                              21-AUG-1978 21:31:40   VAX-11 MACRO X0.3-11               Page   1

01              DECLARATIONS                                                                                                     (1)



                                     0000   100 	.TITLE	SMBFLGPAG - FLAG PAGE 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 ; FACILITY: VAX/VMS PRINT SYMBIONT

                                     0000  2500 ;

                                     0000  2600 ; ABSTRACT: PRINTS THE FLAG/BURST PAGE THAT PRECEDES PRINTOUTS

                                     0000  2700 ;

                                     0000  2800 ; ENVIRONMENT: NATIVE/USER NON-PRIVILEGED CODE.

                                     0000  2900 

                                     0000  3000 ;

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

                                     0000  3200 ;

                                     0000  3300 ; MODIFIED BY:

                                     0000  3400 ;

                                     0000  3500 ;	, : VERSION

                                     0000  3600 ; 01	- 

                                     0000  3700 ;--

SMBFLGPAG       - FLAG PAGE ROUTINE                              21-AUG-1978 21:31:40   VAX-11 MACRO X0.3-11               Page   2

01              DECLARATIONS                                                                                                     (1)



                                     0000  3900 	.SBTTL	DECLARATIONS

                                     0000  4000 

                                     0000  4100 

                                     0000  4200 ;

                                     0000  4300 ; INCLUDE FILES:

                                     0000  4400 ;

                                     0000  4500 

                                     0000  4600 

                                     0000  4700 ;

                                     0000  4800 ; MACROS:

                                     0000  4900 ;

                                     0000  5000 

                                     0000  5100 

                                     0000  5200 ;

                                     0000  5300 ; EQUATED SYMBOLS:

                                     0000  5400 ;

                                     0000  5450 	$ATRDEF				;ATRIBUTE LIST DEFINTIONS

                                     0000  5500 

                                     0000  5600 

                                     0000  5700 ;

                                     0000  5800 ; OWN STORAGE:

                                     0000  5900 ;

                                     0000  6000 	IMPURE_DATA

                                     0000  6100 

                                     0000  6200 DIR_NAME:				;DIRECTORY NAME STRING

                           0000000C  0000  6300 	.BLKB	1+1+9+1

                                     000C  6400 

                                     000C  6500 	PURE_SECTION

                                     0000  6600 

                                     0000  6700 HDRSTRING:				;FAO STRING FOR HEADER LINE

                          0000 0031' 0000  6800 	.WORD	7$-5$,0

                           00000008' 0004  6900 	.LONG	5$

                                     0008  7000 5$:

                     20 20 43 41 21  0008  7100 	.ASCII	\!AC  \			;FILLER

                        20 44 41 21  000D  7200 	.ASCII	\!AD \			;USER NAME

                        20 44 41 21  0011  7300 	.ASCII	\!AD \			;ACCOUNT NAME

            20 20 20 44 25 37 31 21  0015  7400 	.ASCII	\!17%D   \		;TIME FILE QUEUED

                     20 3A 43 41 21  001D  7500 	.ASCII	\!AC: \			;PRINTER NAME

            20 20 20 44 25 37 31 21  0022  7600 	.ASCII	\!17%D   \		;TIME FILE PRINTED

                        3A 43 41 21  002A  7700 	.ASCII	\!AC:\			;VOL NAME

                           43 41 21  002E  7800 	.ASCII	\!AC\			;DIRECTORY NAME

                     20 20 43 41 21  0031  7900 	.ASCII	\!AC  \			;FILE NAME

                           43 41 21  0036  8000 	.ASCII	\!AC\			;FILLER

                                     0039  8100 7$:

            53 4D 56 2F 58 41 56 00' 0039  8200 FILLER:	.ASCIC	\VAX/VMS\

                                 07  0039       

                                     0041  8300  

SMBFLGPAG       - FLAG PAGE ROUTINE                              21-AUG-1978 21:31:40   VAX-11 MACRO X0.3-11               Page   3

01              FLAG PAGE ROUTINE                                                                                                (1)



                                     0041  8500 	.SBTTL	FLAG PAGE ROUTINE

                                     0041  8600 ;++

                                     0041  8700 ; FUNCTIONAL DESCRIPTION: ROUTINE TO PRINT THE FLAG/BURST PAGE(S)

                                     0041  8800 ; FOR THE SYMBIONT.  PAPER IS ASSUMED TO BE AT TOP OF FORM.

                                     0041  8900 ;

                                     0041  9000 ;

                                     0041  9100 ; CALLING SEQUENCE:

                                     0041  9200 ;

                                     0041  9300 ;	BSB/JSB		SMB$FLAGPAGE

                                     0041  9400 ;

                                     0041  9500 ; INPUT PARAMETERS:

                                     0041  9600 ;

                                     0041  9700 ;	NONE

                                     0041  9800 ;

                                     0041  9900 ; IMPLICIT INPUTS:

                                     0041 10000 ;

                                     0041 10100 ;	R11 - ADDRESS OF IMPURE DATA BLOCK

                                     0041 10200 ;	INIT PRINT MESSAGE TEXT

                                     0041 10300 ;

                                     0041 10400 ; OUTPUT PARAMETERS:

                                     0041 10500 ;

                                     0041 10600 ;	NONE

                                     0041 10700 ;

                                     0041 10800 ; IMPLICIT OUTPUTS:

                                     0041 10900 ;

                                     0041 11000 ;	FLAG/BURST PAGE(S) PRINTED

                                     0041 11100 ;	I/O COMPLETION STATUS IN R0

                                     0041 11200 ;

                                     0041 11300 ; COMPLETION CODES:

                                     0041 11400 ;

                                     0041 11500 ;	NONE

                                     0041 11600 ;

                                     0041 11700 ; SIDE EFFECTS:

                                     0041 11800 ;

                                     0041 11900 ;	R2,R3,R4,R5,R6,R7,R10 DESTROYED

                                     0041 12000 ;

                                     0041 12100 ;--

                                     0041 12200 

                                     0041 12300 

                                     0041 12400 

                                     0041 12500 SMB$FLAGPAGE::				;PRINT HEADER PAGE

            5A            5E     D0  0041 12600 	MOVL	SP,R10			;SAVE STACK POINTER FOR CLEANUP

            56         53 AB     DE  0044 12700 	MOVAL	SD_T_MSGDATA(R11),R6	;SET ADDRESS OF DATA BLOCK

            57         38 A6     9A  0048 12800 	MOVZBL	SIM$B_FLAGS(R6),R7	;COPY FLAGS

       014A'CF            00     FB  004C 12900 	CALLS	#0,W^GET_DIR		;GET THE DIRECTORY NAME

                       E5 AF     9F  0051 13000 	PUSHAB	FILLER			;PUSH ADDRESS OF TRAILER STRING

                       4C A6     DF  0054 13100 	PUSHAL	SIM$T_FILNAM(R6)	;FILE TO BE PRINTED

                     0000'CF     DF  0057 13200 	PUSHAL	W^DIR_NAME		;DIRECTORY NAME

                       1C A6     DF  005B 13300 	PUSHAL	SIM$T_VOLNAM(R6)	;NAME OF DISK

                       2F AB     DF  005E 13400 	PUSHAL	SD_Q_PTIME(R11)		;TIME FILE WAS PRINTED

                       3C A6     DF  0061 13500 	PUSHAL	SIM$T_PRTNAM(R6)	;PRINTER NAME

                       14 A6     DF  0064 13600 	PUSHAL	SIM$Q_QTIME(R6)		;TIME FILE WAS QUEUED

                       60 A6     9F  0067 13700 	PUSHAB	SIM$T_ACNTNAM(R6)	;ADDRESS OF ACCOUNT NAME STRING

                          08     DD  006A 13800 	PUSHL	#SMB$K_ACNTNAMSZ	;AND ITS SIZE!

                       08 A6     9F  006C 13900 	PUSHAB	SIM$T_USERNAM(R6)	;ADDRESS OF USER NAME

                          0C     DD  006F 14000 	PUSHL	#SMB$K_USERNAMSZ	;SIZE OF USER NAME

                       C5 AF     9F  0071 14100 	PUSHAB	FILLER			;PUSH ADDRESS OF HEADER STRING

SMBFLGPAG       - FLAG PAGE ROUTINE                              21-AUG-1978 21:31:40   VAX-11 MACRO X0.3-11               Page   4

01              FLAG PAGE ROUTINE                                                                                                (1)



                                 B0  0074 14200 	MOVW	SD_W_TBUFSIZ(R11),-	;SET THE ORIGINAL SIZE OF BUFFER

         27 AB         29 AB         0075 14300 		SD_W_TBUFCNT(R11)	;  AS CURRENT COUNT

                       27 AB     7F  0079 14400 	PUSHAQ	SD_Q_TBUFDES(R11)	;ADDRESS OF BUFFER DESCRIPTOR

                          6E     DD  007C 14500 	PUSHL	(SP)			;COPY THAT ADDRESS FOR RESULTANT LENGTH

                     FF7E CF     DF  007E 14600 	PUSHAL	HDRSTRING		;PUSH FORMAT STRING ADDRESS

   00000000'9F            0D     FB  0082 14700 	CALLS	#13,@#SYS$FAO		;FORMAT THE STRING

            50         27 AB     3C  0089 14800 	MOVZWL	SD_W_TBUFCNT(R11),R0	;GET SIZE OF STRING

            50            03     C1  008D 14900 	ADDL3	#3,R0,R1		;LONG WORD ALLIGN

                          51         0090       

            51            03     8A  0091 15000 	BICB	#3,R1			;  THE STACK

            5E            51     C2  0094 15100 	SUBL	R1,SP			;MAKE ROOM FOR THE DATA

                          50     DD  0097 15200 	PUSHL	R0			;AND THE LENGTH

         2B BB            50     28  0099 15300 	MOVC3	R0,@SD_A_TBUFADR(R11),4(SP); COPY STRING INTO THE STACK

                       04 AE         009D       

                                     009F 15400 10$:

                          007D   30  009F 15500 	BSBW	100$			;PRINT HEADER LINES

                          0091   30  00A2 15600 	BSBW	140$			;MOVE DOWN PAGE 2 LINES

            52            0C     D0  00A5 15700 	MOVL	#SMB$K_USERNAMSZ,R2	;SIZE OF USER NAME

            53         08 A6     DE  00A8 15800 	MOVAL	SIM$T_USERNAM(R6),R3	;ADDRESS OF USER NAME

                                 D0  00AC 15900 	MOVL	#<2*256+1*256+1*256+25>,-; SET WIDE PRINTING PARAMETERS

            54   02010119 8F         00AD 16000 		R4			;SPACOUT=25,WIDTH=1,HEIGTH=1,SPACING=2

                          FF4A'  30  00B3 16100 	BSBW	SMB$CHRGEN		;PRINT USER NAME

            62            50     E9  00B6 16200 	BLBC	R0,30$			;BR IF ERROR

                          007A   30  00B9 16300 	BSBW	140$			;POSITION PAPER

            53         4C A6     DE  00BC 16400 	MOVAL	SIM$T_FILNAM(R6),R3	;ADDRESS OF FILENAME STRING

                                 D0  00C0 16500 	MOVL	#<2*256+2*256+2*256+4>,-; SET MAGIC CONSTANT FOR WIDLINE

            54   02020204 8F         00C1 16600 		R4			;SPACOUT=4,WIDTH=2,HEIGTH=2,SPACING=2

                          54     DD  00C7 16700 	PUSHL	R4			;SAVE THAT VALUE FOR TYPE/VERSION PRINT

            0A            2E     3A  00C9 16800 	LOCC	#^A/./,#10,1(R3)	;TRY TO LOCATE THE END OF NAME

                       01 A3         00CC       

                          02     13  00CE 16900 	BEQL	20$			;BR IF WENT TO END AND DOT NOT FOUND

                          51     D6  00D0 17000 	INCL	R1			;ADJ POINTER OF NAME/TYPE SEPARATOR

                                     00D2 17100 20$:

                          51     DD  00D2 17200 	PUSHL	R1			;SAVE ADDRESS OF FIRST BYTE IN TYPE

            7E            83     9A  00D4 17300 	MOVZBL	(R3)+,-(SP)		;PUSH LENGTH OF ENTIRE NAME STRING

            51            53     C3  00D7 17400 	SUBL3	R3,R1,R2		;FIND LENGTH OF FILENAME PART

                          52         00DA       

            6E            52     C2  00DB 17500 	SUBL	R2,(SP)			;NOW LENGTH OF TYPE AND VERSION

                          FF1F'  30  00DE 17600 	BSBW	SMB$CHRGEN		;PRINT FILE NAME

            37            50     E9  00E1 17700 	BLBC	R0,30$			;BR IF ERROR

                          004F   30  00E4 17800 	BSBW	140$			;SPACE DOWN THE PAGE 2 LINES

                          1C     BA  00E7 17900 	POPR	#^M<R2,R3,R4>		;GET TYPE/VERSION INFORMATION

                          FF14'  30  00E9 18000 	BSBW	SMB$CHRGEN		;AND PRINT THAT

            2C            50     E9  00EC 18100 	BLBC	R0,30$			;BR IF ERROR

                          0044   30  00EF 18200 	BSBW	140$			;MAKE SOME BLANK LINES

            52            0C     D0  00F2 18300 	MOVL	#SMB$K_USERNAMSZ,R2	;SIZE OF USER NAME

            53         08 A6     DE  00F5 18400 	MOVAL	SIM$T_USERNAM(R6),R3	;ADDRESS OF USER NAME

                                 D0  00F9 18500 	MOVL	#<2*256+1*256+1*256+25>,-; SET WIDE PRINTING PARAMETERS

            54   02010119 8F         00FA 18600 		R4			;SPACOUT=25,WIDTH=1,HEIGTH=1,SPACING=2

                          FEFD'  30  0100 18700 	BSBW	SMB$CHRGEN		;PRINT USER NAME

            15            50     E9  0103 18800 	BLBC	R0,30$			;BR IF ERROR

                          002D   30  0106 18900 	BSBW	140$			;POSITION PAPER

                          14     10  0109 19000 	BSBB	100$			;PRINT TRAILER

            57            02     E5  010B 19100 	BBCC	#PQR$V_BRSTPAG,R7,30$	;BR IF NO BURST INDICATOR

                          0C         010E       

                          0024   30  010F 19200 	BSBW	140$			;PRINT 2 BLANK LINES

                          0B     10  0112 19300 	BSBB	100$			;PRINT BURST INDICATOR

SMBFLGPAG       - FLAG PAGE ROUTINE                              21-AUG-1978 21:31:40   VAX-11 MACRO X0.3-11               Page   5

01              FLAG PAGE ROUTINE                                                                                                (1)



                          09     10  0114 19400 	BSBB	100$			;PRINT BURST INDICATOR AGAIN

                          001D   30  0116 19500 	BSBW	140$			;PRINT 2 BLANK LINES

                          84     11  0119 19600 	BRB	10$			;PRINT FLAG PAGE AGAIN

                                     011B 19700 30$:

            5E            5A     D0  011B 19800 	MOVL	R10,SP			;RESET THE STACK POINTER

                                 05  011E 19900 	RSB				;RETURN

                                     011F 20000 ;

                                     011F 20100 ; LOCAL SUBROUTINE FOR HEADER/TRAILER PRINTING

                                     011F 20200 ;

                                     011F 20300 100$:

            53            03     D0  011F 20400 	MOVL	#3,R3			;LOOP COUNT

                                     0122 20500 110$:

            50         04 AE     D0  0122 20600 	MOVL	4(SP),R0		;LENGTH OF STRING

            51         08 AE     DE  0126 20700 	MOVAL	8(SP),R1		;ADDRESS OF THE STRING

                          52     D4  012A 20800 	CLRL	R2			;SET I/O STATUS INDEX

                          FED1'  30  012C 20900 	BSBW	SMB$WRITELINN		;WRITE WITH NORMAL SPACING

            E9            50     E9  012F 21000 	BLBC	R0,30$			;BR IF ERROR

            ED            53     F5  0132 21100 	SOBGTR	R3,110$			;PRINT 4 TIMES

                                 05  0135 21200 	RSB

                                     0136 21300 

                                     0136 21400 ;

                                     0136 21500 ; LOCAL SUBROUTINE FOR SPACING DOWN THE PAGE

                                     0136 21600 ;

                                     0136 21700 140$:

       00EC CB            30     9A  0136 21800 	MOVZBL	#^A\0\,SD_G_QIOBLK+QIO$_P4(R11) ;PUT CC IN QIO BLOCK

            51         2B AB     D0  013B 21900 	MOVL	SD_A_TBUFADR(R11),R1	;TEMP BUFFER ADDRESS (DUMMY ADDRESS)

                          50     D4  013F 22000 	CLRL	R0			;NUMBER OF BYTE TO PRINT IS 0

                          52     D4  0141 22100 	CLRL	R2			;SET I/O STATUS INDEX

                          FEBA'  30  0143 22200 	BSBW	SMB$WRITELINS		;OUTPUT THE DATA

            D2            50     E9  0146 22300 	BLBC	R0,30$			;BR IF ERROR

                                 05  0149 22400 	RSB

                                     014A 22405 

SMBFLGPAG       - FLAG PAGE ROUTINE                              21-AUG-1978 21:31:40   VAX-11 MACRO X0.3-11               Page   6

01              GET_DIR - GET THE DIRECTORY NAME                                                                                 (1)



                                     014A 22410 	.SBTTL	GET_DIR - GET THE DIRECTORY NAME

                                     014A 22420 

                                     014A 22500 ;

                                     014A 22600 ; LOCAL SUBROUTINE TO GET THE FILE'S DIRECTORY NAME

                                     014A 22700 ;

                                     014A 22800 ;	INPUT -	R6 = ADDR OF SD_T_MSGDATA(R11)

                                     014A 22900 ;		R11 = ADDR OF SMB$G_DATA

                                     014A 23000 ;

                                     014A 23100 GET_DIR:

                               003C  014A 23200 	.WORD	^M<R2,R3,R4,R5>

                     0000'CF     94  014C 23300 	CLRB	W^DIR_NAME		;ASSUME NO DIRECTORY

                       32 A6     D5  0150 23400 	TSTL	SIM$G_DIRID(R6)		;DIRECTORY ID?

                          06     12  0153 23500 	BNEQ	10$			;BR IF YES

                       36 A6     B5  0155 23600 	TSTW	SIM$G_DIRID+4(R6)	;DIRECTORY ID?

                          01     12  0158 23700 	BNEQ	10$			;BR IF YES

                                 04  015A 23800 	RET

                                     015B 23900 

                          7E     D4  015B 24000 10$:	CLRL	-(SP)			;MAKE ROOM FOR CHANNEL NUNMBER

            55            5E     D0  015D 24100 	MOVL	SP,R5			;GET ADDRESS OF IT

                                     0160 24200 					;CREATE DEVICE NAME DESCRIPTOR

                       1D A6     9F  0160 24300 	PUSHAB	SIM$T_VOLNAM+1(R6)	;  ADDRESS OF DEVICE NAME

            7E         1C A6     9A  0163 24400 	MOVZBL	SIM$T_VOLNAM(R6),-(SP)	;  SIZE OF DEVICE NAME

            51            5E     D0  0167 24500 	MOVL	SP,R1			;GET ADDRESS OF IT

                                     016A 24600 	$ASSIGN_S (R1),(R5)		;ASSIGN A CHANNEL TO THE DEVICE

            68            50     E9  0177 24700 	BLBC	R0,60$			;BR IF ERROR

                                     017A 24800 					;CREATE FIB

            7E         32 A6     7D  017A 24900 	MOVQ	SIM$G_DIRID(R6),-(SP)	;  FILE ID

                          00     DD  017E 25000 	PUSHL	#0			;  NO ACCTL OR WSIZE

                                     0180 25100 					;CREATE FIB DESCRIPTOR

                          5E     DD  0180 25200 	PUSHL	SP			;  ADDRESS OF FIB

                          0A     DD  0182 25300 	PUSHL	#4+6			;  SIZE OF FIB

            54            5E     D0  0184 25400 	MOVL	SP,R4			;GET ADDRESS OF DESCRIPTOR

                                     0187 25500 					;CREATE ATTRIBUTE LIST

                          00     DD  0187 25550 	PUSHL	#0			;  END OF LIST

                     0002'CF     9F  0189 25600 	PUSHAB	W^DIR_NAME+2		;  DIRECTORY NAME BUFFER ADDR

            7E            10     B0  018D 25700 	MOVW	#ATR$C_ASCNAME,-(SP)	;  ASCII NAME REQUEST TYPE

            7E            09     B0  0190 25800 	MOVW	#9,-(SP)		;  GET ONLY THE NAME (9 CHARS)

            53            5E     D0  0193 26200 	MOVL	SP,R3			;GET ADDRESS OF ATTRIBUTE LIST

                                     0196 26300 					;ACCESS THE FILE

                                     0196 26400 	$QIOW_S	CHAN=(R5),-

                                     0196 26500 		IOSB=SD_Q_IOSB0(R11),-

                                     0196 26600 		FUNC=#IO$_ACCESS,-

                                     0196 26700 		P1=(R4),-

                                     0196 26800 		P5=R3

            1F            50     E9  01B6 26900 	BLBC	R0,50$			;BR IF ERROR

            1B         17 AB     E9  01B9 27000 	BLBC	SD_Q_IOSB0(R11),50$	;BR IF ERROR

            09            2E     3A  01BD 27200 	LOCC	#^A\.\,#9,W^DIR_NAME+2	;FIND END OF NAME

                     0002'CF         01C0       

            09            50     83  01C3 27300 	SUBB3	R0,#9,W^DIR_NAME	;SET SIZE OF NAME

                     0000'CF         01C6       

       0001'CF         5B 8F     90  01C9 27400 	MOVB	#^A\[\,W^DIR_NAME+1	;ADD "["

            61         5D 8F     90  01CF 27500 	MOVB	#^A\]\,(R1)		;ADD "]"

       0000'CF            02     80  01D3 27600 	ADDB	#2,W^DIR_NAME		;ADD BRACKETS TO TOTAL SIZE

                                     01D8 28000 50$:	$DASSGN_S (R5)			;DEASSIGN THE CHANNEL

                                 04  01E2 28100 60$:	RET

                                     01E3 28200 

                                     01E3 28300 	.END

SMBFLGPAG       - FLAG PAGE ROUTINE                              21-AUG-1978 21:31:40   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



$$ARGS         = 0000000C            FAB$B_BID        00000000            FAB$M_MXV      = 00000002            

$$T1           = 00000001            FAB$B_BKS        0000003E            FAB$M_NAM      = 01000000            

ATR$C_ACLEVEL  = 00000018            FAB$B_BLN        00000001            FAB$M_NEF      = 00000400            

ATR$C_ALCONTROL= 0000000E            FAB$B_DNS        00000035            FAB$M_NFS      = 00010000            

ATR$C_ASCDATES = 0000000D            FAB$B_FAC        00000016            FAB$M_NIL      = 00000020            

ATR$C_ASCNAME  = 00000010            FAB$B_FNS        00000034            FAB$M_OFP      = 20000000            

ATR$C_BAKDATE  = 00000014            FAB$B_FSZ        0000003F            FAB$M_POS      = 00000100            

ATR$C_BLOCKSIZE= 0000000B            FAB$B_ORG        0000001D            FAB$M_PPF      = 00040000            

ATR$C_CREDATE  = 00000011            FAB$B_RAT        0000001E            FAB$M_PPF_IND  = 00004000            

ATR$C_DIRSEQ   = 0000001B            FAB$B_RFM        0000001F            FAB$M_PPF_RAT  = 00003FC0            

ATR$C_ENDLBLAST= 0000000F            FAB$B_RTV        0000001C            FAB$M_PRN      = 00000004            

ATR$C_EXPDAT   = 00000008            FAB$B_SHR        00000017            FAB$M_PUT      = 00000001            

ATR$C_EXPDATE  = 00000013            FAB$C_BID      = 00000003            FAB$M_RCK      = 00800000            

ATR$C_FILNAM   = 00000005            FAB$C_BLN        00000050            FAB$M_RWC      = 00000800            

ATR$C_FILTYP   = 00000006            FAB$C_FIX      = 00000001            FAB$M_RWO      = 00000080            

ATR$C_FILVER   = 00000007            FAB$C_HSH      = 00000030            FAB$M_SCF      = 00004000            

ATR$C_FPRO     = 00000016            FAB$C_IDX      = 00000020            FAB$M_SHRDEL   = 00000004            

ATR$C_HEADER   = 0000000A            FAB$C_MAXRFM   = 00000003            FAB$M_SHRGET   = 00000002            

ATR$C_RECATTR  = 00000004            FAB$C_REL      = 00000010            FAB$M_SHRPUT   = 00000001            

ATR$C_REVDATE  = 00000012            FAB$C_RFM_DFLT = 00000002            FAB$M_SHRUPD   = 00000008            

ATR$C_RPRO     = 00000017            FAB$C_SEQ      = 00000000            FAB$M_SPL      = 00002000            

ATR$C_SEMASK   = 00000019            FAB$C_UDF      = 00000000            FAB$M_SQO      = 00000040            

ATR$C_STATBLK  = 00000009            FAB$C_VAR      = 00000002            FAB$M_SUP      = 00000004            

ATR$C_UCHAR    = 00000003            FAB$C_VFC      = 00000003            FAB$M_TEF      = 10000000            

ATR$C_UIC      = 00000015            FAB$K_BLN        00000050            FAB$M_TMD      = 00000010            

ATR$C_UIC_RO   = 0000001A            FAB$L_ALQ        00000010            FAB$M_TMP      = 00000008            

ATR$C_USERLABEL= 0000000C            FAB$L_CTX        00000018            FAB$M_TRN      = 00000010            

ATR$L_ADDR       00000004            FAB$L_DEV        00000040            FAB$M_UFM      = 04000000            

ATR$S_ACLEVEL  = 00000002            FAB$L_DNA        00000030            FAB$M_UFO      = 00020000            

ATR$S_ALCONTROL= 0000000E            FAB$L_FNA        0000002C            FAB$M_UPD      = 00000008            

ATR$S_ASCDATES = 00000023            FAB$L_FOP        00000004            FAB$M_UPI      = 00000040            

ATR$S_ASCNAME  = 00000014            FAB$L_JNL        00000020            FAB$M_WCK      = 00000200            

ATR$S_BAKDATE  = 00000008            FAB$L_MRN        00000038            FAB$S_ORG      = 00000004            

ATR$S_BLOCKSIZE= 00000002            FAB$L_NAM        00000028            FAB$S_PPF_RAT  = 00000008            

ATR$S_CREDATE  = 00000008            FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            

ATR$S_DIRSEQ   = 00000002            FAB$L_STS        00000008            FAB$V_BLK      = 00000003            

ATR$S_ENDLBLAST= 00000004            FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            

ATR$S_EXPDAT   = 00000007            FAB$L_XAB        00000024            FAB$V_CBT      = 00000015            

ATR$S_EXPDATE  = 00000008            FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            

ATR$S_FILNAM   = 00000006            FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001            

ATR$S_FILTYP   = 00000002            FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014            

ATR$S_FILVER   = 00000002            FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            

ATR$S_FPRO     = 00000002            FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            

ATR$S_HEADER   = 00000200            FAB$M_CR       = 00000002            FAB$V_DLT      = 0000000F            

ATR$S_RECATTR  = 00000020            FAB$M_CTG      = 00100000            FAB$V_DMO      = 0000000C            

ATR$S_REVDATE  = 00000008            FAB$M_DEL      = 00000004            FAB$V_ESC      = 0000001B            

ATR$S_RPRO     = 00000002            FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            

ATR$S_SEMASK   = 00000008            FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            

ATR$S_STATBLK  = 0000000A            FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001            

ATR$S_UCHAR    = 00000001            FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            

ATR$S_UIC      = 00000004            FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            

ATR$S_UIC_RO   = 00000004            FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            

ATR$S_USERLABEL= 00000050            FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            

ATR$W_SIZE       00000000            FAB$M_INP      = 00080000            FAB$V_MXV      = 00000001            

ATR$W_TYPE       00000002            FAB$M_JNL      = 00400000            FAB$V_NAM      = 00000018            

BIT...         = 00000000            FAB$M_KFO      = 40000000            FAB$V_NEF      = 0000000A            

DIR_NAME         00000000 R     03   FAB$M_MSE      = 00000010            FAB$V_NFS      = 00000010            

SMBFLGPAG       - FLAG PAGE ROUTINE                              21-AUG-1978 21:31:40   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



FAB$V_NIL      = 00000005            MSG$_OPRQST    = 00000008            NAM$M_WILDCARD = 00000100            

FAB$V_OFP      = 0000001D            MSG$_PATHLOST  = 00000036            NAM$M_WILD_DIR = 00100000            

FAB$V_ORG      = 00000004            MSG$_PROTOCOL  = 00000037            NAM$M_WILD_GRP = 01000000            

FAB$V_POS      = 00000008            MSG$_REJECT    = 00000038            NAM$M_WILD_MBR = 02000000            

FAB$V_PPF      = 00000012            MSG$_RESOPR    = 00000013            NAM$M_WILD_NAME= 00000020            

FAB$V_PPF_IND  = 0000000E            MSG$_SCANBAD   = 00000028            NAM$M_WILD_SFD1= 02000000            

FAB$V_PPF_RAT  = 00000006            MSG$_SCANRSP   = 00000029            NAM$M_WILD_SFD2= 04000000            

FAB$V_PRN      = 00000002            MSG$_SMBDON    = 00000009            NAM$M_WILD_SFD3= 08000000            

FAB$V_PUT      = 00000000            MSG$_SMBINI    = 00000008            NAM$M_WILD_SFD4= 10000000            

FAB$V_RCK      = 00000017            MSG$_SMBRSP    = 00000020            NAM$M_WILD_SFD5= 20000000            

FAB$V_RWC      = 0000000B            MSG$_SNDACC    = 0000000A            NAM$M_WILD_SFD6= 40000000            

FAB$V_RWO      = 00000007            MSG$_SNDSMB    = 00000004            NAM$M_WILD_SFD7= 80000000            

FAB$V_SCF      = 0000000E            MSG$_SUSOPR    = 00000012            NAM$M_WILD_TYPE= 00000010            

FAB$V_SHRDEL   = 00000002            MSG$_THIRDPARTY= 00000039            NAM$M_WILD_UFD = 01000000            

FAB$V_SHRGET   = 00000001            MSG$_TIMEOUT   = 0000003A            NAM$M_WILD_VER = 00000008            

FAB$V_SHRPUT   = 00000000            MSG$_TRMHANGUP = 00000006            NAM$S_DIR_LVLS = 00000003            

FAB$V_SHRUPD   = 00000003            MSG$_TRMUNSOLIC= 00000001            NAM$T_DVI        00000014            

FAB$V_SPL      = 0000000D            MSG$_XM_ATTN   = 0000000D            NAM$V_DIR_LVLS = 00000015            

FAB$V_SQO      = 00000006            MSG$_XM_DATAVL = 0000000B            NAM$V_EXP_DEV  = 00000007            

FAB$V_SUP      = 00000002            MSG$_XM_SHUTDN = 0000000C            NAM$V_EXP_DIR  = 00000006            

FAB$V_TEF      = 0000001C            NAM$B_BID        00000000            NAM$V_EXP_NAME = 00000002            

FAB$V_TMD      = 00000004            NAM$B_BLN        00000001            NAM$V_EXP_TYPE = 00000001            

FAB$V_TMP      = 00000003            NAM$B_CURLVL     00000038            NAM$V_EXP_VER  = 00000000            

FAB$V_TRN      = 00000004            NAM$B_ESL        0000000B            NAM$V_GRP_MBR  = 00000013            

FAB$V_UFM      = 0000001A            NAM$B_ESS        0000000A            NAM$V_HIGHVER  = 0000000F            

FAB$V_UFO      = 00000011            NAM$B_RSL        00000003            NAM$V_LOWVER   = 0000000E            

FAB$V_UPD      = 00000003            NAM$B_RSS        00000002            NAM$V_NODE     = 00000011            

FAB$V_UPI      = 00000006            NAM$C_BID      = 00000002            NAM$V_PPF      = 00000010            

FAB$V_WCK      = 00000009            NAM$C_BLN        00000038            NAM$V_QUOTED   = 00000012            

FAB$W_BLS        0000003C            NAM$C_BLN_DIRWC  00000050            NAM$V_WILDCARD = 00000008            

FAB$W_DEQ        00000014            NAM$C_DVI      = 00000010            NAM$V_WILD_DIR = 00000014            

FAB$W_IFI        00000002            NAM$C_MAXRSS   = 00000080            NAM$V_WILD_GRP = 00000018            

FAB$W_MRS        00000036            NAM$C_MAXRSSLCL= 00000060            NAM$V_WILD_MBR = 00000019            

FILLER           00000039 R     04   NAM$K_BLN        00000038            NAM$V_WILD_NAME= 00000005            

GBL...         = 00000000            NAM$K_BLN_DIRWC  00000050            NAM$V_WILD_SFD1= 00000019            

GET_DIR          0000014A R     04   NAM$L_DIRWCC1    00000040            NAM$V_WILD_SFD2= 0000001A            

HDRSTRING        00000000 R     04   NAM$L_DIRWCC2    00000044            NAM$V_WILD_SFD3= 0000001B            

IO$_ACCESS       ********   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            

SMBFLGPAG       - FLAG PAGE ROUTINE                              21-AUG-1978 21:31:40   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



PQR$M_NOFEED   = 00000010            RAB$M_FDL      = 00000040            RAB$W_RSZ        00000022            

PQR$M_PAGHDR   = 00000020            RAB$M_HSH      = 00000080            RAB$W_USZ        00000020            

PQR$V_BRSTPAG  = 00000002            RAB$M_KGE      = 00200000            SD_A_TBUFADR     0000002B            

PQR$V_DELETE   = 00000000            RAB$M_KGT      = 00400000            SD_B_ERR_FLAGS   00000002            

PQR$V_DOUBLE   = 00000003            RAB$M_LIM      = 00004000            SD_B_GEN_FLAGS   00000003            

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            

SMBFLGPAG       - FLAG PAGE ROUTINE                              21-AUG-1978 21:31:40   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



SIM$L_UIC        00000004            

SIM$Q_QTIME      00000014            

SIM$T_ACNTNAM    00000060            

SIM$T_FILNAM     0000004C            

SIM$T_PRTNAM     0000003C            

SIM$T_USERNAM    00000008            

SIM$T_VOLNAM     0000001C            

SIM$W_MSGTYP     00000000            

SIM$W_PAGCNT     0000003A            

SIM$W_REST       00000002            

SMB$CHRGEN       ********   X   04   

SMB$FLAGPAGE     00000041 RG    04   

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$WRITELINN    ********   X   04   

SMB$WRITELINS    ********   X   04   

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   04   

SYS$DASSGN       ********   X   04   

SYS$FAO          ********   X   04   

SYS$QIOW         ********   X   04   





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       0000000C      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

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





THERE WERE NO ERRORS OR WARNINGS.

10502. BYTES LEFT IN FREE MEMORY POOL.

730. BYTES OF RECLAIMED MEMORY.

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

16 MLB DIR RDS - 683 GETS TO DEFINE 24 MACROS. 64 INTER. FILE WRITES. 

