.TITLE	GCML
;	CALL GCML(PMTSTR,LENPMT,IERR,BUF,LENBUF)
;	CALL ECML
	.MCALL	GCMLB$,GCMLD$,GCML$,RCML$,CCML$
	GCMLD$
;ALLOW 2 LEVELS OF INDIRECT COMMAND FILES
GCMLB:	GCMLB$	3
GCML::
	BICB	#GE.CLO,GCMLB+G.MODE
	MOV	2(R5),R1
	MOV	@4(R5),R2
	GCML$	#GCMLB,R1,R2
	BCC	10$
	MOV	6(R5),R0
	MOVB	GCMLB+G.ERR,(R0)
	MOVB	GCMLB+F.ERR,2(R0)
	RTS	PC
10$:	CLR	@6.(R5)
	MOV	8.(R5),R0
	MOV	10.(R5),R1
	MOV	GCMLB+G.CMLD,R2
	MOV	GCMLB+G.CMLD+2,R3
	CMP	R2,R1
	BLT	20$
	MOV	#GE.RBG,@6(R5)
	MOV	R1,R2
	DEC	R2
20$:	TST	R2
	BLE	40$
30$:	MOVB	(R3)+,(R0)+
	SOB	R2,30$
40$:	CLRB	(R0)
	RTS	PC
RCML::	RCML$	#GCMLB
	RTS	PC
CCML::	CCML$	#GCMLB
	RTS	PC
	.END