#lang scheme/base
(require "../asm.ss")
(instruction-set
(add (b f d) "1011 0100 0bdf ffff ffff ffff") (addl (b k d) "1011 0000 0bkk kkkk kkkk dddd") (addls (b w k d) "0100 0www wbqq qddd d11k kkkk") (add3 (b w q d p s) "0100 0www wbqq qddd dppp ssss")
(addac (a) "1100 1011 a000 0000 0000 0000")
(addc (b f d) "1011 0100 1bdf ffff ffff ffff")
(addcl (b k d) "1011 0000 1bkk kkkk kkkk dddd")
(addcls (b w k d) "0100 1www wbqq qddd d11k kkkk")
(addc3 (b w q d p s) "0100 1www wbqq qddd dppp ssss")
(alu (o b f d) "oooo oooo obdf ffff ffff ffff")
(alul (o b k d) "oooo oooo obkk kkkk kkkk dddd")
(aluls (o b w k d) "oooo owww wbqq qddd d11k kkkk")
(alu3 (o b w q d p s) "oooo owww wbqq qddd dppp ssss")
)