/*
 *  inp012.c
 */

#include <stdio.h>
#include <stdlib.h>
#include <math.h>


#include "ints.h"


/*
 *  Globals
 */
static int MaxX = 0;
static int MaxY = 0;
static int TileNumber = 0;

/*  input signals */
static int  st_span;
static int  ncyc;
static int  l;
static int  s;
static int  t;
static int  w;
static int  min_level;
static int  detail_en;
static int  sharp_en;
static int  lod_en;
static int  persp_en;
static int  copy;
static int  samp_type;
static int  tlut_en;
static int  tlut_type;
static int  max_level;
static int  prim_tile;
static int  load;
static int  shift_coord;
static int  tile_adrs;
static int64 tile_data;
static int  we_tile_size;
static int  we_tile_attr;
static int  vm_in;
static int  vm_dv;
static int  load_dv;
static int  dv;
static int  exit1;
static int  xo;
static int  yo;
static int64 copy_bus;


/*
 *  print_header, tabular format header file
 */
static void
  print_header( void )
{
  printf("#\n");
  printf("#  tmem read\n");
  printf("#\n");
  printf("gclk                    @C\n");
  printf("st_span                 @I\n");
  printf("ncyc                    @I\n");
  printf("l[15:0]                 @I\n");
  printf("s[15:0]                 @I\n");
  printf("t[15:0]                 @I\n");
  printf("w[15:0]                 @I\n");
  printf("min_level[4:0]          @I\n");
  printf("detail_en               @I\n");
  printf("sharp_en                @I\n");
  printf("lod_en                  @I\n");
  printf("persp_en                @I\n");
  printf("copy                    @I\n");
  printf("samp_type               @I\n");
  printf("tlut_en                 @I\n");
  printf("tlut_type               @I\n");
  printf("max_level[2:0]          @I\n");
  printf("prim_tile[2:0]          @I\n");
  printf("load                    @I\n");
  printf("shift_coord             @I\n");
  printf("tile_adrs[2:0]          @I\n");
  printf("tile_data[47:0]         @I\n");
  printf("we_tile_size            @I\n");
  printf("we_tile_attr            @I\n");
  printf("vm_in[7:0]              @I\n");
  printf("vm_dv                   @I\n");
  printf("copy_load[63:0]         @B\n");
  printf("load_dv                 @I\n");
  printf("dv_0                    @I\n");
  printf("exit1                   @I\n");
  printf("x[9:0]                  @I\n");
  printf("y[9:0]                  @I\n");
  printf("\n");  /* required blank line before vectors */
}


/*
 *  print_vector, tabular file format vector
 */
static void
  print_vector( void )
{
  printf("%01x ", st_span);
  printf("%01x   ", ncyc);
  printf("0x%04x ", l & 0xffff);
  printf("0x%04x ", s & 0xffff);
  printf("0x%04x ", t & 0xffff);
  printf("0x%04x   ", w & 0xffff);
  printf("0x%02x ", min_level & 0x1f);
  printf("%01x ", detail_en & 1);
  printf("%01x ", sharp_en & 1);
  printf("%01x ", lod_en & 1);
  printf("%01x ", persp_en & 1);
  printf("%01x ", copy & 1);
  printf("%01x ", samp_type & 1);
  printf("%01x ", tlut_en & 1);
  printf("%01x ", tlut_type & 1);
  printf("0x%01x ", max_level & 0x7);
  printf("0x%01x ", prim_tile & 0x7);
  printf("%01x ",load & 1);
  printf("%01x   ",shift_coord & 1);
  printf("0x%01x ",tile_adrs & 0x7);
  printf("0x%04x%08x ",tile_data.word1 & 0xffff, tile_data.word0);
  printf("%01x ",we_tile_size & 1);
  printf("%01x   ",we_tile_attr & 1);
  printf("0x%02x ",vm_in & 0xff);
  printf("%01x   ",vm_dv & 1);
  printf("0x%08x%08x ", copy_bus.word1, copy_bus.word0);
  printf("%01x   ",load_dv & 1);
  printf("%01x ",dv & 1);
  printf("%01x ",exit1 & 1);
  printf("0x%03x ", xo & 0x3ff);
  printf("0x%03x ", yo & 0x3ff);
  printf("\n");
}


/*
 *  set_tile()
 */

static void
  set_tile( int tile, int type, int size, int line, int tmem_adrs)
{
  /* set all inputs to zero */

  st_span = 0;
  ncyc = 0;
  l = 0;
  s = 0;
  t = 0;
  w = 0;
  min_level = 0;
  detail_en = 0;
  sharp_en = 0;
  lod_en = 0;
  persp_en = 0;
  copy = 0;
  samp_type = 0;
  tlut_en = 0;
  tlut_type = 0;
  max_level = 0;
  prim_tile = 0;
  load = 0;
  shift_coord = 0;
  tile_adrs = 0;
  tile_data.word0 = 0;
  tile_data.word1 = 0;
  we_tile_size = 0;
  we_tile_attr = 0;
  vm_in = 0;
  vm_dv = 0;
  load_dv = 0;
  dv = 0;
  exit1 = 0;
  xo = 0;
  yo = 0;
  copy_bus.word0 = 0;
  copy_bus.word1 = 0;

  tile_adrs = tile;
  tile_data.word0 = tmem_adrs << 24;
  tile_data.word1 = (tmem_adrs >> 8) | (line << 1) | (size << 10) | 
						     (type << 12);
  we_tile_attr = 1;

  printf("#\n");

  printf("# set_tile: tile[2:0] = 0x%01x, type[2:0] = 0x%01x, size[1:0] = 0x%01x, line[8:0] = 0x%03x, tmem_adrs[8:0] = 0x%03x\n", tile, type, size, line, tmem_adrs);

  print_vector();
}

