RMS0TRUNC       TRUNCATE SEQUENTIAL FILE                         21-AUG-1978 22:13:05   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      41  DECLARATIONS

   (1)      66  $TRUNCATE ROUTINE

RMS0TRUNC       TRUNCATE SEQUENTIAL FILE                         21-AUG-1978 22:13:05   VAX-11 MACRO X0.3-11               Page   1

002                                                                                                                              (1)



                                     0000     1 	$BEGIN	RMS0TRUNC,002,L$RMS1TRUNC,<TRUNCATE SEQUENTIAL FILE>

                                     0000     2 

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     7 ;

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

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

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

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

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

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

                                     0000    14 ; REMAIN IN DEC.

                                     0000    15 ;

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

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

                                     0000    18 ; CORPORATION.

                                     0000    19 ;

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

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

                                     0000    22 ;

                                     0000    23 ;++

                                     0000    24 ; FACILITY: RMS32

                                     0000    25 ;

                                     0000    26 ; ABSTRACT:

                                     0000    27 ;	THIS MODULE PROVIDES THE $TRUNCATE RMS SERVICE FOR MAGTAPE AND

                                     0000    28 ;	SEQUENTIAL DISK FILES.

                                     0000    29 ;

                                     0000    30 ; ENVIRONMENT:

                                     0000    31 ;		STAR PROCESSOR RUNNING STARLET EXEC.

                                     0000    32 ;

                                     0000    33 ; AUTHOR: L F LAVERDURE,	 CREATION DATE: 9-JAN-77

                                     0000    34 ;

                                     0000    35 ; MODIFIED BY:

                                     0000    36 ;

                                     0000    37 ;	L F LAVERDURE,   8-MAY-78  14:09

                                     0000    38 ; 01	- 

                                     0000    39 ;--

RMS0TRUNC       TRUNCATE SEQUENTIAL FILE                         21-AUG-1978 22:13:05   VAX-11 MACRO X0.3-11               Page   2

002             DECLARATIONS                                                                                                     (1)



                                     0000    41 	.SBTTL	DECLARATIONS

                                     0000    42 ;

                                     0000    43 ; INCLUDE FILES:

                                     0000    44 ;

                                     0000    45 

                                     0000    46 ;

                                     0000    47 ; MACROS:

                                     0000    48 ;

                                     0000    49 	$RABDEF

                                     0000    50 	$DEVDEF

                                     0000    51 	$IFBDEF

                                     0000    52 	$IRBDEF

                                     0000    53 	$BDBDEF

                                     0000    54 	$RMSDEF

                                     0000    55 	.LIST MEB

                                     0000    56 

                                     0000    57 ;

                                     0000    58 ; EQUATED SYMBOLS:

                                     0000    59 ;

                                     0000    60 

                                     0000    61 ;

                                     0000    62 ; OWN STORAGE:

                                     0000    63 ;

                                     0000    64 

RMS0TRUNC       TRUNCATE SEQUENTIAL FILE                         21-AUG-1978 22:13:05   VAX-11 MACRO X0.3-11               Page   3

002             $TRUNCATE ROUTINE                                                                                                (1)



                                     0000    66 	.SBTTL	$TRUNCATE ROUTINE

                                     0000    67 ;++

                                     0000    68 ; FUNCTIONAL DESCRIPTION:

                                     0000    69 ;

                                     0000    70 ;	THIS ROUTINE TRUNCATES A MAGTAPE OR DISK FILE OF SEQUENTIAL ORGANIZATION,

                                     0000    71 ;	DECLARING EOF AT THE CURRENT RECORD POINTER.  TRUNCATE MUST IMMEDIATELY

                                     0000    72 ;	FOLLOW A SUCCESSFUL $GET, $FIND, OR $UPDATE.

                                     0000    73 ;	THE FILE MUST NOT BE ACCESSED FOR BLOCK I/O.

                                     0000    74 ;

                                     0000    75 ; CALLING SEQUENCE:

                                     0000    76 ;

                                     0000    77 ;	ENTERED AS A RESULT OF USER'S CALLING SYS$TRUNCATE

                                     0000    78 ;

                                     0000    79 ; INPUT PARAMETERS:

                                     0000    80 ;

                                     0000    81 ;	AP	USER'S ARGUMENT LIST

                                     0000    82 ;

                                     0000    83 ; IMPLICIT INPUTS:

                                     0000    84 ;

                                     0000    85 ;	THE CONTENTS OF THE RAB

                                     0000    86 ;

                                     0000    87 ; OUTPUT PARAMETERS:

                                     0000    88 ;

                                     0000    89 ;	R0	STATUS CODE

                                     0000    90 ;	R1	DESTROYED

                                     0000    91 ;

                                     0000    92 ; IMPLICIT OUTPUTS:

                                     0000    93 ;

                                     0000    94 ;	THE STS FIELD OF THE RAB

                                     0000    95 ;

                                     0000    96 ; COMPLETION CODES:

                                     0000    97 ;

                                     0000    98 ;	STANDARD RMS

                                     0000    99 ;

                                     0000   100 ; SIDE EFFECTS:

                                     0000   101 ;

                                     0000   102 ;	THERE IS NO CURRENT RECORD FOLLOWING A TRUNCATE

                                     0000   103 ;

                                     0000   104 ;--

