**********************
*                    *
* COMMUTEUR DOS/CMD  *
* (C)1989 BY DECKARD *
*                    *
**********************
*
                          ;
CMD      EQU   $18F0      ; DEBUT TRAITEMENT & DE CMD
ETAT     EQU   $177D
                          ;
         ORG   $300
                          ;
         LDA   #<USR
         STA   $0B        ; LOW
         LDA   #>USR
         STA   $0C        ; HIGH
         RTS
                          ;
USR      JSR   $E10C
         LDA   $A1
         BEQ   FOLLOW     ; CONNECTE LE RDOS
                          ;
         CMP   #$01
         BEQ   FOLLOW2    ; CONNECTE CMD
                          ; APPELE POUR CHANGER OUTPUT
         CMP   #$02
         BNE   FOLLOW3
                          ; =2 APPELE POUR FORCER L'ETAT A 0
         LDA   #$00
         STA   ETAT
         RTS
                          ; =3 APPELE POUR FORCER L'ETAT A 1
FOLLOW3  LDA   #$01
         STA   ETAT
         RTS
                          ; =1 POUR CMD
FOLLOW2  LDA   #<CMD
         LDX   #>CMD
         JMP   GO
                          ; =0 POUR RDOS
FOLLOW   LDA   #$00
         LDX   #$B4       ; $B400 ENTREE RDOS
                          ;
GO       STA   $3F6       ; LOW
         STX   $3F7       ; HIGH
         RTS

         SAV   COMMUT