(FILECREATED "13-APR-83 16:12:11" {PHYLUM}<LISPCORE>FUGUE>TTY.;3
 2643Q  

      changes to:  (FNS TTYGET TTYINIT TTYPUT TTYSTATUS)
		   (VARS TTYCOMS)

      previous date: "13-APR-83 15:11:19" {PHYLUM}<LISPCORE>FUGUE>TTY.;1)


(* Copyright (c) 1983 by Xerox Corporation)

(PRETTYCOMPRINT TTYCOMS)

(RPAQQ TTYCOMS
 ((FNS TTYGET TTYINIT TTYPUT TTYSTATUS)))
(DEFINEQ

(TTYGET

  [LAMBDA NIL                                                (* edited: "13-APR-83 16:03")

    (while
 (IGREATERP 100000Q (\GETBASE \IOPAGEBASE 124Q)) do
 NIL)
    (PROG1 (\GETBASE \IOPAGEBASE 123Q)
	   (\PUTBASE \IOPAGEBASE 124Q 0])

(TTYINIT

  [LAMBDA (PARAMS)                                           (* edited: "13-APR-83 16:10")

    (SETQ \IOPAGEBASE (\VAG2 0 177400Q))
    (\PUTBASE \IOPAGEBASE 122Q 100003Q)
    (until
 (IGREATERP 100000Q (\GETBASE \IOPAGEBASE 122Q)) do
 NIL)
    (\PUTBASE \IOPAGEBASE 121Q (OR PARAMS 3717Q))
    (\PUTBASE \IOPAGEBASE 122Q 137401Q])

(TTYPUT

  [LAMBDA (CHAR)                                             (* edited: "13-APR-83 15:22")

    (until
 (IGREATERP 100000Q (\GETBASE \IOPAGEBASE 122Q)) do
 NIL)
    (\PUTBASE \IOPAGEBASE 121Q CHAR)
    (\PUTBASE \IOPAGEBASE 122Q 100000Q])

(TTYSTATUS

  [LAMBDA NIL                                                (* edited: "13-APR-83 14:43")

    NIL])
)
(PUTPROPS TTY COPYRIGHT ("Xerox Corporation" 3677Q))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (553Q 2530Q (TTYGET 565Q . 1164Q) (TTYINIT 1166Q . 1730Q) (TTYPUT 1732Q . 2335Q) (
TTYSTATUS 2337Q . 2526Q)))))
STOP