/*
 *  set_tile_size()
 */

static void
  set_tile_size( int tile, int sl, int sh, int tl, int th)
{
  /* set all inputs to zero */

  st_span = 0;
  ncyc = 0;
  l = 0;
  s = 0;
  t = 0;
  w = 0;
  min_level = 0;
  detail_en = 0;
  sharp_en = 0;
  lod_en = 0;
  persp_en = 0;
  copy = 0;
  samp_type = 0;
  tlut_en = 0;
  tlut_type = 0;
  max_level = 0;
  prim_tile = 0;
  load = 0;
  shift_coord = 0;
  tile_adrs = 0;
  tile_data.word0 = 0;
  tile_data.word1 = 0;
  we_tile_size = 0;
  we_tile_attr = 0;
  vm_in = 0;
  vm_dv = 0;
  load_dv = 0;
  dv = 0;
  exit1 = 0;
  xo = 0;
  yo = 0;
  copy_bus.word0 = 0;
  copy_bus.word1 = 0;

  sl <<=  2;
  sh <<=  2;
  tl <<=  2;
  th <<=  2;

  tile_adrs = tile;
  tile_data.word0 = th | (tl << 12) | (sh << 24);
  tile_data.word1 = (sh >> 8) | (sl << 4);

  we_tile_size = 1;

  printf("#\n");

  printf("# set_tile_size: tile[2:0] = 0x%01x, sl[11:0] = 0x%03x, sh[11:0] = 0x%03x, tl[11:0] = 0x%03x, th[11:0] = 0x%03x\n", tile, sl, sh, tl, th);

  print_vector();
}

/*
 *  walk_coord()
 */

static void
  walk_coord( int tile, int sl, int sh, int tl, int th, int step)
{
  /* set all inputs to zero */

  int row, col;

  st_span = 0;
  ncyc = 0;
  l = 0;
  s = 0;
  t = 0;
  w = 0;
  min_level = 0;
  detail_en = 0;
  sharp_en = 0;
  lod_en = 0;
  persp_en = 0;
  copy = 0;
  samp_type = 0;
  tlut_en = 0;
  tlut_type = 0;
  max_level = 0;
  prim_tile = 0;
  load = 0;
  shift_coord = 0;
  tile_adrs = 0;
  tile_data.word0 = 0;
  tile_data.word1 = 0;
  we_tile_size = 0;
  we_tile_attr = 0;
  vm_in = 0;
  vm_dv = 0;
  load_dv = 0;
  dv = 0;
  exit1 = 0;
  xo = 0;
  yo = 0;
  copy_bus.word0 = 0;
  copy_bus.word1 = 0;

  prim_tile = tile;
  dv = 1;
  copy = 1;

  printf("#\n");
  printf("# s[15:0] = 0x%04x -> 0x%04x, t[15:0] = 0x%04x -> 0x%04x, prim_tile[2:0] = 0x%01x\n", sl << 5, sh << 5, tl << 5, th << 5, prim_tile);

  for (row = tl; row <= th; row++)
  {
    for (col = sl; col <= sh; col = col + step)
    {
      s = col << 5;
      t = row << 5;
      print_vector();
    }
  }

}


/*
 *   main()
 */

int
  main(int argc, char **argv)
{

  int cnt, seed;

  print_header();

  /* set all inputs to zero */

  st_span = 0;
  ncyc = 0;
  l = 0;
  s = 0;
  t = 0;
  w = 0;
  min_level = 0;
  detail_en = 0;
  sharp_en = 0;
  lod_en = 0;
  persp_en = 0;
  copy = 0;
  samp_type = 0;
  tlut_en = 0;
  tlut_type = 0;
  max_level = 0;
  prim_tile = 0;
  load = 0;
  shift_coord = 0;
  tile_data.word0 = 0;
  tile_data.word1 = 0;
  we_tile_size = 0;
  we_tile_attr = 0;
  vm_in = 0;
  vm_dv = 0;
  load_dv = 0;
  dv = 0;
  exit1 = 0;
  xo = 0;
  yo = 0;
  copy_bus.word0 = 0;
  copy_bus.word1 = 0;

  /* print 5 dead lines */
  for (cnt = 0; cnt < 5; cnt++)
    print_vector();


  /* read entire tmem as 16-bit RGBA */

  printf("# read entire tmem as 16-bit RGBA\n");

  set_tile(0x2, 0x0, 0x2, 0x100, 0x000);

  set_tile_size(0x2, 0, 1023, 0, 1);

  walk_coord(0x2, 0, 1023, 0, 1, 4);


  st_span = 0;
  ncyc = 0;
  l = 0;
  s = 0;
  t = 0;
  w = 0;
  min_level = 0;
  detail_en = 0;
  sharp_en = 0;
  lod_en = 0;
  persp_en = 0;
  copy = 1;
  samp_type = 0;
  tlut_en = 0;
  tlut_type = 0;
  max_level = 0;
  prim_tile = 0;
  load = 0;
  shift_coord = 0;
  tile_data.word0 = 0;
  tile_data.word1 = 0;
  we_tile_size = 0;
  we_tile_attr = 0;
  vm_in = 0;
  vm_dv = 0;
  load_dv = 0;
  dv = 0;
  exit1 = 0;
  xo = 0;
  yo = 0;
  copy_bus.word0 = 0;
  copy_bus.word1 = 0;

  for (cnt = 0; cnt < 3; cnt++)
    print_vector();

  /* print 15 dead lines */
  copy = 0;
  printf("#\n");
  for (cnt = 0; cnt < 15; cnt++)
    print_vector();


  return(0);
}