*****************************************************************************
* Project Details                                                           *
* ---------------                                                           *
* Project Name:    Beep                                                     *
* Project Version: 1                                                        *
* Copyright:       Anthony N Peck                                           *
* Date:            Thursday 1st June 1995                                   *
*                                                                           *
* Contact:                                                                  *
* 68 Woralul St                                                             *
* Waramanga ACT 2611                                                        *
* AUSTRALIA                                                                 *
*                                                                           *
*****************************************************************************
* Summary                                                                   *
* -------                                                                   *
*                                                                           *
* Usage: Beep                                                               *
*                                                                           *
* This is a nonsensical little program that "beeps" and flashes the screen. *
* Feel free to put it at the bottom of your cupboard and forget about it!   *
*                                                                           *
*****************************************************************************

; Some quick equivalents...

ExecBase                = $04       ; Exec Base...ahem
_LVOOpenlibrary         = -$0228    ; Exec function opens libraries
_LVOCloselibrary        = -$019E    ; Exec function closes libraries
_LVODisplayBeep         = -$60      ; Intuition function

; An Exec Macro...

EXEC            Macro
        MOVE.L  ExecBase,A6         ; Move Exec into a6
        JSR     _LVO\1(A6)          ; Add Library offset and call function
                Endm

; Program starts here

Openint:

        LEA     Intname,A1          ; Load the Intuition library
        MOVE.L  #$00,D0             ; Any version will do
        EXEC    Openlibrary         ; Macro opens library
        BEQ     Exit                ; If there's a problem, close down
        MOVE.L  D0,A6               ; Save the return address in A6

Beep:

        MOVE.L  #$00,A0             ; All screens to "Beep"
        JSR     _LVODisplayBeep(A6) ; Go do it!

Close:        

        MOVE.L  A6,A1
        EXEC    Closelibrary       ; Macro closes Intuition

Exit:

        CLR.L   D0                  ; Clear D0
        RTS                         ; Return To System

Intname:

        DC.B    "intuition.library",$00  ; Intuition library name