home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma45.dms / ma45.adf / Listingi / MagazynAMIGA3 / KursASM2.a < prev    next >
Text File  |  2002-10-23  |  995b  |  42 lines
  1. OpenLibrary=-552
  2. CloseLibrary=-414
  3. OpenWindowTagList=-204
  4. CloseWindow=-72
  5. Liczba=$80000064
  6. WA_Left=Liczba+0
  7. WA_Top=Liczba+1
  8. WA_Width=Liczba+2
  9. WA_Height=Liczba+3
  10. WA_Title=Liczba+10
  11. WA_SizeGadget=Liczba+29
  12. WA_DragBar=Liczba+30
  13. WA_DepthGadget=Liczba+31
  14.         lea     Nazwa,a1
  15.         move.l  #0,d0
  16.         move.l  4,a6
  17.         jsr     OpenLibrary(a6)
  18.         move.l  d0,a6
  19.         lea     0,A0
  20.         lea     DaneDoOkna,a1
  21.         jsr     OpenWindowTagList(a6)
  22. m:      btst    #6,$bfe001
  23.         bne     m
  24.         move.l  d0,a0
  25.         jsr     CloseWindow(a6)
  26.         move.l  a6,a1
  27.         move.l  4,a6
  28.         jsr     CloseLibrary(a6)
  29.         rts
  30. Nazwa:  dc.b    'intuition.library',0
  31. DaneDoOkna:
  32.         dc.l    WA_Left,140
  33.         dc.l    WA_Top,70
  34.         dc.l    WA_Width,150
  35.         dc.l    WA_Height,34
  36.         dc.l    WA_Title,Tytulik
  37.         dc.l    WA_SizeGadget,0
  38.         dc.l    WA_DragBar,1
  39.         dc.l    WA_DepthGadget,1
  40.         dc.l    0,0
  41. Tytulik: dc.b   'To jest moje okno',0
  42.