PDP-10.its/bin/librm3/mudtec.fbin

'<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>