/*Asm labels can only be defined once
in a task.  <F5> will spawn a new task
each time, so you don't get redefine
error, like when repeatedly #including
it from the cmd line.
*/

//This is to demo glbl var access.
//Glbs defined elsewhere can accessed too, like cnts.jiffies.
I64 glbl_ona=Freq2Ona(400),glbl_ona_step=10,glbl_ona_base=Freq2Ona(100);

asm
{//Opcodes are slightly different to make writing my x86_64 assembler easier.
//See ::/Compiler/OpCodes.DD.

  JIFFIES_MSG:  DU8 "Jiffies:",0;

//See ::/Kernel/StrA.HC and ::/Kernel/KUtils.HC.

  _BEEPS2::
//You can clobber RAX,RBX,RCX,RDX,R8,R9.  The compiler expects that.
//See REGG_CLOBBERED and REGG_STK_TMP.
  PUSH  RBP
  MOV   RBP,RSP
  MOV   RCX,U64 SF_ARG1[RBP] //SF_ARG1

  PUSH  U64 [&cnts.jiffies]

@@05:   PUSH    RCX
//U0 Beep(I8 ona=62,Bool busy=FALSE)
  PUSH  FALSE   //Do not busy (spin) wait
  PUSH  U64 [&glbl_ona] //evaluated at run time
  CALL  &Beep
  POP   RCX
  LOOP  @@05

  PUSH  RSI     //See REGG_LOCAL_VARS & REGG_LOCAL_NON_PTR_VARS
  MOV   RSI,JIFFIES_MSG
  CALL  PUT_STR
  POP   RSI

  POP   RAX
  SUB   RAX,U64 [&cnts.jiffies]
  NEG   RAX
  CALL  PUT_HEX_U64
  MOV   RAX,'\n'
  CALL  PUT_CHARS

  POP   RBP
  RET1  8
}

//My convention is to put an underscore
//on C callable asm routines.
_extern _BEEPS2 U0 Beeps2(I64 cnt);

U0 AsmAndC2()
{
  I64 reg R15 i;
  i=GetI64("$PURPLE$\n\nNum of beeps 1-5 (%d):$FG$",3,1,5);
  Beeps2(i);
  asm
  {
    LIST
//You can clobber RAX,RBX,RCX,RDX, but preserve the rest.
    MOV RCX,R15 //You can clobber RAX,RBX,RCX,RDX. Preserve the rest.
    @@05:       PUSH    RCX

    //U0 Snd(I8 ona);
    MOV RAX,RCX //ona=loop*10+100.0Hz
    IMUL2       RAX,glbl_ona_step //Intentionally evaluated at compile time
    ADD RAX,U64 [&glbl_ona_base]  //Intentionally evaluated at run time
    PUSH        RAX
    CALL        &Snd    //We can skip IMPORT with & if JIT compiling.
    MOV RCX,cnts.time_stamp_freq>>3 //JIT Const.  Simple delay loop.
                            @@10:       LOOP    @@10

                                POP     RCX
                                LOOP    @@05
  }
  Snd;
}

AsmAndC2;