*
*  Source generated with GadToolsBox V1.3
*  which is (c) Copyright 1991,92 Jaba Development
*

    XREF    _GadToolsBase
    XREF    _IntuitionBase
    XREF    _GfxBase

    XREF    _LVOOpenScreenTagList
    XREF    _LVOOpenWindowTagList
    XREF    _LVOCloseScreen
    XREF    _LVOCloseWindow
    XREF    _LVOPrintIText
    XREF    _LVOLockPubScreen
    XREF    _LVOUnlockPubScreen
    XREF    _LVOSetMenuStrip
    XREF    _LVOClearMenuStrip
    XREF    _LVOGetVisualInfoA
    XREF    _LVOFreeVisualInfo
    XREF    _LVOCreateContext
    XREF    _LVOCreateGadgetA
    XREF    _LVOGT_RefreshWindow
    XREF    _LVOFreeGadgets
    XREF    _LVOCreateMenusA
    XREF    _LVOLayoutMenusA
    XREF    _LVOFreeMenus
    XREF    _LVOOpenDiskFont
    XREF    _LVOCloseFont
    XREF    _LVODrawBevelBoxA
    XREF    _LVOFreeClass
    XREF    _LVONewObjectA
    XREF    _LVODisposeObject
    XREF    _LVOTextLength
    XREF    _LVOUMult32
    XREF    _LVOUDivMod32

GD_BUTTON1                             EQU    0
GD_BUTTON2                             EQU    1
GD_PALETTE                             EQU    2
GD_CYC                                 EQU    3

Scr:
    DC.L    0
VisualInfo:
    DC.L    0
Project0Wnd:
    DC.L    0
Project0GList:
    DC.L    0
Project0Gadgets:
    DCB.L    4,0
BufNewGad:
    DC.W    0,0,0,0
    DC.L    0,0
    DC.W    0
    DC.L    0,0,0
WB:
    DC.B    'Workbench',0
TD:
    DC.L    $00000000
US:
    DC.L    $80080040,'_'
Project0Left:
    DC.W    10
Project0Top:
    DC.W    15
Project0Width:
    DC.W    291
Project0Height:
    DC.W    152

PALETTETags:
    DC.L    $80080010,2
    DC.L    $00000000

CYCTags:
    DC.L    $8008000E,CYCLabels
    DC.L    $00000000

BUTTON1Text:
    DC.B    'button 1',0
    CNOP    0,2

BUTTON2Text:
    DC.B    'LARD',0
    CNOP    0,2

PALETTEText:
    DC.B    'colours',0
    CNOP    0,2

CYCText:
    DC.B    'CYCLE',0
    CNOP    0,2

CYCLabels:
    DC.L    CYCLab0
    DC.L    CYCLab1
    DC.L    CYCLab2
    DC.L    CYCLab3
    DC.L    0

CYCLab0:    DC.B    '1',0
    CNOP    0,2
CYCLab1:    DC.B    '2',0
    CNOP    0,2
CYCLab2:    DC.B    '3',0
    CNOP    0,2
CYCLab3:    DC.B    '4',0
    CNOP    0,2

topaz8:
    DC.L    topazFName8
    DC.W    8
    DC.B    $00,$00

topazFName8:
    DC.B    'topaz.font',0
    CNOP    0,2

Project0WindowTags:
Project0L:
    DC.L    $80000064,10
Project0T:
    DC.L    $80000065,15
Project0W:
    DC.L    $80000066,291
Project0H:
    DC.L    $80000067,163
    DC.L    $8000006A,$00000264
    DC.L    $8000006B,$0000000F
Project0WG:
    DC.L    $8000006C,0
    DC.L    $8000006E,Project0WTitle
    DC.L    $8000006F,Project0STitle
    DC.L    $80000072,67
    DC.L    $80000073,21
    DC.L    $80000074,656
    DC.L    $80000075,256
    DC.L    $00000000

Project0WTitle:
    DC.B    'Work Window',0
    CNOP    0,2

Project0STitle:
    DC.B    'GadToolsBox v1.3 © 1991,92 ',0
    CNOP    0,2

SetupScreen
    movem.l d1-d3/a0-a2/a6,-(sp)
    move.l  _IntuitionBase,a6
    lea.l   WB,a0
    jsr     _LVOLockPubScreen(a6)
    move.l  d0,Scr
    beq     SError
    move.l  _GadToolsBase,a6
    move.l  Scr,a0
    lea.l   TD,a1
    jsr     _LVOGetVisualInfoA(a6)
    move.l  d0,VisualInfo
    beq     VError
    moveq   #0,d0
SDone:
    movem.l (sp)+,d1-d3/a0-a2/a6
    rts
SError:
    moveq   #1,d0
    bra.s   SDone
VError:
    moveq   #2,d0
    bra.s   SDone

CloseDownScreen:
    movem.l d0-d1/a0-a1/a6,-(sp)
    move.l  _GadToolsBase,a6
    move.l  VisualInfo,a0
    cmpa.l  #0,a0
    beq.s   NoVis
    jsr     _LVOFreeVisualInfo(a6)
    move.l  #0,VisualInfo
