(define display-bits
  '(unused-0
	unused-1
	unused-2
	unused-3
	unused-4
	unused-5
	unused-6
	unused-7
	unused-8
	unused-9
	bg0-active
	bg1-active
	bg2-active
	bg3-active
	spr-active
	win0-on
	win2-on
	spr-win-on))

(define (ds-get-mode mode)
  (define mode-2d
	'((0-2d . #x1000)
	  (1-2d . #x1001)
	  (2-2d . #x1002)
	  (3-2d . #x1003)
	  (4-2d . #x1004)
	  (5-2d . #x1005)
	  (6-2d . #x1006)))
  (let ((m (assoc mode mode-2d)))
	(if (not m)
		(error (string-append "Unrecognized mode :" (symbol->string mode)))
		(cdr m))))

(define video-set-mode (c-lambda (unsigned-int32) void "videoSetMode"))
(define video-set-mode-sub (c-lambda (unsigned-int32) void "videoSetMode"))