Canon X-07

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

Avatar de l’utilisateur
ledudu
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 4991
Inscription : 26 mars 2009 14:07
Localisation : Ile de France
Contact :

Re: Canon X-07

Message par ledudu » 07 avr. 2016 13:57

Gilles59 a écrit :Excellente idée que programmer 2048...
J'étais passé à coté du jeu et je m'y met maintenant c'est sympa quoique assez agaçant grrrr ...
Chouette, j'attends ta version alors.
Je suis ok pour t'aider quand tu veux.
Toujours préférer l'hypothèse de la connerie à celle du complot.
La connerie est courante. Le complot exige un esprit rare.
Michel Rocard

Gilles59
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1290
Inscription : 27 oct. 2010 20:46

Re: Canon X-07

Message par Gilles59 » 07 avr. 2016 15:29

ledudu a écrit :
Gilles59 a écrit :Excellente idée que programmer 2048...
J'étais passé à coté du jeu et je m'y met maintenant c'est sympa quoique assez agaçant grrrr ...
Chouette, j'attends ta version alors.
Je suis ok pour t'aider quand tu veux.
Ce sera une version 4x4 HP49/50, j'hésite entre UserRPL ou HP-Pascal/50G ....
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49G+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+

Avatar de l’utilisateur
leglatin
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 743
Inscription : 03 févr. 2003 20:46
Localisation : Berville-sur-Mer (27)
Contact :

Re: Canon X-07

Message par leglatin » 07 avr. 2016 18:10

bernouilli92 a écrit :Voici des TC5565PL pour 5 € fdpin, je pense que sans le L ça doit aller aussi. À vérifier dans la datasheet :
http://www.ebay.fr/itm/322055782896
J'ai reçu ce jour celui que j'ai acheté, installé et testé, ça marche impec ("14940 Bytes free"). Mon X-07 a donc 16 Ko. Ça c'est fait. A ce prix là, c'est sûr qu'il ne faut pas s'en priver... :) .

En tout cas il me séduit de plus en plus : Basic standard avec éditeur plein écran, programmable en assembleur, PEEK POKE et tout et tout, FONT$ etc...

P'tites questions au passage :
- Est-ce qu'il a existé un magazine dédié, style Sharpentiers/Ordi-5 etc... pour le X-07 ?
- Peut-on désactiver le bip bip des touches ?
- Y a-t-il des jeux sympas en assembleur (ou pas) dessus (Excepté le 2048 en cours d'élaboration :mrgreen: ) ?
Commodore 7970 - Texas Instruments TI-30, 57, 80, 81, 82, 83, 85, 86, 89, 92 - Casio PB-100, PB-110, PB-410, PB-500, PB-700, PB-770, FA-3, FA-4, FA-5, FA-10, FA-11, FA-20, FP-12, CM-1, OR-1, OR-1(E), OR-4, OR-8, RC-2, RC-4 - Canon X-07 - Philips VG8020, NMS8255, VY0010, VY0011, VS0080, D6450, VW0030, SBC3810, NMS1112, NMS1150, NMS1170 - Atari 1040 STE

Avatar de l’utilisateur
Gege34
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 1123
Inscription : 03 oct. 2014 11:19
Localisation : 31

Re: Canon X-07

Message par Gege34 » 07 avr. 2016 18:50

Magazine : Club Canon X07
Dans les jeux sympas, il y en avait dans hebdogiciel. Je les avais pas tous tapés à l'époque mais je me souviens de : Le prix du danger, gaspation (je ne sais plus si c'est celui-là style lode runner),
Du Commodore (64/128/Amiga), De la HP (28/41/48/50/71) et quelques autres trucs (Ti, Canon X07, Psion, Casio, Palm)

Airbug.one
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 191
Inscription : 08 oct. 2003 20:40
Localisation : Toulouse
Contact :

Re: Canon X-07

Message par Airbug.one » 07 avr. 2016 20:35

Christophe,
SURTOUT récupère la documentation PDF que tu trouvera sur l'ancien site sililcium (cf 2eme réponse, celle de Grrrrrrrr-r) tu trouvera tout ton bonheur et plus encore dans ces docs.
JPI : CASIO PB-1000 - Canon X-O7

Avatar de l’utilisateur
leglatin
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 743
Inscription : 03 févr. 2003 20:46
Localisation : Berville-sur-Mer (27)
Contact :

Re: Canon X-07

Message par leglatin » 07 avr. 2016 21:29

