(FILECREATED "29-Aug-86 21:40:02" {ERIS}<TAMARIN>UCODE>SIMN.;1
 1450   

      changes to:  (VARS SIMNCOMS)
		   (FNS setinputc pmn pl-rok showinputs))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT SIMNCOMS)

(RPAQQ SIMNCOMS
 ((FNS pl-rok pmn setinputc showinputs)))
(DEFINEQ

(pl-rok

  [LAMBDA NIL                                                (* agb: "28-Aug-86 21:35")

    (
PrintOutList
 (
QUOTE
 ((RQOK)
			       (ARBRQ*)
			       (RAMRDY)
			       (HOLDI)
			       (HOLDAI)
			       (DL120RDY)
			       (RASDLEND])

(pmn

  [LAMBDA (name)                                             (* agb: "28-Aug-86 20:21")

    (
walknet
 (
FUNCTION
 (LAMBDA (n)
		   (if
 (
STRPOS
 name (fetch
 (node name) of
 n))
		       then
 (
PRINT
 (fetch
 (node name) of
 n])

(setinputc

  [LAMBDA (nodelist dontforceinput)                          (* agb: "28-Aug-86 20:27")

    (
setinputstring
 nodelist (
QUOTE
 c)
		      dontforceinput])

(showinputs

  [LAMBDA NIL                                                (* agb: "28-Aug-86 19:31")

    (
SETQ
 inputs NIL)
    [
walknet
 (
FUNCTION
 (LAMBDA (n)
		   (if
 (fetch
 (node input) of
 n)
		       then
 (
SETQ
 inputs (
CONS
 (fetch
 (node name) of
 n)
						     inputs]
    inputs])
)
(PUTPROPS SIMN COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (314 1375 (pl-rok 324 . 586) (pmn 588 . 858) (setinputc 860 . 1038) (showinputs 1040 . 
1373)))))
STOP