perm filename SYM.DIF[10X,AIL] blob sn#148071 filedate 1975-03-01 generic text, type T, neo UTF8

	1) SYM vs. 2) SYM[S,AIL]	SRCCOM	03-01-75	13:38	PAGES 1,1

******** SYM **** PAGE 1  LINE 1
1)	COMMENT ⊗   VALID 00037 PAGES VERSION 17-1(37)
1)	RECORD PAGE   DESCRIPTION
*** SYM[S,AIL] *** PAGE 1  LINE 1
2)	COMMENT ⊗   VALID 00037 PAGES VERSION 17-1(36)
2)	RECORD PAGE   DESCRIPTION


******** SYM **** PAGE 1  LINE 27
1)	 00139 00025	BAIL <
1)	 00142 00026	DSCR --HERE IS THE CREFFINF STUFF (STRANGE PLACE N'EST CE PAS?)
1)	 00149 00027	DSCR HDR, HDROV 
1)	 00157 00028	DSCR ENTERS -- make new symbol entry
1)	 00161 00029	↑ENTERS:	
1)	 00167 00030	 
1)	 00172 00031	
1)	 00173 00032	DSCR ADCINS, CREINT, CONINS
1)	 00177 00033	DSCR SHASH, NHASH -- look up symbol entries in hashed buckets.
1)	 00183 00034	SEMBLK Allocation Routines
1)	 00190 00035	RNGVRB, RNGSTR, etc. -- `Ring' Linkage Routines
1)	 00193 00036	
1)	 00196 00037	 Mark insertion routine for counter routines
1)	 00199 ENDMK
1)	⊗;
*** SYM[S,AIL] *** PAGE 1  LINE 27
2)	 00138 00025	BAIL <
2)	 00141 00026	DSCR --HERE IS THE CREFFINF STUFF (STRANGE PLACE N'EST CE PAS?)
2)	 00148 00027	DSCR HDR, HDROV 
2)	 00156 00028	DSCR ENTERS -- make new symbol entry
2)	 00160 00029	↑ENTERS:	
2)	 00166 00030	 
2)	 00171 00031	
2)	 00172 00032	DSCR ADCINS, CREINT, CONINS
2)	 00176 00033	DSCR SHASH, NHASH -- look up symbol entries in hashed buckets.
2)	 00182 00034	SEMBLK Allocation Routines
2)	 00189 00035	RNGVRB, RNGSTR, etc. -- `Ring' Linkage Routines
2)	 00192 00036	
2)	 00195 00037	 Mark insertion routine for counter routines
2)	 00198 ENDMK
2)	⊗;


******** SYM **** PAGE 2  LINE 3
1)	021  102100000045  ⊗;
1)	COMMENT ⊗
1)	VERSION 17-1(37) 3-1-75 BY RLS CHECK FOR END OF BUFFER IN TENEX ADVBUF (PROB. SHOULD BE ADDED TO DEC ALSO)
1)	VERSION 17-1(36) 2-8-75 BY JFR BAIL SOURCE POINTERS P.6
*** SYM[S,AIL] *** PAGE 2  LINE 3

	1) SYM vs. 2) SYM[S,AIL]	SRCCOM	03-01-75	13:38	PAGES 2,2

2)	021  102100000044  ⊗;
2)	COMMENT ⊗
2)	VERSION 17-1(36) 2-8-75 BY JFR BAIL SOURCE POINTERS P.6


******** SYM **** PAGE 24  LINE 50
1)		SKIPN	TNXBND		;ANYTHING IN THE BUFFER?
1)		  JRST	ADVBF1		;NO DONT CHECK
1)		HRRZ	1,PNEXTC 	;LOOK AT ADDR
1)	ADVBF2:	CAML	1,TNXBND	;BEYOND BUFFER?
1)		  JRST	ADVBF1		;YES, CHECK EOF, GET MORE IF THERE
1)		SKIPN	1(1)		;0 WORD?
1)		  AOJA	1,ADVBF2	;YES KEEP LOOKING FOR INFO IN THE BUFFER
1)		HRLI	1,010700
1)		PUSH	P,1		;SAVE NEW BP
1)		PUSHJ	P,SGCHK		;CHECK GARBAGE COLLECTION
1)		POP	P,PNT		;BP TO PNT
1)		POP	P,3		;RESTORE
1)		POP	P,2
1)		POP	P,1
1)		MOVEM	PNT,PNEXTC
1)		MOVE	TEMP,1(PNT)	;WHICH IS NON-ZERO BECAUSE WE JUST CHECKED
1)		POPJ	P,
1)	ADVBF1:	HRRZ	1,SRCJFN
1)		JSYS	GTSTS
*** SYM[S,AIL] *** PAGE 24  LINE 50
2)		HRRZ	1,SRCJFN
2)		JSYS	GTSTS


******** SYM **** PAGE 24  LINE 80
1)		HRRZM	2,TNXBND	;SAVE END OF BUFFER ADDRESS FOR CHECKS ABOVE
1)		SETZM	1(2)		;EOB NULL.
*** SYM[S,AIL] *** PAGE 24  LINE 68
2)		SETZM	1(2)		;EOB NULL.