(FILECREATED " 8-Feb-86 15:13:41" {DSK}<LISPFILES2>IMPROVEDDCOMS>CODE.;1
 1997   

      changes to:  (VARS CODECOMS))


(* Copyright (c) 1986 by Quintus Computer Systems, Inc. All rights reserved.)

(PRETTYCOMPRINT CODECOMS)

(RPAQQ CODECOMS
 ((MACROS E.plus.env.size.from.CP add.code address.operand continue continue.at 
continue.reading continue.reading.at continue.writing continue.writing.at get.code 
next.address.operand read.continue write.continue) (PROP (LO HI) cell.operand) (FNS dummy.code)))
(DECLARE: EVAL@COMPILE 
(PUTPROPS E.plus.env.size.from.CP MACRO (OPENLAMBDA NIL (add.code E (get.code CP 0))))
(PUTPROPS add.code MACRO (X (APPLY (FUNCTION (LAMBDA (Ptr Offset) (if (NOT (MEMB Ptr (QUOTE (P E CP)))
) then (SHOULDNT (QUOTE add.code))) (if (EQ Offset 0) then (BQUOTE (get.24 (\, Ptr))) else (BQUOTE (
\ADDBASE (get.24 (\, Ptr)) (\, Offset)))))) X)))
(PUTPROPS address.operand MACRO (OPENLAMBDA NIL (\VAG2 (get.16 N) (get.code P 0))))
(PUTPROPS continue MACRO (OPENLAMBDA (N) N))
(PUTPROPS continue.at MACRO (OPENLAMBDA (X) (put.4 W READ) X))
(PUTPROPS continue.reading MACRO (OPENLAMBDA (N) (put.4 W READ) N))
(PUTPROPS continue.reading.at MACRO (OPENLAMBDA (X) (put.4 W READ) X))
(PUTPROPS continue.writing MACRO (OPENLAMBDA (N) (put.4 W WRITE) N))
(PUTPROPS continue.writing.at MACRO (OPENLAMBDA (X) (put.4 W WRITE) X))
(PUTPROPS get.code MACRO (X (APPLY (FUNCTION (LAMBDA (Ptr Offset) (if (NOT (MEMB Ptr (QUOTE (P CP)))) 
then (SHOULDNT (QUOTE get.code))) (BQUOTE (\GETBASE (get.24 (\, Ptr)) (\, Offset))))) X)))
(PUTPROPS next.address.operand MACRO (OPENLAMBDA NIL (\GETBASEPTR (get.24 P) 0)))
(PUTPROPS read.continue MACRO (OPENLAMBDA (N) N))
(PUTPROPS write.continue MACRO (OPENLAMBDA (N) N))
)

(PUTPROPS cell.operand LO
 (LAMBDA NIL (QUOTE (get.code P 1))))

(PUTPROPS cell.operand HI
 (LAMBDA NIL (QUOTE (get.code P 0))))
(DEFINEQ

(dummy.code

(LAMBDA NIL NIL))
)
(PUTPROPS CODE COPYRIGHT ("Quintus Computer Systems, Inc" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1865 1910 (dummy.code 1875 . 1908)))))
STOP