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
**************