[Erledigt]Frage zu ehemaligem User

  DisplayInit;
  ClearGraphicLayer1;
  ClearGraphicLayer2;
  ClearGraphicLayer3;
  DISPLAYON(True,False,False);
..........

procedure Displayinit;
var temp: byte;
    w: word;
begin
  ENABLE_JTAGport;
  DDRF := DDRF  or %00001011;
  PORTF:= PortF or %00001111;
  DDRE := DDRE  or %00000100;
  PORTE:= PortE or %00000100;

  BankData   :=$FF;
  D13700MaxColumn:=Byte(LCD_Width  div 8);
  D13700MaxRow   :=Byte(LCD_Height div 8);
  D13700MemSizeG :=(LCD_Width div 8) * LCD_Height;

  BPB        :=0;
  DrawSymbols:=0;
  ServiceDir :=True;            //Ausgang
  MessOnDir  :=True;            //Ausgang
  USBPowerDir:=False;           //Eingang
  USBSleepDir:=False;           //Eingang
  //GSMDisplay start
  XMCRA:=%00000000;       //Init Memorycontroller
  DDRA :=%00000000;             //PortA Eingänge
  DDRC :=%11111111;             //PortC Ausgänge
  PortC:=%11111111;             //Adresse=$FFFF
  LCD_WRDir :=True;       //Lines as output
  LCD_RDDir :=True;
  LCD_ALEDir:=True;

  LCD_WR  :=True;       //Lines pegel High
  LCD_RD  :=True;
  LCD_ALE :=True;
  DDRA   :=%11111111;          //Output
  PortA  :=Lo(CMDADR);        //Adressdecoder
  LCD_ALE:=False;
  LCD_ALE:=True;
  DDRA :=%00000000;             //PortA Eingänge
  //GSMDisplay end

  mDelay(Word(GLCDDelay));
  Excl(LCD_Res);      // LCD zurücksetzen
  WriteBankDaten(BankData);
  mDelay(Word(GLCDDelay));
  Incl(LCD_Res);
  WriteBankDaten(BankData);
  mDelay(Word(GLCDDelay));

  //LCD_MODE:=False;
  LCDCommand(cmdSystem);            // execute 'system set' instruction
  mDelay(Word(GLCDDelay));
//  Command(cmdSystem);            // execute 'system set' instruction
//  MakeTrigger;
  Excl(Trigger);      // LCD zurücksetzen
  WriteBankDaten(BankData);
  Incl(Trigger);
  WriteBankDaten(BankData);
//  MakeTrigger end;
// *****************************************************************************
// initialize LCD
// *****************************************************************************
  LCDCommand(cmdSystem);
  mDelay(Word(GLCDDelay));
  // ********** P1 -> REG[00h]  Memory configuartion
  Temp := 0;
  Temp.0 := 0;                                          //CGROM
  Temp.2 := 0;                                          //8 bit height char
  Temp.3 := 0;                                          //single panel
  Temp.5 := 0;                                          //screen origin compensation is not done
  Temp.4 := 1;                                          //must be

  //Temp:=$30;
  WriteLCDDaten(Temp);
// ********** P2 -> REG[01h]  Horizontal charter size
  Temp := 7;
  Temp.7 := 1;                                          //two-frame AC drive
  WriteLCDDaten(Temp);
// ********** P3 -> REG[02h]  Vertical charter size
// Font height - 1
  Temp := 7;
  WriteLCDDaten(Temp);
// ********** P4 -> REG[03h]  Charter bytes per row
// graphics width/Font width - 1
  Temp := Byte(LCD_Width div 8) - 1;
  WriteLCDDaten(Temp);
// ********** P5 -> REG[04h]  Total charter bytes per row
// TC/R = (xtal/framerate/displayHeight)/10+10
//      xtal = 10MHz
// framerate = 70
// (10000000/70/240)/10+10 = ~ 69
  //Temp :=LCD_xtal / LongInt(LCD_framerate) / LongInt(LCD_Height) / LongInt(10) + 10;
  temp := $42;
  WriteLCDDaten(Temp);
// ********** P6 -> REG[05h]  Frame height register
// graphics height -1
  Temp := Pred(Lo(LCD_height));
  WriteLCDDaten(Temp);
// ********** P7 -> REG[06h]  Horizontal Address Range register 0
  w := Word(D13700MaxColumn);
  WriteLCDDaten(Lo(w));
// ********** P8 -> REG[07h]  Horizontal Address Range register 1
  WriteLCDDaten(Hi(w));
