CREMAPSEC       - CREATE AND MAP A SECTION                       22-AUG-1978 04:23:02   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      41  DECLARATIONS

   (3)      81  CREATE AND MAP SECTION

CREMAPSEC       - CREATE AND MAP A SECTION                       22-AUG-1978 04:23:02   VAX-11 MACRO X0.3-11               Page   1

X0205                                                                                                                            (1)



                                     0000     1 	.TITLE	CREMAPSEC - CREATE AND MAP A SECTION

                                     0000     2 	.IDENT	/X0205/

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977,1978

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

                                     0000    25 ; FACILITY:

                                     0000    26 ;

                                     0000    27 ; ABSTRACT:

                                     0000    28 ;

                                     0000    29 ;

                                     0000    30 ; ENVIRONMENT:

                                     0000    31 ;

                                     0000    32 ; AUTHOR: PETER H. LIPMAN , CREATION DATE: 22-MAY-77

                                     0000    33 ;

                                     0000    34 ; MODIFIED BY:

                                     0000    35 ;

                                     0000    36 ;	KATHLEEN D. MORSE, 21-AUG-78 : VERSION X0205

                                     0000    37 ;		- REMEMBER $CRMPSC STATUS CODE

                                     0000    38 ; 01	- 

                                     0000    39 ;--

CREMAPSEC       - CREATE AND MAP A SECTION                       22-AUG-1978 04:23:02   VAX-11 MACRO X0.3-11               Page   2

X0205           DECLARATIONS                                                                                                     (2)



                                     0000    41 	.SBTTL	DECLARATIONS

                                     0000    42 ;

                                     0000    43 ; INCLUDE FILES:

                                     0000    44 ;

                                     0000    45 	$ATRDEF				;FILE ATTRIBUTE BLOCK DEFINITIONS

                                     0000    46 	$FABDEF				;FILE ACCESS BLOCK DEFINITIONS

                                     0000    47 	$SECDEF	GLOBAL			;DEFINE SECTION FLAGS GLOBALLY

                                     0000    48 	$XABDEF				;EXTENDED ATTRIBUTE BLOCK DEFINITIONS

                                     0000    49 ;

                                     0000    50 ; MACROS:

                                     0000    51 ;

                                     0000    52 ;

                                     0000    53 ; EQUATED SYMBOLS:

                                     0000    54 ;

                                     0000    55 ;

                                     0000    56 ; OFFSETS FROM AP

                                     0000    57 ;

                                     0000    58 	$OFFSET	4,POSITIVE,<-

                                     0000    59 	INADR,-				;INPUT ADDRESS RANGE

                                     0000    60 	RETADR,-			;RETURN ADDRESS RANGE

                                     0000    61 	FLAGS,-				;SECTION FLAGS

                                     0000    62 	GSDNAM,-			;GLOBAL SECTION NAME DESCRIPTOR

                                     0000    63 	RELPAG,-			;RELATIVE PAGE IN SECTION TO START MAPPING

                                     0000    64 	FILNAM,-			;FILE NAME DESCRIPTOR

                                     0000    65 	PAGCNT,-			;MAX PAGE COUNT TO CREATE

                                     0000    66 	VBN,-				;STARTING VIRTUAL BLOCK IN FILE TO CREATE SECTION

                                     0000    67 	ACMODE-				;ACCESS MODE OF SECTION

                                     0000    68 	>

                                     0004       INADR:

                                     0008       RETADR:

                                     000C       FLAGS:

                                     0010       GSDNAM:

                                     0014       RELPAG:

                                     0018       FILNAM:

                                     001C       PAGCNT:

                                     0020       VBN:

                                     0024       ACMODE:

                                     0000    69 ;

                                     0000    70 ; OFFSETS FROM FP

                                     0000    71 ;

                                     0000    72 	$OFFSET	0,NEGATIVE,<-

                                     0000    73 	SVACMODE,-			;SAVED ACMODE PARAMETER IF PRESENT

                                     0000    74 	<FAB,FAB$C_BLN>,-		;FAB

                                     0000    75 	<SCRATCHSIZE,0>-		;SIZE OF SCRATCH AREA

                                     0000    76 	>

                                     FFFC       SVACMODE:

                                     FFAC       FAB:

                                     FFAC       SCRATCHSIZE:

                                     0000    77 ;

                                     0000    78 ; OWN STORAGE:

                                     0000    79 ;

