perm filename HEAD.MS[MEW,AIL] blob sn#091950 filedate 1974-03-19 generic text, type T, neo UTF8

	1) HEAD vs. 2) HEAD[S,AIL]	SRCCOM	03-19-74	01:57	PAGES 1,1

******** HEAD **** PAGE 1
1)	COMMENT ⊗   VALID 00017 PAGES VERSION 17-2(77)
1)	RECORD PAGE   DESCRIPTION
1)	 00001 00001
1)	 00003 00002	HISTORY
1)	 00010 00003	 INTRODUCTION
1)	 00011 00004	  SWITCHES : AN INTRODUCTION
1)	 00016 00005	 SWITCH SETTINGS & MACROS
1)	 00024 00006	 THE FILSPC STUFF -- OLDER HISTORY 
1)	 00026 00007	 FILSPC FILES
1)	 00031 00008	 NARRATIVE FILSPC ACCOUNTS
1)	 00037 00009	LISTING CONTROL MACROS & THE LIKE
1)	 00044 00010	 MACHINE-EXTENDING MACROS (SOME USEFUL CONSTANT, STORAGE/STORAGE MANIPULATORS)
1)	 00049 00011	  TELETYPE COMMUNICATION MACROS
1)	 00052 00012	  INPUT/OUTPUT AIDS
1)	 00055 00013	 RANDOM OTHER MACROS
1)	 00057 00014	TBITS DEFINITIONS
1)	 00062 00015	 VARIOUS DEFINITIONS OF USER UUO'S.
1)	 00064 00016	DSCR USER DATA AREA TEMPLATE  
1)	 00074 00017	Global AC Definitions, Indices, Bits
1)	 00081 ENDMK
1)	⊗;
1)	COMMENT ⊗HISTORY
1)	AUTHOR,REASON
1)	021  202100000115  ⊗;
1)	COMMENT ⊗
1)	VERSION 17-2(77) 3-17-74 BY RLS  EDIT
1)	VERSION 17-2(76) 3-17-74 BY RLS INSTALL SITE SWITCHES
1)	VERSION 17-2(75) 3-17-74 BY RLS INSTALL TENEX FEATURES, TENEX SYSTEM SWITCHES
1)	VERSION 17-2(75) 2-24-74 BY RHT FEAT %BH% TMPB FOR REF ITEM DATUM
*** HEAD[S,AIL] *** PAGE 1
2)	COMMENT ⊗   VALID 00017 PAGES VERSION 17-2(75)
2)	RECORD PAGE   DESCRIPTION
2)	 00001 00001
2)	 00003 00002	HISTORY
2)	 00009 00003	 INTRODUCTION
2)	 00010 00004	  SWITCHES : AN INTRODUCTION
2)	 00015 00005	 SWITCH SETTINGS & MACROS
2)	 00020 00006	 THE FILSPC STUFF -- OLDER HISTORY 
2)	 00022 00007	 FILSPC FILES
2)	 00025 00008	 NARRATIVE FILSPC ACCOUNTS
2)	 00031 00009	LISTING CONTROL MACROS & THE LIKE
2)	 00038 00010	 MACHINE-EXTENDING MACROS (SOME USEFUL CONSTANT, STORAGE/STORAGE MANIPULATORS)
2)	 00043 00011	  TELETYPE COMMUNICATION MACROS
2)	 00046 00012	  INPUT/OUTPUT AIDS
2)	 00049 00013	 RANDOM OTHER MACROS
2)	 00051 00014	TBITS DEFINITIONS
2)	 00056 00015	 VARIOUS DEFINITIONS OF USER UUO'S.

	1) HEAD vs. 2) HEAD[S,AIL]	SRCCOM	03-19-74	01:57	PAGES 1,1

2)	 00058 00016	DSCR USER DATA AREA TEMPLATE  
2)	 00068 00017	Global AC Definitions, Indices, Bits
2)	 00075 ENDMK
2)	⊗;
2)	COMMENT ⊗HISTORY
2)	AUTHOR,REASON
2)	021  202100000113  ⊗;
2)	COMMENT ⊗
2)	VERSION 17-2(75) 2-24-74 BY RHT FEAT %BH% TMPB FOR REF ITEM DATUM


