|
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: 2304 (0x900)
Types: TextFile
Names: »retload5tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retload5tx «
mode list.yes
load51tx=edit load4tx
; i proceduren transfer skal load være parat til at rejse/cleare high
; speed bitten ved genoptagelse af transfer efter båndskift
;
; i proceduren end of document skal timer bitten behandles før andre
;
l./message transfer page 4;/, l-1, r/88.11.17/90.03.12/
l./transfer (za, i, /, l./setposition (za (1), file (i), block (i)/,
i#
if modekind (i) shift 4 < 0 then
begin <*high speed bit specified*>
getzone6 (za (1), zdescr);
zdescr (1) :=
if segments - sumsegs <
speedlimit / (if modekind (i) shift 9 < 0 then 4 else 1) then
logand (modekind (i), -(1 shift 19 + 1)) extract 23 <*clear*>
else
logor (modekind (i), 1 shift 19 ) extract 23;<*set *>
if test then
write (out,
"nl", 1, <:speed bit = :>, zdescr (1) shift (-19) extract 1);
setzone6 (za (1), zdescr);
end;
#, p-3
l./message end of document page 2;/, l-1, r/87.04.24/90.01.29/
l./if status shift (-22) extract 1 = 1 then/, d, i/
if status shift (-21) extract 1 = 1 then
begin <*timer*>
if operation = 3 and
hwds = 0 <*nothing transferred*> then
hwds := 2 <*end of recorded media - on adp streamer tape*>
else giveup (ztape, status, hwds);
end <*timer*> else
if status shift (-22) extract 1 = 1 then
/,
l./if status shift (-21) extract 1 = 1 then/, d./end <*timer*> else/, p-10
f
end
▶EOF◀