CREMAPSEC       - CREATE AND MAP A SECTION                       22-AUG-1978 04:23:02   VAX-11 MACRO X0.3-11               Page   3

X0205           CREATE AND MAP SECTION                                                                                           (3)



                                     0000    81 	.SBTTL	CREATE AND MAP SECTION

                                     0000    82 ;++

                                     0000    83 ; FUNCTIONAL DESCRIPTION:

                                     0000    84 ;

                                     0000    85 ;	THIS ROUTINE PROVIDES A SLIGHTLY SIMPLER INTERFACE TO THE

                                     0000    86 ; CREATE AND MAP SECTION SYSTEM SERVICE.  IT'S FUNCTION HOWEVER IS

                                     0000    87 ; IDENTICAL, I.E. TO CREATE AND MAP A SECTION.

                                     0000    88 ;

                                     0000    89 ; CALLING SEQUENCE:

                                     0000    90 ;

                                     0000    91 ;	CALLG	ARGLIST,CREMAPSEC

                                     0000    92 ;

                                     0000    93 ; INPUT PARAMETERS:

                                     0000    94 ;

                                     0000    95 ;	INADR(AP)	=		;INPUT ADDRESS RANGE TO MAP

                                     0000    96 ;	RETADR(AP)	=		;RETURN ADDRESS RANGE

                                     0000    97 ;	FLAGS(AP)	=		;SECTION CONTROL FLAGS

                                     0000    98 ;	GSDNAM(AP)	=		;GLOBAL SECTION NAME DESCRIPTOR

                                     0000    99 ;	RELPAG(AP)	=		;RELATIVE PAGE IN SECTION TO START MAPPING

                                     0000   100 ;	FILNAM(AP)	=		;DESCRIPTOR OF FILE NAME STRING

                                     0000   101 ;	PAGCNT(AP)	=		;SIZE OF SECTION TO CREATE

                                     0000   102 ;	VBN(AP)		=		;STARTING VBN OF FILE TO CREATE SECTION FROM

                                     0000   103 ;					;IF THE ABOVE 2 PARAMETERS ARE LEFT OUT

                                     0000   104 ;					;THE SECTION STARTS AT VBN 1 OF THE FILE

                                     0000   105 ;					;AND IS THE FILE LENGTH IN SIZE

                                     0000   106 ;	ACMODE(AP)	=		;OPTIONAL PARAMETER SPECIFYING ACCESS MODE

                                     0000   107 ;

                                     0000   108 ; IMPLICIT INPUTS:

                                     0000   109 ;

                                     0000   110 ;	NONE

                                     0000   111 ;

                                     0000   112 ; OUTPUT PARAMETERS:

                                     0000   113 ;

                                     0000   114 ;	R0 = SYSTEM STATUS CODE

                                     0000   115 ;

                                     0000   116 ; IMPLICIT OUTPUTS:

                                     0000   117 ;

                                     0000   118 ;	NONE

                                     0000   119 ;

                                     0000   120 ; COMPLETION CODES:

                                     0000   121 ;

                                     0000   122 ;	NONE

                                     0000   123 ;

                                     0000   124 ; SIDE EFFECTS:

                                     0000   125 ;

                                     0000   126 ;	NONE

                                     0000   127 ;

                                     0000   128 ;--

CREMAPSEC       - CREATE AND MAP A SECTION                       22-AUG-1978 04:23:02   VAX-11 MACRO X0.3-11               Page   4

