home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / gtdemo.lha / DEMO.s < prev    next >
Encoding:
Text File  |  1993-09-12  |  6.8 KB  |  324 lines
  1. *
  2. *  Source generated with GadToolsBox V1.3
  3. *  which is (c) Copyright 1991,92 Jaba Development
  4. *
  5.  
  6.     XREF    _GadToolsBase
  7.     XREF    _IntuitionBase
  8.     XREF    _GfxBase
  9.  
  10.     XREF    _LVOOpenScreenTagList
  11.     XREF    _LVOOpenWindowTagList
  12.     XREF    _LVOCloseScreen
  13.     XREF    _LVOCloseWindow
  14.     XREF    _LVOPrintIText
  15.     XREF    _LVOLockPubScreen
  16.     XREF    _LVOUnlockPubScreen
  17.     XREF    _LVOSetMenuStrip
  18.     XREF    _LVOClearMenuStrip
  19.     XREF    _LVOGetVisualInfoA
  20.     XREF    _LVOFreeVisualInfo
  21.     XREF    _LVOCreateContext
  22.     XREF    _LVOCreateGadgetA
  23.     XREF    _LVOGT_RefreshWindow
  24.     XREF    _LVOFreeGadgets
  25.     XREF    _LVOCreateMenusA
  26.     XREF    _LVOLayoutMenusA
  27.     XREF    _LVOFreeMenus
  28.     XREF    _LVOOpenDiskFont
  29.     XREF    _LVOCloseFont
  30.     XREF    _LVODrawBevelBoxA
  31.     XREF    _LVOFreeClass
  32.     XREF    _LVONewObjectA
  33.     XREF    _LVODisposeObject
  34.     XREF    _LVOTextLength
  35.     XREF    _LVOUMult32
  36.     XREF    _LVOUDivMod32
  37.  
  38. GD_BUTTON1                             EQU    0
  39. GD_BUTTON2                             EQU    1
  40. GD_PALETTE                             EQU    2
  41. GD_CYC                                 EQU    3
  42.  
  43. Scr:
  44.     DC.L    0
  45. VisualInfo:
  46.     DC.L    0
  47. Project0Wnd:
  48.     DC.L    0
  49. Project0GList:
  50.     DC.L    0
  51. Project0Gadgets:
  52.     DCB.L    4,0
  53. BufNewGad:
  54.     DC.W    0,0,0,0
  55.     DC.L    0,0
  56.     DC.W    0
  57.     DC.L    0,0,0
  58. WB:
  59.     DC.B    'Workbench',0
  60. TD:
  61.     DC.L    $00000000
  62. US:
  63.     DC.L    $80080040,'_'
  64. Project0Left:
  65.     DC.W    10
  66. Project0Top:
  67.     DC.W    15
  68. Project0Width:
  69.     DC.W    291
  70. Project0Height:
  71.     DC.W    152
  72.  
  73. PALETTETags:
  74.     DC.L    $80080010,2
  75.     DC.L    $00000000
  76.  
  77. CYCTags:
  78.     DC.L    $8008000E,CYCLabels
  79.     DC.L    $00000000
  80.  
  81. BUTTON1Text:
  82.     DC.B    'button 1',0
  83.     CNOP    0,2
  84.  
  85. BUTTON2Text:
  86.     DC.B    'LARD',0
  87.     CNOP    0,2
  88.  
  89. PALETTEText:
  90.     DC.B    'colours',0
  91.     CNOP    0,2
  92.  
  93. CYCText:
  94.     DC.B    'CYCLE',0
  95.     CNOP    0,2
  96.  
  97. CYCLabels:
  98.     DC.L    CYCLab0
  99.     DC.L    CYCLab1
  100.     DC.L    CYCLab2
  101.     DC.L    CYCLab3
  102.     DC.L    0
  103.  
  104. CYCLab0:    DC.B    '1',0
  105.     CNOP    0,2
  106. CYCLab1:    DC.B    '2',0
  107.     CNOP    0,2
  108. CYCLab2:    DC.B    '3',0
  109.     CNOP    0,2
  110. CYCLab3:    DC.B    '4',0
  111.     CNOP    0,2
  112.  
  113. topaz8:
  114.     DC.L    topazFName8
  115.     DC.W    8
  116.     DC.B    $00,$00
  117.  
  118. topazFName8:
  119.     DC.B    'topaz.font',0
  120.     CNOP    0,2
  121.  
  122. Project0WindowTags:
  123. Project0L:
  124.     DC.L    $80000064,10
  125. Project0T:
  126.     DC.L    $80000065,15
  127. Project0W:
  128.     DC.L    $80000066,291
  129. Project0H:
  130.     DC.L    $80000067,163
  131.     DC.L    $8000006A,$00000264
  132.     DC.L    $8000006B,$0000000F
  133. Project0WG:
  134.     DC.L    $8000006C,0
  135.     DC.L    $8000006E,Project0WTitle
  136.     DC.L    $8000006F,Project0STitle
  137.     DC.L    $80000072,67
  138.     DC.L    $80000073,21
  139.     DC.L    $80000074,656
  140.     DC.L    $80000075,256
  141.     DC.L    $00000000
  142.  
  143. Project0WTitle:
  144.     DC.B    'Work Window',0
  145.     CNOP    0,2
  146.  
  147. Project0STitle:
  148.     DC.B    'GadToolsBox v1.3 © 1991,92 ',0
  149.     CNOP    0,2
  150.  
  151. SetupScreen
  152.     movem.l d1-d3/a0-a2/a6,-(sp)
  153.     move.l  _IntuitionBase,a6
  154.     lea.l   WB,a0
  155.     jsr     _LVOLockPubScreen(a6)
  156.     move.l  d0,Scr
  157.     beq     SError
  158.     move.l  _GadToolsBase,a6
  159.     move.l  Scr,a0
  160.     lea.l   TD,a1
  161.     jsr     _LVOGetVisualInfoA(a6)
  162.     move.l  d0,VisualInfo
  163.     beq     VError
  164.     moveq   #0,d0
  165. SDone:
  166.     movem.l (sp)+,d1-d3/a0-a2/a6
  167.     rts
  168. SError:
  169.     moveq   #1,d0
  170.     bra.s   SDone
  171. VError:
  172.     moveq   #2,d0
  173.     bra.s   SDone
  174.  
  175. CloseDownScreen:
  176.     movem.l d0-d1/a0-a1/a6,-(sp)
  177.     move.l  _GadToolsBase,a6
  178.     move.l  VisualInfo,a0
  179.     cmpa.l  #0,a0
  180.     beq.s   NoVis
  181.     jsr     _LVOFreeVisualInfo(a6)
  182.     move.l  #0,VisualInfo
  183. NoVis:
  184.     move.l  _IntuitionBase,a6
  185.     suba.l  a0,a0
  186.     move.l  Scr,a1
  187.     cmpa.l  #0,a1
  188.     beq.s   NoScr
  189.     jsr     _LVOUnlockPubScreen(a6)
  190.     move.l  #0,Scr
  191. NoScr:
  192.     movem.l (sp)+,d0-d1/a0-a1/a6
  193.     rts
  194.  
  195. OpenProject0Window:
  196.     movem.l d1-d4/a0-a2/a6,-(sp)
  197.     move.l  Scr,a0
  198.     moveq   #0,d3
  199.     moveq   #0,d2
  200.     move.l  40(a0),a1
  201.     move.w  4(a1),d3
  202.     addq.w  #1,d3
  203.     add.b   35(a0),d3
  204.     move.b  36(a0),d2
  205.     move.l  _GadToolsBase,a6
  206.     lea.l   Project0GList,a0
  207.     jsr     _LVOCreateContext(a6)
  208.     move.l  d0,a0
  209.     beq     Project0CError
  210.     lea.l   BufNewGad,a1
  211.     move.l  VisualInfo,22(a1)
  212.     move.l  #topaz8,12(a1)
  213.     move.w  #9,(a1)
  214.     add.w   d2,(a1)
  215.     move.w  #6,2(a1)
  216.     add.w   d3,2(a1)
  217.     move.w  #46,4(a1)
  218.     move.w  #33,6(a1)
  219.     move.l  #BUTTON1Text,8(a1)
  220.     move.w  #GD_BUTTON1,16(a1)
  221.     move.l  #$00000010,18(a1)
  222.     move.l  #1,d0
  223.     lea.l   TD,a2
  224.     jsr     _LVOCreateGadgetA(a6)
  225.     move.l  d0,a0
  226.     move.l  d0,Project0Gadgets+0*4
  227.     move.l  d0,a0
  228.     lea.l   BufNewGad,a1
  229.     move.w  #168,(a1)
  230.     add.w   d2,(a1)
  231.     move.w  #11,2(a1)
  232.     add.w   d3,2(a1)
  233.     move.l  #BUTTON2Text,8(a1)
  234.     move.w  #GD_BUTTON2,16(a1)
  235.     move.l  #$00000002,18(a1)
  236.     move.l  #2,d0
  237.     lea.l   TD,a2
  238.     jsr     _LVOCreateGadgetA(a6)
  239.     move.l  d0,Project0Gadgets+1*4
  240.     move.l  d0,a0
  241.     lea.l   BufNewGad,a1
  242.     move.w  #138,(a1)
  243.     add.w   d2,(a1)
  244.     move.w  #50,2(a1)
  245.     add.w   d3,2(a1)
  246.     move.w  #104,4(a1)
  247.     move.w  #74,6(a1)
  248.     move.l  #PALETTEText,8(a1)
  249.     move.w  #GD_PALETTE,16(a1)
  250.     move.l  #$00000001,18(a1)
  251.     move.l  #8,d0
  252.     lea.l   PALETTETags,a2
  253.     jsr     _LVOCreateGadgetA(a6)
  254.     move.l  d0,Project0Gadgets+2*4
  255.     move.l  d0,a0
  256.     lea.l   BufNewGad,a1
  257.     move.w  #132,(a1)
  258.     add.w   d2,(a1)
  259.     move.w  #34,2(a1)
  260.     add.w   d3,2(a1)
  261.     move.w  #127,4(a1)
  262.     move.w  #12,6(a1)
  263.     move.l  #CYCText,8(a1)
  264.     move.w  #GD_CYC,16(a1)
  265.     move.l  #7,d0
  266.     lea.l   CYCTags,a2
  267.     jsr     _LVOCreateGadgetA(a6)
  268.     move.l  d0,Project0Gadgets+3*4
  269.     tst.l   d0
  270.     beq     Project0GError
  271.     move.l  Project0GList,Project0WG+4
  272.     moveq   #0,d0
  273.     move.w  Project0Left,d0
  274.     move.l  d0,Project0L+4
  275.     move.w  Project0Top,d0
  276.     move.l  d0,Project0T+4
  277.     move.w  Project0Width,d0
  278.     move.l  d0,Project0W+4
  279.     move.w  Project0Height,d0
  280.     add.w   d3,d0
  281.     move.l  d0,Project0H+4
  282.     move.l  _IntuitionBase,a6
  283.     suba.l  a0,a0
  284.     lea.l   Project0WindowTags,a1
  285.     jsr     _LVOOpenWindowTagList(a6)
  286.     move.l  d0,Project0Wnd
  287.     beq     Project0WError
  288.     move.l  _GadToolsBase,a6
  289.     move.l  Project0Wnd,a0
  290.     suba.l  a1,a1
  291.     jsr     _LVOGT_RefreshWindow(a6)
  292.     moveq   #0,d0
  293. Project0Done:
  294.     movem.l (sp)+,d1-d4/a0-a2/a6
  295.     rts
  296. Project0CError:
  297.     moveq   #1,d0
  298.     bra.s   Project0Done
  299. Project0GError:
  300.     moveq   #2,d0
  301.     bra.s   Project0Done
  302. Project0WError:
  303.     moveq   #4,d0
  304.     bra.s   Project0Done
  305.  
  306. CloseProject0Window:
  307.     movem.l d0-d1/a0-a2/a6,-(sp)
  308.     move.l  _IntuitionBase,a6
  309.     move.l  Project0Wnd,a0
  310.     cmpa.l  #0,a0
  311.     beq     Project0NWnd
  312.     jsr     _LVOCloseWindow(a6)
  313.     move.l  #0,Project0Wnd
  314. Project0NWnd:
  315.     move.l  _GadToolsBase,a6
  316.     move.l  Project0GList,a0
  317.     cmpa.l  #0,a0
  318.     beq     Project0NGad
  319.     jsr     _LVOFreeGadgets(a6)
  320.     move.l  #0,Project0GList
  321. Project0NGad:
  322.     movem.l (sp)+,d0-d1/a0-a2/a6
  323.     rts
  324.