.TITLE	HCST37
;
;	CALL HCST37 -- This subroutine describes and defines
;	character set O7 (37).
;
	.PSECT	HCST37,PIC,SHR,NOWRT
	.ENTRY	HCST37,^M<>
	MOVAL	DSCRB,DES		;STORE DESCRIPTOR TABLE ADDRESS
	MOVAL	DFN,DEF			;STORE THE DEFINITION ADDRESS
	MOVL	#64.,LL0D		;SET UP DEFAULT LOWER LEFT COINER
	MOVF	SCL,SCALED		;SETUP REST OF THE DEFAULT VALUES
	RET				;RETURN TO CALLER

				;
;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:	.LONG	5,NAME,LL,SCL,DSCRB,DFN
;NAME:	.ASCIZ	/DB0:[4,7]HCST37.DAT/
	.EVEN
LL:	.WORD
SCL:	.FLOAT	0.
DSCRB:	.BLKW	256.
DFN:	.BLKW	4500.