92 lines
2.2 KiB
HolyC
92 lines
2.2 KiB
HolyC
/*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_hz=400,glbl_hz_step=100,glbl_hz_base=100;
|
|
|
|
asm {
|
|
//Opcodes are slightly different to make writing my x86_64 assembler easier.
|
|
//See $LK,"::/Compiler/OpCodes.DD"$.
|
|
|
|
JIFFIES_MSG: DU8 "Jiffies:",0;
|
|
|
|
//See $LK,"::/Kernel/StrA.HC",A="FL:::/Kernel/StrA.HC,1"$ and $LK,"::/Kernel/KUtils.HC"$.
|
|
|
|
_BEEPS2::
|
|
//You can clobber RAX,RBX,RCX,RDX,R8,R9. The compiler expects that.
|
|
//See $LK,"REGG_CLOBBERED",A="MN:REGG_CLOBBERED"$ and $LK,"REGG_STK_TEMP",A="MN:REGG_STK_TEMP"$.
|
|
PUSH RBP
|
|
MOV RBP,RSP
|
|
MOV RCX,U64 SF_ARG1[RBP] //$LK,"SF_ARG1",A="FF:::/Kernel/KernelA.HH,SF_ARG1"$
|
|
|
|
PUSH U64 [&cnts.jiffies]
|
|
|
|
@@05: PUSH RCX
|
|
//U0 $LK,"Beep",A="MN:Beep"$(I64 freq=500,Bool busy=FALSE)
|
|
PUSH FALSE //Do not busy (spin) wait
|
|
PUSH U64 [&glbl_hz] //evaluated at run time
|
|
CALL &Beep
|
|
POP RCX
|
|
LOOP @@05
|
|
|
|
PUSH RSI //See $LK,"REGG_LOCAL_VARS",A="MN:REGG_LOCAL_VARS"$ & $LK,"REGG_LOCAL_NON_PTR_VARS",A="MN: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 $LK,"Snd",A="MN:Snd"$(F64 freq);
|
|
|
|
MOV RAX,RCX //freq=loop*100.0+100.0
|
|
IMUL2 RAX,glbl_hz_step //evaluated at compile ttime
|
|
ADD RAX,U64 [&glbl_hz_base] //evaluated at run time
|
|
PUSH RAX
|
|
FILD U64 [RSP] //Convert from int to floating
|
|
FSTP U64 [RSP]
|
|
|
|
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(0);
|
|
}
|
|
|
|
AsmAndC2;
|