opt		d-,p+

*************************************************************************
* Programm: monoWB.s		Version: 1.1	Datum: 24.01.1990	*
* Autor   : Merlin/dv-team						*
*************************************************************************
* Funktion: löscht eine BitPlane der WORKBENCH und gibt den Speicher	*
*           frei. Ist nur noch eine Plane da, passiert nix. Bringt	*
*           bei einem HIRES-PAL-Screen immerhin 80*256 = 20 KB		*
*************************************************************************
* Geschrieben und assembliert mit dem HiSoft-DEVPAC-Assembler. Anpassung*
* an SEKA: 'equ' durch '=' ersetzen, erste Zeile 'opt ...' löschen.	*
*************************************************************************

*EXEC-Funktionen
_LVOOpenLibrary		equ	-552
_LVOCloseLibrary	equ	-414
*Gfx-Funktion
_LVOFreeRaster		equ	-498
*Intuition-Funktion
_LVORemakeDisplay	equ	-384

_main		lea		intname(pc),a1
		clr.l		d0
		move.l		4.w,a6
		jsr		_LVOOpenLibrary(a6)
		move.l		d0,a5
		lea		gfxname(pc),a1
		clr.l		d0
		jsr		_LVOOpenLibrary(a6)
		move.l		d0,a4
		move.l		34(a4),a0		;ActiView
		move.l		(a0),a0			;ViewPort
		move.l		36(a0),a0		;RasInfo
		move.l		4(a0),a0		;BitMap
		move.b		5(a0),d0		;Depth
		cmp.b		#1,d0			;nur eine Plane?
		beq		finish			;ja, also ende
		move.b		#1,5(a0)		;Depth auf 1
		move.w		(a0),d0			;Width
		move.w		2(a0),d1		;Height
		move.l		12(a0),a0		;2. BitPlane
		move.l		a4,a6
		jsr		_LVOFreeRaster(a6)
		move.l		a5,a6
		jsr		_LVORemakeDisplay(a6)
finish		move.l		a5,a1
		move.l		4.w,a6
		jsr		_LVOCloseLibrary(a6)
		move.l		a4,a1
		jsr		_LVOCloseLibrary(a6)
		clr.l		d0
		rts

intname		dc.b		'intuition.library',0
gfxname		dc.b		'graphics.library',0