SE_BREAK.PAS

A compiler avec la commande TPC.exe, puis exécuter hors environnement TURBO (celui-ci effectuant une gestion des interruptions pour permettre la mise au point des programmes normaux)

(1) tel quel

C:\MIAGE-SE>se_break
22:36:46.00 : Début d'execution
................................................................................
.............................*** Sortie Normale par ESCAPE ***

C:\MIAGE-SE>se_break
22:36:48.53 : Début d'execution
................................................................................
...........................*** Interruption par CTRL+PAUSE ***

On peut sortir du programme soit à l'aide de la touche ESCAPE (sortie normale) soit à l'aide des touches CTRL+PAUSE (interruption gérée par le programme).

 

(2) sans déroutement de l'interruption

Mettre en commentaire la ligne

SetIntVec($1B, Addr(GestionBREAK));

C:\MIAGE-SE>se_break
22:39:54.78 : Début d'execution
................................................................................
.............................................................^C

On peut sortir du programme soit à l'aide de la touche ESCAPE (sortie normale) soit à l'aide des touches CTRL+PAUSE (interruption gérée par le système).

Mais ici le message (^C) provoqué par l'interruption est celui de la routine système.

 

(3) puis sans instructions d'Entrée / Sortie

Mettre en commentaire les lignes

Write('.');
If KeyPressed Then If ReadKEY = Chr(27) Then Tst_ESC:=TRUE;

C:\MIAGE-SE>se_break
22:39:54.78 : Début d'execution
..................................................................................

On ne peut arrêter le programme qu'en agissant sur  l'interpréteur de commande (cmd.exe).

Le programme n'est plus réceptif à l'interruption.

 

(4) remettre en place le déroutement

Remettre la ligne

SetIntVec($1B, Addr(GestionBREAK));

C:\MIAGE-SE>se_break
22:36:48.53 : Début d'execution
................................................................................
...........................*** Interruption par CTRL+PAUSE ***.

On ne peut sortir du programme  à l'aide de la touche ESCAPE .

On peut sortir à l'aide des touches CTRL+PAUSE (interruption gérée par le programme).