home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 110 / EnigmaAmiga110CD.iso / software / varie / ksc_utils / beep.asm < prev    next >
Assembly Source File  |  2000-02-21  |  421b  |  24 lines
  1. ; Beep v1.1 : does a displaybeep!
  2. ; by Kyzer/CSG
  3. ; $VER: Beep.asm 1.1 (29.12.97)
  4. ;
  5.     incdir    include:
  6.     include    lvo/exec_lib.i
  7.     include    lvo/intuition_lib.i
  8.  
  9. Beep    move.l    4.w,a6
  10.     lea    intname(pc),a1
  11.     moveq    #32,d1
  12.     jsr    _LVOOpenLibrary(a6)
  13.     tst.l    d0
  14.     beq.s    .exit
  15.     move.l    d0,a6
  16.     suba.l    a0,a0
  17.     jsr    _LVODisplayBeep(a6)
  18.     move.l    a6,a1
  19.     move.l    4.w,a6
  20.     jsr    _LVOCloseLibrary(a6)
  21. .exit    moveq    #0,d0
  22.     rts
  23. intname    dc.b    'intuition.library',0
  24.