; Directory Opus 4
; Original GPL release version 4.12
; Copyright 1993-2000 Jonathan Potter
; 
; This program is free software; you can redistribute it and/or
; modify it under the terms of the GNU General Public License
; as published by the Free Software Foundation; either version 2
; of the License, or (at your option) any later version.
; 
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
; 
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
; 
; All users of Directory Opus 4 (including versions distributed
; under the GPL) are entitled to upgrade to the latest version of
; Directory Opus version 5 at a reduced price. Please see
; http://www.gpsoft.com.au for more information.
;
; The release of Directory Opus 4 under the GPL in NO WAY affects
; the existing commercial status of Directory Opus 5.


    section LibBases,data

    XDEF _SysBase
    XDEF _DOpusBase
    XDEF _IntuitionBase
    XDEF _GfxBase
    XDEF _DOSBase
    XDEF _LayersBase
    XDEF _UtilityBase
    XDEF ___MathIeeeSingBasBase

_SysBase:
    dc.l 0
_DOpusBase:
    dc.l 0
_IntuitionBase:
    dc.l 0
_GfxBase:
    dc.l 0
_DOSBase:
    dc.l 0
_LayersBase:
    dc.l 0
_UtilityBase:
    dc.l 0
___MathIeeeSingBasBase:
    dc.l 0

    SECTION .text

    INCLUDE "exec/types.i"
    INCLUDE "exec/initializers.i"
    INCLUDE "exec/libraries.i"
    INCLUDE "exec/lists.i"
    INCLUDE "exec/alerts.i"
    INCLUDE "exec/resident.i"
    INCLUDE "exec/ports.i"
    INCLUDE "exec/io.i"
    INCLUDE "libraries/dos.i"
    INCLUDE "graphics/rastport.i"

    INCLUDE "asmsupp.i"
    INCLUDE "dopusbase.i"

* Functions.a

    XREF endcode
    XREF GetWBScreen
    XREF Seed
    XREF Random
    XREF StrToUpper
    XREF StrToLower
    XREF DisableGadget
    XREF EnableGadget
    XREF GhostGadget
    XREF _SwapMem
    XREF _LSprintf
    XREF LSprintf
    XREF LToUpper
    XREF LToLower
    XREF LStrCat
    XREF LStrnCat
    XREF LStrCpy
    XREF LStrnCpy
    XREF LStrCmpI
    XREF LStrnCmpI
    XREF LStrCmp
    XREF LStrnCmp

* Functions2.a

    XREF BtoCStr
    XREF ActivateStrGad
    XREF RefreshStrGad

* Graphics.a

    XREF Do3DBox
    XREF Do3DStringBox
    XREF Do3DCycleBox
    XREF DrawCheckMark
    XREF HiliteGad

* Filereq.c

    XREF _DoFileRequest
    XREF _DoSetBusyPointer

* Wildcard.c

    XREF _DoParsePattern
    XREF _DoMatchPattern

* Dosstuff.c

    XREF _DoAssign
    XREF _DoBaseName
    XREF _DoCompareLock
    XREF _DoPathName
    XREF _DoSendPacket
    XREF _DoTackOn
    XREF _DoStampToStr
    XREF _DoStrToStamp
    XREF _DoAllocRemember
    XREF _DoFreeRemember
    XREF _DoFreeRemEntry
    XREF _DoCreateExtIO
    XREF _DoCreatePort
    XREF _DoDeleteExtIO
    XREF _DoDeletePort
    XREF _DoCompareDate
    XREF _DoDoArrow
    XREF _DoStrCombine
    XREF _DoStrConcat
    XREF _DoDecode_RLE

* Dosstuff2.c

    XREF _DoSearchPathList
    XREF _DoCheckExist
    XREF _DoRawkeyToStr
    XREF _DoDoRMBGadget
    XREF _DoAddGadgets
    XREF _DoCheckNumGad
    XREF _DoCheckHexGad
    XREF _DoAtoh
    XREF _DoDoSimpleRequest
    XREF _DoDoCycleGadget
    XREF _DoDrawRadioButton
    XREF _DoGetButtonImage
    XREF _DoGetCheckImage
    XREF _DoUScoreText
    XREF _DoDo3DFrame
    XREF _DoDoGlassImage

