;;;;; -*- mode: common-lisp -*-

;; Addressing Mode Symbols 
'(immediate
  absolute 
  zero-page 
  implied 
  indirect-absolute 
  absolute-indexed-x 
  absolute-indexed-y 
  zero-page-indexed-x 
  zero-page-indexed-y 
  indexed-indirect 
  indirect-indexed 
  relative 
  accumulator)

;; Applying a syntax rule defined
;; in *addressing-modes-syntax*
(funcall
 (eval
  (cadar
   *addressing-modes-syntax*))
 "arg")