Forum

charognard

hp41cx a écrit :10 DIM A$(9)*2
20 DIM B$(9)*2
30 GOTO 20

Error 5 : Variable already exist

REDIM command not exist on PC1500

charognard

Ok merci, j'ai la nouvelle alors car ce n'est plus des teintes pastels.

Le rétro éclairage de l'écran c'est bien, mais sans le rétro du clavier ça ne sert pas à grand chose pour être utilisé dans la pénombre

charognard

Gege34 a écrit :en rupture de stock, et va savoir si c'est la version avec les nouvelles couleurs de touches.

c'est quoi cette histoire de couleur ?

Pour savoir si j'ai le nouveau modèle.

charognard

Merci pour la news

Cadeaux de noël

charognard

Bonjour,

j'avais fais un comparo ASM <--> sur un programme de casse brique (sur G850V mais c'est extrapolable sur X07)
ça peut te servir pour comprendre certains mécanismes

Code : Tout sélectionner

10      ORG   0100H     'Adresse d'implantation
20GRAPH EQU   093CBH    'Si PEEK&H93CD=&HE5 mettre 093CDH
----------------------------------------------------------
30      JR    START     'On saute à START
----------------------------------------------------------
40SC:   DB    0         'Déclaration des variables
50X:    DB    0         '    "
60Y:    DB    0         '    "
70OX:   DB    0         '    "
80OY:   DB    0         '    "
90RX:   DB    0         '    "
100RY:  DB    0         '    "
110PROV:DB    0         '    "
120     DB    0         '    "
----------------------------------------------------------
130START:CALL CLS       'Effacement de l'écran -- 10 CLS
--------------------------
140     LD    HL,59     '20 LINE (59,0)-(135,30),B
150     LD    DE,0      '    "
160     LD    IX,135    '    "
170     LD    IY,30     '    "
180     LD    A,1       '    "
190     LD    B,1       '    "
200     CALL  LINE      '    "
--------------------------
210     LD    HL,60     '30 LINE (60,0)-(134,3),BF
220     LD    DE,0      '    "
230     LD    IX,134    '    "
240     LD    IY,3      '    "
250     LD    A,1       '    "
260     LD    B,2       '    "
270     CALL  LINE      '    "
--------------------------
280     LD    HL,60     '40 LINE (60,6)-(134,9),BF
290     LD    DE,6      '    "
300     LD    IX,134    '    "
310     LD    IY,9      '    "
320     LD    A,1       '    "
330     LD    B,2       '    "
340     CALL  LINE      '    "
----------------------------------------------------------
350     LD    A,0       '50 SC=0,X=99,Y=10,OX=0,OY=10,RX=-3,RY=2
360     LD    (SC),A    '    "
370     LD    A,99      '    "
380     LD    (X),A     '    "
390     LD    (OX),A    '    "
400     LD    A,10      '    "
410     LD    (Y),A     '    "
420     LD    (OY),A    '    "
430     LD    A,-3      '    "
440     LD    (RX),A    '    "
450     LD    A,2       '    "
460     LD    (RY),A    '    "
----------------------------------------------------------
470REP: LD    A,(RY)    '60 REPEAT:Y=Y+RY,X=X+RX
480     LD    B,A       '    "
490     LD    A,(Y)     '    "
500     ADD   A,B       '    "
510     LD    (Y),A     '    "
520     LD    A,(RX)    '    "
530     LD    B,A       '    "
540     LD    A,(X)     '    "
550     ADD   A,B       '    "
560     LD    (X),A     '    "
----------------------------------------------------------
570     CP    60        '70 IF X<60 GOTO *OK1
580     JR    C,OK1     '    "
--------------------------
590     CP    133       '80 IF X<133 GOTO *SU1
600     JR    C,SU1     '    "
--------------------------
610OK1: LD    A,(RX)    '90 *OK1:RX=-RX,X=X+2*RX
620     XOR   255       '    "
630     ADD   A,1       '    "
640     LD    (RX),A    '    "
650     ADD   A,A       '    "
660     LD    B,A       '    "
670     LD    A,(X)     '    "
680     ADD   A,B       '    "
690     LD    (X),A     '    "
----------------------------------------------------------
700SU1: LD    A,(Y)     '100 *SU1:IF Y>=30 GOTO *OK2
710     CP    30        '    "
720     JR    NC,OK2    '    "
--------------------------
730     CP    -2        '110 IF Y<>-2 GOTO *SU2
740     JR    NZ,SU2    '    "
--------------------------
750OK2: LD    A,(RY)    '120 *OK2:RY=-RY,Y=OY+RY 
760     XOR   255       '    "
770     ADD   A,1       '    "
780     LD    (RY),A    '    "
790     LD    B,A       '    "
800     LD    A,(OY)    '    "
810     ADD   A,B       '    "
820     LD    (Y),A     '    "
----------------------------------------------------------
830SU2: LD    A,(X)     '130 *SU2:IF POINT (X,Y)<>1 THEN *SU3
840     LD    E,A       '    "
850     LD    A,(Y)     '    "
860     LD    D,A       '    "
870     CALL  POI       '    "
880     CP    1         '    "
890     JR    NZ,SU3    '    "
--------------------------
900     LD    A,(SC)    '140 SC=SC+5
910     ADD   A,5       '    "
920     LD    (SC),A    '    "
--------------------------
930     LD    A,(X)     '150 LINE (X,Y)-(X+2,Y+1),R,B
940     LD    H,0       '    "
950     LD    L,A       '    "
960     ADD   A,2       '    "
970     LD    (PROV),A  '    "
980     LD    IX,(PROV) '    "
990     LD    A,(Y)     '    "
1000    LD    D,0       '    "
1010    LD    E,A       '    "
1020    ADD   A,1       '    "
1030    LD    (PROV),A  '    "
1040    LD    IY,(PROV) '    "
1050    LD    A,0       '    "
1060    LD    B,1       '    "
1070    CALL  LINE      '    "
--------------------------
1080    LD    A,(RY)    '160 Y=Y-RY,RY=-RY:ENDIF
1090    LD    B,A       '    "
1100    LD    A,(Y)     '    "
1110    SUB   B         '    "
1120    LD    (Y),A     '    "
1130    LD    A,(RY)    '    "
1140    XOR   255       '    "
1150    ADD   A,1       '    "
1160    LD    (RY),A    '    "
----------------------------------------------------------
1170SU3: LD   A,(X)     '170 LINE (X,Y)-(X+2,Y+1),B
1180    LD    H,0       '    "
1190    LD    L,A       '    "
1200    ADD   A,2       '    "
1210    LD    (PROV),A  '    "
1220    LD    IX,(PROV) '    "
1230    LD    A,(Y)     '    "
1240    LD    D,0       '    "
1250    LD    E,A       '    "
1260    ADD   A,1       '    "
1270    LD    (PROV),A  '    "
1280    LD    IY,(PROV) '    "
1290    LD    A,1       '    "
1300    LD    B,1       '    "
1310    CALL  LINE      '    "
--------------------------
1320    LD    A,(OX)    '180 LINE (OX,OY)-(OX+2,OY+1),R,B
1330    LD    H,0       '    "
1340    LD    L,A       '    "
1350    ADD   A,2       '    "
1360    LD    (PROV),A  '    "
1370    LD    IX,(PROV) '    "
1380    LD    A,(OY)    '    "
1390    LD    D,0       '    "
1400    LD    E,A       '    "
1410    ADD   A,1       '    "
1420    LD    (PROV),A  '    "
1430    LD    IY,(PROV) '    "
1440    LD    A,0       '    "
1450    LD    B,1       '    "
1460    CALL  LINE      '    "
--------------------------
1470    LD    A,(X)     '190 OX=X:OY=Y
1480    LD    (OX),A    '    "
1490    LD    A,(Y)     '    "
1500    LD    (OY),A    '    "
1510    LD    A,(SC)    '    "
----------------------------------------------------------
1520    CP    205       '200 UNTIL SC>200
1530    JP    C,REP     '    "
----------------------------------------------------------
1540     RET            '210 END


