Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
(FILECREATED " 2-Jan-79 10:41:40" <LISPUSERS>TTYPAGELENGTH..4 1036
changes to: TTYPAGELENGTHCOMS
previous date: "29-Dec-78 16:35:23" <LISPUSERS>TTYPAGELENGTH..3)
(PRETTYCOMPRINT TTYPAGELENGTHCOMS)
(RPAQQ TTYPAGELENGTHCOMS [(FNS TTYPAGELENGTH)
(DECLARE: EVAL@COMPILE DONTCOPY
(P (RESETSAVE DWIMIFYCOMPFLG T])
(DEFINEQ
(TTYPAGELENGTH
[LAMBDA (N) (* Edited by M.Yonke on
29-Dec-78.)
(* * Sets the page length of the terminal to N and returns the
previous page length. If N is NIL, the page length is not
changed.)
(RESETFORM (INTERRUPTABLE)
(PROG1 (LOGAND (LRSH (JSYS 71 65 NIL NIL 2)
25)
127)
(if (FIXP N)
then (JSYS 143 65
(LOGOR (LOGAND (JSYS 71 65 NIL NIL 2)
-4261412865)
(LLSH (if N gt 127
then 127
else N)
25])
)
(DECLARE: EVAL@COMPILE DONTCOPY
(RESETSAVE DWIMIFYCOMPFLG T)
)
(DECLARE: DONTCOPY
(FILEMAP (NIL (354 945 (TTYPAGELENGTH 366 . 942)))))
STOP