/
/
/
/
/
/
/
/
/
/
/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 NULL

/THIS IS A DO NOTHING SUBROUTINE WHICH HANDLES NULL RECORDS
/USED TO DELIMIT NONCONTIGUOUS RECORDS OR ACT AS A TARGET
/FOR SKIPS TO MULTI-FUNCTION RECORDS.  ( ALLOWS FOR FUNCTIONAL
/EXPANSION.)

	.ENTRY	NULL
	.EXTERNAL DIRLOC,TABLE1
	.FSECT	NULLJ

NULL,	0
	CLA
	TAD	T1
	RDF
	CDF	.FLD
	DCA	NULL10
				/SETUP FOR RETURN
NULL10,	0
	JMP I	NULL

T1,	CDF CIF