mirror of
https://github.com/PDP-10/its.git
synced 2026-05-24 06:10:34 +00:00
77 lines
2.4 KiB
Plaintext
Executable File
77 lines
2.4 KiB
Plaintext
Executable File
|
||
;;; THE FOLLOWING IMPLEMENT LISP CONTROL OVER THE ITS
|
||
;;PROCESSING OF INPUT CHARACTERS
|
||
|
||
(DEFUN INPUT-UPPERCASE (FLAG)
|
||
;;; (INPUT-UPPERCASE T) CAUSES ALL ALPHABETIC
|
||
;;CHARACTERS TO BE CONVERTED TO UPPERCASE ON INPUT BY
|
||
;;THE SYSTEM -- (INPUT-UPPERCASE NIL) RESETS TO THE
|
||
;;NORMAL MODE
|
||
;;; THIS FUNCTION SETS AND RESETS THE %TGSPC FLAG
|
||
;;FOR GROUP-1 CHARACTERS IN TTYST1 (SEE TTY ORDER)
|
||
((LAMBDA (TTYSTATUS)
|
||
(COND
|
||
(FLAG (SSTATUS TTY
|
||
(BOOLE 7. 67108864. (CAR TTYSTATUS))
|
||
(CADR TTYSTATUS)))
|
||
(T (SSTATUS TTY
|
||
(BOOLE 1.
|
||
(BOOLE 6. 67108864. -1.)
|
||
(CAR TTYSTATUS))
|
||
(CADR TTYSTATUS))))
|
||
FLAG)
|
||
(STATUS TTY)))
|
||
|
||
(DEFUN INPUT-ACTIVATE (FLAG)
|
||
;;; (INPUT-ACTIVATE T) CAUSES ALL INPUT
|
||
;;CHARACTERS TO ACTIVATE IMMEDIATELY RATHER THAN BEING
|
||
;;BUFFERED BY THE SYSTEM -- (INPUT-ACTIVATE NIL) RESETS
|
||
;;TO THE NORMAL MODE
|
||
;;; THIS FUNCTION SETS THE %TGACT FLAG FOR EACH
|
||
;;OF THE TWELVE INPUT GROUPS CONTROLLED BY TTYST1 AND
|
||
;;TTYST2 -- THIS FLAG IS NORMALLY SET FOR GROUPS 0. 5.
|
||
;;6. 7. 10. AND 11. WHICH ARE LEFT ACTIVATED BY
|
||
;;(INPUT-ACTIVATE NIL)
|
||
((LAMBDA (TTYSTATUS)
|
||
(COND
|
||
(FLAG
|
||
(SSTATUS TTY
|
||
(BOOLE 7. 2181570690. (CAR TTYSTATUS))
|
||
(BOOLE 7. 2181570690. (CADR TTYSTATUS))))
|
||
(T (SSTATUS TTY
|
||
(BOOLE 1.
|
||
(BOOLE 6. 34087040. -1.)
|
||
(CAR TTYSTATUS))
|
||
(BOOLE 1.
|
||
(BOOLE 6. 532480. -1.)
|
||
(CADR TTYSTATUS)))))
|
||
FLAG)
|
||
(STATUS TTY)))
|
||
|
||
(DEFUN INPUT-ECHO (FLAG)
|
||
;;; (INPUT-ECHO NIL) CAUSES THE SYSTEM TO STOP
|
||
;;ECHOING CHARACTERS AS THEY ARE READ / TYPED IN --
|
||
;;(INPUT-ECHO T) RESTORES THIS FUNCTION OF THE SYSTEM
|
||
;;TO NORMAL
|
||
;;; THIS FUNCTION SUSPENDS ECHOING BY SETTING OFF
|
||
;;THE %TGPIE FLAGS FOR ALL TWELVE CHARACTER GROUPS IN
|
||
;;THE VARIABLES TTYST1 AND TTYST2 -- NORMAL
|
||
;;INTERRUPT-LEVEL ECHOING IS RESTORED FOR ALL GROUPS
|
||
;;EXCEPT 10. (RUBOUT) BY (INPUT-ECHO T)
|
||
((LAMBDA (TTYSTATUS)
|
||
(COND (FLAG (SSTATUS
|
||
TTY
|
||
(BOOLE 7. 17452565520. (CAR TTYSTATUS))
|
||
(BOOLE 7.
|
||
17452564496.
|
||
(CADR TTYSTATUS))))
|
||
(T (SSTATUS TTY
|
||
(BOOLE 1.
|
||
(BOOLE 6. 17452565520. -1.)
|
||
(CAR TTYSTATUS))
|
||
(BOOLE 1.
|
||
(BOOLE 6. 17452565520. -1.)
|
||
(CADR TTYSTATUS)))))
|
||
FLAG)
|
||
(STATUS TTY)))
|