home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 85 / af085sub.adf / SLIDESHOW / SLIDE.lzx / AGASSM / Rexx / CPUCacheControl.agassm < prev    next >
Encoding:
Text File  |  1996-03-30  |  656 b   |  40 lines
  1. /* AGASSM CPU cache control script - ARexx Script */
  2. /* © 1995 Paul Vernon */
  3.  
  4. Ports = Show('P','AGASSM')
  5. If Ports = 0 then do
  6.   Exit
  7.   End
  8.  
  9. ADDRESS 'AGASSM'
  10.  
  11. If ~Exists('C:CPU') then do
  12.   Exit 'Unable to find C:CPU'
  13.   End
  14.  
  15. Options Results
  16.  
  17. ADDRESS COMMAND 'C:RequestChoice > T:Tempfile "AGASSM - CPU Cache Control" "CPU DataCache" "ON|OFF"'
  18.  
  19. succ = Open(file,'T:Tempfile','r')
  20. if succ = 0 then do
  21.   Exit
  22.   End
  23.  
  24. CPUOpt = ReadLn(file)
  25. succ = Close(file)
  26.  
  27. ADDRESS COMMAND 'C:Delete T:Tempfile QUIET'
  28.  
  29. Select
  30.   When CPUOpt == 0 then
  31.     ComOpt = 'NO'
  32.   When CPUOpt == 1 then
  33.     ComOpt = ''
  34.   Otherwise
  35.   End
  36.  
  37. ADDRESS COMMAND 'C:CPU ' ComOpt'DATACACHE'
  38.  
  39. Exit
  40.