RM0FWASET       ALLOCATE AND INITIALIZE FWA                      21-AUG-1978 21:24:47   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      41  DECLARATIONS

   (1)      61  RM$FWASET  -  ALLOCATE AND INITIALIZE FWA ROUTI

RM0FWASET       ALLOCATE AND INITIALIZE FWA                      21-AUG-1978 21:24:47   VAX-11 MACRO X0.3-11               Page   1

008                                                                                                                              (1)



                                     0000     1 

                                     0000     2 

                                     0000     3 	$BEGIN	RM0FWASET,008,F$RMSOPEN0,<ALLOCATE AND INITIALIZE FWA>

                                     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 ALLOCATES AND INITIALIZES A FILE WORK

                                     0000    28 ;	AREA (FWA) PAGE.

                                     0000    29 ;

                                     0000    30 ; ENVIRONMENT:

                                     0000    31 ;		STAR PROCESSOR RUNNING STARLET EXEC.

                                     0000    32 ;

                                     0000    33 ; AUTHOR: L F LAVERDURE,	 CREATION DATE: 3-MAR-77

                                     0000    34 ;

                                     0000    35 ; MODIFIED BY:

                                     0000    36 ;

                                     0000    37 ;	L F LAVERDURE,   22-JUN-78  15:42

                                     0000    38 ; 01	- 

                                     0000    39 ;--

RM0FWASET       ALLOCATE AND INITIALIZE FWA                      21-AUG-1978 21:24:47   VAX-11 MACRO X0.3-11               Page   2

008             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 	$IFBDEF

                                     0000    50 	$FWADEF

                                     0000    51 

                                     0000    52 ;

                                     0000    53 ; EQUATED SYMBOLS:

                                     0000    54 ;

                                     0000    55 

                                     0000    56 ;

                                     0000    57 ; OWN STORAGE:

                                     0000    58 ;

                                     0000    59 

RM0FWASET       ALLOCATE AND INITIALIZE FWA                      21-AUG-1978 21:24:47   VAX-11 MACRO X0.3-11               Page   3

008             RM$FWASET  -  ALLOCATE AND INITIALIZE FWA ROUTI                                                                  (1)



                                     0000    61 	.SBTTL RM$FWASET  -  ALLOCATE AND INITIALIZE FWA ROUTINE

                                     0000    62 ;++

                                     0000    63 ; FUNCTIONAL DESCRIPTION:

                                     0000    64 ;

                                     0000    65 ; THIS ROUTINE CALLS RM$ALDBUF TO ALLOCATE A FILE WORK AREA

                                     0000    66 ; (FWA) PAGE AND THEN INTIALIZES THE VARIOUS BUFFER

                                     0000    67 ; DESCRIPTORS.

                                     0000    68 ;

                                     0000    69 ;

                                     0000    70 ; CALLING SEQUENCE:

                                     0000    71 ;

                                     0000    72 ;	BSBW	RM$FWASET

                                     0000    73 ;

                                     0000    74 ; INPUT PARAMETERS:

                                     0000    75 ;

                                     0000    76 ;	R11	IMPURE AREA POINTER

                                     0000    77 ;	R9	IFAB ADDRESS

                                     0000    78 ;

                                     0000    79 ;

                                     0000    80 ; IMPLICIT INPUTS:

                                     0000    81 ;

                                     0000    82 ;	NONE

                                     0000    83 ;

                                     0000    84 ; OUTPUT PARAMETERS:

                                     0000    85 ;

                                     0000    86 ;	R10	FWA BUFFER ADDRESS

                                     0000    87 ;	R1-R5	DESTROYED

                                     0000    88 ;	R0	STATUS CODE

                                     0000    89 ;

                                     0000    90 ;

                                     0000    91 ; IMPLICIT OUTPUTS:

                                     0000    92 ;

                                     0000    93 ;	IFB$L_FWA_BDB SET TO ADDR OF ASSOCIATED BDB

                                     0000    94 ;	BDB INITIALIZED AND LINKED INTO IFAB BDB LIST

                                     0000    95 ;	FWA BUFFER DESCRIPTORS INITIALIZED:

                                     0000    96 ;

                                     0000    97 ;		FWA$Q_XLTBUF1

                                     0000    98 ;		FWA$Q_XLTBUF2

                                     0000    99 ;		FWA$Q_NODE

                                     0000   100 ;		FWA$Q_DEVICE

                                     0000   101 ;		FWA$Q_DIR1 AND ALL SUB DIRECTORIES

                                     0000   102 ;		FWA$Q_NAME

                                     0000   103 ;		FWA$Q_TYPE

                                     0000   104 ;		FWA$Q_VERION

                                     0000   105 ;

                                     0000   106 ;	FWA$B_UNDERLINE INITIALIZED TO THE CHARACTER '_'

                                     0000   107 ;

                                     0000   108 ; COMPLETION CODES:

                                     0000   109 ;

                                     0000   110 ;	STANDARD RMS, IN PARTICULAR, SUC OR DME.

                                     0000   111 ;

                                     0000   112 ; SIDE EFFECTS:

                                     0000   113 ;

                                     0000   114 ;	NONE

                                     0000   115 ;--

