home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / sviluppo / powerd / lib / powerd_lib.lha / PowerD / OpenW.ass < prev    next >
Encoding:
Text File  |  2000-02-02  |  903 b   |  52 lines
  1. ; (46,a7) - left
  2. ; (42,a7) - top
  3. ; (38,a7) - width
  4. ; (34,a7) - height
  5. ; (28,a7) - idcmp
  6. ; (24,a7) - flags
  7. ; (20,a7) - title
  8. ; (16,a7) - screen
  9. ; (12,a7) - stype
  10. ; (8,a7)  - gadgets
  11. ; (4,a7)  - tags
  12.  
  13.     xdef    _OpenW
  14.  
  15. _OpenW    move.l    a6,-(a7)
  16.     lea    (.nw,pc),a0
  17.     move.l    (4+4,a7),(48,a0)
  18.     move.l    (4+8,a7),(18,a0)
  19.     move.w    (4+14,a7),(46,a0)
  20.     move.l    (4+16,a7),(30,a0)
  21.     move.l    (4+20,a7),(26,a0)
  22.     move.l    (4+24,a7),d0
  23.     moveq    #18,d1        ; extended structure
  24.     bset    d1,d0
  25.     move.l    d0,(14,a0)
  26.     move.l    (4+28,a7),(10,a0)
  27.     move.w    (4+34,a7),(6,a0)
  28.     move.w    (4+38,a7),(4,a0)
  29.     move.w    (4+42,a7),(2,a0)
  30.     move.w    (4+46,a7),(a0)
  31.     move.l    _IntuitionBase,a6
  32.     jsr    -$cc(a6)        ; OpenWindow()
  33.     move.l    d0,a0
  34.     move.l    a0,d0
  35.     beq.s    .exit
  36.     move.l    (50,a0),_stdrast
  37. .exit    move.l    (a7)+,a6
  38.     rts
  39.  
  40. .nw    dc.w    0,0,0,0,-1
  41.     dc.l    0,0,0,0,0,0,0
  42.     dc.w    80,25,-1,-1,0
  43.     dc.l    0        ; tags
  44.  
  45.     xdef    _stdrast
  46. _stdrast    dc.l    0
  47.  
  48.     xdef    coloura
  49. coloura    dc.l    1
  50.  
  51.     xref    _IntuitionBase
  52.