PC-E500 (et autres écrans 4 lignes) jeu Tirs Croises

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
Paul Tergeist
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2417
Inscription : 15 oct. 2007 15:50
Localisation : 3ème planète après le soleil

Message par Paul Tergeist » 07 déc. 2007 16:32

Pas mal Charo, pas mal du tout...

Bon, moi ma version 1 ligne ce sera beaucoup moins beau...

Promis !....

:D
Il y a 10 catégories de personnes dans le monde. Celle qui connait le binaire et l'autre.

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

Message par charognard » 08 déc. 2007 10:53

version PC 126X
toute les routine d'affichage, de son sont créee resterait plus que de frapper la logique .... mais féneantise

j'utilise même une routine de gestion de fréquence, durée du beep

quelques photos d'écran
Image
Image
Image

Avatar de l’utilisateur
badaze
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 7462
Inscription : 12 févr. 2007 19:36
Localisation : Pas très loin de Lyon
Contact :

Message par badaze » 08 déc. 2007 12:53

Chapeau.

Avatar de l’utilisateur
pir2
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4594
Inscription : 31 oct. 2006 16:08
Localisation : 67310 Westhoffen
Contact :

Message par pir2 » 08 déc. 2007 13:25

Génial ! Bravo :D
Image
Image

jmplinux
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1286
Inscription : 15 oct. 2006 23:11
Localisation : Dans le Jurassique, au fond à gauche

Message par jmplinux » 08 déc. 2007 13:27

Ah là oui, respect 8)
Recherche active :
Dispos : Casio PB-700, CC-40
Don : Ti LCD Programmer (j'ai acheté ça 25€ et franchement ... je n'arrive même pas à ouvrir une huitre avec)
PC3000 en cours de réparation(jxano)

Avatar de l’utilisateur
Paul Tergeist
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2417
Inscription : 15 oct. 2007 15:50
Localisation : 3ème planète après le soleil

Message par Paul Tergeist » 09 déc. 2007 16:00

Ouaou !

Et ces routines de son et de graphismes seraient-elles applicables
sur un pc-1261 ?
Il y a 10 catégories de personnes dans le monde. Celle qui connait le binaire et l'autre.

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

Message par charognard » 09 déc. 2007 18:02

1261 = 1262
et ça marche aussi sur 1260 .... normalement

je pressent cepandant, que derriere cette question se cache la demande de ces routines su-citées ??? NON ?

alors les voilà, pris dans plusieurs revues de la grande époque

1000 "LM" BE=25000
1010 DU=BE+1
1020 FR=BE+11
1030 AF=BE+15
1040 'Affichage permanent
1050 POKE AF,&12,&5F,&61,1,&DF,&37,0
1060 'Gestion du son
1070 POKE BE,2,255,52,18,95,89,101,16,219,223,78,1,47,5,55
1080 RETURN

comment ça marche
l'affichage permanent

5 GOSUB "LM"
10 CLS:WAIT 0: CALL AF
15 PRINT "BOUCLE"
20 FOR A=1 TO 100
30 CURSOR 10 : PRINT A
40 NEXT A
50 END

magique l'affichage est permanent, encore plus étrange c'est aussi le titre de la routine !!!!

le SON

5 GOSUB "LM"
10 POKE DU,255
20 FOR A=1 TO 100 STEP 2
30 POKE FR,I
40 CALL BE
50 NEXT A
60 END
et la fréquence fut !!!

pour le graphisme

l'écran est partagé en 4 partie
adr
12288-12347 caractère 1 à 12
11008-11067 caractère 13 à 23
12352-12411 caractère 24 à 36
11072-11131 caractère 37 à 48

le codage hexa sur 7 bit est identique à la commande GPRINT du PC 1500 et autre.

ex.
5 GOSUB "LM"
10 CLS:WAIT 0: CALL AF
20 RESTORE 90
30 FOR B=1 TO 4
40 READ GC
50 GOSUB 100
60 NEXT B
90 DATA 12288,11008,12352,11072
100 FOR A=0 TO 59
110 POKE GC+A,RND 127
120 NEXT A


et voilà une bonne base

Avatar de l’utilisateur
pir2
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4594
Inscription : 31 oct. 2006 16:08
Localisation : 67310 Westhoffen
Contact :

Message par pir2 » 09 déc. 2007 19:14

Merci Charo :D