------------------------------------------
ROUTINES GRAPHIQUES
------------------------------------------
1550CLS: LD    A,020H   'Effacement de l'écran
1560     LD    B,144
1570     LD    DE,0
1580     CALL  0BFEEH
1590     RET
------------------------------------------
1600POI: LD    H,0      'Lecture d'un point
1610     LD    L,E
1620     LD    E,D
1630     LD    D,0
1640    CALL  N1
1650     AND   C
1660     RET   Z
1670     LD    A,1
1680     RET
1690N1:  CALL  GRAPH
1700     DB    0EH
1710     DW    0CA08H
------------------------------------------
1720PSET:LD    H,0      'tracé d'un point
1730     LD    L,E
1740     LD    E,D
1750     LD    D,0
1760     LD    (7967H),HL
1770     LD    (7969H),DE
1780     LD    IX,0FFFFH
1790     LD    (777DH),IX
1800     LD    (777FH),A
1810     CALL  GRAPH
1820     DB    0DH
1830     DW    0C595H
1840     RET
------------------------------------------
1850LINE:LD    (7967H),IX'Tracé d'une Ligne/Rectangle/Box
1860     LD    (7969H),IY
1870     LD    IX,0FFFFH
1880     LD    (777DH),IX
1890     LD    (777FH),A
1900     LD    A,B
1910     CP    1
1920     JR    C,LIN
1930     JR    Z,BOX
1940FBOX:CALL  GRAPH
1950     DB    0DH
1960     DW    0C4CBH
1970     RET
1980LIN: CALL  GRAPH
1990     DB    0DH
2000     DW    0C595H
2010     RET
2020BOX: CALL  GRAPH
2030     DB    0DH
2040     DW    0C442H
2050     RET

