|
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: 1536 (0x600)
Types: TextFile
Names: »retmove5tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retmove5tx «
mode list.yes
move6tx=edit move5tx
; area descriptors with tail.(file, block) <> (0, 0) should have
; file, block ignored
;
l./a24:/, l./;connect input/, l./jl. a13./, l1, i/
rl. w2 c4. ;
sh w2 -1 ;if input tail.size >=0 then
jl. i6. ;begin <*area descr., zero file, block, segm count*>
rs w0 x1+h1+12 ; zone.(file, block, segm) :=
rs w0 x1+h1+14 ; (0, 0, 0);
rs w0 x1+h1+16 ;
i6: ;end;
/
l./;connect output/, l./jl. a12./, l1, i/
rl. w2 c3. ;
sh w2 -1 ;if output tail.size >=0 then
jl. i7. ;begin <*area descr., zero file, block, segm count*>
rs w0 x1+h1+12 ; zone.(file, block, segm) :=
rs w0 x1+h1+14 ; (0, 0, 0);
rs w0 x1+h1+16 ;
i7: ;end;
/
l./ m. rc 19/, r/89.07.14/90.09.04/
f
▶EOF◀