home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / EMLINK.ZIP / EMLINK.PAS
Encoding:
Pascal/Delphi Source File  |  1987-01-08  |  14.2 KB  |  347 lines
  1. {
  2.        PROTOTYPE PROCEDURES FOR CREATING AND ACCESSING SORTED
  3.                  LINKED LISTS IN EXPANDED MEMORY
  4.  
  5.                   GARRY J. VASS [72307,3311]
  6.  
  7. The procedures and functions given below present a prototype
  8. method for creating and accesing linked lists in expanded memory.
  9. Although pointer variables are used in a way that appears to
  10. conform to the TPascal pointer syntax, there are several major
  11. differences:
  12.  
  13.             -  there are none of the standard NEW, GETMEM,
  14.                MARK, RELEASE, DISPOSE, FREEMEM, and MAXAVAIL
  15.                calls made.  These are bound to the program's
  16.                physical location in memory, and have no
  17.                effect in expanded memory.  Attempting to
  18.                use these here, or to implement standard
  19.                linked procedures by altering the HeapPtr
  20.                standard variable is dangerous and highly
  21.                discouraged.
  22.             -  pointer variables are set and queried by
  23.                a simulation of TPascal's internal procedures
  24.                that is specially customized to the EMS
  25.                page frame segment.
  26.             -  the MEMAVAIL function is useless here.  These
  27.                procedures will support a list of up to 64K.
  28.  
  29. The general pseudo-code for creating a linked list in expanded
  30. memory is:
  31.  
  32.       1.  Get a handle and allocate memory from the EMM.
  33.       2.  Get the page frame segment for the handle to
  34.           mark the physical beginning of the list in
  35.           expanded memory.
  36.       3.  Initialize the root pointer to the page frame
  37.           segment.
  38.       4.  For each new record (or list member):
  39.  
  40.           a.  Calculate a new physical location for the
  41.               record using a simulated normalization
  42.               procedure.
  43.           b.  Set the appropriate values to the
  44.               pointers using a simulated pointer
  45.               assignment procedure.
  46.           c.  Assure that the last logical record
  47.               contains a pointer value of NIL.
  48.  
  49. Accessing the list is basically the same as the standard algorithms.
  50.  
  51. The procedures here assume that each list record (or member) is composed
  52. of three elements:
  53.  
  54.         -  a pointer to the next logical record.  If the member is the
  55.            last logical record, this pointer is NIL.
  56.         -  an index, or logical sort key.  This value determines the
  57.            logical position of the record in the list.  These routines
  58.            and the demo use an integer type for index.  The index,
  59.            however, can be of any type where ordinal comparisons
  60.            can be made, including pointers.
  61.         -  an area for the actual data in each record.  These routines
  62.            and the demo use a string of length 255, but this area can
  63.            be of any type, including pointers to other lists.
  64.  
  65. Please note that these routines are exploratory and prototype.  In no way
  66. are they intended to be definitive, accurate, efficient, or exemplary.
  67.  
  68. Areas for further analysis are:
  69.  
  70.       1.  A reliable analog to the MEMAVAIL function.
  71.       2.  Creating linked lists that cross handle boundaries.
  72.       3.  Creating linked lists that begin in heapspace and
  73.           extend to expanded memory.
  74.       4.  A reliable method for assigning the standard
  75.           variable, HeapPtr, to the base page.
  76.  
  77. Please let me know of your progress in these areas, or improvements
  78. to the routines below via the BORLAND SIG [72307,3311] or my PASCAL/
  79. PROLOG SIG at the POLICE STATION BBS (201-963-3115).
  80.  
  81. }
  82. PROGRAM LINKED_LISTS;
  83. CONST
  84.      ALLOCATE_MEMORY =   $43;
  85.      EMS_SERVICES    =   $67;
  86.      FOREVER:BOOLEAN = FALSE;
  87.      GET_PAGE_FRAME  =   $41;
  88.      LOGICAL_PAGES   =     5;
  89.      MAP_MEMORY      =   $44;
  90.      RELEASE_HANDLE  =   $45;
  91. TYPE
  92.     ANYSTRING = STRING[255];
  93.     LISTPTR   = ^LISTREC;
  94.     LISTREC   = RECORD
  95.                       NEXT_POINTER : LISTPTR;
  96.                       INDEX_PART   : INTEGER;
  97.                       DATA_PART    : ANYSTRING;
  98.                 END;
  99.     REGTYPE   = RECORD
  100.                       CASE INTEGER OF
  101.                                    1:(AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS:INTEGER);
  102.                                    2:(AL,AH,BL,BH,CL,CH,DL,DH:BYTE);
  103.                       END;
  104. VAR
  105.    ANYINTEGER : INTEGER;
  106.    ANYSTR     : ANYSTRING;
  107.    HANDLE     : INTEGER;    { HANDLE ASSIGNED BY EMM }
  108.    LIST       : LISTREC;
  109.    NEWOFFSET  : INTEGER;    { PHYSICAL OFFSET OF RECORD }
  110.    NEWSEGMENT : INTEGER;    { PHYSICAL SEGMENT OF RECORD }
  111.    REGS       : REGTYPE;
  112.    ROOT       : LISTPTR;    { POINTER TO LIST ROOT }
  113.    SEGMENT    : INTEGER;    { PAGE FRAME SEGMENT }
  114.  
  115. {--------------------- GENERAL SUPPORT ROUTINES  ----------------------}
  116. FUNCTION HEXBYTE(N:INTEGER):ANYSTRING;CONST H:ANYSTRING='0123456789ABCDEF';BEGIN HEXBYTE:=H[((LO(N)DIV 16)
  117. MOD 16)+1]+H[(LO(N) MOD 16)+1];END;FUNCTION HEXWORD(N:INTEGER):ANYSTRING;BEGIN HEXWORD:= HEXBYTE(HI(N))+
  118. HEXBYTE(LO(N));END;FUNCTION CARDINAL(I:INTEGER):REAL;BEGIN CARDINAL:=256.0*HI(I)+LO(I);END;PROCEDURE
  119. PAUSE;VAR CH:CHAR;BEGIN WRITELN;WRITELN('-- PAUSING FOR KEYBOARD INPUT...');READ(KBD,CH);WRITELN;END;
  120. PROCEDURE DIE(M:ANYSTRING);BEGIN WRITELN('ERROR IN: ',M);WRITELN('HALTING HERE, SUGGEST REBOOT');HALT;END;
  121. FUNCTION EXIST(FILENAME:ANYSTRING):BOOLEAN;VAR FILVAR:FILE;BEGIN ASSIGN(FILVAR,FILENAME);{$I-}
  122. RESET(FILVAR);{$I+}EXIST := (IORESULT = 0);END;
  123. {--------------------- END OF GENERAL SUPPORT ROUTINES  ----------------}
  124.  
  125. {----------------------  EMS SUPPORT ROUTINES  -------------------------}
  126.  
  127. FUNCTION EMS_INSTALLED:BOOLEAN;         { RETURNS TRUE IF EMS IS INSTALLED }
  128. BEGIN                                   { ASSURED DEVICE NAME OF EMMXXXX0  }
  129.      EMS_INSTALLED := EXIST('EMMXXXX0');{ BY LOTUS/INTEL/MS STANDARDS      }
  130. END;
  131.  
  132. FUNCTION NEWHANDLE(NUMBER_OF_LOGICAL_PAGES_NEEDED:INTEGER):INTEGER;
  133. BEGIN
  134.      REGS.AH := ALLOCATE_MEMORY;
  135.      REGS.BX := NUMBER_OF_LOGICAL_PAGES_NEEDED;
  136.      INTR(EMS_SERVICES, REGS);
  137.      IF REGS.AH <> 0 THEN DIE('ALLOCATE MEMORY');
  138.      NEWHANDLE := REGS.DX;
  139. END;
  140.  
  141. PROCEDURE KILL_HANDLE(HANDLE_TO_KILL:INTEGER);  { RELEASES EMS HANDLE.    }
  142. BEGIN                                           { THIS MUST BE DONE IF    }
  143.      REPEAT                                     { OTHER APPLICATIONS ARE  }
  144.           WRITELN('RELEASING EMS HANDLE');      { TO USE THE EM ARES.  DUE}
  145.           REGS.AH := RELEASE_HANDLE;            { TO CONCURRENT PROCESSES,}
  146.           REGS.DX := HANDLE_TO_KILL;            { SEVERAL TRIES MAY BE    }
  147.           INTR(EMS_SERVICES, REGS);             { NECESSARY.              }
  148.      UNTIL REGS.AH = 0;
  149.      WRITELN('HANDLE RELEASED');
  150. END;
  151.  
  152. FUNCTION PAGE_FRAME_SEGMENT:INTEGER;         { RETURNS PFS }
  153. BEGIN
  154.      REGS.AH := GET_PAGE_FRAME;
  155.      INTR(EMS_SERVICES, REGS);
  156.      IF REGS.AH <> 0 THEN DIE('GETTING PFS');
  157.      PAGE_FRAME_SEGMENT := REGS.BX;
  158. END;
  159.  
  160. PROCEDURE MAP_MEM(HANDLE_TO_MAP:INTEGER);  {MAPS HANDLE TO PHYSICAL}
  161. CONST PHYSICAL_PAGE = 0;                 {PAGES.}
  162. BEGIN
  163.      REGS.AH := MAP_MEMORY;
  164.      REGS.AL := PHYSICAL_PAGE;
  165.      REGS.BX := PHYSICAL_PAGE;
  166.      REGS.DX := HANDLE_TO_MAP;
  167.      INTR(EMS_SERVICES, REGS);
  168.      IF REGS.AH <> 0 THEN DIE('MAPPING MEMORY');
  169. END;
  170.  
  171. PROCEDURE GET_EMS_MEMORY(NUMBER_OF_16K_LOGICAL_PAGES:INTEGER);
  172. VAR TH:INTEGER;                     { REQUESTS EM FROM EMM IN 16K INCREMENTS }
  173. BEGIN
  174.      HANDLE :=  NEWHANDLE(NUMBER_OF_16K_LOGICAL_PAGES);
  175.      SEGMENT := PAGE_FRAME_SEGMENT;
  176.      MAP_MEM(HANDLE);
  177. END;
  178. {----------------- END OF EMS SUPPORT ROUTINES  -----------------------}
  179.  
  180. {----------------- CUSTOMIZED LINKED LIST SUPPORT ---------------------}
  181. FUNCTION ABSOLUTE_ADDRESS(S, O:INTEGER):REAL;   { RETURNS THE REAL }
  182. BEGIN                                           { ABSOLUTE ADDRESS }
  183.      ABSOLUTE_ADDRESS :=  (CARDINAL(S) * $10)   { FOR SEGMENT "S"  }
  184.                          + CARDINAL(O);         { AND OFFSET "O".  }
  185. END;
  186.  
  187. PROCEDURE NORMALIZE(VAR S, O:INTEGER); { SIMULATION OF TURBO'S INTERNAL }
  188. VAR                                    { NORMALIZATION ROUTINES FOR     }
  189.    NEW_SEGMENT: INTEGER;               { POINTER VARIABLES.             }
  190.    NEW_OFFSET : INTEGER;               { NORMALIZES SEGMENT "S" AND     }
  191. BEGIN                                  { OFFSET "O" INTO LEGITAMATE     }
  192.      NEW_SEGMENT := S;                 { POINTER VALUES.                }
  193.      NEW_OFFSET  := O;
  194.      REPEAT
  195.            CASE NEW_OFFSET OF
  196.               $00..$0E   : NEW_OFFSET := SUCC(NEW_OFFSET);
  197.               $0F..$FF   : BEGIN
  198.                                NEW_OFFSET := 0;
  199.                                NEW_SEGMENT := SUCC(NEW_SEGMENT);
  200.                            END;
  201.            END;
  202.      UNTIL  (ABSOLUTE_ADDRESS(NEW_SEGMENT, NEW_OFFSET) >
  203.              ABSOLUTE_ADDRESS(S, O) + SIZEOF(LIST));
  204.      S := NEW_SEGMENT;
  205.      O := NEW_OFFSET;
  206. END;
  207.  
  208. FUNCTION VALUEOF(P:LISTPTR):ANYSTRING;  { RETURNS A STRING IN   }
  209.                                         { SEGMENT:OFFSET FORMAT }
  210.                                         { WHICH CONTAINS VALUE  }
  211. BEGIN                                   { OF A POINTER VARIABLE }
  212.      VALUEOF := HEXBYTE(MEM[SEG(P):OFS(P) + 3]) +
  213.                 HEXBYTE(MEM[SEG(P):OFS(P) + 2]) +':'+
  214.                 HEXBYTE(MEM[SEG(P):OFS(P) + 1]) +
  215.                 HEXBYTE(MEM[SEG(P):OFS(P) + 0]);
  216. END;
  217.  
  218. PROCEDURE SNAP(P:LISTPTR);                   { FOR THE RECORD BEING         }
  219. BEGIN                                        { POINTED TO BY "P", THIS      }
  220.      WRITELN(VALUEOF(P):10,                  { PRINTS THE SEGMENT/OFFSET    }
  221.              VALUEOF(P^.NEXT_POINTER):20,    { LOCATION, THE SEGMENT/       }
  222.              P^.INDEX_PART:5,                { OFFSET OF THE RECORD PONTER, }
  223.              '     ',P^.DATA_PART);          { RECORD INDEX, AND DATA.      }
  224. END;
  225.  
  226. PROCEDURE PROCESS_LIST;               { GET AND PRINT MEMBERS OF A LIST }
  227. VAR M1:LISTPTR;                       { SORTED IN INDEX ORDER.          }
  228. BEGIN
  229.      PAUSE;
  230.      M1 := ROOT;
  231.      WRITELN;
  232.      WRITELN('---------------- LINKED LIST ---------------------------------');
  233.      WRITELN('MEMBER LOCATION           MEMBER CONTENTS');
  234.      WRITELN('IN MEMORY             POINTER    INDEX  DATA   ');
  235.      WRITELN('---------------       -----------------------------------------');
  236.      WRITELN;
  237.      REPEAT
  238.            SNAP(M1);
  239.            M1 := M1^.NEXT_POINTER;
  240.      UNTIL M1 = NIL;
  241.      WRITELN('------------ END OF LIST----------');
  242. END;
  243.  
  244. PROCEDURE LOAD_MEMBER_HIGH (IND:INTEGER; DAT:ANYSTRING);
  245. VAR M1:LISTPTR;
  246.      P:LISTPTR;                  { INSERTS A RECORD AT THE HIGH }
  247. BEGIN                            { END OF THE LIST.             }
  248.      M1 := ROOT;
  249.      REPEAT
  250.            IF M1^.NEXT_POINTER <> NIL THEN M1 := M1^.NEXT_POINTER;
  251.      UNTIL M1^.NEXT_POINTER = NIL;
  252.      NORMALIZE(NEWSEGMENT, NEWOFFSET);
  253.      M1^.NEXT_POINTER := PTR(NEWSEGMENT, NEWOFFSET);
  254.      P := M1^.NEXT_POINTER;
  255.      P^.INDEX_PART := IND;
  256.      P^.DATA_PART := DAT;
  257.      P^.NEXT_POINTER := NIL;
  258. END;
  259.  
  260. PROCEDURE LOAD_MEMBER_MIDDLE (IND:INTEGER; DAT:ANYSTRING);
  261. VAR M1:LISTPTR;
  262.     M2:LISTPTR;
  263.     P :LISTPTR;
  264.     T :LISTPTR;
  265. BEGIN                         { INSERTS A MEMBER INTO THE MIDDLE }
  266.      M1 := ROOT;              { OF A LIST.                       }
  267.      REPEAT
  268.            M2 := M1;
  269.            IF M1^.NEXT_POINTER <> NIL THEN M1 := M1^.NEXT_POINTER;
  270.      UNTIL (M1^.NEXT_POINTER = NIL) OR (M1^.INDEX_PART >= IND);
  271.      IF (M1^.NEXT_POINTER = NIL) AND
  272.         (M1^.INDEX_PART <   IND) THEN
  273.         BEGIN
  274.              LOAD_MEMBER_HIGH (IND, DAT);
  275.              EXIT;
  276.         END;
  277.      T := M2^.NEXT_POINTER;
  278.      NORMALIZE(NEWSEGMENT, NEWOFFSET);
  279.      M2^.NEXT_POINTER := PTR(NEWSEGMENT, NEWOFFSET);
  280.      P := M2^.NEXT_POINTER;
  281.      P^.INDEX_PART := IND;
  282.      P^.DATA_PART := DAT;
  283.      P^.NEXT_POINTER := T;
  284. END;
  285.  
  286. PROCEDURE LOAD_MEMBER (IND:INTEGER; DAT:ANYSTRING);
  287. VAR  M1:LISTPTR;
  288. BEGIN
  289.      WRITELN('ADDING:  ',DAT,' WITH AGE OF ',IND);
  290.      WRITELN('TURBO`S HEAP POINTER:  ',VALUEOF(HEAPPTR),
  291.              ', MEMAVAIL = ',MEMAVAIL * 16.0:8:0);
  292.      WRITELN;
  293.      PAUSE;
  294.      WRITELN('... SEARCHING FOR ADD POINT ...');
  295.      IF ROOT^.INDEX_PART <= IND THEN             { ENTRY POINT ROUTINE FOR }
  296.         BEGIN                                    { ADDING NEW LIST MEMBERS }
  297.              LOAD_MEMBER_MIDDLE(IND, DAT);       { ACTS ONLY IF NEW MEMBER }
  298.              EXIT;                               { SHOULD REPLACE CURRENT  }
  299.         END;                                     { ROOT.                   }
  300.      M1 := ROOT;
  301.      NORMALIZE(NEWSEGMENT, NEWOFFSET);
  302.      ROOT := PTR(NEWSEGMENT, NEWOFFSET);
  303.      ROOT^.INDEX_PART   := IND;
  304.      ROOT^.DATA_PART    := DAT;
  305.      ROOT^.NEXT_POINTER := M1;
  306. END;
  307.  
  308. PROCEDURE INITIALIZE_ROOT_ENTRY(IND:INTEGER; DAT:ANYSTRING);
  309. BEGIN
  310.      ROOT := PTR(NEWSEGMENT, NEWOFFSET);       { INITIALIZES A LIST AND }
  311.      ROOT^.INDEX_PART   := IND;                { ADDS FIRST MEMBER AS   }
  312.      ROOT^.DATA_PART    := DAT;                { "ROOT".                }
  313.      ROOT^.NEXT_POINTER := NIL;
  314. END;
  315.  
  316. BEGIN
  317.      TEXTCOLOR(15);
  318.      IF NOT EMS_INSTALLED THEN DIE('LOCATING EMS DRIVER');
  319.      CLRSCR;
  320.      WRITELN('DEMO OF LINKED LIST IN EXPANDED MEMORY...');
  321.      WRITELN('SETTING UP EMS PARAMETERS...');
  322.      GET_EMS_MEMORY(LOGICAL_PAGES);
  323.      WRITELN;
  324.      WRITELN('ASSIGNED HANDLE:  ',HANDLE);
  325.      NEWSEGMENT := SEGMENT;
  326.      NEWOFFSET  := 0;
  327.      WRITELN('EMS PARAMETERS SET.  BASE PAGE IS:  ',HEXWORD(SEGMENT));
  328.      WRITELN;
  329.      WRITELN('TURBO`S HEAP POINTER IS ',VALUEOF(HEAPPTR));
  330.      WRITELN('READY TO ADD RECORDS...');
  331.      PAUSE;
  332.  
  333. { Demo:  Create a linked list of names and ages with age as the index/sort
  334.   key.  Use random numbers for the ages so as to get a different sequence
  335.   each time the demo is run.}
  336.  
  337.      INITIALIZE_ROOT_ENTRY(RANDOM(10) + 20, 'Anne Baxter (original root)');
  338.      LOAD_MEMBER(RANDOM(10) + 20,  'Rosie Mallory  ');
  339.      LOAD_MEMBER(RANDOM(10) + 20,  'Sue Perkins    ');
  340.      LOAD_MEMBER(RANDOM(10) + 20,  'Betty Williams ');
  341.      LOAD_MEMBER(RANDOM(10) + 20,  'Marge Holly    ');
  342.      LOAD_MEMBER(RANDOM(10) + 20,  'Lisa Taylor    ');
  343.      LOAD_MEMBER(RANDOM(10) + 20,  'Carmen Abigail ');
  344.      LOAD_MEMBER(RANDOM(10) + 20,  'Rhonda Perlman ');
  345.      PROCESS_LIST;
  346.      KILL_HANDLE(HANDLE);
  347. END.