Recherche image de l'extension BASIC du SHARPENTIER n. 6

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

cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2142
Enregistré le : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par cgh »

Enfin, le code hexa complet corrige mais non verifie:

Code : Tout sélectionner

00 00 00 00 00 00 00 00 20 44 55 4D 20 4D 4F 4B
20 48 45 58 20 48 56 41 4C 20 4C 4F 57 20 48 49
47 00 20 53 54 52 20 43 41 50 20 49 4E 53 20 24
20 20 20 41 50 4F 20 26 00 00 00 00 20 44 49 53
20 53 45 54 20 52 53 54 20 41 53 4B 20 49 4E 56
20 54 42 4C 00 00 01 F0 64 02 F0 A1 03 F0 63 04
F0 67 05 F0 65 06 F0 66 11 F0 68 12 F0 62 13 F0
61 09 F0 81 0A F0 83 0B F0 86 0C F0 60 0D F0 A3
0E F0 56 15 F1 8A 26 45 33 33 46 40 16 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 C2 2C 06 CC 65 FD 88 8E 0E C6 DE
3D D0 00 3A BE 39 10 FD A8 C2 2C 26 DE 30 D0 00
2D 64 BE 39 10 FD 0A FD 98 FD 5A CC 67 56 66 65
51 A4 86 99 06 24 06 99 0A 25 1E FD 18 CA 67 FD
1A E2 C6 C2 0D 06 CC 67 FD 6A 9E 27 C6 E2 E0 8B
CC 65 05 B7 FF 8B 06 05 A6 81 0C 8B 03 FD 6A 9A
44 47 26 81 02 9E 0A 44 44 05 DD F9 FD CA 9E 1E
DE 37 D0 00 34 AE 78 73 48 7B 4A 61 47 41 44 4E
B0 99 07 BE EC AE BE EC FA BE E4 2C B7 18 8B 18
B7 20 9B 0B B7 0C 8B 0A A5 78 73 2A B5 FF DF 99
03 88 07 A5 7B 7A 99 30 E2 E0 00 00 00 00 FD 98
CC 65 58 00 5A 00 B5 FF 07 89 03 FD 1A E2 B5 98
F9 FD DA 94 41 14 41 05 DD FD CA 9E 17 00 00 00
BE EE 22 4C 76 83 0E 45 B9 0F 2A 45 B9 0F F1 F9
22 AE 7B 02 9A 45 B9 F0 F1 2A 45 B9 F0 9E 10 BE
3D C5 FD 98 BE 39 90 BE 3A 17 AB 7B 02 FD C8 A5
7B 01 BE EE 22 FD 8A BE ED F6 FD 1A E2 BE 3D C5
FD 98 BE 39 90 BE 3A 17 A9 7B 02 BD FF A9 7B 02
FD C8 A5 7B 01 BE EE 22 FD 8A BE ED F6 FD 1A E2
D0 00 00 AE 7B 01 CD 30 D0 00 00 AE 7B 00 FD 98
A5 7B 01 BE 39 90 BE 3A 17 A9 7B 02 B7 00 8B 02
B5 01 FD 1A BA D9 E4 A5 7B 00 2A B5 01 D9 88 03
D5 9A D0 08 E0 AE 7B 00 CD 30 DC FD 88 FD C8 F9
02 2A FD A8 CD 30 DC FD 2A A7 7B 00 83 03 AE 7B
00 FD 8A FD 0A FB 00 BD FF DD DD 28 04 AE 78 72
48 7B 4A 10 A5 7B 00 F9 FD CA 46 FD 98 FD 88 58
7B A5 78 72 1A 45 17 89 09 54 14 26 99 09 FD 0A
8E 09 FD 0A 44 04 A6 99 1C 4A 0F FD 1A 04 FB B1
0F BA D9 E4 A5 3A D0 B7 E5 89 03 68 0E E0 0A 48
3A 94 41 14 41 04 AE 3A D0 E2 B5 D1 AE 3A D0 E2
DE 00 D0 00 00 FD C8 A5 3A D0 B7 D1 89 05 FD 8A
68 02 E0 FD 8A B7 00 89 0C A5 3A D0 DF 0A 48 3A
47 1A 05 18 E2 A5 3A D0 DF DF AE 3A D0 E2 00 00
D9 50 09 50 09 42 09 42 09 50 0F 50 0F 50 0F 50
0F 50 0F 50 0F 3A DC FD 88 FD C8 05 B7 61 81 08
B7 7B 83 04 F9 B1 1F 0E 44 88 10 FD 8A FD 0A BE
DF A1 00 68 00 9A DE 00 D0 00 00 AE 3A CF B7 00
89 03 BE 3B 47 E2 A5 3A CF B7 00 8B 03 BE 3B 47
E2 DE 00 D0 00 00 AE 3A CF E2 A5 3A CF B7 00 8B
02 B5 01 BA D9 E4 A5 3A CF B7 00 89 05 B5 01 BA
D9 E4 B5 00 BA D9 E4 55 B7 F0 99 05 55 B7 8D 8B
04 B7 8E 99 0E 9A A5 78 9B BA D9 E4 A5 78 B4 28
A5 78 B5 2A BA DA 6C D0 04 09 5E 66 89 02 A4 2A
BA D9 E4 9A DE 4E D0 00 4E FD A8 C2 2C 29 DE 44
FD 18 FD 1A FD 88 A5 7A 04 B7 C0 81 14 DC 6E 02
81 07 BE ED 95 51 62 88 0B FD 18 FD 1A FD 88 9E
26 D0 08 21 51 9E 0E C4 3B 16 DE 18 A5 7A 04 B7
C0 81 17 FD 18 FD 1A FD 88 DC 62 BE D0 48 9E 27
FD 0A CD 40 E4 FD 1A 68 13 E0 68 11 E0 00 D0 00
00 48 70 4A A0 A4 BE 3C 48 24 BE 3C 48 4A A0 B5
04 BE DF A1 00 68 00 9A 5A 08 A5 78 8C B7 02 81
06 D0 0C 00 1A CD 30 D0 00 00 14 FD A8 FD 1A 48
70 4A 80 2A 28 BE 3C 47 88 05 A4 D9 4A 80 9E 2F
DC 68 00 6E 03 81 04 BE ED 95 28 BE ED 95 2A BA
DA 6C D0 08 00 FD C8 CD 30 D0 08 00 AE 7B 00 24
48 70 4A 80 FD 8A 41 88 03 48 70 4A 80 A5 7B 00
BE DF A1 00 68 00 9A 55 FD 98 1A F1 BE 3C 58 41
14 BE 3C 58 41 FD 1A 9A B9 0F B7 0A 83 03 B3 30
9A B3 36 9A CC B2 45 B7 3A 8B 04 B7 0D 99 09 46
FD 5A E2 68 78 6A 4D FD 62 25 BD FF 2E 88 06 6C
77 93 0E E2 68 3C 6A 99 48 38 4A 08 05 FD C8 25
41 FD 8A 61 4E C5 99 0C E2 20 49 46 20 20 45 4C
53 20 45 4E 44 20 54 45 53 20 54 52 55 20 46 41
4C 00 00 20 53 54 41 20 42 45 47 20 55 4E 54 20
52 45 53 20 41 50 4F 00 00 00 00 00 00 20 44 45
4C 20 52 45 4E 20 45 52 4E 20 45 52 4C 20 4D 4F
56 20 52 45 4D 00 00 01 F0 8C 02 F0 8D 03 F0 8E
04 F0 A0 05 F0 52 06 F0 53 11 F0 8A 12 F0 87 13
F0 8B 14 F0 A2 09 F0 80 0A F0 82 0B F0 54 0C F0
55 0D F0 A4 0E F0 A5 15 F1 8A 26 45 33 33 46 40
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 58 80 B5 FC 5A 0D FD 1E B5 00
52 FD 1E 5A 08 FD 1E FD AE 80 0F AE 77 F0 0A 94
FD 1E 6A 03 88 02 FD ED 80 0E FF 89 15 FD ED 80
0F 03 89 0E 40 D5 91 18 FD 1E 4E 09 83 22 5A 0F
9E 23 04 F1 0A 5A 0F FD 15 BF 02 89 18 40 BF 01
89 13 40 52 FD 15 BF 80 89 0B 40 D5 83 07 99 06
FB B5 FF 8E 02 04 F1 BA D9 E4 CC 67 42 CA 67 E2
CC 65 CA 69 E2 DE 14 D0 08 11 24 AE 7B 00 C2 2C
0A DE 08 D0 08 05 24 AE 7B 01 9A E4 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
55 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 D6 44 45 4C 45 54 45 f0 80 38 c5 d4
44 49 53 50 f0 81 39 30 d5 52 45 4e 55 4d f0 82
39 6e d3 53 45 54 f0 83 39 af d5 52 45 53 45 54
f0 86 39 cd d3 41 53 4b f0 60 39 f0 d5 49 4e 53
54 52 f0 61 3a 22 d5 42 45 47 49 4e f0 87 3a 84
b5 53 54 41 43 4b f0 8a 3a 9a d5 55 4e 54 49 4c
f0 8b 3a a0 b4 43 41 50 24 f0 62 3a e6 d3 49 46
23 f0 8c 3b 06 b5 45 4c 53 45 23 f0 8d 3b 16 b6
45 4e 44 49 46 23 f0 8e 3b 20 b4 54 45 53 54 f0
a0 3b 21 d4 54 52 55 45 f0 52 3b 2a d5 46 41 4c
53 45 f0 53 3b 36 d3 45 52 4e f0 54 3b 56 d3 45
52 4c f0 55 3b 5c d3 4c 4f 57 f0 65 3b 67 d4 48
49 47 48 f0 66 3b 67 d4 4d 4f 4b 45 f0 a1 3b 74
d4 48 45 58 24 f0 63 3b ce d5 44 55 4d 50 24 f0
64 3b e8 d4 48 56 41 4c f0 67 3c 10 d7 53 54 52
49 4e 47 24 f0 68 3c 22 d6 52 45 53 55 4d 45 f0
a2 3c 64 b3 49 4e 56 f0 a3 3c 73 d4 50 41 47 45
f0 90 3c 84 d6 4e 55 4d 54 42 4c f0 56 3d 56 d4
4d 4f 56 45 f0 a4 3d ba 86 52 45 4d 4f 56 45 f0
a5 3d c0 80 00 00 00 00 00 00 00 00 00 00 00 00
Il y a ceux qui voient les choses telles qu'elles sont et se demandent pourquoi, et il y a ceux qui imaginent les choses telles qu'elles pourraient être et se disent... pourquoi pas? - George Bernard Shaw
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque
Avatar du membre
babaorhum
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 454
Enregistré le : 13 janv. 2013 19:44
Localisation : Marseille-est

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par babaorhum »

