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

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