.TITLE	GETYPE
	.MCALL	FDOF$L
	FDOF$L
GETYPE::	MOV	@2(R5),R2
	MOV	@#$OTSV,R3
	JSR	PC,$FCHNL
	MOV	14+F.FTYP(R0),R0
	RTS	PC
	.END