RMS0TRUNC       TRUNCATE SEQUENTIAL FILE                         21-AUG-1978 22:13:05   VAX-11 MACRO X0.3-11               Page   4

002             $TRUNCATE ROUTINE                                                                                                (1)



                                     0000   106 ;++

                                     0000   107 ;

                                     0000   108 ; ENTRY POINT FOR $TRUNCATE

                                     0000   109 ;

                                     0000   110 ; VERIFY OPERATION ALLOWED (ACCESSED FOR RECORD I/O TO A MAGTAPE OR DISK,

                                     0000   111 ;	HAVING A CURRENT RECORD)

                                     0000   112 ; AND SET EOF TO THE RECORD POINTER, BACKSPACING 1 BLOCK IF MAGTAPE

                                     0000   113 ;

                                     0000   114 ;--

                                     0000   115 	$ENTRY	RMS$TRUNCATE

                                 00000000       	.PSECT	L$RMS1TRUNC,GBL,NOWRT

                                     0000   116 	$TSTPT	TRUNCATE

                 00000200'9F     D6  0000       		INCL	@#PIO$GL_FMLH+512+TPT$L_TRUNCATE

                                     0006   117 	$RABSET	FAC=IFB$V_TRN,BIO=0,CFLG=1	; SET UP STREAM

                          FFF7'  30  0006       		BSBW	RM$RSET

                                 14  0009       		.BYTE	<0 @ 5>!<1 @ 4>!<0 @ 3>!IFB$V_TRN

                                     000A   118 						; (MUST BE TRUNCATE ACCESSED,

                                     000A   119 						; NOT DOING BLOCK I/O,

                                     000A   120 						; CLEAR FIND LAST)

                                     000A   121 	ASSUME	IFB$C_SEQ EQ 0

                       23 AA     95  000A   122 	TSTB	IFB$B_ORGCASE(R10)		; SEQ. FILE ORG.?

                          54     12  000D   123 	BNEQ	ERRIOP				; BRANCH IF NOT

                                     000F   124 	ASSUME	DEV$V_REC EQ 0

            51            6A     E8  000F   125 	BLBS	IFB$L_PRIM_DEV(R10),ERRIOP	; BRANCH IF UNIT RECORD DEV.

                       42 A9     B5  0012   126 	TSTW	IRB$W_CSIZ(R9)			; DO WE HAVE A CURRENT RECORD?

                          4F     13  0015   127 	BEQL	ERRCUR				; BRANCH IF NOT

                                     0017   128 ;

                                     0017   129 ;  VALIDITY CHECKS ALL O.K.

                                     0017   130 ;

                                     0017   131 ;  IF THIS IS A MAGTAPE, BACKSPACE TO REWRITE THE BLOCK JUST READ.

                                     0017   132 ;

            6A            05     E1  0017   133 	BBC	#DEV$V_SQD,IFB$L_PRIM_DEV(R10),20$	; BRANCH IF NOT MAGTAPE

                          09         001A       

            56            01     CE  001B   134 	MNEGL	#1,R6					; BACKSPACE 1 BLOCK

                          FFDF'  30  001E   135 	BSBW	RM$SPACE_MT				; GO SPACE IT

            39            50     E9  0021   136 	BLBC	R0,ERRXIT				; GET OUT ON ERROR

                                     0024   137 ;

                                     0024   138 ;  SET NRP AND EOF FROM RP

                                     0024   139 ;

         2C A9         34 A9     7D  0024   140 20$:	MOVQ	IRB$L_RP(R9),IRB$L_NRP(R9)	; SET NRP

                                     0029   141 	ASSUME	IRB$W_RP_OFF EQ IRB$L_RP+4

                                     0029   142 	ASSUME	IFB$W_FFB EQ IFB$L_EBK+4

         34 A9            06     28  0029   143 	MOVC3	#6,IRB$L_RP(R9),IFB$L_EBK(R10)	; AND EOF

                       44 AA         002D       

RMS0TRUNC       TRUNCATE SEQUENTIAL FILE                         21-AUG-1978 22:13:05   VAX-11 MACRO X0.3-11               Page   5

