home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / debug / Utility / TheGuru / Sources / Faults.s < prev    next >
Text File  |  1995-06-25  |  794b  |  58 lines
  1. * Faults
  2. * SYNTAX: 
  3. *
  4. * By E.Lensink
  5. * Using Devpac III
  6. *
  7. ***********************************
  8.  
  9.     include "exec/execbase.i"
  10.     include "exec/exec_lib.i"
  11.     include    "libraries/dos_lib.i"
  12.     include    "libraries/dos.i"
  13.     
  14.     lea        Dosname,a1
  15.     moveq        #0,d0
  16.     CALLEXEC    OpenLibrary
  17.     move.l        d0,_DOSBase
  18.     beq        EXIT
  19.     
  20.     CALLDOS        Output
  21.     move.l        d0,StdOut
  22.     
  23.     moveq        #0,d6
  24. loop    moveq        #68,d0
  25.     lea        ClearString,a0
  26. .loop    move.b        #' ',(a0)+
  27.     dbf        d0,.loop    
  28.  
  29.     move.l        d6,d1
  30.     moveq        #0,d2
  31.     move.l        #ClearString,d3
  32.     moveq        #70,d4
  33.     CALLDOS        Fault
  34.  
  35.     move.l        StdOut,d1
  36.     move.l        #ClearString,d2
  37.     moveq        #70,d3
  38.     CALLDOS        Write
  39.     
  40.     addq.l        #1,d6
  41.     cmpi.l        #500,d6
  42.     bne        loop
  43.  
  44.  
  45.     move.l        _DOSBase,a1
  46.     CALLEXEC    CloseLibrary
  47.     
  48. EXIT    rts
  49.  
  50.     even
  51. _DOSBase    dc.l    0
  52. StdOut        dc.l    0
  53. Dosname        dc.b    'dos.library',0
  54. ClearString    ds.b    69
  55.         dc.b    10    
  56.  
  57.  
  58.