X0205           CREATE AND MAP SECTION                                                                                           (4)



                                     0000   130 	.LIST	MEB

                                     0000   131 

                                 00000000   132 	.PSECT	LIB$CODE PIC,SHR,BYTE,RD,EXE,NOWRT

                                     0000   133 

                                     0000   134 LIB$_CREMAPSEC::

                               003C  0000   135 	.WORD	^M<R2,R3,R4,R5>

            5E         AC AE     DE  0002   136 	MOVAL	SCRATCHSIZE(SP),SP	;RESERVE SCRATCH STORAGE

            6E            00     2C  0006   137 	MOVC5	#0,(SP),#0,#-SCRATCHSIZE,(SP) ;ZERO THE SCRATCH STORAGE

       0054 8F            00         0009       

                          6E         000D       

            09            6C     D1  000E   138 	CMPL	(AP),#<ACMODE/4>	;IS ACCESS MODE PARAMETER PRESENT?

                          05     19  0011   139 	BLSS	20$			;BRANCH IF NOT

         FC AD         24 AC     D0  0013   140 	MOVL	ACMODE(AP),SVACMODE(FP)	;YES, SAVE IT IN A TEMP

            54         0C AC     D0  0018   141 20$:	MOVL	FLAGS(AP),R4		;GET CONTROL FLAGS

            54            00     E1  001C   142 	BBC	#SEC$V_GBL,R4,40$ ;BRANCH IF PROCESS SECTION

                          2C         001F       

            52         04 BC     7D  0020   143 	MOVQ	@INADR(AP),R2		;SAVE INPUT ADDRESS RANGE

                                     0024   144 					;COULD BE OVERWRITTEN BY RETADR IN

                                     0024   145 					;AN UNSUCCESSFUL MGBLSC ATTEMPT

                                     0024   146 	$MGBLSC_S -

                                     0024   147 		INADR=@INADR(AP),-	;ADDRESS OF INPUT ADDRESS RANGE

                                     0024   148 		RETADR=@RETADR(AP),-	;ADDRESS OF RETURN ADDRESS RANGE

                                     0024   149 		FLAGS=R4,-		;SECTION FLAGS

                                     0024   150 		ACMODE=SVACMODE(FP),-	;ACCESS MODE

                                     0024   151 		GSDNAM=@GSDNAM(AP),-	;ADDRESS OF GLOBAL SECTION NAME

                                     0024   152 		RELPAG=RELPAG(AP)	;RELATIVE PAGE IN SECTION

                       14 AC     DD  0024       		PUSHL	RELPAG(AP)

                          00     DD  0027       		PUSHL	#0

                       10 BC     7F  0029       		PUSHAQ	@GSDNAM(AP)

                          54     DD  002C       		PUSHL	R4

                       FC AD     DD  002E       		PUSHL	SVACMODE(FP)

                       08 BC     7F  0031       		PUSHAQ	@RETADR(AP)

                       04 BC     7F  0034       		PUSHAQ	@INADR(AP)

   00000000'GF            07     FB  0037       		CALLS	#7,G^SYS$MGBLSC

            7D            50     E8  003E   153 	BLBS	R0,EXIT			;BRANCH IF SUCCESSFUL, ALL DONE

                                     0041   154 	IFNOWRT	#8,@INADR(AP),40$	;UNLESS INPUT RANGE IS READ ONLY

            08            00     0D  0041       		PROBEW	#0,#8,@INADR(AP)

                       04 BC         0044       

                          04     13  0046       		BEQL	40$

         04 BC            52     7D  0048   155 	MOVQ	R2,@INADR(AP)		;RESTORE INPUT ADDRESS RANGE

            55         AC AD     DE  004C   156 40$:	MOVAL	FAB(FP),R5		;ADDRESS OF FAB

                                     0050   157 

                                     0050   158 	ASSUME	FAB$B_BLN EQ FAB$B_BID+1 ;ASSUME THESE ARE ADJACENT

            65       5003 8F     B0  0050   159 	MOVW	#<FAB$C_BLN@8 + FAB$C_BID>,FAB$B_BID(R5) ;SET ID AND SIZE OF FAB

            50         18 BC     7D  0055   160 	MOVQ	@FILNAM(AP),R0		;GET SIZE AND ADDRESS OF FILE NAME STRING

         34 A5            50     90  0059   161 	MOVB	R0,FAB$B_FNS(R5)	;SIZE OF FILE NAME STRING

         2C A5            51     D0  005D   162 	MOVL	R1,FAB$L_FNA(R5)	;ADDRESS OF FILE NAME STRING

            54            03     E1  0061   163 	BBC	#SEC$V_WRT,R4,60$ 	;BRANCH IF NOT MAPPING FOR WRITE

                          08         0064       

            54            01     E0  0065   164 	BBS	#SEC$V_CRF,R4,60$ 	;COPY ON REF IS STILL READ ONLY

                          04         0068       

         16 A5            01     90  0069   165 	MOVB	#FAB$M_PUT,FAB$B_FAC(R5) ;ACCESS FOR WRITING

         04 A5            11     E2  006D   166 60$:	BBSS	#FAB$V_UFO,FAB$L_FOP(R5),80$ ;SET USER FILE OPEN

                          00         0071       

                                     0072   167 80$:	$OPEN	(R5)			;OPEN THE FILE

                          65     DF  0072       		PUSHAL	(R5)

   00000000'9F            01     FB  0074       		CALLS	#$$.TMP1,@#SYS$OPEN