J'avais essayé, mais l'affichage faisait des siennes, d'ou "Affichage permanent", j'avais pas la routine :wink: .

Faut que je teste (dès que j'ai un moment).
Image
Image

Avatar de l’utilisateur
Paul Tergeist
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2417
Inscription : 15 oct. 2007 15:50
Localisation : 3ème planète après le soleil

Message par Paul Tergeist » 10 déc. 2007 14:05

Merci Charo,

Ces routines vont grandement aider à enjoliver mes petits programmes
sur 1261. (j'en fais d'ailleurs un copier/coller dans mon dossier)

Entre-temps j'ai regardé un peu les revues de l'époque et effectivement dans
la revue sharpentiers n° 13 à 16 (il me semble) il y a des articles sur le
PC-1261.

Dommage que les constructeurs de chez Sharp n'aientt pas à songé à mettre
des instructions utilisant ces possibilités...

Heureusement super Charo est là... !

Paul - au chaud car il fait trop froid et trop humide dehors aujourd'hui

P.S. : et j'ai bien dit Paul au chaud et non pas Paul ochon
Il y a 10 catégories de personnes dans le monde. Celle qui connait le binaire et l'autre.

Avatar de l’utilisateur
pir2
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4594
Inscription : 31 oct. 2006 16:08
Localisation : 67310 Westhoffen
Contact :

Message par pir2 » 10 déc. 2007 15:51

En regardant dans les sharpentiers et sur d'autres sites, j'avais déjà trouvé les adresses pour faire des graphiques "à la 1500", mais pas pour les rendre permanents, dès que j'embrayais sur du Basic, l'affichage se perdait.

Je viens de tester (à la pause de midi :wink: ) et ça marche parfaitement (mais qu'est-ce que c'est lent, jm'en souvenais plus :oops: ).

Encore merci Charo :D
Image
Image

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

Message par charognard » 10 déc. 2007 16:10

en assembleur ça va plus vite .. j'essai de vous mettre ça .... bientot

destroyedlolo
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1880
Inscription : 03 mai 2003 02:24
Localisation : Nonglard (Annecy)
Contact :

Message par destroyedlolo » 10 déc. 2007 18:05

A propos du code de Charognard, qui allume l'ecran.

Normalement, il devrait deja y avoir cette routine en ROM (utilise par le BASIC pour allumer ou eteindre l'ecran lors des PRINT et des PAUSE entre autre). Deplus, comme c'est une routing super utilisee, il y a de bonnes chances qu'elle se trouvent en ROM basse. Les sharpentiers avaient donne une correspondance

Sinon, si vous allumez l'ecran pendant que le BASIC fait des calcul, vous n'avez pas des parasites qui s'affichent ? Sur 140?, la memoire video est utilisee comme pile lors des calcul fait par le basic, c'est d'ailleurs pour ca que l'ecran s'eteint.

A+

Lolo
Amiga, UNIX
Sharp, NetBSD http://destroyedlolo.info/
Apache, PHP 100 % dictionnary free
Vacances, Voyages 1 mispelling by word

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

Message par charognard » 10 déc. 2007 21:33

exact pour 126x
elle est en &043B (lcd on)
lcd off en &0437

pour PC 1245/51/55
&11E0
&11E5

pour 1401/02
&05A2
&059E

pour 1350
&04B1
&04AD

j'ai aussi le 1360 quelque part si ça interresse

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

Message par charognard » 10 déc. 2007 21:48

destroyedlolo a écrit :
Sinon, si vous allumez l'ecran pendant que le BASIC fait des calcul, vous n'avez pas des parasites qui s'affichent ? Sur 140?, la memoire video est utilisee comme pile lors des calcul fait par le basic, c'est d'ailleurs pour ca que l'ecran s'eteint.
j'ai testé avec les fonctions SIN LOG pas d'utilisation de la mémoire vidéo aucun parasites sur 1261/62

Avatar de l’utilisateur
pir2
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4594
Inscription : 31 oct. 2006 16:08
Localisation : 67310 Westhoffen
Contact :

Message par pir2 » 10 déc. 2007 21:57

J'avais fait un petit programme tout simple sur 1251, la simple fonction INKEY$ pour attraper une touche au vol

Code : Tout sélectionner

50 A$=INKEY$:IF A$="" GOTO 50
changeait l'affichage. :?

Avec la routine de Charo, sur 1262, pas d'interférence :)
Image
Image

Répondre

Revenir vers « Tous les Pockets »