DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC850

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

See our Wiki for more about RegneCentralen RC850

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦3b0af7fb8⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »IOERR.SRC«

Derivation

└─⟦e44a40b06⟧ Bits:30005968 SW1820/I8 RC855 Pascal MT+ Release 5.5
    └─⟦this⟧ »IOERR.SRC«

TextFile

(* 5.5 *)
MODULE IOERROR;

(*$I 80rtp/fibdef.lib*)
(*$M @IOERR*)
(*$M **)

VAR
  @LFB : EXTERNAL ^FIB;
  @TMP : ^FIB;	(* FOR SAVING @LFB *)

PROCEDURE @IOERR(CPMFUNC:INTEGER);
BEGIN
  @TMP := @LFB;
  CASE CPMFUNC OF

    15 : WRITELN('Unable to open: ',@TMP^.FNAME);
    16 : WRITELN('Unable to close: ',@TMP^.FNAME);
    21 : WRITELN('Error writing to: ',@TMP^.FNAME);
    22 : WRITELN('Unable to create: ',@TMP^.FNAME)

  END; (* CASE *)
  @LFB := @TMP
END;

MODEND.
«eof»