DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »wrstatustx«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦80900d603⟧ »giprocfile« 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦80900d603⟧ »giprocfile« 
            └─⟦this⟧ 

TextFile

;       write_status          * page 1   23 05 80, 10.37;  

write_status = set 1

write_status = algol

external

procedure write_status(out_z, status_word);  
value                         status_word;  
zone                   out_z;  
integer                       status_word;  
begin

  <*
  the procedure converts the statusword as numerical
  value into the meaning of the single bits.

  out_z (call and return, zone) the write report document.

  status_word (call, integer value) the status_word from i/o_routines.

  *>

  integer  t;  

  for t := 0 step 1 until 23 do
  if status_word shift t < 0 then
  write(out_z, 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 answer:>, 
  <:hard error:>, 
  <::>));  
  write(out_z, nl, 2);  

end write_status;  

end

\f



;       write_status          * page 2   23 05 80, 10.37;  

if ok.no
mode warning.yes

if warning.yes
(mode 0.yes
message write_status not ok
lookup write_status)


end

finis

▶EOF◀