CREMAPSEC       - CREATE AND MAP A SECTION                       22-AUG-1978 04:23:02   VAX-11 MACRO X0.3-11               Page   5

X0205           CREATE AND MAP SECTION                                                                                           (4)



            40            50     E9  007B   168 	BLBC	R0,EXIT			;BRANCH IF FAILED

                                     007E   169 	$CRMPSC_S -			;CREATE AND MAP THE SECTION

                                     007E   170 		INADR=@INADR(AP),-	;INPUT RANGE DESCRIPTOR

                                     007E   171 		RETADR=@RETADR(AP),-	;RETURN RANGE DESCRIPTOR

                                     007E   172 		FLAGS=R4,-		;SECTION FLAGS

                                     007E   173 		ACMODE=SVACMODE(FP),-	;ACCESS MODE OF SECTION

                                     007E   174 		GSDNAM=@GSDNAM(AP),-	;GLOBAL SECTION NAME DESCRIPTOR

                                     007E   175 		RELPAG=RELPAG(AP),-	;RELATIVE PAGE IN SECTION TO MAP

                                     007E   176 		CHAN=FAB$L_STV(R5),-	;CHANNEL FROM FAB

                                     007E   177 		PAGCNT=PAGCNT(AP),-	;NO. OF SECTION PAGES TO CREATE

                                     007E   178 		VBN=VBN(AP)		;STARTING VIRTUAL BLOCK IN SECTION

                          7E     7C  007E       		CLRQ	-(SP)

                       20 AC     DD  0080       		PUSHL	VBN(AP)

                       1C AC     DD  0083       		PUSHL	PAGCNT(AP)

            7E         0C A5     3C  0086       		MOVZWL	FAB$L_STV(R5),-(SP)

                       14 AC     DD  008A       		PUSHL	RELPAG(AP)

                          00     DD  008D       		PUSHL	#0

                       10 BC     7F  008F       		PUSHAQ	@GSDNAM(AP)

                          54     DD  0092       		PUSHL	R4

                       FC AD     DD  0094       		PUSHL	SVACMODE(FP)

                       08 BC     7F  0097       		PUSHAQ	@RETADR(AP)

                       04 BC     7F  009A       		PUSHAQ	@INADR(AP)

   00000000'GF            0C     FB  009D       		CALLS	#12,G^SYS$CRMPSC

            54            00     E1  00A4   179 	BBC	#SEC$V_GBL,R4,EXIT	;BRANCH IF NOT GLOBAL SECTION

                          16         00A7       

                          50     DD  00A8   180 	PUSHL	R0			;++X0205 REMEMBER STATUS CODE

                                     00AA   181 	$DASSGN_S CHAN=FAB$L_STV(R5)	;DEASSIGN THE CHANNEL FOR GLOBAL SECTION

            7E         0C A5     3C  00AA       		MOVZWL	FAB$L_STV(R5),-(SP)

   00000000'GF            01     FB  00AE       		CALLS	#1,G^SYS$DASSGN

            04            50     E9  00B5   182 	BLBC	R0,90$			;++X0205 BRANCH ON ERROR

                          01     BA  00B8   183 	POPR	#^M<R0>			;++X0205 RESTORE STATUS CODE

                          02     11  00BA   184 	BRB	EXIT			;++X0205 ALL DONE

                          8E     D5  00BC   185 90$:	TSTL	(SP)+			;++X0205 RESTORE STACK POINTER

                                 04  00BE   186 EXIT:	RET				;AND RETURN TO CALLER

                                     00BF   187 

                                     00BF   188 

                                     00BF   189 	.END

