.TITLE	HCST37
	.ENABL	LC
;
;	CALL HCST37 -- This subroutine describes and defines
;	character set O7 (37).
;
	.PSECT	HCST37
				;
HCST37::TST	READO		;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,READO	;SET READO TO .TRUE.
				;
A:	MOV	#DSCRB,DES
	MOV	#DFN,DEF
	MOV	LL,LL0D
	MOV	SCL,SCALED
	MOV	SCL+2,SCALED+2
	RTS	PC
				;
LIST:	.WORD	5,NAME,LL,SCL,DSCRB,DFN
NAME:	.ASCIZ	/DB0:[4,7]HCST37.DAT/
	.EVEN
LL:	.WORD
SCL:	.FLT2	0.
DSCRB:	.BLKW	256.
DFN:	.BLKW	4500.