/[cl-x86-asm]/cl-x86-asm/x86asm-test.lisp
ViewVC logotype

Contents of /cl-x86-asm/x86asm-test.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Fri Mar 7 23:42:19 2008 UTC (6 years, 1 month ago) by jconnors
Branch: MAIN
CVS Tags: HEAD
Cleaned up indentation, added test cases.
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

  ViewVC Help
Powered by ViewVC 1.1.5