RM0FWASET       ALLOCATE AND INITIALIZE FWA                      21-AUG-1978 21:24:47   VAX-11 MACRO X0.3-11               Page   4

008             RM$FWASET  -  ALLOCATE AND INITIALIZE FWA ROUTI                                                                  (1)



                                     0000   117 	ASSUME	FWA$T_XLTBUFF2+FWA$C_XLTBUFSIZ LT 512

                                     0000   118 RM$FWASET::

                                     0000   119 ;

                                     0000   120 ; ALLOCATE A 1 PAGE BUFFER AND BDB TO USE FOR FWA

                                     0000   121 ;

            55            01     D0  0000   122 	MOVL	#1,R5				; LENGTH (1 BYTE GETS A PAGE)

            5A            59     D0  0003   123 	MOVL	R9,R10				; COPY ADDRESS OF IFAB

                          FFF7'  30  0006   124 	BSBW	RM$ALDBUF			; ALLOCATE 512 BYTE BUFFER

                                     0009   125 						; RETURNS BDB AND BUFFER ADDRESSES

                                     0009   126 						; IN R4,R3 RESPECTIVELY

            5D            50     E9  0009   127 	BLBC	R0,FWAXIT			; GET OUT ON ERROR

         50 A9            54     D0  000C   128 	MOVL	R4,IFB$L_FWA_BDB(R9)		; SAVE BDB ADDR

            5A            53     D0  0010   129 	MOVL	R3,R10				; SAVE FWA BUFFER ADDR

            6E            00     2C  0013   130 	MOVC5	#0,(SP),#0,R2,(R3)		; ZERO THE PAGE

            52            00         0016       

                          63         0018       

            53       0100 CA     9E  0019   131 	MOVAB	256(R10),R3			; BUMP FWA ADDR FOR SHORT ADDRESSING

                                     001E   132 ;

                                     001E   133 ; INITIALIZE THE VARIOUS FWA BUFFER DESCRIPTORS

                                     001E   134 ; WITH THE SIZE AND ADDRESS OF THE RELATED BUFFER

                                     001E   135 ;

                                     001E   136 ; FIRST THE SCRATCH TRANSLATION BUFFER DESCRIPTORS

                                     001E   137 ;

         0C AA            3F     D0  001E   138 	MOVL	#FWA$C_XLTBUFSIZ,FWA$Q_XLTBUF1(R10)

         24 AA            3F     D0  0022   139 	MOVL	#FWA$C_XLTBUFSIZ,FWA$Q_XLTBUF2(R10)

         10 AA         64 A3     9E  0026   140 	MOVAB	FWA$T_XLTBUFF1-256(R3),FWA$Q_XLTBUF1+4(R10)

         28 AA       01A4 CA     9E  002B   141 	MOVAB	FWA$T_XLTBUFF2(R10),FWA$Q_XLTBUF2+4(R10)

                                     0031   142 ;

                                     0031   143 ; NOW ALL THE PARSED FILENAME ELEMENT DESCRIPTORS (ADDRESS ONLY)

                                     0031   144 ;

         38 AA         2C A3     9E  0031   145 	MOVAB	FWA$T_NODEBUF-256(R3),FWA$Q_NODE+4(R10)

         40 AA         55 A3     9E  0036   146 	MOVAB	FWA$T_DEVICEBUF-256(R3),FWA$Q_DEVICE+4(R10)

            55         D0 A3     9E  003B   147 	MOVAB	FWA$T_DIR1BUF-256(R3),R5	; GET ADDRESS OF DIRECTORY BUFFERS

            54         48 AA     9E  003F   148 	MOVAB	FWA$Q_DIR1+4(R10),R4		; GET ADDRESS OF DIR. DESCRIPTORS

            52            07     D0  0043   149 	MOVL	#FWA$C_MAXSUBDIR,R2		; MAX. # OF SUB DIRECTORIES

            64            55     D0  0046   150 10$:	MOVL	R5,(R4)				; STORE BUFFER ADDRESS IN DESCRIPTOR

            55            09     C0  0049   151 	ADDL2	#FWA$C_DIRBUFSIZ,R5		; ADDRESS OF NEXT DIRECTORY BUFFER

            54            08     C0  004C   152 	ADDL2	#8,R4				; ADDRESS OF NEXT DESCRIPTOR

            F4            52     F4  004F   153 	SOBGEQ	R2,10$				; LOOP IF MORE

         88 A3         18 A3     9E  0052   154 	MOVAB	FWA$T_NAMEBUF-256(R3),FWA$Q_NAME+4-256(R3)

         90 A3         22 A3     9E  0057   155 	MOVAB	FWA$T_TYPEBUF-256(R3),FWA$Q_TYPE+4-256(R3)

         98 A3         26 A3     9E  005C   156 	MOVAB	FWA$T_VERBUF-256(R3),FWA$Q_VERSION+4-256(R3)

                                     0061   157 ;

                                     0061   158 ;  MOVE AN UNDERSCORE CHARACTER TO FWA$B_UNDERLINE

                                     0061   159 ;

         54 A3         5F 8F     90  0061   160 	MOVB	#^A/_/,FWA$B_UNDERLINE-256(R3)

                                     0066   161 	RMSSUC

                                 05  0069   162 FWAXIT:	RSB

                                     006A   163 	.END