charognard

ledudu a écrit :

Sur le mode examen, Casio rembourse 25 euros.

Si tu lis bien c'est plutôt 15€ en fait

charognard

J'avais fais cela il y a quelques années .... et oui ça passe

ICI

ONGLETS EN BAS DE LA FENETRE

charognard

Pocket a écrit :Salut,

Quelques précisions : à la clôture de la tombola, fin mai, ManiB effectuera un tirage au sort à l'aide d'un programme BASIC sur PCE-500 et postera les noms des trois heureux élus ici

steste a écrit :Je m'excuse mais qui pourrait m'expliquer le fonctionnement de la Tambola gratuite ?
Tout est décrit dans le premier message, si tu souhaites participer il suffit d'écrire ici que tu t'inscris.

A+

La semence aléatoire n'est-elle pas RAZ à chaque fois que l'on boot la machine ?
bonne chance à tous

Je ne m'inscris pas

charognard

Connais pas le fichier Z80.zip pour cet émulateur.
mais si tu veux l'émulo complet c'est LA

charognard

Si avec tera term PRO et pas vraiment de problème pour peu de mettre les bons paramètres dans le port série.
genre
9600
8 bit
none
1 bit
none

tu peux aussi jouer sur les délais entre les caractères et fin de lignes
20, 50milli seconde

et sélectionner le bon port COM aussi

charognard

Pas vraiment un défaut un choix de conception.
N'oubli pas que les cartes te propose un RAMDISK sauvegardé par pile

charognard

ledudu a écrit :
charognard a écrit :Sympa le 2048 sur X07 !
Merci
Les lignes 2051 et 2052 sont de toi

je me disais aussi

charognard

Sympa le 2048 sur X07 !
Merci

charognard

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

charognard

LIST@

Forum

4412 résultats trouvés

Re: [ Doubt] PC-1500A

Re: Nouvelles HP Prime

Re: Nouvelles HP Prime

Re: Nouvelles HP Prime

Re: ASSEMBLEUR CANON X07

Re: Cela faisait des années que ...

Re: Une échelle de vitesses pour pockets

Re: Tombola gratuite

Re: emulateur G850V

Re: Transferts de fichiers (.BAS) PC>PC 1600

Re: Canon X-07

Re: Canon X-07

Re: Canon X-07

Re: Canon X-07

Re: Canon X-07