DataMuseum.dk

top - metrics - download

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

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

TextFile

;ali
;bstotptxt
slet al3.bstotape
beskyt al3.bstotape.4
if 10.yes
bstotape=algol list.yes index.no
bstotape=algol index.no
external
procedure bstotape(ip,op);
string ip,op;
begin
array inp,outp(1:3);
integer res,sgc,segm,filec;
integer array taili,tailo(1:10);
cleararray(inp); cleararray(outp);
movestring(inp,1,ip); movestring(outp,1,op);
res:=lookuptail(inp,taili);
if res<>0 then alarm(<:input:>);
res:=lookuptail(outp,tailo);
if res<>0 then begin
  array field f;
  cleararray(tailo);
  tailo(1):=1 shift 23 + 18;
  f:=2;
  tailo.f(1):=outp(1);
  tailo.f(2):=outp(2);
  createentry(outp,tailo);
  permentry(outp,17);
  end;
filec:=tailo(7);
stackcuri; stackcuro;
res:=connectcuro(outp)+connectcuri(inp);
if res<>0 then begin
  unstackcuri; unstackcuro;
  alarm(<:***connect input/output:>,res);
  end else begin
  segm:=taili(1);
  setposition(in,0,0);
  setposition(out,filec,0);
  filec:=filec+1;
  for sgc:=1 step 1 until segm do begin
    inrec(in,128); outrec(out,128);
    movearray(in,out);
    end move;
  setposition(in,0,0); setposition(out,filec,0);
  unstackcuri; unstackcuro;
  tailo(7):=filec;
  res:=changeentry(outp,tailo);
  if res<>0 then write(out,<:<10>**change mt file :>,res);
  end;
end;
end;
▶EOF◀