BCNTL	MACRO M1110  22-AUG-78 01:39  PAGE 2





      1						.TITLE	BCNTL

      2						.IDENT	/01/

      3					;

      4					; COPYRIGHT   1974,  DIGITAL  EQUIPMENT  CORP.,  MAYNARD,   MASS.

      5					;

      6					; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE

      7					; ON A  SINGLE COMPUTER SYSTEM AND CAN BE  COPIED (WITH INCLUSION

      8					; OF DEC'S COPYRIGHT  NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT

      9					; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC.

     10					;

     11					; THE  INFORMATION  IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT

     12					; NOTICE  AND  SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

     13					; EQUIPMENT CORPORATION.

     14					;

     15					; DEC  ASSUMES NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY

     16					; OF  ITS  SOFTWARE ON  EQUIPMENT WHICH  IS  NOT SUPPLIED BY DEC.

     17					;

     18					;

     19					; C. MONIA	17-JAN-74

     20					;

     21					; VERSION 01

     22					;

     23					; INVOKE ROUTINES TO GENERATE SEGMENT DESCRIPTORS

     24					;

     25					;+

     26					; **-$BCNTL-CALL ROUTINES TO GENERATE SEGMENTS

     27					;

     28					; INPUTS:

     29					;

     30					;	R4: UTILTIY FDB POINTER SETUP WITH DEFAULT NAME BLOCK FOR

     31					;	    INPUT FILE

     32					;

     33					; OUTPUTS:

     34					;

     35					;	NONE.

     36					;

     37					;	THIS ROUTINE IS ENTERED VIA JMP AND RETURNS CONTROL

     38					;	TO $BLDSF (BLDSG) ON COMPLETION.

     39					;

     40					;	THE CONTENTS OF R3-R5 ARE PRESERVED

     41					;-

     42					;

     43	000000				$BCNTL::			;

     44	000000	032764 	000000G	000000G		BIT	#SW$MP,R$SWTH(R4) ; "MP" SWITCH SPECIFIED?

     45	000006	001003 				BNE	20$		; IF NE YES

     46	000010					CALL	$SNGSG		; CREATE SINGLE SEGMENT DESCRIPTION

     47	000014	000402 				BR	30$		;

     48	000016				20$:				;

     49	000016					CALL	$MULSG		; CREATE MULTI-SEGMENT DESCRIPTION

     50	000022				30$:				;

     51	000022	000167 	000000G			JMP	$BLDSF 		;EXIT

     52

     53		000001 				.END

BCNTL	MACRO M1110  22-AUG-78 01:39  PAGE 2-1

SYMBOL TABLE



CR    = 000015   	LF    = 000012   	SPA   = 000040   	$BCNTL  000000RG 	$SNGSG= ****** GX

FF    = 000014   	R$SWTH= ****** GX	SW$MP = ****** GX	$BLDSF= ****** GX	$$    = 000001

HT    = 000011   	R$$11M= 000000   	VT    = 000013   	$MULSG= ****** GX



. ABS.	000000	   000

      	000026	   001

ERRORS DETECTED:  0



VIRTUAL MEMORY USED:  580 WORDS  ( 3 PAGES)

DYNAMIC MEMORY:  2772 WORDS  ( 10 PAGES)

ELAPSED TIME:  00:00:05

OBJ$:BCNTL,LIS$:BCNTL/-SP=SRC$:MACFLM,BCNTL

