Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
(FILECREATED " 4-Jan-79 17:08:36" <LISPUSERS>TTYPAGE..1 1876
changes to: TTYPAGECOMS TTYPAGELENGTH TTYPAGEMODE)
(PRETTYCOMPRINT TTYPAGECOMS)
(RPAQQ TTYPAGECOMS [(E (RADIX -8))
(FNS TTYPAGELENGTH TTYPAGEMODE)
(E (RADIX 10))
(DECLARE: EVAL@COMPILE DONTCOPY
(P (RESETSAVE DWIMIFYCOMPFLG T])
(DEFINEQ
(TTYPAGELENGTH
[LAMBDA (N) (* Edited by M.Yonke on
4-Jan-79.)
(* * 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 107Q 101Q NIL NIL 2)
31Q)
177Q)
(COND
[(AND (SMALLP N)
(NOT (MINUSP N)))
(JSYS 217Q 101Q
(LOGOR (LOGAND (JSYS 107Q 101Q NIL NIL 2)
740177777777Q)
(LLSH (COND
((IGREATERP N 177Q)
177Q)
(T N))
31Q]
((NULL N))
(T (ERRORX (LIST 33Q N])
(TTYPAGEMODE
[LAMBDA (FLG) (* Edited by M.Yonke on
4-Jan-79.)
(* * Turns on and off terminal paging mode on TOPS20.
FLG is one of the atoms ON, OFF, or NIL.
NIL just returns the current setting. Value returned is
previous setting.)
(SELECTQ
(SYSTEMTYPE)
[TOPS20
(RESETFORM
(INTERRUPTABLE)
(PROG1 (SELECTQ (LOGAND (JSYS 107Q 101Q NIL NIL 2)
2)
(2 (QUOTE ON))
(0 (QUOTE OFF))
(SHOULDNT))
(COND
(FLG (JSYS 217Q 101Q
(LOGOR (LOGAND (JSYS 107Q 101Q NIL NIL 2)
777777777775Q)
(SELECTQ FLG
(ON 2)
(OFF 0)
(ERRORX (LIST 33Q FLG]
NIL])
)
(DECLARE: EVAL@COMPILE DONTCOPY
(RESETSAVE DWIMIFYCOMPFLG T)
)
(DECLARE: DONTCOPY
(FILEMAP (NIL (340 1785 (TTYPAGELENGTH 352 . 1043) (TTYPAGEMODE 1047 . 1782)
))))
STOP