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