path: root/Src/ns-eel2/asm-nseel-ppc-gcc.c

#define FUNCTION_MARKER  "mr r0, r0n"                          "mr r1, r1n"                          "mr r2, r2n"

#if EEL_F_SIZE == 8

void nseel_asm_1pdd(void)
{

  __asm__( 
    FUNCTION_MARKER
    "addis r5, 0, 0xdead\n" 
    "ori r5, r5, 0xbeef\n"  
    "mtctr r5\n" 
    "subi r1, r1, 64\n" 
    "bctrl\n" 
    "addi r1, r1, 64\n" 
    FUNCTION_MARKER
   :: );
}
void nseel_asm_1pdd_end(void){}

void nseel_asm_2pdd(void)
{

  __asm__( 
    FUNCTION_MARKER
    "addis r7, 0, 0xdead\n" 
    "ori r7, r7, 0xbeef\n"  
    "fmr f2, f1\n" 
    "lfd f1, 0(r14)\n" 
    "mtctr r7\n" 
    "subi r1, r1, 64\n" 
    "bctrl\n" 
    "addi r1, r1, 64\n" 
    FUNCTION_MARKER
   :: );
};
void nseel_asm_2pdd_end(void){}

void nseel_asm_2pdds(void)
{
  __asm__( 
    FUNCTION_MARKER
    "addis r5, 0, 0xdead\n" 
    "ori r5, r5, 0xbeef\n"  
    "fmr f2, f1\n" 
    "lfd f1, 0(r14)\n" 
    "mtctr r5\n" 
    "subi r1, r1, 64\n" 
    "bctrl\n" 
    "addi r1, r1, 64\n" 
    "stfd f1, 0(r14)\n" 
    "mr r3, r14\n" 
    FUNCTION_MARKER
   :: );
}
void nseel_asm_2pdds_end(void){}

#else // 32 bit floating point calls

#error no 32 bit float support

#endif

//---------------------------------------------------------------------------------------------------------------



// do nothing, eh
void nseel_asm_exec2(void)
{
  __asm__(
    FUNCTION_MARKER
    FUNCTION_MARKER
  );
}
void nseel_asm_exec2_end(void) { }



void nseel_asm_invsqrt(void)
{
  __asm__(
    FUNCTION_MARKER
   "frsqrte f1, f1\n" // less accurate than our x86 equivilent, but invsqrt() is inherently inaccurate anyway
    FUNCTION_MARKER
  );
}
void nseel_asm_invsqrt_end(void) {}

