Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0015/loader.scm
There is 1 other file named loader.scm in the archive. Click here to see a list.
File 1)	DSK:LOADER.OLD[4,1466]	created: 1900 16-Dec-1973
File 2)	DSK:LOADER.MAC[4,1466]	created: 1503 19-Sep-1980

1)1	L==1			;L=1 MEANS THE LISP LOADER
****
2)1	;	edited 19 sept 80 for decus by paul t. robinson, wesleyan univ.
2)	;	redefined jobdat symbols from jobxxx to .jbxxx
2)	L==1			;L=1 MEANS THE LISP LOADER
**************
1)11	EXTERNAL JOBAPR	>
1)	IFN LDAC!BLTSYM,<MOVEI W,20	;SET UP SPACE TO SAVE FOR ACS AND
****
2)11	;[decus]	EXTERNAL JOBAPR
2)		external .jbapr
2)		jobapr=.jbapr	>
2)	IFN LDAC!BLTSYM,<MOVEI W,20	;SET UP SPACE TO SAVE FOR ACS AND
**************
1)54		EXTERN	JOBDDT,JOBFF,JOBSA,JOBREL,JOBSYM,JOBUSY,JOB41
1)	IFE HE,<
****
2)54	;[decus]	EXTERN	JOBDDT,JOBFF,JOBSA,JOBREL,JOBSYM,JOBUSY,JOB41
2)		extern .jbddt, .jbff, .jbsa, .jbrel, .jbsym, .jbusy, .jb41
2)		JOBDDT=.jbddt
2)		JOBFF=.jbff
2)		JOBSA=.jbsa
2)		JOBREL=.jbrel
2)		JOBSYM=.jbsym
2)		JOBUSY=.jbusy
2)		JOB41=.jb41
2)	IFE HE,<
**************