CREMAPSEC       - CREATE AND MAP A SECTION                       22-AUG-1978 04:23:02   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (4)



$$.TMP1        = 00000001            BIT...         = 00000003            FAB$M_INP      = 00080000            

$$.TMP2        = 00000065            DIR...         = FFFFFFFF            FAB$M_JNL      = 00400000            

$$T1           = 00000000            EXIT             000000BE R     03   FAB$M_KFO      = 40000000            

ACMODE           00000024            FAB              FFFFFFAC            FAB$M_MSE      = 00000010            

ATR$C_ACLEVEL  = 00000018            FAB$B_BID        00000000            FAB$M_MXV      = 00000002            

ATR$C_ALCONTROL= 0000000E            FAB$B_BKS        0000003E            FAB$M_NAM      = 01000000            

ATR$C_ASCDATES = 0000000D            FAB$B_BLN        00000001            FAB$M_NEF      = 00000400            

ATR$C_ASCNAME  = 00000010            FAB$B_DNS        00000035            FAB$M_NFS      = 00010000            

ATR$C_BAKDATE  = 00000014            FAB$B_FAC        00000016            FAB$M_NIL      = 00000020            

ATR$C_BLOCKSIZE= 0000000B            FAB$B_FNS        00000034            FAB$M_OFP      = 20000000            

ATR$C_CREDATE  = 00000011            FAB$B_FSZ        0000003F            FAB$M_POS      = 00000100            

ATR$C_DIRSEQ   = 0000001B            FAB$B_ORG        0000001D            FAB$M_PPF      = 00040000            

ATR$C_ENDLBLAST= 0000000F            FAB$B_RAT        0000001E            FAB$M_PPF_IND  = 00004000            

ATR$C_EXPDAT   = 00000008            FAB$B_RFM        0000001F            FAB$M_PPF_RAT  = 00003FC0            

ATR$C_EXPDATE  = 00000013            FAB$B_RTV        0000001C            FAB$M_PRN      = 00000004            

ATR$C_FILNAM   = 00000005            FAB$B_SHR        00000017            FAB$M_PUT      = 00000001            

ATR$C_FILTYP   = 00000006            FAB$C_BID      = 00000003            FAB$M_RCK      = 00800000            

ATR$C_FILVER   = 00000007            FAB$C_BLN        00000050            FAB$M_RWC      = 00000800            

ATR$C_FPRO     = 00000016            FAB$C_FIX      = 00000001            FAB$M_RWO      = 00000080            

ATR$C_HEADER   = 0000000A            FAB$C_HSH      = 00000030            FAB$M_SCF      = 00004000            

ATR$C_RECATTR  = 00000004            FAB$C_IDX      = 00000020            FAB$M_SHRDEL   = 00000004            

ATR$C_REVDATE  = 00000012            FAB$C_MAXRFM   = 00000003            FAB$M_SHRGET   = 00000002            

ATR$C_RPRO     = 00000017            FAB$C_REL      = 00000010            FAB$M_SHRPUT   = 00000001            

ATR$C_SEMASK   = 00000019            FAB$C_RFM_DFLT = 00000002            FAB$M_SHRUPD   = 00000008            

ATR$C_STATBLK  = 00000009            FAB$C_SEQ      = 00000000            FAB$M_SPL      = 00002000            

