+ { $slide "Assembly"
+ "Access the Time Stamp Counter"
+ { $code
+"HOOK: rdtsc cpu ( -- n )
+
+M: x86.32 rdtsc
+ longlong { } cdecl [
+ RDTSC
+ ] alien-assembly ;
+
+M: x86.64 rdtsc
+ longlong { } cdecl [
+ RAX 0 MOV
+ RDTSC
+ RDX 32 SHL
+ RAX RDX OR
+ ] alien-assembly ;" }
+ }
+
+ { $slide "FFI"
+ { $code "NAME
+ sqrt – square root function
+
+SYNOPSIS
+ #include <math.h>
+
+ double
+ sqrt(double x);" }
+ "Let's use it!"
+ { $code "FUNCTION: double sqrt ( double x )" }
+ }
+
+ { $slide "Infix"
+ { "Syntax experiments with " { $vocab-link "infix" } }
+ "Infix word definitions:"
+ { $code "INFIX:: foo ( x y -- z ) sqrt(x)+y**3 ;" }
+ "Inline also:"
+ { $code "[let \"hello\" :> seq"
+ " [infix seq[::-1] infix]"
+ "]"
+ }
+ }
+