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

;JOB%23(2) TO MAKE LINED.SHR FROM LINED.MAC
;SUBMIT WITH COMMAND  .QUEUE I:=LINED/RESTART:1
;
;REQUIRED FILES:  (LATEST RELEASED VERSIONS)
;[10,7]	PIP.SHR
;	DIRECT.SHR
;	COMPIL.SHR
;	MACRO.SHR
;	LINK.SHR
;	LNK???.SHR
;	CREF.SHR
;	QUEUE.SHR,QUEUE.LOW,QMANGR.SHR
;[SELF]	LINED.MAC
;	LINED.DOC
;	LINED.CTL
;
;OUTPUT FILE:
;	LINED.SHR
;OUTPUT LISTINGS:
;	LINED  MAP
;	LINED.DOC
;	LINED  CREF LISTING
;	LINED.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],LINK.SHR[10,7]
*/X_DSK:LNK???.SHR[10,7]
*/X_DSK:CREF.SHR[10,7],QUEUE.SHR[10,7],QUEUE.LOW[10,7],QMANGR.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+*.REL
.GOTO A
A:.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=LINED.MAC+LINED.DOC
.ASSIGN DSK: SYS:
;
.Q LINED.DOC
;COMPILE, LOAD, AND SAVE; PRODUCING MAP AND CREF FILE
.LOAD /MAP:LPT:LINED /CREF /COMPILE LINED.MAC
.SSAVE DSK:LINED
.VERSION
.IF (ERROR) .E 137
;
;TRY IT JUST TO MAKE SURE IT WORKS
.RUN DSK:LINED
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=LINED.SHR
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR
.CREF
.PLEASE LINED SUCCESSFUL
;
;REMOVE ALL TEMPORARY FILES
%FIN: .DELETE LINED.REL,MACRO.SHR,LINK.SHR,LNK???.SHR,CREF.SHR
.IF (ERROR) ;DON'T CARE IF FAILED
.DELETE COMPIL.SHR,PIP.SHR,QUEUE.SHR,QUEUE.LOW,QMANGR.SHR

;FOR ANY NON-STANDARD VERSION OF LINED ASSEMBLE AS FOLLOWS:
;
;.R MACRO
;*LINED_TTY:,DSK:LINED.MAC
;PURE=0			((INCLUDE IF NON-REENTRANT WANTED))
;CCLSW=0		((INCLUDE IF CCL NOT WANTED))
;TEMP=0			((INCLUDE IF TMPCOR UUO DOES NOT EXIST))
;^Z
;^Z