Trailing-Edge
-
PDP-10 Archives
-
ap-c796e-sb
-
failsa.ctl
There are no other files named failsa.ctl in the archive.
; JOB %1(17) TO MAKE FAILSA.SAV & FAILWC.SAV FROM FAILSA.MAC
; SUBMIT WITH COMMAND .QUEUE I:=FAILSA/RESTART:1
; FAILSA.OPR 12 OCT. 1971
;
;$=ALTMODE
;
;ASSEMBLY & LOADING INSTRUCTIONS FOR FAILSAFE FOR SYSTEMS NOT DESIRING
;AUTOMATIC REWINDS EXCEPT AT END OF TAPE. THIS IS THE STANDARD VERSION.
;
;.LOAD FAILSA.MAC
;.SAVE DSK: FAILSA
;
;ASSEMBLY AND LOADING INSTRUCTIONS FOR SYSTEMS DESIRING AUTOMATIC REWINDS
;BEFORE AND AFTER EXECUTION OF EACH COMMAND. SEE BELOW FOR OTHER OPTIONS.
;NOTE THAT DETAILED EXPLANATIONS ARE AVAILABLE IN THE SOURCE,
;SHOULD QUESTION ARISE AS TO WHAT IS BEING GENERATED.
;
;[DISK FILE PARAMS.MAC CONSISTS OF: REWIND==1]
;
;.R PIP
;*DSK:FAILSA.NEW/B_PARAMS.MAC,FAILSA.MAC
;*^C
;.R MACRO
;*DSK:FAILSA,_FAILSA.NEW
;*^C
;.R LOADER
;*FAILSA$
;EXIT
;.SAVE DSK: FAILSA
;
;
; NOTE: TO MAKE FAILWC, INCLUDE IN PARAMS.MAC
; THE STATEMENT
; LEVELC==200000 ;LEVELC COMPATIBILITY CODE TO BE ASSEMBLED
; CREATE FAILSA.NEW (AS ABOVE) BY COMBINING PARAMS.MAC AND FAILSA.MAC
; ASSEMBLE FAILSA.NEW, CREATING FAILSA.REL (AS ABOVE)
; LOAD FAILSA.REL(AS ABOVE)
; BUT SAVE AS FAILWC [SAVE DSK:FAILWC]
;
; THE FOLLOWING ARE THE ASSEMBLY PARAMETERS AND THEIR DEFAULT VALUES
;
;IFNDEF DEBUG,<DEBUG==0> ;IF NOT DEBUGGING = PRODUCTION
;
;IFNDEF PAGING,<PAGING==0> ;IF DESIRED, TYPE OUT TEXT CAN BE HELD
; ; IN THE LITERAL POOL NOTE THAT THE
; ; LINK WORD CAN SOMETIMES BE AS LONG
; ; AS THE MESSAGE
;
;IFNDEF NONSTP,<NONSTP==0> ;NON-0 = MULTIPLE PASSES NON-0 IS THE
; ; HOOK FOR IMPLEMENTING AN AUTOMATIC
; ; SWITCH-OVER FROM DRIVE N TO DRIVE N+1.
; ; NORMALLY (FOR THE PRESENT, LEAVE = 0)
;
;IFNDEF PRIVL,<PRIVL==0> ;NON-0=ONLY 1,2 CAN FIDDLE AROUND WITH
; ; OTHER PEOPLES' DISK AREAS
;
;IFNDEF REWIND,<REWIND==0> ;0=NO AUTOMATIC REWINDS
;
;IFNDEF SFDDIR,<SFDDIR==0> ;SUB-FILE DIRECTORIES
;
;IFNDEF ALPJ1S,<ALPJ1S==1> ;NORMALLY, PROJECT 1 ALWAYS BYPASSES THE
; ; /E /F CRITERIA CHECK ON SAVE
;
;IFNDEF ALPJ1R,<ALPJ1R==1> ;NORMALLY, PJ 1 LIKEWISE BYPASSES CHECK
; ; FOR /F & /E ON RESTORE
;
;IFNDEF UNLOAD, <UNLOAD==1> ;UNLOAD TAPE FROM DRIVE ON FULL REEL AT
; ; RESTORE AND SAVE TIME
;
;IFNDEF LOCK, <LOCK==1> ;TRY TO LOCK YOURSELF IN CORE DURING /S
; ; (SAVE) TIME RATIONALE BEHIND NOT DOING
; ; SAME DURING /R IS THAT THIS (/R) WILL
; ; BE DONE PRETTY CLOSE TO STAND ALONE
;
;IFNDEF ALFLEX,<ALFLEX==0> ; ALL FILES LESS THAN OR = ALFLEX WORDS
; ; ARE RESTORED; NO FILES ARE RESTORED OR
; ; SAVED UNCONDITIONALLY HOWEVER, FILES
; ; LESS THAN OR = ALFLEX WILL BYPASS
; ; THE /E & /F CHECKS
;
;IFNDEF BELL,<BELL==0> ;IF BELL IS ASSEMBLED POSITIVE,
; ; GENERATE CODE TO GIVE "BELL" + *
; ; INSTEAD OF JUST * WHENEVER A COMMAND
; ; HAS BEEN PROCESSED
;
;IFNDEF COMUFD,<COMUFD==0> ;NORMALLY (COMUFD=0) COMPRESS UFD'S..
; ; DEALLOCATE UNUSED BLOCKS
;
;IFNDEF COMFIL,<COMFIL==0> ;CONTRARIWISE, FILES ARE NORMALLY LEFT
; ; "EXPANDED".
;
;IFNDEF MINREL,<MINREL==0> ;ATTEMPT TO MINIMIZE NUMBER OF RELEASE
; ; UUOS
;
;IFNDEF LEVELC,<LEVELC==000000> ;"0" IMPLIES FAILSA ;"200000" IMPLIES
; ; FAILWC WHICH ALLOWS 5-SERIES TO
; ; 4-SERIES RESTORES.
;***N.B. IF LEVELC=0 THE VERSION NUMBER IS INCREMENTED BY 1.***
;
;
;
;REQUIRED FILES: (LATEST RELEASED VERSIONS)
;[10,7] PIP.SHR
; DIRECT.SHR
; COMPIL.SHR
; MACRO.SHR
; LOADER.SHR
; JOBDAT.REL
; CREF.SHR
;[SELF] FAILSA.MAC
; FAILSA.HLP
;
;OUTPUT FILES:
; FAILSA.SAV
; FAILWC.SAV
;OUTPUT LISTINGS:
; FAILSA MAP
; FAILSA CREF LISTING
; FAILSA.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:JOBDAT.REL[10,7],CREF.SHR[10,7],LINK.SHR[10,7],LNK???.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=FAILSA.*+JOBDAT.REL
;****HERE INCLUDE OTHER SUBROUTINES AND THEIR CHECKSUM****
;*****EXAMPLES ARE SCANER,QUEUER ETC *****
.ASSIGN DSK: SYS:
;
;COMPILE, LOAD, AND SAVE; PRODUCING MAP AND CREF FILE
.LOAD /MAP:LPT:FAILSA /CREF /COMPILE FAILSA.MAC
.SAVE DSK:FAILSA
.VERSION
.IF (ERROR) .E 137
;
;TRY IT JUST TO MAKE SURE IT WORKS
.RUN DSK:FAILSA
*/H
.RU DSK: DIRECT[10,7]
*TTY:/CHECKSUM=FAILSA.SAV
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR
.CREF
; NOW REPEAT FOR FAILWC, ONLY DISPENSE WITH LISTINGS
.R MACRO
*FAILWC,_TTY:,D:FAILSA
* LEVELC==200000 ;ENABLE LEVELC RESTORES
*^Z
*^Z
.LOAD FAILWC/M
.SAV FAILWC
.VERSION
.IF (ERROR) .E 137
; INSURE FAILWC WORKS TOO
.RU DSK:FAILWC
*/H
.PLEASE FAILSA SUCCESSFUL
;
;REMOVE ALL TEMPORARY FILES
%FIN: .DELETE FAILSA.REL,MACRO.SHR,CREF.SHR,LINK.SHR,LNK???.SHR
.IF (ERROR) ;DON'T CARE IF FAILED
.DELETE COMPIL.SHR,PIP.SHR,JOBDAT.REL