; make the room dark if the lights are off
	; for use mostly on stoneship

dark_translate:
	ldx	#0

dark_translate_loop:

	lda	$c00,X
	tay
	lda	dark_translate_table,Y
	sta	$c00,X

	lda	$d00,X
	tay
	lda	dark_translate_table,Y
	sta	$d00,X

	lda	$e00,X
	tay
	lda	dark_translate_table,Y
	sta	$e00,X

	lda	$f00,X
	tay
	lda	dark_translate_table,Y
	sta	$f00,X

	dex
	bne	dark_translate_loop

	rts


; 0,1,3,4,5,8,9,b,c,d,e,f -> 0
; 2,6,7,A -> 2

dark_translate_table:
;	  0   1   2   3   4   5   6   7   8   9   A   B   C   D   E   F
.byte	$00,$00,$02,$00,$00,$00,$02,$02,$00,$00,$02,$00,$00,$00,$00,$00	; 0
.byte	$00,$00,$02,$00,$00,$00,$02,$02,$00,$00,$02,$00,$00,$00,$00,$00	; 1
.byte	$20,$20,$22,$20,$20,$20,$22,$22,$20,$20,$22,$20,$20,$20,$20,$20	; 2
.byte	$00,$00,$02,$00,$00,$00,$02,$02,$00,$00,$02,$00,$00,$00,$00,$00	; 3
.byte	$00,$00,$02,$00,$00,$00,$02,$02,$00,$00,$02,$00,$00,$00,$00,$00	; 4
.byte	$00,$00,$02,$00,$00,$00,$02,$02,$00,$00,$02,$00,$00,$00,$00,$00	; 5
.byte	$20,$20,$22,$20,$20,$20,$22,$22,$20,$20,$22,$20,$20,$20,$20,$20	; 6
.byte	$20,$20,$22,$20,$20,$20,$22,$22,$20,$20,$22,$20,$20,$20,$20,$20	; 7
.byte	$00,$00,$02,$00,$00,$00,$02,$02,$00,$00,$02,$00,$00,$00,$00,$00	; 8
.byte	$00,$00,$02,$00,$00,$00,$02,$02,$00,$00,$02,$00,$00,$00,$00,$00	; 9
.byte	$20,$20,$22,$20,$20,$20,$22,$22,$20,$20,$22,$20,$20,$20,$20,$20	; A
.byte	$00,$00,$02,$00,$00,$00,$02,$02,$00,$00,$02,$00,$00,$00,$00,$00	; B
.byte	$00,$00,$02,$00,$00,$00,$02,$02,$00,$00,$02,$00,$00,$00,$00,$00	; C
.byte	$00,$00,$02,$00,$00,$00,$02,$02,$00,$00,$02,$00,$00,$00,$00,$00	; D
.byte	$00,$00,$02,$00,$00,$00,$02,$02,$00,$00,$02,$00,$00,$00,$00,$00	; E
.byte	$00,$00,$02,$00,$00,$00,$02,$02,$00,$00,$02,$00,$00,$00,$00,$00	; F