home *** CD-ROM | disk | FTP | other *** search
- *
- * Name: libinf.a
- *
- * Description: Description file for libhdr.a
- *
- * Copyright: 1991-1992 by David Jones.
- *
- * Distribution:
- * This source file is released under the terms and conditions of the
- * GNU General Public Library License, which should have been included
- * with this source distribution. If you do not have a copy of this
- * license, then write to both of the following:
- *
- * The Free Software Foundation David Jones
- * 675 Mass Ave 6730 Tooney Drive
- * Cambridge, MA Orleans, Ontario
- * 02139 K1C 6R4
- * USA Canada
- *
- * Usenet: gnu@prep.ai.mit.edu dej@qpoint.amiga.ocunix.on.ca
- * Fidonet: 1:163/109.8
- *
- *
- * There is NO WARRANTY associated with this software; refer to "gpll.doc"
- * for details.
- *
- * $Log: $
- *
- *
-
- *
- * This is the stuff you will have to change.
- *
-
- XDEF _LibName
- XDEF _LibID
- XDEF _FuncTable
- XDEF LibVersion
- XDEF LibRevision
- XDEF _LibVersion
- XDEF _LibRevision
-
- XREF _aLibOpen
- XREF _aLibClose
- XREF _aLibExpunge
- XREF _aLibExtFunc
-
- DEF MACRO
- XREF _LIB\1
- dc.l _LIB\1
- ENDM
-
- ; put XREFs for your functions here
-
-
- ; put the name of your library here
- _LibName dc.b 'demo.library',0
-
- ; put your ID string here
- _LibID dc.b 'demo.library 1.0 (24.10.91)',13,10,0
-
- ; replace the following
-
- LibVersion EQU 1
- LibRevision EQU 0
- _LibVersion dc.w 1
- _LibRevision dc.w 0
-
-
- ; don't touch these
- _FuncTable:
- dc.l _aLibOpen
- dc.l _aLibClose
- dc.l _aLibExpunge
- dc.l _aLibExtFunc
-
- ; put pointers to your functions here.
-
- DEF SquareMe
-
- dc.l -1
-
- *
- * The next piece of code is the glue driver for the ARexx query function.
- * If you are writing an ARexx function library then remove the
- * semicolon from the line below.
- *
-
- ;INCLUDE_REXX EQU 0
-
- IFD INCLUDE_REXX
-
- XREF _LibRexxQuery
-
- _aLibRexxQuery:
- link A5,#-4
- lea -4(A5),A1 ; pointer for return value
- jsr _LIBRexxQuery
- move.l -4(A5),A0 ; fetch return value
- unlk A5
- rts
-
- ENDC
-
- END