|
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: 3072 (0xc00)
Types: TextFile
Names: »retbinin5tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retbinin5tx «
mode list.yes
binin51tx=edit binin4tx
; disk.diskname has to work for bs entries as well
;
l./88.05.03/, r/88.05.03/90.09.10/
l./s. a40/, r/a40, b40/a50, b400/
l./page 10/, r/88.06.02/90.09.10/
l./d13:/, d5, i/
d13: ds. w1 b32. ; save w0, w1;
ds. w3 b33. ; save w2, w3;
al. w2 b17. ; w2 := addr default docname;
rl. w0 b29. ; if saved entry.size < 0 and
sl w0 0 ;
jl. a41. ;
rl w0 x2 ;
sl w0 4 ; default docname = (0, 1, 2, 3) then
jl. a41. ; begin <*lookup entry to find docname*>
al. w1 b31. ; tail := addr tail area;
al. w3 b30. ; name := saved docname;
a45: jd 1<11+42 ; lookup entry (name, tail);
se w0 0 ; if found then
jl. a21. ; begin
rl. w0 b31. ;
sl w0 0 ; if tail.size < 0 then
jl. a44. ; begin
al. w3 b312. ; name := addr tail.docname;
jl. a45. ; goto lookup entry;
a44: rl. w1 (b32.) ; end else
al. w2 b312. ; begin
rl. w3 b33. ; w1 := permkey; w2 := addr tail.docname;
jl. a42. ; goto permanent into auxcat;
a21: rl. w1 (b32.) ; end;
rl. w3 b33. ; end;
jl. a43. ; goto permanent entry;
a41: rl w0 x2 ; end <*lookup entry*>;
rl. w1 (b32.) ; w0 := default docname.first word; w1 := permkey;
sl w0 4 ; if w0 > 3 then
a42: am 40 ; permanent into auxcat else
a43: jd 1<11+50 ; permanent entry;
/, p1
l./page ...11/, r/88.05.03/90.09.10/
l./a20:/, r/a20:/ /
l./rl w3 x2+12/, l1, i/
rs. w3 b29. ; save tail.size;
sl w3 0 ; if tail.size < 0 then
jl. a20. ; begin <*create bs entry, save docname*>
dl w1 x2+ 16 ; move
ds. w1 b302. ; name
dl w1 x2+ 20 ; from entry.docname
ds. w1 b306. ; to save area;
a20: ; end;
/, p1
l./page 12a/, r/89.01.11/90.09.10/
l./b28:/, l1, i/
b29: 0 ; saved tail.size;
b302=k+2, b306=k+6;
b30: 0, r.4 ; saved docname;
b312=k+2;
b31: 0, r.10 ; tail.size; b31+2: tail.docname;
b32=k+2 ; saved w0, w1;
0, 0 ;
b33=k+2 ; saved w2, w3;
0, 0 ;
/, p-7
l./page ...13a/, r/89.01.11/90.09.10/
l./a35:/, l./jl. a18./, r/a18/a37/, r/tape/param/
l./m.rc /, r/89.01.11/90.09.10/
f
end
▶EOF◀