;*******************************************************************
;*		***********************************************
;* WIPE MISSION EXP  ***********************************************
;*		***********************************************
;*******************************************************************


;=====================================================================
;=====================================================================
;===========	WIPE CACE SWITCH ========================================
;===========	WIPE CASE SWITCH ========================================
;=====================================================================
;=====================================================================

;********************************************************************
;
;	mission explain wipe
;
;********************************************************************

wipe_exp
	jsr	dc_program
	dwnext	clear_fullclose
	dwstop	wipeexp_main
;;	dwnext	offswitch
;;	dwwait	2
;;	dwstop	endofwipe

;--------------------------------------------------------------------

wipeexp_main

;;;;;;;	jsr	debug_display	;;;;; debug !!!

	lda.l	kw_tm
	and	#00ffh
	cmp	#12h
	bne	.ON

	jsr	set_param
	db	000h,000h,000h	; window switch
	db	00h,00h		; window logic
	db	0000b		; 212dh
	db	002h,003h,0e0h

	rts

;--------------------------------------------------------------------

.ON	jsr	set_param
	db	000h,000h,000h	; window switch
	db	00h,00h		; window logic
	db	0100b		; 212dh
	db	002h,003h,0e0h

	rts

;=====================================================================
;=====================================================================
; 		END END
;=====================================================================
;=====================================================================