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

; Job %1(2) to make DSKRAT.SAV from DSKRAT.MAC
; Submit with command .SUBMIT DSKRAT/RESTART:1/TIME:10:0/UNIQ:0

; Required files: [10,7]  (Latest released versions)
;	MACRO.SHR
;	LOADER.SHR
;	COMPIL.SHR
;	JOBDAT.REL
;[SELF] DSKRAT.MAC
;	DSR???.RN?	; DSKRAT DOC FILE
;	DSKRAT.HLP
;	DSKRAT.RNB	; BEWARE FILE

; Output files
;	DSKRAT.SAV
;	DSKRAT.MAP
;	DSKRAT.LST
;	DSKRAT.LOG

.PLEASE DSKRAT SUBMISSION CONTROL FILE INITIALIZING

; Copy files from [10,7] and use private "SYS:"
.RUN DSK:PIP[10,7]
*DSK:(XB)_[10,7]MACRO.SHR,LOADER.SHR,COMPIL.SHR,JOBDAT.REL

; Make a record of what is being used
.SET WATCH VERSION
.IF (NOERROR) .GOTO A
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=*.SHR
A::.ASSIGN DSK: SYS:

; Compile, Load, Save, and Testing Section
.LOAD /MAP:DSKRAT /CREF /COMPILE DSKRAT
.SAV DSK:DSKRAT

; Try it just to make sure it works
.RUN DSK:DSKRAT
.IF (ERROR)	; OK, ERRORS ARE EXPECTED

.DEASSIGN


; Produce source listing
.RUN CREF[10,7]
*DSK:DSKRAT.LST_DSKRAT.CRF
;
; Now get checksummed directories of all files
.RU DIRECT[10,7]
*TTY:=/CHECKSUM DSKRAT.MAC,DSKRAT.SAV,DSKRAT.CTL,DSR???.RN?,DSKRAT.HLP,DSKRAT.RN?

; Submission tape creation routine
.OPERATOR %
.RUN TECO[10,7]
*!AGAIN!

*% PLEASE DSKRAT.CTL - MAKE A SUBMISSION DECTAPE<YES/NO>?
*
HK0UM
*!LOOP!UMQM-13"EOLOOP'QM-27"E10UM'QM-10"NQMIOLOOP'
*BJH-3"E:SYES"SOYES''
*H-2"E:SYE"SOYES':SNO"SONO''
*H-1"E:SY"SOYES':SN"SONO''OAGAIN
*!YES!

*YES, MAKE THE TAPE
*
OEND!NO!

*? NO, FORGET MAKING THE TAPE
=
!END!
.NOOPERATOR
.IF (ERROR) .GOTO OVER

MAKE::.MOUNT DTA:DEC/VID:'DSKRAT SUBMISSION TAPE'/WE
.RU PIP[10,7]
*DEC:^^DSKRAT^^_/Z
.IF (ERROR)	; OK, we can do without the ID
*DEC:(XB)_DSK:DSKRAT.MAC,DSKRAT.SAV,DSKRAT.CTL,DSR???.RN?,DSKRAT.HLP,DSKRAT.RNB
.IF (NOERROR) .GOTO CONT
.PLEASE DSKRAT - TROUBLE MAKING SUBMISSION DTA<TRY AGAIN?>
.DEASSIGN
.BACKTO MAKE

CONT::.DIR DEC:
.PLEASE DSKRAT - OPERATOR GET A DIRECTORY OF DSKRAT SUBMISSION TAPE & DISMOUNT
.REWIND DEC:
.IF (ERROR)
.DEASSIGN

OVER::.RUN PIP[10,7]
*DSKRAT.RUN_DSR???.RND
.RUN RUNOFF[10,7]
*DSKRAT.RUN
*DSKRAT.DOC
*DSKRAT.RNB
*DSKRAT.BWR
.DELETE DSKRAT.RUN
.IF (ERROR)

; BLAK Pack update routine
.OPERATOR %
.RUN TECO[10,7]
*!AGAIN!

*% PLEASE DSKRAT.CTL - UPDATE THE BLAK PACKS<YES/NO>?
*
HK0UM
*!LOOP!UMQM-13"EOLOOP'QM-27"E10UM'QM-10"NQMIOLOOP'
*BJH-3"E:SYES"SOYES''
*H-2"E:SYE"SOYES':SNO"SONO''
*H-1"E:SY"SOYES':SN"SONO''OAGAIN
*!YES!

*YES, UPDATE THE BLAK PACKS
*
OEND!NO!

*? NO, FORGET UPDATING THE BLAK PACKS
=
!END!
.NOOPERATOR
.IF (ERROR) .GOTO NOUPD

UPD::.MOUNT BLKF:/VID:'DSKRAT SUBMISSION CONTROL FILE'
.IF (ERROR) .GOTO NOUPD
.RU PIP[10,7]
*BLKF:[7,1242](XB)<100>_DSKRAT.MAC,DSKRAT.SAV,DSKRAT.CTL,DSR???.RN?,DSKRAT.HLP
.IF (NOERROR) .GOTO BCON
.PLEASE DSKRAT - TROUBLE UPDATING THE BLAK PACKS<TRY AGAIN?>
.BACKTO UPD

BCON::.PLEASE DSKRAT - BLAK PACKS UPDATED SUCCESSFULLY

NOUPD::.PLEASE DSKRAT SUCCESSFUL

; Remove all temporary files

%ERR::
%CERR::
%FIN::.DEASSIGN
.DELETE MACRO.SHR,LOADER.SHR,COMPIL.SHR,JOBDAT.REL
.IF (ERROR) 	; Don't care if failed
.PLEASE DSKRAT DONE
.PRINT DSKRAT.LST,DSKRAT.MAP/DISP:REN,DSKRAT.HLP/COP:3,DSKRAT.BWR/COP:3,DSKRAT.DOC/COP:3,DSKRAT.LOG
.IF (ERROR) .GOTO END
.K/F
END: