|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4608 (0x1200)
Types: TextFile
Names: »retset3tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retset3tx «
mode list.yes
set4tx=edit set3tx
; nye modekind abbrev.
; general text parameter allowed in set, changeentry, assign and entry
;
l./cat adm 1/, r/rc 07.04.72/fgs 1988.19.13/
l./cfversion/, r/cfversion //
l./s. a200/, r/a200/a300/
l./...08/, r/rc 76.05.31/ fgs 1988.12.20/
l./a23:/, g1/name/ shortest name/
l./a25:/, i/
a223:4<12+ 9 ; space, nearly name
a123:4<12+(:7*8+10:); space, longest name
a124:8<12+(:7*8+10:); point, longest name
a28: 4<12+4 ; space, integer
/, p-2
l./...10/, r/84.06.18/8.05.06/
l./<:mto:>/, d./<:mthl:>/, i#
<:mto:>,0 , 1<23+ 0<12+18 ; mt, high density, odd parity
<:mte:>,0 , 1<23+ 2<12+18 ; even
<:nrz:>,0 , 1<23+ 4<12+18 ; low , odd
<:nrze:> , 1<23+ 6<12+18 ; even
<:mtlh:> , 1<23+ 0<12+18 ; low speed, high , odd
<:mtll:> , 1<23+ 4<12+18 ; low
<:mthh:> , 1<23+128<12+18 ; high speed, high
<:mthl:> , 1<23+132<12+18 ; low
<:mt62:> , 1<23+ 0<12+18 ; 6250 bpi
<:mt16:> , 1<23+ 4<12+18 ; 1600
<:mt32:> , 1<23+ 8<12+18 ; 3200
<:mt08:> , 1<23+12<12+18 ; 800
#, p1
l./...12/, r/rc 22.05.72 / fgs 1988.12.20/
l./sh. w3 (a23.)/, r/a23.) /a123.)/, p-1
l./se. w0 (a23.)/, d2, i/
sn. w0 (a28.) ; if param <> space, integer
se. w3 (a29.) ; or next param <> point, integer then
jl. b13. ; goto paramerror;
/, p-3
l./...13/, r/rc 78.03.18 / fgs 1988.11.30/
l./b. c9/, r/c9/c11/
l./se. w0 (a23.)/, d, i/
sh. w0 (a123.) ; if param > 4 < 12 + longest name
sh. w0 (a223.) ; or param < 4 < 12 + shortest name
/, l1, p-3
l./se. w0 (a23.)/, d, i/
sh. w0 (a123.) ; if param > 4 < 12 + longest name
sh. w0 (a223.) ; or param < 4 < 12 + shortest name
/, l1, p-3
l./ds. w1 a90./, i/
ls w1 -8 ; zero last char
ls w1 8 ; of last word in name;
/, p-2
l./sn. w0 (a23.)/, d2, i/
sh. w0 (a123.) ; if param > 4 < 12 + longest name
sh. w0 (a223.) ; or param < 4 < 12 + shortest name
jl. c10. ; goto not name else
jl. c0. ; goto test if date;
c10: sh. w0 (a25.) ; if nextsep = endsep then
/, p-5
l./sn. w0 (a23.)/, d2, i/
sh. w0 (a123.) ; if param > 4 < 12 + longest name
sh. w0 (a223.) ; or param < 4 < 12 + shortest name
jl. c11. ; goto not name else
jl. b13. ; goto paramerror;
c11: rl. w3 c7. ; if nextsep = endsep then
/, p-5
l./c5:/, l./sl w1 2/, g/2/4/
l./...17/, r/fgs 1981.08.05/ fgs 1988.10.13/
l./c16:/, r/c16:/ /
l./se. w0 (a23.)/, d, i/
sh. w0 (a123.) ; if param > 4 < 12 + longest name
sh. w0 (a223.) ; or param < 4 < 12 + shortest name then
/, l1, p-3
l./se. w0 (a23.)/, d, i/
sh. w0 (a123.) ; if param > 4 < 12 + longest name
sh. w0 (a223.) ; or param < 4 < 12 + shortest name
/, l1, p-3
l./se. w0 (a23.)/, d, i/
sh. w0 (a123.) ; if param > 4 < 12 + longest name
sh. w0 (a223.) ; or param < 4 < 12 + shortest name
/, l1, p-3
l./...18/, r/82.12.17/88.11.30/
l./se. w0 (a23.)/, l-1, d4, i/
se w3 0 ; if count <> 0 then
jl. c16. ; examine separator;
sh. w0 (a123.) ; if param > 4 < 12 + longest name
sh. w0 (a223.) ; or param < 4 < 12 + shortest name
jl. c16. ; goto eamine separator;
jl. w1 c21. ; test if date;
c16: ba w2 x2+1 ; examine separator:
/, l1, p-8
l./c9:/, l./sl w1 2/, g/2/4/
l./c15:/, l./se w1 10/, r/se w1 10/sh w1 9 /
l./cat adm 1, tails/, l./m./, r/84.06.18/88.12.20/
l./m. set/, r/ set/ set/
f
end
▶EOF◀