(FILECREATED "17-Apr-84 07:15:30" {PHYLUM}<LISPUSERS>INTPATCH.;1
 1094   

      changes to:  (VARS INTPATCHCOMS))


(* Copyright (c) 1984 by Xerox Corporation)

(PRETTYCOMPRINT INTPATCHCOMS)

(RPAQQ INTPATCHCOMS
 [(FNS \CAUSE.PERIODIC.INTERRUPT)
		     (P (\LOCKFN (QUOTE \CAUSE.PERIODIC.INTERRUPT])
(DEFINEQ

(\CAUSE.PERIODIC.INTERRUPT

  [LAMBDA (CNTXT)                                            (* lmm "17-Apr-84 05:51")

    (PROG ((FRAME (\GETBASE \InterfacePage CNTXT))
	   NXT)
          (COND
	    ((ILESSP FRAME (fetch
 (IFPAGE StackBase) of
 \InterfacePage))
	      (RETURN)))
          (SETQ NXT (fetch
 (FX NEXTBLOCK) of
 FRAME))
          (CHECK (fetch
 (FX CHECKED) of
 FRAME)
		 (type?
 FSB NXT))
          (\PUTBASE \InterfacePage CNTXT (OR (\MAKEFRAME (FUNCTION \PERIODIC.INTERRUPTFRAME)
							 NXT
							 (IPLUS NXT (fetch
 (FSB SIZE) of
 NXT))
							 FRAME FRAME)
					     (RETURN)))
          (RETURN T])
)
(\LOCKFN (QUOTE \CAUSE.PERIODIC.INTERRUPT))
(PUTPROPS INTPATCH COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (307 971 (\CAUSE.PERIODIC.INTERRUPT 317 . 969)))))
STOP