anchor.diff:  ;; CREATING THE COMMANDS
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
  -(def-nxt-command get-firmware-version #x01 #x88)
  -(def-nxt-command get-device-info      #x01 #x9b)
  -(def-nxt-command find-first           #x01 #x86 file-name (string 2 21))
  -(def-nxt-command find-next            #x01 #x87 handle    (ubyte 2))
  -(def-nxt-command nxt-close                #x01 #x84 handle     (ubyte 2))
  +
  +
  +
   
   
   ;; (def-nxt-command get-input-values     #x00 #x07 port       (ubyte 2))
  
positive.code:        :until (eql char 0)
         :do
         (write-char (code-char char) s))))
  
  (defun write-uword-to-command (vector value location)
    (setf (aref vector location) (ldb (byte 8 0) value))
  
negative.code:      :while (= (value-of 'status reply) 0)
       :collect reply
       :finally (close-module-handle :handle (value-of 'handle reply))))
       
  