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

TABLE OF CONTENTS   



   (1)    3800  DECLARATIONS

   (1)    3900  DECLARATIONS

   (1)    7200  GET AND QUEUE LINE

SMBGET          - GET RECORD FROM FILE AND PRINT IT              21-AUG-1978 21:32:28   VAX-11 MACRO X0.3-11               Page   1

01              DECLARATIONS                                                                                                     (1)



                                     0000   100 	.TITLE	SMBGET - GET RECORD FROM FILE AND PRINT IT

                                     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: GET A RECORD FROM THE INPUT FILE

                                     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 ;--

SMBGET          - GET RECORD FROM FILE AND PRINT IT              21-AUG-1978 21:32:28   VAX-11 MACRO X0.3-11               Page   2

01              DECLARATIONS                                                                                                     (1)



                                     0000  3900 	.SBTTL	DECLARATIONS

                                     0000  4000 

                                     0000  4100 	PURE_SECTION

                                     0000  4200 

                                     0000  4300 ;

                                     0000  4400 ; INCLUDE FILES:

                                     0000  4500 ;

                                     0000  4600 

                                     0000  4700 ;	[PRTSMB.SRC]SMBPRE.MAR

                                     0000  4800 

                                     0000  4900 

                                     0000  5000 ;

                                     0000  5100 ; MACROS:

                                     0000  5200 ;

                                     0000  5300 

                                     0000  5400 

                                     0000  5500 ;

                                     0000  5600 ; EQUATED SYMBOLS:

                                     0000  5700 ;

                                     0000  5800 

                                     0000  5900 	$SHRDEF				;SHARED MESSAGE DEFINTIONS

                           0000000A  0000  6000 LF=10					;LINE FEED

                           0000000C  0000  6100 FF=12					;FORM FEED

                                     0000  6200 

                                     0000  6300 ;

                                     0000  6400 ; OWN STORAGE:

                                     0000  6500 ;

                                     0000  6800 

                                     0000  6900 SEQNODESC:

                                     0000  7000 	STRING_DESC	<!5UW!_>	;SEQ NO. CONVERSION STRING FOR FAO

SMBGET          - GET RECORD FROM FILE AND PRINT IT              21-AUG-1978 21:32:28   VAX-11 MACRO X0.3-11               Page   3

01              GET AND QUEUE LINE                                                                                               (1)



                                     000E  7200 	.SBTTL	GET AND QUEUE LINE

                                     000E  7300 ;++

                                     000E  7400 ; FUNCTIONAL DESCRIPTION: ROUTINE TO GET A LINE FROM THE FILE

                                     000E  7500 ; AND QUEUE IT TO THE PRINTER.  

                                     000E  7600 ;

                                     000E  7700 ;

                                     000E  7800 ; CALLING SEQUENCE:

                                     000E  7900 ;

                                     000E  8000 ;	BSB/JSB		SMB$GET

                                     000E  8100 ;

                                     000E  8200 ; INPUT PARAMETERS:

                                     000E  8300 ;

                                     000E  8400 ;	R2 - I/O STATUS INDEX

                                     000E  8500 ;

                                     000E  8600 ; IMPLICIT INPUTS:

                                     000E  8700 ;

                                     000E  8800 ;	R11 - ADDRESS OF IMPURE DATA BLOCK

                                     000E  8900 ;

                                     000E  9000 ; OUTPUT PARAMETERS:

                                     000E  9100 ;

                                     000E  9200 ;	NONE

                                     000E  9300 ;

                                     000E  9400 ; IMPLICIT OUTPUTS:

                                     000E  9500 ;

                                     000E  9600 ;	IF EOF OCCURED - STATE CHANGED TO EOF_CLOSE

                                     000E  9700 ;

                                     000E  9800 ; COMPLETION CODES:

                                     000E  9900 ;

                                     000E 10000 ;	IF GET ERROR - R0 = RMS STATUS

                                     000E 10100 ;			GETERR FLAG SET

                                     000E 10200 ;

                                     000E 10300 ; SIDE EFFECTS:

                                     000E 10400 ;

                                     000E 10500 ;	NONE

                                     000E 10600 ;

                                     000E 10700 ;--

                                     000E 10800 

                                     000E 10900 

                                     000E 11000 	.ENABL	LSB

                                     000E 11100 

                                     000E 11200 SMB$GET::

                          08     BB  000E 11300 	PUSHR	#^M<R3>			;SAVE R3

                                     0010 11400 

                                     0010 11500 ;

                                     0010 11600 ; CHECK IF OVER PAGE COUNT

                                     0010 11700 ;

                                     0010 11800 

                     008D CB     B5  0010 11900 	TSTW	SD_T_MSGDATA+SIM$W_PAGCNT(R11) ;ANY PAGE LIMIT SPECIFIED?

                          13     13  0014 12000 	BEQL	20$			;IF NO - PRINT ENTIRE FILE

            50   00000000'8F     D0  0016 12100 	MOVL	#RMS$_EOF,R0		;ASSUME OVER PAGE COUNT

                                 B1  001D 12200 	CMPW	SD_W_PAGE(R11),-	;IS IT OVER PAGE COUNT?

       008D CB       0300 CB         001E 12300 		SD_T_MSGDATA+SIM$W_PAGCNT(R11) 

                          03     1B  0024 12400 	BLEQU	20$			;BR IF NO

                                     0026 12500 10$:

                          00B6   31  0026 12600 	BRW	130$			;BR IF YES - FAKE EOF

                                     0029 12700 

                                     0029 12800 ;

