extraction ROM Sharp PC-E500S

[pir2]

C'est loooong, j'en suis à D8800, donc pour le U6000, ce sera pour un peu plus tard

Au moins j'ai la méthode maintenant.

[pir2]

Les piles ont rendu l'âme à E49A7

Voici déjà ce premier extrait, je reprendrai dès que possible:
PC-E550DUMP-C0000-E49A7.txt

[remy]

genial merci

[Hobiecat]

J'aime bien ce fil et son petit côté Indiana Jones qui explore des contrées inexplorées !

Du beau travail !

[pir2]

C'est reparti, même pas changé les piles.

Je pense que le câble donne une fausse information au Sharp sur une des broches et qu'il croit ne plus avoir assez de jus au bout d'un moment (quelques heures quand même)

[pir2]

Dump dispo: PC-E550DUMP-C0000-FFFFF.txt

Je ferai le PC-U6000 à l'occasion, quelques piles à trouver d'abord

[remy]

Merci beaucoup Pierre

[pir2]

Bon, ben mon PC-U6000 à rejoint monPC-1285 dans les limbes de mon b0rd3l

Il faudra être un peu patient, désolé

[remy]

Tu ne le retrouve plus ??

[pir2]

Tu ne le retrouve plus ??

NAN

Faut dire que cette série n'a jamais été ma préférée, avec l'exception notable du PC-E550 crème, donc il peut être rangé n'importe où, par exemple contaminé au milieu de Casios diverses

[remy]

Si tu trouve le E650, c'est le même que le U6000 à peu de chose près.

[pir2]

Si tu trouve le E650, c'est le même que le U6000 à peu de chose près.

J'avais acheté le U6000 à l'époque parce que c'est le même que le E650 à peu de choses près ... sauf le prix, beaucoup plus accessible

[pir2]

Bon, j'ai remis la main sur mon PC-U6000, il était caché sous une pile de HP-28

Mais j'aimerai conserver le programme qui s'y trouve (un jeu de serpent et d’œufs, vous connaissez peut-être ), je vais donc devoir me retaper la totale, sans me tromper cette fois-ci

[remy]

Super.
Je n'ai besoin que des 128K supplémentaire, j'ai déjà les 256K de base.

donc modifie la première ligne en :

Code : Tout sélectionner

10 A=&20000:L=8191:OPEN "COM:9600,N,8,1,A,L,&H1A,X,S"AS #1

Edit: vérifie que tu es bien en ROM 8.4. Peek &FFFF0 et peek &FFFF1

[pir2]

Rémy, c'est du FF partout, tu es sûr de l'adresse? C'est bien à partir de &20000 ?

Code : Tout sélectionner

20000:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:F2
20010:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:02
20020:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:12
20030:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:22
20040:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:32
20050:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:42
20060:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:52
20070:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:62
20080:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:72
20090:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:82
200A0:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:92
200B0:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:A2
200C0:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:B2
200D0:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:C2
200E0:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:D2
200F0:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:E2
20100:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:F3
20110:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:03
20120:FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF:13
...

(edit, messages croisés)

Pour la peine, j'ai extrait le(s) petit(s) programme(s), le(s) voici

Code : Tout sélectionner

10:"T"X=99:Y=15:CLS :L=0
20:LINE (0,0)-(199,0)
30:LINE (199,0)-(199,31)
40:LINE (199,31)-(0,31)
50:LINE (0,31)-(0,0)
60:DIM P$(1)*200
70:P$(0)=P$(0)+CHR$ X:P$(1)=P$(1)+CHR$ Y:L=L+1
80:MX=INT (RND 198)+1:MY=INT (RND 30)+1
90:PSET (MX,MY)
100:K$=INKEY$
110:IF K$="6" THEN NX=1:NY=0
120:IF K$="4" THEN NX=-1:NY=0
130:IF K$="5" THEN NX=0:NY=1
140:IF K$="8" THEN NX=0:NY=-1
150:X=X+NX:Y=Y+NY
160:IF X=MX AND Y=MY THEN 70
170:PRESET (ASC P$(0),ASC P$(1))
180:IF POINT (X,Y)>0THEN 900
190:P$(0)=RIGHT$ (P$(0),L)+CHR$ X:P$(1)=RIGHT$ (P$(1),L)+CHR$ Y
200:PSET (X,Y)
300:GOTO 100
900:PRINT "Fini:";L
910:WHILE INKEY$ <>"":WEND
920:WHILE INKEY$ = "":WEND
930:CLS
950:END

Code : Tout sélectionner

1000:"L"S$="":INPUT "Seed?";S$
1005:C=0:DIM N(9):WAIT 10
1010:IF S$="X"THEN S$=STR$ (RND (999999999)):S$=RIGHT$ (S$,LEN (S$)-1)
1015:X=S:FOR I=0TO 9:N(I)=0:NEXT I
1020:FOR I=1TO LEN (S$):D=VAL (MID$ (S$,I,1))
1030:N(D)=N(D)+1:NEXT I
1035:X$=""
1040:FOR I=9TO 0STEP -1:IF N(I)>0THEN X$=X$+RIGHT$ (STR$ (N(I)),1+INT (LOG (N(I))))+RIGHT$ (STR$ (I),1)
1050:NEXT I
1060:PRINT C,": ";X$:C=C+1
1070:IF X$<>S$ AND X$<>T$ THEN T$=S$:S$=X$:GOTO 1010
1080:C=0:S$="":INPUT "New seed?";S$
1090:IF S$<>""GOTO 1010
1100:END

Code : Tout sélectionner

9000:A=&20000:L=&1FFF
9010:OPEN "COM:9600,N,8,1,A,C,&H1A,X,N" AS #1
9020:FOR I=0TO L
9030:X=A+I*16
9040:PRINT #1,RIGHT$ ("0000"+HEX$ (X),5)+":";:S=0:Z$=""
9050:FOR J=0TO 15
9060:Z=PEEK (X+J):S=S+Z
9070:Z$=Z$+RIGHT$ ("0"+HEX$ (Z),2)
9080:NEXT
9090:Z$=Z$+":"+RIGHT$ ("0"+HEX$ (X+INT (X/256)+INT (X/65536)+S),2)
9100:PRINT #1,Z$
9110:NEXT
9120:CLOSE #1:PRINT "DONE"