Moved around functions in files.

1 files changed, 0 insertions, 51 deletions

diff --git a/6502.lisp b/6502.lisp
index 7c0c2a7..55a73cd 100644
--- a/6502.lisp
+++ b/6502.lisp
@@ -202,17 +202,6 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
    (NOP 234 (implied))
    (BRK   0 (implied))))
 
-
-
-(defun extract-keys (list)
-  "Extract the keys of associative lists."
-  (let ((ret nil))
-	(progn
-	  (dolist (i list)
-		(setf ret
-			  (cons (car i) ret)))
-	  (reverse ret))))
-
 ;; Generated list of opcodes.
 (setf
  *opcodes*
@@ -225,46 +214,6 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 			 (caddr (assoc instruction *instructions*))) t)
 	(t nil)))
 
-(defun hexd? (string)
-  "Is a string a hexd number?"
-  (let ((stack ()))
-	(dotimes (i (length string))
-	  (push
-	   (or (and (char-not-lessp
-				 (char string i) #\0)
-				(char-not-greaterp
-				 (char string i) #\9))
-		   (and (char-not-lessp
-				 (char string i) #\A)
-				(char-not-greaterp
-				 (char string i) #\F)))
-	   stack))
-	(push 'and stack)
-	(eval stack)))
-
-(defun hex2dec (string)
-  "Convert an arbitrarily sized hexd number (as string) to a positive decimal."
-  (flet ((hex (c)
-		   (cond
-			 ((and (char-not-lessp c #\0)
-				   (char-not-greaterp c #\9))
-			  (- (char-code c)
-				 (char-code #\0)))
-			 ((and (char-not-lessp c #\A)
-				   (char-not-greaterp c #\F))
-			  (+ (- (char-code (char-downcase c))
-					(char-code #\a))
-				 10)))))
-	(let ((ret 0))
-	  (do ((i 0 (incf i))
-		   (j (- (length string) 1) (decf j)))
-		  ((minusp j) ())
-		(setf ret
-			  (+ ret
-				 (* (expt 16 j)
-					(hex (char string i))))))
-	  ret)))
-
 ;; A list with with the respective rules of some
 ;; addressing mode syntax.
 (setf