src/sega.c

   1 #include <stdio.h>\r
   2 #include <stdlib.h>\r
   3 #include <malloc.h>\r
   4 \r
   5 struct list {
   6 #ifdef __WATCOMC__\r
   7         struct list __based(__self) *next;
   8 #endif
   9 #ifdef __BORLANDC__
  10         struct list _seg *next;
  11 #endif\r
  12         int         value;\r
  13 };\r
  14 \r
  15 void main(int argc, char *argv[])\r
  16 {\r
  17         int         i;
  18 #ifdef __WATCOMC__\r
  19         __segment   segu;
  20         void __based(__self) *pee;\r
  21         struct list __based(segu) *head;\r
  22         struct list __based(segu) *p;
  23 #endif
  24 #ifdef __BORLANDC__
  25         void _seg *pee;\r
  26         struct list _seg *head;\r
  27         struct list _seg *p;
  28 #endif\r
  29 \r
  30     /* allocate based heap */\r
  31     segu = _bheapseg( 65536 );\r
  32     if( segu == _NULLSEG ) {\r
  33       printf( "Unable to allocate based heap\n" );\r
  34       exit( 1 );\r
  35     }\r
  36 \r
  37     /* create a linked list in the based heap */\r
  38     head = 0;\r
  39     for( i = 1; i < 4096; i++ ) {\r
  40       p = _bmalloc( segu, sizeof( struct list ) );\r
  41       if( p == _NULLOFF ) {\r
  42         printf( "_bmalloc failed\n" );\r
  43         break;\r
  44       }\r
  45       p->next = head;\r
  46       p->value = i;\r
  47       head = p;\r
  48     }\r
  49 \r
  50     /* traverse the linked list, printing out values */\r
  51     for( p = head; p != 0; p = p->next ) {\r
  52                 if(p==head || p->next==0 || p==pee){
  53                         printf("Segu = %04X", p); printf( "     Value = %d\n", p->value );
  54                 }\r
  55     }\r
  56
  57         printf("program=%FP\n", *argv[0]);
  58         printf("seg=%04X\n", segu);
  59 \r
  60     /* free all the elements of the linked list */\r
  61     for( ; p = head; ) {\r
  62       head = p->next;\r
  63       _bfree( segu, p );\r
  64     }\r
  65     /* free the based heap */\r
  66     _bfreeseg( segu );
  67 }\r