SMBGET          - GET RECORD FROM FILE AND PRINT IT              21-AUG-1978 21:32:28   VAX-11 MACRO X0.3-11               Page   4

01              GET AND QUEUE LINE                                                                                               (1)



                                     0029 12900 ; DO THE GET

                                     0029 13000 ;

                                     0029 13100 

            53       0148 CB     DE  0029 13200 20$:	MOVAL	SD_G_RAB(R11),R3	;GET ADDR OF RAB

                                     002E 13300 	$GET	RAB=(R3)		;GET A RECORD

                       3B AB     D6  0037 13400 	INCL	SD_L_GETCNT(R11)	;ADD 1 TO GET COUNT

            E9            50     E9  003A 13500 	BLBC	R0,10$			;BR IF ERROR - PROBABLY EOF

                                     003D 13600 

                                     003D 13700 ;

                                     003D 13800 ; SET BUFFER ADDRESS AND LENGTH

                                     003D 13900 ;

                                     003D 14000 

                                     003D 14100 30$:

            51         28 A3     D0  003D 14300 	MOVL	RAB$L_RBF(R3),R1	;GET ADDR OF RECORD

                                     0041 14400 

                                     0041 14500 ; *** NOTE *** MOVZWL SETS COND CODES. CHECKED AT FTN CC AND AT 100$

                                     0041 14600 

            50         22 A3     3C  0041 14700 	MOVZWL	RAB$W_RSZ(R3),R0	;GET LENGTH OF RECORD

                                     0045 14800 

                                     0045 14900 ;

                                     0045 15000 ; CHECK FOR FORTRAN CARRIAGE CONTROL

                                     0045 15100 ;

                                     0045 15200 

       0116 CB            00     E1  0045 15300 	BBC	#FAB$V_FTN,SD_G_FAB+FAB$B_RAT(R11),90$ ;BR IF NOT FTN CC

                          1F         004A       

                          05     12  004B 15400 	BNEQ	40$			;BR IF NOT NULL (COND CODE SET ON MOVZWL)

            53            20     90  004D 15500 	MOVB	#^A\ \,R3		;SET BLANK CC - LENGTH ALREADY ZERO

                          11     11  0050 15600 	BRB	80$			;BR TO SET CARRIAGE CONTROL

                          50     D7  0052 15700 40$:	DECL	R0			;ADJUST COUNT FOR CARRAIGE CONTROL BYTE

            53            81     90  0054 15800 	MOVB	(R1)+,R3		;GET CARRIAGE CONTROL BYTE

            53            31     91  0057 15900 	CMPB	#^A\1\,R3		;WILL THIS BE A FORM FEED

                          07     12  005A 16000 	BNEQ	80$			;BR IF NO

                                     005C 16100 	SETBIT	SD_V_FFREQ,SD_B_GEN_FLAGS(R11) ;SET FORM FEED REQUIRED FLAG

            53            20     90  0060 16200 	MOVB	#^A\ \,R3		;FORM FEED HANDLED BY FFREQ FLAG

                                     0063 16300 80$:

       00EC CB            53     90  0063 16400 	MOVB	R3,SD_G_QIOBLK+QIO$_P4(R11) ;SET UP CARRIAGE CONTROL

                          36     11  0068 16500 	BRB	110$

                                     006A 16600 

                                     006A 16700 ;

                                     006A 16800 ; CHECK FOR PRINT FILE CARRIAGE CONTROL

                                     006A 16900 ;

                                     006A 17000 

       0116 CB            02     E1  006A 17100 90$:	BBC	#FAB$V_PRN,SD_G_FAB+FAB$B_RAT(R11),95$ ; BR IF NOT PRINT FILE

                          1A         006F       

         8C 8F       01C4 CB     91  0070 17200 	CMPB	SD_T_SQBUF(R11),#FF!128	;IS PREFIX A FORM FEED?

                          08     12  0076 17300 	BNEQ	93$			;BR IF NOT

                                     0078 17400 	SETBIT	SD_V_FFREQ,SD_B_GEN_FLAGS(R11) ;SET FORM FEED REQUIRED FLAG

                     01C4 CB     94  007C 17500 	CLRB	SD_T_SQBUF(R11)		;FORM FEED HANDLED BY FFREQ FLAG

                          10     78  0080 17600 93$:	ASHL	#16,SD_T_SQBUF(R11),-	;SET CARRIAGE CONTROL

       00EC CB       01C4 CB         0082 17700 		SD_G_QIOBLK+QIO$_P4(R11)

                          50     D5  0088 17800 	TSTL	R0			;SET Z BIT FOR BYTE COUNT

                                     008A 17900 

                                     008A 18000 ;

                                     008A 18100 ; CHECK FOR INTERNAL CARRIAGE CONTROL

                                     008A 18200 ;

                                     008A 18300 

         03 AB            02     E0  008A 18400 95$:	BBS	#SD_V_INTRNLCC,SD_B_GEN_FLAGS(R11),120$ ;BR IF INTERNAL CARRIAGE CONTROL

