1) HEAD vs. 2) HEAD[S,AIL]	SRCCOM	06-18-73	21:09	PAGES 1,1

******** HEAD **** PAGE 1
1)	COMMENT ⊗   VALID 00017 PAGES VERSION 16-2(35)
1)	RECORD PAGE   DESCRIPTION
*** HEAD[S,AIL] *** PAGE 1
2)	COMMENT ⊗   VALID 00017 PAGES VERSION 16-2(43)
2)	RECORD PAGE   DESCRIPTION


******** HEAD **** PAGE 1
1)	 00006 00003	
1)	 00007 00004	
1)	 00012 00005	These macros come in pairs, and exist so that the above-mentioned
1)	 00016 00006	VARIOUS HANDY MACRO DEFINITIONS TO TRY TO MAKE THE CODE
1)	 00022 00007	 MACHINE-EXTENDING MACROS (SOME USEFUL CONSTANT, STORAGE/STORAGE MANIPULATORS)
1)	 00026 00008	  TELETYPE COMMUNICATION MACROS
1)	 00029 00009	  INPUT/OUTPUT AIDS
1)	 00034 00010	  MACROS FOR MANIPULATING SEMBLKS (SEE SAIL DATA DESCRIPTIONS)
1)	 00036 00011	  MACROS FOR MANIPULATING SEMANTICS, CALLING GENERATOR ROUTINES,
1)	 00041 00012	 Q-STACK HANDLERS
1)	 00045 00013	 RANDOM OTHER MACROS
1)	 00047 00014	TBITS DEFINITIONS
1)	 00051 00015	 VARIOUS DEFINITIONS OF USER UUO'S.
*** HEAD[S,AIL] *** PAGE 1
2)	 00007 00003	
2)	 00008 00004	
2)	 00013 00005	These macros come in pairs, and exist so that the above-mentioned
2)	 00017 00006	VARIOUS HANDY MACRO DEFINITIONS TO TRY TO MAKE THE CODE
2)	 00023 00007	 MACHINE-EXTENDING MACROS (SOME USEFUL CONSTANT, STORAGE/STORAGE MANIPULATORS)
2)	 00027 00008	  TELETYPE COMMUNICATION MACROS
2)	 00030 00009	  INPUT/OUTPUT AIDS
2)	 00035 00010	  MACROS FOR MANIPULATING SEMBLKS (SEE SAIL DATA DESCRIPTIONS)
2)	 00037 00011	  MACROS FOR MANIPULATING SEMANTICS, CALLING GENERATOR ROUTINES,
2)	 00042 00012	 Q-STACK HANDLERS
2)	 00046 00013	 RANDOM OTHER MACROS
2)	 00048 00014	TBITS DEFINITIONS
2)	 00051 00015	 VARIOUS DEFINITIONS OF USER UUO'S.


******** HEAD **** PAGE 1
1)	 00067 ENDMK
1)	⊗;
*** HEAD[S,AIL] *** PAGE 1
2)	 00068 ENDMK
2)	⊗;


******** HEAD **** PAGE 2
1)	021  202000000043  ⊗;

	1) HEAD vs. 2) HEAD[S,AIL]	SRCCOM	06-18-73	21:09	PAGES 2,2

1)	COMMENT ⊗
1)	VERSION 16-2(35) 11-10-72 BY HJS MODIFY QPOP TO TAKE AS AN ARGUMENT AN ADDRESS FOR THE POPPED ENTRY
*** HEAD[S,AIL] *** PAGE 2
2)	021  202000000053  ⊗;
2)	COMMENT ⊗
2)	VERSION 16-2(43) 4-23-73 BY RHT CHANGE ARGTYP TO RFITYP
2)	VERSION 16-2(42) 2-7-73 BY RHT ADD TYPE FOR ARG LIST ITEM
2)	VERSION 16-2(41) 1-28-73 BY JRL PUT QBIND,FBIND HERE SO STATS CAN USE
2)	VERSION 16-2(40) 1-23-73 BY RHT MAKE NIC & UNBOUND THE SAME
2)	VERSION 16-2(39) 1-23-73 BY JRL CHANGE CODE FOR UNBND
2)	VERSION 16-2(38) 1-8-73 BY JRL ADD MAXLOC MAXIMUM NUMBER OF FOREACH LOCAL ITEMVARS ALLOWED
2)	VERSION 16-2(37) 12-13-72 BY jrl BUG #KS# ADD LOADVR SWITCH
2)	VERSION 16-2(36) 11-21-72 
2)	VERSION 16-2(35) 11-10-72 BY HJS MODIFY QPOP TO TAKE AS AN ARGUMENT AN ADDRESS FOR THE POPPED ENTRY


******** HEAD **** PAGE 4
1)		 SAILRUN was a switch controlling some runtimes.  Now runtimes will
*** HEAD[S,AIL] *** PAGE 4
2)	;; #KS BY JRL (12-13-72) ADD LOADVR SWITCH
2)		LOADVR  ←if NDEF then 54 else LOADVR (for differences in block code
2)				for required rel files,libraries in LOADER 54)
2)		 SAILRUN was a switch controlling some runtimes.  Now runtimes will