* Dosstuff3.c

    XREF _DoReadConfig
    XREF _DoSaveConfig
    XREF _DoDefaultConfig
    XREF _DoGetDevices
    XREF _DoAssignGadget
    XREF _DoAssignMenu
    XREF _DoFreeConfig
    XREF _DoCheckConfig
    XREF _DoFindSystemFile

* Listview.c

    XREF _DoAddListView
    XREF _DoListViewIDCMP
    XREF _DoRemoveListView
    XREF _DoRefreshListView
    XREF _DoFixSliderBody
    XREF _DoFixSliderPot
    XREF _DoGetSliderPos
    XREF _DoShowSlider

* Requesters.c

    XREF _R_OpenRequester
    XREF _R_CloseRequester
    XREF _R_AddRequesterObject
    XREF _R_RefreshRequesterObject
    XREF _R_ObjectText

* Language.c

    XREF _DoReadStringFile
    XREF _DoFreeStringFile

* Borders.c

    XREF _DoAddGadgetBorders
    XREF _DoCreateGadgetBorders
    XREF _DoSelectGadget

* Menus.c

    XREF _DoFSSetMenuStrip

* Chip data

    XREF _pdb_cycletop
    XREF _pdb_cyclebot
    XREF _pdb_check

* Objects

;    XREF _SysBase
;    XREF _DOpusBase
;    XREF _IntuitionBase
;    XREF _GfxBase
;    XREF _DOSBase
;    XREF _LayersBase
;    XREF ___MathIeeeSingBasBase

start:
    moveq #0,d0
    rts

romtag:
    dc.w RTC_MATCHWORD
    dc.l romtag
    dc.l endcode
    dc.b RTF_AUTOINIT
    dc.b VERSION
    dc.b NT_LIBRARY
    dc.b 0
    dc.l dopusname
    dc.l idstring
    dc.l init

VERSION  equ 22
REVISION equ 18

dopusname:
    DOPUSNAME

idstring:
    dc.b 'dopus.library 22.18 (3 Jun 2001) made under GPL license by Jacek Rzeuski',13,10,0

dosname:
    dc.b 'dos.library',0
intuitionname:
    dc.b 'intuition.library',0
graphicsname:
    dc.b 'graphics.library',0
layersname:
    dc.b 'layers.library',0
utilityname:
    dc.b 'utility.library',0
mathieeesingbasname:
    dc.b 'mathieeesingbas.library',0
    ds.w 0

init:
    dc.l DOpusBase_SIZEOF
    dc.l functable
    dc.l datatable
    dc.l initroutine

