home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / IntuiSup.mod < prev    next >
Text File  |  1995-03-26  |  1KB  |  56 lines
  1. IMPLEMENTATION MODULE IntuiSup;
  2.  
  3. (* (C) Copyright 1994 Marcel Timmermans. All rights reserved. *)
  4.  
  5. FROM SYSTEM IMPORT ASSEMBLE;
  6.  
  7. FROM GraphicsL IMPORT graphicsBase;
  8.  
  9. PROCEDURE MenuNum(code{0}:CARDINAL):CARDINAL;
  10. (*$ EntryExitCode- *)
  11. BEGIN
  12.   ASSEMBLE(ANDI.W  #$1F,D0
  13.            RTS
  14.            END);
  15. END MenuNum;
  16.  
  17.  
  18. PROCEDURE ItemNum(code{0}:CARDINAL):CARDINAL;
  19. (*$ EntryExitCode- *)
  20. BEGIN
  21.   ASSEMBLE(LSR     #5,D0
  22.            ANDI.W  #$3F,D0
  23.            RTS
  24.            END);
  25. END ItemNum;
  26.  
  27. PROCEDURE SubNum(code{0}:CARDINAL):CARDINAL;
  28. (*$ EntryExitCode- *)
  29. BEGIN
  30.   ASSEMBLE(MOVEQ   #11,D1
  31.            LSR.W   D1,D0
  32.            RTS
  33.            END);
  34. END SubNum;
  35.  
  36. PROCEDURE DetectAga():BOOLEAN;
  37. (*$ EntryExitCode- *)
  38. BEGIN
  39.   ASSEMBLE(
  40.      SF      D0
  41.      MOVE.L  graphicsBase(A4),A0           
  42.      CMP.W   #39,20(A0)  (* Lib version *)
  43.      BLT.S   quit
  44.      MOVE.B  236(A0),D1  (* ChipRevBits *)
  45.      BTST    #2,D1
  46.      BEQ.S   quit
  47.      BTST    #3,D1
  48.      BEQ.S   quit
  49.      ST      D0     (* AGA detected!! *)
  50. quit:
  51.      RTS
  52.     END);
  53. END DetectAga;
  54.  
  55. END IntuiSup.
  56.