SMBGET          - GET RECORD FROM FILE AND PRINT IT              21-AUG-1978 21:32:28   VAX-11 MACRO X0.3-11               Page   5

01              GET AND QUEUE LINE                                                                                               (1)



                          40         008E       

                                     008F 18500 

                                     008F 18600 ;

                                     008F 18700 ; CHECK FOR FORM FEED IN IMPLIED CARRIAGE CONTROL

                                     008F 18800 ;

                                     008F 18900 

                                     008F 19000 100$:

                          0F     13  008F 19100 	BEQL	110$			;BR IF NULL (COND CODE SET ON MOVZWL)

            61            0C     91  0091 19200 	CMPB	#FF,(R1)		;IS IT A FF

                          0A     12  0094 19300 	BNEQ	110$			;BR IF NO

                                     0096 19400 	SETBIT	SD_V_FFREQ,SD_B_GEN_FLAGS(R11) ;SET FORM FEED REQUIRED FLAG

                          50     D7  009A 19500 	DECL	R0			;SUBTRACT 1 FOR FORM_FEED

                          8B     13  009C 19600 	BEQL	20$			;IF NUL LINE - GET ANOTHER

                          51     D6  009E 19700 	INCL	R1			;ADJUST PAST CARRAIGE CONTROL FIELD

                                     00A0 19800 110$:					;

       0116 CB            02     E0  00A0 19900 	BBS	#FAB$V_PRN,SD_G_FAB+FAB$B_RAT(R11),120$ ;BR IF PRINT FILE

                          29         00A5       

                                     00A6 20000 ;

                                     00A6 20100 ; CHECK FOR SEQUENCE NUMBERS

                                     00A6 20200 ;

                                     00A6 20300 

       0117 CB            03     91  00A6 20400 	CMPB	#FAB$C_VFC,SD_G_FAB+FAB$B_RFM(R11) ;IS IT SEQUENCED

                          22     12  00AB 20500 	BNEQ	120$			;BR IF NO

            51            06     C2  00AD 20600 	SUBL	#6,R1			;MOVE ADDR BACK TO SEQ BUF

            50            06     C0  00B0 20700 	ADDL	#6,R0			;ADD 6 FOR SEQ NO AND TAB

                          03     BB  00B3 20800 	PUSHR	#^M<R0,R1>		;SAVE REGS - MAKES STRING DESC FOR FAO

            53            5E     D0  00B5 20900 	MOVL	SP,R3			;GET ADDR OF STRING DESC

                                     00B8 21000 	$FAO_S	SEQNODESC,,(R3),-	;CONVERT SEQ NO TO ASCII

                                     00B8 21100 		SD_T_SQBUF(R11)

                          03     BA  00CB 21200 	POPR	#^M<R0,R1>		;RESTORE REGS

                          00     11  00CD 21300 	BRB	120$			;PRINT THE LINE

                                     00CF 21400  

                                     00CF 21500 

                                     00CF 21600 ;

                                     00CF 21700 ; PRINT THE LINE

                                     00CF 21800 ;

                                     00CF 21900 

                                     00CF 22000 120$:

       008B CB            03     E1  00CF 22100 	BBC	#PQR$V_DOUBLE,SD_T_MSGDATA+SIM$B_FLAGS(R11),125$ ;BR IF NO DBL SPACE

                          05         00D4       

       00EC CB            30     90  00D5 22200 	MOVB	#^A\0\,SD_G_QIOBLK+QIO$_P4(R11) ;SET DOUBLE SPACE

                          FF23'  30  00DA 22300 125$:	BSBW	SMB$WRITELINE		;PRINT THE LINE

                          34     11  00DD 22400 	BRB	150$			;RETURN

                                     00DF 22500 

                                     00DF 22600 ;

                                     00DF 22700 ; GET ERROR - CHECK IT

                                     00DF 22800 ;

                                     00DF 22900 

                                     00DF 23000 130$:

            50   00000000'8F     D1  00DF 23100 	CMPL	#RMS$_RTB,R0		;WAS THE RECORD TOO BIG

                          03     12  00E6 23200 	BNEQ	140$			;BR IF NO

                          FF52   31  00E8 23300 	BRW	30$			;BR IF YES - PRINT TRUNCATED

                                     00EB 23400 140$:

         04 AB            05     90  00EB 23500 	MOVB	#STATE$_EOF_CLOS,SD_B_STATE(R11) ;SET EOF

            50   00000000'8F     D1  00EF 23600 	CMPL	#RMS$_EOF,R0		;WAS IT EOF

                          1B     13  00F6 23700 	BEQL	150$			;BR IF YES

                                     00F8 23800 	SETBIT	SD_V_GETERR,SD_B_ERR_FLAGS(R11) ;SET GET ERROR

