DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

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

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦3b0af7fb8⟧ TextFile

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

Derivation

└─⟦8dcf1351b⟧ Bits:30004118/disk2.imd SW1720/I5 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»