functable:
    dc.l Open
    dc.l Close
    dc.l Expunge
    dc.l Null
    dc.l _DoFileRequest
    dc.l Do3DBox
    dc.l Do3DStringBox
    dc.l Do3DCycleBox
    dc.l _DoDoArrow
    dc.l LSprintf
    dc.l _DoCreateExtIO
    dc.l _DoCreatePort
    dc.l _DoDeleteExtIO
    dc.l _DoDeletePort
    dc.l LToUpper
    dc.l LToLower
    dc.l LStrCat
    dc.l LStrnCat
    dc.l LStrCpy
    dc.l LStrnCpy
    dc.l LStrCmp
    dc.l LStrnCmp
    dc.l LStrCmpI
    dc.l LStrnCmpI
    dc.l _DoStrCombine
    dc.l _DoStrConcat
    dc.l LParsePattern
    dc.l LMatchPattern
    dc.l LParsePatternI
    dc.l LMatchPatternI
    dc.l BtoCStr
    dc.l _DoAssign
    dc.l _DoBaseName
    dc.l _DoCompareLock
    dc.l _DoPathName
    dc.l _DoSendPacket
    dc.l _DoTackOn
    dc.l _DoStampToStr
    dc.l _DoStrToStamp
    dc.l _DoAddListView
    dc.l _DoListViewIDCMP
    dc.l _DoRefreshListView
    dc.l _DoRemoveListView
    dc.l DrawCheckMark
    dc.l _DoFixSliderBody
    dc.l _DoFixSliderPot
    dc.l _DoGetSliderPos
    dc.l _DoAllocRemember
    dc.l _DoFreeRemember
    dc.l _DoSetBusyPointer
    dc.l GetWBScreen
    dc.l _DoSearchPathList
    dc.l _DoCheckExist
    dc.l _DoCompareDate
    dc.l Seed
    dc.l Random
    dc.l StrToUpper
    dc.l StrToLower
    dc.l _DoRawkeyToStr
    dc.l _DoDoRMBGadget
    dc.l _DoAddGadgets
    dc.l ActivateStrGad
    dc.l RefreshStrGad
    dc.l _DoCheckNumGad
    dc.l _DoCheckHexGad
    dc.l _DoAtoh
    dc.l HiliteGad
    dc.l _DoDoSimpleRequest
    dc.l _DoReadConfig
    dc.l _DoSaveConfig
    dc.l _DoDefaultConfig
    dc.l _DoGetDevices
    dc.l _DoAssignGadget
    dc.l _DoAssignMenu
    dc.l _DoFindSystemFile
    dc.l _DoDo3DFrame
    dc.l _DoFreeConfig
    dc.l _DoDoCycleGadget
    dc.l _DoUScoreText
    dc.l DisableGadget
    dc.l EnableGadget
    dc.l GhostGadget
    dc.l _DoDrawRadioButton
    dc.l _DoGetButtonImage
    dc.l _DoShowSlider
    dc.l _DoCheckConfig
    dc.l _DoGetCheckImage
    dc.l _R_OpenRequester
    dc.l _R_CloseRequester
    dc.l _R_AddRequesterObject
    dc.l _R_RefreshRequesterObject
    dc.l _R_ObjectText
    dc.l _DoDoGlassImage
    dc.l _DoDecode_RLE
    dc.l _DoReadStringFile
    dc.l _DoFreeStringFile
    dc.l _DoFreeRemEntry
    dc.l _DoAddGadgetBorders
    dc.l _DoCreateGadgetBorders
    dc.l _DoSelectGadget
    dc.l _DoFSSetMenuStrip
    dc.l -1

datatable:
    INITBYTE LN_TYPE,NT_LIBRARY
    INITLONG LN_NAME,dopusname
    INITBYTE LIB_FLAGS,LIBF_SUMUSED!LIBF_CHANGED
    INITWORD LIB_VERSION,VERSION
    INITWORD LIB_REVISION,REVISION
    INITLONG LIB_IDSTRING,idstring
    dc.l 0

initroutine:
    move.l a5,-(sp)
    move.l d0,a5
    move.l a6,db_ExecBase(a5)
    move.l a6,_SysBase
    move.l a0,db_SegList(a5)

    move.l a5,_DOpusBase

    lea dosname(pc),a1
    moveq.l #39,d0
    move.l 4,a6
    jsr _LVOOpenLibrary(a6)
    move.l d0,db_DOSBase(a5)
    move.l d0,_DOSBase

    lea intuitionname(pc),a1
    moveq.l #39,d0
    jsr _LVOOpenLibrary(a6)
    move.l d0,db_IntuitionBase(a5)
    move.l d0,_IntuitionBase

    lea graphicsname(pc),a1
    moveq.l #39,d0
    jsr _LVOOpenLibrary(a6)
    move.l d0,db_GfxBase(a5)
    move.l d0,_GfxBase

    lea layersname(pc),a1
    moveq.l #39,d0
    jsr _LVOOpenLibrary(a6)
    move.l d0,db_LayersBase(a5)
    move.l d0,_LayersBase

    lea utilityname(pc),a1
    moveq.l #39,d0
    jsr _LVOOpenLibrary(a6)
    move.l d0,_UtilityBase

    lea mathieeesingbasname(pc),a1
    moveq.l #0,d0
    jsr _LVOOpenLibrary(a6)
    move.l d0,___MathIeeeSingBasBase

;   jsr _init_dopus_library

    lea.l _pdb_cycletop,a0
    move.l a0,pdb_cycletop(a5)

    lea.l _pdb_cyclebot,a0
    move.l a0,pdb_cyclebot(a5)

    lea.l _pdb_check,a0
    move.l a0,pdb_check(a5)

    move.l #0,pdb_Flags(a5)

    move.l 4,a6
    move.l a5,d0
    move.l (sp)+,a5
    rts

