-" COMMANDANT ! COMMANDANT !! "

-"Hein ?quoi ? que se passe-t-il ? Nous sommes attaqués ? Explications Monsieur Spock ! "

-"Non, non, Commandant je vous prie de m'excuser, je ne pensais pas que vous dormiez. "

-"Mais je ne dormais pas, voyons, Monsieur Spock! Que voulez vous ?"

-"Commandant, je viens de faire une découverte fascinante en explorant les archives dans la mémoire de l'Ordinateur Central..."

-"Ah ? Et c'est pour ça que vous me rév... euh... je veux dire... de quoi s'agit-il ? "

-"D'un périphérique informatique complètement tombé dans l'oubli, que les humains du vingtième siècle appelaient " bâton de joie ", Commandant "

-"Explications, Monsieur Spock ! "

-"Eh bien, Commandant, comme notre route vers de nouvelles aventures est plutôt calme en ce moment, j'ai pensé que nous pourrions distraire les membres de l'équipage en leur faisant redécouvrir les distractions de leurs ancêtres..."

-"Excellente idée, Monsieur Spock, mais il m'étonnerait beaucoup que notre Ordinateur Central soit équipé de la connectique nécessaire au branchement de cette vieillerie."

-"C'est exact , Commandant. Une interface, très simple, est indispensable à cette connexion. Vous trouverez tout cela dans mon rapport quotidien, Commandant"

-"Merci, Monsieur Spock, je vais prendre connaissance de votre rapport. "

1- En $356D du programme original, nous avions :

356D AD0802 LDA$208 Test $208 ( dernière touche enfoncée.)

que les trois POKE ont changé en :

356D20A949 JSR$49A9Sous prog.de gestion des joy-sticks.

2- Routine de lecture Joy-stick.

49A9 98       TYA         Sauvegarde des registres
49AA 48       PHA         X et Y
49AB 8A       TXA         Sur la pile
49AC 48       PHA
49AD AD 01 03 LDA $0301   Sauvegarde l'état
49B0 48       PHA         du port A du 6522
49B1 AD 03 03 LDA $0303   Sur la pile
49B4 48       PHA 
49B5 A9 C0    LDA #$C0    Accès à DDRA,
49B7 8D 03 03 STA $0303   6 lignes en entrée
49BA A9 40    LDA #$40    Accès poignée
49BC 8D 01 03 STA $0301   droite
49BF AD 01 03 LDA $0301   Lecture état JS + #40
49C2 A8       TAY         Sauve état dans Y
49C3 29 20    AND #$20    Test  si  tir  et 
49C5 AA       TAX 	    Sauvegarde dans X
49C6 98       TYA         Restaure état
49C7 4A       LSR         Décalage logique à droite
49C8 29 0C    AND #$0C    Pour test bits 3 et 4 
49CA 8D D2 49 STA $49D2   (haut/bas)sauve en 49D2
49CD 98       TYA         Restaure état
49CE 29 03    AND #$03    Pour test bits 0et1(gau/dr)
49D0 18       CLC         Prépare addition
49D1 69 08    ADC #$08    Ajoute  8 ou 4 selon test
49D3 A8       TAY         bit 3/4 et sauve dans Y
49D4 B9 ED 49 LDA $49ED,Y qui sert d'index ds table
49D7 8D FD 49 STA $49FDLa valeur ds 49FD dépend
                          de l'état du joy-stick
49DA 68       PLA
49DB 8D 03 03 STA $0303   Restaure état du port A
49DE 68       PLA
49DF 8D 01 03 STA $0301
49E2 8E FE 49 STX $49FE   La valeur ds 49FE dépend du tir 
                          ou du non tir
49E5 68       PLA
49E6 AA       TAX         Restauration des registres
49E7 68       PLA         X et Y
49E8 A8       TAY
49E9 AD F7 49 LDA $49FD   Remplace le LDA$208
49EC 60       RTS         Retour au jeu.

49ED 38 38 38 38 38 AE AE AE      Table des codes à placer en 
49F5 38 AA AA AA 38 94 8C 38      49FD en fonction  état du JS
 
49FD AE                           AE en 49FD simule appui sur  A
49FE 00                           Contient 0 si tir , 32 sinon.

Au retour de ce S.P, A contient l'une des cinq valeurs suivantes:

#AE simulant l'appui sur la touche A (Haut)
#AA simulant l'appui sur la touche Z (Bas)
#94 simulant l'appui sur la touche >(Droite)
#8C simulant l'appui sur la touche <(Gauche)
#38 simulant le non appui.

3- Modifications du listing BASIC
( Utilisez la commande EDIT )

Ce point constitue le développement du point 6 de mon rapport.

0QUIT
1< RETURN> ( Supprimer la ligne )
2<RETURN> ( Supprimer la ligne )
360PRINT:PRINTCHR$(129)"...FAITES FEU POUR REJOUER"
370CALL#49A9:K=PEEK(#49FE)
371K$=KEY$
375IF K=0 THEN 120
376IF K$="" THEN370
380IF ASC(K$)<>27 THEN370 ELSE RUN3
610 PRINTSPC(6)CHR$(133)"UTILISEZ LA MANETTE"
620 PRINTSPC(6)CHR$(133)"POUR VOUS DEPLACER"
630 < RETURN> ( Supprimer la ligne )
640 < RETURN> ( Supprimer la ligne )
650 < RETURN> ( Supprimer la ligne )
660PRINT:PRINT:PRINTSPC(7);CHR$(130); "FAITES FEU POUR JOUER"
670CALL#49A9:K=PEEK(#49FE)
680IF K<>0 THEN 670
690<RETURN> (Supprimer la ligne)

4 -A force d'étudier cet accessoire, j'ai abouti à la conclusion qu'il pourrait également être d'un grand secours à notre navigateur Monsieur Zoulou. Il lui permettrait , de manoeuvrer plus finement l'Enterprise lors de nos batailles contre les Klingons. Je vous soumettrai les modifications nécessaires dans un prochain rapport.