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





      1						.TITLE	CMLCL

      2						.IDENT	/01/

      3

      4					;

      5					; COPYRIGHT   1973,  DIGITAL  EQUIPMENT  CORP.,  MAYNARD,   MASS.

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

      7					;

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

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

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

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

     12					;

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

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

     15					; EQUIPMENT CORPORATION.

     16					;

     17					; DEC  ASSUMES NO  RESPONSIBILITY  FOR  THE  USE  OR RELIABILITY

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

     19					;

     20					; VERSION 01

     21					;

     22					; C.MONIA 08-FEB-74

     23					;

     24					; RESET GCML CONTROL BLOCK

     25					;

     26					; MACRO LIBRARY CALLS

     27					;

     28

     29						.MCALL	RCML$

     30

     31					;

     32					;+

     33					; **-$CMLCL-RESET GCML CONTROL BLOCK

     34					;

     35					; INPUTS:

     36					;

     37					;	NONE

     38					;

     39					; OUTPUTS:

     40					;

     41					;	GCML CONTROL BLOCK IS RE-INITIALIZED

     42					;

     43					;-

     44

     45	000000				$CMLCL::			;

     46	000000	016700 	000000G			MOV	$INIPT,R0	; GET RECORD BLOCK POINTER

     47	000004					CALL	$STRCB		; SET RECORD BLOCK RESIDENT

     48	000010					RCML$	$CMIPT		; RESET TO ZERO LEVEL

     49	000020					RETURN			;

     50

     51		000001 				.END

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

SYMBOL TABLE



CR    = 000015   	LF    = 000012   	SPA   = 000040   	$CMLCL  000000RG 	$$    = 000001

FF    = 000014   	PAR$$$= 000067   	VT    = 000013   	$INIPT= ****** GX	.GCML2= ****** G

HT    = 000011   	R$$11M= 000000   	$CMIPT= ****** GX	$STRCB= ****** GX



. ABS.	000000	   000

      	000022	   001

ERRORS DETECTED:  0



VIRTUAL MEMORY USED:  666 WORDS  ( 3 PAGES)

DYNAMIC MEMORY:  2772 WORDS  ( 10 PAGES)

ELAPSED TIME:  00:00:05

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

