x86asm-test.lisp

   1
   2 (defpackage :cl-x86-asm-test
   3   (:use :cl :cl-x86-asm)
   4   (:nicknames :x86-asm-test))
   5
   6 (in-package :cl-x86-asm-test)
   7
   8 ;; initialise our table of instructions
   9 (make-instruction-hash-table)
  10
  11 ;; create a code segment
  12 (make-segment "text" :segment-type :data-segment :set-to-current t)
  13
  14 ;; assemble some code in it
  15 (assemble-forms
  16   '((.Entry :PUSH :EAX)
  17     (:SUB :EAX #XFFFEA)
  18     (:MOV :EAX :EBX)
  19     (:POP :EAX)
  20     (:PUSH :EAX)
  21     (.Exit :RET)))
  22
  23 ;; print the assembled segment
  24 (print-segment)
  25