RM0FWASET       ALLOCATE AND INITIALIZE FWA                      21-AUG-1978 21:24:47   VAX-11 MACRO X0.3-11               Page   5

SYMBOL TABLE                                                                                                                     (1)



$$.PSECT_EP    = 00000000            FWA$M_NAMEFLG  = 00000002            FWA$V_RLF_PASS = 00000003            

$$RMSTEST      = 0000001A            FWA$M_NAM_DVI  = 00000020            FWA$V_TYPE     = 0000000C            

$$RMS_PBUGCHK  = 00000010            FWA$M_RLF_PASS = 00000008            FWA$V_TYPEFLG  = 00000002            

$$RMS_TBUGCHK  = 00000008            FWA$M_TYPE     = 00001000            FWA$V_VERSION  = 0000000B            

$$RMS_UMODE    = 00000004            FWA$M_TYPEFLG  = 00000004            FWA$V_WC_NAME  = 00000015            

BIT...         = 0000002A            FWA$M_VERSION  = 00000800            FWA$V_WC_TYPE  = 00000014            

FWA$B_DIRFLGS    00000004            FWA$Q_DEVICE     0000003C            FWA$V_WC_VER   = 00000013            

FWA$B_DIRLEN     00000030            FWA$Q_DIR        00000024            FWA$V_WILDCARD = 00000018            

FWA$B_DIRTERM    00000007            FWA$Q_DIR1       00000044            FWA$V_WILD_DIR = 0000001C            

FWA$B_DIRWCFLGS  00000005            FWA$Q_DIR2       0000004C            FWA$V_WILD_GRP = 00000028            

FWA$B_ESCFLG     00000008            FWA$Q_FIB        0000000C            FWA$V_WILD_MBR = 00000029            

FWA$B_ESCTYP     00000009            FWA$Q_FLAGS      00000000            FWA$V_WILD_SFD1= 00000029            

FWA$B_FLDFLGS    00000001            FWA$Q_LOGNAME    0000001C            FWA$V_WILD_UFD = 00000028            

FWA$B_LNFLG      00000006            FWA$Q_NAME       00000084            FWA$W_ESCIFI     0000000A            

FWA$B_PARSEFLGS  00000003            FWA$Q_NODE       00000034            FWA$W_FNAMSIZ    00000018            

FWA$B_PASSFLGS   00000000            FWA$Q_QUOTED     0000009C            FWA$W_PRO        00000020            

FWA$B_UNDERLINE  00000154            FWA$Q_RNS        0000008C            FWA$W_UCHAR      0000002C            

FWA$B_WILDFLGS   00000002            FWA$Q_STATBLK    00000094            FWAXIT           00000069 R     02   

FWA$B_XLTMODE    0000000A            FWA$Q_TYPE       0000008C            GBL...         = 00000000            

FWA$B_XLTTBL     0000000B            FWA$Q_VERSION    00000094            IFB$B_AMAX       00000059            

FWA$C_ALL      = 000000F8            FWA$Q_XLTBUF1    0000000C            IFB$B_AVBN       00000058            

FWA$C_DEVBUFSIZ= 0000000F            FWA$Q_XLTBUF2    00000024            IFB$B_BID        00000008            