Beau travail d'équipe, pour la saisie !
On attend de voir ce que CGH va inventer avec ca !

@cgh : En passant, je suis retombé sur "écran géant pour PC-1500" MicroSystem juin 87 que rogeroge avait scanné et nous avait transmis, on peut en faire qq chose de sympa ?
BaBaoRhum
HP J728,200LX,1000CX,75C,71B,48GX,42s,41CX,32E,32Sii,28S,22s,21,16C,11C
Sharp PC- E500,1600,1500,1350,1261,1245
Casio FX-502P,602p,850P,3900P,4000P
TI-74,92,95 ; Canon X-07 ; TANDY EC-4026 ; Wp34S
cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2142
Enregistré le : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par cgh »

babaorhum a écrit :Beau travail d'équipe, pour la saisie !
On attend de voir ce que CGH va inventer avec ca !
Oui. Beau travail d'equipe :-D :-D Je vais le couper en morceaux pour essayer de faire des "modules relogeables" (Chaines, LM, Graphiques, Programmation, Utilitaires...) pour integerer dans BASWORD. Ou au moins le rendre relogeable et ajouter mon pilote clavier pour eviter de "jongler" avec les zones RESERVE :geek:
babaorhum a écrit :@cgh : En passant, je suis retombé sur "écran géant pour PC-1500" MicroSystem juin 87 que rogeroge avait scanné et nous avait transmis, on peut en faire qq chose de sympa ?
On peut toujours regarder :-D ... Apres, on peut aussi rajouter nos propres creations, selon nos idees.
Il y a ceux qui voient les choses telles qu'elles sont et se demandent pourquoi, et il y a ceux qui imaginent les choses telles qu'elles pourraient être et se disent... pourquoi pas? - George Bernard Shaw
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque
cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2142
Enregistré le : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par cgh »

