( Test INT0 de l'emulateur MICROCHIP.
  Version 0.10 du 17 Mars 2013.
  Ecrit par jpb.forth .
)

TELECHARGEMENT

DECIMAL

0 VARIABLE FRONT

( Instruction associee a INT0 )
PRGHERE
 ( Inversion du prochain front a detecter )
OVER LITERAL DUP LITERAL ] 4 FRONT DUP >R @ DUP 1 XOR R> ! DUP >R INT0
 CR ." **** INTERRUPTION EXTERNE 0 (front " R> 1 AND
 IF
  ." montant) !"
 ELSE
  ." descendant) !"
 THEN
 CR STATE @ ?DUP
 IF
  DUP 0<
  IF
   DROP 58 ( : )     
  ELSE
   2 >
   IF
    34 ( " )
   ELSE
    40 ( ( )
   THEN
  THEN
 ELSE
  62 ( > )
 THEN
 EMIT S_TAMPON COUNT TYPE EXIT [
CONSTANT PRG_INT0_B CONSTANT PRG_INT0_H

: TEST_INT0
 ( Installation et activation INT0 sur front descendant )
 PRG_INT0_H PRG_INT0_B 4 FRONT @ 1 XOR INT0 
;

TEST_INT0

( FIN
)