home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / debug / Utility / TheGuru / Sources / SimErr.s < prev   
Text File  |  1995-06-25  |  1KB  |  61 lines
  1. * SimErr V1.01
  2. * By E.Lensink
  3. * Devpac III
  4. *-----------------
  5. * Causes a RECOVERY alert
  6. *-----------------------------------------------------------------------
  7.  
  8. * Includes -------------------------------------------------------------
  9.  
  10.     incdir "Work:Programming/Devpac"        
  11.  
  12.     include "include/exec/exec_lib.i"        
  13.     include    "include/intuition/intuition_lib.i"
  14.     
  15.     include "/subs/easystart.i"
  16.     
  17. * Libraries ------------------------------------------------------------
  18.  
  19.     lea        Intname,a1        Intuition    
  20.     moveq        #0,d0            All kickstarts
  21.     CALLEXEC     OpenLibrary
  22.     move.l         d0,_IntuitionBase 
  23.     beq        EXIT            Error ? -> EXIT
  24.     
  25. * Alert ----------------------------------------------------------------
  26.  
  27.     moveq        #0,d0
  28.     lea        String,a0
  29.     moveq        #50,d1
  30.     CALLINT        DisplayAlert
  31.  
  32.     move.l        #$82011234,$100        Set LAST error
  33.  
  34. * Afsluiten ------------------------------------------------------------
  35.  
  36. CLALL    move.l         _IntuitionBase,a1
  37.     CALLEXEC    CloseLibrary
  38. EXIT    rts
  39.  
  40. * Constanten & variabelen ----------------------------------------------
  41.  
  42.         even
  43. Intname     dc.b 'intuition.library'
  44.         even
  45. _IntuitionBase     dc.l 0
  46.  
  47. String      dc.w 50
  48.         dc.b 15
  49.         dc.b '     Software failure.     Press left mouse button to continue.',0,255
  50.         dc.w 50
  51.         dc.b 35
  52.         dc.b '          Error : 82011234       Task : Just kidding...        ',0,0
  53.     
  54.     * String definities :
  55.     *    Word    X-Coordinaat
  56.     *     Byte       Y-Coordinaat
  57.     *    String    Oneven aantal tekens , gevolgd door :
  58.     *            Laatste string   -> ,0,0   (0000)
  59.     *            Nog meer strings -> ,0,255 (00FF)
  60.     
  61.