Merci pour les revues, et les lisgings d'Hebdo, c'est très intéressant. J'y ai déjà appris que l'équivalent de l'extension 8 Ko dont je viens d'équiper mon X-07 coûtait à l'époque 750 FF chez Duriez :!: Et qu'il a des bugs : Si par exemple je fais un CTRL + W + T, l'X-07 s'éteint... :geek:

@Airbug.one : Déjà récupérés :) Merci !
Commodore 7970 - Texas Instruments TI-30, 57, 80, 81, 82, 83, 85, 86, 89, 92 - Casio PB-100, PB-110, PB-410, PB-500, PB-700, PB-770, FA-3, FA-4, FA-5, FA-10, FA-11, FA-20, FP-12, CM-1, OR-1, OR-1(E), OR-4, OR-8, RC-2, RC-4 - Canon X-07 - Philips VG8020, NMS8255, VY0010, VY0011, VS0080, D6450, VW0030, SBC3810, NMS1112, NMS1150, NMS1170 - Atari 1040 STE

Avatar de l’utilisateur
charognard
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4411
Inscription : 06 juin 2007 19:28
Localisation : Indre et loire
Contact :

Re: Canon X-07

Message par charognard » 08 avr. 2016 07:34

- Peut-on désactiver le bip bip des touches ?
CONSOLE ,,,0

vois page 40 du MANUEL DE RÉFÉRENCE DU BASIC pour plus d'explications sur cette commande.

Avatar de l’utilisateur
leglatin
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 743
Inscription : 03 févr. 2003 20:46
Localisation : Berville-sur-Mer (27)
Contact :

Re: Canon X-07

Message par leglatin » 08 avr. 2016 21:06

Merci :)
Commodore 7970 - Texas Instruments TI-30, 57, 80, 81, 82, 83, 85, 86, 89, 92 - Casio PB-100, PB-110, PB-410, PB-500, PB-700, PB-770, FA-3, FA-4, FA-5, FA-10, FA-11, FA-20, FP-12, CM-1, OR-1, OR-1(E), OR-4, OR-8, RC-2, RC-4 - Canon X-07 - Philips VG8020, NMS8255, VY0010, VY0011, VS0080, D6450, VW0030, SBC3810, NMS1112, NMS1150, NMS1170 - Atari 1040 STE

Avatar de l’utilisateur
ledudu
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 4991
Inscription : 26 mars 2009 14:07
Localisation : Ile de France
Contact :

Re: Canon X-07

Message par ledudu » 09 avr. 2016 02:02

Voici une V1 du 2048 pour X-07

Code : Tout sélectionner

Program: 2048

