Google
 

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