/
/
/
/
/
/
/
/
/
/
/COPYRIGHT  (C)		1978,1979 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/
/
/
/
/
/
/
/VERSION=1
/
	.TITLE SUBROUTINE TYPE

/THIS SUBROUTINE DETERMINES THE TYPE OF RECORD
/CURRENTLY BEING SERVICED BY RETURNING AN
/UNPACKED SINGLE CHARACTER IN TYPE.

	.ENTRY	TYP
	.EXTERNAL TYPE,TABLE1,RECLOC,OVRPTR
	.FSECT	TYPER
TYP,	0
	CLA
	TAD	T1
	RDF
	CDF	.FLD
	DCA	TYPE10
	CDF	TABLE1
				/SETUP FOR RETURN
	TAD I	T2
	TAD I	T3
	DCA	11
	TAD I	11
	AND	T4
	DCA I	T5
				/GET FIRST OS/8 PACKED CHARACTER
				/MASK IT, AND STORE IN SYSTEM TABLE AREA
TYPE10,	0
	JMP I	TYP
T1,	CDF CIF
T2,	RECLOC
T3,	OVRPTR
T4,	377
T5,	TYPE