[PockEmul] le Casio Z-1GR

remy · Message par **remy** » 08 avr. 2013 20:55

attends 2 minutes, ça ne va pas marcher

voilà un code qui doit marcher :


 ORG 2000H 

VARX    DB 10H DUP(?)
VARY    DB 10H DUP(?)
VARW    DB 10H DUP(?)

PORTH   DB 4
PORTL   DB 48H

        CLD
        MOV     DI, 400H
        MOV     SI, INITX
        MOV     CX, 20H
        XOR AX,AX
        MOV ES,AX
        REP MOVSB

        MOV     DX, 220H
        MOV     AL, PORTL
        MOV     AH, PORTH
        OUT     DX, AX
        CLD
        MOV     SI, 400H
        MOV     DI, 2000H
        MOV     CX, 2EH
        XOR AX,AX
        MOV ES,AX
        REP MOVSB
    IRET

INITX   DB 51H,62H,73H,84H,95H,06H,07H,01H
        DB 0,0,0,0,0,0,0,0
INITY   DB 41H,52H,63H,74H,85H,09H,87H,05H
        DB 0,0,0,0,0,0,0,0
 END

dprtl · Message par **dprtl** » 08 avr. 2013 23:03

Résultat avec le nouveau code assembleur (code Basic identique) :

Code : Tout sélectionner

0004 0041
000000000000420001090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 0043
000000000000420001090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 0048
A0B5C5D5E5F5056168090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 004A
A0B6C6D6E6F6067178090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 004C
B5C5D5E5F505066168090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 004E
B6C6D6E6F606077178090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 0090
606162636465606268090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 0091
565758595859606068090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 0099
A0B5C5D5E5F5056068090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 009C
B5C5D5E5F505066268090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 00C0
262929292329316168090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 00C1
989797979797896168090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 00C2
262929292329317178090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 00C3
181818181818107178090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 00D0
606162636465606168090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 0041
5A5B5C5D5E5F606168090A0B0C0D0E0F
000000000000420001191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 0043
5A5B5C5D5E5F606168090A0B0C0D0E0F
000000000000420001191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 0048
5A5B5C5D5E5F606168090A0B0C0D0E0F
A0B5C5D5E5F5056168191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 004A
5A5B5C5D5E5F606168090A0B0C0D0E0F
A0B6C6D6E6F6067178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 004C
5A5B5C5D5E5F606168090A0B0C0D0E0F
B5C5D5E5F505066168191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 004E
5A5B5C5D5E5F606168090A0B0C0D0E0F
B6C6D6E6F606077178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 0090
5A5B5C5D5E5F606168090A0B0C0D0E0F
606162636465606268191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 0091
5A5B5C5D5E5F606168090A0B0C0D0E0F
565758595859606068191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 0099
5A5B5C5D5E5F606168090A0B0C0D0E0F
A0B5C5D5E5F5056068191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 009C
5A5B5C5D5E5F606168090A0B0C0D0E0F
B5C5D5E5F505066268191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 00C0
5A5B5C5D5E5F606168090A0B0C0D0E0F
262929292329316168191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 00C1
5A5B5C5D5E5F606168090A0B0C0D0E0F
989797979797896168191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 00C2
5A5B5C5D5E5F606168090A0B0C0D0E0F
262929292329317178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 00C3
5A5B5C5D5E5F606168090A0B0C0D0E0F
181818181818107178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 00D0
5A5B5C5D5E5F606168090A0B0C0D0E0F
606162636465606168191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0008 0000

BS error P0-170.

