/*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.
*/

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

IMPORT Beep;

_BEEPS::
//You can always 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

@@05: PUSH RCX
//U0 Beep(I8 ona=62,Bool busy=FALSE)
PUSH FALSE //Do not busy (spin) wait
PUSH 62 //500 Hz
CALL Beep
POP RCX
LOOP @@05

POP RBP
RET1 8 //Use special return. Pop one arg off of stack.

//HolyC return vals are in RAX. This function has no return value.
}

//_extern binds a asm sym to a function.
//My convention is to put an underscore
//on C callable asm routines.
_extern _BEEPS U0 Beeps(I64 cnt);

I64 AsmAndC1()
{
I64 noreg i; //Normally this would be stored in a reg
//Check by unassembling with Uf("AsmAndC1").

i=GetI64("Num of beeps 1-5 (%d):",3,1,5);
Beeps(i);

asm {
//You can clobber RAX,RBX,RCX,RDX. The compiler expects that.

IMPORT Snd; //Import an not use & or don't import and use &Snd.
MOV RCX,&i[RBP] //You can clobber RAX,RBX,RCX,RDX.
//You better preserve the rest.
@@05: PUSH RCX

//U0 Snd(I8 ona);
MOV RAX,RCX //ona=loop*10+50
IMUL2 RAX,10 //TempleOS uses nonstandard opcodes
//to avoid multiple form of the same one.
//See /Compiler/OpCodes.DD.
ADD RAX,40
PUSH RAX
CALL Snd

MOV RCX,cnts.time_stamp_freq>>3 //JIT Const. Simple delay loop
@@10: LOOP @@10

POP RCX
LOOP @@05
}
Snd;
return i;
}

"Beeps:%d\n",AsmAndC1;