mist: octagon: properly draw tiny red page in distance if in fireplace

mist/octagon.s

@@ -82,6 +82,9 @@ game_loop:
 	cmp	#OCTAGON_GRID_BOOK
 	beq	looking_at_grid_book
 
+	cmp	#OCTAGON_IN_FIREPLACE
+	beq	in_fireplace_red_page
+
 	cmp	#OCTAGON_GREEN_BOOK_OPEN
 	beq	looking_at_green_book
 
@@ -165,6 +168,10 @@ looking_at_green_book:
 	jsr	draw_atrus_book
 	jmp	nothing_special
 
+in_fireplace_red_page:
+	jsr	draw_in_fireplace_red_page
+	jmp	nothing_special
+
 animate_red_book:
 	jsr	red_book_animation
 	jmp	nothing_special

mist/octagon_fireplace.s

@@ -21,6 +21,33 @@ close_fireplace:
 	jmp	change_location
 
 
+	;====================================
+	; draw tiny red page if in fireplace
+	;====================================
+
+draw_in_fireplace_red_page:
+
+	; only draw if out
+	lda	RED_PAGES_TAKEN
+	and	#OCTAGON_PAGE
+	bne	done_ifrp
+
+	; draw it at 11,22
+
+	lda	DRAW_PAGE
+	clc
+	adc	#$5
+	sta	ifrp_smc+2
+
+	lda	#$bb
+ifrp_smc:
+	sta	$5a8+11
+
+done_ifrp:
+	rts
+
+
+
 fireplace_shelf_action:
 
 	; see if button