home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 635.lha / Explode_v1.2b / exp.a < prev    next >
Encoding:
Text File  |  1992-01-18  |  504 b   |  23 lines
  1. *
  2. * exp.a - assembler interface for exploding windows code
  3. *
  4. * Bruno Costa - 30 Aug 89
  5. *
  6.  
  7.     xdef    _ExplodeWindow
  8.     xref    _DoExplode
  9.     xref    _openWindow
  10.  
  11.         section "text",code
  12.  
  13. _ExplodeWindow:
  14.     move.L    A0,-(A7)        ; pass NewWindow parameter on stack 
  15.     jsr    _DoExplode        ; call C function that "explodes"
  16.     movea.L    (A7),A0            ; restore A0 to point to NewWindow
  17.     addq.L    #4,A7            ; restore stack pointer
  18.     movea.L    _openWindow,A1        ; load original OpenWindow address
  19.     jsr    (A1)            ; call it to open the window
  20.     rts
  21.  
  22.     END
  23.