Syntax10.Scn.Fnt
Syntax10b.Scn.Fnt
MODULE AmigaLogger;
IMPORT
	SYSTEM,A:=AmigaBase,E:=AmigaExec,U:=AmigaUtility;
CONST
	loggerName*="logger.library";
	loggerBase:LONGINT;
	loggerVersion-:INTEGER;
PROCEDURE clear*;
	r:A.Regs;
BEGIN
	A.LibCall(loggerBase,-30,r);
END clear;
PROCEDURE firstPos*():LONGINT;
	r:A.Regs;
BEGIN
	A.LibCall(loggerBase,-36,r);
	RETURN r.d[0];
END firstPos;
PROCEDURE nextPos*():LONGINT;
	r:A.Regs;
BEGIN
	A.LibCall(loggerBase,-42,r);
	RETURN r.d[0];
END nextPos;
PROCEDURE read*(pos:LONGINT):CHAR;
	r:A.Regs;
BEGIN
	r.d[2]:=pos;
	A.LibCall(loggerBase,-48,r);
	RETURN CHR(r.d[0]);
END read;
PROCEDURE write*(ch:CHAR);
	r:A.Regs;
BEGIN
	r.d[2]:=ORD(ch);
	A.LibCall(loggerBase,-54,r);
END write;
PROCEDURE writeStamp*;
	r:A.Regs;
BEGIN
	A.LibCall(loggerBase,-60,r);
END writeStamp;
PROCEDURE Init;
	LibraryPtr=POINTER TO E.Library;
	lib:LibraryPtr;
BEGIN
	loggerBase:=E.OpenLibrary(loggerName,40);
	IF loggerBase=0 THEN HALT(99) END;
	lib:=SYSTEM.VAL(LibraryPtr,loggerBase);
	loggerVersion:=lib.version;
END Init;
BEGIN
	Init;
END AmigaLogger.