002             $TRUNCATE ROUTINE                                                                                                (1)



                                     002F   145 ;

                                     002F   146 ;  CLEAN UP CURRENT BDB.

                                     002F   147 ;

                                     002F   148 ;  IF THE NEW EOF VBN IS IN THE BUFFER, POINT TO IT AND SAY IT'S DIRTY,

                                     002F   149 ;  THUS CAUSING IT TO GET REWRITTEN WITH APPROPRIATE PADDING,

                                     002F   150 ;  ELSE JUST RELEASE THE BUFFER.

                                     002F   151 ;

            54         20 A9     D0  002F   152 	MOVL	IRB$L_CURBDB(R9),R4		; IS THERE A CURRENT BDB?

                          21     13  0033   153 	BEQL	SUCXIT				; BRANCH IF NOT

         34 A9         18 A4     C3  0035   154 	SUBL3	BDB$L_VBN(R4),IRB$L_RP_VBN(R9),R1 ; GET RELATIVE VBN

                          51         003A       

            51            51     F6  003B   155 	CVTLB	R1,R1				; MAKE BYTE VALUE

                          10     1D  003E   156 	BVS	40$				; BRANCH IF NOT IN RANGE

         20 A4            51     91  0040   157 	CMPB	R1,BDB$B_REL_VBN(R4)		; IS IT IN BUFFER?

                          0A     1A  0044   158 	BGTRU	40$				; BRANCH IF NOT

         20 A4            51     90  0046   159 	MOVB	R1,BDB$B_REL_VBN(R4)		; POINT TO THIS BLOCK

         0A A4            02     88  004A   160 	BISB2	#BDB$M_DRT,BDB$B_FLGS(R4)	; SAY DIRTY

                          06     11  004E   161 	BRB	SUCXIT

                                     0050   162 ;

                                     0050   163 ;  RELEASE UNNEEDED BDB

                                     0050   164 ;

                          FFAD'  30  0050   165 40$:	BSBW	RM$RLNERR

                       20 A9     D4  0053   166 	CLRL	IRB$L_CURBDB(R9)		; SAY NO CURRENT BDB

                                     0056   167 ;

                                     0056   168 ;  SUCCESSFUL EXIT (FALL THRU TO ERROR EXIT)

                                     0056   169 ;

                                     0056   170 SUCXIT:	SSB	#IRB$V_EOF,(R9)			; SAY AT EOF

            69            21     E2  0056       		BBSS	#IRB$V_EOF,(R9),30000$

                          00         0059       

                                     005A       30000$:

                                     005A   171 	RMSSUC

            50            01     D0  005A       		MOVL	#1,R0

                                     005D   172 ;

                                     005D   173 ; ERROR EXIT  -  SAY NO CURRENT RECORD

                                     005D   174 ;

                       42 A9     B4  005D   175 ERRXIT:	CLRW	IRB$W_CSIZ(R9)

                          FF9D'  31  0060   176 	BRW	RM$EXRMS

RMS0TRUNC       TRUNCATE SEQUENTIAL FILE                         21-AUG-1978 22:13:05   VAX-11 MACRO X0.3-11               Page   6

002             $TRUNCATE ROUTINE                                                                                                (1)



                                     0063   178 ;++

                                     0063   179 ;

                                     0063   180 ;  HANDLE INVALID DEVICE OR ORGANIZATION ERROR.

                                     0063   181 ;

                                     0063   182 ;--

                                     0063   183 ERRIOP:	$PSECT_BR	L$RMS1

                          FF9A'  31  0063       		BRW	L$RMS10

                                     0066       		.SAVE

                                 00000000       		.PSECT	L$RMS1,GBL,NOWRT

                                     0000       L$RMS10:

                                     0000   184 	RMSERR	IOP

            50       8574 8F     3C  0000       		MOVZWL	#<RMS$_IOP&^XFFFF>,R0

                          FFF8'  31  0005   185 XIT:	BRW	RM$EXRMS			; GET OUT

                                     0008   186 	$PSECT_RESTORE

                                 00000066       		.RESTORE

                                     0066   187 

                                     0066   188 ;++

                                     0066   189 ;

                                     0066   190 ;  HANDLE NO CURRENT RECORD ERROR.

                                     0066   191 ;

                                     0066   192 ;--

                                     0066   193 ERRCUR:	$PSECT_BR	L$RMS1

                          FF9F'  31  0066       		BRW	L$RMS11

                                     0069       		.SAVE

                                 00000008       		.PSECT	L$RMS1,GBL,NOWRT

                                     0008       L$RMS11:

                                     0008   194 	RMSERR	CUR

            50       84B4 8F     3C  0008       		MOVZWL	#<RMS$_CUR&^XFFFF>,R0

                          F6     11  000D   195 	BRB	XIT

                                     000F   196 	$PSECT_RESTORE

                                 00000069       		.RESTORE

                                     0069   197 

                                     0069   198 

                                     0069   199 	.END

RMS0TRUNC       TRUNCATE SEQUENTIAL FILE                         21-AUG-1978 22:13:05   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



$$.PSECT_EP    = 00000002            DEV$M_ODV      = 08000000            IFB$C_BID      = 0000000B            

$$RMSTEST      = 0000001A            DEV$M_RCK      = 40000000            IFB$C_BLN        00000060            

$$RMS_PBUGCHK  = 00000010            DEV$M_REC      = 00000001            IFB$C_BLN_IDX    00000060            

$$RMS_TBUGCHK  = 00000008            DEV$M_RND      = 10000000            IFB$C_BLN_REL    00000060            

