mirror of
https://github.com/PDP-10/its.git
synced 2026-01-20 17:58:40 +00:00
49 lines
1.7 KiB
Plaintext
49 lines
1.7 KiB
Plaintext
'<PCODE "3TTY">
|
|
|
|
<PACKAGE "TTY">
|
|
|
|
<ENTRY TTY-GET TTY-SET CNS-GET CNS-SET TTY-ON TTY-OFF IOT RCPOS SCML>
|
|
|
|
<SETG IOT %<RSUBR!- '[ %<PCODE!- "3TTY" 0> IOT #DECL ("VALUE" CHARACTER
|
|
"OPTIONAL" <PRIMTYPE WORD>)]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,IOT PGLUE ![0!]>>
|
|
|
|
|
|
<SETG TTY-SET %<RSUBR!- '[ %<PCODE!- "3TTY" 30> TTY-SET #DECL (<OR <UVECTOR [2
|
|
<PRIMTYPE WORD>]> <UVECTOR [3 <PRIMTYPE WORD>]>> "OPTIONAL" CHANNEL) ![
|
|
2181570690 3255312514!] ![20724921555 20724953299!] T TTYSET-FAILURE!-ERRORS]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,TTY-SET PGLUE ![1069547520!]>>
|
|
|
|
|
|
<SETG TTY-ON %<RSUBR-ENTRY '[TTY-SET TTY-ON #DECL ("OPTIONAL" CHANNEL)] 9>>
|
|
|
|
<SETG TTY-OFF %<RSUBR-ENTRY '[TTY-SET TTY-OFF #DECL ("OPTIONAL" CHANNEL)] 7>>
|
|
|
|
<SETG TTY-GET %<RSUBR!- '[ %<PCODE!- "3TTY" 75> TTY-GET #DECL ("OPTIONAL" <OR
|
|
FALSE <UVECTOR [3 <PRIMTYPE WORD>]>> <OR CHANNEL FIX>) TTYGET-FAILURE!-ERRORS]>
|
|
>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,TTY-GET PGLUE ![805306368!]>>
|
|
|
|
|
|
<SETG CNS-GET %<RSUBR!- '[ %<PCODE!- "3TTY" 126> CNS-GET #DECL ("OPTIONAL" <OR
|
|
FALSE <UVECTOR [5 <PRIMTYPE WORD>]>> CHANNEL) CNSGET-FAILURE!-ERRORS]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,CNS-GET PGLUE ![805306368!]>>
|
|
|
|
|
|
<SETG CNS-SET %<RSUBR!- '[ %<PCODE!- "3TTY" 181> CNS-SET #DECL (<UVECTOR [5 <
|
|
PRIMTYPE WORD>]> "OPTIONAL" CHANNEL) CNSSET-FAILURE!-ERRORS]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,CNS-SET PGLUE ![805306368!]>>
|
|
|
|
|
|
<SETG RCPOS %<RSUBR!- '[ %<PCODE!- "3TTY" 202> RCPOS #DECL ("OPTIONAL" <OR
|
|
FALSE <UVECTOR [4 <PRIMTYPE WORD>]>> CHANNEL) RCPOS-FAILURE!-ERRORS]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,RCPOS PGLUE ![805306368!]>>
|
|
|
|
|
|
<SETG SCML %<RSUBR!- '[ %<PCODE!- "3TTY" 243> SCML #DECL ("VALUE" FIX FIX
|
|
CHANNEL) SCML-FAILURE!-ERRORS]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,SCML PGLUE ![805306368!]>>
|
|
|
|
|
|
<ENDPACKAGE>
|