SMBGET          - GET RECORD FROM FILE AND PRINT IT              21-AUG-1978 21:32:28   VAX-11 MACRO X0.3-11               Page   6

01              GET AND QUEUE LINE                                                                                               (1)



                     0154 CB     DD  00FC 23900 	PUSHL	SD_G_RAB+RAB$L_STV(R11)	;RMS STATUS VALUE

                          50     DD  0100 24000 	PUSHL	R0			;RMS STATUS CODE

                     0302 CB     DF  0102 24100 	PUSHAL	SD_Q_FILENAME(R11)	;ADDR OF FILENAME DESC

                          01     DD  0106 24200 	PUSHL	#1			;1 FAO ARG

                 000410B4 8F     DD  0108 24300 	PUSHL	#<4@16>!SHR$_READERR!4	;CONDITION CODE

       0000'CF            05     FB  010E 24400 	CALLS	#5,W^LIB$SIGNAL		;SIGNAL THE ERROR

                                     0113 24500 150$:

                          08     BA  0113 24600 	POPR	#^M<R3>			;RESTORE REGS

                                 05  0115 24700 	RSB				;RETURN

                                     0116 24800 

                                     0116 24900 	.DSABL	LSB

                                     0116 25000 

                                     0116 25100 	.END

SMBGET          - GET RECORD FROM FILE AND PRINT IT              21-AUG-1978 21:32:28   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



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

$$.TMP2        = 00000063            FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            

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

$$T1           = 00000034            FAB$M_JNL      = 00400000            FAB$V_NAM      = 00000018            

$$T2           = 00000004            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            FF             = 0000000C            

FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            GBL...         = 00000000            

FAB$L_STS        00000008            FAB$V_BLK      = 00000003            LF             = 0000000A            

FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            LIB$SIGNAL       ********   X   03   

FAB$L_XAB        00000024            FAB$V_CBT      = 00000015            MOD$_ABORT     = 00000004            

FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            MOD$_INPERR    = 0000000C            

FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001            MOD$_PRTERR    = 00000014            

FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014            MOD$_SUCCESS   = 00000001            

FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            MSG$_ABOOPR    = 00000011            

FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            MSG$_ABORT     = 00000030            

FAB$M_CR       = 00000002            FAB$V_DLT      = 0000000F            MSG$_ACCRSP    = 00000021            

FAB$M_CTG      = 00100000            FAB$V_DMO      = 0000000C            MSG$_CONFIRM   = 00000031            

FAB$M_DEL      = 00000004            FAB$V_ESC      = 0000001B            MSG$_CONNECT   = 00000032            

FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            MSG$_CRUNSOLIC = 00000002            

FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            MSG$_DELPROC   = 00000003            

FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001            MSG$_DELSMB    = 00000014            

FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            MSG$_DEVOFFLIN = 00000005            

FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            MSG$_DEVONLIN  = 00000007            

SMBGET          - GET RECORD FROM FILE AND PRINT IT              21-AUG-1978 21:32:28   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



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            

MSG$_SCANBAD   = 00000028            NAM$M_WILD_SFD1= 02000000            PQR$V_FLAGPAG  = 00000001            

MSG$_SCANRSP   = 00000029            NAM$M_WILD_SFD2= 04000000            PQR$V_NOFEED   = 00000004            

MSG$_SMBDON    = 00000009            NAM$M_WILD_SFD3= 08000000            PQR$V_PAGHDR   = 00000005            

MSG$_SMBINI    = 00000008            NAM$M_WILD_SFD4= 10000000            QIO$_ASTADR    = 00000014            

MSG$_SMBRSP    = 00000020            NAM$M_WILD_SFD5= 20000000            QIO$_ASTPRM    = 00000018            

MSG$_SNDACC    = 0000000A            NAM$M_WILD_SFD6= 40000000            QIO$_CHAN      = 00000008            

MSG$_SNDSMB    = 00000004            NAM$M_WILD_SFD7= 80000000            QIO$_EFN       = 00000004            

MSG$_SUSOPR    = 00000012            NAM$M_WILD_TYPE= 00000010            QIO$_FUNC      = 0000000C            

MSG$_THIRDPARTY= 00000039            NAM$M_WILD_UFD = 01000000            QIO$_IOSB      = 00000010            

MSG$_TIMEOUT   = 0000003A            NAM$M_WILD_VER = 00000008            QIO$_NARGS     = 0000000C            

MSG$_TRMHANGUP = 00000006            NAM$S_DIR_LVLS = 00000003            QIO$_P1        = 0000001C            

MSG$_TRMUNSOLIC= 00000001            NAM$T_DVI        00000014            QIO$_P2        = 00000020            

MSG$_XM_ATTN   = 0000000D            NAM$V_DIR_LVLS = 00000015            QIO$_P3        = 00000024            

MSG$_XM_DATAVL = 0000000B            NAM$V_EXP_DEV  = 00000007            QIO$_P4        = 00000028            

MSG$_XM_SHUTDN = 0000000C            NAM$V_EXP_DIR  = 00000006            QIO$_P5        = 0000002C            

NAM$B_BID        00000000            NAM$V_EXP_NAME = 00000002            QIO$_P6        = 00000030            

NAM$B_BLN        00000001            NAM$V_EXP_TYPE = 00000001            RAB$B_BID        00000000            

NAM$B_CURLVL     00000038            NAM$V_EXP_VER  = 00000000            RAB$B_BLN        00000001            

NAM$B_ESL        0000000B            NAM$V_GRP_MBR  = 00000013            RAB$B_KRF        00000035            

NAM$B_ESS        0000000A            NAM$V_HIGHVER  = 0000000F            RAB$B_KSZ        00000034            

NAM$B_RSL        00000003            NAM$V_LOWVER   = 0000000E            RAB$B_MBC        00000037            

NAM$B_RSS        00000002            NAM$V_NODE     = 00000011            RAB$B_MBF        00000036            

NAM$C_BID      = 00000002            NAM$V_PPF      = 00000010            RAB$B_PSZ        00000034            

