Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;CONTROL FILE TO MAKE CREDIR.SHR----%1(50) [12-MAY-74]
;SUBMIT WITH COMMAND .Q I:=CREDIR/REST:1
;
;REQUIRED FILES: (LATEST RELEASED VERSIONS)
;[10,7]	PIP.SHR
;	DIRECT.SHR
;	MACRO.SHR
;	COMPIL.SHR
;	LINK.SHR
;	LNK???.SHR
;	C.MAC
;	SCAN.REL
;	SCNMAC.MAC
;	WILD.REL
;	HELPER.REL
;	JOBDAT.REL
;	CREF.SHR
;[SELF] CREDIR.MAC
;
;OUTPUT FILES:
;	CREDIR.SHR
;
;OUTPUT LISTINGS:
;	CREDIR	CREF LISTING
;	CREDIR.LOG
;
;
;COPY FILES FROM [10,7] AND USE PRIVATE "SYS:"
.RUN DSK:PIP[10,7]
*/X_DSK:[10,7]PIP.SHR,MACRO.SHR,LINK.SHR,LNK???.SHR,COMPIL.SHR,CREF.SHR,C.MAC
*/X_DSK:[10,7]DIRECT.SHR,SCAN.REL,WILD.REL,HELPER.REL,JOBDAT.REL,SCNMAC.MAC
;
;MAKE A RECORD OF WHAT IS BEING USED
.SET WAT VER
.RU DSK:DIRECT
*TTY:/CHE=*.*
.AS DSK SYS
;MAKE U.MAC TO FORCE UNIVERSALS C AND SCNMAC
.COPY U.MAC=TTY:
*%.C==-3

;LOAD AND COMPILE CREDIR
.LOAD /CREF /COM U.MAC+C.MAC,U.MAC+SCNMAC.MAC,CREDIR.MAC,SCAN.REL,HELPER.REL,WILD.REL %"CONT:ZERO"
.SSAVE DSK:CREDIR
.VERSION
.IF (ERROR) .E 137
.RU DSK:DIRECT
*TTY:/CHE=CREDIR.SHR
;
;
;PROD CREF LISTING
.AS DSK LPT
.CREF
.DEAS
%FIN: .DEL MACRO.SHR,DIRECT.SHR,JOBDAT.REL,HELPER.REL,CREF.SHR,SCAN.REL,WILD.REL,C.*
.DEL *.TMP,LINK.SHR,LNK???.SHR,SCNMAC.*,PIP.SHR,COMPIL.SHR
.IF (ERROR)      ;DON'T CARE
.PRI /DISP:RENAME CREDIR.LST,CREDIR.LOG/DISP:DELETE,/COP:3 CREDIR.DOC
.K/F