FWA$C_DIRBUFSIZ= 00000009            FWA$S_DIR_LVLS = 00000003            IFB$B_BKS        0000004A            

FWA$C_FIBLEN   = 0000002C            FWA$T_ATR_LIST   00000164            IFB$B_BLN        00000009            

FWA$C_MAXDEVICE= 0000000F            FWA$T_DEVICEBUF  00000155            IFB$B_EFN        0000000B            

FWA$C_MAXDIRLEN= 0000003C            FWA$T_DIB        00000174            IFB$B_EXTRABUF   0000005D            

FWA$C_MAXNAME  = 00000009            FWA$T_DIR1BUF    000000D0            IFB$B_FAC        00000022            

FWA$C_MAXNODE  = 00000028            FWA$T_DIR2BUF    000000D9            IFB$B_FSZ        0000004B            

FWA$C_MAXQUOTED= 0000007F            FWA$T_FIBBUF     000000A4            IFB$B_KBUFSZ     0000005C            

FWA$C_MAXSUBDIR= 00000007            FWA$T_NAMEBUF    00000118            IFB$B_MODE       0000000A            

FWA$C_MAXTYPE  = 00000003            FWA$T_NODEBUF    0000012C            IFB$B_NUM_KEYS   0000005A            

FWA$C_MAXVER   = 00000006            FWA$T_TYPEBUF    00000122            IFB$B_ORGCASE    00000023            

FWA$C_NAMBUFSIZ= 0000000A            FWA$T_VERBUF     00000126            IFB$B_RAT        0000003D            

FWA$C_NODBUFSIZ= 00000028            FWA$T_XLTBUFF1   00000164            IFB$B_RFMORG     0000003C            

FWA$C_RNSBUFSIZ= 00000014            FWA$T_XLTBUFF2   000001A4            IFB$B_UBUFSZ     0000005B            

FWA$C_TYPBUFSIZ= 00000004            FWA$V_CUR_VER  = 00000006            IFB$C_BID      = 0000000B            

FWA$C_VERBUFSIZ= 00000006            FWA$V_DEVICE   = 0000000F            IFB$C_BLN        00000060            

FWA$C_XLTBUFSIZ= 0000003F            FWA$V_DIR      = 0000000E            IFB$C_BLN_IDX    00000060            

FWA$L_BUFFLG     00000014            FWA$V_DIR1     = 00000020            IFB$C_BLN_REL    00000060            

FWA$L_DEVNODADR  00000020            FWA$V_DIR2     = 00000021            IFB$C_BLN_SEQ    0000005C            

FWA$L_ESCSTRING  00000008            FWA$V_DIR_LVLS = 0000001D            IFB$C_DIR      = 00000003            

FWA$L_HBK        00000098            FWA$V_DUPOK    = 00000000            IFB$C_FHAEND     00000050            

FWA$L_LOOKUP     0000001C            FWA$V_EXP_DEV  = 00000017            IFB$C_IDX      = 00000002            

FWA$L_SBN        00000094            FWA$V_EXP_DIR  = 00000016            IFB$C_MAXORG   = 00000002            

FWA$L_UIC        0000001C            FWA$V_EXP_NAME = 00000012            IFB$C_REL      = 00000001            

FWA$L_XLTCNT     0000002C            FWA$V_EXP_TYPE = 00000011            IFB$C_SEQ      = 00000000            

FWA$L_XLTSIZ     00000018            FWA$V_EXP_VER  = 00000010            IFB$K_BLN        00000060            

FWA$M_DEVICE   = 00008000            FWA$V_FNA_PASS = 00000004            IFB$K_BLN_IDX    00000060            

FWA$M_DIR      = 00004000            FWA$V_GRPMBR   = 0000001B            IFB$K_BLN_REL    00000060            

FWA$M_DUPOK    = 00000001            FWA$V_LOGNAME  = 00000030            IFB$K_BLN_SEQ    0000005C            

FWA$M_EXP_DEV  = 00800000            FWA$V_NAME     = 0000000D            IFB$K_FHAEND     00000050            

FWA$M_EXP_DIR  = 00400000            FWA$V_NAMEFLG  = 00000001            IFB$L_ARGLST     00000018            

FWA$M_EXP_NAME = 00040000            FWA$V_NAM_DVI  = 00000005            IFB$L_ASBADDR    00000014            

FWA$M_EXP_TYPE = 00020000            FWA$V_NETSTR   = 00000032            IFB$L_AS_DEV     00000054            