NAM$C_BLN        00000038            NAM$V_QUOTED   = 00000012            RAB$B_RAC        0000001E            

NAM$C_BLN_DIRWC  00000050            NAM$V_WILDCARD = 00000008            RAB$B_ROP1       00000005            

NAM$C_DVI      = 00000010            NAM$V_WILD_DIR = 00000014            RAB$B_ROP2       00000006            

NAM$C_MAXRSS   = 00000080            NAM$V_WILD_GRP = 00000018            RAB$B_ROP3       00000007            

NAM$C_MAXRSSLCL= 00000060            NAM$V_WILD_MBR = 00000019            RAB$B_TMO        0000001F            

NAM$K_BLN        00000038            NAM$V_WILD_NAME= 00000005            RAB$C_BID      = 00000001            

NAM$K_BLN_DIRWC  00000050            NAM$V_WILD_SFD1= 00000019            RAB$C_BLN        00000044            

NAM$L_DIRWCC1    00000040            NAM$V_WILD_SFD2= 0000001A            RAB$C_KEY      = 00000001            

NAM$L_DIRWCC2    00000044            NAM$V_WILD_SFD3= 0000001B            RAB$C_RFA      = 00000002            

NAM$L_DIRWCC3    00000048            NAM$V_WILD_SFD4= 0000001C            RAB$C_SEQ      = 00000000            

NAM$L_DIRWCC4    0000004C            NAM$V_WILD_SFD5= 0000001D            RAB$K_BLN        00000044            

NAM$L_DWC        00000038            NAM$V_WILD_SFD6= 0000001E            RAB$L_BKT        00000038            

NAM$L_ESA        0000000C            NAM$V_WILD_SFD7= 0000001F            RAB$L_CTX        00000018            

NAM$L_FNB        00000034            NAM$V_WILD_TYPE= 00000004            RAB$L_DCT        00000038            

NAM$L_RLF        00000010            NAM$V_WILD_UFD = 00000018            RAB$L_FAB        0000003C            

NAM$L_RSA        00000004            NAM$V_WILD_VER = 00000003            RAB$L_KBF        00000030            

NAM$L_WCC        00000030            NAM$W_DID        0000002A            RAB$L_PBF        00000030            

NAM$M_DIR_LVLS = 00E00000            NAM$W_DID_NUM    0000002A            RAB$L_RBF        00000028            

NAM$M_EXP_DEV  = 00000080            NAM$W_DID_RVN    0000002E            RAB$L_RFA0       00000010            

NAM$M_EXP_DIR  = 00000040            NAM$W_DID_SEQ    0000002C            RAB$L_RHB        0000002C            

NAM$M_EXP_NAME = 00000004            NAM$W_FID        00000024            RAB$L_ROP        00000004            

NAM$M_EXP_TYPE = 00000002            NAM$W_FID_NUM    00000024            RAB$L_STS        00000008            

NAM$M_EXP_VER  = 00000001            NAM$W_FID_RVN    00000028            RAB$L_STV        0000000C            

NAM$M_GRP_MBR  = 00080000            NAM$W_FID_SEQ    00000026            RAB$L_UBF        00000024            

SMBGET          - GET RECORD FROM FILE AND PRINT IT              21-AUG-1978 21:32:28   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



RAB$M_ASY      = 00000001            RAB$V_WAT      = 00000011            SD_W_TBUFCNT     00000027            

RAB$M_BIO      = 00000800            RAB$V_WBH      = 0000000A            SD_W_TBUFSIZ     00000029            

RAB$M_CCO      = 80000000            RAB$W_ISI        00000002            SEQNODESC        00000000 R     03   

RAB$M_CVT      = 04000000            RAB$W_RFA        00000010            SHR$_ABEND     = 000010D8            

RAB$M_EOF      = 00000100            RAB$W_RFA4       00000014            SHR$_ABENDD    = 000010E0            

RAB$M_FDL      = 00000040            RAB$W_RSZ        00000022            SHR$_ABENDT    = 000010E8            

RAB$M_HSH      = 00000080            RAB$W_USZ        00000020            SHR$_APPENDEDB = 00001000            

RAB$M_KGE      = 00200000            RMS$_EOF         ********   X   03   SHR$_APPENDEDR = 00001008            