******** HEAD **** PAGE 5
1)	DEFINE IMSSS <IFN IMSSSW,>	;IMSSS version of TENEX-SAIL
1)	DEFINE NOIMSSS <IFE IMSSSW,>
1)	DEFINE PARC <IFN PARCSW,>	;CODE ONLY FOR PARC
1)	DEFINE NOPARC <IFE PARCSW,>	;NEVER FOR PARC
1)	DEFINE SRIAI <IFN SRIAISW,>	;CODE ONLY FOR SRI-AI
1)	DEFINE NOSRIAI <IFE SRIAISW,>	;NEVER 
1)	DEFINE SUMEX <IFN SUMEXSW,>	;AT SUMEX
1)	DEFINE NOSUMEX <IFE SUMEXSW,>	;NOT AT SUMEX
1)	DEFINE KI4 <IFN KI4SW,>		;AT KI4
1)	DEFINE NOKI4 <IFE KI4SW,>	;NOT AT KI4
1)	DEFINE JPL <IFN JPLSW,>		;AT JPL
1)	DEFINE NOJPL <IFE JPLSW,>	;NOT AT JPL
1)	DEFINE GLOB <IFN GLOBSW, >	;since global compiler (GLOBC) can service
*** HEAD[S,AIL] *** PAGE 5
2)	DEFINE GLOB <IFN GLOBSW, >	;since global compiler (GLOBC) can service


******** HEAD **** PAGE 5
1)	DEFINE RENC <IFN RENCSW,>	;The compiler itself is reentrant
1)	DEFINE NORENC <IFE RENCSW,>	;The compiler itself is not reentrant
1)	DEFINE HACK <IFN HACKSW,>	;TEMPORARILY VERSION FOR STANFORD
1)	DEFINE NOHACK<IFE HACKSW,>	; WILL DISAPPEAR NEXT SAISG
1)	DEFINE TENX<IFN TENXSW,>	;FOR TENEX SYSTEMS
1)	DEFINE NOTENX<IFE TENXSW,>	;NOT
1)	; ** CONDITIONAL SETTINGS **
1)	DEFINE STSW (V,VL) <IFNDEF V,<?V←←VL>>
1)	STSW (STANSW,1);NOT USUALLY EXPORT VERSION
1)	STSW (HACKSW,STANSW) ;ONLY AT STANFORD
1)	STSW (TENXSW,0); NOT USUSALLY AT TENEX
1)	STSW (CMUSW,0); NOT USUALLY AT CMU 
1)	STSW (IMSSSW,0); NOT USUALLY AT IMSSS
1)	STSW (PARCSW,0); NOT USUALLY AT PARC
1)	STSW (SRIAISW,0); NOT USUALLY AT SRIAI
1)	STSW (SUMEXSW,0); NOT USUALLY AT SUMEX
1)	STSW (KI4SW,0);	NOT USUALLY AT KI4 (AMES)
1)	STSW (JPLSW,0);	NOT USUALLY AT JPL

	1) HEAD vs. 2) HEAD[S,AIL]	SRCCOM	03-19-74	01:57	PAGES 5,5

1)	STSW (RENCSW,0)	;NOT USUALLY A REENTRANT COMPILER
1)	STSW (DECSW,1); USUALLY DEC 10-50 BASED SYSTEM
*** HEAD[S,AIL] *** PAGE 5
2)	DEFINE HACK <IFN HACKSW,>	;TEMPORARILY VERSION FOR STANFORD
2)	DEFINE NOHACK<IFE HACKSW,>	; WILL DISAPPEAR NEXT SAISG
2)	; ** CONDITIONAL SETTINGS **
2)	DEFINE STSW (V,VL) <IFNDEF V,<?V←←VL>>
2)	STSW (STANSW,1);NOT USUALLY EXPORT VERSION
2)	STSW (HACKSW,STANSW) ;ONLY AT STANFORD
2)	STSW (CMUSW,0); NOT USUALLY AT CMU 
2)	STSW (DECSW,1); USUALLY DEC 10-50 BASED SYSTEM


