Function: dos-set-register-value

dos-set-register-value is a byte-compiled function defined in dos-fns.el.gz.

Signature

(dos-set-register-value REGS NAME VALUE)

Source Code

;; Defined in /usr/src/emacs/lisp/dos-fns.el.gz
(defun dos-set-register-value (regs name value)
  (and (numberp value)
       (>= value 0)
       (let ((where (cdr (assoc name dos-register-name-alist))))
	 (cond ((consp where)
		(let ((tem (aref regs (car where)))
		      (value (logand value 255)))
		  (aset regs
			(car where)
			(if (zerop (cdr where))
			    (logior (logand tem 65280) value)
			  (logior (logand tem 255) (ash value 8))))))
	       ((numberp where)
		(aset regs where (logand value 65535))))))
  regs)