amiwestcheck
	link	a5,#0
	movem.l	d7,-(sp)
	lea	(-$0010,sp),sp
	move.l	sp,d7
	add.w	#$FFF8,sp

	bsr.l	getdate			; gets seconds past 01-Jan-1978

	move.l	d0,(0,sp)
	move.l	d7,d0
	move.l	d0,(4,sp)
	move.l	(-$007C,a4),a6		; UtilityBase
	movem.l	(sp)+,d0/a0
	jsr	(_LVOAmiga2Date,a6)
	move.l	d7,a0
	move.w	(year,a0),d0
	ext.l	d0
	cmp.l	#2003,d0		; year must be 2003
	bne.w	.notamiwest
	move.l	d7,a0
	move.w	(month,a0),d0
	ext.l	d0
	cmp.l	#7,d0			; month must be July
	bne.w	.notamiwest
	move.l	d7,a0
	move.w	(mday,a0),d0
	ext.l	d0
	cmp.l	#26,d0			; day must be 26th
	seq	d0
	extb.l	d0
	move.l	d0,-(sp)
	move.l	d7,a0
	move.w	(mday,a0),d0
	ext.l	d0
	cmp.l	#27,d0			; or 27th
	seq	d0
	extb.l	d0
	move.l	d0,d1
	move.l	(sp)+,d0
	or.l	d1,d0
	tst.l	d0
	beq.w	.notamiwest
	move.l	d7,a0
	move.w	(hour,a0),d0
	ext.l	d0
	cmp.l	#12,d0			; time must be between noon - 10pm
	sgt	d0
	extb.l	d0
	move.l	d0,-(sp)
	move.l	d7,a0
	move.w	(hour,a0),d0
	ext.l	d0
	cmp.l	#22,d0
	slt	d0
	extb.l	d0
	move.l	d0,d1
	move.l	(sp)+,d0
	and.l	d1,d0
	tst.l	d0
	beq.w	.notamiwest

	moveq	#-1,d0			; trigger it!
	bra.w	.exit

.notamiwest
	moveq	#0,d0
	trapf
.exit	add.l	#$00000010,sp
	movem.l	(sp)+,d7
	unlk	a5
	rts