|
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: »retopen3tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retopen3tx «
mode list.yes
open4tx=edit open3tx
; rettelser aht imc
l./page ...3/, r/rc 1977.10.20 /fgs 1988.03.01/
l./sl w0 19/, r/19/21/, r/18/20/
l./page ...4/, r/83.12.07/88.03.01/
l./sn w3 18/, d3, i/
se w3 20 ; zone.state :=
sn w3 18 ; if zone.kind = mt
am 8 ; or zone.kind = imc then
al w0 0 ; not positioned <*or not connected*>
rs w0 x1+h2+6 ; else
; after open;
/, p-4
l./page ...8/, r/84.08.31/88.11.21/
l./b. a15/, r/a15/a20/
l./i5:/, d, i/
i5: rl. w2 (j4.) ; external entry termzone: w2 := last used;
ds. w3 (j1.) ; save w2, w3;
jl. j19. ; goto continue;
/
l./a2:/, l-2, d1, i/
al w3 1 ; zone.partial word :=
rs w3 x1+h2+4 ; empty;
al w3 0 ; zone.record length :=
rs w3 x1+h3+4 ; 0;
/, p-4
l./jl. 4/, r/4 /a13./
l2, r/ /a13: /
l./page ...10/, r/84.02.21/88.12.01/
l./wa w0 x1+h3+4/, r/length-1;/length;/
l./bs. w0 1/, d
l./sl w0 (x3+2)/, d2, i/
sh w0 (x3+2) ; if last <= used share.first shared then
jl. a5. ; goto count share; <*block is empty*>
bs. w0 1 ; last := last - 1;
/, p-2
l./a5:/, l./jl. 4/, r/4 /a14./
l2, r/ /a14: /
l./jl. 6/, r/6 /a15./
l2, r/6 /a16./
l1, r/ /a15: /
l2, r/ /a16: /
l./page ....12/, r/..../.../, r/83.12.07/88.08.12/
l./j8=k+1/, l-2, i/
al w0 x2 ; save sref in w0;
/, p-1
l./jl w3 x3+0/, d2, i/
jl w3 x3+0 ;
al w1 x2 ; w1 := zone addr;
rl w2 0 ; w2 := saved sref;
ds. w3 (j1.) ; save sref, w3;
; end;
; end;
/, p-6
l./page ...16/, r/84.03.05/88.03.01/
l./rs w0 x1+h1+12/, i/
zl w3 x1+h1+1 ;
se w3 20 ; if zone.kind <> imc then
/, l1, r/file/ file/, p-3
l./rs w0 x1+h1+14/, i/
zl w3 x1+h1+1 ;
sn w3 20 ; if zone.kind <> imc then
jl. a0. ; begin
/, l1, r/block/ block/, l1, r/segm/ segm/, l./al w0 -1/, i/
a0: ; end;
/, p-6
l./page ...19/, r/83.12.07/88.03.01/
l./a1:/, l./al w2 0; state := 0;/, d1, i/
zl w2 x3+h1+1 ;
rl w0 x3+h2+6 ; if zone.kind = imc and
sn w2 20 ; zone.state = not connected then
se w0 8 ; state := 8
am -8 ; else
al w2 8 ; state := 0;
/, p-6
l./page ...20/, r/84.02.15/88.11.07/
l./rl w0 x3+h1+12/, i/
zl w0 x3+h1+1 ;
sn w0 20 ; if zone.kind <> imc then
jl. a0. ; begin
/, l2, r/file/ file/, l./al w0 0/, i/
a0: ; end;
/, p-6
l./page ...21/, r/83.12.07/88.03.01/
l./a1:/, l./rs w0 x1 /, i/
zl w3 x3+h1+1 ;
se w3 20 ; if zone.kind <> imc then
/, l1, r/bloc/ bloc/, p-3
l./page ...24/, r/87.08.27/88.08.12/
l./j15 =/, r/=/:/
l./page ...29/, r/84.03.05/88.03.01/
l./m.rc/, r/87.08.27/88.12.01/
f
end
▶EOF◀