TempleOSCDV5.00.ISO

Demo/Asm/AsmAndC1.HC

@@ -19,9 +19,9 @@ _BEEPS::
 	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)
+//U0 $LK,"Beep",A="MN:Beep"$(I8 ona=62,Bool busy=FALSE)
 	PUSH	FALSE	//Do not busy (spin) wait
-	PUSH	500	//Hz
+	PUSH	62	//500 Hz
 	CALL	Beep
 	POP	RCX
 	LOOP	@@05
@@ -49,30 +49,26 @@ I64 AsmAndC1()
 //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.
+    MOV		RCX,&i[RBP] //You can clobber RAX,RBX,RCX,RDX.
+		//You better preserve the rest.
+@@05:	PUSH	RCX
 
-    @@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
+		//U0 $LK,"Snd",A="MN: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 $LK,"::/Compiler/OpCodes.DD"$.
+    ADD		RAX,40
     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
+    MOV		RCX,cnts.time_stamp_freq>>3 //JIT Const.  Simple delay loop
 @@10:	LOOP	@@10
 
-    POP	RCX
+    POP		RCX
     LOOP	@@05
   }
-  Snd(0);
+  Snd;
   return i;
 }
 

Demo/Asm/AsmAndC2.HC

@@ -7,7 +7,7 @@ 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;
+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.
@@ -27,9 +27,9 @@ _BEEPS2::
 	PUSH	U64 [&cnts.jiffies]
 
 @@05:	PUSH	RCX
-//U0 $LK,"Beep",A="MN:Beep"$(I64 freq=500,Bool busy=FALSE)
+//U0 $LK,"Beep",A="MN:Beep"$(I8 ona=62,Bool busy=FALSE)
 	PUSH	FALSE	//Do not busy (spin) wait
-	PUSH	U64 [&glbl_hz]	//evaluated at run time
+	PUSH	U64 [&glbl_ona]	//evaluated at run time
 	CALL	&Beep
 	POP	RCX
 	LOOP	@@05
@@ -64,28 +64,22 @@ U0 AsmAndC2()
   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
+//U0 $LK,"Snd",A="MN: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
-    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.
+    MOV	RCX,cnts.time_stamp_freq>>3 //JIT Const.  Simple delay loop.
 @@10:	LOOP	@@10
 
     POP	RCX
     LOOP	@@05
   }
-  Snd(0);
+  Snd;
 }
 
 AsmAndC2;