home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 224a.lha / Includes / exec / memory < prev    next >
Encoding:
Text File  |  1989-04-08  |  1.5 KB  |  56 lines
  1.  
  2. {s  MemChunk
  3.     APTR   mc_Next
  4.     LONG   mc_Bytes
  5.    s}
  6.  
  7. {s  MemHeader
  8.     struct  14 mh_Node          ( { Node=14;exec/nodes )
  9.     WORD    mh_Attributes
  10.     APTR    mh_First
  11.     APTR    mh_Lower
  12.     APTR    mh_Upper
  13.     LONG    mh_Free
  14.    s}
  15.  
  16. {s  MemEntry
  17.     LONG    me_Reqs  -4  soffset +!  ( union )
  18.     APTR    me_Addr
  19.     LONG    me_Length
  20.    s}
  21.  
  22. {s  MemList
  23.     struct  14 ml_Node          ( { Node=14;exec/nodes )
  24.     WORD    ml_NumEntries
  25.     STRUCT  MemEntry ml_ME
  26.    s}
  27.  
  28. EQU MEMF_PUBLIC (1<<0)
  29. EQU MEMF_CHIP   (1<<1)
  30. EQU MEMF_FAST   (1<<2)
  31.  
  32. EQU MEMF_CLEAR  (1<<16)
  33. EQU MEMF_LARGEST (1<<17)
  34.  
  35. EQU MEM_BLOCKSIZE   8
  36. EQU MEM_BLOCKMASK   7
  37.  
  38.  
  39. >Exec ^ -618 (r A1 A0 D2 D1 D0 r) AddMemList
  40.                  (s name base pri attr size -- n )
  41.  
  42. >Exec ^ -204 (r A1 D0 r)    AllocAbs     (s location Size -- adr )
  43. >Exec ^ -186 (r A0 D0 r)    Allocate     (s freeLst Size -- adr )
  44. >Exec   -192 (r A1 A0 D0 r) Deallocate   (s adr freeLst Size -- )
  45. >Exec ^ -222 (r A0 r)       AllocEntry   (s memlist -- memlist )
  46. \\ >Exec ^ -198 (r D1 D0 r)    AllocMem     (s flags size -- adr )
  47. \\ >Exec   -210 (r A1 D0 r)    FreeMem      (s adr size -- )
  48.  
  49. >Exec ^ -216 (r D1 r)       AvailMem     (s flags -- size )
  50. >Exec   -624 (r A1 A0 D0 r) CopyMem      (s dest source size -- )
  51. >Exec   -630 (r A1 A0 D0 r) CopyMemQuick (s dest source size -- )
  52. >Exec   -228 (r A0 r)       FreeEntry    (s memlist -- )
  53. >Exec   -078 (r A2 A1 D0 r) Initstruct   (s block Table size -- )
  54. >Exec ^ -534 (r A1 r)       TypeOfMem    (s adr -- flags )
  55.  
  56.