Google
 

Trailing-Edge - PDP-10 Archives - BB-J713A-BM - 4-sources/chead.mac
There are 15 other files named chead.mac in the archive. Click here to see a list.
	SUBTTL	GENERAL CUSP MACROS		%10(164)	12-OCT-74

	.XCREF
	IFNDEF	%.C,<XLIST>


;***COPYRIGHT 1971, 1972, 1973, 1974  DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***


;THIS IS A HEADER FILE TO PRODUCE C.MAC GIVEN MACTEN.MAC
;AND UUOSYM.MAC. THE THREE OF THEM CONCATENATED ARE AN EXACT
;REPLACEMENT FOR THE OLD C.MAC.  REFERENCES TO C.MAC SHOULD
;GO AWAY IN FAVOR OF "SEARCH	MACTEN,UUOSYM".


;DEFINE %.C TO LIST FILE
;DEFINE %.C==-1 TO ASSEMBLE C IN BOTH PASSES
;DEFINE %.C==-2 TO ALSO INCLUDE END STATEMENT
;DEFINE %.C==-3 TO MAKE C A UNIVERSAL FILE
;DETERMINE IF SPECIAL ASSEMBLY NEEDED

IF1,<%..C==1	;ALWAYS ASSEMBLE PASS1
    IFDEF %.C,< IFE %.C+2,<TITLE C -- LISTING OF C.MAC (CUSP PARAMETER FILE)>
		IFE %.C+3,<UNIVERSAL C -- CUSP PARAMETER UNIVERSAL SYMBOL TABLE
			.DIRECTIVE	.NOBIN>
>	>
IF2,<IFNDEF %.C,<%..C==0>	;SUPPLY VALUE IF USER DIDN'T
     IFDEF %.C,<%..C==%.C	;USE USER'S VALUE FOR PASS2>
>

;DEFINE JOBDAT LOCATIONS WHICH CAN BE LOC-ED TO

IFN %..C+3,<
	.CREF
	GLOB	<.JB41,.JBCST,.JBOPS,.JBREN,.JBVER>
	.XCREF
>


	.CREF
	LIST
	SALL		;CLEAN EXPANSION LISTINGS
IFE %..C,<PURGE %.C,%..C
	TAPE>	;SKIP REST IF NO ASSEMBLY NEEDED