DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦4bbbd9fe9⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »www«

Derivation

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »www«

TextFile

 s_cat.maxlo<>8388605 then
                    begin
                      s_cat.stdlo:=s_cat.usrlo:=s_cat.stdhi:=
                         s_cat.maxlo+(i-1)*10;
                      s_cat.usrhi:=s_cat.usrlo+9;
                    end;
                  end else error(5);
                end else error(5);
              end;
               <*____16____in*>
               begin
               if readparam(param)=4 then
               begin
                 for i:=1,2 do s_cat.innamef(i):=param.lnf(i);
               end else error(1);
               end;

               <*____17_____out*>
               begin
               if readparam(param)=4 then
               begin
                  for i:=1,2 do s_cat.outnamef(i):=param.lnf(i);
               end else