(*******************************************************************************
 : Program.         VilIntuiSupL.def
 : Author.          Carsten Wartmann (Crazy Video)
 : Address.         Wutzkyallee 83, 12353 Berlin
 : Phone.           030/6614776
 : E-Mail           C.Wartmann@AMBO.in-berlin.de (bevorzugt)
 : E-Mail           Carsten_Wartmann@tfh-berlin.de
 : Version.         1.0
 : Date.            16.Nov.1994
 : Copyright.       Freeware
 : Language.        Modula-2
 : Compiler.        M2Amiga V4.3d
 : Contents.        Macht die VilIntuiSup.library für MODULA-2 (M2Amiga)
 : Contents.        Programmierer nutzbar.
*******************************************************************************)


DEFINITION MODULE VilIntuiSupL{"vilintuisup.library",2} ;


FROM SYSTEM     IMPORT ADDRESS,BYTE,ADR ;
FROM ExecD      IMPORT ListPtr ;
FROM IntuitionD IMPORT ScreenPtr,RememberPtr ;
FROM UtilityD   IMPORT TagItemPtr,Tag ;

IMPORT vil:VilIntuiSupD,R ;




(* Old function, do not use in future !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*)
PROCEDURE OpenVillageScreen(mode{R.A0} : vil.DimensionPtr) : ScreenPtr ;
          CODE -30 ;

PROCEDURE OpenVillageScreenTagList(tags{R.A0} : TagItemPtr) : ScreenPtr ;
          CODE -114 ;

PROCEDURE CloseVillageScreen(screen{R.A0} : ScreenPtr) ;
          CODE -36 ;

PROCEDURE LockVillageScreen(screen{R.A0}   : ScreenPtr) : ADDRESS ;
          CODE -42 ;
PROCEDURE UnLockVillageScreen(screen{R.A0} : ScreenPtr) ;
          CODE -48 ;

PROCEDURE GetMemSize(screen{R.A0} : ScreenPtr) : LONGCARD ;
          CODE -72 ;

PROCEDURE VillageScreenData(screen{R.A0} : ScreenPtr ;
                            tag{R.D0}    : Tag) : LONGCARD ;
          CODE -120 ;

PROCEDURE IsVillageScreen(screen{R.A0} : ScreenPtr) : BOOLEAN ;
          CODE -66 ;

PROCEDURE VillageRectFill(screen{R.A0}  : ScreenPtr ;
                          fillrec{R.A1} : vil.VilFillRecordPtr) : LONGINT ;
                          CODE -78 ;

PROCEDURE VillageBlitCopy(screen{R.A0} : ScreenPtr ;
                          record{R.A1} : vil.VilCopyRecordPtr) : LONGINT ;
          CODE -54 ;

PROCEDURE WaitVillageBlit ;
          CODE -60 ;

PROCEDURE VillageModeRequest(tags{R.A0} : TagItemPtr) : LONGCARD ;
          CODE -84 ;
PROCEDURE VillageModeList(memorykey{R.A0} : RememberPtr ;
                          tags{R.A1}      : TagItemPtr) : ListPtr ;
          CODE -90 ;
PROCEDURE VillageBestModeID(tags{R.A0} : TagItemPtr) : LONGCARD ;
          CODE -108 ;

PROCEDURE VillageGetBufAddr(screen{R.A0} : ScreenPtr ;
                            num{R.D0}    : LONGCARD) : ADDRESS ;
          CODE -126 ;
PROCEDURE VillageSetDisplayBuf(screen{R.A0} : ScreenPtr ;
                               num{R.D0}    : LONGCARD) ;
          CODE -132 ;


PROCEDURE VillageSetSegment(segnum{R.D0} : LONGCARD) ;
          CODE -96 ;
PROCEDURE VillageGetSegment ;
          CODE -102 ;


END VilIntuiSupL.lib2