home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / graphics / copper.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  2.1 KB  |  97 lines
  1. {$if not def GRAPHICS_COPPER_H} CONST GRAPHICS_COPPER_H=0;
  2.  
  3. { *******************************************************************
  4.   ** KickPascal-Include-Datei "graphics/copper.h" zu Kickstart 3.0 **
  5.   ******************************************************************* }
  6.  
  7. TYPE p_CopList = ^CopList;
  8. TYPE p_CopIns = ^CopIns;
  9. TYPE p_cprlist = ^cprlist;
  10. TYPE p_UCopList = ^UCopList;
  11. TYPE p_copinit = ^copinit;
  12.  
  13.  
  14. CONST
  15.  COPPER_MOVE = 0;
  16.  COPPER_WAIT = 1;
  17.  CPRNXTBUF   = 2;
  18.  CPR_NT_LOF  = $8000;
  19.  CPR_NT_SHT  = $4000;
  20.  CPR_NT_SYS  = $2000;
  21.  
  22.  
  23. TYPE CopIns = RECORD
  24.  OpCode : Integer;
  25.  u3     : RECORD
  26.  CASE Integer OF
  27.     0 : ( nxtlist : p_CopList);
  28.     1 : ( u4 : RECORD
  29.                u1 :RECORD
  30.                CASE Integer OF
  31.                0 : ( VWaitPos : Integer);
  32.                1 : ( DestAddr : Integer);
  33.                END;
  34.                u2 : RECORD
  35.                CASE Integer OF
  36.                0 : ( HWaitPos : Integer);
  37.                1 : ( DestData : Integer);
  38.                END;
  39.           END;
  40.         );
  41.     END;
  42. END;
  43.  
  44. { **  Bemerkung :
  45.   ** NXTLIST  = u3.nxtlist
  46.   ** VWAITPOS = u3.u4.u1.VWaitPos
  47.   ** DESTADDR = u3.u4.u1.DestAddr
  48.   ** HWAITPOS = u3.u4.u2.HWaitPos
  49.   ** DESTDATA = u3.u4.u2.DestData }
  50.  
  51.  
  52. TYPE cprlist = RECORD
  53.  Next     : p_cprlist;
  54.  start    : ^Word;
  55.  MaxCount : Integer;
  56. END;
  57.  
  58. CopList = RECORD
  59.  Next      : p_CopList;
  60.  _CopList  : p_CopList;
  61.  _ViewPort : Ptr; { p_ViewPort}
  62.  CopIns    : p_CopIns;
  63.  CopPtr    : p_CopIns;
  64.  CopLStart : ^Word;
  65.  CopSStart : ^Word;
  66.  Count     : Integer;
  67.  MaxCount  : Integer;
  68.  DyOffset  : Integer;
  69. {$if def V1_3}
  70.  Cop2Start : ^Word;
  71.  Cop3Start : ^Word;
  72.  Cop4Start : ^Word;
  73.  Cop5Start : ^Word;
  74. {$endif}
  75. END;
  76.  
  77. TYPE UCopList = RECORD
  78.  Next         : p_UCopList;
  79.  FirstCopList : p_CopList;
  80.  CopList      : p_CopList;
  81. END;
  82.  
  83. TYPE copinit = RECORD
  84.  vsync_hblank : ARRAY[0..1] OF Word;
  85.  diwstart     : ARRAY[0..3] OF Word;
  86.  diagstrt     : ARRAY[0..3] OF Word;
  87.  sprstrtup    : ARRAY[0..31] OF Word;
  88.  wait14       : ARRAY[0..1] OF Word;
  89.  norm_hblank  : ARRAY[0..1] OF Word;
  90.  genlocp      : ARRAY[0..3] OF Word;
  91.  jump         : ARRAY[0..3] OF Word;
  92.  wait_forever : ARRAY[0..1] OF Word;
  93.  sprstop      : ARRAY[0..3] OF Word;
  94. END;
  95.  
  96. {$endif}
  97.