space	4
;	WarmStart entry point.
;	Called whenever BDOS function 0 is done.
WBOOT:
	CALL	HOME	;insure flush & position
	JMP	CCP+6	;skip "auto-vector"
	space	4,10
;	Interrupt trap.
ITRAP:
	CLI		;disable further Irupts
	MOV	AX,CS
	MOV	DS,AX
	LD	BX,#ITRAPM
	CALL	PRINT
ITRAP9:	HLT		;hard stop
	JMP	ITRAP9

ITRAPM:	DB	CR,LF,BELCHR
	DB	'Wild Interrupt!'
	DB	EOS