Trailing-Edge
-
PDP-10 Archives
-
decus_20tap2_198111
-
decus/20-0029/doctor.txt
There are 2 other files named doctor.txt in the archive. Click here to see a list.
THIS TAPE CONTAINS SOURCES AND SAVE FILES OF DOCTOR AND
ELIZA, ADAPTED FOR THE STANFORD A.I. LISP 1.6 SYSTEM AND COMPILED
TO RUN UP TO SIX TIMES FASTER THAN PREVIOUS VERSIONS.
(A FEW BUGS HAVE ALSO BEEN FIXED.)
FILES ON THE TAPE:
DOCPGM.LSP SOURCE OF THE LISP PROGRAM
DOCPGM.LAP COMPILED (LAP) CODE OF THE ABOVE PROGRAM
DOCTOR.RLS THE "RULES" FOR DOCTOR
ELIZA.RLS THE "RULES" FOR ELIZA
SPEC SPECIAL VARIABLE DECLARATIONS TO COMPILE DOCPGM
DOCTOR.SAV SAVE FILE OF DOCTOR
ELIZA.SAV SAVE FILE OF ELIZA
DUMP EXPRS FOR DUMPING DOCTOR CORE IMAGES
DOCTOR.TXT THIS BLURB
PROCEDURE FOR CREATING A NEW DOCTOR OR ELIZA (RULES FOR DOCTOR
ONLY ARE GIVEN, ELIZA CALLS FOR THE OBVIOUS CHANGES)
1. COPY THIS DTA TO DISK
2. IF YOU DO NOT WISH TO RECOMPILE DOCPGM GO TO STEP 5.
3. COMBINE SPEC AND DOCPGM.LSP USING PIP:
.R PIP
*DOCPGM_SPEC,DOCPGM.LSP
*
4. RUN THE LISP COMPILER AND COMPILE DOCPGM
^C
.R COMPLR
*(COMPL DOCPGM)
<RANDOM OUTPUT>
*^C
.
5. GET LISP SET UP
.R LISP 16
ALLOC Y
FULL WDS=640
BIN.PROG.SP=1540
SPEC.PDL=200
REG. PDL=300
HASH=37
AUXILIARY FILES?Y
SMILE?
ALVINE?
TRACE?
LAP?Y
DECIMAL?N
*
6. READ IN THE COMPILED LAP CODE
*(INC(INPUT DSK: (DOCPGM.LAP$
<RANDOM OUTPUT>
*
7. READ IN THE RULES
*(INC(INPUT DSK: (DOCTOR.RLS$
<MORE RANDOM OUTPUT>
*
8. CLEAN UP CRUD IN THE CORE IMAGE
*(EXCISE)
*(NOUUO NIL)
*(REMOB /%DEFIN DE DF DM PUTSYM GETSYM)
*(GC)
*^C
.
9. JFCL THE "*". THE ADDRESSES MAY CHANGE DEPENDING ON VERSION
OF LISP.
.E 6457
006457/ 051040 006455 .D 255000 0 6457
.
10. SAVE THE PROGRAM
.SAVE DSK DOCTOR
JOB SAVED
^C
.
/ TONY LAUCK 30-MAR-70