Update printer

Author: jmct

asm/printer.rkt

@@ -13,6 +13,12 @@
                     (symbol->string o) " "
                     (arg->string a1) ", "
                     (arg->string a2) "\n")]    
+    [`(,(? opcode3? o) ,a1 ,a2 ,a3)
+     (string-append "\t"
+                    (symbol->string o) " "
+                    (arg->string a1) ", "
+                    (arg->string a2) ", "
+                    (arg->string a3) "\n")]    
     [`(jmp ,l)
      (string-append "\tjmp " (label->string l) "\n")]
     [`(je ,l)
@@ -30,6 +36,8 @@
     [`ret "\tret\n"]
     [`(neg ,a1)
      (string-append "\tneg " (arg->string a1) "\n")]
+    [`(not ,a1)
+     (string-append "\tnot " (arg->string a1) "\n")]
     [`(call ,l)
      (string-append "\tcall " (label->string l) "\n")]
     [`(push ,r)
@@ -39,6 +47,9 @@
 (define (opcode2? x)
   (memq x '(mov add sub cmp and cmovl xor or sal sar)))
 
+(define (opcode3? x)
+  (memq x '(shld shrd)))
+
 ;; Arg -> String
 (define (arg->string a)
   (match a