(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))