void nseel_asm_dbg_getstackptr(void)
{
  __asm__(
    FUNCTION_MARKER
    "addis r11, 0, 0x4330\n"
    "xoris r10, r1, 0x8000\n"
    "stw r11, -8(r1)\n"   // 0x43300000
    "stw r10, -4(r1)\n"  // our integer sign flipped
    "lfd f1, -8(r1)\n"
    "fsub f1, f1, f30\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_dbg_getstackptr_end(void) {}


//---------------------------------------------------------------------------------------------------------------
void nseel_asm_sqr(void)
{
  __asm__(
    FUNCTION_MARKER
   "fmul f1, f1, f1\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_sqr_end(void) {}


//---------------------------------------------------------------------------------------------------------------
void nseel_asm_abs(void)
{
  __asm__(
    FUNCTION_MARKER
   "fabs f1, f1\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_abs_end(void) {}


//---------------------------------------------------------------------------------------------------------------
void nseel_asm_assign(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f1, 0(r3)\n"
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_assign_end(void) {}
//
//---------------------------------------------------------------------------------------------------------------
void nseel_asm_assign_fromfp(void)
{
  __asm__(
    FUNCTION_MARKER
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_assign_fromfp_end(void) {}

//---------------------------------------------------------------------------------------------------------------
void nseel_asm_assign_fast(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f1, 0(r3)\n"
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_assign_fast_end(void) {}
//
//---------------------------------------------------------------------------------------------------------------
void nseel_asm_assign_fast_fromfp(void)
{
  __asm__(
    FUNCTION_MARKER
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_assign_fast_fromfp_end(void) {}



//---------------------------------------------------------------------------------------------------------------
void nseel_asm_add(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fadd f1, f1, f2\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_add_end(void) {}

void nseel_asm_add_op(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fadd f1, f1, f2\n"
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_add_op_end(void) {}

void nseel_asm_add_op_fast(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fadd f1, f1, f2\n"
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_add_op_fast_end(void) {}


//---------------------------------------------------------------------------------------------------------------
void nseel_asm_sub(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fsub f1, f2, f1\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_sub_end(void) {}

void nseel_asm_sub_op(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fsub f1, f2, f1\n"
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_sub_op_end(void) {}

void nseel_asm_sub_op_fast(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fsub f1, f2, f1\n"
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_sub_op_fast_end(void) {}

//---------------------------------------------------------------------------------------------------------------
void nseel_asm_mul(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fmul f1, f2, f1\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_mul_end(void) {}

void nseel_asm_mul_op(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fmul f1, f2, f1\n"
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_mul_op_end(void) {}

void nseel_asm_mul_op_fast(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fmul f1, f2, f1\n"
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_mul_op_fast_end(void) {}

//---------------------------------------------------------------------------------------------------------------
void nseel_asm_div(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fdiv f1, f2, f1\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_div_end(void) {}

void nseel_asm_div_op(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fdiv f1, f2, f1\n"
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_div_op_end(void) {}

void nseel_asm_div_op_fast(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fdiv f1, f2, f1\n"
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_div_op_fast_end(void) {}

//---------------------------------------------------------------------------------------------------------------
void nseel_asm_mod(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fabs f1, f1\n"
   "fabs f2, f2\n"
   "fctiwz f1, f1\n"
   "fctiwz f2, f2\n"
   "stfd f1, -8(r1)\n"
   "stfd f2, -16(r1)\n"
   "lwz r10, -4(r1)\n"
   "lwz r11, -12(r1)\n" //r11 and r12 have the integers

   "divw r12, r11, r10\n"
   "mullw r12, r12, r10\n"
   "subf r10, r12, r11\n"

   "addis r11, 0, 0x4330\n"
   "xoris r10, r10, 0x8000\n"
   "stw r11, -8(r1)\n"   // 0x43300000
   "stw r10, -4(r1)\n"  // our integer sign flipped
   "lfd f1, -8(r1)\n"
   "fsub f1, f1, f30\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_mod_end(void) {}

void nseel_asm_shl(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fctiwz f1, f1\n"
   "fctiwz f2, f2\n"
   "stfd f1, -8(r1)\n"
   "stfd f2, -16(r1)\n"
   "lwz r10, -4(r1)\n"
   "lwz r11, -12(r1)\n" //r11 and r12 have the integers
   "slw r10, r11, r10\n" // r10 has the result
   "addis r11, 0, 0x4330\n"
   "xoris r10, r10, 0x8000\n"
   "stw r11, -8(r1)\n"   // 0x43300000
   "stw r10, -4(r1)\n"  // our integer sign flipped
   "lfd f1, -8(r1)\n"
   "fsub f1, f1, f30\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_shl_end(void) {}

void nseel_asm_shr(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fctiwz f1, f1\n"
   "fctiwz f2, f2\n"
   "stfd f1, -8(r1)\n"
   "stfd f2, -16(r1)\n"
   "lwz r10, -4(r1)\n"
   "lwz r11, -12(r1)\n" //r11 and r12 have the integers
   "sraw r10, r11, r10\n" // r10 has the result
   "addis r11, 0, 0x4330\n"
   "xoris r10, r10, 0x8000\n"
   "stw r11, -8(r1)\n"   // 0x43300000
   "stw r10, -4(r1)\n"  // our integer sign flipped
   "lfd f1, -8(r1)\n"
   "fsub f1, f1, f30\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_shr_end(void) {}

void nseel_asm_mod_op(void)
{

  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fabs f1, f1\n"
   "fabs f2, f2\n"
   "fctiwz f1, f1\n"
   "fctiwz f2, f2\n"
   "stfd f1, -8(r1)\n"
   "stfd f2, -16(r1)\n"
   "lwz r10, -4(r1)\n"
   "lwz r11, -12(r1)\n" //r11 and r12 have the integers

   "divw r12, r11, r10\n"
   "mullw r12, r12, r10\n"
   "subf r10, r12, r11\n"

   "addis r11, 0, 0x4330\n"
   "xoris r10, r10, 0x8000\n"
   "stw r11, -8(r1)\n"   // 0x43300000
   "stw r10, -4(r1)\n"  // our integer sign flipped
   "lfd f1, -8(r1)\n"
   "fsub f1, f1, f30\n"
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );

}
void nseel_asm_mod_op_end(void) {}

//---------------------------------------------------------------------------------------------------------------
void nseel_asm_or(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fctiwz f1, f1\n"
   "fctiwz f2, f2\n"
   "stfd f1, -8(r1)\n"
   "stfd f2, -16(r1)\n"
   "lwz r10, -4(r1)\n"
   "lwz r11, -12(r1)\n" //r11 and r12 have the integers
   "or r10, r10, r11\n" // r10 has the result
   "addis r11, 0, 0x4330\n"
   "xoris r10, r10, 0x8000\n"
   "stw r11, -8(r1)\n"   // 0x43300000
   "stw r10, -4(r1)\n"  // our integer sign flipped
   "lfd f1, -8(r1)\n"
   "fsub f1, f1, f30\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_or_end(void) {}

void nseel_asm_or0(void)
{
  __asm__(
    FUNCTION_MARKER
   "fctiwz f1, f1\n"
   "addis r11, 0, 0x4330\n"
   "stfd f1, -8(r1)\n"
   "lwz r10, -4(r1)\n"
   "xoris r10, r10, 0x8000\n"
   "stw r11, -8(r1)\n"   // 0x43300000
   "stw r10, -4(r1)\n"  // our integer sign flipped
   "lfd f1, -8(r1)\n"
   "fsub f1, f1, f30\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_or0_end(void) {}

void nseel_asm_or_op(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fctiwz f1, f1\n"
   "fctiwz f2, f2\n"
   "stfd f1, -8(r1)\n"
   "stfd f2, -16(r1)\n"
   "lwz r10, -4(r1)\n"
   "lwz r11, -12(r1)\n" //r11 and r12 have the integers
   "or r10, r10, r11\n" // r10 has the result
   "addis r11, 0, 0x4330\n"
   "xoris r10, r10, 0x8000\n"
   "stw r11, -8(r1)\n"   // 0x43300000
   "stw r10, -4(r1)\n"  // our integer sign flipped
   "lfd f1, -8(r1)\n"
   "fsub f1, f1, f30\n"
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_or_op_end(void) {}

//---------------------------------------------------------------------------------------------------------------
void nseel_asm_xor(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fctiwz f1, f1\n"
   "fctiwz f2, f2\n"
   "stfd f1, -8(r1)\n"
   "stfd f2, -16(r1)\n"
   "lwz r10, -4(r1)\n"
   "lwz r11, -12(r1)\n" //r11 and r12 have the integers
   "xor r10, r10, r11\n" // r10 has the result
   "addis r11, 0, 0x4330\n"
   "xoris r10, r10, 0x8000\n"
   "stw r11, -8(r1)\n"   // 0x43300000
   "stw r10, -4(r1)\n"  // our integer sign flipped
   "lfd f1, -8(r1)\n"
   "fsub f1, f1, f30\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_xor_end(void) {}

void nseel_asm_xor_op(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fctiwz f1, f1\n"
   "fctiwz f2, f2\n"
   "stfd f1, -8(r1)\n"
   "stfd f2, -16(r1)\n"
   "lwz r10, -4(r1)\n"
   "lwz r11, -12(r1)\n" //r11 and r12 have the integers
   "xor r10, r10, r11\n" // r10 has the result
   "addis r11, 0, 0x4330\n"
   "xoris r10, r10, 0x8000\n"
   "stw r11, -8(r1)\n"   // 0x43300000
   "stw r10, -4(r1)\n"  // our integer sign flipped
   "lfd f1, -8(r1)\n"
   "fsub f1, f1, f30\n"
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_xor_op_end(void) {}

//---------------------------------------------------------------------------------------------------------------
void nseel_asm_and(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fctiwz f1, f1\n"
   "fctiwz f2, f2\n"
   "stfd f1, -8(r1)\n"
   "stfd f2, -16(r1)\n"
   "lwz r10, -4(r1)\n"
   "lwz r11, -12(r1)\n" //r11 and r12 have the integers
   "and r10, r10, r11\n" // r10 has the result
   "addis r11, 0, 0x4330\n"
   "xoris r10, r10, 0x8000\n"
   "stw r11, -8(r1)\n"   // 0x43300000
   "stw r10, -4(r1)\n"  // our integer sign flipped
   "lfd f1, -8(r1)\n"
   "fsub f1, f1, f30\n"
    FUNCTION_MARKER
  );}
void nseel_asm_and_end(void) {}

void nseel_asm_and_op(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, 0(r14)\n"
   "fctiwz f1, f1\n"
   "fctiwz f2, f2\n"
   "stfd f1, -8(r1)\n"
   "stfd f2, -16(r1)\n"
   "lwz r10, -4(r1)\n"
   "lwz r11, -12(r1)\n" //r11 and r12 have the integers
   "and r10, r10, r11\n" // r10 has the result
   "addis r11, 0, 0x4330\n"
   "xoris r10, r10, 0x8000\n"
   "stw r11, -8(r1)\n"   // 0x43300000
   "stw r10, -4(r1)\n"  // our integer sign flipped
   "lfd f1, -8(r1)\n"
   "fsub f1, f1, f30\n"
   "mr r3, r14\n"
   "stfd f1, 0(r14)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_and_op_end(void) {}


//---------------------------------------------------------------------------------------------------------------
void nseel_asm_uplus(void) // this is the same as doing nothing, it seems
{
  __asm__(
    FUNCTION_MARKER
    FUNCTION_MARKER
  );
}
void nseel_asm_uplus_end(void) {}

//---------------------------------------------------------------------------------------------------------------
void nseel_asm_uminus(void)
{
  __asm__(
    FUNCTION_MARKER
   "fneg f1, f1\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_uminus_end(void) {}


//---------------------------------------------------------------------------------------------------------------
void nseel_asm_sign(void)
{
  __asm__(
    FUNCTION_MARKER
    "li r9, 0\n"
    "stw r9, -4(r1)\n"
    "lis r9, 0xbf80\n" // -1 in float
    "lfs f2, -4(r1)\n"

    "fcmpu cr7, f1, f2\n"
    "blt- cr7, 0f\n"
      "ble- cr7, 1f\n"
        "  lis r9, 0x3f80\n" // 1 in float
    "0:\n"
    "  stw  r9, -4(r1)\n"
    "  lfs f1, -4(r1)\n"
    "1:\n"
    FUNCTION_MARKER
    :: 
  );
}
void nseel_asm_sign_end(void) {}



//---------------------------------------------------------------------------------------------------------------
void nseel_asm_bnot(void)
{
  __asm__(
    FUNCTION_MARKER
    "cmpwi cr0, r3, 0\n"
    "addis r3, 0, 0\n"
    "bne cr0, 0f\n"
    "addis r3, 0, 1\n"
    "0:\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_bnot_end(void) {}

//---------------------------------------------------------------------------------------------------------------
void nseel_asm_if(void)
{
  __asm__(
    FUNCTION_MARKER
   "cmpwi cr0, r3, 0\n"
   "beq cr0, 0f\n"
   "  addis r6, 0, 0xdead\n"
   "  ori r6, r6, 0xbeef\n"
   "  mtctr r6\n"
   "  bctrl\n"
   "b 1f\n"
   "0:\n"
   "  addis r6, 0, 0xdead\n"
   "  ori r6, r6, 0xbeef\n"
   "  mtctr r6\n"
   "  bctrl\n"
   "1:\n"
    FUNCTION_MARKER
  :: );
}
void nseel_asm_if_end(void) {}

//---------------------------------------------------------------------------------------------------------------
void nseel_asm_repeat(void)
{
#if NSEEL_LOOPFUNC_SUPPORT_MAXLEN > 0
  __asm__(
    FUNCTION_MARKER
   "fctiwz f1, f1\n"
   "stfd f1, -8(r1)\n"
   "lwz r5, -4(r1)\n" // r5 has count now
   "cmpwi cr0, r5, 0\n"
   "ble cr0, 1f\n" // skip the loop

   "addis r7, 0, ha16(%0)\n"
   "addi r7, r7, lo16(%0)\n"

   "stwu r16, -16(r1)\n" // set up the stack for the loop, save r16

   "cmpw cr0, r7, r5\n"
   "bge cr0, 0f\n"
   "mr r5, r7\n" // set r5 to max if we have to
"0:\n"
   "addis r6, 0, 0xdead\n"
   "ori r6, r6, 0xbeef\n"

   "addi r5, r5, -1\n"
   "stw r5, 4(r1)\n"

   "mtctr r6\n"
   "bctrl\n"

   "lwz r16, 0(r1)\n"
   "lwz r5, 4(r1)\n"

   "cmpwi cr0, r5, 0\n"
   "bgt cr0, 0b\n"

   "addi r1, r1, 16\n" // restore old stack

   "1:\n"
    FUNCTION_MARKER
    ::"g" (NSEEL_LOOPFUNC_SUPPORT_MAXLEN)
  );
#else
  __asm__(
    FUNCTION_MARKER
   "fctiwz f1, f1\n"
   "stfd f1, -8(r1)\n"
   "lwz r5, -4(r1)\n" // r5 has count now
   "cmpwi cr0, r5, 0\n"
   "ble cr0, 1f\n" // skip the loop

   "stwu r16, -16(r1)\n" // set up the stack for the loop, save r16

"0:\n"
   "addis r6, 0, 0xdead\n"
   "ori r6, r6, 0xbeef\n"

   "addi r5, r5, -1\n"
   "stw r5, 4(r1)\n"

   "mtctr r6\n"
   "bctrl\n"

   "lwz r16, 0(r1)\n"
   "lwz r5, 4(r1)\n"

   "cmpwi cr0, r5, 0\n"
   "bgt cr0, 0b\n"

   "addi r1, r1, 16\n" // restore old stack

   "1:\n"
    FUNCTION_MARKER
    ::
  );
#endif
}
void nseel_asm_repeat_end(void) {}

void nseel_asm_repeatwhile(void)
{
#if NSEEL_LOOPFUNC_SUPPORT_MAXLEN > 0
  __asm__(
    FUNCTION_MARKER
   "stwu r16, -16(r1)\n" // save r16 to stack, update stack
   "addis r5, 0, ha16(%0)\n"
   "addi r5, r5, lo16(%0)\n"
"0:\n"

     "addis r6, 0, 0xdead\n"
     "ori r6, r6, 0xbeef\n"
     "stw r5, 4(r1)\n" // save maxcnt

     "mtctr r6\n"
     "bctrl\n"

     "lwz r16, 0(r1)\n" // restore r16
     "lwz r5, 4(r1)\n" // restore, check maxcnt

     "cmpwi cr7, r3, 0\n" // check return value
     "addi r5, r5, -1\n"

     "beq cr7, 1f\n"

     "cmpwi cr0, r5, 0\n"
     "bgt cr0, 0b\n"
   "1:\n"
   "addi r1, r1, 16\n" // restore stack
    FUNCTION_MARKER
    ::"g" (NSEEL_LOOPFUNC_SUPPORT_MAXLEN)
  );
#else
  __asm__(
    FUNCTION_MARKER
   "stwu r16, -16(r1)\n" // save r16 to stack, update stack
"0:\n"
     "addis r6, 0, 0xdead\n"
     "ori r6, r6, 0xbeef\n"

     "mtctr r6\n"
     "bctrl\n"

     "lwz r16, 0(r1)\n" // restore r16

     "cmpwi cr7, r3, 0\n" // check return value
     "bne cr7, 0b\n"
   "addi r1, r1, 16\n" // restore stack
    FUNCTION_MARKER
    ::
  );

#endif
}
void nseel_asm_repeatwhile_end(void) {}


void nseel_asm_band(void)
{
  __asm__(
    FUNCTION_MARKER
   "cmpwi cr7, r3, 0\n"
   "beq cr7, 0f\n"
   "  addis r6, 0, 0xdead\n"
   "  ori r6, r6, 0xbeef\n"
   "  mtctr r6\n"
   "  bctrl\n"
   "0:\n"
    FUNCTION_MARKER
  :: );
}
void nseel_asm_band_end(void) {}

void nseel_asm_bor(void)
{
  __asm__(
    FUNCTION_MARKER
   "cmpwi cr7, r3, 0\n"
   "bne cr7, 0f\n"
   "  addis r6, 0, 0xdead\n"
   "  ori r6, r6, 0xbeef\n"
   "  mtctr r6\n"
   "  bctrl\n"
   "0:\n"
    FUNCTION_MARKER
  :: );
}
void nseel_asm_bor_end(void) {}

//---------------------------------------------------------------------------------------------------------------
void nseel_asm_equal(void)
{
  __asm__(
    FUNCTION_MARKER
    "lfd f2, 0(r14)\n"
    "fsub f1, f1, f2\n"
    "fabs f1, f1\n"
    "fcmpu cr7, f1, f31\n"
    "addis r3, 0, 0\n"
    "bge cr7, 0f\n"
    "addis r3, 0, 1\n"
    "0:\n"
    FUNCTION_MARKER
    :: 
  );
}
void nseel_asm_equal_end(void) {}
//---------------------------------------------------------------------------------------------------------------
void nseel_asm_equal_exact(void)
{
  __asm__(
    FUNCTION_MARKER
    "lfd f2, 0(r14)\n"
    "fcmpu cr7, f1, f2\n"
    "addis r3, 0, 0\n"
    "bne cr7, 0f\n"
    "addis r3, 0, 1\n"
    "0:\n"
    FUNCTION_MARKER
    :: 
  );
}
void nseel_asm_equal_exact_end(void) {}
//
//---------------------------------------------------------------------------------------------------------------
void nseel_asm_notequal_exact(void)
{
  __asm__(
    FUNCTION_MARKER
    "lfd f2, 0(r14)\n"
    "fcmpu cr7, f1, f2\n"
    "addis r3, 0, 0\n"
    "beq cr7, 0f\n"
    "addis r3, 0, 1\n"
    "0:\n"
    FUNCTION_MARKER
    :: 
  );
}
void nseel_asm_notequal_exact_end(void) {}
//
//
//
//---------------------------------------------------------------------------------------------------------------
void nseel_asm_notequal(void)
{
  __asm__(
    FUNCTION_MARKER
    "lfd f2, 0(r14)\n"
    "fsub f1, f1, f2\n"
    "fabs f1, f1\n"
    "fcmpu cr7, f1, f31\n"
    "addis r3, 0, 0\n"
    "blt cr7, 0f\n"
    "  addis r3, 0, 1\n"
    "0:\n"
    FUNCTION_MARKER
    :: 
  );
}
void nseel_asm_notequal_end(void) {}


//---------------------------------------------------------------------------------------------------------------
void nseel_asm_below(void)
{
  __asm__(
    FUNCTION_MARKER
    "lfd f2, 0(r14)\n"
    "fcmpu cr7, f1, f2\n"
    "addis r3, 0, 0\n"
    "ble cr7, 0f\n"
    "addis r3, 0, 1\n"
    "0:\n"
    FUNCTION_MARKER
    ::
  );
}
void nseel_asm_below_end(void) {}

//---------------------------------------------------------------------------------------------------------------
void nseel_asm_beloweq(void)
{
  __asm__(
    FUNCTION_MARKER
    "lfd f2, 0(r14)\n"
    "fcmpu cr7, f1, f2\n"
    "addis r3, 0, 0\n"
    "blt cr7, 0f\n"
    "  addis r3, 0, 1\n"
    "0:\n"
    FUNCTION_MARKER
    ::
  );
}
void nseel_asm_beloweq_end(void) {}


//---------------------------------------------------------------------------------------------------------------
void nseel_asm_above(void)
{
  __asm__(
    FUNCTION_MARKER
    "lfd f2, 0(r14)\n"
    "fcmpu cr7, f1, f2\n"
    "addis r3, 0, 0\n"
    "bge cr7, 0f\n"
    "addis r3, 0, 1\n"
    "0:\n"
    FUNCTION_MARKER
    ::
  );
}
void nseel_asm_above_end(void) {}

void nseel_asm_aboveeq(void)
{
  __asm__(
    FUNCTION_MARKER
    "lfd f2, 0(r14)\n"
    "fcmpu cr7, f1, f2\n"
    "addis r3, 0, 0\n"
    "bgt cr7, 0f\n"
    "addis r3, 0, 1\n"
    "0:\n"
    FUNCTION_MARKER
    ::
  );
}
void nseel_asm_aboveeq_end(void) {}



void nseel_asm_min(void)
{
  __asm__(
    FUNCTION_MARKER
    "lfd f1, 0(r3)\n"
    "lfd f2, 0(r14)\n"
    "fcmpu cr7, f2, f1\n"
    "bgt cr7, 0f\n"
    "mr r3, r14\n"
    "0:\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_min_end(void) {}

void nseel_asm_max(void)
{
  __asm__(
    FUNCTION_MARKER
    "lfd f1, 0(r3)\n"
    "lfd f2, 0(r14)\n"
    "fcmpu cr7, f2, f1\n"
    "blt cr7, 0f\n"
    "mr r3, r14\n"
    "0:\n"
    FUNCTION_MARKER
  );
}

void nseel_asm_max_end(void) {}


void nseel_asm_min_fp(void)
{
  __asm__(
    FUNCTION_MARKER
    "lfd f2, 0(r14)\n"
    "fcmpu cr7, f2, f1\n"
    "bgt cr7, 0f\n"
    "fmr f1, f2\n"
    "0:\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_min_fp_end(void) {}

void nseel_asm_max_fp(void)
{
  __asm__(
    FUNCTION_MARKER
    "lfd f2, 0(r14)\n"
    "fcmpu cr7, f2, f1\n"
    "blt cr7, 0f\n"
    "fmr f1, f2\n"
    "0:\n"
    FUNCTION_MARKER
  );
}

void nseel_asm_max_fp_end(void) {}






void _asm_generic3parm(void)
{
  __asm__(
    FUNCTION_MARKER
   "mr r6, r3\n"
   "addis r3, 0, 0xdead\n"
   "ori r3, r3, 0xbeef\n"
   "addis r7, 0, 0xdead\n"
   "ori r7, r7, 0xbeef\n"
   "mr r4, r15\n"
   "mr r5, r14\n"
   "mtctr r7\n"
   "subi r1, r1, 64\n"
   "bctrl\n"
   "addi r1, r1, 64\n"
    FUNCTION_MARKER
  ::
 ); 
}
void _asm_generic3parm_end(void) {}

void _asm_generic3parm_retd(void)
{
  __asm__(
    FUNCTION_MARKER
   "mr r6, r3\n"
   "addis r3, 0, 0xdead\n"
   "ori r3, r3, 0xbeef\n"
   "addis r7, 0, 0xdead\n"
   "ori r7, r7, 0xbeef\n"
   "mr r4, r15\n"
   "mr r5, r14\n"
   "mtctr r7\n"
   "subi r1, r1, 64\n"
   "bctrl\n"
   "addi r1, r1, 64\n"
    FUNCTION_MARKER
  ::
 ); 
}
void _asm_generic3parm_retd_end(void) {}


void _asm_generic2parm(void) // this prob neds to be fixed for ppc
{
  __asm__(
    FUNCTION_MARKER
   "mr r5, r3\n"
   "addis r3, 0, 0xdead\n"
   "ori r3, r3, 0xbeef\n"
   "addis r7, 0, 0xdead\n"
   "ori r7, r7, 0xbeef\n"
   "mr r4, r14\n"
   "mtctr r7\n"
   "subi r1, r1, 64\n"
   "bctrl\n"
   "addi r1, r1, 64\n"
    FUNCTION_MARKER
  ::
 ); 
}
void _asm_generic2parm_end(void) {}


void _asm_generic2parm_retd(void)
{
  __asm__(
    FUNCTION_MARKER
   "mr r5, r3\n"
   "addis r3, 0, 0xdead\n"
   "ori r3, r3, 0xbeef\n"
   "addis r7, 0, 0xdead\n"
   "ori r7, r7, 0xbeef\n"
   "mr r4, r14\n"
   "mtctr r7\n"
   "subi r1, r1, 64\n"
   "bctrl\n"
   "addi r1, r1, 64\n"
    FUNCTION_MARKER
  ::
 ); 
}
void _asm_generic2parm_retd_end(void) {}

void _asm_generic1parm(void) // this prob neds to be fixed for ppc
{
  __asm__(
    FUNCTION_MARKER
   "mr r4, r3\n"
   "addis r3, 0, 0xdead\n"
   "ori r3, r3, 0xbeef\n"
   "addis r7, 0, 0xdead\n"
   "ori r7, r7, 0xbeef\n"
   "mtctr r7\n"
   "subi r1, r1, 64\n"
   "bctrl\n"
   "addi r1, r1, 64\n"
    FUNCTION_MARKER
  ::
 ); 
}
void _asm_generic1parm_end(void) {}



void _asm_generic1parm_retd(void)
{
  __asm__(
    FUNCTION_MARKER
   "mr r4, r3\n"
   "addis r3, 0, 0xdead\n"
   "ori r3, r3, 0xbeef\n"
   "addis r7, 0, 0xdead\n"
   "ori r7, r7, 0xbeef\n"
   "mtctr r7\n"
   "subi r1, r1, 64\n"
   "bctrl\n"
   "addi r1, r1, 64\n"
    FUNCTION_MARKER
  ::
 ); 
}
void _asm_generic1parm_retd_end(void) {}




void _asm_megabuf(void)
{
  __asm__(
    FUNCTION_MARKER
   "lfd f2, -8(r13)\n"
   "mr r3, r13\n"

   "fadd f1, f2, f1\n"

   // f1 has (float) index of array, r3 has EEL_F **
   "fctiwz f1, f1\n"
   "stfd f1, -8(r1)\n"
   "lwz r4, -4(r1)\n" // r4 is index of array

   "andis. r15, r4, %0\n" // check to see if it has any bits in 0xFF800000, which is 0xFFFFFFFF - (NSEEL_RAM_BLOCKS*NSEEL_RAM_ITEMSPERBLOCK - 1)
   "bne cr0, 0f\n" // out of range, jump to error

     // shr 14 (16 for NSEEL_RAM_ITEMSPERBLOCK, minus two for pointer size), which is rotate 18
     // mask 7 bits (NSEEL_RAM_BLOCKS), but leave two empty bits (pointer size)
     "rlwinm r15, r4, %1, %2, 29\n"
     "lwzx r15, r3, r15\n" // r15 = (r3+r15)
     "cmpi cr0, r15, 0\n"
     "bne cr0, 1f\n" // if nonzero, jump to final calculation

   "0:\n"
   // set up function call
     "addis r7, 0, 0xdead\n"
     "ori r7, r7, 0xbeef\n"
     "mtctr r7\n"
     "subi r1, r1, 64\n"
     "bctrl\n"
     "addi r1, r1, 64\n"
     "b 2f\n"
   "1:\n"
     // good news: we can do a direct addr return
     // bad news: more rlwinm ugliness!
     // shift left by 3 (sizeof(EEL_F)), mask off lower 3 bits, only allow 16 bits (NSEEL_RAM_ITEMSPERBLOCK) through
     "rlwinm r3, r4, 3, %3, 28\n" 

     // add offset of loaded block
     "add r3, r3, r15\n"

   "2:\n"
    FUNCTION_MARKER
  :: 
    "i" ((0xFFFFFFFF - (NSEEL_RAM_BLOCKS*NSEEL_RAM_ITEMSPERBLOCK - 1))>>16),
    "i" (32 - NSEEL_RAM_ITEMSPERBLOCK_LOG2 + 2),
    "i" (30 - NSEEL_RAM_BLOCKS_LOG2),
    "i" (28 - NSEEL_RAM_ITEMSPERBLOCK_LOG2 + 1)
 ); 
}

void _asm_megabuf_end(void) {}

void _asm_gmegabuf(void)
{
  __asm__(
    FUNCTION_MARKER
   "fadd f1, f31, f1\n"
   "addis r3, 0, 0xdead\n" // set up context pointer
   "ori r3, r3, 0xbeef\n"

   "fctiwz f1, f1\n"
   "subi r1, r1, 64\n"

   "addis r7, 0, 0xdead\n"
   "ori r7, r7, 0xbeef\n"

   "stfd f1, 8(r1)\n"
   "mtctr r7\n"

   "lwz r4, 12(r1)\n"

   "bctrl\n"
   "addi r1, r1, 64\n"
    FUNCTION_MARKER
  ::
 ); 
}

void _asm_gmegabuf_end(void) {}

void nseel_asm_fcall(void)
{
  __asm__(
    FUNCTION_MARKER
   "addis r6, 0, 0xdead\n"
   "ori r6, r6, 0xbeef\n"
   "mtctr r6\n"
   "bctrl\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_fcall_end(void) {}



void nseel_asm_stack_push(void)
{
  __asm__(
    FUNCTION_MARKER

   "addis r6, 0, 0xdead\n"
   "ori r6, r6, 0xbeef\n" // r6 is stack

   "lfd f1, 0(r3)\n" // f1 is value to copy to stack
   "lwz r3, 0(r6)\n"

   "addis r14, 0, 0xdead\n"
   "ori r14, r14, 0xbeef\n" 
   "addi r3, r3, 0x8\n"

   "and r3, r3, r14\n"

   "addis r14, 0, 0xdead\n"
   "ori r14, r14, 0xbeef\n" 
   "or r3, r3, r14\n"

   "stfd f1, 0(r3)\n" // copy parameter to stack

   "stw r3, 0(r6)\n" // update stack state
    FUNCTION_MARKER
  );
}
void nseel_asm_stack_push_end(void) {}

void nseel_asm_stack_pop(void)
{
  __asm__(
    FUNCTION_MARKER
   "addis r6, 0, 0xdead\n"
   "ori r6, r6, 0xbeef\n" // r6 is stack
   "lwz r15, 0(r6)\n" // return the old stack pointer

   "lfd f1, 0(r15)\n"
   "subi r15, r15, 0x8\n"

   "addis r14, 0, 0xdead\n"
   "ori r14, r14, 0xbeef\n" 
   "and r15, r15, r14\n"

   "addis r14, 0, 0xdead\n"
   "ori r14, r14, 0xbeef\n" 
   "or r15, r15, r14\n"
   "stw r15, 0(r6)\n"

   "stfd f1, 0(r3)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_stack_pop_end(void) {}



void nseel_asm_stack_pop_fast(void)
{
  __asm__(
    FUNCTION_MARKER
   "addis r6, 0, 0xdead\n"
   "ori r6, r6, 0xbeef\n" // r6 is stack
   "lwz r3, 0(r6)\n" // return the old stack pointer

   "mr r15, r3\n"  // update stack pointer
   "subi r15, r15, 0x8\n"

   "addis r14, 0, 0xdead\n"
   "ori r14, r14, 0xbeef\n" 
   "and r15, r15, r14\n"

   "addis r14, 0, 0xdead\n"
   "ori r14, r14, 0xbeef\n" 
   "or r15, r15, r14\n"
   "stw r15, 0(r6)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_stack_pop_fast_end(void) {}

void nseel_asm_stack_peek(void)
{
  __asm__(
    FUNCTION_MARKER
    "fctiwz f1, f1\n"
    "stfd f1, -8(r1)\n"

    "addis r6, 0, 0xdead\n"
    "ori r6, r6, 0xbeef\n" // r6 is stack

    "lwz r14, -4(r1)\n"
    "rlwinm r14, r14,  3, 0, 28\n" // slwi r14, r14, 3 -- 3 is log2(sizeof(EEL_F)) -- 28 represents 31-3
    "lwz r3, 0(r6)\n" // return the old stack pointer

    "sub r3, r3, r14\n"

    "addis r14, 0, 0xdead\n"
    "ori r14, r14, 0xbeef\n" 
    "and r3, r3, r14\n"

    "addis r14, 0, 0xdead\n"
    "ori r14, r14, 0xbeef\n" 
    "or r3, r3, r14\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_stack_peek_end(void) {}


void nseel_asm_stack_peek_top(void)
{
  __asm__(
    FUNCTION_MARKER
    "addis r6, 0, 0xdead\n"
    "ori r6, r6, 0xbeef\n" // r6 is stack
    "lwz r3, 0(r6)\n" // return the old stack pointer
    FUNCTION_MARKER
  );
}
void nseel_asm_stack_peek_top_end(void) {}


void nseel_asm_stack_peek_int(void)
{
  __asm__(
    FUNCTION_MARKER
    "addis r6, 0, 0xdead\n"
    "ori r6, r6, 0xbeef\n" // r6 is stack
    "lwz r3, 0(r6)\n" // return the old stack pointer

    "addis r14, 0, 0xdead\n" // add manual offset
    "ori r14, r14, 0xbeef\n" 
    "sub r3, r3, r14\n"

    "addis r14, 0, 0xdead\n"
    "ori r14, r14, 0xbeef\n" 
    "and r3, r3, r14\n"

    "addis r14, 0, 0xdead\n"
    "ori r14, r14, 0xbeef\n" 
    "or r3, r3, r14\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_stack_peek_int_end(void) {}

void nseel_asm_stack_exch(void)
{
  __asm__(
    FUNCTION_MARKER
    "addis r6, 0, 0xdead\n"
    "ori r6, r6, 0xbeef\n" // r6 is stack
    "lfd f1, 0(r3)\n"
    "lwz r14, 0(r6)\n" 
    "lfd f2, 0(r14)\n"

    "stfd f1, 0(r14)\n"
    "stfd f2, 0(r3)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_stack_exch_end(void) {}


void nseel_asm_booltofp(void)
{
  __asm__(
    FUNCTION_MARKER
    "cmpwi cr7, r3, 0\n"
    "li r14, 0\n"
    "beq cr7, 0f\n"
      "addis r14, 0, 0x3f80\n"
    "0:\n"
    "stw r14, -8(r1)\n"
    "lfs f1, -8(r1)\n"
    FUNCTION_MARKER
  );
}
void nseel_asm_booltofp_end(void){ }

void nseel_asm_fptobool(void)
{
  __asm__(
    FUNCTION_MARKER
    "fabs f1, f1\n"
    "fcmpu cr7, f1, f31\n"
    "addis r3, 0, 1\n"
    "bge cr7, 0f\n"
    "  addis r3, 0, 0\n"
    "0:\n"
    FUNCTION_MARKER
    :: 
          );
}
void nseel_asm_fptobool_end(void){ }

void nseel_asm_fptobool_rev(void)
{
  __asm__(
    FUNCTION_MARKER
    "fabs f1, f1\n"
    "fcmpu cr7, f1, f31\n"
    "addis r3, 0, 0\n"
    "bge cr7, 0f\n"
    "  addis r3, 0, 1\n"
    "0:\n"
    FUNCTION_MARKER
    :: 
          );
}
void nseel_asm_fptobool_rev_end(void){ }