Skip to content

Instantly share code, notes, and snippets.

@nixeagle

nixeagle/x86-opcodes.lisp

Created July 24, 2010 01:55
Show Gist options
  • Save nixeagle/488307 to your computer and use it in GitHub Desktop.
Save nixeagle/488307 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
x86-opcodes.lisp
(test (reg-reg :suite root)
"Should return values between #xC0 and #xFF only"
(loop repeat 10
do (let ((reg (nutils:random-elt
(remove :RESERVED
(remove :INVALID nass.x86oid.opcodes::+register-list+)))))
(is (<= #xC0 (nass.x86oid.opcodes::reg-reg reg reg) #xFF)
"~A ~X" reg (nass.x86oid.opcodes::reg-reg reg reg)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment