EA DIP 122-5 mit SED1520: Kann Page 2 nicht ansprechen

[Jens N. (midibrain)]

Hallo,

hab hier ein EA-DIP 122-5 von Elctronic Assembly mit zwei SED1520 
Controllern.
Derzeit möchte ich nur EINEN Cotroller ansprechen, also nur eine 
Displayhälfte.

Im init_glcd() versuche ich den Anfang der nachfolgenden 
Schreiboperationen auf die verschiedenen Pages (0-3) zu legen z.B.:

     write_glcd(1,0b10111000,0); für die erste Page.
                           ^
Danach gebe ich in einer Schleife eine Zahl aus z.B:

     write_glcd(1,129 ,1);für die Bitfolge 0b10000001
                   ^
Das klappt auch bei den Pages 0,1,3, die richtigen Pixel werden 
dargestellt
und hintereinander bis zum Ende der Page geschrieben.

Wenn ich aber auf Page 2 schreiben möchte:

     write_glcd(1,0b10111010,0); für die dritte Page.
                          ^
klappt das nicht und statt auf Page 3 (0x10) wird auf die 4te (0x11) 
geschrieben.

Jetzt habe ich schon das Display in Verdacht kaputt zu sein, möchte aber 
hier erst einmal fragen ob vielleicht schon mal jemand so ein Problem 
gehabt hat.

Jens

[Jens N. (midibrain)]

Hat niemand eine Idee oder ist mein Anliegen unverständlich dargelegt?
Jens

[Harry (Gast)]

Sprichst du Pascal?

Procedure GraphInit;
  Begin
    IsCtrlTwo := false;                                  // controller 1
    WriteLCD(%10101111,false);                           // display on
    WriteLCD(%11000000,false);                           // start line 0
    WriteLCD(%10111000,false);                           // page 0
    WriteLCD(%00000000,false);                           // address 0
    IsCtrlTwo := true;                                   // controller 2
    WriteLCD(%10101111,false);                           // display on
    WriteLCD(%11000000,false);                           // start line 0
    WriteLCD(%10111000,false);                           // page 0
    WriteLCD(%00000000,false);                           // address 0
    gClrScr(0);
    gDispRefresh;
  End GraphInit;

UserDevice GraphIOS(Cmd: Byte; Arg: byte);
  Begin
    If Cmd=0 then                                        // set row addr
      CurRow:=arg;
      IsCtrlTwo:=false;                                  // controller 1
      WriteLCD(%10111000+CurRow,false);                  // page
      WriteLCD(%00000000,false);                         // address 0
      Col:= 0;
    else
      If Col=61                                          // if column = 61 then switch to controller 2
        then
          IsCtrlTwo:=true;                               // controller 2
          WriteLCD(%10111000+CurRow,false);              // page
          WriteLCD(%00000000,false);                     // address 0
          WriteLCD(Arg,true);
          Inc(Col);
        else
          If Col<122
            then                                         // only column 0..121 are valid
              WriteLCD(Arg,true);
              Inc(Col);
            Endif;
        EndIf;
    EndIf;
  End GraphIOS;

[Jens N. (midibrain)]

Hallo,
wenn ich das richtig sehe fügst Du hier

WriteLCD(%10111000+CurRow,false);

der Page einen Zähler hinzu um auf die nächste Page zu wechseln.

So habe ich das auch schon probiert, kann aber nicht die Row 3 - also 
die Page 3- erreichen, mit den anderen Pages(Rows)geht das aber.

[Harry (Gast)]

Hallo,

ich sehe, da fehlt noch was

Procedure WriteLCD(Arg: Byte; IsData: Boolean);
  Var Mask : Byte;
  Begin
    If IsData
      then
        Mask:=$14;                                       // Daten
      else
        Mask:=$10;                                       // Befehl
      EndIf;
    TWIOut(PCA9555,$02,Arg);                             // Output arg
    If IsCtrlTwo
      then
        TWIOut(PCA9555,$03,(Mask or $08));               // Controller 2
      else
        TWIOut(PCA9555,$03,(Mask or $01));               // Controller 1
      EndIf;
    TWIOut(PCA9555,$03,Mask);
  End WriteLCD;

Ich habe das Display via PCA9555 über I2C verwendet, aber das spielt 
keine Rolle.
Hast du auch nach der Page-Adresse die Startadresse wieder auf 0 
gesetzt?

WriteLCD(%10111000+CurRow,false);                  // page
      WriteLCD(%00000000,false);                         // address 0

Und ja so funktioniert es.

Harry

[Jens N. (midibrain)]

Hallo Harry,

ja, die Sartadresse ist auch auf Null gesetzt, ich lass die Row gleich 
nach dem Init beschreiben, da ist die Strartadresse(column) sowieso 
Null.
Jens

[Crazy Harry (crazy_h)]

Hi Jens,

ich hab noch 2 von den Displays rum liegen, allerdings mit I2C-Platine 
drunter ..... falls Interesse besteht. Sind die sw mit gelbgrüner 
Beleuchtung.

Harry (mal angemeldet)

[Jens N. (midibrain)]

Hallo Harry,

ich habe hier auch noch einige EA DIP 122-5, allerdings aus einer 
Charge.
Da ich gern mal probieren würde ob Displays aus einer anderen Charge 
auch nicht auf die Page 3 gehen hätte ich schon interesse an Deinen 
Displays wenn die I²C Platine nicht angelötet ist.
Jens

[Crazy Harry (crazy_h)]

Hi Jens,

doch die sind fertig zusammen gebaut mit PCA und Erzeugung der negativen 
Kontrastspannung.

Harry

[Jens N. (midibrain)]

ist schon lange her...

Am Ende ist das Display kaputt gewesen.
Ich hab mir ein PCB mit Buchsenleisten gemacht und einige weitere LCDs 
aufgesteckt und überprüft. Die sind alle in Ordnung, das erste Display 
dann wohl kaputt.

Jens