// say this: run rtape1 -t1r=tree.b

import "io"

let start() be
{ let buffer = vec 129;
  let x;
  x := devctl(DC_TAPE_CHECK, 1);
  out("status = %c = %d\n", x, x);
  if x <> 'R' then finish;
  while true do
  { x := devctl(DC_TAPE_READ, 1, buffer);
    out("read %d bytes\n", x);
    if x <= 0 then break;
    byte x of buffer := 0;
    outs(buffer) }
  outch('\n') }