scratch.lisp

(hexize (asm (:x86oid)
          (add :al :bl)
          (add :ax :bx)
          (add :eax :ebx)
          (add :al #x30)
          (add (make-displacement #x50) :al)
          (add :al (make-displacement #x50))
          (add (make-indirect-base :si :bp) :bx)
          (add :eax (make-indirect-base :si :bp))
          (lodsb)
          (lodsw)
          (int #x80)
          (push :si)))
;;=> "00 C3 | 01 C3 | 66 01 C3 | 04 30 | 00 06 | 02 06 | 01 1C | 66 03 04 | AC | AD | CD 80 | 56"