home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Exec / Alerts.i next >
Text File  |  1990-08-28  |  7KB  |  222 lines
  1. {
  2.     Alerts.i for PCQ Pascal
  3. }
  4.  
  5. const
  6.     SF_ALERTWACK    = 2;    { in ExecBase.SysFlag }
  7.  
  8. {*********************************************************************
  9. *
  10. *  Format of the alert error number:
  11. *
  12. *    +-+-------------+----------------+--------------------------------+  
  13. *    |D|  SubSysId   |    General Error |       SubSystem Specific Error    |
  14. *    +-+-------------+----------------+--------------------------------+
  15. *
  16. *             D:     DeadEnd alert
  17. *          SubSysId:     indicates ROM subsystem number.
  18. *     General Error:     roughly indicates what the error was
  19. *    Specific Error:     indicates more detail
  20. *********************************************************************}
  21.  
  22. {********************************************************************
  23. *
  24. *  General Dead-End Alerts
  25. *
  26. ********************************************************************}
  27.  
  28. {------ alert types }
  29.  
  30.     AT_DeadEnd    = $80000000;
  31.     AT_Recovery    = $00000000;
  32.  
  33. {------ general purpose alert codes }
  34.  
  35.     AG_NoMemory    = $00010000;
  36.     AG_MakeLib    = $00020000;
  37.     AG_OpenLib    = $00030000;
  38.     AG_OpenDev    = $00040000;
  39.     AG_OpenRes    = $00050000;
  40.     AG_IOError    = $00060000;
  41.     AG_NoSignal    = $00070000;
  42.  
  43. {------ alert objects: }
  44.  
  45.     AO_ExecLib        = $00008001;
  46.     AO_GraphicsLib    = $00008002;
  47.     AO_LayersLib    = $00008003;
  48.     AO_Intuition    = $00008004;
  49.     AO_MathLib        = $00008005;
  50.     AO_CListLib        = $00008006;
  51.     AO_DOSLib        = $00008007;
  52.     AO_RAMLib        = $00008008;
  53.     AO_IconLib        = $00008009;
  54.     AO_ExpansionLib     = $0000800A;
  55.     AO_AudioDev        = $00008010;
  56.     AO_ConsoleDev    = $00008011;
  57.     AO_GamePortDev    = $00008012;
  58.     AO_KeyboardDev    = $00008013;
  59.     AO_TrackDiskDev    = $00008014;
  60.     AO_TimerDev        = $00008015;
  61.     AO_CIARsrc        = $00008020;
  62.     AO_DiskRsrc        = $00008021;
  63.     AO_MiscRsrc        = $00008022;
  64.     AO_BootStrap    = $00008030;
  65.     AO_Workbench    = $00008031;
  66.  
  67.  
  68. {********************************************************************
  69. *
  70. *   Specific Dead-End Alerts:
  71. *
  72. ********************************************************************}
  73.  
  74. {------ exec.library }
  75.  
  76.     AN_ExecLib        = $01000000;
  77.     AN_ExcptVect    = $81000001;    { 68000 exception vector checksum }
  78.     AN_BaseChkSum    = $81000002;    { execbase checksum }
  79.     AN_LibChkSum    = $81000003;    { library checksum failure }
  80.     AN_LibMem        = $81000004;    { no memory to make library }
  81.     AN_MemCorrupt    = $81000005;    { corrupted memory list }
  82.     AN_IntrMem        = $81000006;    { no memory for interrupt servers }
  83.     AN_InitAPtr        = $81000007;    { InitStruct() of an APTR source }
  84.     AN_SemCorrupt    = $81000008;    { a semaphore is in illegal state }
  85.     AN_FreeTwice    = $81000009;    { freeing memory already freed }
  86.     AN_BogusExcpt    = $8100000A;    { illegal 68k exception taken }
  87.  
  88. {------ graphics.library }
  89.  
  90.     AN_GraphicsLib    = $02000000;
  91.     AN_GfxNoMem        = $82010000;    { graphics out of memory }
  92.     AN_LongFrame    = $82010006;    { long frame, no memory }
  93.     AN_ShortFrame    = $82010007;    { short frame, no memory }
  94.     AN_TextTmpRas    = $02010009;    { text, no memory for TmpRas }
  95.     AN_BltBitMap    = $8201000A;    { BltBitMap, no memory }
  96.     AN_RegionMemory     = $8201000B;    { regions, memory not available }
  97.     AN_MakeVPort    = $82010030;    { MakeVPort, no memory }
  98.     AN_GfxNoLCM        = $82011234;    { emergency memory not available }    
  99.  
  100. {------ layers.library }
  101.  
  102.     AN_LayersLib    = $03000000;
  103.     AN_LayersNoMem    = $83010000;    { layers out of memory }
  104.  
  105. {------ intuition.library }
  106.  
  107.     AN_Intuition    = $04000000;
  108.     AN_GadgetType    = $84000001;    { unknown gadet type }
  109.     AN_BadGadget    = $04000001;    { Recovery form of AN_GadgetType }
  110.     AN_CreatePort    = $84010002;    { create port, no memory }
  111.     AN_ItemAlloc    = $04010003;    { item plane alloc, no memory }
  112.     AN_SubAlloc        = $04010004;    { sub alloc, no memory }
  113.     AN_PlaneAlloc    = $84010005;    { plane alloc, no memory }
  114.     AN_ItemBoxTop    = $84000006;    { item box top < RelZero }
  115.     AN_OpenScreen    = $84010007;    { open screen, no memory }
  116.     AN_OpenScrnRast     = $84010008;    { open screen, raster alloc, no memory }
  117.     AN_SysScrnType    = $84000009;    { open sys screen, unknown type }
  118.     AN_AddSWGadget    = $8401000A;    { add SW gadgets, no memory }
  119.     AN_OpenWindow    = $8401000B;    { open window, no memory }
  120.     AN_BadState        = $8400000C;    { Bad State Return entering Intuition }
  121.     AN_BadMessage    = $8400000D;    { Bad Message received by IDCMP }
  122.     AN_WeirdEcho    = $8400000E;    { Weird echo causing incomprehension }
  123.     AN_NoConsole    = $8400000F;    { couldn't open the Console Device }
  124.  
  125.  
  126. {------ math.library }
  127.  
  128.     AN_MathLib    = $05000000;
  129.  
  130. {------ clist.library }
  131.  
  132.     AN_CListLib    = $06000000;
  133.  
  134. {------ dos.library }
  135.  
  136.     AN_DOSLib        = $07000000;
  137.     AN_StartMem        = $07010001;    { no memory at startup }
  138.     AN_EndTask        = $07000002;    { EndTask didn't }
  139.     AN_QPktFail        = $07000003;    { Qpkt failure }
  140.     AN_AsyncPkt        = $07000004;    { Unexpected packet received }
  141.     AN_FreeVec        = $07000005;    { Freevec failed }
  142.     AN_DiskBlkSeq    = $07000006;    { Disk block sequence error }
  143.     AN_BitMap        = $07000007;    { Bitmap corrupt }
  144.     AN_KeyFree        = $07000008;    { Key already free }
  145.     AN_BadChkSum    = $07000009;    { Invalid checksum }
  146.     AN_DiskError    = $0700000A;    { Disk Error }
  147.     AN_KeyRange        = $0700000B;    { Key out of range }
  148.     AN_BadOverlay    = $0700000C;    { Bad overlay }
  149.  
  150. {------ ramlib.library }
  151.  
  152.     AN_RAMLib        = $08000000;
  153.     AN_BadSegList    = $08000001;    { no overlays in library seglists }
  154.  
  155. {------ icon.library }
  156.  
  157.     AN_IconLib    = $09000000;
  158.  
  159. {------ expansion.library }
  160.  
  161.     AN_ExpansionLib     = $0A000000;
  162.     AN_BadExpansionFree    = $0A000001;
  163.  
  164. {------ audio.device }
  165.  
  166.     AN_AudioDev    = $10000000;
  167.  
  168. {------ console.device }
  169.  
  170.     AN_ConsoleDev    = $11000000;
  171.  
  172. {------ gameport.device }
  173.  
  174.     AN_GamePortDev    = $12000000;
  175.  
  176. {------ keyboard.device }
  177.  
  178.     AN_KeyboardDev    = $13000000;
  179.  
  180. {------ trackdisk.device }
  181.  
  182.     AN_TrackDiskDev     = $14000000;
  183.     AN_TDCalibSeek    = $14000001;    { calibrate: seek error }
  184.     AN_TDDelay        = $14000002;    { delay: error on timer wait }
  185.  
  186. {------ timer.device }
  187.  
  188.     AN_TimerDev        = $15000000;
  189.     AN_TMBadReq        = $15000001;    { bad request }
  190.     AN_TMBadSupply    = $15000002;    { power supply does not supply ticks }
  191.  
  192. {------ cia.resource }
  193.  
  194.     AN_CIARsrc    = $20000000;
  195.  
  196. {------ disk.resource }
  197.  
  198.     AN_DiskRsrc        = $21000000;
  199.     AN_DRHasDisk    = $21000001;    { get unit: already has disk }
  200.     AN_DRIntNoAct    = $21000002;    { interrupt: no active unit }
  201.  
  202. {------ misc.resource }
  203.  
  204.     AN_MiscRsrc    = $22000000;
  205.  
  206. {------ bootstrap }
  207.  
  208.     AN_BootStrap    = $30000000;
  209.     AN_BootError    = $30000001;    { boot code returned an error }
  210.  
  211. {------ Workbench }
  212.  
  213.     AN_Workbench    = $31000000;
  214.  
  215. {------ DiskCopy }
  216.  
  217.     AN_DiskCopy    = $32000000;
  218.  
  219. Procedure Alert(alertNum : Integer; parameters : Address);
  220.     External;
  221.  
  222.