RAB$M_KGT      = 00400000            RMS$_RTB         ********   X   03   SHR$_ATPC      = 00001158            

RAB$M_LIM      = 00004000            SD_A_TBUFADR     0000002B            SHR$_BADBYTE   = 00001010            

RAB$M_LOA      = 00002000            SD_B_ERR_FLAGS   00000002            SHR$_BADCOPIES = 00001160            

RAB$M_LOC      = 00010000            SD_B_GEN_FLAGS   00000003            SHR$_BADDELIM  = 00001118            

RAB$M_MAS      = 00000020            SD_B_LTPCNT      00000043            SHR$_BADFIELD  = 00001018            

RAB$M_NLK      = 00100000            SD_B_MAXLTP      00000044            SHR$_BADFORM   = 00001168            

RAB$M_NXR      = 00800000            SD_B_PAGELEN     00000049            SHR$_BADJOBID  = 00001170            

RAB$M_PMT      = 40000000            SD_B_PAGEWIDTH   0000004A            SHR$_BADJOBNAME= 00001178            

RAB$M_PPF_IND  = 00004000            SD_B_STATE       00000004            SHR$_BADKEY    = 00001108            

RAB$M_PPF_RAT  = 00003FC0            SD_G_FAB         000000F8            SHR$_BADLOGIC  = 00001120            

RAB$M_PTA      = 20000000            SD_G_MSGTOMGR    000001CA            SHR$_BADLOGICPC= 00001150            

RAB$M_RAH      = 00000200            SD_G_NAM         0000018C            SHR$_BADLONG   = 00001020            

RAB$M_RLK      = 00080000            SD_G_QIOBLK      000000C4            SHR$_BADPRTY   = 00001180            

RAB$M_RNE      = 01000000            SD_G_RAB         00000148            SHR$_BADQNAME  = 00001188            

RAB$M_RNF      = 08000000            SD_K_SIZE        0000030A            SHR$_BADTIME   = 00001190            

RAB$M_TMO      = 02000000            SD_L_GETCNT      0000003B            SHR$_BADVALUE  = 00001110            

RAB$M_TPT      = 00000002            SD_L_LINECNT     00000045            SHR$_BADWORD   = 00001028            

RAB$M_UIF      = 00000010            SD_L_QIOCNT      0000003F            SHR$_BEGIN     = 00001030            

RAB$M_ULK      = 00040000            SD_M_ABORT     = 00000001            SHR$_BEGIND    = 00001038            

RAB$M_WAT      = 00020000            SD_M_GETERR    = 00000002            SHR$_BEGINT    = 00001040            

RAB$M_WBH      = 00000400            SD_M_OPENERR   = 00000004            SHR$_CLICB     = 00001048            

RAB$S_PPF_RAT  = 00000008            SD_M_PRINTERR  = 00000008            SHR$_CLOSEDEL  = 00001218            

RAB$V_ASY      = 00000000            SD_Q_FILENAME    00000302            SHR$_CLOSEIN   = 00001050            

RAB$V_BIO      = 0000000B            SD_Q_IOSB0       00000017            SHR$_CLOSEOUT  = 00001058            

RAB$V_CCO      = 0000001F            SD_Q_IOSB1       0000001F            SHR$_CONFDEL   = 000011F8            

RAB$V_CVT      = 0000001A            SD_Q_MIOSB       00000005            SHR$_COPIEDB   = 00001060            

RAB$V_EOF      = 00000008            SD_Q_PTIME       0000002F            SHR$_COPIEDR   = 00001068            

RAB$V_FDL      = 00000006            SD_Q_TBUFDES     00000027            SHR$_CREATED   = 00001070            

RAB$V_HSH      = 00000007            SD_Q_TOFIOSB     0000000F            SHR$_DELETED   = 00001200            

RAB$V_KGE      = 00000015            SD_Q_TOP_FORMS   0000004B            SHR$_DELINTERR = 00001240            

RAB$V_KGT      = 00000016            SD_T_HDBUF       000002CA            SHR$_DELVER    = 00001208            

RAB$V_LIM      = 0000000E            SD_T_LBUF        000001CA            SHR$_DIRTOOBUS = 00001220            

RAB$V_LOA      = 0000000D            SD_T_MSGDATA     00000053            SHR$_ENDED     = 00001078            

