TempleOSCDV4.11.ISO

Demo/Asm/AsmAndC1.HC

@@ -0,0 +1,79 @@
+/*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 $LK,"::/Compiler/OpCodes.DD"$.
+
+	IMPORT	Beep;
+
+_BEEPS::
+//You can always 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"$
+
+@@05:	PUSH	RCX
+//U0 $LK,"Beep",A="MN:Beep"$(I64 freq=500,Bool busy=FALSE)
+	PUSH	FALSE	//Do not busy (spin) wait
+	PUSH	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 $LK,"Uf",A="MN: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 $LK,"Snd",A="MN:Snd"$(F64 freq);
+
+    MOV	RAX,RCX	//freq=loop*100.0+100.0
+    IMUL2	RAX,100 //TempleOS uses nonstandard opcodes
+//to avoid multiple form of the same one.
+    //See $LK,"::/Compiler/OpCodes.DD"$.
+    ADD	RAX,100
+    PUSH	RAX
+    FILD	U64 [RSP]	//Convert from int to floating
+    FSTP	U64 [RSP]
+
+    CALL	Snd
+
+    MOV	RCX,cnts.time_stamp_freq>>3	//JIT Const.  Simple delay loop
+@@10:	LOOP	@@10
+
+    POP	RCX
+    LOOP	@@05
+  }
+  Snd(0);
+  return i;
+}
+
+"Beeps:%d\n",AsmAndC1;