home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / draco / draco-1.ark / DEREF.DRC < prev    next >
Text File  |  1986-11-12  |  640b  |  27 lines
  1. /*
  2.  * deref.drc - benchmark program to examine the efficiency
  3.  *    of pointer dereferencing
  4.  */
  5.  
  6. word LOOPS = 50000;    /* how many loops */
  7. byte BELL = 0x07;    /* ASCII bell character */
  8.  
  9. type
  10.     CPTR1 = struct {
  11.     ********************char ptr1;
  12.     };
  13.  
  14. proc main()void:
  15.     word i;
  16.     char yekdorb;
  17.     ********************CPTR1 pointer;
  18.  
  19.     writeln(LOOPS, " loops.");
  20.  
  21.     for i from 0 upto LOOPS do
  22.     yekdorb := pointer********************.ptr1********************;
  23.     od;
  24.  
  25.     writeln("\(BELL)finished");
  26. corp;
  27.