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

;JOB%1(15) TO MAKE LOGOUT.SHR FROM LOGOUT.MAC
;SUBMIT WITH COMMAND  .QUEUE I:=LOGOUT/RESTART:1
;
;REQUIRED FILES:  (LATEST RELEASED VERSIONS)
;[10,7]	PIP.SHR
;	DIRECT.SHR
;	COMPIL.SHR
;	MACRO.SHR
;	LINK.SHR
;	LNK999.SHR
;	LNKERR.SHR
;	LNKLOD.SHR
;	LNKMAP.SHR
;	LNKSCN.SHR
;	LNKXIT.SHR
;	JOBDAT.REL
;	CREF.SHR
;[SELF]	LOGOUT.MAC
;
;OUTPUT FILES:
;	LOGOUT.SHR
;OUTPUT LISTINGS:
;	LOGOUT  MAP
;	LOGOUT  CREF LISTING
;	LOGOUT.LOG
;
;
;COPY FILES FROM [10,7] AND USE PRIVATE "SYS:"
.RUN DSK:PIP[10,7]
*/X_DSK:PIP.SHR[10,7],COMPIL.SHR[10,7],MACRO.SHR[10,7]
*/X_DSK:LINK.SHR[10,7],LNK999.SHR[10,7],LNKERR.SHR[10,7],LNKLOD.SHR[10,7]
*/X_DSK:LNKMAP.SHR[10,7],LNKSCN.SHR[10,7],LNKXIT.SHR[10,7]
*/X_DSK:JOBDAT.REL[10,7],CREF.SHR[10,7]
;
;MAKE A RECORD OF WHAT IS BEING USED
.SET WATCH VERSION
.IF (NOERROR) .GOTO A
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=*.SAV+*.SHR+*.HLP
.GOTO A
A:.RUN DSK: DIRECT[10,7]
*TTY:/CHECKSUM=LOGOUT.MAC,JOBDAT.REL,LOGOUT.CTL
*TTY:/CHECKSUM=LOGOUT.DOC,LGT???.RND
.ASSIGN DSK: SYS:
;
;COMPILE, LOAD, AND SAVE; PRODUCING MAP AND CREF FILE
.LOAD /MAP:LPT:LOGOUT /CREF /COMPILE LOGOUT.MAC
.SSAVE DSK:LOGOUT
.VERSION
.IF (ERROR) .E 137
;
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=LOGOUT.SHR+LOGOUT.LOW+LOGOUT.SAV
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR
.CREF
.PLEASE LOGOUT SUCCESSFUL
.DEASSIGN	;REMOVE LOGICAL SYS:
;
;REMOVE ALL TEMPORARY FILES
%FIN: .DELETE LOGOUT.REL,MACRO.SHR,CREF.SHR
.IF (ERROR) ;DON'T CARE IF FAILED
.DELETE LINK.SHR,LNK999.SHR,LNKERR.SHR,LNKLOD.SHR,LNKMAP.SHR,LNKSCN.SHR,LNKXIT.SHR
.IF (ERROR) ;DON'T CARE IF FAILED
.DELETE COMPIL.SHR,PIP.SHR,JOBDAT.REL