|
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: »rrr «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »rrr «
load52tx=edit load51tx
m e
l./message transfer page 3;/, l-1, r/88.02.03/90.03.13/
l./if parity (1) then/, l./if expell then <: would be/, l2,
i !
if test then
begin
write (out,
"nl", 1, <:parity, block length error or word defect ::>,
"nl", 1, <:hwds = :>, hwds,
"nl", 1, <:segs = :>, segs,
"nl", 1, <:segm = :>, segm,
"nl", 1, <:segments = :>, segments,
"nl", 1, <:sumsegs = :>, sumsegs,
"nl", 1, <:segments mod segm = :>, segments mod segm,
"nl", 1, <:aux sync length = :>, aux_sync_length,
"nl", 2);
end;
!, p1
l./if hwds > 0 then/,
l./changerecio (za, hwds/, r/hwds/segs * 512/
l./message end of document page 2;/, l-1, r/90.01.29/90.03.13/
l./(status shift (-22)/, d1,
i !
(status shift (-22) extract 1 = 0 and <*not parity*>
status shift (-19) extract 1 = 0 and <*not blockl*>
status shift (- 7) extract 1 = 0 and <*not wd.def*>
or status shift (-13) extract 1 = 1) then <*read error*>
!,p1,
l./if status shift (-22)/, d1,
i !
if status shift (-22) extract 1 = 1
or status shift (-19) extract 1 = 1
or status shift (- 7) extract 1 = 1 then
begin <*parity error*>
!,p1,
l./<:warning : persistent/, d,
i !
<:warning : persistent :>,
<:parity error, block length error or word defect on tape:>);
!,p1,
l./<: file, block no/, d,
i !
<: file, block no :>, i, <:, :>, j + 1);
!,p1,
l./if hwds < 4 then/,
i !
status := 0;
!,p1,
f
▶EOF◀