FWA$M_EXP_VER  = 00010000            FWA$V_NODE     = 00000019            IFB$L_BDB_BLNK   00000034            

FWA$M_FNA_PASS = 00000010            FWA$V_OBJTYPE  = 00000031            IFB$L_BDB_FLNK   00000030            

FWA$M_NAME     = 00002000            FWA$V_QUOTED   = 0000001A            IFB$L_BKPBITS    00000004            

RM0FWASET       ALLOCATE AND INITIALIZE FWA                      21-AUG-1978 21:24:47   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (1)



IFB$L_BWB        0000000C            IFB$V_SPL      = 00000029            

IFB$L_DVBN       00000058            IFB$V_SQO      = 0000002D            

IFB$L_EBK        00000044            IFB$V_TEF      = 00000036            

IFB$L_FRB_PTR    00000028            IFB$V_TMP      = 00000035            

IFB$L_FWA_BDB    00000050            IFB$V_TRN      = 00000004            

IFB$L_HBK        00000040            IFB$V_UPD      = 00000003            

IFB$L_IDX_PTR    00000054            IFB$V_WRTACC   = 00000030            

IFB$L_IOS        0000000C            IFB$W_ASDEVBSIZ  0000005A            

IFB$L_IOS4       00000010            IFB$W_BKS_BYTES  0000005C            

IFB$L_IRAB_LNK   0000001C            IFB$W_BKS_RECS   0000005E            

IFB$L_LAST_FAB   00000024            IFB$W_CHNL       00000020            

IFB$L_LOCK_BDB   00000050            IFB$W_DEQ        0000004E            

IFB$L_MRN        00000054            IFB$W_DEVBUFSIZ  00000038            

IFB$L_NRP_LNK    00000050            IFB$W_EBK0       00000044            

IFB$L_NWA_PTR    00000028            IFB$W_EBK2       00000046            

IFB$L_PRIM_DEV   00000000            IFB$W_FFB        00000048            

IFB$L_RLB_LNK    0000002C            IFB$W_IOS2       0000000E            

IFB$L_RNS_LEN    00000050            IFB$W_LRL        0000003E            

IFB$M_BIO      = 00000020            IFB$W_MRS        0000004C            

IFB$M_BRO      = 00000040            IFB$W_RTDEQ      0000003A            

IFB$M_DEL      = 00000004            RM$ALDBUF        ********   X   02   

IFB$M_EXE      = 00000080            RM$FWASET        00000000 RG    02   

IFB$M_GET      = 00000002            

IFB$M_PUT      = 00000001            

IFB$M_TRN      = 00000010            

IFB$M_UPD      = 00000008            

IFB$S_ORG      = 00000004            

IFB$S_RFM      = 00000004            

IFB$V_ACCESSED = 00000025            

IFB$V_ANSI_D   = 00000026            

IFB$V_ASYNC    = 00000023            

IFB$V_ASYNCWAIT= 00000024            

IFB$V_BIO      = 00000005            

IFB$V_BRO      = 00000006            

IFB$V_BUSY     = 00000020            

IFB$V_CREATE   = 00000032            

IFB$V_DAP      = 0000003E            

IFB$V_DAP_OPEN = 0000003D            

IFB$V_DEL      = 00000002            

IFB$V_DFW      = 0000002C            

IFB$V_DLT      = 0000002B            

IFB$V_DMO      = 00000028            

IFB$V_EOF      = 00000021            

IFB$V_EXE      = 00000007            

IFB$V_GET      = 00000001            

IFB$V_MSE      = 00000031            

IFB$V_NORECLK  = 00000033            

IFB$V_NSP      = 0000003F            

IFB$V_NWA      = 0000003C            

IFB$V_ORG      = 00000004            

IFB$V_PPF_IMAGE= 00000022            

IFB$V_PPF_INPUT= 0000002E            

IFB$V_PUT      = 00000000            

IFB$V_RFM      = 00000000            

IFB$V_RWC      = 00000027            

IFB$V_RW_ATTR  = 00000034            

IFB$V_SCF      = 0000002A            

RM0FWASET       ALLOCATE AND INITIALIZE FWA                      21-AUG-1978 21:24:47   VAX-11 MACRO X0.3-11               Page   7

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  

F$RMSOPEN0       0000006A      02     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  

$ABS$            000001E4      03     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

17680. BYTES LEFT IN FREE MEMORY POOL.

3284. BYTES OF RECLAIMED MEMORY.

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

19 MLB DIR RDS - 481 GETS TO DEFINE 12 MACROS. 31 INTER. FILE WRITES. 