$$RMS_UMODE    = 00000004            DEV$M_RTM      = 20000000            IFB$C_BLN_SEQ    0000005C            

BDB$B_BID        00000008            DEV$M_SDI      = 00000010            IFB$C_DIR      = 00000003            

BDB$B_BLN        00000009            DEV$M_SHR      = 00010000            IFB$C_FHAEND     00000050            

BDB$B_FLGS       0000000A            DEV$M_SPL      = 00000040            IFB$C_IDX      = 00000002            

BDB$B_POST_CCTL  00000023            DEV$M_SQD      = 00000020            IFB$C_MAXORG   = 00000002            

BDB$B_PRE_CCTL   00000022            DEV$M_SWL      = 02000000            IFB$C_REL      = 00000001            

BDB$B_REL_VBN    00000020            DEV$M_TRM      = 00000004            IFB$C_SEQ      = 00000000            

BDB$B_USECNT     0000000B            DEV$M_WCK      = 80000000            IFB$K_BLN        00000060            

BDB$B_VAL_VBNS   00000021            DEV$V_ALL      = 00000017            IFB$K_BLN_IDX    00000060            

BDB$C_BID      = 0000000C            DEV$V_AVL      = 00000012            IFB$K_BLN_REL    00000060            

BDB$C_BLN        00000028            DEV$V_CCL      = 00000001            IFB$K_BLN_SEQ    0000005C            

BDB$K_BLN        00000028            DEV$V_DIR      = 00000003            IFB$K_FHAEND     00000050            

BDB$L_ADDR       00000014            DEV$V_DMT      = 00000015            IFB$L_ARGLST     00000018            

BDB$L_BLINK      00000004            DEV$V_ELG      = 00000016            IFB$L_ASBADDR    00000014            

BDB$L_CURBUFADR  00000024            DEV$V_FOD      = 0000000E            IFB$L_AS_DEV     00000054            

BDB$L_FLINK      00000000            DEV$V_FOR      = 00000018            IFB$L_BDB_BLNK   00000034            

BDB$L_IOSB       00000020            DEV$V_GEN      = 00000011            IFB$L_BDB_FLNK   00000030            

BDB$L_OWN        0000000C            DEV$V_IDV      = 0000001A            IFB$L_BKPBITS    00000004            

BDB$L_VBN        00000018            DEV$V_MBX      = 00000014            IFB$L_BWB        0000000C            

BDB$L_WAIT       0000001C            DEV$V_MNT      = 00000013            IFB$L_DVBN       00000058            

BDB$L_WK1        00000020            DEV$V_NET      = 0000000D            IFB$L_EBK        00000044            

BDB$M_AST_DCL  = 00000040            DEV$V_ODV      = 0000001B            IFB$L_FRB_PTR    00000028            

BDB$M_DRT      = 00000002            DEV$V_RCK      = 0000001E            IFB$L_FWA_BDB    00000050            

BDB$M_IOP      = 00000004            DEV$V_REC      = 00000000            IFB$L_HBK        00000040            

BDB$M_LKDINWS  = 00000080            DEV$V_RND      = 0000001C            IFB$L_IDX_PTR    00000054            

BDB$M_NOLOCATE = 00000010            DEV$V_RTM      = 0000001D            IFB$L_IOS        0000000C            

BDB$M_PRM      = 00000008            DEV$V_SDI      = 00000004            IFB$L_IOS4       00000010            

BDB$M_VAL      = 00000001            DEV$V_SHR      = 00000010            IFB$L_IRAB_LNK   0000001C            

BDB$M_WFO      = 00000020            DEV$V_SPL      = 00000006            IFB$L_LAST_FAB   00000024            

BDB$V_AST_DCL  = 00000006            DEV$V_SQD      = 00000005            IFB$L_LOCK_BDB   00000050            

BDB$V_DRT      = 00000001            DEV$V_SWL      = 00000019            IFB$L_MRN        00000054            

BDB$V_IOP      = 00000002            DEV$V_TRM      = 00000002            IFB$L_NRP_LNK    00000050            

BDB$V_LKDINWS  = 00000007            DEV$V_WCK      = 0000001F            IFB$L_NWA_PTR    00000028            

BDB$V_NOLOCATE = 00000004            ERRCUR           00000066 R     02   IFB$L_PRIM_DEV   00000000            

BDB$V_PRM      = 00000003            ERRIOP           00000063 R     02   IFB$L_RLB_LNK    0000002C            

BDB$V_VAL      = 00000000            ERRXIT           0000005D R     02   IFB$L_RNS_LEN    00000050            

BDB$V_WFO      = 00000005            GBL...         = 00000000            IFB$M_BIO      = 00000020            

BDB$W_NUMB       00000010            IFB$B_AMAX       00000059            IFB$M_BRO      = 00000040            

BDB$W_SIZE       00000012            IFB$B_AVBN       00000058            IFB$M_DEL      = 00000004            

BIT...         = 0001C134            IFB$B_BID        00000008            IFB$M_EXE      = 00000080            

DEV$M_ALL      = 00800000            IFB$B_BKS        0000004A            IFB$M_GET      = 00000002            