ATR$C_UCHAR    = 00000003            FAB$C_UDF      = 00000000            FAB$M_SQO      = 00000040            

ATR$C_UIC      = 00000015            FAB$C_VAR      = 00000002            FAB$M_SUP      = 00000004            

ATR$C_UIC_RO   = 0000001A            FAB$C_VFC      = 00000003            FAB$M_TEF      = 10000000            

ATR$C_USERLABEL= 0000000C            FAB$K_BLN        00000050            FAB$M_TMD      = 00000010            

ATR$L_ADDR       00000004            FAB$L_ALQ        00000010            FAB$M_TMP      = 00000008            

ATR$S_ACLEVEL  = 00000002            FAB$L_CTX        00000018            FAB$M_TRN      = 00000010            

ATR$S_ALCONTROL= 0000000E            FAB$L_DEV        00000040            FAB$M_UFM      = 04000000            

ATR$S_ASCDATES = 00000023            FAB$L_DNA        00000030            FAB$M_UFO      = 00020000            

ATR$S_ASCNAME  = 00000014            FAB$L_FNA        0000002C            FAB$M_UPD      = 00000008            

ATR$S_BAKDATE  = 00000008            FAB$L_FOP        00000004            FAB$M_UPI      = 00000040            

ATR$S_BLOCKSIZE= 00000002            FAB$L_JNL        00000020            FAB$M_WCK      = 00000200            

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

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

ATR$S_ENDLBLAST= 00000004            FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            

ATR$S_EXPDAT   = 00000007            FAB$L_STS        00000008            FAB$V_BLK      = 00000003            

ATR$S_EXPDATE  = 00000008            FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            

ATR$S_FILNAM   = 00000006            FAB$L_XAB        00000024            FAB$V_CBT      = 00000015            

ATR$S_FILTYP   = 00000002            FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            

ATR$S_FILVER   = 00000002            FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001            

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

ATR$S_HEADER   = 00000200            FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            

ATR$S_RECATTR  = 00000020            FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            

ATR$S_REVDATE  = 00000008            FAB$M_CR       = 00000002            FAB$V_DLT      = 0000000F            

ATR$S_RPRO     = 00000002            FAB$M_CTG      = 00100000            FAB$V_DMO      = 0000000C            

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

ATR$S_STATBLK  = 0000000A            FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            

ATR$S_UCHAR    = 00000001            FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            

ATR$S_UIC      = 00000004            FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001            

ATR$S_UIC_RO   = 00000004            FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            

ATR$S_USERLABEL= 00000050            FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            

ATR$W_SIZE       00000000            FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            

ATR$W_TYPE       00000002            FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            

CREMAPSEC       - CREATE AND MAP A SECTION                       22-AUG-1978 04:23:02   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (4)



FAB$V_MXV      = 00000001            SEC$L_PAGCNT     0000001C  G         

FAB$V_NAM      = 00000018            SEC$L_REFCNT     00000018  G         

FAB$V_NEF      = 0000000A            SEC$L_VBN        00000010  G         

FAB$V_NFS      = 00000010            SEC$L_VPXPFC     00000008  G         

FAB$V_NIL      = 00000005            SEC$L_WINDOW     0000000C  G         

FAB$V_OFP      = 0000001D            SEC$M_AMOD     = 00000300  G         

FAB$V_ORG      = 00000004            SEC$M_CRF      = 00000002  G         

FAB$V_POS      = 00000008            SEC$M_DZRO     = 00000004  G         

FAB$V_PPF      = 00000012            SEC$M_GBL      = 00000001  G         

FAB$V_PPF_IND  = 0000000E            SEC$M_PERM     = 00004000  G         

FAB$V_PPF_RAT  = 00000006            SEC$M_SYSGBL   = 00008000  G         

FAB$V_PRN      = 00000002            SEC$M_WRT      = 00000008  G         

FAB$V_PUT      = 00000000            SEC$S_AMOD     = 00000002  G         

