home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 7 / 02 / tips&tricks / zip.asm < prev    next >
Encoding:
Assembly Source File  |  1995-06-01  |  1.3 KB  |  48 lines
  1. ; Zip - bringt das Shell-Fenster auf alternative Größe
  2. ; Übersetzen: A68k Zip.asm -oZip.o
  3. ;             Blink FROM Zip.o TO Zip
  4. ; Betriebssystem: ab 2.04 (V37)
  5.  
  6. _LVOCloseLibrary      equ     -414
  7. _LVOOpenLibrary       equ     -552
  8. _LVOLockIBase         equ     -414
  9. _LVOUnlockIBase       equ     -420
  10. _LVOZipWindow         equ     -504
  11. ib_ActiveWindow       equ     52
  12.  
  13.  
  14. * intuition.library öffnen
  15. *--------------------------
  16. _main
  17.   move.l    4,a6
  18.   lea       _IntName(PC),a1
  19.   moveq     #37,d0                      ; OS2.0
  20.   jsr       _LVOOpenLibrary(a6)
  21.   move.l    d0,a6
  22.   beq       _Schluß
  23. * IntuitionBase einfrieren
  24. *--------------------------
  25.   moveq     #0,d0
  26.   jsr       _LVOLockIBase(a6)
  27.   move.l    d0,a5                       ; Lock in a5 sichern
  28. * Shell-Fenster auf alternative Größe
  29. *-------------------------------------
  30.   move.l    ib_ActiveWindow(a6),a0      ; Shell-Fenster sollte aktives Fenster sein
  31.   jsr       _LVOZipWindow(a6)
  32. * IntuitionBase freigeben
  33. *-------------------------
  34.   move.l    a5,a0
  35.   jsr       _LVOUnlockIBase(a6)
  36. * intuition.library schließen
  37. *-----------------------------
  38.   move.l    a6,a1
  39.   move.l    4,a6
  40.   jsr       _LVOCloseLibrary(a6)
  41. _Schluß
  42.   rts                                   ; tschüß
  43.  
  44. _IntName dc.b 'intuition.library',0
  45.   cnop 0,2
  46.  
  47.   END
  48.