"/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>