home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / wackytalky_2 / Utilities / Agile / AgileTest (.txt) next >
Encoding:
RISC OS BBC BASIC V Source  |  1996-03-22  |  1.6 KB  |  46 lines
  1.  Agile test
  2.  ==========
  3. &6ac50,"Agile" 
  4. ,,A%;f% :
  5.  WT_ModuleInfo
  6.  0,"You should run !Agile before running this test."
  7. on_off
  8.  "Agile test, will tell you weather you should you !Agile or not."
  9. 63,"=")'
  10. with=
  11. test(2,"ACTIVE")
  12.  off%
  13. without=
  14. test(1,"PAUSED")
  15. with=0 with+=.1
  16. without=0 without+=.1
  17. times=without/with
  18.  ''"Using Agile, the overhead of calling *commands can be..."
  19.  'times;" times";
  20.  " faster!"''
  21.  times 
  22.  0:m$="There is no reason to use Agile..."
  23.  1:m$="You are in the limit, better test Agile in desktop and decide."
  24.  2,3,4:m$="Ops! we have the same problem, use Agile!"
  25.  5,6,7,8,9:m$="Thank God you found the solution, use Agile."
  26. 'C  m$="How can you work with this machine? Agile will save you!"
  27. .I---------------------------------------------------------------------
  28. test(c%,t$)
  29.   n%=100
  30.  '"With Agile ";t$'
  31.  "     times calling a *command..."
  32.   t%=
  33. ("Echo <11>"+
  34. a%+" ")
  35.   t%=
  36.  '"Time took: ";
  37. "";t%/100;
  38. " seconds."''
  39. ?I_____________________________________________________________________
  40. on_off
  41. on_off%64:P%=on_off%:[opt2
  42. DG; This code exists because you cannot use registers above R8 in 
  43. .on%           mov 1,#1
  44. GC.same          mov 9,0:orr 9,9,#2<<28:swi "XWT_Call":movs 15,14
  45. H".off%          mov 1,#2:b same
  46.