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