******** HEAD **** PAGE 5
1)	IMSSS <;DEFAULT SETTINGS AT IMSSS
1)	?TENXSW←←1			;TENEX AT IMSSS
1)	?SIXSW←←1			;USE SIXBIT PPN'S FOR LOADER AT IMSSS
1)	>;IMSSS
1)	PARC <
1)	?TENXSW←←1			;TENEX AT PARC
1)	?SIXSW←←0
1)	>;PARC
1)	SUMEX <
1)	?TENXSW←←1
1)	?SIXSW←←0
1)	>;SUMEX
1)	KI4 <
1)	?TENXSW←←1
1)	?SIXSW←←0
1)	>;KI4
1)	JPL <
1)	?TENXSW←←1
1)	?SIXSW←←0
1)	>;JPL
1)	SRIAI <
1)	?TENXSW←←1			
1)	?SIXSW←←0
1)	?RUBCHAR←←"A"-100		;CONTROL-A FOR CHARACTER DELETE
1)	?DELLINE←←"X"-100		;CONTROL-X FOR LINE DELETE
1)	>;SRIAI
1)	TENX <;DEFAULT SETTINGS AT TENEX
1)	?RENCSW←←1			;WANT A RE-ENTRANT COMPILER
1)	?RENSW←←1			;WANT A RE-ENTRANT RUNTIME
1)	?DECSW←←0			;NOT A DEC SYSTEM
1)	?EXPORT←←1			;AVOID STANFORD FEATURES
1)	?STANSW←←0			;IN FACT, EXPLICITLY NOT STANFORD
1)	?HACKSW←←1			;WHAT IS THIS FOR??  -RLS
1)	?GLOBSW←←0			;NOT USUALLY GLOBAL FOR TENEX

	1) HEAD vs. 2) HEAD[S,AIL]	SRCCOM	03-19-74	01:57	PAGES 5,5

1)	?GLOBC←←0			;
1)	STSW(LOADVR,52)			;TENEX SITES SEEM TO HAVE V. 52
1)	>;TENX
1)	;; %BC% KVL 1-6-74	ADD BAILD SWITCH
*** HEAD[S,AIL] *** PAGE 5
2)	;; %BC% KVL 1-6-74	ADD BAILD SWITCH


******** HEAD **** PAGE 7
1)	NOTENX <
1)	IFN TSTSEG,<
*** HEAD[S,AIL] *** PAGE 7
2)	IFN TSTSEG,<


