; Zip - bringt das Shell-Fenster auf alternative Größe
; Übersetzen: A68k Zip.asm -oZip.o
;             Blink FROM Zip.o TO Zip
; Betriebssystem: ab 2.04 (V37)

_LVOCloseLibrary      equ     -414
_LVOOpenLibrary       equ     -552
_LVOLockIBase         equ     -414
_LVOUnlockIBase       equ     -420
_LVOZipWindow         equ     -504
ib_ActiveWindow       equ     52


* intuition.library öffnen
*--------------------------
_main
  move.l    4,a6
  lea       _IntName(PC),a1
  moveq     #37,d0                      ; OS2.0
  jsr       _LVOOpenLibrary(a6)
  move.l    d0,a6
  beq       _Schluß
* IntuitionBase einfrieren
*--------------------------
  moveq     #0,d0
  jsr       _LVOLockIBase(a6)
  move.l    d0,a5                       ; Lock in a5 sichern
* Shell-Fenster auf alternative Größe
*-------------------------------------
  move.l    ib_ActiveWindow(a6),a0      ; Shell-Fenster sollte aktives Fenster sein
  jsr       _LVOZipWindow(a6)
* IntuitionBase freigeben
*-------------------------
  move.l    a5,a0
  jsr       _LVOUnlockIBase(a6)
* intuition.library schließen
*-----------------------------
  move.l    a6,a1
  move.l    4,a6
  jsr       _LVOCloseLibrary(a6)
_Schluß
  rts                                   ; tschüß

_IntName dc.b 'intuition.library',0
  cnop 0,2

  END