(setq 1689-ucode '(

		   "DJ: L.ULAMBDA; UC-PARAMETERS.LISP#87"
		   "DJ: L.ULAMBDA; UC-LAMBDA.LISP#85"
		   "DJ: L.ULAMBDA; UC-LAMBDA-MACROCODE.LISP#41"
		   "DJ: L.ULAMBDA; UC-CALL-RETURN.LISP#42"
		   "DJ: L.ULAMBDA; UC-STORAGE-ALLOCATION.LISP#73"
		   "DJ: L.ULAMBDA; UC-FCTNS.LISP#37"
		   "DJ: L.ULAMBDA; UC-LAMBDA-ARRAY.LISP#21"
		   "DJ: L.ULAMBDA; UC-LOGICAL.LISP#11"
		   "DJ: L.ULAMBDA; UC-ARITH.LISP#25"
		   "DJ: L.ULAMBDA; UC-STRING.LISP#4"
		   "DJ: L.ULAMBDA; UC-TRANSPORTER.LISP#79"
		   "DJ: L.ULAMBDA; UC-SCAVENGER.LISP#127"
		   "DJ: L.ULAMBDA; UC-CLOSURE.LISP#70"
		   "DJ: L.ULAMBDA; UC-METER.LISP#6"
		   "DJ: L.ULAMBDA; UC-HACKS.LISP#11"
		   "DJ: L.ULAMBDA; UC-TV.LISP#9"
		   "DJ: L.ULAMBDA; UC-TRACK-MOUSE.LISP#20"
		   "DJ: L.ULAMBDA; UC-LAMBDA-PAGE-FAULT.LISP#126"
		   "DJ: L.ULAMBDA; UC-LAMBDA-DISK.LISP#34"
		   "DJ: L.ULAMBDA; UC-LAMBDA-INTERRUPT.LISP#17"
		   "DJ: L.ULAMBDA; UC-CHAOS.LISP#16"
		   "DJ: L.ULAMBDA; UC-STACK-GROUPS.LISP#26"
		   "DJ: L.ULAMBDA; UC-LAMBDA-COLD-DISK.LISP#18"
		   "DJ: L.ULAMBDA; UC-MC.LISP#2"
		   "DJ: L.ULAMBDA; UC-INITIALIZATION.LISP#140"
		   ))