Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
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,J OBUSY,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,<
**************