.TITLE	HCSETQ
	.ENABL	LC
;
;	CALL HCSETQ -- This subroutine describes and defines
;	character set Q.
;
	.PSECT	HCSETQ
				;
HCSETQ::TST	READQ		;READ IN DESCRIPTIONS AND DEFINITIONS?
	BNE	A		;BRANCH IF ALREADY DONE
				;
	MOV	R5,-(SP)	;SAVE R5
	MOV	#LIST,R5	;SET ARGUMENT LIST
	JSR	PC,HCSGET	;GET INFORMATION
	MOV	(SP)+,R5	;RESTORE R5
	MOV	#-1,READQ	;SET READQ TO .TRUE.
				;
A:	MOV	#DSCRB,DES
	MOV	#DFN,DEF
	MOV	LL,LL0D
	MOV	SCL,SCALED
	MOV	SCL+2,SCALED+2
	RTS	PC
				;
READQ:	.WORD	0
LIST:	.WORD	5,NAME,LL,SCL,DSCRB,DFN
NAME:	.ASCIZ	/[1,7]HCSETQ.DAT/
	.EVEN
LL:	.WORD
SCL:	.FLT2	0.
DSCRB:	.BLKW	256.
DFN:	.BLKW	3000.