Trailing-Edge
-
PDP-10 Archives
-
scratch
-
10,7/unscsp/failsa/failsa.opr
There are 6 other files named failsa.opr in the archive. Click here to see a list.
FAILSA.OPR 2 AUG. 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]
SIMILARLY, INCLUDING THE FOLLOWING DEFINITIONS IN PARAMS.MAC
DEBUG=1 (GENERATES CODE WHICH FACILITATES DEBUGGING)
[NORMAL CASE IS DEBUG=0]
PRIVL=1 (GENERATES CODE WHICH RESTRICTS /G & /O TO 1,2)
[NORMAL CASE IS PRIVL=0]
ALPJ1R=0 (ELIMINATES CODE WHICH BYPASSES PROJECT 1 FILES FROM /F AND /E CRITERIA CHECKS ON RESTORE)
[NORMALLY, ALPJ1S AND ALPJ1R =NOT DEFINED EXPLICITLY
AND ARE THEREFORE SET TO 1 INTERNALLY, SETTING UP THE BYPASS]
ALPJ1S=0 (ELIMINANTES CODE WHICH BYPASSES ALL PROJECT 1 FILES FROM /E AND /F CRITERIA CHECKS ON SAVE)
BELL=1 (GENERATES CODE WHICH GIVES ^G + * IN LIEU OF *)
[NORMALLY, BELL=0]
LEVELC=200000 (GENERATES CODE WHICH ALLOWS 5-SERIES TAPES TO BE RESTORED TO 4-SERIES SYSTEMS)
NOTE WELL:* IF LEVELC IS 000000, VERSION # IS INCREMENTED BY 1, WITH RESPECT TO LEVELC=200000! *
[NORMALLY, LEVELC=0]
PAGING=1 (GENERATES LINKED LITERAL TEXT SUCH THAT IN-
FREQUENTLY USED MESSAGES WILL RESIDE IN A CONTIGUOUS AREA, SOMEWHAT
REMOVED FROM THE MAIN BODY OF EXECUTABLE CODE. NOTE THAT THE LINK GEN-
ERATED OFTEN TIMES INCREASES THE AMOUNT OF CORE NECESSARY TO DELIVER THE MESSAGE)
[PAGING=0 NORMALLY]