FAB$V_RCK      = 00000017            SEC$S_CRF      = 00000001  G         

FAB$V_RWC      = 0000000B            SEC$S_DZRO     = 00000001  G         

FAB$V_RWO      = 00000007            SEC$S_GBL      = 00000001  G         

FAB$V_SCF      = 0000000E            SEC$S_PERM     = 00000001  G         

FAB$V_SHRDEL   = 00000002            SEC$S_PFC      = 00000008  G         

FAB$V_SHRGET   = 00000001            SEC$S_SYSGBL   = 00000001  G         

FAB$V_SHRPUT   = 00000000            SEC$S_VPX      = 00000016  G         

FAB$V_SHRUPD   = 00000003            SEC$S_WRT      = 00000001  G         

FAB$V_SPL      = 0000000D            SEC$V_AMOD     = 00000008  G         

FAB$V_SQO      = 00000006            SEC$V_CRF      = 00000001  G         

FAB$V_SUP      = 00000002            SEC$V_DZRO     = 00000002  G         

FAB$V_TEF      = 0000001C            SEC$V_GBL      = 00000000  G         

FAB$V_TMD      = 00000004            SEC$V_PERM     = 0000000E  G         

FAB$V_TMP      = 00000003            SEC$V_PFC      = 00000018  G         

FAB$V_TRN      = 00000004            SEC$V_SYSGBL   = 0000000F  G         

FAB$V_UFM      = 0000001A            SEC$V_VPX      = 00000000  G         

FAB$V_UFO      = 00000011            SEC$V_WRT      = 00000003  G         

FAB$V_UPD      = 00000003            SEC$W_FLAGS      00000014  G         

FAB$V_UPI      = 00000006            SEC$W_SECXBL     00000006  G         

FAB$V_WCK      = 00000009            SEC$W_SECXFL     00000004  G         

FAB$W_BLS        0000003C            SVACMODE         FFFFFFFC            

FAB$W_DEQ        00000014            SYS$CRMPSC       ********   X   03   

FAB$W_IFI        00000002            SYS$DASSGN       ********   X   03   

FAB$W_MRS        00000036            SYS$MGBLSC       ********   X   03   

FILNAM           00000018            SYS$OPEN         ********  GX   03   

FLAGS            0000000C            VBN              00000020            

GBL...         = 00000000            XAB$B_BKZ        00000016            

GSDNAM           00000010            XAB$B_BLN        00000001            

INADR            00000004            XAB$B_COD        00000000            

LIB$_CREMAPSEC   00000000 RG    03   XAB$L_NXT        00000004            

PAGCNT           0000001C            XAB$L_RDT0       0000000C            

RELPAG           00000014            XAB$L_RDT4       00000010            

RETADR           00000008            XAB$Q_RDT        0000000C            

SAVABS...      = FFFFFFAC            XAB$W_RVN        00000008            

SCRATCHSIZE      FFFFFFAC            

SEC$B_AMOD       00000015  G         

SEC$B_PFC        0000000B  G         

SEC$C_LENGTH     00000020  G         

SEC$K_LENGTH     00000020  G         

SEC$K_MATALL   = 00000000  G         

SEC$K_MATEQU   = 00000001  G         

SEC$K_MATLEQ   = 00000002  G         

SEC$L_CCB        00000000  G         

SEC$L_GSD        00000000  G         

CREMAPSEC       - CREATE AND MAP A SECTION                       22-AUG-1978 04:23:02   VAX-11 MACRO X0.3-11               Page   8

PROGRAM SECTION SYNOPSIS                                                                                                         (4)







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

LIB$CODE         000000BF      03       PIC   USR   CON   REL   LCL   SHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

16114. BYTES LEFT IN FREE MEMORY POOL.

1952. BYTES OF RECLAIMED MEMORY.

OBJ$:CREMAPSEC,LIS$:CREMAPSEC/-SP=EXECML$/ML,SRC$:CREMAPSEC

6 MLB DIR RDS - 540 GETS TO DEFINE 24 MACROS. 35 INTER. FILE WRITES. 

