Amiga ISO Collection/AmigaUtilCD2.iso/Programming/Pascal/MAXONPASCAL2.DMS/in.adf/INCLUDE/dos/dos_Functions.h

Text File | 1994-07-25 | 547 b | 21 lines

{$if not def DOS_DOS_MACROS_H} CONST DOS_DOS_MACROS_H=true;

{ ***********************************************************
  ** KickPascal-Include-Datei "dos/dos.h" zu Kickstart 3.0 **
  ** Ergänzung der MACROS als Pascal FUNCTIONen      by JS **
  *********************************************************** }

{$if not def DOS_DOS_H;incl "dos/dos.h";endif}

FUNCTION BADDR( BCPLPointer: BPTR): Ptr;
BEGIN
 BADDR:=Ptr(long(BCPLPointer) SHL 2);
END;

FUNCTION MKBADDR(Zeiger: Ptr): BPTR;
BEGIN
 MKBADDR:=BPTR(long(Zeiger) SHR 2);
END;

{$endif}