(FILECREATED " 2-Sep-86 09:49:07" {ERIS}<TAMARIN>TSIM>SIMN.;1
 1845   

      changes to:  (VARS SIMNCOMS)
		   (FNS sh sl)

      previous date: "29-Aug-86 21:40:02" {ERIS}<TAMARIN>UCODE>SIMN.;1)


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

(PRETTYCOMPRINT SIMNCOMS)

(RPAQQ SIMNCOMS
 ((FNS pl-rok pmn setinputc sh showinputs sl)))
(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])

(sh

  [LAMBDA (nodelist dontforceinput)                          (* rtk " 1-Jul-86 11:19")

    (
setinputstring
 nodelist (
QUOTE
 h)
		      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])

(sl

  [LAMBDA (nodelist dontforceinput)                          (* rtk "30-Jun-86 16:26")

    (
setinputstring
 nodelist (
QUOTE
 l)
		      dontforceinput])
)
(PUTPROPS SIMN COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (365 1770 (pl-rok 375 . 637) (pmn 639 . 909) (setinputc 911 . 1089) (sh 1091 . 1261) (
showinputs 1263 . 1596) (sl 1598 . 1768)))))
STOP