DEV$M_AVL      = 00040000            IFB$B_BLN        00000009            IFB$M_PUT      = 00000001            

DEV$M_CCL      = 00000002            IFB$B_EFN        0000000B            IFB$M_TRN      = 00000010            

DEV$M_DIR      = 00000008            IFB$B_EXTRABUF   0000005D            IFB$M_UPD      = 00000008            

DEV$M_DMT      = 00200000            IFB$B_FAC        00000022            IFB$S_ORG      = 00000004            

DEV$M_ELG      = 00400000            IFB$B_FSZ        0000004B            IFB$S_RFM      = 00000004            

DEV$M_FOD      = 00004000            IFB$B_KBUFSZ     0000005C            IFB$V_ACCESSED = 00000025            

DEV$M_FOR      = 01000000            IFB$B_MODE       0000000A            IFB$V_ANSI_D   = 00000026            

DEV$M_GEN      = 00020000            IFB$B_NUM_KEYS   0000005A            IFB$V_ASYNC    = 00000023            

DEV$M_IDV      = 04000000            IFB$B_ORGCASE    00000023            IFB$V_ASYNCWAIT= 00000024            

DEV$M_MBX      = 00100000            IFB$B_RAT        0000003D            IFB$V_BIO      = 00000005            

DEV$M_MNT      = 00080000            IFB$B_RFMORG     0000003C            IFB$V_BRO      = 00000006            

DEV$M_NET      = 00002000            IFB$B_UBUFSZ     0000005B            IFB$V_BUSY     = 00000020            

RMS0TRUNC       TRUNCATE SEQUENTIAL FILE                         21-AUG-1978 22:13:05   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



IFB$V_CREATE   = 00000032            IRB$B_RP_KREF    00000039            IRB$V_RAHWBH   = 0000002A            

IFB$V_DAP      = 0000003E            IRB$B_RRV_ID     00000050            IRB$V_SKIP_NEXT= 0000002B            

IFB$V_DAP_OPEN = 0000003D            IRB$B_SRCHFLAGS  00000043            IRB$V_SRCHGT   = 00000001            

IFB$V_DEL      = 00000002            IRB$B_STOPLEVEL  00000042            IRB$V_UNLOCK_RP= 0000002D            

IFB$V_DFW      = 0000002C            IRB$C_BID      = 0000000A            IRB$V_WRITE    = 00000029            

IFB$V_DLT      = 0000002B            IRB$C_BLN_IDX    0000006C            IRB$W_CSIZ       00000042            

IFB$V_DMO      = 00000028            IRB$C_BLN_REL    00000048            IRB$W_DUP_POS    00000032            

IFB$V_EOF      = 00000021            IRB$C_BLN_SEQ    0000004C            IRB$W_IOS2       0000000E            

IFB$V_EXE      = 00000007            IRB$K_BLN_IDX    0000006C            IRB$W_NRP_OFF    00000030            

IFB$V_GET      = 00000001            IRB$K_BLN_REL    00000048            IRB$W_OWN_ID     0000003C            

IFB$V_MSE      = 00000031            IRB$K_BLN_SEQ    0000004C            IRB$W_OWN_ISI    0000003E            

IFB$V_NORECLK  = 00000033            IRB$L_ARGLST     00000018            IRB$W_ROVHDSZ    00000044            

IFB$V_NSP      = 0000003F            IRB$L_ASBADDR    00000014            IRB$W_RP_OFF     00000038            

IFB$V_NWA      = 0000003C            IRB$L_BKPBITS    00000004            IRB$W_RTOTLSZ    00000046            

IFB$V_ORG      = 00000004            IRB$L_BWB        0000000C            IRB$W_SAVE_POS   00000052            

IFB$V_PPF_IMAGE= 00000022            IRB$L_CURBDB     00000020            L$RMS10          00000000 R     04   

IFB$V_PPF_INPUT= 0000002E            IRB$L_CURVBN     00000030            L$RMS11          00000008 R     04   

IFB$V_PUT      = 00000000            IRB$L_IFAB_LNK   00000000            PIO$GL_FMLH      ********   X   02   

IFB$V_RFM      = 00000000            IRB$L_IOS        0000000C            RAB$B_BID        00000000            

IFB$V_RWC      = 00000027            IRB$L_IOS4       00000010            RAB$B_BLN        00000001            

IFB$V_RW_ATTR  = 00000034            IRB$L_IRAB_LNK   0000001C            RAB$B_KRF        00000035            

IFB$V_SCF      = 0000002A            IRB$L_KEYBUF     00000048            RAB$B_KSZ        00000034            

IFB$V_SPL      = 00000029            IRB$L_LAST_RAB   00000024            RAB$B_MBC        00000037            

IFB$V_SQO      = 0000002D            IRB$L_LOCK_BDB   0000005C            RAB$B_MBF        00000036            

IFB$V_TEF      = 00000036            IRB$L_NRP        0000002C            RAB$B_PSZ        00000034            