Open:
    addq.w #1,LIB_OPENCNT(a6)
    bclr #LIBB_DELEXP,db_Flags(a6)
    move.l a6,d0
    rts

Close:
    moveq.l #0,d0
    subq.w #1,LIB_OPENCNT(a6)
    bne.s   stillopen
    btst #LIBB_DELEXP,db_Flags(a6)
    beq.s   stillopen
    bsr Expunge
stillopen:
    rts

Expunge:
    movem.l d2/a5/a6,-(sp)
    move.l a6,a5
    tst.w   LIB_OPENCNT(a5)
    beq.s   notopen
    bset #LIBB_DELEXP,db_Flags(a5)
    moveq.l #0,d0
    bra expungeend
notopen:
    move.l db_SegList(a5),d2
    move.l a5,a1
    move.l 4,a6
    jsr _LVORemove(a6)

    move.l db_DOSBase(a5),a1
    jsr _LVOCloseLibrary(a6)
    move.l db_IntuitionBase(a5),a1
    jsr _LVOCloseLibrary(a6)
    move.l db_GfxBase(a5),a1
    jsr _LVOCloseLibrary(a6)
    move.l db_LayersBase(a5),a1
    jsr _LVOCloseLibrary(a6)

    moveq.l #0,d0
    move.l a5,a1
    move.w LIB_NEGSIZE(a5),d0
    sub.l d0,a1
    add.w LIB_POSSIZE(a5),d0
    move.l 4,a6
    jsr _LVOFreeMem(a6)
    move.l d2,d0

expungeend:
    movem.l (sp)+,d2/a5/a6
    rts

Null:
    moveq.l #0,d0
    rts

LParsePattern:
    moveq.l #0,d0
    bra doparse
LParsePatternI:
    moveq.l #1,d0
doparse:
;    movem.l a2-a6/d2-d7,-(sp)
;    move.l d0,-(sp)
;    move.l a1,-(sp)
;    move.l a0,-(sp)
    jsr _DoParsePattern
;    add.l #12,sp
;    movem.l (sp)+,a2-a6/d2-d7
    rts

LMatchPattern:
    moveq.l #0,d0
    bra domatch
LMatchPatternI:
    moveq.l #1,d0
domatch:
;    movem.l a2-a6/d2-d7,-(sp)
;    move.l d0,-(sp)
;    move.l a1,-(sp)
;    move.l a0,-(sp)
    jsr _DoMatchPattern
;    add.l #12,sp
;    movem.l (sp)+,a2-a6/d2-d7
    rts

;DoObjectText:
;    movem.l a2-a6/d2-d7,-(sp)
;    move.l d4,-(sp)
;    move.l a1,-(sp)
;    move.l d3,-(sp)
;    move.l d2,-(sp)
;    move.l d1,-(sp)
;    move.l d0,-(sp)
;    move.l a0,-(sp)
;    jsr _R_ObjectText
;    add.l #28,sp
;    movem.l (sp)+,a2-a6/d2-d7
;    rts

;FixSliderBody:
;    movem.l a2-a6/d2-d7,-(sp)
;    move.l d2,-(sp)
;    move.l d1,-(sp)
;    move.l d0,-(sp)
;    move.l a1,-(sp)
;    move.l a0,-(sp)
;    jsr _DoFixSliderBody
;    add.l #20,sp
;    movem.l (sp)+,a2-a6/d2-d7
;    rts

;FixSliderPot:
;    movem.l a2-a6/d2-d7,-(sp)
;    move.l d3,-(sp)
;    move.l d2,-(sp)
;    move.l d1,-(sp)
;    move.l d0,-(sp)
;    move.l a1,-(sp)
;    move.l a0,-(sp)
;    jsr _DoFixSliderPot
;    add.l #24,sp
;    movem.l (sp)+,a2-a6/d2-d7
;    rts

;GetSliderPos:
;    movem.l a2-a6/d2-d7,-(sp)
;    move.l d1,-(sp)
;    move.l d0,-(sp)
;    move.l a0,-(sp)
;    jsr _DoGetSliderPos
;    add.l #12,sp
;    movem.l (sp)+,a2-a6/d2-d7
;    rts

    END