**
**      ISpy stubs
**
**
** Copyright (c) 1991-1999 Amiga, Inc.
**
** This example is provided in electronic form by Amiga,
** Inc. for use with the Amiga Mail Volume II technical publication.
** Amiga Mail Volume II contains additional information on the correct
** usage of the techniques and operating system functions presented in
** these examples.  The source and executable code of these examples may
** only be distributed in free electronic form, via bulletin board or
** as part of a fully non-commercial and freely redistributable
** diskette.  Both the source and executable code (including comments)
** must be included, without modification, in any copy.  This example
** may not be published in printed form or distributed with any
** commercial product. However, the programming techniques and support
** routines set forth in these examples may be used in the development
** of original executable software products for Amiga
** computers.
**
** All other rights reserved.
**
** This example is provided "as-is" and is subject to change; no
** warranties are made.  All use is at your own risk. No liability or
** responsibility is assumed.
**
**
        INCLUDE "exec/types.i"

        SECTION CODE

        XREF    _SysBase

        XREF    _LVOForbid
        XREF    _LVOPermit

        XREF    _newOpenScreen
        XREF    _newOpenWindowTagList
        XREF    _newFreeMem
        XREF    _newSetFont

        XDEF    _OpenScreenStub
        XDEF    _OpenWindowTagListStub
        XDEF    _FreeMemStub
        XDEF    _SetFontStub


_OpenScreenStub:
        movem.l a4,-(sp)
        lea             4(sp),a4
        jsr             _newOpenScreen
        movem.l (sp)+,a4
        rts

_OpenWindowTagListStub:
        movem.l a4,-(sp)
        lea             4(sp),a4
        jsr             _newOpenWindowTagList
        movem.l (sp)+,a4
        rts

_FreeMemStub:
        movem.l a4,-(sp)
        lea             4(sp),a4
        jsr             _newFreeMem
        movem.l (sp)+,a4
        rts

_SetFontStub:
        movem.l a4,-(sp)
        lea             4(sp),a4
        jsr             _newSetFont
        movem.l (sp)+,a4
        rts

        END