IFB$V_TMP      = 00000035            IRB$L_NRP_OFF    00000030            RAB$B_RAC        0000001E            

IFB$V_TRN      = 00000004            IRB$L_NRP_VBN    0000002C            RAB$B_ROP1       00000005            

IFB$V_UPD      = 00000003            IRB$L_NXTBDB     00000028            RAB$B_ROP2       00000006            

IFB$V_WRTACC   = 00000030            IRB$L_OWNER_ID   0000003C            RAB$B_ROP3       00000007            

IFB$W_ASDEVBSIZ  0000005A            IRB$L_RFA_VBN    00000054            RAB$B_TMO        0000001F            

IFB$W_BKS_BYTES  0000005C            IRB$L_RLB_ADDR   00000044            RAB$C_BID      = 00000001            

IFB$W_BKS_RECS   0000005E            IRB$L_RP         00000034            RAB$C_BLN        00000044            

IFB$W_CHNL       00000020            IRB$L_RP_OFF     00000038            RAB$C_KEY      = 00000001            

IFB$W_DEQ        0000004E            IRB$L_RP_VBN     00000034            RAB$C_RFA      = 00000002            

IFB$W_DEVBUFSIZ  00000038            IRB$L_RRV_VBN    0000004C            RAB$C_SEQ      = 00000000            

IFB$W_EBK0       00000044            IRB$L_TEMP0      00000044            RAB$K_BLN        00000044            

IFB$W_EBK2       00000046            IRB$L_TEMP1      00000048            RAB$L_BKT        00000038            

IFB$W_FFB        00000048            IRB$V_ASYNC    = 00000023            RAB$L_CTX        00000018            

IFB$W_IOS2       0000000E            IRB$V_ASYNCWAIT= 00000024            RAB$L_DCT        00000038            

IFB$W_LRL        0000003E            IRB$V_BIO_LAST = 00000027            RAB$L_FAB        0000003C            

IFB$W_MRS        0000004C            IRB$V_BRO_SW   = 00000028            RAB$L_KBF        00000030            

IFB$W_RTDEQ      0000003A            IRB$V_BUSY     = 00000020            RAB$L_PBF        00000030            

IRB$B_BCNT       00000040            IRB$V_DAP_CONN = 0000003E            RAB$L_RBF        00000028            

IRB$B_BID        00000008            IRB$V_DAP_FMODE= 0000003F            RAB$L_RFA0       00000010            

IRB$B_BLN        00000009            IRB$V_DUP      = 0000002C            RAB$L_RHB        0000002C            

IRB$B_EFN        0000000B            IRB$V_EOF      = 00000021            RAB$L_ROP        00000004            

IRB$B_KEYSZ      00000051            IRB$V_FIND     = 00000029            RAB$L_STS        00000008            

IRB$B_MBC        00000041            IRB$V_FIND_LAST= 00000025            RAB$L_STV        0000000C            

IRB$B_MODE       0000000A            IRB$V_IDX_ERR  = 00000031            RAB$L_UBF        00000024            

IRB$B_NRP_ID     00000030            IRB$V_LOCKABOVE= 00000002            RAB$M_ASY      = 00000001            

IRB$B_NRP_KREF   00000031            IRB$V_NEW_IDX  = 00000003            RAB$M_BIO      = 00000800            

IRB$B_NVBNS      00000048            IRB$V_POSINSERT= 00000000            RAB$M_CCO      = 80000000            

IRB$B_POST_CCTL  00000045            IRB$V_PPF_EOF  = 0000002E            RAB$M_CVT      = 04000000            

IRB$B_PPF_ISI    0000003E            IRB$V_PPF_FNDSV= 00000030            RAB$M_EOF      = 00000100            

IRB$B_PRE_CCTL   00000044            IRB$V_PPF_IMAGE= 00000022            RAB$M_FDL      = 00000040            

IRB$B_RFA_ID     00000058            IRB$V_PPF_SKIP = 0000002F            RAB$M_HSH      = 00000080            

IRB$B_RP_ID      00000038            IRB$V_PUTS_LAST= 00000026            RAB$M_KGE      = 00200000            

RMS0TRUNC       TRUNCATE SEQUENTIAL FILE                         21-AUG-1978 22:13:05   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



RAB$M_KGT      = 00400000            RM$RLNERR        ********   X   02   RMS$_ENT       = 0001C01A            

RAB$M_LIM      = 00004000            RM$RSET          ********   X   02   RMS$_ENV       = 00018724            

RAB$M_LOA      = 00002000            RM$SPACE_MT      ********   X   02   RMS$_EOF       = 0001827A            

RAB$M_LOC      = 00010000            RMS$TRUNCATE   = FFFFFFFE RG    02   RMS$_ESA       = 000184FC            

RAB$M_MAS      = 00000020            RMS$V_STVSTATUS= 0000000E            RMS$_ESL       = 00018714            

RAB$M_NLK      = 00100000            RMS$_ABO       = 000183EC            RMS$_ESS       = 00018504            