cgh a écrit :
babaorhum a écrit :Beau travail d'équipe, pour la saisie !
On attend de voir ce que CGH va inventer avec ca !
Oui. Beau travail d'equipe :-D :-D Je vais le couper en morceaux pour essayer de faire des "modules relogeables" (Chaines, LM, Graphiques, Programmation, Utilitaires...) pour integerer dans BASWORD. Ou au moins le rendre relogeable et ajouter mon pilote clavier pour eviter de "jongler" avec les zones RESERVE :geek:
Bon. Je vous propose de "couper" le BASIC 1501 en 6 groupes d'instructions. Celles-ci pourront etre integrees selon vos besoin dans BASWORD.
  • Generales : DELETE, RENUM, DISP. On peut aussi etendre avec BASIC pour l'auto programmation,
  • Graphisme : SET, RESET, ASK, INV (on peut les changer de nom pour 'respecter' une compatiblite),
  • Chaines de caracteres : INSTR, STRING$, CAPS$, HEX$, HVAL. On peut aussi etendre avec GETKEY$ (qui attend indefinement l'appui sur une touche),
  • Programmation : IF#/ELSE#/ENDIF#, WHILE/WHEND, BEGIN/UNTIL, STACK,
  • Erreurs : ERN, ERL, RESUME. J'ai aussi le code de RAISE qui permet de provoquer une erreur n,
  • LM : MOKE, DUMP$, (HEX$, HVAL ou dans les chaines), LOW, HIGH. J'ai aussi l'integration de mon assembleur sous forme d'une instruction: INLINE. On peut reprendre le super-call EXEC de MACBAS.
.
Comme on aura BASWORD, le driver clavier sera deja operationnel.

Cela vous dit ? Si vous avez d'autres idees, n'hesitez-pas !
Il y a ceux qui voient les choses telles qu'elles sont et se demandent pourquoi, et il y a ceux qui imaginent les choses telles qu'elles pourraient être et se disent... pourquoi pas? - George Bernard Shaw
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque
Avatar du membre
babaorhum
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 454
Enregistré le : 13 janv. 2013 19:44
Localisation : Marseille-est

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par babaorhum »

cgh a écrit : Bon. Je vous propose de "couper" le BASIC 1501 en 6 groupes d'instructions. Celles-ci pourront etre integrees selon vos besoin dans BASWORD.
Cela vous dit ? Si vous avez d'autres idees, n'hesitez-pas !
Oui c'est une très bonne idée - PC-1500 : un basic à tiroir !

- pour bien comprendre :
tu as découpé le LM en tronçons "autoportants" - on peut descendre jusqu'au niveau des groupes d'instruction que tu cites, voir en inclure plusieurs dans une version adaptable de BASWORD. On ne pourra pas, exemple idiot, avoir la fonction RENUM et SET, RESET et RAISE sans DELETE et INV par exemple - c'est ca ? (on peut toujours si on retire les mots clés de la table forcément, mais pour le corps du LM ?)

Après la méthode d'assemblage c'est de se faire soi même a partir d'un fichier texte assemblé des différents morceaux et de se le "bin2Wav-er" ?
BaBaoRhum
HP J728,200LX,1000CX,75C,71B,48GX,42s,41CX,32E,32Sii,28S,22s,21,16C,11C
Sharp PC- E500,1600,1500,1350,1261,1245
Casio FX-502P,602p,850P,3900P,4000P
TI-74,92,95 ; Canon X-07 ; TANDY EC-4026 ; Wp34S
cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2142
Enregistré le : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par cgh »

babaorhum a écrit :
cgh a écrit : Bon. Je vous propose de "couper" le BASIC 1501 en 6 groupes d'instructions. Celles-ci pourront etre integrees selon vos besoin dans BASWORD.
Cela vous dit ? Si vous avez d'autres idees, n'hesitez-pas !
Oui c'est une très bonne idée - PC-1500 : un basic à tiroir !
Rigolo, le terme "a tiroir" ! J'aime bien :-D
babaorhum a écrit :- pour bien comprendre :
tu as découpé le LM en tronçons "autoportants" - on peut descendre jusqu'au niveau des groupes d'instruction que tu cites, voir en inclure plusieurs dans une version adaptable de BASWORD. On ne pourra pas, exemple idiot, avoir la fonction RENUM et SET, RESET et RAISE sans DELETE et INV par exemple - c'est ca ? (on peut toujours si on retire les mots clés de la table forcément, mais pour le corps du LM ?)
Toutafe ! En fait, dans l'absolu, la granularite du "tiroir" serait l'instruction elle-meme (code LM + mot-cle). On peut imaginer un module RENUM, un module SET, un module RAISE,... Cependant, rien que dans le code de cette extension BASIC, on peut trouver 3 types d'instructions:
  • Les instructions autonomes, contenues dans un seul code, rendant un service unique: RENUM, DISP, DELETE, ERN, BUILD,... L'avantage en plus est que ce code LM est souvent parfaitement relogeable.
  • Les instructions se partageant des sous-programmes, et rendant chacune une partie du service: SET, ASK, la gestion des drapeaux. Comme les sous-programmes ont servi pour factoriser le code, enlever une instruction n'est pas genant. Mais la remettre revient a fragmenter et a remettre le sous programme, a moins de se souvenir de l'adresse ou se trouve le sous-programme dans un module precedent installe. Les problemes de relogement deviennent vite complexes. D'autant plus que ces sous-programmes peuvent etre aussi utilises pour acceder a des zones de travail. Enlever une instruction peut entrainer un service degrade qui perdrait en interet. Si ASK peut vivre sans SET (remplaceable par un GPRINT/POINT approprie), l'interet de SFLAG sans FLAG est nul.
  • Les instructions indissociables, formant un bloc de programmation: IF#..ELSE#..ENDIF#, WHILE..WHEND, etc ou un bloc de services: une action et son contraire comme MOVE et REMOVE. Enlever une instruction rendrait le bloc totalement inutilisable.
Le fait de regrouper les instructions en modules (une ou plusieurs instructions) est d'offrir un service complet. On desire de la programmation "structuree":
IF#,ELSE#,ENDIF#,STACK,BEGIN,UNTIL,WHILE,WHEND. Etc, ...
Bien sur, on est tout a fait libre de faire ce que l'on veut. Si IF#..ENDIF# est tout a fait possible, ELSE#..ENDIF# est totalement sans interet.

Retirer le code peut se faire aussi. Le code sans mots-cles devenant du "code mort", on peut le remplacer par un nouveau module de taille inferieure ou egale. Apres, on pourrait imaginer une allocation par bloc (minimum 32 octets ou 64 octets). Voir meme une realocation dynamique, mais cela surchargerait en informations pour les pointeurs de relogement.
babaorhum a écrit :[Après la méthode d'assemblage c'est de se faire soi même a partir d'un fichier texte assemblé des différents morceaux et de se le "bin2Wav-er" ?
Oui. Je decoupe en petits modules, puis je fourni un programme BASIC se chargeant du relogement et de la declaration des mots-cles. Comme cela, si on ne desire que le graphisme, hop, on installe que SET,RESET,ASK et INV.

Le mieux serait bien sur un macro-assembleur, et chaque instruction ecrite dans un fichier specifique; la premiere instruction du groupe inseree ayant la charge de "mettre en place" tous les sous programmes necessaires aux autres instructions du module (un genre d'"include"). Ceci serait realisable par un macro-assembleur sur un PC/Mac ou bien en local sur la machine avec des logiciels comme PC-MACRO ou MACBAS. Mais cela devrait necessiter boooooooooocoup de RAM (rien que les symboles !).
Il y a ceux qui voient les choses telles qu'elles sont et se demandent pourquoi, et il y a ceux qui imaginent les choses telles qu'elles pourraient être et se disent... pourquoi pas? - George Bernard Shaw
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque
Jeff_Birt
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 43
Enregistré le : 14 sept. 2022 20:00

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par Jeff_Birt »

Quelqu'un a-t-il fait fonctionner basic1501 ? Je l'ai téléchargé depuis pc1500.com et je peux le charger sur le PC-1500. Lorsque j'active basic1501 avec POKE & 79D1, & 20, je peux utiliser les touches DEF pour entrer de nouveaux mots-clés, mais je ne peux pas répertorier le programme. Si je désactive basic1501, je peux lister le programme jusqu'à la ligne où un nouveau mot-clé a été utilisé.

En regardant comment la table BASIC est construite, je ne pense pas que cela puisse réellement fonctionner.

Code : Tout sélectionner

LETTER_A: ; 4020
     .BYTE $00,$00

LETTER_B: ; 4022
     .BYTE $00,$00
Tous les pointeurs vers les commandes basées sur la première lettre sont définis sur $00, donc lorsqu'ils sont analysés, il semble que le PC-1500 pense qu'aucun mot-clé n'existe. La liste de commandes n'est pas non plus alphabétique, ce qui devrait être au moins par la première lettre.
Jeff_Birt
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 43
Enregistré le : 14 sept. 2022 20:00

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par Jeff_Birt »

J'ai maintenant pu tester la plupart des commandes et j'ai trouvé qu'elles fonctionnaient après avoir alphabétisé et corrigé les grignotages de contrôle de certaines commandes. DUMP$ produit du charabia, il peut donc y avoir une erreur dans la copie du magazine.

De plus, après plus de lecture dans 'PC1500 Intern', j'ai appris pourquoi LIST et la tokenisation des commandes tapées ne fonctionnent pas. La ROM stock s'arrête avant de rechercher les tables BASIC dans la RAM. Pour contourner ce problème, il faut copier une partie de la routine de création de jetons dans la RAM et rediriger la touche ENTER.
Répondre

Retourner vers « Tous les Pockets »