Photo d'un module OM-53B

[ledudu]

Tu peux déjà prendre celle de mon site

Ok, dès qu'il est à nouveau accessible...

[Replycant]

Ok, I think I can have another card built this evening to test CASL funtionality on a real PB-2000C

Will post details afterwards.

Cheers!

[remy]

Tu peux déjà prendre celle de mon site

Ok, dès qu'il est à nouveau accessible...

En effet pocket.free.fr ne répond pas non plus.
J'espère que ce n'est pas un soucis de spam avec Free. Moi ils m'avaient bloqué mon site prés d'un mois avant de le réactiver. Du coup j'ai pris un hébergement mutualisé....

[Pocket]

Salut,

Bizarre, je viens de tester l'accès au site avec succès.

A+

[Dom]

Idem pour moi.

[remy]

moi aussi ça remarche. Plus de peur que de mal donc.

[Pocket]

Salut,

Voici quelques photos des overlay et de la carte : https://1fichier.com/?9oe3un6ws1n7b3jmukit

Pour la doc CASL, c'est 174 pages de japonais donc je ne vais peux être pas la scanner de suite, d'autant que Piotr m'a indiqué que cette doc devrait être très proche : http://www.pisi.com.pl/piotr433/pb1000c.zip

A+

[remy]

Génial, Merci

[Dom]

Un grand MERCI, Pocket !

[ledudu]

Autorisation de publier les overlay sur ledudu.com, chef ?

[Pocket]

Salut,

Bien sur

A+

[Replycant]

Fumata bianca. Habemus CASL!

https://photos.google.com/photo/AF1QipN ... NMQuF-HTXI

How can I test this beyond the MENU screen?

Best wishes from Canary Islands.

Diego

[Pocket]

Hello,

In my previous post, the pb1000c.zip file from Piotr's site contains a manual.txt file, it should apply to this CASL card.
Here is an example extracted from this manual :

CASL menu
---------
[asmbl ] Assemble the selected sequential file.
[source] View and edit the sequential file with an empty name. If such file doesn't already exist, it will be created.
[edit ] View and edit the selected sequential file.
[PRT SW] Select whether to output the assembly listing to a printer.
key EXE Assemble the selected sequential file then execute the resuling object code from the beginning (i.e. at the entry point of the first block) without asking the user any questions.

Code : Tout sélectionner

Example programs
----------------
; Program to solve the Tower of Hanoi puzzle using recursive calls,
; taken from the Japanese Wikipedia
; http://ja.wikipedia.org/wiki/CASL
MAIN  START
      LD    GR0,N
      LD    GR1,A
      LD    GR2,B
      LD    GR3,C
      CALL  HANOI    ;hanoi(3,A,B,C)
      EXIT

; hanoi(N,X,Y,Z)
HANOI CPA   GR0,ONE  ;if N==1 then
      JZE   DISP     ;move it, return
      SUB   GR0,ONE  ;N-1
      PUSH  0,GR2    ;swap GR2 GR3
      LEA   GR2,0,GR3
      POP   GR3
      CALL  HANOI    ;hanoi(N-1,X,Z,Y)
      ST    GR1,MSG1
      ST    GR2,MSG2 ;now GR2 holds Z
      OUT   MSG,LNG  ;'from X to Z'
      PUSH  0,GR2    ;rotate GR1-GR3
      LEA   GR2,0,GR1
      LEA   GR1,0,GR3
      POP   GR3
      CALL  HANOI    ;hanoi(N-1,Y,X,Z)
      PUSH  0,GR2    ;restore registers
      LEA   GR2,0,GR1
      POP   GR1
      ADD   GR0,ONE  ;also restore N
      RET

DISP  ST    GR1,MSG1 ;'from X to Z'
      ST    GR3,MSG2
      OUT   MSG,LNG
      RET

ONE   DC    1
N     DC    3        ;number of disks
LNG   DC    11       ;message length
A     DC    'A'
B     DC    'B'
C     DC    'C'
MSG   DC    'from '
MSG1  DS    1
      DC    ' to '
MSG2  DS    1
      END

; Executing this code yields the following result (where from A to C means to
; move the disk at the top of A to C):
;
; From A to C
; From A to B
; From C to B
; From A to C
; From B to A
; From B to C
; From A to C

Regards

[Pocket]

Hello,

Btw, could you try to flash a card with Piotr's BASIC + CASL (from PB-1000) : http://www.pisi.com.pl/piotr433/pb2000ee.htm
I think it should work on PB-2000C, if yes I will be interested in one

Regards

[Replycant]

Hi Pocket,

Well, when I asked for some way to test CASL funtionality I must confess I was thinking in something more like a "Hello World!" program...

Regarding the BASIC+CASL combo, I'll give it a try and post the results.

Best wishes.

Diego.