
	SUBTTL	'POWER-ON INTITIALIZATION'

**	RESET - POWER ON INITIALIZATION

RESET
	DIS	I
	DIS	TCNTI
	MOVI	A,INP1+WDRSTA+DDEN
	OUTL	P1,A
	MOVI	A,INP2+CFSSSD+AIDLE
	OUTL	P2,A
	SEL	RB0
	CLR	F0		;INIT TO SLOW MODE
	CLR	F1

	STOP	TCNT
	CLR	A
	MOV	T,A
	MOVI	R0,MS240
	STRT	T
RESET1
	JTF	RESET2
	JUMP	RESET1
RESET2
	DJNZ	R0,RESET1	;IF NOT FINISHED WITH 1/4 SECOND DELAY
	STOP	TCNT

	ORLI	P1,MR		;REMOVE RESET SIGNAL
	PAUSE	R0,US500
	SETREG	WCMD
	MOVI	A,FRCINT
	MOVX	XR0,A		;DO FORCED INTERRUPT
	PAUSE	R0,US200
	LNGJMP	IDLE		;GO TO IDLE STATE