1 REM ****************
2 REM ***** 2048 *****
3 REM ****************
5 CLEAR:I=RND(0)
10 REM ERASE A,B,C
15 DIM A(5,5),B(5),C(5)
20 N=0:P=0:C=15:B=0:T=2
50 GOSUB 950: GOSUB 900
100 REM BOUCLE DE JEU
105 REM INITIALISATION AVEC DEUX 2
110 GOSUB 1000
120 IF T>1 THEN GOSUB 900
130 K$=INKEY$:IF K$="" THEN  130
140 IF K$="B" OR K$="b" THEN B=1-B:BEEP 100,2
150 IF ASC(K$)<28 OR ASC(K$)>31 THEN GOTO 130
155 IN=0:T=0
160 ON ASC(K$)-27 GOSUB 500,600,800,700
170 GOTO 100
500 REM JEU A DROITE
510 FOR I=1 TO 4:IN=1
520 REM Copie Cadree du Vecteur dans B
525 IF T=1 THEN T=0
530 MM=4:CC=1:FOR J=4 TO 1 STEP -1  :IF A(I,J)<>0 THEN B(MM)=A(I,J):MM=MM-1:IN=0:T=T*2 ELSE B(CC)=0:CC=CC+1:IF T=0 THEN T=1
535 NEXT J
537 IF IN=1 THEN GOTO 560
540 GOSUB 1200
550 MM=4:CC=1:FOR J=4 TO 1 STEP -1:IF B(J)<>0 THEN A(I,MM)=B(J):MM=MM-1 ELSE A(I,CC)=0:CC=CC+1
555 NEXT J
560 NEXT I
570 RETURN
600 REM GAUCHE
610 FOR I=1 TO 4:IN=1
620 REM Copie Cadree du Vecteur dans B
625 IF T=1 THEN T=0
630 MM=1:CC=4:FOR J=1 TO 4 :IF A(I,J)<>0 THEN B(5-MM)=A(I,J):MM=MM+1:IN=0:T=T*2 ELSE B(5-CC)=0:CC=CC-1:IF T=0 THEN T=1
635 NEXT J
637 IF IN THEN 660
640 GOSUB 1200
650 MM=1:CC=4:FOR J=1 TO 4:IF B(5-J)<>0 THEN A(I,MM)=B(5-J):MM=MM+1 ELSE A(I,CC)=0:CC=CC-1
655 NEXT J
660 NEXT I
670 RETURN
700 REM HAUT
710 FOR I=1 TO 4:IN=1
720 REM Copie Cadree du Vecteur dans B
725 IF T=1 THEN T=0
730 MM=4:CC=1:FOR J=4 TO 1 STEP -1:IF A(J,I)<>0 THEN B(MM)=A(J,I):MM=MM-1:IN=0:T=2*T ELSE B(CC)=0:CC=CC+1:IF T=0 THEN T=1
735 NEXT J
737 IF IN THEN 760
740 GOSUB 1200
750 MM=4:CC=1:FOR J=4 TO 1 STEP -1:IF B(J)<>0 THEN A(MM,I)=B(J):MM=MM-1 ELSE A(CC,I)=0:CC=CC+1
755 NEXT J
760 NEXT I
790 RETURN
800 REM BAS
805 IN=1
810 FOR I=1 TO 4:IN=1
820 REM Copie Cadree du Vecteur dans B
825 IF T=1 THEN T=0
830 MM=1:CC=4:FOR J=1 TO 4 :IF A(J,I)<>0 THEN B(5-MM)=A(J,I):MM=MM+1:IN=0:T=2*T ELSE B(5-CC)=0:CC=CC-1:IF T=0 THEN T=1
835 NEXT J
837 IF IN THEN 860
840 GOSUB 1200
850 MM=1:CC=4:FOR J=1 TO 4:IF B(5-J)<>0 THEN A(MM,I)=B(5-J):MM=MM+1 ELSE A(CC,I)=0:CC=CC-1
855 NEXT J
860 NEXT I
890 RETURN
900 REM TIRAGE ALEATOIRE
910 X=INT(RND(1)*4+1):Y=INT(RND(1)*4+1)
920 IF A(X,Y)<>0 THEN 910
930 A(X,Y)=1-(RND(1)>0.9):N=N+1
935 LOCATE (Y-1)*3+1,X-1:PRINT MID$(STR$(2^A(X,Y))+" ",2,2);
936 LOCATE C-2,1:PRINT N
938 IF B=1 THEN BEEP 100,2
940 RETURN
950 REM Preparation du plateau
952 CLS
955 LINE (3,0)-(3,30)
960 LINE (21,0)-(21,30)
965 LINE (39,0)-(39,30)
970 LINE (57,0)-(57,30)
975 LINE (75,0)-(75,30)
980 LOCATE C,0:PRINT "Nbr:";
985 LOCATE C,2:PRINT "Pts:";
990 RETURN
1000 REM Impression des chiffres
1020 FOR I=1 TO 4
1030 FOR J=1 TO 4
1035 P$="  "
1040 IF A(I,J)>6 THEN GOSUB 1500:P$=CHR$(128)+CHR$(129):GOTO 1045
1042 IF A(I,J)>0 THEN P$=MID$(STR$(2^A(I,J))+" ",2,2)
1045 LOCATE (J-1)*3+1,I-1:PRINT P$;
1050 NEXT J
1060 NEXT I
1074 LOCATE C-2,3:PRINT P;
1090 RETURN
1200 REM CADRAGE / ELIMINATION
1220 FOR J=4 TO 2 STEP -1
1230 IF B(J)=B(J-1) AND B(J)<>0  THEN B(J)=B(J)+1:B(J-1)=0:P=P+2^B(J):T=2
1240 NEXT J
1260 RETURN
1500 ON A(I,J)-6 GOSUB 2010,2020,2030,2040,2050
1510 RETURN
2000 REM CARACTERES
2010 REM 128
2011 FONT$(128)="&H0,&H14,&H30,&H14,&H14,&H14,&H0,&H0"
2012 FONT$(129)="&H0,&H90,&HA8,&H90,&H28,&H90,&H0,&H0"
2013 RETURN
2020 REM 256
2021 FONT$(128)="&H0,&H6C,&H28,&H6C,&H44,&H6C,&H0,&H0"
2022 FONT$(129)="&H0,&H40,&H40,&H70,&H50,&H70,&H0,&H0"
2023 RETURN
2030 REM 512
2031 FONT$(128)="&H0,&H30,&H24,&H30,&H10,&H30,&H0,&H0"
2032 FONT$(129)="&H0,&HB0,&H90,&HB0,&HA0,&HB0,&H0,&H0"
2033 RETURN
2040 REM 1024
2041 FONT$(128)="&H0,&H24,&H68,&H28,&H28,&H24,&H0,&H0"
2042 FONT$(129)="&H0,&H68,&HA8,&HEC,&HC4,&H64,&H0,&H0"
2043 RETURN
2050 REM 2048
2051 FONT$(128)="&H00,&HC8,&H54,&HD4,&H94,&HC8,&H00,&H00"
2052 FONT$(129)="&H00,&H88,&H94,&H88,&HD4,&H48,&H00,&H00"
2053 RETURN
Dernière édition par ledudu le 09 avr. 2016 19:04, édité 3 fois.
Toujours préférer l'hypothèse de la connerie à celle du complot.
La connerie est courante. Le complot exige un esprit rare.
Michel Rocard