RAB$M_NXR      = 00800000            RMS$_ACC       = 0001C002            RMS$_EXP       = 000182C2            

RAB$M_PMT      = 40000000            RMS$_ACT       = 0001825A            RMS$_EXT       = 0001C022            

RAB$M_PPF_IND  = 00004000            RMS$_AID       = 000183F4            RMS$_FAB       = 0001850C            

RAB$M_PPF_RAT  = 00003FC0            RMS$_ALN       = 000183FC            RMS$_FAC       = 00018514            

RAB$M_PTA      = 20000000            RMS$_ALQ       = 00018404            RMS$_FEX       = 00018282            

RAB$M_RAH      = 00000200            RMS$_ANI       = 0001840C            RMS$_FLG       = 0001851C            

RAB$M_RLK      = 00080000            RMS$_AOP       = 00018414            RMS$_FLK       = 0001828A            

RAB$M_RNE      = 01000000            RMS$_ATR       = 0001C0CC            RMS$_FNA       = 00018524            

RAB$M_RNF      = 08000000            RMS$_ATW       = 0001C0D4            RMS$_FND       = 0001C02A            

RAB$M_TMO      = 02000000            RMS$_BKS       = 0001841C            RMS$_FNF       = 00018292            

RAB$M_TPT      = 00000002            RMS$_BKZ       = 00018424            RMS$_FNM       = 0001852C            

RAB$M_UIF      = 00000010            RMS$_BLN       = 0001842C            RMS$_FOP       = 0001853C            

RAB$M_ULK      = 00040000            RMS$_BOF       = 00018198            RMS$_FSZ       = 00018534            

RAB$M_WAT      = 00020000            RMS$_BUG       = 00018434            RMS$_FUL       = 00018544            

RAB$M_WBH      = 00000400            RMS$_BUG_DAP   = 00018444            RMS$_IAL       = 0001854C            

RAB$S_PPF_RAT  = 00000008            RMS$_BUG_DDI   = 0001843C            RMS$_IAN       = 00018554            

RAB$V_ASY      = 00000000            RMS$_BUG_XX2   = 0001844C            RMS$_IBF       = 00018754            

RAB$V_BIO      = 0000000B            RMS$_BUG_XX3   = 00018454            RMS$_IDX       = 0001855C            

RAB$V_CCO      = 0000001F            RMS$_BUG_XX4   = 0001845C            RMS$_IFA       = 0001C124            

RAB$V_CVT      = 0000001A            RMS$_BUG_XX5   = 00018464            RMS$_IFI       = 00018564            

RAB$V_EOF      = 00000008            RMS$_BUG_XX6   = 0001846C            RMS$_IMX       = 0001856C            

RAB$V_FDL      = 00000006            RMS$_BUG_XX7   = 00018474            RMS$_IOP       = 00018574            

RAB$V_HSH      = 00000007            RMS$_BUG_XX8   = 0001847C            RMS$_IRC       = 0001857C            

RAB$V_KGE      = 00000015            RMS$_BUG_XX9   = 00018484            RMS$_ISI       = 00018584            

RAB$V_KGT      = 00000016            RMS$_CAA       = 0001848C            RMS$_KBF       = 0001858C            

RAB$V_LIM      = 0000000E            RMS$_CCF       = 0001C0DC            RMS$_KEY       = 00018594            

RAB$V_LOA      = 0000000D            RMS$_CCR       = 00018494            RMS$_KFF       = 00018031            

RAB$V_LOC      = 00000010            RMS$_CDA       = 0001C0E4            RMS$_KRF       = 0001859C            

RAB$V_MAS      = 00000005            RMS$_CHG       = 0001849C            RMS$_KSZ       = 000185A4            

RAB$V_NLK      = 00000014            RMS$_CHK       = 000184A4            RMS$_LAN       = 000185AC            

RAB$V_NXR      = 00000017            RMS$_CHN       = 0001C0EC            RMS$_LBL       = 000185B4            

RAB$V_PMT      = 0000001E            RMS$_COD       = 000184AC            RMS$_LNE       = 000185BC            

RAB$V_PPF_IND  = 0000000E            RMS$_CONTROLC  = 00010651            RMS$_LOC       = 000185C4            

RAB$V_PPF_RAT  = 00000006            RMS$_CONTROLO  = 00010609            RMS$_MBC       = 00018734            

RAB$V_PTA      = 0000001D            RMS$_CONTROLY  = 00010611            RMS$_MKD       = 0001C032            

RAB$V_RAH      = 00000009            RMS$_CRE       = 0001C00A            RMS$_MRN       = 000185CC            

RAB$V_RLK      = 00000013            RMS$_CREATED   = 00010619            RMS$_MRS       = 000185D4            

RAB$V_RNE      = 00000018            RMS$_CUR       = 000184B4            RMS$_NAM       = 000185DC            

RAB$V_RNF      = 0000001B            RMS$_DAC       = 0001C012            RMS$_NEF       = 000185E4            

RAB$V_TMO      = 00000019            RMS$_DAN       = 000184BC            RMS$_NET       = 0001874C            

