|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 512 (0x200) Types: TextFile Names: »IOERR.SRC«
└─⟦8dcf1351b⟧ Bits:30004118/disk2.imd SW1720/I5 Pascal/MT+ Release 5.5 └─⟦this⟧ »IOERR.SRC«
(* 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»