DataMuseum.dk

Presents historical artifacts from the history of:

RC3500

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

See our Wiki for more about RC3500

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦223eaa7c1⟧ TextFileVerbose

    Length: 768 (0x300)
    Types: TextFileVerbose
    Names: »tfp3502env«

Derivation

└─⟦da1afb338⟧ Bits:30008156 SW2020 - RC3502 - File system - Rel. 1.0
    └─⟦bcdac339f⟧ 
        └─⟦this⟧ »tfp3502env«

TextFileVerbose

fp3502env;

--   Environment for running under control of the
--   rc8000 file processor simulator fp35.

--   870322 bb first version
--   870605 bb routine names prefixed with fp_
--             declarations only relevant for the rtp3502
--             compiler are moved to rtpcompenv
--   870609 bb fp_system changed param from alfa to lf_identifier

type

fp_line = array (1..linelength) of char;

procedure fp_halt (trace : boolean);
external;

procedure fp_replace (var newline : ! fp_line);
external;

function  fp_system(no: integer; var n: integer;
  var alf: lf_identifier): integer;
external;
 
.
«eof»