|
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: 3840 (0xf00)
Types: TextFile
Names: »retcmprl3tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retcmprl3tx «
mode list.yes
comprlib4tx=edit comprlib3tx
; close up text output on any alarm
; endless loop in case of parameter error
; check entry permkey as well as entry bases
; end of doc in input => transport error in input
; rejected input from catalog => repeat
; check startsegment of any already compressed entry against size
l./page 2/, r/86.07.04/88.10.12/
l./b13:/, l1, i/
b14: 0 ; - - - permkey;
/, p-1
l./page ...5/, r/86.07.03/88.10.12/
l./a0:/, d3, i/
a0: zl w2 x3+1 ; begin
sn w2 0 ; if preceeding length (param) = 0 then
jl. a1. ; goto finis;
hs w0 x3 ; preceeding separator (param) := 4; <*<s>*>
/, p-3
l./a1: rx. w1 d1./, l./comment i + 6/, d./jl. a0./, i/
ls w1 1 ; <*i + k + 4 is rel addr of last word of ext list*>
wa. w1 d1. ; <*i. e. rel addr of the word containing <date> *>
al w0 x1 ;
a0: wa w0 6 ; for i := i + k
sh w0 502-7 ; while i + k + 4 > 502 - 2 do
jl. (d0.) ; begin
; <*if there is only one word left on the seg-*>
; <*ment then it is used for continuation word*>
jl. w3 c3. ; input extra segment; k := rel start ext list;
al w3 x3-502 ; k := k - 502;
jl. a0. ; end;
/, p-11
l./page 6/, r/86.07.04/88.10.12/
l./c3:/, l./rl. w2 d0./, i/
rl. w3 b1.+22 ; if input zone.share.top transferred -
ws. w3 b1.+8 ; input zone.share.first address <= 2
sh w3 2 ; then
jl. f0. ; goto transport error input zone;
/, p-4
l./c7:/, l./ds. w0 b12./, l1, i/
al w0 7 ; ;
la w0 x1 ; save entry permkey;
rs. w0 b14. ;
/, p-3
l./bz w0 x1+30/, i/
al w0 7 ;
la w0 x1 ; if entry permkey <> saved permkey then
se. w0 (b14.) ; result := 2
jl. a3. ; else
/, p-4
l./page 7/, r/86.07.04/88.10.12/
l./a3=k-a0/, r/interval/scope/
l./page 8/, r/rc 06.03.73 /fgs 1988.10.12/
l./jl. c6./, i/
am -2000 ;
jl. w3 h95.+2000 ; close up text output (curr out);
/, p-1
l./jl. c5./, i/
am -2000 ;
jl. w3 h95.+2000 ; close up text output (curr out);
/, p-1
l./page 9/, r/rc 01.03.73 /fgs 88.10.12/
l./a3:/, l./jl. c0./, i/
am -2000 ;
jl. w3 h95.+2000 ; close up text output (curr out);
/, p-1
l./page 10/, r/rc 03.04.74 /fgs 1988.10.12/
l./d6:/, r/-1<2/-1<3/, r/tus/tus (all except rejected, normal, hard)/
l./page 11/, r/86.07.04/88.10.12/
l./check entry base/, r/base/base, permkey/
l./page 12/, r/86.07.04/88.10.12/
l./a4:/, l2, i/
al w2 0 ;
se w0 1 ; if dummy answer then
rs w2 x1 ; status := 0;
/, p-3
l./a6:/, l./dl. w1 b0.+h1+4/, i/
al w0 7 ;
la w0 x2 ; if entry permkey <> saved entry permkey then
se. w0 (b14.) ; goto next entry;
jl. a7. ;
/, p-4
l./rs. w1 b0.+h1+16/, i/
am. (b4.+14) ; if first segment >
sl w1 1 ; outputfile.size then
jl. a7. ; goto next_entry; <*entry doesnt belong*>
zl w0 x2+31 ; input entry.rel start external list :=
hs. w0 b4.+31 ; entry.rel start external list;
/, p-5
l./page 13/, r/rc 24.03.83 /fgs 88.10.12/
l./m.compr/, r/86.07.04/88.10.12/
f
end
▶EOF◀