.TITLE	.GCML
 
;
; COPYRIGHT (C) 1977
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
; MODIFICATIONS:
;
;	M15A -- CORRECT ERROR ON INDIRECT FAILURE AT MCR LEVEL.
;
;	M15B -- FINISH M15A
;
	.IDENT	/M15B/
 
	.PSECT
.BLK.=.
 
GE.MCR=200		;SET IF LEVEL 0 COMMAND FROM MCR
 
	.MCALL	GCMLD$
	GCMLD$		;DEFINE GCML OFFSET SYMBOLS
 
.=.BLK.+436
TOPOUT:	NOP		;REF LABEL
	NOP
	NOP
	NOP
	NOP
 
.=.BLK.+1036
	CALL	MCRCK		;CHECK FOR RETURN TO MCR LEVEL
	NOP
	NOP
 
	.PSECT	$$PAT
$$PAT=.
MCRCK:	BITB	#GE.MCR,G.MODE(R5)	;RETURN TO MCR LEVEL 0?
	BEQ	10$		;IF EQ NO
	CMP	(SP)+,(SP)+	;CLEAN STACK
	JMP	TOPOUT		;PREPARE TO RRETURN EOF
10$:	RETURN
 
 
	.END