99 lines
2.3 KiB
C++
99 lines
2.3 KiB
C++
/*
|
|
This is a JIT file, not static.
|
|
|
|
Asm labels can only be defined once
|
|
in a task. Hit F5 to spawn a new task
|
|
and run it.
|
|
*/
|
|
|
|
//This is to demo glbl var access.
|
|
//Glbs defined elsewhere can accessed too, like sys_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,"::/SparrowOS/Compiler/OpCodes.TXT.Z","FI:::/SparrowOS/Compiler/OpCodes.TXT.Z"$.
|
|
USE64 //Defaults to 64, but this is a good habit.
|
|
|
|
|
|
//See $LK,"::/SparrowOS/OSMain/Str1a.CPP.Z","FL:::/SparrowOS/OSMain/Str1a.CPP.Z,1"$ and $LK,"::/SparrowOS/OSMain/Utils1a.CPP.Z","FI:::/SparrowOS/OSMain/Utils1a.CPP.Z"$.
|
|
//These are asm syms and must be imported to work properly.
|
|
//When in doubt, import syms.
|
|
IMPORT PUT_STR,PUT_CHAR,PUT_HEX_U64;
|
|
|
|
JIFFIES_MSG: DU8 "Jiffies:",0;
|
|
|
|
_BEEPS2::
|
|
//You can clobber RAX,RBX,RCX,RDX,R8,R9 in a pure asm subroutine.
|
|
ENTER 0
|
|
MOV RCX,U64 SF_ARG1[RBP] //$LK,"SF_ARG1","FF:::/SparrowOS/OSMain/Adam1a.HPP.Z,SF_ARG1"$
|
|
|
|
PUSH U64 [&sys_jiffies]
|
|
|
|
@@05: PUSH RCX
|
|
//U0 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 //we must preserve this register.
|
|
MOV RSI,JIFFIES_MSG
|
|
CALL PUT_STR
|
|
POP RSI
|
|
|
|
POP RAX
|
|
SUB RAX,U64 [&sys_jiffies]
|
|
NEG RAX
|
|
CALL PUT_HEX_U64
|
|
MOV RAX,CH_NEW_LINE
|
|
CALL PUT_CHAR
|
|
|
|
LEAVE
|
|
RET1 8
|
|
}
|
|
|
|
//My convention is to put an underscore
|
|
//on C callable routines.
|
|
_extern _BEEPS2 U0 Beeps2(I64 cnt);
|
|
|
|
U0 AsmAndC2()
|
|
{
|
|
I64 reg R15 i;
|
|
|
|
i=PmtI64("$$FG,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 for code in a C+ routine.
|
|
USE64 //Defaults to 64, but this is a good habit.
|
|
MOV RCX,R15 //You can clobber RAX,RBX,RCX,RDX.
|
|
//You better preserve the rest.
|
|
@@05: PUSH RCX
|
|
//U0 Snd(F64 freq,I64 waveform=WF_SQUARE,F64 amp=1.0);
|
|
MOV RAX,1.0 //amplitude
|
|
PUSH RAX
|
|
PUSH WF_SQUARE
|
|
|
|
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 for this symbol if JIT.
|
|
|
|
MOV RCX,0x20000000 //Simple delay loop
|
|
@@10: LOOP @@10
|
|
|
|
POP RCX
|
|
LOOP @@05
|
|
}
|
|
Snd(0);
|
|
}
|
|
|
|
AsmAndC2;
|