( Interrupt driven Interpret on Arduino Uno )
( Chen-Hanson Ting, 8/18/2011       )
( Based on 328eForth220 )
( Require INTERRUPT.TXT  )
( Test INT0 interrupt )
 
hex

126 CONSTANT CNT

: INCREMENT 
	PUSH-SREG,
	1 CNT +!
	POP-SREG,
	RETI,

: ENABLE
	SEI, ( enable global interrupt )
	;

: DISABLE
	CLI, ( disable global interrupt )
	;

: ENABLE-INT0
	4 2A C! ( DDRD, D2-INT0 set up as output )
	1 69 C! ( EICRA, INT0 triggered by D2 changes )
	1 3D C! ( EIMSK, enable INT0 )
	;

: DISABLE-INT0
	0 3D C! ( EIMSK, disable INT0 )
	;

: FLIP	4 29 C! ( PIND, flip D2 output )
	;

FLUSH

 INIT-VECTORS
' INCREMENT 2 INTERRUPT ( install INT0 interrupt )

FLUSH

\ Type these commands to test:
\	ENABLE
\	ENABLE-INT0
\	CNT ?
\	FLIP CNT ?
\	FLIP CNT ?
\	FLIP CNT ?
\	DISABLE-INT0
\	FLIP CNT ?
\	FLIP CNT ?