;
;---------------------------
;- RAZ CAUSES INTERRUPTION -
;---------------------------
;
RAZINTE PUSH HL
        PUSH DE
        PUSH BC
        LD HL,30000
BCLRAZI CALL LITSTAT  ;Interroger l'etat d'interruption tant que le
        LD DE,ETOCLUS
;
        PUSH AF
        LD A,(DE)
        LD B,A
        INC B
BCLSTOK LD (HL),A
        INC HL
        INC DE
        LD A,(DE)
        DJNZ BCLSTOK
        POP AF
;
        CP #80        ;message commande invalide n'est pas renvoye
        JR NZ,BCLRAZI ;par ET0
        POP BC
        POP DE
        POP HL
        RET       CALL INIPROG    ;Initialisation
        PUSH BC
        LD HL,30000
BCLRAZI CALL LITSTAT  ;Interroger l'etat d'interruption tant que le
        LD DE,ETOCLUS
;
        PUSH AF
        LD A,(DE)
        LD B,A
        INC B
BCLSTOK LD (HL),A
        INC HL
        INC DE
        LD A,(DE)
        DJNZ BCLSTOK
        POP AF
;
        CP #80        ;message commande invalide n'est pas renvoye
   