Avatar de l’utilisateur
leglatin
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 743
Inscription : 03 févr. 2003 20:46
Localisation : Berville-sur-Mer (27)
Contact :

Re: Canon X-07

Message par leglatin » 09 avr. 2016 08:06

Cool ! Ayant une semaine de vacances, je vais pouvoir trouver un moment pour le saisir, ce sera le premier soft que j'aurai sur X-07 :D
Commodore 7970 - Texas Instruments TI-30, 57, 80, 81, 82, 83, 85, 86, 89, 92 - Casio PB-100, PB-110, PB-410, PB-500, PB-700, PB-770, FA-3, FA-4, FA-5, FA-10, FA-11, FA-20, FP-12, CM-1, OR-1, OR-1(E), OR-4, OR-8, RC-2, RC-4 - Canon X-07 - Philips VG8020, NMS8255, VY0010, VY0011, VS0080, D6450, VW0030, SBC3810, NMS1112, NMS1150, NMS1170 - Atari 1040 STE

Avatar de l’utilisateur
ledudu
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 4991
Inscription : 26 mars 2009 14:07
Localisation : Ile de France
Contact :

Re: Canon X-07

Message par ledudu » 09 avr. 2016 09:15

Il me semble qu'il était possible d'éditer une ligne de programme de 4 lignes mais je ne sais plus comment.
Toujours préférer l'hypothèse de la connerie à celle du complot.
La connerie est courante. Le complot exige un esprit rare.
Michel Rocard

Avatar de l’utilisateur
charognard
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4411
Inscription : 06 juin 2007 19:28
Localisation : Indre et loire
Contact :

Re: Canon X-07

Message par charognard » 09 avr. 2016 09:35

LIST@

Avatar de l’utilisateur
ledudu
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 4991
Inscription : 26 mars 2009 14:07
Localisation : Ile de France
Contact :

Re: Canon X-07

Message par ledudu » 09 avr. 2016 09:43

Hello
charognard a écrit :LIST@
Oui, ça tourne autour de ça.
Mais si je fais list@ 1400, la ligne apparaît mais si j'appuie sur une touche, ça sort du mode édition.
Toujours préférer l'hypothèse de la connerie à celle du complot.
La connerie est courante. Le complot exige un esprit rare.
Michel Rocard

Avatar de l’utilisateur
charognard
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4411
Inscription : 06 juin 2007 19:28
Localisation : Indre et loire
Contact :

Re: Canon X-07

Message par charognard » 09 avr. 2016 09:49

ledudu a écrit :Hello
charognard a écrit :LIST@
Oui, ça tourne autour de ça.
Mais si je fais list@ 1400, la ligne apparaît mais si j'appuie sur une touche, ça sort du mode édition.
Il faut appuyer sur ON/BREAK pour l'édition de la ligne de 4, sinon c'est de la consultation

Avatar de l’utilisateur
ledudu
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 4991
Inscription : 26 mars 2009 14:07
Localisation : Ile de France
Contact :

Re: Canon X-07

Message par ledudu » 09 avr. 2016 09:55

ONBREAK, c'est ça.
Effectivement, en relisant la doc page 71, c'est marqué mais c'est franchement pas clair:

Code : Tout sélectionner

En appuyant sur la touche ON, le listage est arrété et un ordre peut être introduit
Merci.
Toujours préférer l'hypothèse de la connerie à celle du complot.
La connerie est courante. Le complot exige un esprit rare.
Michel Rocard

Répondre

Revenir vers « Tous les Pockets »