Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Twos-complement/FreeBASIC/twos-complement-2.basic
+++ b/Task/Twos-complement/FreeBASIC/twos-complement-2.basic
@ -0,0 +1,20 @@
+Dim As Integer a = &b000011
+Dim As Integer a2c, l
+#ifdef __FB_64BIT__
+    l = 16
+    Asm
+        mov rax, [a]
+        neg rax
+        mov [a2c], rax
+    End Asm
+#else
+    l = 8
+    Asm
+        mov eax, [a]
+        neg eax
+        mov [a2c], eax
+    End Asm
+#endif
+
+Print Bin(a, l); " -> "; Bin(a2c, l)
+Sleep