******** HEAD **** PAGE 7
1)	>;NOTENX
1)	TENX <
1)	IFN TSTSEG,<
1)	IFNDEF FILXXX,<DEFINE FILXXX <ASCIZ /<SAIL>T-SAISGT.SAV/>>
1)	IFNDEF SLOFIL,<DEFINE SLOFIL <SIXBIT /SAILWT/>>
1)	?LOCSYM←←1
1)	?NOPROT←←1
1)	IFNDEF LIBLOW,<DEFINE LIBLOW <ASCIZ /LIBSAT.REL/>>
1)	?LIBLEN←←=10
1)	>;IFN TSTSEG
1)	IFE TSTSEG,<
1)	IFNDEF FILXXX,<DEFINE FILXXX <ASCIZ /<SAIL>T-1-SAISG7.SAV/>>
1)	IFNDEF SLOFIL,<DEFINE SLOFIL <SIXBIT /LOWTSA/>>
1)	IFNDEF SLOLOD,<DEFINE SLOLOD <ASCIZ/SYS:LOWTSA,/>>	;FOR INTERFACE TO LOADER
1)	?LOCSYM←←0
1)	?NOPROT←←0
1)	IFNDEF LIBLOW,<DEFINE LIBLOW <ASCIZ /<SAIL>LIBSA7.REL/>>
1)	IFNDEF LIBHI,<DEFINE LIBHI <ASCIZ /<SAIL>HLBSA7.REL/>>
1)	IMSSS<
1)	IFNDEF SDTLOD,<DEFINE SDTLOD <ASCIZ/,SDDTRL[S,AIL]/>>
1)	>;IMSSS
1)	?LIBLEN←←=16
1)	>;IFE TSTSEG
1)	?SEGPAG←←640				;PAGE WHERE THE SEGMENT STARTS
1)	?STARTPAGE←←610				;PAGE WHERE CHANNEL BUFFERS BEGIN
1)	?JFNSIZE←←20				;NUMBER OF CHANNELS ALLOWED
1)	IFNDEF RUNLOD,<DEFINE RUNLOD <=18
1)				      POINT 7,[ASCIZ/<SUBSYS>LOADER.SAV/],-1 >>
1)	IFNDEF BKTFIL,<DEFINE BKTFIL <ASCIZ /<SAIL>BKTBL.BKT/>>
1)	IFNDEF UDTFIL,<DEFINE UDTFIL <ASCIZ /<SAIL>UDDT.SAV/>>
1)	IFNDEF OPFILE,<DEFINE OPFILE <ASCIZ /<SAIL>3OPS3.OPS/>>
1)	>;TENX

	1) HEAD vs. 2) HEAD[S,AIL]	SRCCOM	03-19-74	01:57	PAGES 7,7

1)	; NARRATIVE FILSPC ACCOUNTS
*** HEAD[S,AIL] *** PAGE 7
2)	; NARRATIVE FILSPC ACCOUNTS


******** HEAD **** PAGE 10
1)	NOTENX <
1)	NOSTANFO <
*** HEAD[S,AIL] *** PAGE 10
2)	NOSTANFO <


******** HEAD **** PAGE 10
1)	>;NOTENX
1)	;  TELETYPE COMMUNICATION MACROS
*** HEAD[S,AIL] *** PAGE 10
2)	;  TELETYPE COMMUNICATION MACROS


******** HEAD **** PAGE 11
1)	NOTENX <
1)					CALL6	EXIT
1)	>;NOTENX
1)	TENX <
1)					JSYS	HALTF
1)	>;TENX
1)								]>
1)	DSCR PRINT, TERPRI (STR)
*** HEAD[S,AIL] *** PAGE 11
2)					CALL6   EXIT		]>
2)	DSCR PRINT, TERPRI (STR)


******** HEAD **** PAGE 15
1)	TENX <
1)	PUUO←15B8	OPDEF	PUUO	[15B8]
1)			OPDEF	TTCALL	[PUUO]
1)	>;TENX
1)	NOTENX <
1)	PUUO←<TTYUUO>	OPDEF	PUUO	[TTYUUO]
1)			OPDEF	TTCALL	[TTYUUO]
1)	>;NOTENX
1)	JFOV←<JFCL 1,0>	OPDEF	JFOV	[JFCL 1,0]
*** HEAD[S,AIL] *** PAGE 15
2)	IFN 0, <	;WITH TENEX EXPORT IN MIND,
2)	PUUO←15B8	OPDEF	PUUO	[15B8]
2)	>
2)	PUUO←<TTYUUO>	OPDEF	PUUO	[TTYUUO]

	1) HEAD vs. 2) HEAD[S,AIL]	SRCCOM	03-19-74	01:57	PAGES 15,15

2)			OPDEF	TTCALL	[TTYUUO]
2)	JFOV←<JFCL 1,0>	OPDEF	JFOV	[JFCL 1,0]


******** HEAD **** PAGE 17
1)		?TMPB ←← 400000 ; SIGN BIT MEANS A TEMP REF ITEM
*** HEAD[S,AIL] *** PAGE 17
2)	;;%BH% ADD TEMP BIT
2)		?TMPB ←← 400000 ; SIGN BIT MEANS A TEMP REF ITEM