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

; JOB %1(15) TO MAKE FUDGE2.SHR FROM FUDGE2.MAC
; SUBMIT WITH COMMAND  .QUEUE I:=FUDGE2/RESTART:1
;
; REQUIRED FILES:  (LATEST RELEASED VERSIONS)
;[10,7]	PIP.SHR
;	DIRECT.SHR
;	COMPIL.SHR
;	MACRO.SHR
;	LOADER.SHR
;	JOBDAT.REL
;	CREF.SHR
;	HELPER.REL
;[SELF]	FUDGE2.MAC
;	FUDGE2.HLP
;
; OUTPUT FILE:
;	FUDGE2.SHR
; OUTPUT LISTINGS:
;	FUDGE2  MAP
;	FUDGE2  CREF LISTING
;	FUDGE2.LOG
;
;
; COPY FILES FROM [10,7] AND USE PRIVATE "SYS:"
.RUN DSK:PIP[10,7]
*/X_DSK:[10,7]PIP.SHR,COMPIL.SHR,MACRO.SHR,LOADER.SHR
*/X_DSK:[10,7]JOBDAT.REL,CREF.SHR,HELPER.REL
;
; MAKE A RECORD OF WHAT IS BEING USED
.SET WATCH VERSION
.IF (NOERROR) .GOTO A
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=*.SHR+*.REL
;
A:.ASSIGN DSK: SYS:
;
; COMPILE, LOAD, AND SAVE; PRODUCING MAP AND CREF FILE
.LOAD /MAP:LPT:FUDGE2 /CREF /COMPILE FUDGE2.MAC,HELPER.REL %A
.SSAVE DSK:FUDGE2
.VERSION
.IF (ERROR) .E 137
;
; TRY IT JUST TO MAKE SURE IT WORKS
.RUN DSK:FUDGE2
*/H
;
; PRODUCE SOURCE LISTING AND TELL OPERATOR
.CREF

; CREATE 3 COPIES OF THE DOC AND HELP FILES
.RUN PIP[10,7]
*FDGDOC.RNO_FDG???.RND
*FDGHLP.LST_FUDGE2.HLP
.RUN DSK:RUNOFF[10,7]
*FDGDOC.RNO

.RUN DSK:DIRECT[10,7]
*FDGDOC.TMP=FDG???.RND/CHECKSUM/DETAIL
*FDGHLP.TMP=FUDGE2.HLP/CHECKSUM/DETAIL

.RUN TECO[10,7]
*ERFDGDOC.TMPEWFDGDOC.TMPY12I18<13I10I><S
;5<I	>>HXAZJ12IGA12IHPEF
*ERFDGHLP.TMPEWFDGHLP.TMPY12I18<13I10I><S
;5<I	>>HXAZJ12IGA12IEX

.RUN PIP[10,7]
*FDGDOC.LST_FDGDOC.TMP,FDGDOC.LST,FDGDOC.TMP,FDGDOC.LST,FDGDOC.TMP,FDGDOC.LST
*FDGHLP.LST_FDGHLP.TMP,FDGHLP.LST,FDGHLP.TMP,FDGHLP.LST,FDGHLP.TMP,FDGHLP.LST
;
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=FUDGE2.MAC+FUDGE2.HLP+FUDGE2.CTL+FUDGE2.SHR+FDG???.RND
.PLEASE FUDGE2 SUCCESSFUL
;
; REMOVE ALL TEMPORARY FILES
%FIN: .DELETE FUDGE2.REL,MACRO.SHR,LOADER.SHR,CREF.SHR,FDG???.TMP,FDGDOC.RNO
.IF (ERROR) ;DON'T CARE IF FAILED
.DELETE COMPIL.SHR,PIP.SHR,JOBDAT.REL,HELPER.REL
.IF (ERROR)	;
;[END OF FUDGE2.CTL]