Google
 

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

1)1	TENEX==0	;WHEN OFF, WILL ASSEMBLE FOR DECUS 10/50 LISP.
1)	;TENEX==1	;WHEN ON, THIS HAS THE FOLLOWING EFFECTS:
1)			; 1)  THE 10X PSI IS ENABLED FOR 10/50 ^O (SIMULATED);
****
2)1	;TENEX==0	;WHEN OFF, WILL ASSEMBLE FOR DECUS 10/50 LISP.
2)	TENEX==1	;WHEN ON, THIS HAS THE FOLLOWING EFFECTS:
2)			; 1)  THE 10X PSI IS ENABLED FOR 10/50 ^O (SIMULATED);
**************
1)1	OPDEF	STDIR	[JSYS	 40]
1)	OPDEF	WFORK	[JSYS	163]
****
2)1	;OPDEF	STDIR	[JSYS	 40]	;[decus]stdir replaced by rcdir
2)	OPDEF	RCDIR	[JSYS	553]
2)	OPDEF	WFORK	[JSYS	163]
**************
1)1	EXTERNAL JOB41	;instruction to be executed on UUO
1)	EXTERNAL JOBAPR	;address of APR interupt routines
1)	EXTERNAL JOBCNI	;interupt condition flags
1)	EXTERNAL JOBFF	;first location beyond program
1)	EXTERNAL JOBREL	;address of last legal instruction in core image
1)	EXTERNAL JOBREN	;reentry address
1)	EXTERNAL JOBSA	;starting address
1)	EXTERNAL JOBSYM	;address of symbol table
1)	EXTERNAL JOBTPC	;program counter at time of interupt
1)	EXTERNAL JOBUUO	;uuo is put here with effective address computed
1)	;apr flags
****
2)1	;EXTERNAL JOB41	;instruction to be executed on UUO
2)	;EXTERNAL JOBAPR	;address of APR interupt routines
2)	;EXTERNAL JOBCNI	;interupt condition flags
2)	;EXTERNAL JOBFF	;first location beyond program
2)	;EXTERNAL JOBREL	;address of last legal instruction in core image
2)	;EXTERNAL JOBREN	;reentry address
2)	;EXTERNAL JOBSA	;starting address
2)	;EXTERNAL JOBSYM	;address of symbol table
2)	;EXTERNAL JOBTPC	;program counter at time of interupt
2)	;EXTERNAL JOBUUO	;uuo is put here with effective address computed
2)		external .jb41, .jbapr, .jbcni, .jbff, .jbrel
2)		external .jbren,.jbsa,.jbsym,.jbtpc,.jbuuo
2)		job41=.jb41
2)		jobapr=.jbapr
2)		jobcni=.jbcni
2)		jobff=.jbff
2)		jobrel=.jbrel
2)		jobren=.jbren
2)		jobsa=.jbsa
2)		jobsym=.jbsym
2)		jobtpc=.jbtpc
2)		jobuuo=.jbuuo
2)	;apr flags
**************
1)21		STDIR
1)		 JFCL
****
2)21		RCDIR
2)		 JFCL
File 1)	DSK:LISP.OLD[4,1466]	created: 1900 16-Dec-1973
File 2)	DSK:LISP.MAC[4,1466]	created: 1939 20-Sep-1980

**************