Paste number 9286: Nevermore nupi status implementation

Paste number 9286: Nevermore nupi status implementation
Pasted by: nyef
When:13 years, 2 months ago
Share:Tweet this! | http://paste.lisp.org/+75Y
Channel:#lisp
Paste contents:
Raw Source | XML | Display As
(defun nupi-handle-command-nupi-status (rqb-address rqb-command-word)
  (let ((buffer-address (nupi-busmaster-read (+ rqb-address 8)))
	(transfer-length (nupi-busmaster-read (+ rqb-address 12))))
    (declare (ignorable transfer-length))
    (nupi-busmaster-write buffer-address 0)
    (nupi-busmaster-write (+ buffer-address 4) 0)
    (dotimes (i 7)
      (nupi-busmaster-write (+ buffer-address 8 (ash i 2)) #x10000000))
    ;; Same hack as in exploiter: First formatter, first drive only.
    ;; Minor change: The drive is write-protected.
    (nupi-busmaster-write (+ buffer-address 8) 0)
    (nupi-busmaster-write (+ buffer-address #x44) #x41000000)
    (nupi-busmaster-write (+ buffer-address #x48) #x10000000))
  (nupi-complete-request rqb-address rqb-command-word)
#+nil  (break))

This paste has no annotations.

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.