RAB$V_TPT      = 00000001            RMS$_DEL       = 00018262            RMS$_NID       = 000185EC            

RAB$V_UIF      = 00000004            RMS$_DEV       = 000184C4            RMS$_NMF       = 000182CA            

RAB$V_ULK      = 00000012            RMS$_DIR       = 000184CC            RMS$_NOD       = 000185F4            

RAB$V_WAT      = 00000011            RMS$_DME       = 000184D4            RMS$_NORMAL    = 00010001            

RAB$V_WBH      = 0000000A            RMS$_DNA       = 000184DC            RMS$_NPK       = 000185FC            

RAB$W_ISI        00000002            RMS$_DNF       = 0001C04A            RMS$_OK_ALK    = 00018039            

RAB$W_RFA        00000010            RMS$_DNR       = 00018272            RMS$_OK_DEL    = 00018041            

RAB$W_RFA4       00000014            RMS$_DPE       = 0001C03A            RMS$_OK_DUP    = 00018011            

RAB$W_RSZ        00000022            RMS$_DTP       = 000184E4            RMS$_OK_IDX    = 00018019            

RAB$W_USZ        00000020            RMS$_DUP       = 000184EC            RMS$_OK_LIM    = 00018051            

RM$EXRMS         ********   X   02   RMS$_DVI       = 000184F4            RMS$_OK_RLK    = 00018021            

RMS0TRUNC       TRUNCATE SEQUENTIAL FILE                         21-AUG-1978 22:13:05   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



RMS$_OK_RNF    = 00018049            RMS$_WER       = 0001C114            

RMS$_OK_RRV    = 00018029            RMS$_WLD       = 00018744            

RMS$_ORD       = 00018604            RMS$_WLK       = 000182BA            

RMS$_ORG       = 0001860C            RMS$_WPL       = 0001C11C            

RMS$_PBF       = 00018614            RMS$_WSF       = 0001871C            

RMS$_PENDING   = 00018009            RMS$_XAB       = 0001870C            

RMS$_PLG       = 0001861C            SUCXIT           00000056 R     02   

RMS$_PLV       = 0001872C            TPT$L_TRUNCATE   ********   X   02   

RMS$_POS       = 00018624            XIT              00000005 R     04   

RMS$_PRM       = 0001862C            

RMS$_PRV       = 0001829A            

RMS$_QUO       = 00018634            

RMS$_RAB       = 0001863C            

RMS$_RAC       = 00018644            

RMS$_RAT       = 0001864C            

RMS$_RBF       = 00018654            

RMS$_RER       = 0001C0F4            

RMS$_REX       = 000182A2            

RMS$_RFA       = 0001865C            

RMS$_RFM       = 00018664            

RMS$_RHB       = 0001866C            

RMS$_RLF       = 00018674            

RMS$_RLK       = 000182AA            

RMS$_RMV       = 0001C0FC            

RMS$_RNF       = 000182B2            

RMS$_RNL       = 000181A0            

RMS$_ROP       = 0001867C            

RMS$_RPL       = 0001C104            

RMS$_RRV       = 00018684            

RMS$_RSA       = 000182DA            

RMS$_RSL       = 0001873C            

RMS$_RSS       = 00018694            

RMS$_RST       = 0001869C            

RMS$_RSZ       = 000186A4            

RMS$_RTB       = 000181A8            

RMS$_SEQ       = 000186AC            

RMS$_SHR       = 000186B4            

RMS$_SIZ       = 000186BC            

RMS$_SPL       = 0001C042            

RMS$_SQO       = 000186C4            

RMS$_STALL     = 00018001            

RMS$_STK       = 000186CC            

RMS$_SUC       = 00010001            

RMS$_SUP       = 000182D2            

RMS$_SUPERSEDE = 00010631            

RMS$_SYN       = 000186D4            

RMS$_SYS       = 0001C10C            

RMS$_TEMP1     = 0001826A            

RMS$_TEMP2     = 0001868C            

RMS$_TMO       = 000181B0            

RMS$_TRE       = 000186DC            

RMS$_TYP       = 000186E4            

RMS$_UBF       = 000186EC            

RMS$_USZ       = 000186F4            

RMS$_VER       = 000186FC            

RMS$_VOL       = 00018704            

RMS$_WBE       = 0001C12C            

RMS0TRUNC       TRUNCATE SEQUENTIAL FILE                         21-AUG-1978 22:13:05   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  

L$RMS1TRUNC      00000069      02     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  

$ABS$            0000006C      03     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

L$RMS1           0000000F      04     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

9590. BYTES LEFT IN FREE MEMORY POOL.

3384. BYTES OF RECLAIMED MEMORY.

OBJ$:RMS0TRUNC,LIS$:RMS0TRUNC/-SP=EXECML$/ML,LIB$:R/ML,SRC$:RMS0TRUNC

27 MLB DIR RDS - 1011 GETS TO DEFINE 27 MACROS. 70 INTER. FILE WRITES. 

