fixed workbench compatibility issues

028.bs/message.s

@@ -3,6 +3,34 @@
 	xdef	InitialiseMessagePanel
 	xdef	ShowMessagePanel
 	xdef	HideMessagePanel
+	xdef	SavePanel
+	xdef    RestorePanel
+	
+SavePanel:
+	movem.l	d0-a6,-(sp)
+	move.w	#(32*4)<<6|(8),d0
+	lea	mpanel,a0
+	move.l	#splash+BOB_TOTAL_SAVE,a2
+	add.l	#(40*4*8),a0
+	jsr	SimpleBlit
+	WaitBlitter	
+	move.w	#1,panelSaved
+	movem.l	(sp)+,d0-a6
+	rts
+
+RestorePanel:
+	cmp.w	#0,panelSaved
+	beq	.skip
+	movem.l	d0-a6,-(sp)
+	move.w	#(32*4)<<6|(8),d0
+	move.l	#splash+BOB_TOTAL_SAVE,a0
+	lea	mpanel,a2
+	add.l	#(40*4*8),a2
+	jsr	SimpleBlit
+	WaitBlitter		
+	movem.l	(sp)+,d0-a6
+.skip:
+	rts
 	
 Message:
 	;; a0 - bitplane
@@ -18,13 +46,8 @@ Message:
 	bra	.loop
 	
 .lengthComplete:
+	bsr	SavePanel	
 	move.w	d0,d1
-	move.w	#(32*4)<<6|(8),d0
-	lea	mpanelOrig,a0
-	lea	mpanel,a2
-	add.l	#(40*4*8),a2
-	jsr	SimpleBlit
-	
 	lea	mpanel,a0
 	move.w	d1,d0
 	move.w	#11,d1
@@ -43,6 +66,7 @@ HideMessagePanel:
 	jsr	WaitVerticalBlank
 	lea	copperList,a0
 	move.l	a0,COP1LC(a6)
+	bsr	RestorePanel	
 	rts
 
 InitialiseMessagePanel:
@@ -51,7 +75,7 @@ InitialiseMessagePanel:
 	jsr	PokePanelBitplanePointers
 	rts
 
+panelSaved:
+	dc.w	0
 mpanel:
-	incbin "out/mpanel.bin"
-mpanelOrig:
-	incbin "out/mpanelOrig.bin"
+	incbin "out/mpanel.bin"