.TITLE	SLPR11
;
; COPYRIGHT (C) 1977
; DIGITAL EQUIPMENT CORPORATION MAYNARD MASS. 01754
;
;
; MODIFICATIONS:
;
;	07A -- PASS LOWER CASE FROM COMMAND INPUT FILE
;
	.IDENT	/07A/
	.PSECT
.BLK.=.
	.MCALL	GCMLD$
	GCMLD$		;DEFINE GCML OFFSET SYMBOLS
.=.BLK.+436
	CALL PAT1		;SET UP MODE BITS IN BCML BLOCK
	NOP
.=.BLK.
	.PSECT	$$PAT1
$$PAT1=.
PAT1:	BICB	#GE.CLO,G.MODE(R0)	;CLEAR CLOSE AFTER 
	BISB	#GE.LC,G.MODE(R0)	;PASS LOWER-CASE THROUGH
	RETURN
.=$$PAT1
	.END