home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / sys / next / misc / 19132 < prev    next >
Encoding:
Text File  |  1992-08-30  |  37.1 KB  |  1,781 lines
  1. Path: sparky!uunet!ulowell!news.bbn.com!olivea!isc-br!tau-ceti!jimc
  2. From: jimc@tau-ceti.isc-br.com (Jim Cathey)
  3. Newsgroups: comp.sys.next.misc
  4. Subject: C compiler optimization
  5. Message-ID: <2578@tau-ceti.isc-br.com>
  6. Date: 30 Aug 92 01:45:56 GMT
  7. Organization: ISC - Bunker Ramo, Spokane, WA
  8. Lines: 1771
  9.  
  10. OK, I was (finally!) able to get our dcc compiler to generate a Dhrystone
  11. test for my NeXT ('030 cube) to compare its code with gcc's.  For those
  12. who don't remember, dcc (Diab's C compiler) does a pretty good job at
  13. optimization, and is now available for NeXT (although, sans Objective C
  14. extensions).  Here are the numbers I got ('030 cube, 2.1 software, single-
  15. user mode, average of 3 times to 3 sig figs):
  16.  
  17. gcc (reg)    5880
  18. dcc        7490
  19.  
  20. Dcc generally does a better job if you don't use the register
  21. declarative.  It makes me wonder how much more usable my cube would be
  22. had a decent C compiler been used to build everything!  Disclaimer: I
  23. have no connection with Diab except as a happy customer, and that I've
  24. met the author.  
  25.  
  26. I've enclosed the assembly-language output of the compiler for your
  27. perusal, and for maybe running on a 040 machine.  The C-source as
  28. comments is one of the dcc's options, which makes some kinds of
  29. debugging easier.  Note that I had to hand-assemble (actually I used
  30. our system's assembler) some of the opcodes, since **@#$ gas apparently
  31. doesn't know about some of the 68020/30/40's addressing modes, and dcc
  32. uses them (though gcc obviously doesn't).  Also, the code has not been
  33. run through Diab's 68040 code-rearranger, which tries to do pipeline
  34. rearrangement.  It runs against the assembly-language file, and
  35. doesn't recognize the syntax variant that gas uses.  I don't know
  36. what (if any) difference it would have made on this particular program.
  37.  
  38. -- Jim
  39. #
  40. # This is a Shell Archive.
  41. # Remove everything above and including the cut line.
  42. # Then run the rest of the file through #! /bin/sh.
  43. # -----cut here-----cut here-----cut here-----cut here-----
  44. #! /bin/sh
  45. # Execute the file with #! /bin/sh (not csh) to create the files:
  46. #    dhry_1.s
  47. #    dhry_2.s
  48. # This Archive created: Sat Aug 29 18:32:36 1992
  49. # By: Jim Cathey at ISC - Bunker Ramo, Spokane, WA
  50. #
  51. export PATH; PATH=/bin:$PATH
  52. if test -f 'dhry_1.s'
  53. then
  54. echo shar: will not over-write existing file "'dhry_1.s'"
  55. else
  56. cat > 'dhry_1.s' << \SHAR_EOF
  57. |$$p68020    - MC68020/30 CPU
  58. |$$m0        - MIT mnemonics
  59. |$$k0        - Reorder info
  60. | /*
  61. |  ****************************************************************************
  62. |  *
  63. |  *                   "DHRYSTONE" Benchmark Program
  64. |  *                   -----------------------------
  65. |  *                                                                            
  66. |  *  Version:    C, Version 2.1
  67. |  *                                                                            
  68. |  *  File:       dhry_1.c (part 2 of 3)
  69. |  *
  70. |  *  Date:       May 17, 1988
  71. |  *
  72. |  *  Author:     Reinhold P. Weicker
  73. |  *
  74. |  ****************************************************************************
  75. |  */
  76. | 
  77. | #include "dhry.h"
  78. | 
  79. | /* Global Variables: */
  80. | 
  81. | #ifdef DNIX
  82. | #ifndef F_UNAME
  83. | #include <dnix/fcodes.h>
  84. | #include <dnix/dutsname.h>
  85. | #endif
  86. | #endif
  87. | #ifdef DNIX
  88. | int HZ;
  89. | #endif
  90. | 
  91. | Rec_Pointer     Ptr_Glob,
  92. |                 Next_Ptr_Glob;
  93. | int             Int_Glob;
  94. | Boolean         Bool_Glob;
  95. | char            Ch_1_Glob,
  96. |                 Ch_2_Glob;
  97. | int             Arr_1_Glob [50];
  98. | int             Arr_2_Glob [50] [50];
  99. | 
  100. | extern char     *malloc (long size);
  101. | Enumeration     Func_1 ();
  102. |   /* forward declaration necessary since Enumeration may not simply be int */
  103. | 
  104. | #ifndef REG
  105. |         Boolean Reg = false;
  106. | #define REG
  107. |         /* REG becomes defined as empty */
  108. |         /* i.e. no register variables   */
  109. | #else
  110. |         Boolean Reg = true;
  111. | #endif
  112. | 
  113. | /* variables for time measurement: */
  114. | 
  115. | #ifdef TIMES
  116. | struct tms      time_info;
  117. | extern  int     times ();
  118. |                 /* see library function "times" */
  119. | #define Too_Small_Time (2*HZ)
  120. |                 /* Measurements should last at least about 2 seconds */
  121. | #endif
  122. | #ifdef TIME
  123. | extern long     time();
  124. |                 /* see library function "time"  */
  125. | #define Too_Small_Time 2
  126. |                 /* Measurements should last at least 2 seconds */
  127. | #endif
  128. | #ifdef MSC_CLOCK
  129. | extern clock_t    clock();
  130. | #define Too_Small_Time (2*HZ)
  131. | #endif
  132. | 
  133. | long            Begin_Time,
  134. |                 End_Time,
  135. |                 User_Time;
  136. | float           Microseconds,
  137. |                 Dhrystones_Per_Second;
  138. | 
  139. | /* end of variables for time measurement */
  140. | 
  141. | 
  142. | main ()
  143. | /*****/
  144. | 
  145. |   /* main program, corresponds to procedures        */
  146. |   /* Main and Proc_0 in the Ada version             */
  147. | {
  148.  
  149.     .text
  150.     .globl    _main
  151. _main:
  152. |$$v0
  153.     link    a6,#-80
  154.     moveml    #5636,a7@-    | d3,d5,d6,a5
  155. |         One_Fifty       Int_1_Loc;
  156. |   REG   One_Fifty       Int_2_Loc;
  157. |         One_Fifty       Int_3_Loc;
  158. |   REG   char            Ch_Index;
  159. |         Enumeration     Enum_Loc;
  160. |         Str_30          Str_1_Loc;
  161. |         Str_30          Str_2_Loc;
  162. |   REG   int             Run_Index;
  163. |   REG   int             Number_Of_Runs;
  164. | 
  165. |   /* Initializations */
  166. | 
  167. | #ifdef DNIX
  168. |     struct dutsname duts;
  169. |     long dnix();
  170. |     if (dnix((long) F_UNAME, &duts, (long) sizeof(duts)) < 0) {
  171. |         exit(1);
  172. |     }
  173. |     HZ = duts.clocktics;
  174. | printf("HZ = %d\n", (long) HZ);
  175. | #endif
  176. |   Next_Ptr_Glob = (Rec_Pointer) malloc (sizeof (Rec_Type));
  177.     pea    48:w
  178.     jbsr    _malloc
  179.     movel    d0,_Next_Ptr_Glob
  180. |   Ptr_Glob = (Rec_Pointer) malloc (sizeof (Rec_Type));
  181.     pea    48:w
  182.     jbsr    _malloc
  183.     movel    d0,_Ptr_Glob
  184. | 
  185. |   Ptr_Glob->Ptr_Comp                    = Next_Ptr_Glob;
  186.     movel    _Ptr_Glob,a0
  187.     movel    _Next_Ptr_Glob,a0@
  188. |   Ptr_Glob->Discr                       = Ident_1;
  189.     movel    _Ptr_Glob,a0
  190.     clrl    a0@(4)
  191. |   Ptr_Glob->variant.var_1.Enum_Comp     = Ident_3;
  192.     movel    _Ptr_Glob,a0
  193.     moveq    #2,d0
  194.     movel    d0,a0@(8)
  195. |   Ptr_Glob->variant.var_1.Int_Comp      = 40;
  196.     movel    _Ptr_Glob,a0
  197.     moveq    #40,d0
  198.     movel    d0,a0@(12)
  199. |   strcpy (Ptr_Glob->variant.var_1.Str_Comp, 
  200.     movel    #.L2,a0
  201.     movel    _Ptr_Glob,a1
  202.     lea    a1@(16),a1
  203.     movel    a0@+,a1@+
  204.     movel    a0@+,a1@+
  205.     movel    a0@+,a1@+
  206.     movel    a0@+,a1@+
  207.     movel    a0@+,a1@+
  208.     movel    a0@+,a1@+
  209.     movel    a0@+,a1@+
  210.     movew    a0@+,a1@+
  211.     moveb    a0@+,a1@+
  212. |           "DHRYSTONE PROGRAM, SOME STRING");
  213. |   strcpy (Str_1_Loc, "DHRYSTONE PROGRAM, 1'ST STRING");
  214.     movel    #.L3,a0
  215.     lea    a6@(-44),a1
  216.     movel    a0@+,a1@+
  217.     movel    a0@+,a1@+
  218.     movel    a0@+,a1@+
  219.     movel    a0@+,a1@+
  220.     movel    a0@+,a1@+
  221.     movel    a0@+,a1@+
  222.     movel    a0@+,a1@+
  223.     movew    a0@+,a1@+
  224.     moveb    a0@+,a1@+
  225. | 
  226. |   Arr_2_Glob [8][7] = 10;
  227.     moveq    #10,d0
  228.     movel    d0,_Arr_2_Glob+1628
  229. |         /* Was missing in published program. Without this statement,    */
  230. |         /* Arr_2_Glob [8][7] would have an undefined value.             */
  231. |         /* Warning: With 16-Bit processors and Number_Of_Runs > 32000,  */
  232. |         /* overflow may occur for this array element.                   */
  233. | 
  234. |   printf ("\n");
  235.     movel    #.L4,a7@-
  236.     jbsr    _printf
  237. |   printf ("Dhrystone Benchmark, Version 2.1 (Language: C)\n");
  238.     movel    #.L5,a7@-
  239.     jbsr    _printf
  240. |   printf ("\n");
  241.     movel    #.L6,a7@-
  242.     jbsr    _printf
  243. |   if (Reg)
  244.     lea    a7@(20),a7
  245.     tstl    _Reg
  246.     jeq    .L11
  247. |   {
  248. |     printf ("Program compiled with 'register' attribute\n");
  249.     movel    #.L7,a7@-
  250.     jbsr    _printf
  251. |     printf ("\n");
  252.     movel    #.L8,a7@-
  253.     jbsr    _printf
  254.     addql    #8,a7
  255.     jra    .L12
  256. .L11:
  257. |   }
  258. |   else
  259. |   {
  260. |     printf ("Program compiled without 'register' attribute\n");
  261.     movel    #.L9,a7@-
  262.     jbsr    _printf
  263. |     printf ("\n");
  264.     movel    #.L10,a7@-
  265.     jbsr    _printf
  266.     addql    #8,a7
  267. .L12:
  268. |   }
  269. |   printf ("Please give the number of runs through the benchmark: ");
  270.     movel    #.L13,a7@-
  271.     jbsr    _printf
  272. |   {
  273. |     long n;
  274. |     scanf ("%d", &n);
  275.     pea    a6@(-80)
  276.     movel    #.L14,a7@-
  277.     jbsr    _scanf
  278. |     Number_Of_Runs = n;
  279.     movel    a6@(-80),d3
  280. |   }
  281. |   printf ("\n");
  282.     movel    #.L15,a7@-
  283.     jbsr    _printf
  284. | 
  285. |   printf ("Execution starts, %d runs through Dhrystone\n", (long) Number_Of_Runs);
  286.     movel    d3,a7@-
  287.     movel    #.L16,a7@-
  288.     jbsr    _printf
  289.     movel    #_time_info,a5
  290. | 
  291. |   /***************/
  292. |   /* Start timer */
  293. |   /***************/
  294. |  
  295. | #ifdef TIMES
  296. |   times (&time_info);
  297.     movel    a5,a7@-
  298.     jbsr    _times
  299. |   Begin_Time = (long) time_info.tms_utime;
  300.     movel    a5@,_Begin_Time
  301. | #endif
  302. | #ifdef TIME
  303. |   Begin_Time = time ( (long *) 0);
  304. | #endif
  305. | #ifdef MSC_CLOCK
  306. |   Begin_Time = clock();
  307. | #endif
  308. | 
  309. |   for (Run_Index = 1; Run_Index <= Number_Of_Runs; ++Run_Index)
  310.     moveq    #1,d6
  311.     lea    a7@(28),a7
  312.     tstl    d3
  313.     jle    .L93
  314.     movel    d7,a7@-
  315.     movel    d4,a7@-
  316. .L30:
  317. |   {
  318. | 
  319. |     Proc_5();
  320.     jbsr    _Proc_5
  321. |     Proc_4();
  322.     jbsr    _Proc_4
  323. |       /* Ch_1_Glob == 'A', Ch_2_Glob == 'B', Bool_Glob == true */
  324. |     Int_1_Loc = 2;
  325.     moveq    #2,d0
  326.     movel    d0,a6@(-4)
  327. |     Int_2_Loc = 3;
  328.     moveq    #3,d5
  329. |     strcpy (Str_2_Loc, "DHRYSTONE PROGRAM, 2'ND STRING");
  330.     movel    #.L19,a0
  331.     lea    a6@(-76),a1
  332.     movel    a0@+,a1@+
  333.     movel    a0@+,a1@+
  334.     movel    a0@+,a1@+
  335.     movel    a0@+,a1@+
  336.     movel    a0@+,a1@+
  337.     movel    a0@+,a1@+
  338.     movel    a0@+,a1@+
  339.     movew    a0@+,a1@+
  340.     moveb    a0@+,a1@+
  341. |     Enum_Loc = Ident_2;
  342.     moveq    #1,d0
  343.     movel    d0,a6@(-12)
  344. |     Bool_Glob = ! Func_2 (Str_1_Loc, Str_2_Loc);
  345.     pea    a6@(-76)
  346.     pea    a6@(-44)
  347.     jbsr    _Func_2
  348.     tstl    d0
  349.     seq    d0
  350.     andl    #1,d0
  351.     movel    d0,_Bool_Glob
  352.     addql    #8,a7
  353.     jra    .L92
  354. .L22:
  355.     movel    a6@(-4),d7
  356. |       /* Bool_Glob == 1 */
  357. |     while (Int_1_Loc < Int_2_Loc)  /* loop body executed once */
  358. |     {
  359. |       Int_3_Loc = 5 * Int_1_Loc - Int_2_Loc;
  360.     movel    d7,d0
  361.     movel    d0,d1
  362.     lsll    #2,d0
  363.     addl    d0,d1
  364.     subql    #3,d1
  365.     movel    d1,a6@(-8)
  366. |         /* Int_3_Loc == 7 */
  367. |       Proc_7 (Int_1_Loc, Int_2_Loc, &Int_3_Loc);
  368.     pea    a6@(-8)
  369.     pea    3:w
  370.     movel    d7,a7@-
  371.     jbsr    _Proc_7
  372. |         /* Int_3_Loc == 7 */
  373. |       Int_1_Loc += 1;
  374.     addql    #1,a6@(-4)
  375.     lea    a7@(12),a7
  376. .L92:
  377.     moveq    #3,d0
  378.     cmpl    a6@(-4),d0
  379.     jgt    .L22
  380. |     } /* while */
  381. |       /* Int_1_Loc == 3, Int_2_Loc == 3, Int_3_Loc == 7 */
  382. |     Proc_8 (Arr_1_Glob, Arr_2_Glob, Int_1_Loc, Int_3_Loc);
  383.     movel    a6@(-8),a7@-
  384.     movel    a6@(-4),a7@-
  385.     movel    #_Arr_2_Glob,a7@-
  386.     movel    #_Arr_1_Glob,a7@-
  387.     jbsr    _Proc_8
  388. |       /* Int_Glob == 5 */
  389. |     Proc_1 (Ptr_Glob);
  390.     movel    _Ptr_Glob,a7@-
  391.     jbsr    _Proc_1
  392. |     for (Ch_Index = 'A'; Ch_Index <= Ch_2_Glob; ++Ch_Index)
  393.     moveq    #65,d7
  394.     lea    a7@(20),a7
  395.     cmpb    #65,_Ch_2_Glob
  396.     jlt    .L23
  397. .L28:
  398. |                              /* loop body executed twice */
  399. |     {
  400. |       if (Enum_Loc == Func_1 (Ch_Index, 'C'))
  401.     pea    67:w
  402.     extbl    d7
  403.     movel    d7,a7@-
  404.     jbsr    _Func_1
  405.     addql    #8,a7
  406.     cmpl    a6@(-12),d0
  407.     jne    .L24
  408. |           /* then, not executed */
  409. |         {
  410. |         Proc_6 (Ident_1, &Enum_Loc);
  411.     pea    a6@(-12)
  412.     clrl    a7@-
  413.     jbsr    _Proc_6
  414. |         strcpy (Str_2_Loc, "DHRYSTONE PROGRAM, 3'RD STRING");
  415.     movel    #.L25,a0
  416.     lea    a6@(-76),a1
  417.     movel    a0@+,a1@+
  418.     movel    a0@+,a1@+
  419.     movel    a0@+,a1@+
  420.     movel    a0@+,a1@+
  421.     movel    a0@+,a1@+
  422.     movel    a0@+,a1@+
  423.     movel    a0@+,a1@+
  424.     movew    a0@+,a1@+
  425.     moveb    a0@+,a1@+
  426. |         Int_2_Loc = Run_Index;
  427.     movel    d6,d5
  428. |         Int_Glob = Run_Index;
  429.     movel    d6,_Int_Glob
  430.     addql    #8,a7
  431. .L24:
  432.     addqb    #1,d7
  433.     cmpb    _Ch_2_Glob,d7
  434.     jle    .L28
  435. .L23:
  436. |         }
  437. |     }
  438. |       /* Int_1_Loc == 3, Int_2_Loc == 3, Int_3_Loc == 7 */
  439. |     Int_2_Loc = Int_2_Loc * Int_1_Loc;
  440.     mulsl    a6@(-4),d5
  441.     movel    a6@(-8),d7
  442.     movel    d5,d4
  443.     divsl    d7,d4
  444. |     Int_1_Loc = Int_2_Loc / Int_3_Loc;
  445.     movel    d4,a6@(-4)
  446. |     Int_2_Loc = 7 * (Int_2_Loc - Int_3_Loc) - Int_1_Loc;
  447.     movel    d5,d0
  448.     subl    d7,d0
  449.     moveq    #0,d1
  450.     subl    d0,d1
  451.     lsll    #3,d0
  452.     addl    d0,d1
  453.     subl    d4,d1
  454.     movel    d1,d5
  455. |       /* Int_1_Loc == 1, Int_2_Loc == 13, Int_3_Loc == 7 */
  456. |     Proc_2 (&Int_1_Loc);
  457.     pea    a6@(-4)
  458.     jbsr    _Proc_2
  459.     addql    #1,d6
  460.     addql    #4,a7
  461.     cmpl    d3,d6
  462.     jle    .L30
  463.     movel    a7@+,d4
  464.     movel    a7@+,d7
  465. .L93:
  466.     movel    #_time_info,a5
  467. |       /* Int_1_Loc == 5 */
  468. | 
  469. |   } /* loop "for Run_Index" */
  470. | 
  471. |   /**************/
  472. |   /* Stop timer */
  473. |   /**************/
  474. |   
  475. | #ifdef TIMES
  476. |   times (&time_info);
  477.     movel    a5,a7@-
  478.     jbsr    _times
  479. |   End_Time = (long) time_info.tms_utime;
  480.     movel    a5@,_End_Time
  481. | #endif
  482. | #ifdef TIME
  483. |   End_Time = time ( (long *) 0);
  484. | #endif
  485. | #ifdef MSC_CLOCK
  486. |   End_Time = clock();
  487. | #endif
  488. | 
  489. |   printf ("Execution ends\n");
  490.     movel    #.L31,a7@-
  491.     jbsr    _printf
  492. |   printf ("\n");
  493.     movel    #.L32,a7@-
  494.     jbsr    _printf
  495. |   printf ("Final values of the variables used in the benchmark:\n");
  496.     movel    #.L33,a7@-
  497.     jbsr    _printf
  498. |   printf ("\n");
  499.     movel    #.L34,a7@-
  500.     jbsr    _printf
  501. |   printf ("Int_Glob:            %d\n", (long) Int_Glob);
  502.     movel    _Int_Glob,a7@-
  503.     movel    #.L35,a7@-
  504.     jbsr    _printf
  505. |   printf ("        should be:   %d\n", (long) 5);
  506.     pea    5:w
  507.     movel    #.L36,a7@-
  508.     jbsr    _printf
  509. |   printf ("Bool_Glob:           %d\n", (long) Bool_Glob);
  510.     movel    _Bool_Glob,a7@-
  511.     movel    #.L37,a7@-
  512.     jbsr    _printf
  513. |   printf ("        should be:   %d\n", (long) 1);
  514.     pea    1:w
  515.     movel    #.L38,a7@-
  516.     jbsr    _printf
  517. |   printf ("Ch_1_Glob:           %c\n", (long) Ch_1_Glob);
  518.     moveb    _Ch_1_Glob,d0
  519.     extbl    d0
  520.     movel    d0,a7@-
  521.     movel    #.L39,a7@-
  522.     jbsr    _printf
  523. |   printf ("        should be:   %c\n", (long) 'A');
  524.     pea    65:w
  525.     movel    #.L40,a7@-
  526.     jbsr    _printf
  527. |   printf ("Ch_2_Glob:           %c\n", (long) Ch_2_Glob);
  528.     moveb    _Ch_2_Glob,d0
  529.     extbl    d0
  530.     movel    d0,a7@-
  531.     movel    #.L41,a7@-
  532.     jbsr    _printf
  533. |   printf ("        should be:   %c\n", (long) 'B');
  534.     pea    66:w
  535.     movel    #.L42,a7@-
  536.     jbsr    _printf
  537. |   printf ("Arr_1_Glob[8]:       %d\n", (long) Arr_1_Glob[8]);
  538.     movel    _Arr_1_Glob+32,a7@-
  539.     movel    #.L43,a7@-
  540.     jbsr    _printf
  541. |   printf ("        should be:   %d\n", (long) 7);
  542.     pea    7:w
  543.     movel    #.L44,a7@-
  544.     jbsr    _printf
  545. |   printf ("Arr_2_Glob[8][7]:    %d\n", (long) Arr_2_Glob[8][7]);
  546.     movel    _Arr_2_Glob+1628,a7@-
  547.     movel    #.L45,a7@-
  548.     jbsr    _printf
  549. |   printf ("        should be:   Number_Of_Runs + 10\n");
  550.     movel    #.L46,a7@-
  551.     jbsr    _printf
  552. |   printf ("Ptr_Glob->\n");
  553.     movel    #.L47,a7@-
  554.     jbsr    _printf
  555. |   printf ("  Ptr_Comp:          %d\n", (long) Ptr_Glob->Ptr_Comp);
  556.     movel    _Ptr_Glob,a0
  557.     movel    a0@,a7@-
  558.     movel    #.L48,a7@-
  559.     jbsr    _printf
  560. |   printf ("        should be:   (implementation-dependent)\n");
  561.     movel    #.L49,a7@-
  562.     jbsr    _printf
  563. |   printf ("  Discr:             %d\n", (long) Ptr_Glob->Discr);
  564.     movel    _Ptr_Glob,a0
  565.     movel    a0@(4),a7@-
  566.     movel    #.L50,a7@-
  567.     jbsr    _printf
  568. |   printf ("        should be:   %d\n", (long) 0);
  569.     clrl    a7@-
  570.     movel    #.L51,a7@-
  571.     jbsr    _printf
  572. |   printf ("  Enum_Comp:         %d\n", (long) Ptr_Glob->variant.var_1.Enum_Comp);
  573.     movel    _Ptr_Glob,a0
  574.     movel    a0@(8),a7@-
  575.     movel    #.L52,a7@-
  576.     jbsr    _printf
  577. |   printf ("        should be:   %d\n", (long) 2);
  578.     pea    2:w
  579.     movel    #.L53,a7@-
  580.     jbsr    _printf
  581. |   printf ("  Int_Comp:          %d\n", (long) Ptr_Glob->variant.var_1.Int_Comp);
  582.     movel    _Ptr_Glob,a0
  583.     movel    a0@(12),a7@-
  584.     movel    #.L54,a7@-
  585.     jbsr    _printf
  586. |   printf ("        should be:   %d\n", (long) 17);
  587.     pea    17:w
  588.     movel    #.L55,a7@-
  589.     jbsr    _printf
  590. |   printf ("  Str_Comp:          %s\n", Ptr_Glob->variant.var_1.Str_Comp);
  591.     movel    _Ptr_Glob,a0
  592.     pea    a0@(16)
  593.     movel    #.L56,a7@-
  594.     jbsr    _printf
  595. |   printf ("        should be:   DHRYSTONE PROGRAM, SOME STRING\n");
  596.     movel    #.L57,a7@-
  597.     jbsr    _printf
  598. |   printf ("Next_Ptr_Glob->\n");
  599.     movel    #.L58,a7@-
  600.     jbsr    _printf
  601. |   printf ("  Ptr_Comp:          %d\n", (long) Next_Ptr_Glob->Ptr_Comp);
  602.     movel    _Next_Ptr_Glob,a0
  603.     movel    a0@,a7@-
  604.     movel    #.L59,a7@-
  605.     jbsr    _printf
  606. |   printf ("        should be:   (implementation-dependent), same as above\n");
  607.     movel    #.L60,a7@-
  608.     jbsr    _printf
  609. |   printf ("  Discr:             %d\n", (long) Next_Ptr_Glob->Discr);
  610.     movel    _Next_Ptr_Glob,a0
  611.     movel    a0@(4),a7@-
  612.     movel    #.L61,a7@-
  613.     jbsr    _printf
  614. |   printf ("        should be:   %d\n", (long) 0);
  615.     clrl    a7@-
  616.     movel    #.L62,a7@-
  617.     jbsr    _printf
  618. |   printf ("  Enum_Comp:         %d\n", (long) Next_Ptr_Glob->variant.var_1.Enum_Comp);
  619.     movel    _Next_Ptr_Glob,a0
  620.     movel    a0@(8),a7@-
  621.     movel    #.L63,a7@-
  622.     jbsr    _printf
  623. |   printf ("        should be:   %d\n", (long) 1);
  624.     pea    1:w
  625.     movel    #.L64,a7@-
  626.     jbsr    _printf
  627. |   printf ("  Int_Comp:          %d\n", (long) Next_Ptr_Glob->variant.var_1.Int_Comp);
  628.     movel    _Next_Ptr_Glob,a0
  629.     movel    a0@(12),a7@-
  630.     movel    #.L65,a7@-
  631.     jbsr    _printf
  632. |   printf ("        should be:   %d\n", (long) 18);
  633.     pea    18:w
  634.     movel    #.L66,a7@-
  635.     jbsr    _printf
  636. |   printf ("  Str_Comp:          %s\n",
  637.     movel    _Next_Ptr_Glob,a0
  638.     pea    a0@(16)
  639.     movel    #.L67,a7@-
  640.     jbsr    _printf
  641. |                                 Next_Ptr_Glob->variant.var_1.Str_Comp);
  642. |   printf ("        should be:   DHRYSTONE PROGRAM, SOME STRING\n");
  643.     movel    #.L68,a7@-
  644.     jbsr    _printf
  645. |   printf ("Int_1_Loc:           %d\n", (long) Int_1_Loc);
  646.     movel    a6@(-4),a7@-
  647.     movel    #.L69,a7@-
  648.     jbsr    _printf
  649. |   printf ("        should be:   %d\n", (long) 5);
  650.     pea    5:w
  651.     movel    #.L70,a7@-
  652.     jbsr    _printf
  653. |   printf ("Int_2_Loc:           %d\n", (long) Int_2_Loc);
  654.     movel    d5,a7@-
  655.     movel    #.L71,a7@-
  656.     jbsr    _printf
  657. |   printf ("        should be:   %d\n", (long) 13);
  658.     pea    13:w
  659.     movel    #.L72,a7@-
  660.     jbsr    _printf
  661. |   printf ("Int_3_Loc:           %d\n", (long) Int_3_Loc);
  662.     movel    a6@(-8),a7@-
  663.     movel    #.L73,a7@-
  664.     jbsr    _printf
  665. |   printf ("        should be:   %d\n", (long) 7);
  666.     pea    7:w
  667.     movel    #.L74,a7@-
  668.     jbsr    _printf
  669. |   printf ("Enum_Loc:            %d\n", (long) Enum_Loc);
  670.     movel    a6@(-12),a7@-
  671.     movel    #.L75,a7@-
  672.     jbsr    _printf
  673. |   printf ("        should be:   %d\n", (long) 1);
  674.     pea    1:w
  675.     movel    #.L76,a7@-
  676.     jbsr    _printf
  677. |   printf ("Str_1_Loc:           %s\n", Str_1_Loc);
  678.     pea    a6@(-44)
  679.     movel    #.L77,a7@-
  680.     jbsr    _printf
  681. |   printf ("        should be:   DHRYSTONE PROGRAM, 1'ST STRING\n");
  682.     movel    #.L78,a7@-
  683.     jbsr    _printf
  684. |   printf ("Str_2_Loc:           %s\n", Str_2_Loc);
  685.     pea    a6@(-76)
  686.     movel    #.L79,a7@-
  687.     jbsr    _printf
  688. |   printf ("        should be:   DHRYSTONE PROGRAM, 2'ND STRING\n");
  689.     movel    #.L80,a7@-
  690.     jbsr    _printf
  691. |   printf ("\n");
  692.     movel    #.L81,a7@-
  693.     jbsr    _printf
  694.     movel    _End_Time,d5
  695.     subl    _Begin_Time,d5
  696. | 
  697. |   User_Time = End_Time - Begin_Time;
  698.     movel    d5,_User_Time
  699. | 
  700. |   if (User_Time < Too_Small_Time)
  701.     lea    a7@(356),a7
  702.     cmpl    #128,d5
  703.     jge    .L90
  704. |   {
  705. |     printf ("Measured time too small to obtain meaningful results\n");
  706.     movel    #.L82,a7@-
  707.     jbsr    _printf
  708. |     printf ("Please increase number of runs\n");
  709.     movel    #.L83,a7@-
  710.     jbsr    _printf
  711. |     printf ("\n");
  712.     movel    #.L84,a7@-
  713.     jbsr    _printf
  714.     lea    a7@(12),a7
  715.     jra    .L1
  716. .L90:
  717.     fmovel    d3,fp1
  718.     fmull    #64,fp1
  719. |   }
  720. |   else
  721. |   {
  722. | #ifdef TIME
  723. |     Microseconds = (float) User_Time * Mic_secs_Per_Second 
  724. |                         / (float) Number_Of_Runs;
  725. |     Dhrystones_Per_Second = (float) Number_Of_Runs / (float) User_Time;
  726. | #else
  727. |     Microseconds = (float) User_Time * Mic_secs_Per_Second 
  728. |                         / ((float) HZ * ((float) Number_Of_Runs));
  729.     fmovel    d5,fp0
  730.     fmull    #1000000,fp0
  731.     fdivx    fp1,fp0
  732.     fmoves    fp0,_Microseconds
  733. |     Dhrystones_Per_Second = ((float) HZ * (float) Number_Of_Runs)
  734. |                         / (float) User_Time;
  735.     fmovex    fp1,fp0
  736.     fdivl    d5,fp0
  737.     fmoves    fp0,_Dhrystones_Per_Second
  738. | #endif
  739. |     printf ("Microseconds for one run through Dhrystone: ");
  740.     movel    #.L85,a7@-
  741.     jbsr    _printf
  742. |     printf ("%6.1f \n", Microseconds);
  743.     fmoves    _Microseconds,fp0
  744.     fmoved    fp0,a7@-
  745.     movel    #.L86,a7@-
  746.     jbsr    _printf
  747. |     printf ("Dhrystones per Second:                      ");
  748.     movel    #.L87,a7@-
  749.     jbsr    _printf
  750. |     printf ("%6.1f \n", Dhrystones_Per_Second);
  751.     fmoves    _Dhrystones_Per_Second,fp0
  752.     fmoved    fp0,a7@-
  753.     movel    #.L88,a7@-
  754.     jbsr    _printf
  755. |     printf ("\n");
  756.     movel    #.L89,a7@-
  757.     jbsr    _printf
  758.     lea    a7@(36),a7
  759. .L1:
  760. |   }
  761. |   
  762. | }
  763.     movel    a7@+,d3
  764.     movel    a7@+,d5
  765.     movel    a7@+,d6
  766.     movel    a7@+,a5
  767.     unlk    a6
  768.     rts
  769.  
  770. | Allocations for _main
  771.     .data
  772. |    a6@(-4)    Int_1_Loc
  773. |    d5    Int_2_Loc
  774. |    a6@(-8)    Int_3_Loc
  775. |    d7    Ch_Index
  776. |    a6@(-12)    Enum_Loc
  777. |    a6@(-44)    Str_1_Loc
  778. |    a6@(-76)    Str_2_Loc
  779. |    d6    Run_Index
  780. |    d3    Number_Of_Runs
  781. |    fp1    $$1
  782. |    a5    $$2
  783. |    a5    $$3
  784. |    d5    $$4
  785. |    d4    $$5
  786. |    d7    $$6
  787. |    d7    $$7
  788. |    a6@(-80)    n
  789. | 
  790. | 
  791. | Proc_1 (Ptr_Val_Par)
  792. | /******************/
  793. | 
  794. | REG Rec_Pointer Ptr_Val_Par;
  795. |     /* executed once */
  796. | {
  797.  
  798.     .text
  799.     .globl    _Proc_1
  800. _Proc_1:
  801. |$$v0
  802.     movel    a5,a7@-
  803.     movel    a4,a7@-
  804.     movel    a7@(12),a4
  805.     movel    a4@,a5
  806. |   REG Rec_Pointer Next_Record = Ptr_Val_Par->Ptr_Comp;  
  807. |                                         /* == Ptr_Glob_Next */
  808. |   /* Local variable, initialized with Ptr_Val_Par->Ptr_Comp,    */
  809. |   /* corresponds to "rename" in Ada, "with" in Pascal           */
  810. |   
  811. |   structassign (*Ptr_Val_Par->Ptr_Comp, *Ptr_Glob); 
  812.     movel    a5,a0
  813.     movel    _Ptr_Glob,a1
  814.     movel    a1@+,a0@+
  815.     movel    a1@+,a0@+
  816.     movel    a1@+,a0@+
  817.     movel    a1@+,a0@+
  818.     movel    a1@+,a0@+
  819.     movel    a1@+,a0@+
  820.     movel    a1@+,a0@+
  821.     movel    a1@+,a0@+
  822.     movel    a1@+,a0@+
  823.     movel    a1@+,a0@+
  824.     movel    a1@+,a0@+
  825.     movel    a1@+,a0@+
  826.     moveq    #5,d0
  827. |   Ptr_Val_Par->variant.var_1.Int_Comp = 5;
  828.     movel    d0,a4@(12)
  829. |   Next_Record->variant.var_1.Int_Comp 
  830. |         = Ptr_Val_Par->variant.var_1.Int_Comp;
  831.     movel    d0,a5@(12)
  832. |   Next_Record->Ptr_Comp = Ptr_Val_Par->Ptr_Comp;
  833.     movel    a4@,a5@
  834. |   Proc_3 (&Next_Record->Ptr_Comp);
  835.     movel    a5,a7@-
  836.     jbsr    _Proc_3
  837. |     /* Ptr_Val_Par->Ptr_Comp->Ptr_Comp 
  838. |                         == Ptr_Glob->Ptr_Comp */
  839. |   if (Next_Record->Discr == Ident_1)
  840.     addql    #4,a7
  841.     tstl    a5@(4)
  842.     jne    .L95
  843. |     /* then, executed */
  844. |   {
  845. |     Next_Record->variant.var_1.Int_Comp = 6;
  846.     moveq    #6,d0
  847.     movel    d0,a5@(12)
  848. |     Proc_6 (Ptr_Val_Par->variant.var_1.Enum_Comp, 
  849.     pea    a5@(8)
  850.     movel    a4@(8),a7@-
  851.     jbsr    _Proc_6
  852. |            &Next_Record->variant.var_1.Enum_Comp);
  853. |     Next_Record->Ptr_Comp = Ptr_Glob->Ptr_Comp;
  854.     movel    _Ptr_Glob,a0
  855.     movel    a0@,a5@
  856. |     Proc_7 (Next_Record->variant.var_1.Int_Comp, 10, 
  857.     pea    a5@(12)
  858.     pea    10:w
  859.     movel    a5@(12),a7@-
  860.     jbsr    _Proc_7
  861.     lea    a7@(20),a7
  862.     jra    .L94
  863. .L95:
  864. |            &Next_Record->variant.var_1.Int_Comp);
  865. |   }
  866. |   else /* not executed */
  867. |     structassign (*Ptr_Val_Par, *Ptr_Val_Par->Ptr_Comp);
  868.     movel    a4,a0
  869.     movel    a4@,a1
  870.     movel    a1@+,a0@+
  871.     movel    a1@+,a0@+
  872.     movel    a1@+,a0@+
  873.     movel    a1@+,a0@+
  874.     movel    a1@+,a0@+
  875.     movel    a1@+,a0@+
  876.     movel    a1@+,a0@+
  877.     movel    a1@+,a0@+
  878.     movel    a1@+,a0@+
  879.     movel    a1@+,a0@+
  880.     movel    a1@+,a0@+
  881.     movel    a1@+,a0@+
  882. .L94:
  883. | } /* Proc_1 */
  884.     movel    a7@+,a4
  885.     movel    a7@+,a5
  886.     rts
  887.  
  888. | Allocations for _Proc_1
  889.     .data
  890. |    a4    Ptr_Val_Par
  891. |    not allocated    Next_Record
  892. |    d0    $$8
  893. |    a5    $$9
  894. | 
  895. | 
  896. | Proc_2 (Int_Par_Ref)
  897. | /******************/
  898. |     /* executed once */
  899. |     /* *Int_Par_Ref == 1, becomes 4 */
  900. | 
  901. | One_Fifty   *Int_Par_Ref;
  902. | {
  903.  
  904.     .text
  905.     .globl    _Proc_2
  906. _Proc_2:
  907. |$$v0
  908. |   One_Fifty  Int_Loc;  
  909. |   Enumeration   Enum_Loc;
  910. | 
  911. |   Int_Loc = *Int_Par_Ref + 10;
  912.     movel    a7@(4),a0
  913.     moveq    #10,d1
  914.     addl    a0@,d1
  915. |   do /* executed once */
  916. |     if (Ch_1_Glob == 'A')
  917.     cmpb    #65,_Ch_1_Glob
  918.     jne    .L99
  919. |       /* then, executed */
  920. |     {
  921. |       Int_Loc -= 1;
  922.     subql    #1,d1
  923. |       *Int_Par_Ref = Int_Loc - Int_Glob;
  924.     movel    a7@(4),a0
  925.     movel    d1,d0
  926.     subl    _Int_Glob,d0
  927.     movel    d0,a0@
  928. .L99:
  929. |       Enum_Loc = Ident_1;
  930. |     } /* if */
  931. |   while (Enum_Loc != Ident_1); /* true */
  932. | } /* Proc_2 */
  933.     rts
  934.  
  935. | Allocations for _Proc_2
  936.     .data
  937. |    a6@(8)    Int_Par_Ref
  938. |    d1    Int_Loc
  939. |    not allocated    Enum_Loc
  940. | 
  941. | 
  942. | Proc_3 (Ptr_Ref_Par)
  943. | /******************/
  944. |     /* executed once */
  945. |     /* Ptr_Ref_Par becomes Ptr_Glob */
  946. | 
  947. | Rec_Pointer *Ptr_Ref_Par;
  948. | 
  949. | {
  950.  
  951.     .text
  952.     .globl    _Proc_3
  953. _Proc_3:
  954. |$$v0
  955.     movel    a7@(4),a0
  956.     movel    _Ptr_Glob,a1
  957. |   if (Ptr_Glob != Null)
  958.     tstl    a1
  959.     jeq    .L103
  960. |     /* then, executed */
  961. |     *Ptr_Ref_Par = Ptr_Glob->Ptr_Comp;
  962.     movel    a1@,a0@
  963. .L103:
  964. |   Proc_7 (10, Int_Glob, &Ptr_Glob->variant.var_1.Int_Comp);
  965.     movel    _Ptr_Glob,a0
  966.     pea    a0@(12)
  967.     movel    _Int_Glob,a7@-
  968.     pea    10:w
  969.     jbsr    _Proc_7
  970.     lea    a7@(12),a7
  971. | } /* Proc_3 */
  972.     rts
  973.  
  974. | Allocations for _Proc_3
  975.     .data
  976. |    a0    Ptr_Ref_Par
  977. |    a1    $$10
  978. | 
  979. | 
  980. | Proc_4 () /* without parameters */
  981. | /*******/
  982. |     /* executed once */
  983. | {
  984.  
  985.     .text
  986.     .globl    _Proc_4
  987. _Proc_4:
  988. |$$v0
  989. |   Boolean Bool_Loc;
  990. | 
  991. |   Bool_Loc = Ch_1_Glob == 'A';
  992.     moveq    #0,d1
  993.     cmpb    #65,_Ch_1_Glob
  994.     seq    d1
  995.     negb    d1
  996. |   Bool_Glob = Bool_Loc | Bool_Glob;
  997.     movel    _Bool_Glob,d0
  998.     orl    d1,d0
  999.     movel    d0,_Bool_Glob
  1000. |   Ch_2_Glob = 'B';
  1001.     moveb    #66,_Ch_2_Glob
  1002. | } /* Proc_4 */
  1003.     rts
  1004.  
  1005. | Allocations for _Proc_4
  1006.     .data
  1007. |    d1    Bool_Loc
  1008. | 
  1009. | 
  1010. | Proc_5 () /* without parameters */
  1011. | /*******/
  1012. |     /* executed once */
  1013. | {
  1014.  
  1015.     .text
  1016.     .globl    _Proc_5
  1017. _Proc_5:
  1018. |$$v0
  1019. |   Ch_1_Glob = 'A';
  1020.     moveb    #65,_Ch_1_Glob
  1021. |   Bool_Glob = false;
  1022.     clrl    _Bool_Glob
  1023. | } /* Proc_5 */
  1024.     rts
  1025.  
  1026. | Allocations for _Proc_5
  1027.     .data
  1028.  
  1029. | Allocations for module
  1030.     .data
  1031.     .comm    _Ptr_Glob,4
  1032.     .comm    _Next_Ptr_Glob,4
  1033.     .comm    _Int_Glob,4
  1034.     .comm    _Bool_Glob,4
  1035.     .comm    _Ch_1_Glob,1
  1036.     .comm    _Ch_2_Glob,1
  1037.     .comm    _Arr_1_Glob,200
  1038.     .comm    _Arr_2_Glob,10000
  1039.     .align    4
  1040.     .globl    _Reg
  1041. _Reg:
  1042.     .long    0
  1043.     .comm    _time_info,16
  1044.     .comm    _Begin_Time,4
  1045.     .comm    _End_Time,4
  1046.     .comm    _User_Time,4
  1047.     .comm    _Microseconds,4
  1048.     .comm    _Dhrystones_Per_Second,4
  1049.     .align    4
  1050. .L2:
  1051.     .ascii    "DHRYSTONE PROGRAM, SOME STRING"
  1052.     .byte    0
  1053.     .align    4
  1054. .L3:
  1055.     .ascii    "DHRYSTONE PROGRAM, 1'ST STRING"
  1056.     .byte    0
  1057.     .align    4
  1058. .L4:
  1059.     .ascii    "\n"
  1060.     .byte    0
  1061.     .align    4
  1062. .L5:
  1063.     .ascii    "Dhrystone Benchmark, Version 2.1 (Language: C)\n"
  1064.     .byte    0
  1065.     .align    4
  1066. .L6:
  1067.     .ascii    "\n"
  1068.     .byte    0
  1069.     .align    4
  1070. .L7:
  1071.     .ascii    "Program compiled with 'register' attribute\n"
  1072.     .byte    0
  1073.     .align    4
  1074. .L8:
  1075.     .ascii    "\n"
  1076.     .byte    0
  1077.     .align    4
  1078. .L9:
  1079.     .ascii    "Program compiled without 'register' attribute\n"
  1080.     .byte    0
  1081.     .align    4
  1082. .L10:
  1083.     .ascii    "\n"
  1084.     .byte    0
  1085.     .align    4
  1086. .L13:
  1087.     .ascii    "Please give the number of runs through the benchmark: "
  1088.     .byte    0
  1089.     .align    4
  1090. .L14:
  1091.     .ascii    "%d"
  1092.     .byte    0
  1093.     .align    4
  1094. .L15:
  1095.     .ascii    "\n"
  1096.     .byte    0
  1097.     .align    4
  1098. .L16:
  1099.     .ascii    "Execution starts, %d runs through Dhrystone\n"
  1100.     .byte    0
  1101.     .align    4
  1102. .L19:
  1103.     .ascii    "DHRYSTONE PROGRAM, 2'ND STRING"
  1104.     .byte    0
  1105.     .align    4
  1106. .L25:
  1107.     .ascii    "DHRYSTONE PROGRAM, 3'RD STRING"
  1108.     .byte    0
  1109.     .align    4
  1110. .L31:
  1111.     .ascii    "Execution ends\n"
  1112.     .byte    0
  1113.     .align    4
  1114. .L32:
  1115.     .ascii    "\n"
  1116.     .byte    0
  1117.     .align    4
  1118. .L33:
  1119.     .ascii    "Final values of the variables used in the benchmark:\n"
  1120.     .byte    0
  1121.     .align    4
  1122. .L34:
  1123.     .ascii    "\n"
  1124.     .byte    0
  1125.     .align    4
  1126. .L35:
  1127.     .ascii    "Int_Glob:            %d\n"
  1128.     .byte    0
  1129.     .align    4
  1130. .L36:
  1131.     .ascii    "        should be:   %d\n"
  1132.     .byte    0
  1133.     .align    4
  1134. .L37:
  1135.     .ascii    "Bool_Glob:           %d\n"
  1136.     .byte    0
  1137.     .align    4
  1138. .L38:
  1139.     .ascii    "        should be:   %d\n"
  1140.     .byte    0
  1141.     .align    4
  1142. .L39:
  1143.     .ascii    "Ch_1_Glob:           %c\n"
  1144.     .byte    0
  1145.     .align    4
  1146. .L40:
  1147.     .ascii    "        should be:   %c\n"
  1148.     .byte    0
  1149.     .align    4
  1150. .L41:
  1151.     .ascii    "Ch_2_Glob:           %c\n"
  1152.     .byte    0
  1153.     .align    4
  1154. .L42:
  1155.     .ascii    "        should be:   %c\n"
  1156.     .byte    0
  1157.     .align    4
  1158. .L43:
  1159.     .ascii    "Arr_1_Glob[8]:       %d\n"
  1160.     .byte    0
  1161.     .align    4
  1162. .L44:
  1163.     .ascii    "        should be:   %d\n"
  1164.     .byte    0
  1165.     .align    4
  1166. .L45:
  1167.     .ascii    "Arr_2_Glob[8][7]:    %d\n"
  1168.     .byte    0
  1169.     .align    4
  1170. .L46:
  1171.     .ascii    "        should be:   Number_Of_Runs + 10\n"
  1172.     .byte    0
  1173.     .align    4
  1174. .L47:
  1175.     .ascii    "Ptr_Glob->\n"
  1176.     .byte    0
  1177.     .align    4
  1178. .L48:
  1179.     .ascii    "  Ptr_Comp:          %d\n"
  1180.     .byte    0
  1181.     .align    4
  1182. .L49:
  1183.     .ascii    "        should be:   (implementation-dependent)\n"
  1184.     .byte    0
  1185.     .align    4
  1186. .L50:
  1187.     .ascii    "  Discr:             %d\n"
  1188.     .byte    0
  1189.     .align    4
  1190. .L51:
  1191.     .ascii    "        should be:   %d\n"
  1192.     .byte    0
  1193.     .align    4
  1194. .L52:
  1195.     .ascii    "  Enum_Comp:         %d\n"
  1196.     .byte    0
  1197.     .align    4
  1198. .L53:
  1199.     .ascii    "        should be:   %d\n"
  1200.     .byte    0
  1201.     .align    4
  1202. .L54:
  1203.     .ascii    "  Int_Comp:          %d\n"
  1204.     .byte    0
  1205.     .align    4
  1206. .L55:
  1207.     .ascii    "        should be:   %d\n"
  1208.     .byte    0
  1209.     .align    4
  1210. .L56:
  1211.     .ascii    "  Str_Comp:          %s\n"
  1212.     .byte    0
  1213.     .align    4
  1214. .L57:
  1215.     .ascii    "        should be:   DHRYSTONE PROGRAM, SOME STRING\n"
  1216.     .byte    0
  1217.     .align    4
  1218. .L58:
  1219.     .ascii    "Next_Ptr_Glob->\n"
  1220.     .byte    0
  1221.     .align    4
  1222. .L59:
  1223.     .ascii    "  Ptr_Comp:          %d\n"
  1224.     .byte    0
  1225.     .align    4
  1226. .L60:
  1227.     .ascii    "        should be:   (implementation-dependent), same as abo"
  1228.     .ascii    "ve\n"
  1229.     .byte    0
  1230.     .align    4
  1231. .L61:
  1232.     .ascii    "  Discr:             %d\n"
  1233.     .byte    0
  1234.     .align    4
  1235. .L62:
  1236.     .ascii    "        should be:   %d\n"
  1237.     .byte    0
  1238.     .align    4
  1239. .L63:
  1240.     .ascii    "  Enum_Comp:         %d\n"
  1241.     .byte    0
  1242.     .align    4
  1243. .L64:
  1244.     .ascii    "        should be:   %d\n"
  1245.     .byte    0
  1246.     .align    4
  1247. .L65:
  1248.     .ascii    "  Int_Comp:          %d\n"
  1249.     .byte    0
  1250.     .align    4
  1251. .L66:
  1252.     .ascii    "        should be:   %d\n"
  1253.     .byte    0
  1254.     .align    4
  1255. .L67:
  1256.     .ascii    "  Str_Comp:          %s\n"
  1257.     .byte    0
  1258.     .align    4
  1259. .L68:
  1260.     .ascii    "        should be:   DHRYSTONE PROGRAM, SOME STRING\n"
  1261.     .byte    0
  1262.     .align    4
  1263. .L69:
  1264.     .ascii    "Int_1_Loc:           %d\n"
  1265.     .byte    0
  1266.     .align    4
  1267. .L70:
  1268.     .ascii    "        should be:   %d\n"
  1269.     .byte    0
  1270.     .align    4
  1271. .L71:
  1272.     .ascii    "Int_2_Loc:           %d\n"
  1273.     .byte    0
  1274.     .align    4
  1275. .L72:
  1276.     .ascii    "        should be:   %d\n"
  1277.     .byte    0
  1278.     .align    4
  1279. .L73:
  1280.     .ascii    "Int_3_Loc:           %d\n"
  1281.     .byte    0
  1282.     .align    4
  1283. .L74:
  1284.     .ascii    "        should be:   %d\n"
  1285.     .byte    0
  1286.     .align    4
  1287. .L75:
  1288.     .ascii    "Enum_Loc:            %d\n"
  1289.     .byte    0
  1290.     .align    4
  1291. .L76:
  1292.     .ascii    "        should be:   %d\n"
  1293.     .byte    0
  1294.     .align    4
  1295. .L77:
  1296.     .ascii    "Str_1_Loc:           %s\n"
  1297.     .byte    0
  1298.     .align    4
  1299. .L78:
  1300.     .ascii    "        should be:   DHRYSTONE PROGRAM, 1'ST STRING\n"
  1301.     .byte    0
  1302.     .align    4
  1303. .L79:
  1304.     .ascii    "Str_2_Loc:           %s\n"
  1305.     .byte    0
  1306.     .align    4
  1307. .L80:
  1308.     .ascii    "        should be:   DHRYSTONE PROGRAM, 2'ND STRING\n"
  1309.     .byte    0
  1310.     .align    4
  1311. .L81:
  1312.     .ascii    "\n"
  1313.     .byte    0
  1314.     .align    4
  1315. .L82:
  1316.     .ascii    "Measured time too small to obtain meaningful results\n"
  1317.     .byte    0
  1318.     .align    4
  1319. .L83:
  1320.     .ascii    "Please increase number of runs\n"
  1321.     .byte    0
  1322.     .align    4
  1323. .L84:
  1324.     .ascii    "\n"
  1325.     .byte    0
  1326.     .align    4
  1327. .L85:
  1328.     .ascii    "Microseconds for one run through Dhrystone: "
  1329.     .byte    0
  1330.     .align    4
  1331. .L86:
  1332.     .ascii    "%6.1f \n"
  1333.     .byte    0
  1334.     .align    4
  1335. .L87:
  1336.     .ascii    "Dhrystones per Second:                      "
  1337.     .byte    0
  1338.     .align    4
  1339. .L88:
  1340.     .ascii    "%6.1f \n"
  1341.     .byte    0
  1342.     .align    4
  1343. .L89:
  1344.     .ascii    "\n"
  1345.     .byte    0
  1346.     .text
  1347. SHAR_EOF
  1348. fi # end of overwriting check
  1349. if test -f 'dhry_2.s'
  1350. then
  1351. echo shar: will not over-write existing file "'dhry_2.s'"
  1352. else
  1353. cat > 'dhry_2.s' << \SHAR_EOF
  1354. |$$p68020    - MC68020/30 CPU
  1355. |$$m0        - MIT mnemonics
  1356. |$$k0        - Reorder info
  1357. | /*
  1358. |  ****************************************************************************
  1359. |  *
  1360. |  *                   "DHRYSTONE" Benchmark Program
  1361. |  *                   -----------------------------
  1362. |  *                                                                            
  1363. |  *  Version:    C, Version 2.1
  1364. |  *                                                                            
  1365. |  *  File:       dhry_2.c (part 3 of 3)
  1366. |  *
  1367. |  *  Date:       May 17, 1988
  1368. |  *
  1369. |  *  Author:     Reinhold P. Weicker
  1370. |  *
  1371. |  ****************************************************************************
  1372. |  */
  1373. | 
  1374. | #include "dhry.h"
  1375. | 
  1376. | #ifndef REG
  1377. | #define REG
  1378. |         /* REG becomes defined as empty */
  1379. |         /* i.e. no register variables   */
  1380. | #endif
  1381. | 
  1382. | extern  int     Int_Glob;
  1383. | extern  char    Ch_1_Glob;
  1384. | 
  1385. | 
  1386. | Proc_6 (Enum_Val_Par, Enum_Ref_Par)
  1387. | /*********************************/
  1388. |     /* executed once */
  1389. |     /* Enum_Val_Par == Ident_3, Enum_Ref_Par becomes Ident_2 */
  1390. | 
  1391. | Enumeration  Enum_Val_Par;
  1392. | Enumeration *Enum_Ref_Par;
  1393. | {
  1394.  
  1395.     .text
  1396.     .globl    _Proc_6
  1397. _Proc_6:
  1398. |$$v0
  1399.     movel    a5,a7@-
  1400.     movel    d7,a7@-
  1401.     movel    a7@(12),d7
  1402.     movel    a7@(16),a5
  1403. |   *Enum_Ref_Par = Enum_Val_Par;
  1404.     movel    d7,a5@
  1405. |   if (! Func_3 (Enum_Val_Par))
  1406.     movel    d7,a7@-
  1407.     jbsr    _Func_3
  1408.     addql    #4,a7
  1409.     tstl    d0
  1410.     jne    .L2
  1411. |     /* then, not executed */
  1412. |     *Enum_Ref_Par = Ident_4;
  1413.     moveq    #3,d0
  1414.     movel    d0,a5@
  1415. .L2:
  1416. |   switch (Enum_Val_Par)
  1417.     movel    d7,d0
  1418.     moveq    #4,d1
  1419.     cmpl    d1,d0
  1420.     jhi    .L1
  1421.     .long    0x303B0A06    | movew    pc@(6,d0:l*2),d0
  1422.     .long    0x4EFB0002    | jmp    pc@(2,d0:w)
  1423. .L11:
  1424.     .word    .L4-.L11
  1425.     .word    .L5-.L11
  1426.     .word    .L8-.L11
  1427.     .word    .L1-.L11
  1428.     .word    .L10-.L11
  1429. .L4:
  1430. |   {
  1431. |     case Ident_1: 
  1432. |       *Enum_Ref_Par = Ident_1;
  1433.     clrl    a5@
  1434.     jra    .L1
  1435. .L5:
  1436. |       break;
  1437. |     case Ident_2: 
  1438. |       if (Int_Glob > 100)
  1439.     moveq    #100,d0
  1440.     cmpl    _Int_Glob,d0
  1441.     jge    .L6
  1442. |         /* then */
  1443. |       *Enum_Ref_Par = Ident_1;
  1444.     clrl    a5@
  1445.     jra    .L1
  1446. .L6:
  1447. |       else *Enum_Ref_Par = Ident_4;
  1448.     moveq    #3,d0
  1449.     movel    d0,a5@
  1450.     jra    .L1
  1451. .L8:
  1452. |       break;
  1453. |     case Ident_3: /* executed */
  1454. |       *Enum_Ref_Par = Ident_2;
  1455.     moveq    #1,d0
  1456.     movel    d0,a5@
  1457.     jra    .L1
  1458. .L10:
  1459. |       break;
  1460. |     case Ident_4: break;
  1461. |     case Ident_5: 
  1462. |       *Enum_Ref_Par = Ident_3;
  1463.     moveq    #2,d0
  1464.     movel    d0,a5@
  1465. .L1:
  1466. |       break;
  1467. |   } /* switch */
  1468. | } /* Proc_6 */
  1469.     movel    a7@+,d7
  1470.     movel    a7@+,a5
  1471.     rts
  1472.  
  1473. | Allocations for _Proc_6
  1474.     .data
  1475. |    d7    Enum_Val_Par
  1476. |    a5    Enum_Ref_Par
  1477. | 
  1478. | 
  1479. | Proc_7 (Int_1_Par_Val, Int_2_Par_Val, Int_Par_Ref)
  1480. | /**********************************************/
  1481. |     /* executed three times                                      */ 
  1482. |     /* first call:      Int_1_Par_Val == 2, Int_2_Par_Val == 3,  */
  1483. |     /*                  Int_Par_Ref becomes 7                    */
  1484. |     /* second call:     Int_1_Par_Val == 10, Int_2_Par_Val == 5, */
  1485. |     /*                  Int_Par_Ref becomes 17                   */
  1486. |     /* third call:      Int_1_Par_Val == 6, Int_2_Par_Val == 10, */
  1487. |     /*                  Int_Par_Ref becomes 18                   */
  1488. | One_Fifty       Int_1_Par_Val;
  1489. | One_Fifty       Int_2_Par_Val;
  1490. | One_Fifty      *Int_Par_Ref;
  1491. | {
  1492.  
  1493.     .text
  1494.     .globl    _Proc_7
  1495. _Proc_7:
  1496. |$$v0
  1497.     movel    a7@(4),d1
  1498. |   One_Fifty Int_Loc;
  1499. | 
  1500. |   Int_Loc = Int_1_Par_Val + 2;
  1501.     addql    #2,d1
  1502. |   *Int_Par_Ref = Int_2_Par_Val + Int_Loc;
  1503.     movel    a7@(12),a0
  1504.     movel    d1,d0
  1505.     addl    a7@(8),d0
  1506.     movel    d0,a0@
  1507. | } /* Proc_7 */
  1508.     rts
  1509.  
  1510. | Allocations for _Proc_7
  1511.     .data
  1512. |    d1    Int_1_Par_Val
  1513. |    a6@(12)    Int_2_Par_Val
  1514. |    a6@(16)    Int_Par_Ref
  1515. |    d1    Int_Loc
  1516. | 
  1517. | 
  1518. | Proc_8 (Arr_1_Par_Ref, Arr_2_Par_Ref, Int_1_Par_Val, Int_2_Par_Val)
  1519. | /*********************************************************************/
  1520. |     /* executed once      */
  1521. |     /* Int_Par_Val_1 == 3 */
  1522. |     /* Int_Par_Val_2 == 7 */
  1523. | Arr_1_Dim       Arr_1_Par_Ref;
  1524. | Arr_2_Dim       Arr_2_Par_Ref;
  1525. | int             Int_1_Par_Val;
  1526. | int             Int_2_Par_Val;
  1527. | {
  1528.  
  1529.     .text
  1530.     .globl    _Proc_8
  1531. _Proc_8:
  1532. |$$v0
  1533.     movel    a5,a7@-
  1534.     movel    d7,a7@-
  1535.     movel    a7@(12),a1
  1536.     movel    a7@(16),a5
  1537.     movel    a7@(20),d7
  1538.     movel    a7@(24),d0
  1539. |   REG One_Fifty Int_Index;
  1540. |   REG One_Fifty Int_Loc;
  1541. | 
  1542. |   Int_Loc = Int_1_Par_Val + 5;
  1543.     addql    #5,d7
  1544. |   Arr_1_Par_Ref [Int_Loc] = Int_2_Par_Val;
  1545. |***    movel    d0,a1@(d7:l*4)
  1546.  .long 0x23807d10
  1547. |   Arr_1_Par_Ref [Int_Loc+1] = Arr_1_Par_Ref [Int_Loc];
  1548. |***    movel    d0,a1@(4,d7:l*4)
  1549.  .long 0x23807c04
  1550. |   Arr_1_Par_Ref [Int_Loc+30] = Int_Loc;
  1551. |***    movel    d7,a1@(120,d7:l*4)
  1552.  .long 0x23877c78
  1553.     movel    d7,d0
  1554.     lsll    #3,d0
  1555.     movel    d0,d1
  1556.     lsll    #3,d0
  1557.     addl    d0,d1
  1558.     addl    d0,d0
  1559.     addl    d0,d1
  1560.     addl    d1,a5
  1561. |***    lea    a5@(d7:l*4),a0
  1562.  .long 0x41f57d10
  1563. |   for (Int_Index = Int_Loc; Int_Index <= Int_Loc+1; ++Int_Index)
  1564. |     Arr_2_Par_Ref [Int_Loc] [Int_Index] = Int_Loc;
  1565.     movel    d7,a0@
  1566.     movel    d7,a0@(4)
  1567. |***    lea    a5@(d7:l*4),a5
  1568.  .long 0x4bf57d10
  1569. |   Arr_2_Par_Ref [Int_Loc] [Int_Loc-1] += 1;
  1570.     addql    #1,a5@(-4)
  1571. |   Arr_2_Par_Ref [Int_Loc+20] [Int_Loc] = Arr_1_Par_Ref [Int_Loc];
  1572. |***    movel    a1@(d7:l*4),a5@(4000)
  1573.  .long 0x2b717d10
  1574.  .word 0x0fa0
  1575. |   Int_Glob = 5;
  1576.     moveq    #5,d0
  1577.     movel    d0,_Int_Glob
  1578. | } /* Proc_8 */
  1579.     movel    a7@+,d7
  1580.     movel    a7@+,a5
  1581.     rts
  1582.  
  1583. | Allocations for _Proc_8
  1584.     .data
  1585. |    a1    Arr_1_Par_Ref
  1586. |    a5    Arr_2_Par_Ref
  1587. |    d7    Int_1_Par_Val
  1588. |    d0    Int_2_Par_Val
  1589. |    not allocated    Int_Index
  1590. |    d7    Int_Loc
  1591. |    a0    $$1
  1592. |    a5    $$2
  1593. |    d0    $$3
  1594. |    a5    $$4
  1595. | 
  1596. | 
  1597. | Enumeration Func_1 (Ch_1_Par_Val, Ch_2_Par_Val)
  1598. | /*************************************************/
  1599. |     /* executed three times                                         */
  1600. |     /* first call:      Ch_1_Par_Val == 'H', Ch_2_Par_Val == 'R'    */
  1601. |     /* second call:     Ch_1_Par_Val == 'A', Ch_2_Par_Val == 'C'    */
  1602. |     /* third call:      Ch_1_Par_Val == 'B', Ch_2_Par_Val == 'C'    */
  1603. | 
  1604. | Capital_Letter   Ch_1_Par_Val;
  1605. | Capital_Letter   Ch_2_Par_Val;
  1606. | {
  1607.  
  1608.     .text
  1609.     .globl    _Func_1
  1610. _Func_1:
  1611. |$$v0
  1612. |   Capital_Letter        Ch_1_Loc;
  1613. |   Capital_Letter        Ch_2_Loc;
  1614. | 
  1615. |   Ch_1_Loc = Ch_1_Par_Val;
  1616. |   Ch_2_Loc = Ch_1_Loc;
  1617. |   if (Ch_2_Loc != Ch_2_Par_Val)
  1618.     moveb    a7@(11),d0
  1619.     cmpb    a7@(7),d0
  1620.     jeq    .L19
  1621. |     /* then, executed */
  1622. |     return (Ident_1);
  1623.     moveq    #0,d0
  1624.     rts
  1625. .L19:
  1626. |   else  /* not executed */
  1627. |   {
  1628. |     Ch_1_Glob = Ch_1_Loc;
  1629.     moveb    a7@(7),_Ch_1_Glob
  1630. |     return (Ident_2);
  1631.     moveq    #1,d0
  1632. .L18:
  1633. |    }
  1634. | } /* Func_1 */
  1635.     rts
  1636.  
  1637. | Allocations for _Func_1
  1638.     .data
  1639. |    a6@(11)    Ch_1_Par_Val
  1640. |    a6@(15)    Ch_2_Par_Val
  1641. |    not allocated    Ch_1_Loc
  1642. |    not allocated    Ch_2_Loc
  1643. | 
  1644. | 
  1645. | Boolean Func_2 (Str_1_Par_Ref, Str_2_Par_Ref)
  1646. | /*************************************************/
  1647. |     /* executed once */
  1648. |     /* Str_1_Par_Ref == "DHRYSTONE PROGRAM, 1'ST STRING" */
  1649. |     /* Str_2_Par_Ref == "DHRYSTONE PROGRAM, 2'ND STRING" */
  1650. | 
  1651. | Str_30  Str_1_Par_Ref;
  1652. | Str_30  Str_2_Par_Ref;
  1653. | {
  1654.  
  1655.     .text
  1656.     .globl    _Func_2
  1657. _Func_2:
  1658. |$$v0
  1659.     movel    d7,a7@-
  1660.     movel    a7@(8),a1
  1661.     movel    a7@(12),a0
  1662. |   REG One_Thirty        Int_Loc;
  1663. |       Capital_Letter    Ch_Loc;
  1664. | 
  1665. |   Int_Loc = 2;
  1666.     moveq    #2,d7
  1667. .L25:
  1668. |   while (Int_Loc <= 2) /* loop body executed once */
  1669. |     if (Func_1 (Str_1_Par_Ref[Int_Loc],
  1670. |                 Str_2_Par_Ref[Int_Loc+1]) == Ident_1)
  1671.     moveb    a0@(1,d7),d0
  1672.     movel    d0,a7@-
  1673.     moveb    a1@(d7),d0
  1674.     movel    d0,a7@-
  1675.     jbsr    _Func_1
  1676.     addql    #8,a7
  1677.     tstl    d0
  1678.     jne    .L23
  1679. |       /* then, executed */
  1680. |     {
  1681. |       Ch_Loc = 'A';
  1682. |       Int_Loc += 1;
  1683.     addql    #1,d7
  1684. .L23:
  1685.     moveq    #2,d0
  1686.     cmpl    d7,d0
  1687.     jge    .L25
  1688. |     } /* if, while */
  1689. |   if (Ch_Loc >= 'W' && Ch_Loc < 'Z')
  1690. |     /* then, not executed */
  1691. |     Int_Loc = 7;
  1692. |   if (Ch_Loc == 'R')
  1693. |     /* then, not executed */
  1694. |     return (true);
  1695. |   else /* executed */
  1696. |   {
  1697. |     if (strcmp (Str_1_Par_Ref, Str_2_Par_Ref) > 0)
  1698.     movel    a0,a7@-
  1699.     movel    a1,a7@-
  1700.     jbsr    _strcmp
  1701.     addql    #8,a7
  1702.     tstl    d0
  1703.     jle    .L27
  1704. |       /* then, not executed */
  1705. |     {
  1706. |       Int_Loc += 7;
  1707.     addql    #7,d7
  1708. |       Int_Glob = Int_Loc;
  1709.     movel    d7,_Int_Glob
  1710. |       return (true);
  1711.     moveq    #1,d0
  1712.     jra    .L21
  1713. .L27:
  1714. |     }
  1715. |     else /* executed */
  1716. |       return (false);
  1717.     moveq    #0,d0
  1718. .L21:
  1719. |   } /* if Ch_Loc */
  1720. | } /* Func_2 */
  1721.     movel    a7@+,d7
  1722.     rts
  1723.  
  1724. | Allocations for _Func_2
  1725.     .data
  1726. |    a1    Str_1_Par_Ref
  1727. |    a0    Str_2_Par_Ref
  1728. |    d7    Int_Loc
  1729. |    not allocated    Ch_Loc
  1730. | 
  1731. | 
  1732. | Boolean Func_3 (Enum_Par_Val)
  1733. | /***************************/
  1734. |     /* executed once        */
  1735. |     /* Enum_Par_Val == Ident_3 */
  1736. | Enumeration Enum_Par_Val;
  1737. | {
  1738.  
  1739.     .text
  1740.     .globl    _Func_3
  1741. _Func_3:
  1742. |$$v0
  1743. |   Enumeration Enum_Loc;
  1744. | 
  1745. |   Enum_Loc = Enum_Par_Val;
  1746. |   if (Enum_Loc == Ident_3)
  1747. |     /* then, executed */
  1748. |     return (true);
  1749.     moveq    #0,d0
  1750.     cmpl    #2,a7@(4)
  1751.     seq    d0
  1752.     negb    d0
  1753. |   else /* not executed */
  1754. |     return (false);
  1755. | } /* Func_3 */
  1756.     rts
  1757.  
  1758. | Allocations for _Func_3
  1759.     .data
  1760. |    a6@(8)    Enum_Par_Val
  1761. |    not allocated    Enum_Loc
  1762.  
  1763. | Allocations for module
  1764.     .data
  1765.     .text
  1766. SHAR_EOF
  1767. fi # end of overwriting check
  1768. #
  1769. # End of shell archive
  1770. #
  1771. exit 0
  1772. -- 
  1773. +----------------+
  1774. ! II      CCCCCC !  Jim Cathey
  1775. ! II  SSSSCC     !  ISC-Bunker Ramo
  1776. ! II      CC     !  TAF-C8;  Spokane, WA  99220
  1777. ! IISSSS  CC     !  UUCP: uunet!isc-br!jimc (jimc@isc-br.isc-br.com)
  1778. ! II      CCCCCC !  (509) 927-5757
  1779. +----------------+
  1780.             "PC's --- the junk bonds of the computer industry"
  1781.