lemm: draw door opening to both pages

games/lemm/TODO

@@ -1,16 +1,15 @@
-+ wait with timeout at loading screen
-+ copy last frame of door animation to background
 + only dig if digger selected
++ ability to walk up hills
 + ability to explode
 + particle effects
 + wait a second after last lemming gone to exit
 + update the "in" %
 + proper check for successful vs not end of level
-+ ability to walk up hills
++ dig off the map, end level
 + level 5
   -- door animation
   -- music
 + let's go sound
 + fill in some of the ground so we don't get stuck when digging
-+ dig off the map, end level
+
 

games/lemm/draw_door.s

@@ -1,4 +1,6 @@
-
+	;=================
+	; draw the door
+	;=================
 
 draw_door:
 
@@ -19,6 +21,19 @@ draw_door:
 
 	jsr	hgr_draw_sprite
 
+	jsr	hgr_sprite_page_toggle
+
+	ldx	#9		; 63
+        stx     XPOS
+	lda	#36
+	sta	YPOS
+
+	jsr	hgr_draw_sprite
+
+	jsr	hgr_sprite_page_toggle
+
+
+
 	lda	FRAMEL
 	cmp	#7
 	bne	not_door_done

games/lemm/hgr_sprite.s

@@ -85,7 +85,11 @@ sprite_ysize_smc:
 	rts
 
 
-
+hgr_sprite_page_toggle:
+	lda	hgr_sprite_page_smc+1
+	eor	#$60
+	sta	hgr_sprite_page_smc+1
+	rts
 
 	;===========================================
 	; hgr draw sprite (only at 7-bit boundaries)

games/lemm/move_lemming.s

@@ -90,7 +90,6 @@ walking_yes_wall:
 	clc
 	adc	#1
 	sta	lemming_direction
-
 	lda	lemming_x
 
 walking_no_wall:
@@ -224,6 +223,8 @@ collision_check_ground:
 	and	#$7f
 	beq	ground_falling
 ground_walking:
+;	lda	#0
+;	sta	lemming_frame
 	lda	#LEMMING_WALKING
 	jmp	done_check_ground
 ground_falling: