1 ********************** 2 * * 3 * COMMUTEUR DOS/CMD * 4 * (C)1989 BY DECKARD * 5 * * 6 ********************** 7 * 8 ; 9 CMD EQU $18F0 ; DEBUT TRAITEMENT & DE CMD 10 ETAT EQU $177D 11 ; 12 ORG $300 13 ; 0300: A9 09 14 LDA #USR 0306: 85 0C 17 STA $0C ; HIGH 0308: 60 18 RTS 19 ; 0309: 20 0C E1 20 USR JSR $E10C 030C: A5 A1 21 LDA $A1 030E: F0 1B 22 BEQ FOLLOW ; CONNECTE LE RDOS 23 ; 0310: C9 01 24 CMP #$01 0312: F0 10 25 BEQ FOLLOW2 ; CONNECTE CMD 26 ; APPELE POUR CHANGER OUTPUT 0314: C9 02 27 CMP #$02 0316: D0 06 28 BNE FOLLOW3 29 ; =2 APPELE POUR FORCER L'ETAT A 0 0318: A9 00 30 LDA #$00 031A: 8D 7D 17 31 STA ETAT 031D: 60 32 RTS 33 ; =3 APPELE POUR FORCER L'ETAT A 1 031E: A9 01 34 FOLLOW3 LDA #$01 0320: 8D 7D 17 35 STA ETAT 0323: 60 36 RTS 37 ; =1 POUR CMD 0324: A9 F0 38 FOLLOW2 LDA #CMD 0328: 4C 2F 03 40 JMP GO 41 ; =0 POUR RDOS 032B: A9 00 42 FOLLOW LDA #$00 032D: A2 B4 43 LDX #$B4 ; $B400 ENTREE RDOS 44 ; 032F: 8D F6 03 45 GO STA $3F6 ; LOW 0332: 8E F7 03 46 STX $3F7 ; HIGH 0335: 60 47 RTS 48 49 SAV COMMUT Object saved as COMMUT,A$0300,L$0036 --End assembly, 54 bytes, Errors: 0 Symbol table - alphabetical order: CMD =$18F0 ETAT =$177D FOLLOW =$032B FOLLOW2 =$0324 FOLLOW3 =$031E GO =$032F USR =$0309 Symbol table - numerical order: USR =$0309 FOLLOW3 =$031E FOLLOW2 =$0324 FOLLOW =$032B GO =$032F ETAT =$177D CMD =$18F0