Google
 

Trailing-Edge - PDP-10 Archives - steco_19840320_1er_E35 - 10,5676/teco/macros/tmacs.tec
There is 1 other file named tmacs.tec in the archive. Click here to see a list.
:-1
.,.X(LAST-LINE)
1,21E$(.) 22,22E$(ERROR-TEXT) 23,24E$(LAST-LINE)
E.(LAST-LINE)
I
TECmacros11I:E<(.)"F :E>(.)'I

JE.(.)MY
    !MAIN-LOOP!
EVUPDATE
U(CHARACTER)
Q(CHARACTER)-"E ODONE'
Q(CHARACTER)-33"E OALT-MODE-COMMAND'
Q(CHARACTER)-"E :+1R OMAIN-LOOP'
Q(CHARACTER)-"E :+1C OMAIN-LOOP'
Q(CHARACTER)-"E [A.UA0LQA-.UA:+1L.+QAJ]A OMAIN-LOOP'
Q(CHARACTER)-"E [A.UA0LQA-.UA:-1L.+QAJ]A OMAIN-LOOP'
Q(CHARACTER)-"E 0LKOMAIN-LOOP'
Q(CHARACTER)-177"E :-1D OMAIN-LOOP'
Q(CHARACTER)-"E :-1D OMAIN-LOOP'
Q(CHARACTER)-"E .,.+1X(CHR)DCG(CHR) OMAIN-LOOP'
Q(CHARACTER)-"E OMETA-COMMAND'
Q(CHARACTER)-"E :S
 OMAIN-LOOP'
Q(CHARACTER)-
"E 
 OMAIN-LOOP'
Q(CHARACTER)-"E :+1D OMAIN-LOOP'
Q(CHARACTER)-"E .U(TMP) :SL:-SL
Q(TMP)-."E +1K OMAIN-LOOP'
.U(TMP) 0L .,Q(TMP)K OMAIN-LOOP'
Q(CHARACTER)-"E :SL:-SL OMAIN-LOOP'
Q(CHARACTER)I
OMAIN-LOOP

    !META-COMMAND!
U(CHARACTER)
OMAIN-LOOP
    !ALT-MODE-COMMAND!
U(CHARACTER)
Q(CHARACTER)-133"E OMETA-ALT-MODE'
Q(CHARACTER)-74"E J'
Q(CHARACTER)-76"E ZJ'
Q(CHARACTER)-126"E :-2S
'
OMAIN-LOOP
    !META-ALT-MODE!
U(CHARACTER)
Q(CHARACTER)-101"E [A.UA0LQA-.UA:-1L.+QAJ]A'
Q(CHARACTER)-102"E [A.UA0LQA-.UA:+1L.+QAJ]A'
Q(CHARACTER)-103"E +1C'
Q(CHARACTER)-104"E -1C'
Q(CHARACTER)-114"E I
:-L'
Q(CHARACTER)-115"E +1K'
Q(CHARACTER)-120"E +1D'
OMAIN-LOOP


    !DONE!
1,20E$(.) 21,24E$(COMMAND-BUFFER)
EVUPDATE