******** HEAD **** PAGE 6
1)	FOR @' JJ⊂(EXPRS,STATS,LEAP,TOTAL,COMSER,GOGOL,STRSER,IOSER,LEPRUN,MESPRO) <
1)	↓..'JJ←←II
*** HEAD[S,AIL] *** PAGE 6
2)	FOR @' JJ⊂(EXPRS,STATS,LEAP,TOTAL,COMSER,GOGOL,STRSER,IOSER,LEPRUN,MESPRO,WRDGET) <
2)	↓..'JJ←←II


******** HEAD **** PAGE 6
1)	FOR @' JJ⊂(GOGOL,STRSER,IOSER,LEPRUN,MESPRO) <
1)	↓..LIST←←..LIST!..'JJ
*** HEAD[S,AIL] *** PAGE 6
2)	FOR @' JJ⊂(GOGOL,STRSER,IOSER,LEPRUN,MESPRO,WRDGET) <
2)	↓..LIST←←..LIST!..'JJ


******** HEAD **** PAGE 15
1)	SIXPNT←6B8	OPDEF	SIXPNT	[6B8]
*** HEAD[S,AIL] *** PAGE 15
2)			OPDEF	TTCALL	[TTYUUO]
2)	SIXPNT←6B8	OPDEF	SIXPNT	[6B8]



	1) HEAD vs. 2) HEAD[S,AIL]	SRCCOM	06-18-73	21:09	PAGES 15,15

******** HEAD **** PAGE 16
1)	 XX SPARUT,4,,		;SPARE USER TABLE ENTRIES
1)	 XX ENDREN	; END OF USER DATA TABLE
*** HEAD[S,AIL] *** PAGE 16
2)	 XX ISPDP		;STRING PDP FOR INTERRUPT LEVEL
2)	 XX SPARUT,3,,		;SPARE USER TABLE ENTRIES
2)	 XX ENDREN	; END OF USER DATA TABLE


******** HEAD **** PAGE 17
1)	        BRKITM ←← 2	;BRACKETED TRIPLE
*** HEAD[S,AIL] *** PAGE 17
2)		NOTYPE ←← 1	;NO TYPE AT ALL
2)	        BRKITM ←← 2	;BRACKETED TRIPLE


******** HEAD **** PAGE 17
1)		INVTYP ←← 31	;NON-VALID TYPE CODE
*** HEAD[S,AIL] *** PAGE 17
2)		RFITYP ←← 14	;REFERENCE ITEM
2)		INVTYP ←← 31	;NON-VALID TYPE CODE


******** HEAD **** PAGE 17
1)		UNBND  ←← 0	;UNBOUND (?ITEMVARS ETC)
1)		MAINPI ←← 1	;ITEM NUMBER OF THE MAIN PROCESS ITEM
1)		NIC    ←← 2	;ITEM GET BACK FROM EMPTY NOTICE QUEUE
1)		EVTYPI ←← 3	;THE ITEM EVENT_TYPE
1)		↓MAXLOC ←← =10	;MAXIMUM NUMBER OF LOCAL ITEMVARS IN FOREACH
1)	ENDDATA
*** HEAD[S,AIL] *** PAGE 17
2)	; ANY IS REPRESENTED BY 0
2)		MAINPI ←← 1	;ITEM NUMBER OF THE MAIN PROCESS ITEM
2)		UNBND  ←← 2	;UNBOUND (?ITEMVARS ETC)
2)		EVTYPI ←← 3	;THE ITEM EVENT_TYPE
2)		NIC    ←← UNBND	;ITEM GET BACK FROM EMPTY NOTICE QUEUE
2)	;;# # MAKE NIC & UNBOUND THE SAME ITEM -- RHT
2)	;;     I.E. NULL INTERROGATIONS RETURN UNBOUND NOW
2)		↓MAXLOC ←← =10	;MAXIMUM NUMBER OF LOCAL ITEMVARS IN FOREACH
2)		↓QBIND ←← 200	;A ? ITMVR (NOT A MP PARM)
2)		↓FBIND ←← 100	;A BIND ITMVR(HERE BECAUSE OF STATS)
2)	BITDATA (THE NAMED BITS FOR REF ITEMS)
2)		↓REFB ←← 200000	;USUALLY SET
2)		↓QUESB ←← 100000;FOR ? ITEMVARS
2)		↓BINDB ←← 40000	;FOR BIND ITEMVAR
2)		↓PROCB ←← 20000	;NOT NOW REALLY USED
2)		↓ITEMB ←← 10000	; AN ITEM (ITEMVAR)
2)		↓ARY2B ←← 4000	;FOR λ ARRAY ITEMVAR ARRAY REFERENCES

	1) HEAD vs. 2) HEAD[S,AIL]	SRCCOM	06-18-73	21:09	PAGES 17,17

2)		↓MSK6BT ←← 3740 ; BITS FOR SIX BIT TYPE
2)		↓MSKUNT ←← 3700	;BIT MASK FOR UNTYPED 
2)	ENDDATA