Topspeed_JPI/TS-V3/INCLUDE/LIM.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  LIM.DEF - Modula-2 LIM expanded memory interface                        *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1987..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# call(o_a_copy => on,
   12           o_a_size => on) *)
   13  (*%F _fdata *)
   14  (*# call(seg_name => null) *)
   15  (*# data(seg_name => null) *)
   16  (*%E *)
   17  (*# module(implementation=>off) *)
   18  
   19  DEFINITION MODULE LIM; (* LIM expanded memory *)
   20  
   21  VAR
   22      LIMPresent : BOOLEAN;
   23      PageFr      : CARDINAL;
   24  
   25  PROCEDURE GetStatus() : SHORTCARD;
   26  PROCEDURE GetPageFrame(): CARDINAL;
   27  PROCEDURE AllocatePages( n : CARDINAL ) : CARDINAL;
   28  PROCEDURE FreePages() : CARDINAL;
   29  PROCEDURE MapPage( PPage,LPage,Handle : CARDINAL ): CARDINAL;
   30  PROCEDURE DeAllocatePages( Handle : CARDINAL );
   31  
   32  END LIM.
*****      ^ not supported yet
   33  
   34  

    1 error