#include <stdio.h>
#include <string.h>
#include <libmcpu.h>
#include "../utils/mcpu-asm.h"
#define CHECK(c,m) do{if(!(c)){fprintf(stderr,"FAIL: %s\n",m);return 1;}}while(0)
static const char src[]=
".data\n"
"big:\n"
"  .integer 128, 123456789012345678901234567890\n"
"rv:\n"
"  .real 128, 1.25\n"
"cv:\n"
"  .complex 128, 1.5, -2.5\n"
".text\n"
"  LDI r128@0x00000, -17\n"
"  LDR r128@0x00010, -17.0\n"
"  LDC c128@0x00020, -17.0r0+32.0j0\n"
"  RCONST r128@0x00030, PI\n"
"  IADD r128@0x00040, r128@0x00000, r128@0x00000\n"
"  RADD r128@0x00050, r128@0x00010, r128@0x00010\n"
"  CADD c128@0x00060, c128@0x00020, c128@0x00020\n"
"  LOAD r128@0x00070, big\n"
"  HALT\n";
int
main( void )
{
  cpu_asm_image im;
  char err[256];
  mpu_int128_t ie;
  mpu_real128_t re, rr;
  mpu_wide_real_t cr, ci, er, ei;
  int rc;
 __cpu_init();
 CHECK( cpu_assemble_text( src, &im, err, sizeof( err ) ) == 0, err );
 CHECK( im.code_size > 0, "code produced" );
 CHECK( im.data_size == 64, "DATA NULL guard plus directives size" );
 CHECK( !memcmp( im.data, "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0", CPU_DATA_NULL_GUARD_SIZE ), "DATA NULL guard bytes" );
 CHECK( __cpu_program_set( im.code, im.code_size ) == 0, "program set" );
 CHECK( __cpu_data_set( im.data, im.data_size ) == 0, "data set" );
 rc = __cpu_run();
 CHECK( rc == 0, "assembled program run" );
 iatoi( ( mpu_int * ) ie, "-17", NB_I128 );
 CHECK( !memcmp( __cpu_reg_ptr( 128, 0 ), ie, NB_I128 ), "LDI" );
 ascii_to_real( ( mpu_real * ) re, "-17.0", NB_R128 );
 CHECK( r_cmp( ( mpu_real * ) __cpu_reg_ptr( 128, 16 ), ( mpu_real * ) re, NB_R128 ) == 0, "LDR" );
 _m_PI( ( mpu_real * ) rr, NB_R128 );
 CHECK( r_cmp( ( mpu_real * ) __cpu_reg_ptr( 128, 48 ), ( mpu_real * ) rr, NB_R128 ) == 0, "RCONST PI" );
 c_real_part( ( mpu_real * ) cr, ( mpu_complex * ) __cpu_reg_ptr( 128, 32 ), NB_R64 );
 c_imaginary( ( mpu_real * ) ci, ( mpu_complex * ) __cpu_reg_ptr( 128, 32 ), NB_R64 );
 ascii_to_real( ( mpu_real * ) er, "-17.0", NB_R64 );
 ascii_to_real( ( mpu_real * ) ei, "32.0", NB_R64 );
 CHECK( r_cmp( ( mpu_real * ) cr, ( mpu_real * ) er, NB_R64 ) == 0, "LDC real component" );
 CHECK( r_cmp( ( mpu_real * ) ci, ( mpu_real * ) ei, NB_R64 ) == 0, "LDC imag component" );
 iatoi( ( mpu_int * ) ie, "123456789012345678901234567890", NB_I128 );
 CHECK( !memcmp( __cpu_reg_ptr( 128, 112 ), ie, NB_I128 ), "LOAD DATA integer" );
 cpu_asm_image_free( &im );
 __cpu_free_context();
 puts( "libcpu test assembler regression: PASS" );
 return( 0 );
 }