|
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: »statustx«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦0f6e8048b⟧ »preditfile«
└─⟦this⟧
\f
comment predit text * page 48 11 02 80, 16.42
0 1 2 3 4 5 6 7 8 9 ;
comment case 13, status
the programme converts the statusword as numerical
value into the meaning of the single bits.
;
begin
array param(1:2);
integer status, t;
if readparam(param) = 1 then
begin
status := param(1);
for t := 0 step 1 until 23 do
if status shift t < 0 then
write(out, nl, 1, case t + 1 of (
<:intervention:>,
<:parity error:>,
<:timer:>,
<:data overrun:>,
<:block length:>,
<:end_of_document:>,
<:load point:>,
<:tape mark or att:>,
<:write enable:>,
<:high density:>,
<:read_error:>,
<:card_reject:>,
<:checksum_error:>,
<:bit_15:>,
<:bit_14:>,
<:stopped:>,
<:word defect:>,
<:position error:>,
<:process does not exist:>,
<:disconnected:>,
<:unintelligible:>,
<:rejected:>,
<:normal answar:>,
<:hard error:>,
<::>));
write(out, nl, 2);
end
else
write(out, nl, 1, <:param should be a single number:>);
end case 13, status;
▶EOF◀