Trailing-Edge
-
PDP-10 Archives
-
BB-H311C-RM
-
swskit-hacks/super-editor.tec
There is 1 other file named super-editor.tec in the archive. Click here to see a list.
-1u3[3 qO+2"N oINIT'= ESCape ^? for full help.
!XC!0u:75!CMD!.:q:72u:73
q6&2"N7^T300^t<2,(-1^T); ^T-127; X>wupoFOR'
-1^T"Lwup'500^t"L!FOR!K
.*100/zu9q9"E."N1u9''q9=37^Tq0"Nq0-."E@oMK'Mq0-."L+oMK'-!MK!'
q6&256"NC'q6&4096"NP'
q6&1"NO'q6&8"NBa']3[3%3"NT'q6&16"NAp'q6&64"NU'q:75"N*'
q6&512"NTa' q6&1024"NL' q6&32"N32^T Whou (Wload141^T'
[q:71;t93^T q6&2"N63^T' K'
-2051&q6u6 0u40u70u5 1+q:75*q6&64"N5500^T"Lmn oCMD''
q6&32"N50000^T"LoCMD'' ^tu1
(q1-9)*(q1-10)*(q1-13)"EoINS' q1-27"E-1u4OESC' q1-127"E0u1'
q1-31"G!INS! q6&1"N 0a-13"E q6#16384u6' q1-13"E^T -16835&q6u6 .-z"Ei
oXC'loCMD' q6&16384"Eq1fcoXC'' q1MJ q1-10"Eq6&16"Nmp'' OXC'OAFESC
!ESC! ^TMG:u1-127"EoCMD' q1-27"E ^TMG:u1-127"EoCMD'q1-32"LoERR'
q1-64u1 OAFESC'q1-32"LOAFESC' q1MFu2
q2+1"Gq2-10"E-1u7OESC' q5*10+q2u5OESC' 0u4q1-64u1
!AFESC!q1+1"E^T:u1-127"EoCMD'q1-77"E90u1'q1MGu1 75-q1u1'
q7"N-q5:u5"E-1u5''-1^T"L
q1+32"Eq5"E1u5'-q5u5oBRZ'
q1+31"Ewupwgarb
q1+30"Eg character ^Tu10l q5"Eq1ioCMD'
4,q5u45,q5<q1iq4l.-z; >oCMD'
q1+28"Eq6#1024u6 24u1'
q1+27"Eq5-1"LjOCMD'q5*z/100+1u9q9-z"Gzu9'q9joCMD'
q1+26"E<c0u9wgarb
<750^T"E0; '%9-2"G0u9
'Type space to return! > ^T<Z^T^T-47"E^T=\^Lwup
8192#q6u6oCMD'
<^T-99"E0; '>[q[?2l=\wvt52-8193&q6u6oCMD'
q1+25"EMM"Lhxdgdq:72j
Loading from Mainbuff...oEND'?OCMD'
q1+12"Eq6&4096"E20u1oDTR'19u1'
q1-18"E 4#q6u6 19u1'
q1-19"EMM"L-1u5'.u1zjzu3q5"E1u5'
%<^Tu2q2-127"Eq3-."N-d oY2'
Fq2-21"Eq3,.kq2-27"E0; ' q2-22"E22i^Tu2' q2i!Y2!>
q3jiq5:szj27ii"E2#q6u6'
q3,zxc q1j mc q6&4"N q6&2"E q5"G-1u5oRE'1u5!RE! q5:r 0U:75''-5&q6u6 OCMD'
q1+24"ECommand file:hxy69mqgz27ij59ihxzgyq:72jmzoCMD'
q1+23"Eq5"E1u5'<.-z; -1^t; q5MLwup>.-z"N^T'oCMD'
q1+22"Eq4u:75oCMD'
q1+20"E.-Z"N."G0AU9D-CQ9I'COXC'OCMD'
q1+18"Eq:73joCMD'
q1+17"Eq5"E7u5'q5+2u5q5-22"G^LoCMD'q5"L
Not invented yet.oCMD'q5<
>oCMD'
q1+15"E!BRZ!MM"L.u0'@jq0"E.u0'q5"E1u5'q6&8"N-q5u5'q5*18eoCMD'
q1+14"EMM"LzjoCMD'q5jOCMD'
q1+13"EMM"L.:q0joCMD'.u0oCMD'
q1+11"E
z"EIts empty.oNDIS'At .= of z= characterq9-1"Ns'
q4"N.oCMD'; at line
0u1.u2msu3q3= of .u1zu2ms+q3= (q9= following)
Markq0"E not set.oNDIS' at q0-z"Eend.oNDIS'q0=
(q0-.u9q9"Ehere)oNDIS'
q9"Gq9= charq9-1"Ns' forward'
q9"L -q9= char%9"Ns' back') on line 0u1q0u2ms=!NDIS!
(1WPHASE) q6&1"NOverwrite mode. 'q6&8"NBackward Browse mode. '
q6&256"NCopy. '
q6&32"NTime output. ' q6&64"NUpdate modeq:75"N (Updated)'. '
q6&16"NAutoparasite mode. 'q:74"NPara-default value= q:74='
q6&512"NTab on Newline mode. ' q6&1024"NLoad on exit. '
q6&4096"NPreempt keys mode. '
q:72j Space to go on. ^Tu9q9-26"E^C'q9-27"Eq6#2u6'oCMD'
q1+10"Eq4"E.-q0"L
.u2q0jq2u0'q0,.xuq6&256"NguoCMD'oXC'guoXC'
q1+9"EMM"L-1u5'q5"E1u5'.u2-q5ML.u3MIoXC'
q1+8"E6u1'
q1+7"Eq5"E1u5'-q5loCMD'
q1+6"E8u1'
q1+5"Eq5"E1u5'z-."Eq5"Gq5<i
>q6&512"N9i'
New line.oXC''q5loCMD'
q1+4"Eq5u:74oCMD'
q1+3"EMM"L-1u5'q5"E1u5'q5eoCMD'
q1+2"E!RSC!MM"L-1u5'q5"E1u5'q5:s"Eq6#2u6'oCMD'
q1+1"Eq0joCMD'
q1"E.u2q5"E1u5'.-q5u3MIOXC'
q1-1"EMM"L-18lOCMD'q5"E1u5'-q5u5oARW'
q1-2"EMM"L 18lOCMD'q5"E1u5'!ARW!
.u8 0l bu9 <.-q8; 0a-127"N 0a-27"N 0a-32"L 0a-9"E q9/8+1*8-2u9' %9''%9'c>
q5l 0:q9u8 <q9-q8; 0a-13"Ec0a-10"E-c0; '-c'0a-1000;
0a-127"N 0a-27"N 0a-32"L 0a-9"E q9/8+1*8-2u9' %9''%9'c> oCMD'
q1-3"EMM"LeOCMD'q9"Gq5MKOCMD'1MKOCMD'
q1-4"EMM"L0lOCMD'q9"G-q5MKOCMD'-1MKOCMD'
q1-5"EMM"LmxoXC'MH+0,zXX q:72jMXoXC'
q1-6"EMM"L.u0'q5MLOCMD'
q1-7"E ga q:60ua 60u2 9<q:(2+1)u:(2) %2> .,.X:69 q4"Nq:72j'OXC'
q1-8"EMM"L.u0'q5"E1u5'-q5MLoCMD'
q1-9"EMM"LgbOXC'MH+0,zXBq:72jgboXC'
q1-10"EMM"Li
SEARCH MONSYM,MACSYM
ST: JFCL
RESET
oCMD'i
oCMD'
q1-11"EMM"E.u2l.u3MIOXC'q9"L.u2q0u3MIOXC'.u2q5l.u3MIOXC'
q1-12"EMM"L@J^LOCMD'q5"Nq5L'^LOCMD'
q1-13"EMM"L.:q0jOCMD'q0jOCMD'
q1-14"EMM"L20u5'q5"E1u5'q5<13MJ10MJ>q:72jOXC'
q1-15"EiMM"Lbu6oCMD' bu4 q5"E
<^TMGu1 bu2 q1-65"Eutoparasite 16u2' q1-66"Eackward-browse 8u2'
q1-84"Eime-after-command 32u2' q1-79"Everwrite-on-insert 1u2'
q1-83"Epace-after-newline 512u2' q1-76"Eoad-after-exit 1024u2'
q1-80"Ereempt-keys 4096u2'
q1-85"Epdate-on-pause 64u2' q1-63"E,A,B,C,L,O,P,S,T,U: 2048u2'
q1-33"Lq1-13"E^T'0; 'q1-67"Eopy-on-text-store 256u2'
q2"E ' q2&(-2049)#q4u4>
q4"Enothing.oCMD'
!OK!q5"E0-q4-1&q6u6' q5"Gq4#q6u6' oCMD'
q1-16"Eq6&4096"NoRSC'
q4"N<]3q3"L[30; '>OCMD' ]3q3"Lq6#2u6[3oCMD'q3-z"Gzu3'q3joCMD'
q1-17"EMM"LoERR'q5"E1u5'.u2.+q5u3mIoXC'
q1-20"E!DTR!q4"N[0oCMD'[:72OCMD'
q1-21"Eq4"N.u2e.u3MIOXC'.u20l.u3q2-q3"E-l.u3'MIoXC'
q1-22"EMM"L27u1oINS'q5"E^Tu1oINS'q5u1oINS'
q1-23"E q5"N-1u5' MM"L1u5'q5"E.-z"N0,0a;b"G 3u50a-93"L%5'q5,0a;bf'c'oXC'
.u2 q0u33u4q5"L4u4' q2-q3"Gq2:q3u2' q2j q3-q2<q4,0a;bfc>oXC'
q1-24"E Wup q6#128u6 mn q6&1024"Nhxpg:71 j0a-59"Ehk'
j1:s.RNO"NjiRunoff [Calling Runoff foroDNX'
j1:s.CTL"NjiSubmit [SubmittingoDNX'
j1:S.CMD"NjiTake [TakingoDNX'
j1:S.PCL"NjiDeclare PCL [Declaring fromoDNX'
j1:s.AUX"NjiCopy zji (to) ASG:
Set file inv *.auxj:s [Copying, fileoDNX'
j1:s.TEC"N -1025&q6u6
[Setting up as new parasite package] hkgp wgarb q:72j q5"N
[Starting]mp'oCMD'
q5"N jiComp [CompilingoLOCO' jiLoad [Loading
!LOCO!.-z"E-d, last load command being used]oDNY'
1:s."N1:s."N-dk'' js
!DNX!.uzeqz,.xygy32^Tqy;t93^t!DNY!zji
27ij6ihxymy0uywgarb^CoCMD' q6&(-129)u6 q4"EoEXIT'OCMD'
q1-25"E1000^T"LY-mode: '!YM!^TMGu1
q1-37"E MM"L q:100+1u5' q5-q:100u1 z"E1u1'q1"E
That would clobber this buffer; are you sure? ^TMG-89"Ehk1u1''
q1/q1*(20-q5)*(q5+1)-1"LoERR' 1+q:75*q6&64"Nmn'
.,.x:(5+40) .u:(:100) q0u:(:100+20) hx:(:100+40) 0u:72 0u:73
0u:(5+20) wgarb ;y zj.uz wfi -1:s."Ld' .u1 \/1000"G q1,zk i;T
q1+2u1' q1,zk qz,.x:71 q5u:100 q:(5+20)u0
hxy g:70 j q5l e0k g:71 hx:70 gyj 0uy wgarb -1u:75 oCMD'
q1-58"Eq0"E zu0' q0-."L.:q0j' -1u4 .u3 q0,zx7
Text to isolate lines by: mv q9"L
%Aborting.zjg70u7wgarbq:72joCMD' i"E0u4' q9,zxc q3j0l .u5 q3j 0u9
<mc q4; 0l q5,.k l .u5 %9> q5,zk .u0 g7 0u7 q3j
Done, q9= lines isolated. oCMD'
q1-65"Ejzu0oCMD'
q1-59"Ezj .u3 g:71 q3j :s:"Nq3,.kq3j' :s>"Nq3,.kq3j'
q3,zx:71 q:72j oCMD'
q1-64"Ezj.u3;yq3,zxyq:72jgyq:72j0uyoXC'
q1-79"EMM"LI^D'^T\oXC'
q1-81"E0u0hki;Quamped hx:710u:(:100)0u:(:100+20)0u:(:100+40)g:70j
q:100le0kg:71 hx:70wgarb-1u:75oCMD'
q1-82"E-1u4oYRS'
q1-83"E1000^T"Learch for character '0u4
!YRS!.u2q5"E1u5'zj.u3iq5:s^Ti27ii"E2#q6u6'q3,.xc
q:72j mc.-q2"Nq4"N.u3MIoXC'oCMD'!ERR!q6#2u6oXC'
q1-84"E !NEW! q5*(q5-19)"GoERR'q5-q:100"EoCMD' 1+q:75*q6&64"N mn' wgarb
-1u:75 .u:(:100) q0u:(:100+20) hx:(:100+40) g:70j q5l .u1 l
q1,.-2x:71hk
0u:720u:73g:(5+40).,.x:(5+40)q5u:100 q:(:100)j q:(:100+20)u0 wgarboCMD'
q1-85"E.u1q0u2
Lines from point to mark= msq1-q2"G-q9u9'q9=oCMD'
q1-70"E.-q0"E
%Point is where mark is.oCMD'.u3q0-."Lq3:q0u3'q0,zk 0,q3k 0u0zjoCMD'
q1-75"Ehkbu0oCMD'
q1-76"Ehxy g:70 j -1u2 20<%2\ q2-q:100"Ei *'9il> jewinviwupwvisi
hkgy 0uy q:72j;tJ Slash to switch: wgarb ^tu1 q1-27"Eq6#2u6'
q1-47"Er MTu5 oNEW' oCMD'
q1-78"E zj .uy
MM"Lwfi -1:s."Ld' .u1 \/1000"G q1,zk i;T q1+2u1' q1,zk oGNA'
400^T"Lame:' -1mqgz qyj<0a-32"N0; 'd> !GNA! zj qy-."Ei;Noname '
qy,.x:71 g:70 qyj q:100l .uz .-qy"Lqyuz'e qz,.k g:71 qy,zx:70
wgarb q:72j oCMD'
q1-73"E q5-q:100"EoERR' q5"LoERR' q5-19"GoERR' g:(5+40) oXC'
Sq1-42"EMM"L-1u5'cq5"E1u5' f: mv q9+1"G
i; %1> q9ji<diq5 q9,zxc q:72j 0u1 mc
q1= occurances from point.' q:72j oCMD'
q1-35"E
0a-1001"E(at End).oCMD'0a= (0a== Octal)OCMD'
q1-61"E^Tu1
q1= (q1== Octal)OCMD'
q1-66"E.-z"E
Balance^withnWHAT?oCMD'1u7q4"L-1u7'bu50au2
<0a-q2"E%5'0a-q3"E:%5'q5"E1MK0; 'q7MK-1000"G0; '>q5"N
Never balanced'oCMD'
q1-68"E-17&q6u6wgarbhx2q4"N
q2upoGB';yhxp!GB!g20u2wgarbq:72jStart? ^TMG-89"NoCMD'80u1'
q1-80"EMM"Gq5u:74'mpoXC'
q1-63"E%#=@SRAKBTLQDPNI oYM'
oERR'
q1-26"E!EXIT!]3[3%3"G
%Tour(s) still set, $$P to clear.oCMD'
q4"E >^Cwup=JOCMD 'oEND'
q1-27"Eq5"E1u5'-1ML1MLq:72,.xcgc.u1zj.u2iq5:Sgc27ii"Eq6#2u6'
q2,.xcq1jq4"Nj'mc ."Eq1j'oCMD'
q1-28"Eq4"Lwdate-ooXC'wdate-aoXC'
q1-30"E.*(.-z)"N1u50a-13"Ei -1u5'<wupq5MKwup-q5MK500^T; >q5"L-d'^T'oCMD'
q1-31"E
^Lhxy;rSE:SE.HLP;yMM"Lj<0a-126"E2d\0k-l'l.-z; >ht
Space to return.^ToFXH'
q5"N0u4Apropros Help, ready. Hit <CR> to end.!ARPH!
Help for commands mentioningq4"E (give word, ending with <CR>)1u4'>>
mv q9"L --Done.oFXH' i"E0u5' q9,zxc
j 1:s~"E
%Bad help file format.oFXH' 0l -1:u1:u5u2
<mc q5; .u3 -1:S~ c0a-35"E0; ' l .-q1"E q3jOAPA' .u1 1:s~*"Ezj' 0l
-- Item found --
q1,.t0u2
-- End item. Space to go on
^T-26"E1u50; '--!APA!> q5"GoFXH' q2"L
%No matches.oARPH'
-- End of matches --oARPH'
Help loaded, ^Z returns you to SE.
!CX!!XG!
Help for Command> 0u70u40u5 ^tu1
q1-9"EOIX' q1-10"EOIX'
q1-13"EOIX' q1-27"E-1u4OEX' q1-127"E0u1'
q1-31"G!IX!q6&1"Nq1-13"E^T
In overwrite mode, that CRLF moves to a new line.oCX'
In overwrite mode, that character will overwrite the next character
in the buffer.oCX'
That character inserts itself.OCX'OAFEX
!EX! ^TMGu1 q1-127"EoCX' q1-27"E ^TMGu1q1-127"EoCX'q1-32"L
That sequence is illegal (has no value or meaning).oXG'
q1-64u1 OAFEX'q1-32"LOAFEX' q1MFu2
q2+1"G-1u5OEX' 0u4q1-64u1
!AFEX!q1+1"E^Tu1q1-127"EoCX'q1-77"E90u1'q1MGu1 75-q1u1' q1-26"EoFXH'
Value is q1= MM"L, modified.'0u4j
!LOOK!1:s~"N 0a-35"N 0a-42"N\-q1"El-1u40u5
!LI!%5-22"G -------Space to continue.0u5^T-26"EoFXH''
0ltl0a-126"NoLI'1c0a-42"NoLI' '''oLOOK'q4"EDidn't find any such command.
'oCX!FXH!hkgy0uyq:72jwgarb^LwupoCMD'
q1-32"Eq5"E0ldoCMD'1u4 q5"L-1u4 -q5u5'q5<q4l.-z; d>oCMD'
q1-59"E
Provide a buffer file name: hxyi;w-1mqgz-1:s."Ezji.buffer'zj27i
hxzmz127ig:71i
q:72\32iq0\32Iq6\i SE buffer #q:100\i from wdayi
gyhp;chki;Saved as .u1gz-dq1j2dhx:71q4"Ngyq:72j'
z-q0"L0u0'0:uyuzwgarboCMD'
q1-61"E
Buffer file name? hki;r-1mqgz-1:s."Ezji.buffer'zj27ihxzmz0uz;y;c
j0a-127"N
%Not a saved buffer.oCMD'de0x:71l\u:72d\u0d\u1 tj2k
q1-q6"N%Flags changing.q1u6q6&16"N Autoparasite is on.''
q:72joCMD'
q1-60"EMM"L2048#q6u6q:76u5'q5"N
Number q5='q5"E
Patch number? mtu5'q5u:76.uzzj.u9i;[q5\i] q9,.xy qzjbu5bu7bu4i
-2c<-1^T"Lwup'^Tu1 Q1-12"E^LoB'
q1-8"EgyoB' q1-21"E0xaOB' q1-11"E2c1xa-2c%5OB' q1-22"E^TioB'
q1-127"E-c;p-10"N-d'oB' q1-27"E^Tu1q1-124"E0; 'q1-10"Ei
%70; 'q1-95"E
%Aborting patch attempt.qz,.kbu5bu70; '
No! Type <rub> to con. <^T-127"E0; ' >oB' q1i q1-10"E%7q4"E-di
''0u4q1-13"E-1u4'!B!>
2d q5#q7"EoCMD' .u1qzj0li;**gyIAt ,
.-3uz -2cq5"Ei Added q7u5oFN'
q7"EI Deleted oFN'
I Replaced q5\I lineq5-1"Gis'q7-q5"Ni with q7\'oARD!FN!q5\
i lineq5-1"Gis'!ARD!lB:u5uy 60<0aME"G 1ML -c;p-58"E
1uy0; ''."E0; '-L%5> qy"E2u5 q1j l60<0aME"G 1ML -c;p-58"E
1uy0; ''.-z; L:%5>' qy"E qzji?oQNL'
0L 1ML0a-58"Ec'0xygyqzjgy q5"NI q5"Gi+'q5-1\iL'
!QNL!0l5c\u5E.u10lq1-.u1q1c48-q1<32i>i g:77i WDATE-O .u0
q6&2048"Eji
ji;**Edit q5\i by g:77i - q0+.+2u0'
REMEMBER to set the edit number. oXC'
q6#2u6OCMD
!INIT! =
.u3zjzu4 wbackup 10wsavlen wnoshift wvt52 wauto
0u6 40<0u:(6) %6> 30<.,.x:(6) %6> 0u6 0u:100 0u:74
:sFOO.,.xa.,.xb.,.xc.,.xx q:77"Lg:77'.-q4"Ei??'q4,.x:77
20<i;Virgin
>q4,.x:70 i;Virgin q4,.x:71
@i~+0u9 1,q9;bu9q9~ q4,.xE
@i~+0u9 2,q9;bu9q9~ q4,.xF
@i~+0u9 3,q9;bu9q9~ q4,.xG
@i~[1zj;tDlm=.u9^Tu323<i
>winvi^L
<-1^T"Lwup'^Tu1q1-q3"E0; 'q1-22"E^TiOE'q1-127"E.-46-q9"E0; '-dOE'q1i!E!>
wvisi q9j23kzj]1q9~ q4,.xH
@i~[2[3q2-q3"Nq2-q3"Gq3:q2u3'q2"L0u2'q3-z"Gzu3'
[1 68u1 9<q:(1)u:(1+1) :%1> ]1 qau:60 q2,q3xa q0"N
q0-q2"Gq0-q3"L q3u0'q0-q3+q2u0q0''']3]2~ q4,.xI
@I~+0iq0"G.-q0"L%0''~ q4,.xJ
@i~+.u9q9*(z-q9)"L1002u9oR'q9j0au9!R!q9~ q4,.xK
@i~+0u9[8q9"E1u9'4,q9~2i@I~u85,q9~2i@i~u9
q9<!S!q8MK-1000"G0; 'q9-33"LOS'!W!q8MK-1000"G0; '
q9ME"GOW'0aMF+1"GOW'>."Nq8"L1MK'']8q9~ q4,.xL
@i~bu9q4"Nq5"E-2u9'%9'q9~ q4,.xM
@i~[z[8[9 .u8 zj .u9 0uz g:71 q9j -1u:75
(q9-z)*(0a-59)"N i;W zj 27i q9,zxz mz -1uz' q9,zk
q6&128#qz"N ;s;c 1uz q6&64"N wzap'' :%z"N;t
No file to write to, update ignored.' q8j ]9]8]z~ q4,.xN
@i~+0uz[8[9.u8zjqzu9.uzq9"Gq9i'~ 1i32i22i27i@I~J
<^tu9q9-27"E0; 'q9-13"E^T0; ' q9-21"E.-qz+2<~1i22i8i32i22i8i27i
@I~> qz,.koY' q9-127"E.-qz"N-d~
1i22i8i32i22i8i27i@I~'oY'q9i!Y!> qz,.xzq8j]9]8~ q4,.xQ
@i~0u9 [1[2[3[4[5[7
.u3 q1-q2"G q1:q2u1' q1-q2u4 q2"N q2-1jl .u2' q1j0l.u1 37u7
<q4; q2-q1/q7u5
<q5"E1u5' q1j q5l .-q2"L (.-q1)/q5-3u7q7-30"L37u7' 0; '
.-q2"E .-z"N0u40; 'q5-1"E0u40; '' q5/3*2u5>
.u1 q5+q9u9> q3j ]7]5]4]3]2]1 q9~ q4,.xS
@i~[8 <-2^Tu9 (^T:u8-127)*(q8-21)"N0; 'q8-21"E;t~ 22i8i22i8i27i
@I~' ;tXXX > ]8 q9~ q4,.xT
@i~zj .u9 mqgz0uz wgarb .-q9"E-1u9 oFL' q9j i1:S zj 27i !FL! q9~ q4,.xV
q3j %O"N-2uO oCMD'
!END! qO"N>' -2uO 0:uy:uz:u1:u2:u3:u4:u5:u7:u8u9wgarb
!* Reg uses
=== ====
0 Mark (0 if none)
1,2,3 Largely scrap. 1 is often used to indicate what function is desired.
4 ESC flag, set if the command was proceeded by a ESC.
5 numeric arg (if any) passed to command.
6 Flags: 1=overwrite mode / 2=error last command / 4=rep not src
8=browse backward / 16=auto MP on typed linefeed / 32=output time
64=update file on user pause or buffer switch
128=force output when MN called (local) / 256=copy, not remove
512=newline inserts tab / 1024=load on exit
2048=temporary, local info (improper as flag)
4096=K7 key does search, not tour / 8192=VT52, not 100
16384=doing overwrite, but after EOL.
7 Minus flag, set if user typed a - in the numeric arg
8 scrap
9 scrap, used by subroutines in passing/accepting values
A last deleted text
B last block inserted text
C last search command done
D where this all resides
E sub: char in, val out (q9) ret val if char is symbol-type, or
-val is char is non-symbol
F sub: char in, val out (q9) ret val of -1 if non-numeric symbol,
0-9 if number, 10 if "-"
G sub: char in, val out (q9) ret char, but force UC on letters
H sub: loc out (q9) accept text to endbuf, q9,z=text
I sub: del from q2-q3
J sub: in val, insert val to buffer
K sub: in val, out val (q9) move by inval characters, ret ascii val
of next, or 1001 at endbuf, or 1002 if illegal move
L sub: in val, move val words
M sub: out val, -1 if ESC but no number, 0 if nothing, 1 if number
N sub: save buffer to file, cont with buffer intact.
O startup flag: -2 means already set up once
P reserved for parasite package
Q sub: return typed text (up to esc) in qreg Z.
R text: do this command if non-zero
S sub: out val number of lines between point & mark
T
U saved text
V sub: out point where 1:Stext$ resides, or -1 if abort. Old point lost.
W
X last macro entered
Y scrap
Z scrap
:0-:19 point for buffers 0-19 (except current buffer)
:20-:39 mark for buffers 0-19 (except current buffer)
:40-:59 buffers 0-19
:60-:69 last deleted texts
:70 names of all buffers
:71 name of current buffer
:72 loc at beginning of this command
:73 loc at beginning of last command
:74 reserved for sending/receiving info with parasite packages
:75 buffer altered since last update
:76 last patch number (for $$| command
:77 initials of user (for $| command)
:78-99 reserved
:100 current buffer #
Note: this software is not supported, and the user uses it at his own risk.
Unused: $# $~ $+
Comments may be sent to:
Scott Mayo
Digital Equip. Corp.
200 Forest St.
Marlboro, Ma.
01752
Mailstop: MR1-2/S43
*!