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