// *****************************************************************************
// set SCROLL
// *****************************************************************************
  LCDCommand(cmdScroll);
// ********** P1 -> SAD1 LSB
  WriteLCDDaten(00);
// ********** P2 -> SAD1 MSB
  WriteLCDDaten(00);
// ********** P3 -> SL1
  TEmp := Lo(LCD_height);
  WriteLCDDaten(temp);
// ********** P4 -> SAD2 LSB
  w := D13700MemSizeG;
  WriteLCDDaten(Lo(w));
// ********** P5 -> SAD2 MSB
  WriteLCDDaten(Hi(w));
// ********** P6 -> SL2
  temp := Lo(LCD_height);
  WriteLCDDaten(TEmp);
// ********** P7 -> SAD3 LSB
  w := 2 * D13700MemSizeG;
  WriteLCDDaten(Lo(w));
// ********** P8 -> SAD3 MSB
  WriteLCDDaten(Hi(w));
// ********** P9 -> SAD4 LSB
  w := 0;//3 * D13700MemSizeG;
  WriteLCDDaten(Lo(w));
// ********** P10 -> SAD4 MSB
  WriteLCDDaten(Hi(w));
// *****************************************************************************
// set CSRFORM
// *****************************************************************************
  LCDCommand(cmdHDotScroll);
// ********** P1 -> Cursor width
  WriteLCDDaten(5);
// ********** P2 -> Cursor height
  Temp := 7;
  Temp.7 := 0;
  WriteLCDDaten(temp);
// *****************************************************************************
// set HDOT SCR
// *****************************************************************************
  LCDCommand(cmdHDotScroll);
  WriteLCDDaten(00);
// *****************************************************************************
// set OVLAY
// *****************************************************************************
  LCDCommand(cmdOverlay);
  Temp := 00;
  Temp.4 := 1;                                      //three layers
  Temp.3 := 1;                                      //Screen Block 3 - graphics mode
  Temp.2 := 1;                                      //Screen Block 1 - graphics mode
  Temp.1 := 0;
  Temp.0 := 1;                                      //Layer composition method = (L1 XOR L2) OR L3
  //Temp:=$1C;
  WriteLCDDaten(Temp);
  //LCDCommand(cmdGrayScale);
  //Temp:=%00000000;
  //WriteLCDDaten(Temp);

  SetCursorOFF;
end;

procedure WriteLCDDaten(wert : Byte);
begin
  DDRA   :=%11111111;          //Output
  LCD_ALE:=True;
  PortA  :=Lo(DataAdr);        //Adressdecoder
  LCD_ALE:=False;
  PortC  :=Hi(DataAdr);        //Adressdecoder
  PortA  :=Wert;
  LCD_WR :=False;              //WR HLH Flanke
  Nop;
  LCD_WR :=True;
  PortC  :=$FF;                //Adressdecoder=FFFF
  DDRA   :=%00000000;          //Input
end;

procedure LCDCommand(wert : Byte);
begin
  DDRA   :=%11111111;          //Output
  LCD_ALE:=True;
  PortA  :=Lo(CMDADR);        //Adressdecoder
  LCD_ALE:=False;
  PortC  :=Hi(CMDADR);        //Adressdecoder
  PortA  :=Wert;
  LCD_WR :=False;             //WR HLH Flanke
  Nop;
  LCD_WR :=True;
  PortC  :=$FF;               //Adressdecoder=FFFF
  DDRA   :=%00000000;          //Input
end;

procedure FillDisplay(value, layer: byte);
var w: word;
begin
  w:=0;
  case Layer of
    1: w := 0;|
    2: w := D13700MemSizeG;|
    3: w := D13700MemSizeG + D13700MemSizeG;|
  endCase;

  LCDCommand(cmdSetCsrAddress);
  //set cursor to begining of layer
  //w := 0;
  WriteLCDDaten(Lo(w));
  WriteLCDDaten(Hi(w));

  // set Cursor direction
  LCDCommand(cmdCsrDirRight);
  LCDCommand(cmdDisplayWrite);

  for w := 0 to D13700MemSizeG-1 do
    WriteLCDDaten(value);
  endfor;
end;

procedure ClearGraphicLayer1;
begin
  FillDisplay(0, 1);
end;

procedure ClearGraphicLayer2;
begin
  FillDisplay(0, 2);
end;

procedure ClearGraphicLayer3;
begin
  FillDisplay(0, 3);
end;