#include "IO-reg.h"
#include "Vectors.h"
#include "intr6811.h"
#include "X25128.h"
#include "LCD.h"
#include "ds1820.h"

/*
  Initierar minnet
*/
void init_X25128(void){
  PORTD |= 0x20;   //CS = 1
  DDRD = 0x38;     //input/output
  SPCR = 0x50;
}

/*
  Resettar minnet, tar bort min/max/medel samt loggade värden.
  Tar doock ej bort ID-nummer eller antalet termometrar.
*/
void X25128_reset_mem(void){
  char i;
  char address[2];
  char temp_data[4];
  char nbr;
  int tmp;
  char name[15];
  char j;

  nbr = ds1820_nbr_of_thermos();
  for(i=0; i<nbr; i++){
    X25128_delete_min_max_values(i);
  }

  //Adress till senaste loggade värde.
  tmp = 1 + (8 + 14 + 4*4) * nbr;
  address[0] = tmp/256;
  address[1] = tmp%256;
  tmp = 1 + (8 + 14 + 4*4) * nbr + 2 + 1 + 2;
  temp_data[0] = tmp/256;
  temp_data[1] = tmp%256;
  X25128_write_data(temp_data, address, 2);

  //"Har vi fyllt minnet med loggade värden"-variablen.
  tmp = 1 + (8 + 14 + 4*4) * nbr + 2;
  address[0] = tmp/256;
  address[1] = tmp%256;
  temp_data[0] = 0x00;
  X25128_write_data(temp_data, address, 1);

  //Loggninggsfrekvens.
  tmp = 1 + (8 + 14 + 4*4) * nbr + 2 + 1;
  address[0] = tmp/256;
  address[1] = tmp%256;
  temp_data[0] = 0x02; //Var femte sekund
  temp_data[1] = 0x05;
  X25128_write_data(temp_data, address, 2);

  //Nollställer namnen
  tmp = 1 + 8 * nbr;
  address[0] = tmp/256;
  address[1] = tmp%256;
  name[0] = 'T';
  name[1] = 'e';
  name[2] = 'r';
  name[3] = 'm';
  name[4] = 'o';
  name[5] = 'm';
  name[6] = 'e';
  name[7] = 't';
  name[8] = 'e';
  name[9] = 'r';
  name[10] = ' ';
  name[11] = ' ';
  name[12] = ' ';
  name[13] = ' ';
  for(i=0; i<nbr; i++){
    j = i + 1;

    name[11] = (j/100) + 0x30;
    j = j - (j/100);
    name[12] = (j/10) + 0x30;
    j = j - (j/10);
    name[13] = (j) + 0x30;

    X25128_write_data(name, address, 14);
    if(address[1] + 14 < address[1])
      address[0] += 1;
    address[1] += 14;
  }

}

/*
  Raderar min- och maxteperaturter på termometer
  nummer i
*/
void X25128_delete_min_max_values(char i){
  char address[2];
  char temp_data[4];
  char nbr;
  int tmp;

  nbr = ds1820_nbr_of_thermos();

  tmp = 1 + (8 + 14 + 4) * nbr + 4 * i;
  address[0] = tmp/256;
  address[1] = tmp%256;
  temp_data[0] = 0xFA;
  temp_data[1] = 0x00;
  temp_data[2] = 0x54;
  temp_data[3] = 0x56;
  X25128_write_data(temp_data, address, 4);
  tmp = 1 + (8 + 14 + 4 + 4) * nbr + 4 * i;
  address[0] = tmp/256;
  address[1] = tmp%256;
  temp_data[0] = 0x92;
  temp_data[1] = 0xFF;
  X25128_write_data(temp_data, address, 4);
}


/*
  Skickar byten byte utan hänsyn till CS.
  Används enbart internt.
*/

monitor char X25128_go(char ch){
  SPDR = ch;
  while(!(SPSR & 0x80));
  return SPDR;
}

/*
  Skickar kommandot command till minnet.
*/
monitor void X25128_send_command(char command){
  PORTD &= ~0x20;  //CS = 0
  X25128_go(command);
  PORTD |= 0x20;   //CS = 1
}

/*
  Skriver data på adressen address, vektorn data avslutas med
  0xFF.
*/
monitor void X25128_write_data(char data[], char extern_address[], char 
nbr){
  char address[2];
  char i;
  address[0] = extern_address[0];
  address[1] = extern_address[1];
  for(i=0; i<nbr; i++){
    X25128_send_command(0x06);  //Write enable

    PORTD &= ~0x20;      //CS = 0
    X25128_go(0x02);     //Kommandot för skrivning av 1-32 bytes
    X25128_go(address[0]);
    X25128_go(address[1]);
    X25128_go(data[i]);

    PORTD |= 0x20;  //CS = 1
    if(address[1] + 1 < address[1])
      address[0] += 1;
    address[1] += 1;
    X25128_wait_for_ready();
  }
}

/*
  Läser nbr bytes från minnet med start på adressen address.
  Data sparas i data[]
*/
monitor void X25128_read_data(char data[], char nbr, char address[]){
  char i;
  PORTD &= ~0x20;  //CS = 0
  X25128_go(0x03);     //Kommandot för läsning
  X25128_go(address[0]);
  X25128_go(address[1]);
  for(i=0; i<nbr; i++){
    data[i] = X25128_go(0x00);
  }
  PORTD |= 0x20;  //CS = 1
}

/*
  Väntar på att minnet har lagrat den data som skickats
  till den.
*/
monitor void X25128_wait_for_ready(void){
  do{
    PORTD |= 0x20;  //CS = 1
    PORTD &= ~0x20;  //CS = 0
    X25128_go(0x05);     //Kommandot för läsning av statusregister
  }while((X25128_go(0x00) & 0x01));
  PORTD |= 0x20;  //CS = 1
}