I have been trawling through the Wizardry 1 decompiled pascal source code for the Apple II. Uncovering neat little bits like:

  PROCEDURE PAUSE1;   (* P010011 *)

  BEGIN
   FOR LLBASE04 := 0 TO TIMEDLAY DO
     BEGIN
     END;
  END;

The perks of having standard hardware and a compiler that doesn't optimise away empty loops.