Hello all,
i have an interrupt function like:
-------------------------------------------------------------
DEF BackToHome ( )
INTERRUPT OFF 93
BRAKE
GLUE_TechStop ()
Back_To_Home=true
RESUME
END
-------------------------------------------------------------
In the main functions i have:
-------------------------------------------------------------
DEF CELL ( )
...
LOOP
P00 (#EXT_PGNO,#PGNO_GET,DMY[],0 )
INTERRUPT DECL 93 WHEN $IN[599]==TRUE DO BackToHome ( )
INTERRUPT ON 93
Back_To_Home = FALSE
SWITCH PGNO
CASE 10 ;
P00 (#EXT_PGNO,#PGNO_ACKN,DMY[],0 ) ; Reset Progr.No.-Request
Purge ( )
RHome ( )
CASE 11
P00 (#EXT_PGNO,#PGNO_ACKN,DMY[],0 ) ; Reset Progr.No.-Request
FrtMaq ( )
SWITCH PGNO_WIRE ; Select Wire Program number
;FOLD PGNO WIRE 1:
CASE 1 ; Wire - Program 001
WFrtCenEnt ( )
AWFrtDerGlb ( )
AWFrtCenPer ( )
AWFrtIzqDer ( )
AWFrtDerPar ( )
WFrtDerSai ( )
AWEntDerDia ( )
AWLadDerPer ( )
AWTraDerIzq ( )
AWTraIzqPar ( )
WTraIzqSai ( )
...
IF Back_To_Home THEN
GoToHome ( )
Back_To_Home = FALSE
INTERRUPT ON 93
ENDIF
ENDLOOP
END
-------------------------------------------------------------
all external function that are called, in the main, have in the first line someting like:
-------------------------------------------------------------
IF Back_To_Home THEN
RETURN
ENDIF
-------------------------------------------------------------
when i generate the interrupt, the controller stop with error in RESUME on the interrupt function! Why?
...if i used a main without 'SWITCH.... CASE.... ENDSWITCH' it works!!!!!