RAB$V_LOC      = 00000010            SD_T_SQBUF       000001C4            SHR$_ENDEDD    = 00001080            

RAB$V_MAS      = 00000005            SD_T_TBUF        000001CA            SHR$_ENDEDT    = 00001088            

RAB$V_NLK      = 00000014            SD_V_ABORT     = 00000000            SHR$_FILNOTDEL = 000011F0            

RAB$V_NXR      = 00000017            SD_V_FFREQ     = 00000003            SHR$_FILNOTPUR = 00001230            

RAB$V_PMT      = 0000001E            SD_V_FLGPAGDONE= 00000000            SHR$_FILPURGED = 00001250            

RAB$V_PPF_IND  = 0000000E            SD_V_GETERR    = 00000001            SHR$_HASHCONCAT= 000011D8            

RAB$V_PPF_RAT  = 00000006            SD_V_GOOD_WAKE = 00000001            SHR$_HIGHVER   = 00001148            

RAB$V_PTA      = 0000001D            SD_V_INTRNLCC  = 00000002            SHR$_IDXCONCAT = 00001138            

RAB$V_RAH      = 00000009            SD_V_OPENERR   = 00000002            SHR$_INCOMPAT  = 000011E0            

RAB$V_RLK      = 00000013            SD_V_PRINTERR  = 00000003            SHR$_NEWFILES  = 00001090            

RAB$V_RNE      = 00000018            SD_W_HEAD_L      000002FE            SHR$_NOFILPURG = 00001228            

RAB$V_RNF      = 0000001B            SD_W_JBCCHAN     00000037            SHR$_NOJOBID   = 000011A0            

RAB$V_TMO      = 00000019            SD_W_MBCHAN      00000000            SHR$_NOJOBNAME = 000011A8            

RAB$V_TPT      = 00000001            SD_W_MBREADLEN   0000000D            SHR$_NOQUEUE   = 00001198            

RAB$V_UIF      = 00000004            SD_W_MBUNIT      00000039            SHR$_NOTCMPLT  = 000011C0            

RAB$V_ULK      = 00000012            SD_W_PAGE        00000300            SHR$_NOTCOPIED = 000011B8            

SMBGET          - GET RECORD FROM FILE AND PRINT IT              21-AUG-1978 21:32:28   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



SHR$_NOVALUE   = 00001100            SYS$GET          ********  GX   03   

SHR$_NOWILD    = 00001128            _$$_           = 000000EF            

SHR$_OPENIN    = 00001098            

SHR$_OPENOUT   = 000010A0            

SHR$_OVERLAY   = 000010A8            

SHR$_PARSEFAIL = 00001248            

SHR$_PURGEVER  = 00001210            

SHR$_READERR   = 000010B0            

SHR$_RELCONCAT = 00001140            

SHR$_REPLACED  = 000010B8            

SHR$_RMSERROR  = 000011C8            

SHR$_SEARCHFAIL= 00001238            

SHR$_SYNTAX    = 000010F8            

SHR$_SYSERROR  = 000011B0            

SHR$_SYSERRORPC= 000010F0            

SHR$_TEXT      = 00001130            

SHR$_UNXPCTSTS = 000011D0            

SHR$_VALERR    = 000011E8            

SHR$_WILDCONCAT= 000010C0            

SHR$_WILDOUTVER= 000010C8            

SHR$_WRITEERR  = 000010D0            

SIM$B_FILCOPY    00000039            

SIM$B_FLAGS      00000038            

SIM$G_DIRID      00000032            

SIM$G_FILEID     0000002C            

SIM$K_SIZE       00000070            

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$GET          0000000E RG    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$WRITELINE    ********   X   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$FAO          ********   X   03   

SMBGET          - GET RECORD FROM FILE AND PRINT IT              21-AUG-1978 21:32:28   VAX-11 MACRO X0.3-11               Page  11

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_PURE         00000116      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT LONG  





THERE WERE NO ERRORS OR WARNINGS.

9664. BYTES LEFT IN FREE MEMORY POOL.

1042. BYTES OF RECLAIMED MEMORY.

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

13 MLB DIR RDS - 701 GETS TO DEFINE 21 MACROS. 66 INTER. FILE WRITES. 

