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.