Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0002/filddt.ddt
There are 3 other files named filddt.ddt in the archive. Click here to see a list.
"/This file contains patches to the EXEC to make it interface with Tops-20/
"/ SAIL. DEC's EXEC was designed to interface to Tops-10 SAIL./
"/ Tops-20 SAIL requires two patches:/
"/ 1) That SYS:LOWTSA be loaded first in any SAIL load. It/
"/ must be the first thing loaded./
"/ 2) That directory names be put out instead of PPN's in/
"/ the command to the compiler./
"/ This file contains (1). 2) is too complex for sites not having/
"/ source. Fortunately 2) only matters if you are trying to compile/
"/ files on someone else's directory, which is an abnormal situation./
"/ This file has been tested with the 3 and 3A EXEC's as distributed/
"/ by DEC./
"/SAILF is a flag that is 0 if any sail modules are being loaded, -1 if not/
100/SAILF:
"/SAIL1 is a routine that puts the request for SYS:LOWTSA into the command/
"/ to LINK. If desired, SAI:LOWTSA can be used, and LOWTSA put in SAI:/
PAT..+1/"/SYS:LOWTSA/
PAT..+3/0
PAT..+4/SAIL1:HRROI B,PAT..+1
PAT..+5/PUSHJ P,TSOUT0
PAT..+6/JRST EOLOUT
PAT..+7/PAT..:
"/Here we initialize SAILF to -1, i.e. no SAIL modules:/
CSCAN1+4/<SETOM SAILF>
"/Here we put out SYS:LOWTSA if there are any SAIL modules:/
P2ST+15/<SKIPL SAILF
PAT..+1/PUSHJ P,SAIL1>
"/Here we set SAILF to 0 when we see a SAIL module:/
RDCMA2+16/
Q+1/<CAIN B,LT.SAI
PAT..+1/SETZM SAILF>
SWLTYP/<CAIN B,LT.SAI
PAT..+1/SETZM SAILF>