Trailing-Edge
-
PDP-10 Archives
-
bb-d868c-bm_tops20_v4_2020_distr
-
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