asm-directives.lisp

   1
   2 (in-package :cl-x86-asm)
   3
   4 (defparameter *asm-directives*
   5   (list
   6    (cons :DB
   7          (list (function (lambda (argument) (byte-p argument)))))
   8    (cons :DW
   9          (list (function (lambda (argument) (word-p argument)))))
  10    (cons :DD
  11          (list (function (lambda (argument) (dword-p argument)))))
  12    (cons :DQ
  13          (list (function (lambda (argument) (qword-p argument)))))
  14    (cons :DS
  15          (list (function (lambda (argument) (stringp argument))))
  16
  17
  18 (defun directive-db (argument) )
  19 (defun directive-dw (argument) )
  20 (defun directive-dd (argument) )
  21 (defun directive-dq (argument) )