|
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: »retload51tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retload51tx «
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 (-20) extract 1 = 0 and <*not dataov*>
status shift (-19) extract 1 = 0 and <*not blockl*>
status shift (- 7) extract 1 = 0 <*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 (-20) extract 1 = 1
or status shift (-19) extract 1 = 1
or status shift (- 7) extract 1 = 1 then
begin <*parity error, data overrun, blocklength error or word defect*>
!,p1,
l./<:warning : persistent/, d,
i !
<:persistent parity error, data overrun, block length error or word defect on tape:>);
!,p1,
f
▶EOF◀