mirror of
https://github.com/PDP-10/its.git
synced 2026-01-26 12:12:12 +00:00
56 lines
2.0 KiB
Plaintext
56 lines
2.0 KiB
Plaintext
'<PCODE "2MUDTEC">
|
||
|
||
<PACKAGE "MUDTEC">
|
||
|
||
<ENTRY TECO TECO-BUFFER TECO-LOAD TECO-KILL TECO-OPEN TECO-CLOSE TECO-ALLOC
|
||
TECO-PRINT-BUFFER TECO-READ-BUFFER TECO-BUFFER-SIZE>
|
||
|
||
<USE "INFERIOR" "INFASS">
|
||
|
||
<GDECL (TECO-BUFFER) <UVECTOR [REST FIX]> (TECO) <OR FALSE INF>>
|
||
|
||
<SETG ACCESS-IN-CHARS %<RSUBR!- '[ %<PCODE!- "2MUDTEC" 0> ACCESS-IN-CHARS #DECL
|
||
("VALUE" FIX CHANNEL) GET-ICHAN INF-CONTIN INF-WORD USET INF-LOAD INF-KILL
|
||
"TECO" "0FSEXIT" NM2 (STRING) TECO %<RGLOC TECO T> ["DSK:TS" "DSK:SYS;TS"
|
||
"DSK:SYS1;TS" "DSK:SYS2;TS"] "MUDTEC" %<RGLOC TECO-BUFFER T> *BREAK-16 BACK
|
||
^Z-TYPED T %<RGLOC DUMMY T> %<TYPE-W INF VECTOR>]>>
|
||
<AND <ASSIGNED? GLUE> .GLUE <PUT ,ACCESS-IN-CHARS PGLUE ![715915263 -16777216!]>
|
||
>
|
||
|
||
|
||
<SETG TECO-LOAD %<RSUBR-ENTRY '[ACCESS-IN-CHARS TECO-LOAD #DECL ("VALUE" <OR
|
||
FALSE INF> "OPTIONAL" STRING STRING <OR FALSE INF>)] 17>>
|
||
|
||
<SETG TECO-KILL %<RSUBR-ENTRY '[ACCESS-IN-CHARS TECO-KILL #DECL ("VALUE" <OR
|
||
FALSE INF> "OPTIONAL" <OR INF FALSE>)] 132>>
|
||
|
||
<AND? <SETG BEG 1> <SETG BEGV 2> <SETG PT 3> <SETG GPT 4> <SETG ZV 5> <SETG Z 6>
|
||
<SETG EXTRAC 7> <SETG JRSTLOC 8> <SETG ARGLOC 9>>
|
||
|
||
<MANIFEST BEG BEGV PT GPT ZV Z EXTRAC JRSTLOC ARGLOC>
|
||
|
||
<SETG TECO-OPEN %<RSUBR-ENTRY '[ACCESS-IN-CHARS TECO-OPEN #DECL ("VALUE" <OR
|
||
FALSE FIX> "OPTIONAL" <OR INF FALSE>)] 168>>
|
||
|
||
<SETG TECO-CLOSE %<RSUBR-ENTRY '[ACCESS-IN-CHARS TECO-CLOSE #DECL ("VALUE" <OR
|
||
FALSE FIX> "OPTIONAL" <OR INF FALSE>)] 223>>
|
||
|
||
<SETG TECO-ALLOC %<RSUBR-ENTRY '[ACCESS-IN-CHARS TECO-ALLOC #DECL ("VALUE" ANY
|
||
FIX "OPTIONAL" <OR INF FALSE>)] 300>>
|
||
|
||
<SETG TECO-PRINT-BUFFER %<RSUBR-ENTRY '[ACCESS-IN-CHARS TECO-PRINT-BUFFER #DECL
|
||
("VALUE" ANY STRING "OPTIONAL" FIX <OR INF FALSE>)] 422>>
|
||
|
||
<SETG TECO-READ-BUFFER %<RSUBR-ENTRY '[ACCESS-IN-CHARS TECO-READ-BUFFER #DECL (
|
||
"VALUE" <OR FALSE STRING> "OPTIONAL" <OR STRING FALSE> <OR ATOM FALSE> <OR INF
|
||
FALSE>)] 487>>
|
||
|
||
<SETG DUMMY " ">
|
||
|
||
<GDECL (DUMMY) <STRING [5 CHARACTER]>>
|
||
|
||
<SETG TECO-BUFFER-SIZE %<RSUBR-ENTRY '[ACCESS-IN-CHARS TECO-BUFFER-SIZE #DECL (
|
||
"VALUE" <OR FALSE FIX> "OPTIONAL" <OR ATOM FALSE> <OR INF FALSE>)] 696>>
|
||
|
||
<ENDPACKAGE>
|