NoVis:
    move.l  _IntuitionBase,a6
    suba.l  a0,a0
    move.l  Scr,a1
    cmpa.l  #0,a1
    beq.s   NoScr
    jsr     _LVOUnlockPubScreen(a6)
    move.l  #0,Scr
NoScr:
    movem.l (sp)+,d0-d1/a0-a1/a6
    rts

OpenProject0Window:
    movem.l d1-d4/a0-a2/a6,-(sp)
    move.l  Scr,a0
    moveq   #0,d3
    moveq   #0,d2
    move.l  40(a0),a1
    move.w  4(a1),d3
    addq.w  #1,d3
    add.b   35(a0),d3
    move.b  36(a0),d2
    move.l  _GadToolsBase,a6
    lea.l   Project0GList,a0
    jsr     _LVOCreateContext(a6)
    move.l  d0,a0
    beq     Project0CError
    lea.l   BufNewGad,a1
    move.l  VisualInfo,22(a1)
    move.l  #topaz8,12(a1)
    move.w  #9,(a1)
    add.w   d2,(a1)
    move.w  #6,2(a1)
    add.w   d3,2(a1)
    move.w  #46,4(a1)
    move.w  #33,6(a1)
    move.l  #BUTTON1Text,8(a1)
    move.w  #GD_BUTTON1,16(a1)
    move.l  #$00000010,18(a1)
    move.l  #1,d0
    lea.l   TD,a2
    jsr     _LVOCreateGadgetA(a6)
    move.l  d0,a0
    move.l  d0,Project0Gadgets+0*4
    move.l  d0,a0
    lea.l   BufNewGad,a1
    move.w  #168,(a1)
    add.w   d2,(a1)
    move.w  #11,2(a1)
    add.w   d3,2(a1)
    move.l  #BUTTON2Text,8(a1)
    move.w  #GD_BUTTON2,16(a1)
    move.l  #$00000002,18(a1)
    move.l  #2,d0
    lea.l   TD,a2
    jsr     _LVOCreateGadgetA(a6)
    move.l  d0,Project0Gadgets+1*4
    move.l  d0,a0
    lea.l   BufNewGad,a1
    move.w  #138,(a1)
    add.w   d2,(a1)
    move.w  #50,2(a1)
    add.w   d3,2(a1)
    move.w  #104,4(a1)
    move.w  #74,6(a1)
    move.l  #PALETTEText,8(a1)
    move.w  #GD_PALETTE,16(a1)
    move.l  #$00000001,18(a1)
    move.l  #8,d0
    lea.l   PALETTETags,a2
    jsr     _LVOCreateGadgetA(a6)
    move.l  d0,Project0Gadgets+2*4
    move.l  d0,a0
    lea.l   BufNewGad,a1
    move.w  #132,(a1)
    add.w   d2,(a1)
    move.w  #34,2(a1)
    add.w   d3,2(a1)
    move.w  #127,4(a1)
    move.w  #12,6(a1)
    move.l  #CYCText,8(a1)
    move.w  #GD_CYC,16(a1)
    move.l  #7,d0
    lea.l   CYCTags,a2
    jsr     _LVOCreateGadgetA(a6)
    move.l  d0,Project0Gadgets+3*4
    tst.l   d0
    beq     Project0GError
    move.l  Project0GList,Project0WG+4
    moveq   #0,d0
    move.w  Project0Left,d0
    move.l  d0,Project0L+4
    move.w  Project0Top,d0
    move.l  d0,Project0T+4
    move.w  Project0Width,d0
    move.l  d0,Project0W+4
    move.w  Project0Height,d0
    add.w   d3,d0
    move.l  d0,Project0H+4
    move.l  _IntuitionBase,a6
    suba.l  a0,a0
    lea.l   Project0WindowTags,a1
    jsr     _LVOOpenWindowTagList(a6)
    move.l  d0,Project0Wnd
    beq     Project0WError
    move.l  _GadToolsBase,a6
    move.l  Project0Wnd,a0
    suba.l  a1,a1
    jsr     _LVOGT_RefreshWindow(a6)
    moveq   #0,d0
Project0Done:
    movem.l (sp)+,d1-d4/a0-a2/a6
    rts
Project0CError:
    moveq   #1,d0
    bra.s   Project0Done
Project0GError:
    moveq   #2,d0
    bra.s   Project0Done
Project0WError:
    moveq   #4,d0
    bra.s   Project0Done

CloseProject0Window:
    movem.l d0-d1/a0-a2/a6,-(sp)
    move.l  _IntuitionBase,a6
    move.l  Project0Wnd,a0
    cmpa.l  #0,a0
    beq     Project0NWnd
    jsr     _LVOCloseWindow(a6)
    move.l  #0,Project0Wnd
Project0NWnd:
    move.l  _GadToolsBase,a6
    move.l  Project0GList,a0
    cmpa.l  #0,a0
    beq     Project0NGad
    jsr     _LVOFreeGadgets(a6)
    move.l  #0,Project0GList
Project0NGad:
    movem.l (sp)+,d0-d1/a0-a2/a6
    rts