(en fait, la ligne 170 se retrouve renumérotée en 33403... jusqu'au prochain OFF/ON)

remy · Message par **remy** » 09 avr. 2013 08:46

C'est bizarre, je ne retrouve pas mes petits. Tu as bien pris la dernière version du prog LM ?

Code : Tout sélectionner

ORG 2000H 

VARX    DB 10H DUP(?)
VARY    DB 10H DUP(?)
VARW    DB 10H DUP(?)

PORTH   DB 4
PORTL   DB 48H

        CLD
        MOV     DI, 400H
        MOV     SI, INITX
        MOV     CX, 20H
        XOR AX,AX
        MOV ES,AX
        REP MOVSB

        MOV     DX, 220H
        MOV     AL, PORTL
        MOV     AH, PORTH
        OUT     DX, AX
        CLD
        MOV     SI, 400H
        MOV     DI, 2000H
        MOV     CX, 2EH
        XOR AX,AX
        MOV ES,AX
        REP MOVSB
    IRET

INITX   DB 51H,62H,73H,84H,95H,06H,07H,01H
        DB 0,0,0,0,0,0,0,0
INITY   DB 41H,52H,63H,74H,85H,09H,87H,05H
        DB 0,0,0,0,0,0,0,0
 END

dprtl · Message par **dprtl** » 09 avr. 2013 19:08

Oui je confirme que c'est bien cette version. L'assemblage se termine sans erreur, et avec le message "End Address = 207FH". J'appelle la routine par un CALL &H2032.

remy · Message par **remy** » 09 avr. 2013 20:44

si tu mets en commentaire le OUT, (avec un ; ) tu devrai retrouver en sortie les valeurs des INITX et INITY; Ca permettrai de vérifier que l''initialisation se passe bien.

dprtl · Message par **dprtl** » 09 avr. 2013 21:03

J'obtiens dans ce cas une sortie identique du début à la fin :

Code : Tout sélectionner

0004 0041
5A5B5C5D5E5F606168090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
[...]
0008 0000
5A5B5C5D5E5F606168090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0008 0001
5A5B5C5D5E5F606168090A0B0C0D0E0F
6A6B6C6D6E6F707178191A1B1C1D1E1F
000000000060010128292A2B2C002E2F

Sans erreur.

remy · Message par **remy** » 09 avr. 2013 21:16

c'est là le problème. On devrai obtenir les valurs définies dans INITX et INITY ....
Je vais rechecker le prog LM

remy · Message par **remy** » 09 avr. 2013 21:59

Sur PockEmul ça marche. Je ne comprend pas ...

remy · Message par **remy** » 10 avr. 2013 10:50

bon ben je suis une bouze en ASM 8086. en fait il y avait plein d'erreurs.
voilà un code qui marche sur PockEmul

Code : Tout sélectionner

 ORG 2000H 

VARX    DB 10H DUP(?)
VARY    DB 10H DUP(?)
VARW    DB 10H DUP(?)

PORTH   DB 04H
PORTL   DB 48H

        CLD
        MOV     DI,400H
        MOV     SI,OFFSET INITX
        MOV     CX, 20H
        XOR AX,AX
        MOV ES,AX
        REP MOVSB

        MOV     DX, 220H
        MOV     AL, PORTL
        MOV     AH, PORTH
        OUT     DX, AX
        CLD
        MOV     SI, 400H
        MOV     DI, OFFSET VARX
        MOV     CX, 2EH
        XOR AX,AX
        MOV ES,AX
        REP MOVSB
    IRET

INITX   DB 51H,62H,73H,84H,95H,06H,07H,01H
        DB 0,0,0,0,0,0,0,0
INITY   DB 41H,52H,63H,74H,85H,09H,87H,05H
        DB 0,0,0,0,0,0,0,0

 END

Si tu fais un RUN avec OUT en commentaire, tu dois obtenir les valeurs d'init , c.a.d 516273849506070100000000 pour X

dprtl · Message par **dprtl** » 11 avr. 2013 19:07

Le RUN avec le OUT en commentaire donne maintenant ceci :

Code : Tout sélectionner

0004 0041
516273849506070100090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 0043
516273849506070100090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
[...]

Identique à la version émulée, j'imagine.

dprtl · Message par **dprtl** » 11 avr. 2013 19:09

Et le RUN complet avec le OUT actif :

Code : Tout sélectionner

0004 0041
000000000000420001090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 0043
000000000000420001090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 0048
102536475869700100090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 004A
102435465798700500090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 004C
253647586970000100090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 004E
243546579870080500090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 0090
516273849506070200090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 0091
516273849506070000090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 0099
102536475869700000090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 009C
253647586970000200090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 00C0
921437598116940100090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 00C1
101010101097190100090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 00C2
921437598116940500090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 00C3
908989898902800500090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0004 00D0
516273849506070100090A0B0C0D0E0F
415263748509870500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 0041
516273849506070100090A0B0C0D0E0F
000000000000420001191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 0043
516273849506070100090A0B0C0D0E0F
000000000000420001191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 0048
516273849506070100090A0B0C0D0E0F
102536475869700100191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 004A
516273849506070100090A0B0C0D0E0F
102435465798700500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 004C
516273849506070100090A0B0C0D0E0F
253647586970000100191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 004E
516273849506070100090A0B0C0D0E0F
243546579870080500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 0090
516273849506070100090A0B0C0D0E0F
516273849506070200191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 0091
516273849506070100090A0B0C0D0E0F
516273849506070000191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 0099
516273849506070100090A0B0C0D0E0F
102536475869700000191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 009C
516273849506070100090A0B0C0D0E0F
253647586970000200191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 00C0
516273849506070100090A0B0C0D0E0F
921437598116940100191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 00C1
516273849506070100090A0B0C0D0E0F
101010101097190100191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 00C2
516273849506070100090A0B0C0D0E0F
921437598116940500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 00C3
516273849506070100090A0B0C0D0E0F
908989898902800500191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0005 00D0
516273849506070100090A0B0C0D0E0F
516273849506070100191A1B1C1D1E1F
000000000060010128292A2B2C002E2F
0008 0000

BN error P0-70

remy · Message par **remy** » 11 avr. 2013 19:11

super, merci beaucoup.
Il va falloir que je me penche sur l'erreur avec les code 0800 et 0801. c'est strange....

remy · Message par **remy** » 12 avr. 2013 13:49

Bon, j'ai tout vérifié et je suis bon.
Il me manque donc les codes 0801 , 0800 et 0E
De même je suis étonné par les codes 0441 et 0443. En fait pour ces deux commandes, le Z1 fait un out 220 des commandes 41 et 43.
je continue ma réflexion...

pascal_meheut · Message par **pascal_meheut** » 13 avr. 2013 23:33

cgh a écrit : Ah ah! On va faire booter un DOS dessus

Déjà fait. Voir :

http://homepage2.nifty.com/stear/fx890p/indx.htm

J'ai essayé et on arrive même à faire tourner des .COM compilés sur un PC. Bon, ca marche quand ca a envie et je n'ai pas eu le temps de creuser (l'émulateur 702p et WP34s m'ont pris tout mon temps).

remy · Message par **remy** » 14 avr. 2013 23:38

Je vais bientôt pouvoir essayer FX.DOS sur PockEmul. Les calculs fonctionnent à 99%, j'ai plus qu'un seul petit soucis dans un cas particulier de la division.
Une petite question en passant pour les connaisseurs.
Dans les Devices, quelle est la différence entre SWITCH et RS232 ?

edit: un petit screen shot, si quelqu'un peut vérifier sur un vrai pour la précision ...

Forum

[PockEmul] le Casio Z-1GR

Re: [PockEmul] le Casio Z-1GR

Re: [PockEmul] le Casio Z-1GR

Re: [PockEmul] le Casio Z-1GR

Re: [PockEmul] le Casio Z-1GR

Re: [PockEmul] le Casio Z-1GR

Re: [PockEmul] le Casio Z-1GR

Re: [PockEmul] le Casio Z-1GR

Re: [PockEmul] le Casio Z-1GR

Re: [PockEmul] le Casio Z-1GR

Re: [PockEmul] le Casio Z-1GR

Re: [PockEmul] le Casio Z-1GR

Re: [PockEmul] le Casio Z-1GR

Re: [PockEmul] le Casio Z-1GR

Re: [PockEmul] le Casio Z-1GR

Re: [PockEmul] le Casio Z-1GR