diff --git a/tb1_snes/checksum.inc b/tb1_snes/checksum.inc
index 84b7d3c..e306578 100644
--- a/tb1_snes/checksum.inc
+++ b/tb1_snes/checksum.inc
@@ -1,2 +1,2 @@
-	.word	$da00		; Complement of checksum
-	.word	$25ff		; Unsigned 16-bit sum of ROM
+	.word	$cbd3		; Complement of checksum
+	.word	$342c		; Unsigned 16-bit sum of ROM
diff --git a/tb1_snes/level_1.s b/tb1_snes/level_1.s
index a3c77e3..c1d1e41 100644
--- a/tb1_snes/level_1.s
+++ b/tb1_snes/level_1.s
@@ -19,6 +19,9 @@ joypad2		= $01
 shipx		= $02
 star_scroll	= $03
 star_scroll_h	= $04	; 0004 too, 16-bit
+RANDOM_SEED     = $05
+YSAV		= $06
+YSAV_H		= $07
 
 HISCORE_1	= $cb
 HISCORE_2	= $cc
@@ -329,19 +332,13 @@ level1_setup_video:
 	sta	HISCORE_L
 
 	; modestly make me the high scorer
-	lda     #$D6
+	lda     #'V'
 	sta	HISCORE_1
-	lda	#$CD
+	lda	#'M'
 	sta	HISCORE_2
-	lda	#$D7
+	lda	#'W'
 	sta	HISCORE_3
 
-;	lda	#>(score_string+31)
-;	sta	STRINGH
-;	lda	#<(score_string+31)
-;	sta	STRINGL
-	jsr	print_high_score
-
 
 ;==========================================================
 ; START NEW GAME
@@ -352,48 +349,39 @@ do_new_game:
 
 	;; set up struct pointers
 
-	lda	#>missile_0	       ; clear the missile struct
-	sta	MISSILE_PH	       ; should make this clear all BSS
-	lda	#<missile_0	       ; at some point
-	sta	MISSILE_PL
+	ldx	#.LOWORD(missile_0)	; setup missle struct pointer
+	stx	MISSILE_PL
 
-	lda	#>enemy_0
-	sta	ENEMY_PH
-	lda	#<enemy_0
-	sta	ENEMY_PL
+	ldx	#.LOWORD(enemy_0)	; setup enemy struct pointer
+	stx	ENEMY_PL
 
 	;; Clear BSS
 
-	ldy	#$0
-	lda	#$0
+	ldx	#$0
 clear_bss:
-	sta     start_bss,Y
-	iny
-	cpy	#end_bss-start_bss
+	stz	start_bss,X
+	inx
+	cpx	#end_bss-start_bss
 	bne	clear_bss
 
 	;; Init one-time vars
 
-	lda	#104
-	sta	shipx
-
 	stz	star_scroll
 	stz	star_scroll_h
 
 	lda	#$8
-	sta	SHIELDS		       ; shields start at 8
-	jsr	update_shields
+	sta	SHIELDS			; shields start at 8
+;	jsr	update_shields
 
-;	lda	#$12
-;	sta	SHIPX		       ; shipx at start is 18
+	lda	#104
+	sta	shipx			; shipx at start is 18
 
 	lda	#$1
-	sta	LEVEL		       ; start at level 1
+	sta	LEVEL			; start at level 1
 
-	lda	#$0
-	sta	SCOREL
-	sta	SCOREH
-	jsr	print_score
+	stz	SCOREL
+	stz	SCOREH
+;	jsr	print_score
 
 new_level:
 
@@ -402,18 +390,17 @@ new_level:
 	;========================
 
 	lda	#(PERFECT_AIM|PERFECT_SHIELDS|PERFECT_KILLS)
-	sta	BONUS_FLAGS	       ; set perfect shot/shield/enemies
+	sta	BONUS_FLAGS		; set perfect shot/shield/enemies
 
 	lda	#$14
-	sta	ENEMY_WAIT
+	sta	ENEMY_WAIT		; ???
 
-	lda	#$0
-	sta	BETWEEN_DELAY
-	sta	SHIPXADD	       ; clear shipxadd
-	sta	ENEMY_WAVE
-	sta	TOTAL_ENEMIES_OUT
-	sta	ENEMIES_SPAWNED
-	sta	ENEMY_TYPE
+	stz	BETWEEN_DELAY
+	stz	SHIPXADD	       ; clear shipxadd
+	stz	ENEMY_WAVE
+	stz	TOTAL_ENEMIES_OUT
+	stz	ENEMIES_SPAWNED
+	stz	ENEMY_TYPE
 
 	;=======================
 	; Print "LEVEL X"
@@ -431,10 +418,10 @@ new_level:
 ;	lda	#<(level_string+9)
 ;	sta	STRINGL
 
-	lda	#0
-	sta	BCD_BYTEH
-	lda	LEVEL
-	sta	BCD_BYTE
+;	lda	#0
+;	sta	BCD_BYTEH
+;	lda	LEVEL
+;	sta	BCD_BYTE
 ;	jsr	print_bcd_byte
 
 
@@ -453,183 +440,163 @@ new_level:
 ;	jsr	wait_X_100msec	       ; pause for 3 seconds
 ;	bit	KEYRESET	       ; clear keyboard	
 
-	;==================================
-	; Enter graphics mode, clear screen
-	;==================================
-
-
 
+        ;/========================\
+	;+                        +
+	;+    MAIN LEVEL1 LOOP    +
+	;+                        +
+	;\========================/
 
 level1_loop:
 
 	wai			; wait for interrupt
 
-
-        ;/========================\
-	;+                        +
-	;+    MAIN GAME LOOP      +
-	;+                        +
-	;\========================/
-
-main_game_loop:
-;	jsr	clear_screen	       ; clear screen
-;	jsr	show_stars
-
-
-
-	
-
-done_scrolling:
-
-        ; ================================
+	; ================================
 	;  put out new enemies (if needed)
 	; ================================
-	
-	inc     BETWEEN_DELAY          ; inc how long we've delayed
-	lda	BETWEEN_DELAY          ; load it in
-	cmp	ENEMY_WAIT	       ; have we waited long enough?
-	beq     reset_delay
-	
-	jmp	move_enemies	       ; if not, go on to movement
-reset_delay:
+
+;	inc	BETWEEN_DELAY	; inc how long we've delayed
+;	lda	BETWEEN_DELAY	; load it in
+;	cmp	ENEMY_WAIT	; have we waited long enough?
+;	beq     reset_delay
+
+;	jmp	move_enemies	; if not, go on to movement
+
+;reset_delay:
 
 	; delay==wait, so attempt to put out new enemy
 
-	lda	BETWEEN_DELAY
-	and	#$1
-	sta	BETWEEN_DELAY          ; reset delay
+;	lda	BETWEEN_DELAY
+;	and	#$1
+;	sta	BETWEEN_DELAY          ; reset delay
 
 	; special case for boss
-  
-	lda	#$9		       ; if boss, don't keep track of
-	cmp	ENEMY_TYPE	       ; how many enemies were spawned
-	bne	not_boss_dont_clear
 
-	lda	#$1		       ; store 1 so we don't increment wave
-	sta	ENEMIES_SPAWNED
+;	lda	#$9			; if boss, don't keep track of
+;	cmp	ENEMY_TYPE		; how many enemies were spawned
+;	bne	not_boss_dont_clear
 
-not_boss_dont_clear:
+;	lda	#$1			; store 1 so we don't increment wave
+;	sta	ENEMIES_SPAWNED
+
+;not_boss_dont_clear:
 
 	; see if we are at a new wave
 	; basically, if 16 have been spawned, change
 
-	lda   	ENEMIES_SPAWNED
-	and	#$0f
-        bne	same_enemy_type	       ; if not 16 gone by, move on
+;	lda	ENEMIES_SPAWNED
+;	and	#$0f
+;	bne	same_enemy_type		; if not 16 gone by, move on
 
 	;=======================
 	; change  the enemy type
 
-	inc	ENEMIES_SPAWNED
+;	inc	ENEMIES_SPAWNED
 
 ;	jsr	random_number
-	and	#$7	     	       ; get a random number 0-7
-	sta	ENEMY_TYPE
+;	and	#$7			; get a random number 0-7
+;	sta	ENEMY_TYPE
 
-	inc	ENEMY_WAVE
+;	inc	ENEMY_WAVE
 
-	lda	ENEMY_WAVE		; have we gone enough waves to reach boss?
-	cmp	#WAVES_TILL_BOSS
-	bne	not_boss_yet
+;	lda	ENEMY_WAVE		; have we enough waves to reach boss?
+;	cmp	#WAVES_TILL_BOSS
+;	bne	not_boss_yet
 
-	lda	#$8
-	sta	ENEMY_TYPE
+;	lda	#$8
+;	sta	ENEMY_TYPE
 
-not_boss_yet:
+;not_boss_yet:
 
 	; set various constants
 	; these may be overriden later
 
-	lda	#20
-	sec
-	sbc	LEVEL
-	sta	ENEMY_WAIT		; enemy_wait=20-level
-	
+;	lda	#20
+;	sec
+;	sbc	LEVEL
+;	sta	ENEMY_WAIT		; enemy_wait=20-level
+
 	; set kind and init x to be random by default
-	
-	lda	#$ff
-	sta	CURRENT_ENEMY_KIND
-	sta	CURRENT_INIT_X
-
 
+;	lda	#$ff
+;	sta	CURRENT_ENEMY_KIND
+;	sta	CURRENT_INIT_X
 
 same_enemy_type:
 
 	; find empty enemy slot
-	
-	ldy	#$0		       ; point to enemies[0]
-	tya
+
+;	ldy	#$0		       ; point to enemies[0]
+;	tya
 
 find_empty_enemy:
-	pha
-	lda     (ENEMY_PL),Y	       ; get enemy[y].out	
-	beq	add_enemy
-	
-	pla
-        clc
-	adc	#$9
-	tay
-	cpy	#(NUM_ENEMIES*9)
-	bne	find_empty_enemy
-	
-	
-	jmp	move_enemies	       ; no empty, slots, move on
-	
-	
+;	pha
+;	lda     (ENEMY_PL),Y	       ; get enemy[y].out
+;	beq	add_enemy
+
+;	pla
+;	clc
+;	adc	#$9
+;	tay
+;	cpy	#(NUM_ENEMIES*9)
+;	bne	find_empty_enemy
+
+;	jmp	move_enemies	       ; no empty, slots, move on
+
 add_enemy:
-	pla
-	
+;	pla
+
 	;==============================================
 	; First see if we must wait for enemy to clear
 	; types 2 and 8
-	
-	lda	ENEMY_TYPE
-	cmp	#$2
 
-	bne	check_type_8
+;	lda	ENEMY_TYPE
+;	cmp	#$2
 
-	lda	TOTAL_ENEMIES_OUT
-	beq     change_to_type_3
-	jmp	move_enemies
+;	bne	check_type_8
+
+;	lda	TOTAL_ENEMIES_OUT
+;	beq     change_to_type_3
+;	jmp	move_enemies
 change_to_type_3:
-	lda	#$3
-	sta	ENEMY_TYPE
+;	lda	#$3
+;	sta	ENEMY_TYPE
 
 ;	jsr	random_number
-	and	#$8
-	sta	CURRENT_ENEMY_KIND
+;	and	#$8
+;	sta	CURRENT_ENEMY_KIND
 
 ;	jsr	random_number
-	and	#$1F	      	       ; mask off so 0-31
-	clc
-	adc	#$2
-	asl	A
-	sta	CURRENT_INIT_X
-	jmp	setup_enemy_defaults
-	
-check_type_8:	
+;	and	#$1F	      	       ; mask off so 0-31
+;	clc
+;	adc	#$2
+;	asl	A
+;	sta	CURRENT_INIT_X
+;	jmp	setup_enemy_defaults
 
-        cmp	#$8
-	beq	before_boss_stuff
-	jmp	check_type_9
+check_type_8:
+
+;	cmp	#$8
+;	beq	before_boss_stuff
+;	jmp	check_type_9
 
 before_boss_stuff:
 
 	;======================
 	; before boss stuff
-	
-	lda	TOTAL_ENEMIES_OUT
-	beq	prepare_for_boss
-	jmp	move_enemies
+
+;	lda	TOTAL_ENEMIES_OUT
+;	beq	prepare_for_boss
+;	jmp	move_enemies
 
 prepare_for_boss:
 
 	;===============
 	; HANDLE BONUSES
 	;===============
-	
+
 	; Set text mode
-	
+
 ;	jsr	set_page0_text
 ;	jsr	HOME
 
@@ -644,17 +611,17 @@ prepare_for_boss:
 
 	; Check to see if we had any bonuses
 
-	lda	#$C1
-	bit	BONUS_FLAGS
-	beq	no_bonus
+;	lda	#$C1
+;	bit	BONUS_FLAGS
+;	beq	no_bonus
 
 
 	; Check if we had no hits on shields
-	
-perfect_shields:
-	bpl 	perfect_kills
 
-	jsr	score_plus_50
+perfect_shields:
+;	bpl 	perfect_kills
+
+;	jsr	score_plus_50
 
 ;	lda	#>bonus_shields
 ;	sta	STRINGH
@@ -667,10 +634,10 @@ perfect_shields:
 	; See if we killed all the enemies
 
 perfect_kills:
-	bit	BONUS_FLAGS
-	bvc	perfect_aim
+;	bit	BONUS_FLAGS
+;	bvc	perfect_aim
 
-	jsr	score_plus_50
+;	jsr	score_plus_50
 
 ;	lda	#>bonus_kills
 ;	sta	STRINGH
@@ -682,20 +649,20 @@ perfect_kills:
 	; See if no missiles missed
 
 perfect_aim:
-	lda 	#$01
-	bit	BONUS_FLAGS
-	beq	done_bonus
+;	lda 	#$01
+;	bit	BONUS_FLAGS
+;	beq	done_bonus
 
-	jsr	score_plus_50
+;	jsr	score_plus_50
 
-;        lda	#>bonus_aim
+;	lda	#>bonus_aim
 ;	sta	STRINGH
 ;	lda	#<bonus_aim
 ;	sta	STRINGL
 
 ;	jsr	print_text_xy          ; print text
 
-	jmp 	done_bonus
+;	jmp 	done_bonus
 
 	; we had no bonuses
 
@@ -711,7 +678,7 @@ no_bonus:
 
 done_bonus:
 
-	ldx	#30
+;	ldx	#30
 ;	jsr	wait_X_100msec	       ; pause for 3 seconds
 ;	bit	KEYRESET	       ; clear keyboard
 
@@ -722,120 +689,120 @@ done_bonus:
 	;======================
 	; setup boss
 
-	lda	#$0C
-	sta	BOSS_X			; boss_x = 13
+;	lda	#$0C
+;	sta	BOSS_X			; boss_x = 13
 
-	lda	#$1
-	sta	BOSS_XADD		; boss_xadd=1
-	sta	BOSS_WAITING		; boss_waiting=1
+;	lda	#$1
+;	sta	BOSS_XADD		; boss_xadd=1
+;	sta	BOSS_WAITING		; boss_waiting=1
 
 ;	jsr	random_number
-	and	#$1f
-	sta	BOSS_COUNT		; boss_count = rand%32
+;	and	#$1f
+;	sta	BOSS_COUNT		; boss_count = rand%32
 
-	lda	#$0
-	sta	BOSS_SMOKE		; boss_smoke=0
-	sta	BOSS_EXPLODING		; boss_exploding=0
-	sta	BOSS_SHOOTING		; boss_shooting=0
+;	lda	#$0
+;	sta	BOSS_SMOKE		; boss_smoke=0
+;	sta	BOSS_EXPLODING		; boss_exploding=0
+;	sta	BOSS_SHOOTING		; boss_shooting=0
+
+;	lda	LEVEL
+;	asl	A
+;	clc
+;	adc	#$10
+;	sta	BOSS_HITS		; boss_hits=(level*2)+20
+
+;	lda	#$9
+;	sta	ENEMY_TYPE		; enemy_type=9
+
+;	jmp	move_enemies
 
-	lda	LEVEL
-	asl	A
-	clc
-	adc	#$10
-	sta	BOSS_HITS		; boss_hits=(level*2)+20
 
-	lda	#$9
-	sta	ENEMY_TYPE		; enemy_type=9
-	
-	jmp	move_enemies
-	
-	
 check_type_9:
 
 	; if boss, and he's waiting,
 	; don't produce enemies
-	
-	cmp	#$9
-	bne	setup_enemy_defaults
-	lda	BOSS_WAITING
-	beq	setup_enemy_defaults
-	jmp     move_enemies
-	
-	
+
+;	cmp	#$9
+;	bne	setup_enemy_defaults
+;	lda	BOSS_WAITING
+;	beq	setup_enemy_defaults
+;	jmp     move_enemies
+
+
 	;========================
 	; setup enemy defaults
 setup_enemy_defaults:
-	inc	ENEMIES_SPAWNED
-	inc	TOTAL_ENEMIES_OUT
+;	inc	ENEMIES_SPAWNED
+;	inc	TOTAL_ENEMIES_OUT
 
-	lda	#$1
-	sta	(ENEMY_PL),Y	       ; enemy[i].out=1
+;	lda	#$1
+;	sta	(ENEMY_PL),Y	       ; enemy[i].out=1
 
-	lda	#$0
-	iny	; exploding
-	sta	(ENEMY_PL),Y	       ; enemy[i].exploding=0
+;	lda	#$0
+;	iny	; exploding
+;	sta	(ENEMY_PL),Y	       ; enemy[i].exploding=0
 
-	iny	; kind
+;	iny	; kind
 
-	lda	CURRENT_ENEMY_KIND     ; if kind <0 then random
-	bpl	store_enemy_kind
+;	lda	CURRENT_ENEMY_KIND     ; if kind <0 then random
+;	bpl	store_enemy_kind
 
 ;	jsr	random_number
-	and	#$38
+;	and	#$38
 
-	jmp	store_enemy_kind
+;	jmp	store_enemy_kind
 
 store_enemy_kind:
-	sta	(ENEMY_PL),Y
+;	sta	(ENEMY_PL),Y
 
 	; determine enemy _x
 	; if < 0, make random between 2->34
 
-	lda     CURRENT_INIT_X
-	bpl	store_init_x
+;	lda     CURRENT_INIT_X
+;	bpl	store_init_x
 
 ;	jsr	random_number
-	and	#$1f
-	clc
-	adc	#$2
-	asl
+;	and	#$1f
+;	clc
+;	adc	#$2
+;	asl
 
 store_init_x:
-	iny	; X
-	sta	(ENEMY_PL),Y
+;	iny	; X
+;	sta	(ENEMY_PL),Y
 
 	; enemy_y is always 0 by default
 
-	iny	; Y
-	lda	#$0
-	sta	(ENEMY_PL),Y
-	
-	lda	#$0
-	iny
-	sta	(ENEMY_PL),Y	       ; xadd
-	iny
-	sta	(ENEMY_PL),Y	       ; yadd
-	lda	#$2
-	iny
-	sta	(ENEMY_PL),Y	       ; xmin
-	iny
-	lda	#$24
-	sta	(ENEMY_PL),Y	       ; ymin
+;	iny	; Y
+;	lda	#$0
+;	sta	(ENEMY_PL),Y
 
-	dey			       ; xmin
-	dey			       ; yadd
-	dey			       ; xadd
+;	lda	#$0
+;	iny
+;	sta	(ENEMY_PL),Y	       ; xadd
+;	iny
+;	sta	(ENEMY_PL),Y	       ; yadd
+;	lda	#$2
+;	iny
+;	sta	(ENEMY_PL),Y	       ; xmin
+;	iny
+;	lda	#$24
+;	sta	(ENEMY_PL),Y	       ; ymin
+
+;	dey			       ; xmin
+;	dey			       ; yadd
+;	dey			       ; xadd
 
 
 	;===========================================
 	; Enemy specific inits
-	
-	lda	ENEMY_TYPE
-	beq	enemy_type_0
-	cmp	#$1
-	beq	enemy_type_1
-	jmp	enemy_type_2
-   
+
+;	lda	ENEMY_TYPE
+;	beq	enemy_type_0
+;	cmp	#$1
+;	beq	enemy_type_1
+;	jmp	enemy_type_2
+
 enemy_type_0:
 enemy_type_1:
 
@@ -844,154 +811,154 @@ enemy_type_1:
 	; diagonal, no wait
 	; movement proportional to level
 
-	lda	LEVEL		       ; xadd = level
-	sta	(ENEMY_PL),Y
+;	lda	LEVEL		       ; xadd = level
+;	sta	(ENEMY_PL),Y
 
-	iny
+;	iny
 
-	lsr	A
-	ora	#$1		       
-	sta	(ENEMY_PL),Y	       ; yadd = level/2
-	jmp	move_enemies
+;	lsr	A
+;	ora	#$1
+;	sta	(ENEMY_PL),Y	       ; yadd = level/2
+;	jmp	move_enemies
 
 enemy_type_2:
 	;=====================
 	; Enemy Type 2
 	; just a place-holder
 	; waits for enemies to die then moves on to 3
-	
-	cmp	#$2
-	bne	enemy_type_3
-	jmp	move_enemies
+
+;	cmp	#$2
+;	bne	enemy_type_3
+;	jmp	move_enemies
 
 
 enemy_type_3:
 
-	cmp  	#$3
-	bne	enemy_type_4
+;	cmp  	#$3
+;	bne	enemy_type_4
 
 	;======================
 	; Enemy type 3
-	
-	lda	#$1
-	sta	(ENEMY_PL),Y		; xadd=1
-	
-	iny
-	
-	lda	LEVEL
-	sta	(ENEMY_PL),Y		; yadd=level
-	
-	jmp	move_enemies
+
+;	lda	#$1
+;	sta	(ENEMY_PL),Y		; xadd=1
+
+;	iny
+
+;	lda	LEVEL
+;	sta	(ENEMY_PL),Y		; yadd=level
+
+;	jmp	move_enemies
 
 enemy_type_4:
 
-	cmp	#$4
-	bne	enemy_type_5
+;	cmp	#$4
+;	bne	enemy_type_5
 
 
 	;=========================
 	; Enemy Type 4
 	; Horizontal, then fall
 
-	lda	#$2
-	sta	(ENEMY_PL),Y		; xadd = 2
+;	lda	#$2
+;	sta	(ENEMY_PL),Y		; xadd = 2
 
-	iny
+;	iny
 
 ;	jsr	random_number
-	ora	#$80	     		; set negative
-	sta	(ENEMY_PL),y		; yadd = -(random%128)
+;	ora	#$80	     		; set negative
+;	sta	(ENEMY_PL),y		; yadd = -(random%128)
 					; this means bop back and forth a random
 					; time, then drop
-					
-	jmp	move_enemies
+
+;	jmp	move_enemies
 
 
 enemy_type_5:
-	cmp     #$5
-	bne	enemy_type_6
-	
+;	cmp     #$5
+;	bne	enemy_type_6
+
 	;========================
 	; Enemy Type 5
 	; "wiggle"
 
-	lda	#$1
-	sta	(ENEMY_PL),y		; xadd=1
+;	lda	#$1
+;	sta	(ENEMY_PL),y		; xadd=1
 
-	iny
-	lda	LEVEL
-	sta	(ENEMY_PL),y		; yadd=2
+;	iny
+;	lda	LEVEL
+;	sta	(ENEMY_PL),y		; yadd=2
 
-	iny
+;	iny
 ;	jsr	random_number
-	and	#$0f
-	clc
-	adc	#$2
-	sta	(ENEMY_PL),y		; xmin=(rand%16)+2
+;	and	#$0f
+;	clc
+;	adc	#$2
+;	sta	(ENEMY_PL),y		; xmin=(rand%16)+2
 
 
-	dey ; yadd
-	dey ; xadd
-	dey ; y
-	dey ;x
-	asl    A
-	sta    (ENEMY_PL),y
-	iny ;y
-	iny ; xadd
-	iny ; yadd
-	iny ; xmin
+;	dey 	; yadd
+;	dey 	; xadd
+;	dey 	; y
+;	dey 	; x
+;	asl    A
+;	sta    (ENEMY_PL),y
+;	iny 	; y
+;	iny 	; xadd
+;	iny 	; yadd
+;	iny 	; xmin
 
 ;	jsr	random_number
-	and	#$0f
-	clc
-	adc	(ENEMY_PL),Y
-	adc	#$02
-	iny
-	sta	(ENEMY_PL),Y		; xmax = xmin+(rand%16)+2
+;	and	#$0f
+;	clc
+;	adc	(ENEMY_PL),Y
+;	adc	#$02
+;	iny
+;	sta	(ENEMY_PL),Y		; xmax = xmin+(rand%16)+2
 
-	jmp	move_enemies
+;	jmp	move_enemies
 
 
 enemy_type_6:
-	cmp     #$6
-	beq	enemy_type_7
-	cmp	#$7
-	beq	enemy_type_7
-	jmp	enemy_type_8
+;	cmp     #$6
+;	beq	enemy_type_7
+;	cmp	#$7
+;	beq	enemy_type_7
+;	jmp	enemy_type_8
 enemy_type_7:
 	;=====================
 	; Enemy Types 6+7
 	; "Rain"
 
 ;	jsr	random_number
-	and	#6
-	bne	no_use_own_x
+;	and	#6
+;	bne	no_use_own_x
 
-	dey ; y
-	dey ; x
+;	dey 	; y
+;	dey 	; x
 
-	lda	shipx
-	cmp	#$2
-	bpl	shipx_ok
-	lda	#$2			; stupid bug where gets stuck is < xmin
+;	lda	shipx
+;	cmp	#$2
+;	bpl	shipx_ok
+;	lda	#$2			; stupid bug where gets stuck is < xmin
 
 shipx_ok:
 
-	asl	A
-	sta	(ENEMY_PL),Y		; one-in-four chance we use shipx as X
+;	asl	A
+;	sta	(ENEMY_PL),Y		; one-in-four chance we use shipx as X
 
-	iny ; y
-	iny ; xadd
+;	iny 	; y
+;	iny 	; xadd
 
 no_use_own_x:
 
-	lda	#$0
-	sta	(ENEMY_PL),Y		; xadd=0
-	iny
-	lda	#$1
-	sta	(ENEMY_PL),Y		; yadd = 1
+;	lda	#$0
+;	sta	(ENEMY_PL),Y		; xadd=0
+;	iny
+;	lda	#$1
+;	sta	(ENEMY_PL),Y		; yadd = 1
 
-	jmp	move_enemies
+;	jmp	move_enemies
 
 enemy_type_8:
 enemy_type_9:
@@ -1000,50 +967,48 @@ enemy_type_9:
 	; Things flung by boss
 
 
-	dey	       	      		; y
-	dey				; x
-	
-	lda	BOSS_X
-	clc
-	adc	#$5
-	asl	A
-	sta	(ENEMY_PL),Y		; enemy_x=boss_x+5
-	
-	iny
-	lda	#$3
-	asl	A
-	asl	A
-	sta	(ENEMY_PL),Y		; enemy_y=3
+;	dey	       	      		; y
+;	dey				; x
+
+;	lda	BOSS_X
+;	clc
+;	adc	#$5
+;	asl	A
+;	sta	(ENEMY_PL),Y		; enemy_x=boss_x+5
+
+;	iny
+;	lda	#$3
+;	asl	A
+;	asl	A
+;	sta	(ENEMY_PL),Y		; enemy_y=3
 
 
-	iny
-	lda	#$0
-	sta	(ENEMY_PL),Y		; xadd=0
-	
-	iny
-	lda	#$2
-	sta	(ENEMY_PL),Y		; yadd=2
-	
-	
+;	iny
+;	lda	#$0
+;	sta	(ENEMY_PL),Y		; xadd=0
+
+;	iny
+;	lda	#$2
+;	sta	(ENEMY_PL),Y		; yadd=2
+
 
 
-	
 move_enemies:
 
   ;==============================================
   ; Move Enemies!  (first thing, if no new added)
   ;==============================================
 
-	ldy	#$0		       ; point to enemies[0]
+;	ldy	#$0		       ; point to enemies[0]
 handle_enemies:
 
-	tya
-	pha			       ; store y on stack
-	
-	lda     (ENEMY_PL),Y	       ; get enemy[y].out
-	bne	load_enemy_zero_page   ; if enemy.out then we are good
+;	tya
+;	pha			       ; store y on stack
 
-	jmp	skip_to_next_enemy     ; enemy is not out, so skip to next
+;	lda     (ENEMY_PL),Y	       ; get enemy[y].out
+;	bne	load_enemy_zero_page   ; if enemy.out then we are good
+
+;	jmp	skip_to_next_enemy     ; enemy is not out, so skip to next
 
 
 
@@ -1051,118 +1016,118 @@ handle_enemies:
    ; load this enemy stuff into zero page for
    ; easier access
    ;==========================================
-	
-load_enemy_zero_page:	
-	ldx	#ENEMY_EXPLODING
+
+load_enemy_zero_page:
+;	ldx	#ENEMY_EXPLODING
 load_to_zero_page:
-	iny			       ; point to exploding
-	lda	(ENEMY_PL),Y
-	sta	0,X	    	       ; store to zero page	
-	inx
-	cpx	#(ENEMY_XMAX+1)	       ; see if reached end
-	bne	load_to_zero_page      ; if not keep copying
+;	iny			       ; point to exploding
+;	lda	(ENEMY_PL),Y
+;	sta	0,X	    	       ; store to zero page
+;	inx
+;	cpx	#(ENEMY_XMAX+1)	       ; see if reached end
+;	bne	load_to_zero_page      ; if not keep copying
 
    ;================================
    ; skip all movement and collision
    ; if exploding
    ;================================
-   
-        lda	ENEMY_EXPLODING
-	beq     move_enemy_x
-	jmp	draw_enemy
+
+;	lda	ENEMY_EXPLODING
+;	beq     move_enemy_x
+;	jmp	draw_enemy
 
    ;================================
    ; Start the enemy movement engine
    ;================================
 
-  
+
      ;========
      ; Move X
      ;========
-     
+
 move_enemy_x:
-	clc
-	lda	ENEMY_X	       	       ; X
-	adc	ENEMY_XADD	       ; x+=xadd
-	sta	ENEMY_X
+;	clc
+;	lda	ENEMY_X	       	       ; X
+;	adc	ENEMY_XADD	       ; x+=xadd
+;	sta	ENEMY_X
 
-	lsr	A
+;	lsr	A
 
-	cmp	ENEMY_XMIN	       ; are we less than xmin?
-        bmi	switch_dir_enemy_x     ; if so, switch direction
+;	cmp	ENEMY_XMIN	       ; are we less than xmin?
+;	bmi	switch_dir_enemy_x     ; if so, switch direction
 
-	cmp	ENEMY_XMAX	       ; are we greater than xmax?
-	bpl	switch_dir_enemy_x     ; if so, switch direction
-	
-	jmp	move_enemy_y
+;	cmp	ENEMY_XMAX	       ; are we greater than xmax?
+;	bpl	switch_dir_enemy_x     ; if so, switch direction
+
+;	jmp	move_enemy_y
 
 
 switch_dir_enemy_x:
 
 	; switch X direction
 
-	lda	#$0	    	       ; load zero
-	sec			       
-	sbc	ENEMY_XADD	       ; 0 - ENEMY_XADD
-	sta	ENEMY_XADD	       ; store it back out, negated
-	jmp	move_enemy_x	       ; re-add it in
+;	lda	#$0	    	       ; load zero
+;	sec
+;	sbc	ENEMY_XADD	       ; 0 - ENEMY_XADD
+;	sta	ENEMY_XADD	       ; store it back out, negated
+;	jmp	move_enemy_x	       ; re-add it in
 
      ;========
      ; Move Y
      ;========
-     
+
 move_enemy_y:
 
-	lda	#$0		       ; load in zero
-	cmp	ENEMY_YADD	       ; compare to YADD
-	
-	bmi	no_y_special_case      ; if minus, we have special case
+;	lda	#$0		       ; load in zero
+;	cmp	ENEMY_YADD	       ; compare to YADD
 
-	inc	ENEMY_YADD
-	bne	done_enemy_y
-	
-	lda	#$0
-	sta	ENEMY_XADD
-	lda	#$2
-	sta	ENEMY_YADD
+;	bmi	no_y_special_case      ; if minus, we have special case
+
+;	inc	ENEMY_YADD
+;	bne	done_enemy_y
+
+;	lda	#$0
+;	sta	ENEMY_XADD
+;	lda	#$2
+;	sta	ENEMY_YADD
 
 	; increment y
 	; is it > 0?
 	; if not keep going
 	; if so, yadd=level*2
-	
-	jmp	done_enemy_y
-	
-no_y_special_case:	
-	clc
-	lda	ENEMY_Y		       ; get Y
-	adc	ENEMY_YADD	       ; y+=yadd
-	sta	ENEMY_Y	       	       ; store back out
-	
-	lsr	A
-	lsr	A
-	
-	cmp	#$12		       ; is y<=12?
-	bmi	done_enemy_y	       ; if so no need to do anything
-	beq	done_enemy_y	       
-	
+
+;	jmp	done_enemy_y
+
+no_y_special_case:
+;	clc
+;	lda	ENEMY_Y		       ; get Y
+;	adc	ENEMY_YADD	       ; y+=yadd
+;	sta	ENEMY_Y	       	       ; store back out
+
+;	lsr	A
+;	lsr	A
+
+;	cmp	#$12		       ; is y<=12?
+;	bmi	done_enemy_y	       ; if so no need to do anything
+;	beq	done_enemy_y
+
 	; off screen
-	
-	pla   	    		       ; pop saved Y off stack
-	tay
-	pha			       ; push y back on stack
-	
-	lda	#$0
-	sta	(ENEMY_PL),Y	       ; set enemy[i].out=0
-	
-	dec	TOTAL_ENEMIES_OUT
-	
-	lda	BONUS_FLAGS
-	and	#<(~PERFECT_KILLS)
-	sta	BONUS_FLAGS
-	
-	jmp	skip_to_next_enemy     ; skip to next enemy	
-	
+
+;	pla   	    		       ; pop saved Y off stack
+;	tay
+;	pha			       ; push y back on stack
+
+;	lda	#$0
+;	sta	(ENEMY_PL),Y	       ; set enemy[i].out=0
+
+;	dec	TOTAL_ENEMIES_OUT
+
+;	lda	BONUS_FLAGS
+;	and	#<(~PERFECT_KILLS)
+;	sta	BONUS_FLAGS
+
+;	jmp	skip_to_next_enemy     ; skip to next enemy
+
 
 done_enemy_y:
 
@@ -1181,80 +1146,80 @@ done_enemy_y:
 
 check_enemy_missile_collision:
 
-	ldy     #$0
+;	ldy     #$0
 ;	sty	YSAV
 check_missile_loop:
-	lda	(MISSILE_PL),Y
-	beq	missile_not_out
+;	lda	(MISSILE_PL),Y
+;	beq	missile_not_out
 
-	iny		       	       ; point to missile.x
-	lda	(MISSILE_PL),Y	       ; load missile.x
+;	iny		       	       ; point to missile.x
+;	lda	(MISSILE_PL),Y	       ; load missile.x
 
-	sta	COL_X1
-	sta	COL_X2
+;	sta	COL_X1
+;	sta	COL_X2
 
-	lda	ENEMY_X
-	lsr	A
-	sta	COL_X3
-	clc
-	adc	#3
-	sta	COL_X4
+;	lda	ENEMY_X
+;	lsr	A
+;	sta	COL_X3
+;	clc
+;	adc	#3
+;	sta	COL_X4
 
-	jsr	check_inside
+;	jsr	check_inside
 
-	bcc	missile_done
+;	bcc	missile_done
 
 x_in_range:
 
-	iny
-	lda	(MISSILE_PL),Y	       ; load missile.y
+;	iny
+;	lda	(MISSILE_PL),Y	       ; load missile.y
 
-	sta	COL_X3
-	clc
-	adc	#2
-	sta	COL_X4
+;	sta	COL_X3
+;	clc
+;	adc	#2
+;	sta	COL_X4
 
-	lda	ENEMY_Y
-	lsr	A
-	lsr	A
-	sta	COL_X1
-	clc
-	adc	#1
-	sta	COL_X2
+;	lda	ENEMY_Y
+;	lsr	A
+;	lsr	A
+;	sta	COL_X1
+;	clc
+;	adc	#1
+;	sta	COL_X2
 
-	jsr	check_inside
+;	jsr	check_inside
 
-	bcc	missile_done
+;	bcc	missile_done
 
 horrible_explosion:
 
 	; clear missile
 
 ;	ldy	YSAV
-	lda	#$0
-	sta	(MISSILE_PL),Y
+;	lda	#$0
+;	sta	(MISSILE_PL),Y
 
 	; clear enemy
 
-	lda	#$1
-	sta	ENEMY_EXPLODING
-	lda	#$40
-	sta	ENEMY_KIND
+;	lda	#$1
+;	sta	ENEMY_EXPLODING
+;	lda	#$40
+;	sta	ENEMY_KIND
 
-	jsr inc_score
+;	jsr	inc_score
 
-	jmp	draw_enemy
+;	jmp	draw_enemy
 
 
 missile_done:
 missile_not_out:
 ;	ldy	YSAV
-	iny
-	iny
-	iny
+;	iny
+;	iny
+;	iny
 ;	sty	YSAV
-	cpy     #(NUM_MISSILES*3)
-	bne	check_missile_loop
+;	cpy     #(NUM_MISSILES*3)
+;	bne	check_missile_loop
 
      ;=================================
      ; Done missile <> enemy collision
@@ -1264,53 +1229,53 @@ missile_not_out:
      ; check for ship <-> enemy collision
      ;====================================
 
-	lda     shipx
-	sta	COL_X3
-	clc
-	adc	#8
-	sta	COL_X4		       ; big check is shipx - shipx+8
+;	lda     shipx
+;	sta	COL_X3
+;	clc
+;	adc	#8
+;	sta	COL_X4		       ; big check is shipx - shipx+8
 
-	lda	ENEMY_X
-	lsr	A
-	sta	COL_X1
-	clc
-	adc	#2
-	sta	COL_X2		       ; small check enemy_x - enemy_x+2
-	
-	jsr	check_inside	       ; check if overlap
+;	lda	ENEMY_X
+;	lsr	A
+;	sta	COL_X1
+;	clc
+;	adc	#2
+;	sta	COL_X2		       ; small check enemy_x - enemy_x+2
 
-	bcc	draw_enemy	       ; if not, move ahead
+;	jsr	check_inside	       ; check if overlap
 
-	lda	#16
-	sta	COL_X3
-	lda	#18
-	sta	COL_X4		       ; big check is 16 - 18
-	
-	lda	ENEMY_Y
-	lsr	A
-	lsr	A
-	sta	COL_X1
-	clc
-	adc	#$1
-	sta	COL_X2		       ; little check is enemy_y - enemy_y+1
-	
-	jsr	check_inside	       ; check if overlap
+;	bcc	draw_enemy	       ; if not, move ahead
+
+;	lda	#16
+;	sta	COL_X3
+;	lda	#18
+;	sta	COL_X4		       ; big check is 16 - 18
+
+;	lda	ENEMY_Y
+;	lsr	A
+;	lsr	A
+;	sta	COL_X1
+;	clc
+;	adc	#$1
+;	sta	COL_X2		       ; little check is enemy_y - enemy_y+1
+
+;	jsr	check_inside	       ; check if overlap
+
+;	bcc	draw_enemy  	       ; if not, move ahead
 
-	bcc	draw_enemy  	       ; if not, move ahead
-	
 	; make the enemy explode
-	
-	lda	#$1
-	sta	ENEMY_EXPLODING
-	lda	#$40
-	sta	ENEMY_KIND
-	
-	dec     SHIELDS
-	jsr 	update_shields	       ; move shields down
-	
-	lda	#<(~PERFECT_SHIELDS)   ; (~PERFECT_SHIELDS)
-	and    	BONUS_FLAGS	       ; remove perfect shield bonus
-	sta	BONUS_FLAGS
+
+;	lda	#$1
+;	sta	ENEMY_EXPLODING
+;	lda	#$40
+;	sta	ENEMY_KIND
+
+;	dec     SHIELDS
+;	jsr 	update_shields	       ; move shields down
+
+;	lda	#<(~PERFECT_SHIELDS)   ; (~PERFECT_SHIELDS)
+;	and    	BONUS_FLAGS	       ; remove perfect shield bonus
+;	sta	BONUS_FLAGS
 
 
      ;=====================================
@@ -1324,33 +1289,33 @@ draw_enemy:
 	; if so, do explosion stuff
 
 check_enemy_explode:
-	lda	ENEMY_EXPLODING	       ; load enemy[i].exploding
-	beq	not_exploding	       ; if 0 then not exploding
+;	lda	ENEMY_EXPLODING	       ; load enemy[i].exploding
+;	beq	not_exploding	       ; if 0 then not exploding
 
 handle_exploding:
 
 ;	jsr	click		       ; make some noise
 
-	clc
-	lda	ENEMY_KIND	       ; move to next step in explosion
-	adc	#$4
-	sta	ENEMY_KIND
+;	clc
+;	lda	ENEMY_KIND	       ; move to next step in explosion
+;	adc	#$4
+;	sta	ENEMY_KIND
 
-	cmp	#$58		       ; have we cycles through explosion?
-	bne	draw_enemy_sprite      ; if not, we are still exploding
+;	cmp	#$58		       ; have we cycles through explosion?
+;	bne	draw_enemy_sprite      ; if not, we are still exploding
+
+;	dec	TOTAL_ENEMIES_OUT      ; total_enemies_out--
+
+;	pla
+;	tay			       ; load y
+;	pha
+
+;	lda	#$0		       ; enemy[i].out=0
+;	sta	(ENEMY_PL),Y
+
+;	jmp	skip_to_next_enemy
 
-	dec	TOTAL_ENEMIES_OUT      ; total_enemies_out--
 
-	pla
-	tay			       ; load y
-	pha
-	
-	lda	#$0		       ; enemy[i].out=0
-	sta	(ENEMY_PL),Y
-	
-	jmp	skip_to_next_enemy	
-	
-	
         ; point to enemies_x
 	; goto enemies_xy
 
@@ -1368,25 +1333,25 @@ draw_enemy_sprite:
 ;	lda	#<enemy_sprite0
 ;	sta	STRINGL
 
-        lda	ENEMY_KIND	      ; get kind
-	and	#$F8
+;        lda	ENEMY_KIND	      ; get kind
+;	and	#$F8
 
-	clc
-	adc	STRINGL
-	
-	sta	STRINGL	
-	lda	#0
-	adc	STRINGH
-	sta	STRINGH
+;	clc
+;	adc	STRINGL
+
+;	sta	STRINGL
+;	lda	#0
+;	adc	STRINGH
+;	sta	STRINGH
 
 
 enemies_xy:
-	lda	ENEMY_X	       	       ; get X
-	lsr	A
+;	lda	ENEMY_X	       	       ; get X
+;	lsr	A
 ;	sta	CH
-	lda	ENEMY_Y	       	       ; load it
-	lsr	A
-	lsr	A
+;	lda	ENEMY_Y	       	       ; load it
+;	lsr	A
+;	lsr	A
 ;	sta	CV
 
 ;	jsr	blit   		       ; blit the missile sprite
@@ -1397,62 +1362,63 @@ enemies_xy:
 save_zp_enemy_back:
 	; save zero page copy back to RAM
 
-	ldx	#ENEMY_EXPLODING
+;	ldx	#ENEMY_EXPLODING
 
-	pla
-	tay			       ; restore y pointer
-	pha
+;	pla
+;	tay			       ; restore y pointer
+;	pha
 
 save_from_zero_page:
 
 
-	iny			       ; point to exploding
-	lda	0,X
-	sta	(ENEMY_PL),Y
+;	iny			       ; point to exploding
+;	lda	0,X
+;	sta	(ENEMY_PL),Y
 
-	inx
-	cpx	#(ENEMY_XMAX+1)	       ; see if reached end
-	bne	save_from_zero_page    ; if not keep copying
+;	inx
+;	cpx	#(ENEMY_XMAX+1)	       ; see if reached end
+;	bne	save_from_zero_page    ; if not keep copying
 
 
 skip_to_next_enemy:
 
-	pla	  		       ; get saved value of Y
-	clc
-	adc	#$9		       ; add 9 to point to next
-	tay
+;	pla	  		       ; get saved value of Y
+;	clc
+;	adc	#$9		       ; add 9 to point to next
+;	tay
 
-	cpy	#NUM_ENEMIES*9	       ; have we looped through them all?
-	beq	draw_the_boss	       ; if not, loop
-	jmp	handle_enemies
+;	cpy	#NUM_ENEMIES*9	       ; have we looped through them all?
+;	beq	draw_the_boss	       ; if not, loop
+;	jmp	handle_enemies
 
 
 	;===================================================
 	;===================================================
 	; BOSS STUFF
-	
+
 
 draw_the_boss:
-	      
+
 	;=======================
 	; if enemy_type==9
 	; we have a boss out
 
-	lda     ENEMY_TYPE
-	cmp	#$9
-	
-	beq	check_boss_exploding
-	jmp	done_with_boss
-check_boss_exploding:	
+;	lda     ENEMY_TYPE
+;	cmp	#$9
+
+;	beq	check_boss_exploding
+;	jmp	done_with_boss
+
+check_boss_exploding:
 	;================================
 	; if not exploding, draw the boss
 
-	lda	BOSS_EXPLODING
-	bne	skip_draw_boss
+;	lda	BOSS_EXPLODING
+;	bne	skip_draw_boss
 
-	lda     #$0    	       	       ; boss_y=0
+;	lda     #$0    	       	       ; boss_y=0
 ;	sta	CV
-	lda	BOSS_X
+;	lda	BOSS_X
 ;	sta	CH   		       ; boss_x
 
 ;	lda	#>boss_sprite
@@ -1465,8 +1431,8 @@ skip_draw_boss:
 	;================================
 	; Draw Smoke
 
-	lda     BOSS_SMOKE
-	beq	skip_draw_smoke
+;	lda     BOSS_SMOKE
+;	beq	skip_draw_smoke
 
         ; point to proper sprite
 
@@ -1475,35 +1441,35 @@ skip_draw_boss:
 ;	lda	#<smoke_sprite0
 ;	sta	STRINGL
 
-        lda	BOSS_SMOKE	      ; get kind
+;	lda	BOSS_SMOKE	      ; get kind
 
-	and	#$fc		      ; mask off bottom 2 bits
+;	and	#$fc		      ; mask off bottom 2 bits
 
-	clc
-	adc	STRINGL
-	
-	sta	STRINGL	
-	lda	#0
-	adc	STRINGH
-	sta	STRINGH
+;	clc
+;	adc	STRINGL
 
-	lda	BOSS_X	       	       ; get X
-	clc
-	adc	#$5
+;	sta	STRINGL
+;	lda	#0
+;	adc	STRINGH
+;	sta	STRINGH
+
+;	lda	BOSS_X	       	       ; get X
+;	clc
+;	adc	#$5
 ;	sta	CH
-	lda	#$3	       	       ; load it
+;	lda	#$3	       	       ; load it
 ;	sta	CV
 
 ;	jsr	blit   		       ; blit the missile sprite
 
-	lda	BOSS_X
-	clc
-	adc 	#$5
-	sec
-	sbc	BOSS_XADD
+;	lda	BOSS_X
+;	clc
+;	adc 	#$5
+;	sec
+;	sbc	BOSS_XADD
 ;	sta	CH
 
-	lda	#$4
+;	lda	#$4
 ;	sta	CV
 
 ;	jsr	blit
@@ -1515,18 +1481,18 @@ skip_draw_smoke:
 	;======================
 	; BOSS Laser Shoot
 
-	lda     BOSS_SHOOTING
-	beq	skip_boss_shooting
+;	lda     BOSS_SHOOTING
+;	beq	skip_boss_shooting
 
-	dec	BOSS_SHOOTING
+;	dec	BOSS_SHOOTING
 
 ;	jsr	click
 
 
-	ldx	#$0
+;	ldx	#$0
 boss_shoot_loop:
-	txa
-	pha
+;	txa
+;	pha
 
 	; point to proper sprite
 
@@ -1535,53 +1501,53 @@ boss_shoot_loop:
 ;	lda	#<laser_sprite0
 ;	sta	STRINGL
 
-        lda	BOSS_SHOOTING	      ; get shooting
-	and	#$1
+;	lda	BOSS_SHOOTING	      ; get shooting
+;	and	#$1
 
-	beq	got_right_laser
+;	beq	got_right_laser
 
-	clc
-	lda	#$5
-	adc	STRINGL
+;	clc
+;	lda	#$5
+;	adc	STRINGL
 
-	sta	STRINGL
-	lda	#0
-	adc	STRINGH
-	sta	STRINGH
+;	sta	STRINGL
+;	lda	#0
+;	adc	STRINGH
+;	sta	STRINGH
 
 got_right_laser:
 
-	lda	BOSS_X
+;	lda	BOSS_X
 ;	sta	CH
 
-	txa
-	asl
+;	txa
+;	asl
 
-	clc
-	adc	#$3
+;	clc
+;	adc	#$3
 ;	sta	CV
 
 ;	jsr	blit   		       ; blit the laser sprite
 
-	lda	BOSS_X
-	clc
-	adc	#$C
+;	lda	BOSS_X
+;	clc
+;	adc	#$C
 ;	sta	CH
 
-	pla
-	pha
-	asl
-	clc
-	adc	#$3
+;	pla
+;	pha
+;	asl
+;	clc
+;	adc	#$3
 ;	sta	CV
 
 ;	jsr	blit
 
-	pla
-	tax
-	inx
-	cpx	#$8
-	bne	boss_shoot_loop
+;	pla
+;	tax
+;	inx
+;	cpx	#$8
+;	bne	boss_shoot_loop
 ;	jsr	click
 
 
@@ -1590,16 +1556,16 @@ skip_boss_shooting:
 	;=============================
 	; boss is dead
 
-	lda     BOSS_EXPLODING
-	beq	boss_is_not_exploding
+;	lda     BOSS_EXPLODING
+;	beq	boss_is_not_exploding
 
-	lda	#$1
-	sta	BOSS_WAITING
+;	lda	#$1
+;	sta	BOSS_WAITING
 
-	ldx	#$20
+;	ldx	#$20
 big_explosion:
-	txa
-	pha
+;	txa
+;	pha
 
 	; point to proper sprite
 
@@ -1608,125 +1574,125 @@ big_explosion:
 ;	lda	#<smoke_sprite0
 ;	sta	STRINGL
 
-        lda	BOSS_EXPLODING	      ; get kind
-	lsr	A
-	lsr	A
-	and	#$0c		      ; mask off bottom 2 bits
+ ;       lda	BOSS_EXPLODING	      ; get kind
+;	lsr	A
+;	lsr	A
+;	and	#$0c		      ; mask off bottom 2 bits
 
-	clc
-	adc	STRINGL
+;	clc
+;	adc	STRINGL
 
-	sta	STRINGL	
-	lda	#0
-	adc	STRINGH
-	sta	STRINGH
+;	sta	STRINGL
+;	lda	#0
+;	adc	STRINGH
+;	sta	STRINGH
 
 ;	jsr	random_number
-	and	#$03
+;	and	#$03
 ;	sta	CV
 
 ;	jsr	random_number
-	and	#$07
-	clc
-	adc	BOSS_X
+;	and	#$07
+;	clc
+;	adc	BOSS_X
 ;	sta	CH
 
 ;	jsr	blit   		       ; blit the missile sprite
 
-	pla
-	tax
-	dex
-	bne	big_explosion
+;	pla
+;	tax
+;	dex
+;	bne	big_explosion
 
 ;	jsr	click
-	dec	BOSS_EXPLODING
+;	dec	BOSS_EXPLODING
 
-	bne	not_dead_yet
+;	bne	not_dead_yet
 
-	lda	LEVEL	    		; only show ending after level 1
-	cmp	#$1
-	bne	no_ending
+;	lda	LEVEL	    		; only show ending after level 1
+;	cmp	#$1
+;	bne	no_ending
 
 ;	jmp	do_ending
 
 no_ending:
 
-	inc	SCOREH			; add 100 to score
-	jsr	print_score
+;	inc	SCOREH			; add 100 to score
+;	jsr	print_score
 
-	lda	LEVEL
-	cmp	#$7  			; level can't be higher than 7
-	beq	start_new_level
-	inc	LEVEL
+;	lda	LEVEL
+;	cmp	#$7  			; level can't be higher than 7
+;	beq	start_new_level
+;	inc	LEVEL
 
-	inc	SHIELDS
-	inc	SHIELDS
-	
-	lda	#$A
-	cmp	SHIELDS
-	bpl	start_new_level
-	sta	SHIELDS
+;	inc	SHIELDS
+;	inc	SHIELDS
+
+;	lda	#$A
+;	cmp	SHIELDS
+;	bpl	start_new_level
+;	sta	SHIELDS
 
 start_new_level:
-	jsr	update_shields
-        jmp	new_level
+;	jsr	update_shields
+;	jmp	new_level
 
 not_dead_yet:
-	jmp  	move_boss
-	
+;	jmp  	move_boss
+
 boss_is_not_exploding:
 
-	dec     BOSS_COUNT
-	bne	move_boss
+;	dec     BOSS_COUNT
+;	bne	move_boss
 
         ;=========================================
 	; Toggle boss waiting state if count is up
 
-	lda	BOSS_WAITING
-	beq	make_boss_wait
+;	lda	BOSS_WAITING
+;	beq	make_boss_wait
 stop_boss_waiting:
-	lda	#$0
-	sta	BOSS_WAITING		; boss_waiting=0
+;	lda	#$0
+;	sta	BOSS_WAITING		; boss_waiting=0
 ;	jsr	random_number
-	sta	BOSS_COUNT   		; boss_count=rand%256
-	jmp	move_boss
+;	sta	BOSS_COUNT   		; boss_count=rand%256
+;	jmp	move_boss
 
 make_boss_wait:
-	lda     #$1
-	sta	BOSS_WAITING
+;	lda     #$1
+;	sta	BOSS_WAITING
 
 ;	jsr	random_number
-	and	#$01f
-	clc
-	adc	#$30
-	sta	BOSS_COUNT
-	
-	lda	#$20
-	sta	BOSS_SHOOTING
-	
+;	and	#$01f
+;	clc
+;	adc	#$30
+;	sta	BOSS_COUNT
+
+;	lda	#$20
+;	sta	BOSS_SHOOTING
+
 move_boss:
-	lda	BOSS_WAITING
-	bne	laser_collision
-	
-	lda	BOSS_X
-	clc
-	adc	BOSS_XADD
-	sta	BOSS_X
-	
-	cmp	#26
-	bpl	boss_reverse
-	
+;	lda	BOSS_WAITING
+;	bne	laser_collision
+
+;	lda	BOSS_X
+;	clc
+;	adc	BOSS_XADD
+;	sta	BOSS_X
+
+;	cmp	#26
+;	bpl	boss_reverse
+
 boss_under:
-	cmp	#$0
-	bpl	laser_collision
-	
+;	cmp	#$0
+;	bpl	laser_collision
+
 boss_reverse:
 
-	lda	#$0	    	       ; load zero
-	sec			       
-	sbc	BOSS_XADD	       ; 0 - ENEMY_XADD
-	sta	BOSS_XADD	       ; store it back out, negated
-	jmp	move_boss	       ; re-add it in
+;	lda	#$0	    	       ; load zero
+;	sec
+;	sbc	BOSS_XADD	       ; 0 - ENEMY_XADD
+;	sta	BOSS_XADD	       ; store it back out, negated
+;	jmp	move_boss	       ; re-add it in
 
 
 laser_collision:
@@ -1735,144 +1701,144 @@ laser_collision:
         ; Collision detection for lasers
 	;
 
-	lda	BOSS_SHOOTING
-	beq	done_with_boss
+;	lda	BOSS_SHOOTING
+;	beq	done_with_boss
 
 left_laser:
-	lda	BOSS_X
-	sta	COL_X1
-	sta	COL_X2
-	lda	shipx
-	sta	COL_X3
-	lda	#$6
-	clc
-	adc	shipx
-	sta	COL_X4
-	jsr	check_inside
-	bcs	laser_hit
-
+;	lda	BOSS_X
+;	sta	COL_X1
+;	sta	COL_X2
+;	lda	shipx
+;	sta	COL_X3
+;	lda	#$6
+;	clc
+;	adc	shipx
+;	sta	COL_X4
+;	jsr	check_inside
+;	bcs	laser_hit
+;
 right_laser:
-        lda  	BOSS_X
-        clc
-        adc	#$C
-        sta	COL_X1
-        sta	COL_X2
-        jsr	check_inside
-        bcc	done_with_boss
-       
+;	lda  	BOSS_X
+;	clc
+;	adc	#$C
+;	sta	COL_X1
+;	sta	COL_X2
+;	jsr	check_inside
+;	bcc	done_with_boss
+
 laser_hit:
-	lda	BOSS_SHOOTING
-	and	#$3	     		; only take damage 1/8 the time
-	bne	done_with_boss
-	
-	dec	SHIELDS
-	jsr	update_shields
+;	lda	BOSS_SHOOTING
+;	and	#$3	     		; only take damage 1/8 the time
+;	bne	done_with_boss
+
+;	dec	SHIELDS
+;	jsr	update_shields
 
 
 
 
 done_with_boss:
 
-	ldy     #$0		       		 ; point to missile[0]
+;	ldy     #$0		       		 ; point to missile[0]
 move_missiles:
-	lda     (MISSILE_PL),Y			 ; get missile[y]
-	beq	loop_move_missiles		 ; if missile.out==0 skip
-	
-	iny					 ; move to missile.y
-	iny
-	clc					 ; clear carry
-	lda	(MISSILE_PL),Y			 ; get missile.y
-	adc	#$FF				 ; move up (subtract 1)
-	sta	(MISSILE_PL),Y			 ; store missile.y
-	bpl	missile_collision_detection	 ; if not off screen, contine
-	
-	dey					 ; back up to missile.out
-	dey
-	lda	#$0
-	sta	(MISSILE_PL),Y			 ; set missile.out=0
-	
-	lda	#<(~PERFECT_AIM)		 ; shot missed!
-	and	BONUS_FLAGS     		 ; clear perfect shot flag
-	sta	BONUS_FLAGS
+;	lda     (MISSILE_PL),Y			 ; get missile[y]
+;	beq	loop_move_missiles		 ; if missile.out==0 skip
 
-	jmp	loop_move_missiles		 ; continue 
+;	iny					 ; move to missile.y
+;	iny
+;	clc					 ; clear carry
+;	lda	(MISSILE_PL),Y			 ; get missile.y
+;	adc	#$FF				 ; move up (subtract 1)
+;	sta	(MISSILE_PL),Y			 ; store missile.y
+;	bpl	missile_collision_detection	 ; if not off screen, contine
+
+;	dey					 ; back up to missile.out
+;	dey
+;	lda	#$0
+;	sta	(MISSILE_PL),Y			 ; set missile.out=0
+
+;	lda	#<(~PERFECT_AIM)		 ; shot missed!
+;	and	BONUS_FLAGS     		 ; clear perfect shot flag
+;	sta	BONUS_FLAGS
+
+;	jmp	loop_move_missiles		 ; continue
 
 missile_collision_detection:
 
 check_missile_boss:
-	lda	ENEMY_TYPE
-	cmp	#$9
-	bne	done_missile_collision
-	dey	; missile x
-	lda	(MISSILE_PL),Y
-	iny		      		; fix y
-	sta	COL_X1
-	sta	COL_X2
-	lda	BOSS_X
-	sta	COL_X3
-	clc
-	adc	#$0d
-	sta	COL_X4
-	jsr	check_inside
-	
-	bcc	done_missile_collision
-	
+;	lda	ENEMY_TYPE
+;	cmp	#$9
+;	bne	done_missile_collision
+;	dey	; missile x
+;	lda	(MISSILE_PL),Y
+;	iny		      		; fix y
+;	sta	COL_X1
+;	sta	COL_X2
+;	lda	BOSS_X
+;	sta	COL_X3
+;	clc
+;	adc	#$0d
+;	sta	COL_X4
+;	jsr	check_inside
+
+;	bcc	done_missile_collision
+
 check_boss_y:
-	lda  	(MISSILE_PL),Y
-	sta	COL_X1
-	clc
-	adc	#$2
-	sta	COL_X2
-	lda	#$0
-	sta	COL_X3
-	lda	#$3
-	sta	COL_X4
-	jsr	check_inside
-	
-	bcc	done_missile_collision
+;	lda  	(MISSILE_PL),Y
+;	sta	COL_X1
+;	clc
+;	adc	#$2
+;	sta	COL_X2
+;	lda	#$0
+;	sta	COL_X3
+;	lda	#$3
+;	sta	COL_X4
+;	jsr	check_inside
+
+;	bcc	done_missile_collision
 
 hit_the_boss:
-	dey
-	dey
-	lda	#$0
-	sta	(MISSILE_PL),Y		; missile_out=0
-	lda	#$B
-	sta	BOSS_SMOKE
-	
-	dec	BOSS_HITS
-	bne	loop_move_missiles
-	
-	lda	#$2F
-	sta	BOSS_EXPLODING
-	lda	#$0
-	sta	BOSS_SHOOTING
-	
-	jmp	loop_move_missiles
+;	dey
+;	dey
+;	lda	#$0
+;	sta	(MISSILE_PL),Y		; missile_out=0
+;	lda	#$B
+;	sta	BOSS_SMOKE
+
+;	dec	BOSS_HITS
+;	bne	loop_move_missiles
+
+;	lda	#$2F
+;	sta	BOSS_EXPLODING
+;	lda	#$0
+;	sta	BOSS_SHOOTING
+
+;	jmp	loop_move_missiles
 
 done_missile_collision:
 
-	jmp	loop_move_at_y
+;	jmp	loop_move_at_y
 
 loop_move_missiles:
-	iny
-	iny
-loop_move_at_y:		
-	iny
-	cpy	#NUM_MISSILES*3	       ; have we checked all missiles?
-	bne	move_missiles	       ; if not, loop
+;	iny
+;	iny
+loop_move_at_y:
+;	iny
+;	cpy	#NUM_MISSILES*3	       ; have we checked all missiles?
+;	bne	move_missiles	       ; if not, loop
 
 done_move_missiles:
 
-	ldy	#$0		       ; point to missiles[0]
+;	ldy	#$0		       ; point to missiles[0]
 draw_missiles:
-	lda     (MISSILE_PL),Y	       ; get missile[y]
-	beq	loop_draw_missiles     ; if missile.out==0 skip
+;	lda     (MISSILE_PL),Y	       ; get missile[y]
+;	beq	loop_draw_missiles     ; if missile.out==0 skip
 
-	iny			       ; point to missile.x
-	lda	(MISSILE_PL),Y	       ; load it
+;	iny			       ; point to missile.x
+;	lda	(MISSILE_PL),Y	       ; load it
 ;	sta	CH
-	iny	  		       ; point to missile.y
-	lda	(MISSILE_PL),Y	       ; load it
+;	iny	  		       ; point to missile.y
+;	lda	(MISSILE_PL),Y	       ; load it
 ;	sta	CV
 
 ;	sty	YSAV1		       ; save Y
@@ -1885,119 +1851,119 @@ draw_missiles:
 
 ;	ldy	YSAV1		       ; restore Y
 
-	jmp	loop_draw_missiles_noadd
+;	jmp	loop_draw_missiles_noadd
 
 loop_draw_missiles:
-	iny
-	iny
+;	iny
+;	iny
 
 loop_draw_missiles_noadd:
-	iny
+;	iny
 
-	cpy	#NUM_MISSILES*3	       ; have we looped through them all?
-	bne	draw_missiles	       ; if not, loop
+;	cpy	#NUM_MISSILES*3	       ; have we looped through them all?
+;	bne	draw_missiles	       ; if not, loop
 
 
 
 game_read_keyboard:
 ;	jsr	get_key
-	lda	LASTKEY
-	bne	game_q
-	jmp	move_ship	       ; if no keypressed, move the ship
+;	lda	LASTKEY
+;	bne	game_q
+;	jmp	move_ship	       ; if no keypressed, move the ship
 
 game_q:
-	cmp	#'Q'
-	bne	game_j
+;	cmp	#'Q'
+;	bne	game_j
 	;; call verify_quit
-	jmp	done_game
+;	jmp	done_game
 	;; jmp set_pause_flag
 
 game_j:
-	cmp	#'J'
-	bne	game_k
+;	cmp	#'J'
+;	bne	game_k
 
-	lda	SHIPXADD       	       ; load xadd
-	beq	game_j_sub
-	bpl	game_j_0	       ; is switch dir, then 0 it
+;	lda	SHIPXADD       	       ; load xadd
+;	beq	game_j_sub
+;	bpl	game_j_0	       ; is switch dir, then 0 it
 game_j_sub:
-	dec	SHIPXADD	       ; else, dec XADD
-	jmp	move_ship
+;	dec	SHIPXADD	       ; else, dec XADD
+;	jmp	move_ship
 game_j_0:
-	lda	#$0
-	sta	SHIPXADD
-	jmp	move_ship
+;	lda	#$0
+;	sta	SHIPXADD
+;	jmp	move_ship
 
 game_k:
-	cmp     #'K'
-	bne	game_c
+;	cmp     #'K'
+;	bne	game_c
 
-	lda	SHIPXADD	       ; load xadd
-	bmi	game_j_0	       ; if we are switching dirs, set to zero
-	inc	SHIPXADD	       ; else xadd++
-	jmp	move_ship
+;	lda	SHIPXADD	       ; load xadd
+;	bmi	game_j_0	       ; if we are switching dirs, set to zero
+;	inc	SHIPXADD	       ; else xadd++
+;	jmp	move_ship
 
 game_c:
-        cmp	#'C'
-	bne	game_p
+;        cmp	#'C'
+;	bne	game_p
 
 ;	lda	PADDLE_STATUS
 ;	eor	#$80
 ;	sta	PADDLE_STATUS
 
-	jmp	move_ship
+;	jmp	move_ship
 
 game_p:
-	cmp	#'P'
-	bne	game_s
+;	cmp	#'P'
+;	bne	game_s
 ;        bit	KEYRESET
 ;	jsr	wait_until_keypressed
-	jmp	move_ship
+;	jmp	move_ship
 
 game_s:
-	cmp     #'S'
-        bne	game_h
-	lda	SOUND_ON
-	eor	#$ff
-	sta	SOUND_ON
-	jmp	move_ship
+;	cmp     #'S'
+ ;       bne	game_h
+;	lda	SOUND_ON
+;	eor	#$ff
+;	sta	SOUND_ON
+;	jmp	move_ship
 
 game_h:
-	cmp	#'H'
-	bne	game_space
+;	cmp	#'H'
+;	bne	game_space
 ;	jsr	do_help
 ;	jsr	set_page0_gr
 
 game_space:
-	cmp     #' '+128	       ; +128 because of get_key 'feature'
-	bne	game_unknown
+;	cmp     #' '+128	       ; +128 because of get_key 'feature'
+;	bne	game_unknown
 
-	ldy	#$0	    	       ; point to missile[y]
+;	ldy	#$0	    	       ; point to missile[y]
 fire_missiles:
-	lda     (MISSILE_PL),Y	       ; get missile[y].out
-	bne	end_fire_loop	       ; if not out, skip ahead
+;	lda     (MISSILE_PL),Y	       ; get missile[y].out
+;	bne	end_fire_loop	       ; if not out, skip ahead
 
-	lda	#$1		       ; set missile[y].out=1
-	sta	(MISSILE_PL),Y
-	iny		      	       ; point to missile[y].x
-	lda	#$3
-	clc
-	adc	shipx		       ; missile[y].x=shipx+3
-	sta	(MISSILE_PL),Y
-	iny		      	       ; point to missile[y].y
-	lda	#$10		       ; set to 16
-	sta	(MISSILE_PL),Y
-	jmp	done_fire_missiles
+;	lda	#$1		       ; set missile[y].out=1
+;	sta	(MISSILE_PL),Y
+;	iny		      	       ; point to missile[y].x
+;	lda	#$3
+;	clc
+;	adc	shipx		       ; missile[y].x=shipx+3
+;	sta	(MISSILE_PL),Y
+;	iny		      	       ; point to missile[y].y
+;	lda	#$10		       ; set to 16
+;	sta	(MISSILE_PL),Y
+;	jmp	done_fire_missiles
 
 end_fire_loop:
-	iny
-	iny
-	iny
+;	iny
+;	iny
+;	iny
 
-	cpy	#NUM_MISSILES*3	       ; see if we have more missiles
-	bne	fire_missiles	       ; if so, loop
+;	cpy	#NUM_MISSILES*3	       ; see if we have more missiles
+;	bne	fire_missiles	       ; if so, loop
 done_fire_missiles:
 
-	jmp	move_ship
+;	jmp	move_ship
 
 game_unknown:
 
@@ -2005,38 +1971,28 @@ game_unknown:
 
 
 move_ship:
-	clc			       ; Clear carry
-	lda	shipx		       ; load ship_x
-	adc	SHIPXADD	       ; ship_x+=xadd
-	sta	shipx		       ; store it back
+;	clc			       ; Clear carry
+;	lda	shipx		       ; load ship_x
+;	adc	SHIPXADD	       ; ship_x+=xadd
+;	sta	shipx		       ; store it back
 
 check_x_under:
-	bpl	check_x_over	       ; if positive, keep going
-	lda	#$0		       ; we were below zero
-	sta	shipx		       ; so shipx=0
-	sta	SHIPXADD	       ; xadd=0
-	jmp	blit_ship	       ; go to blit
+;	bpl	check_x_over	       ; if positive, keep going
+;	lda	#$0		       ; we were below zero
+;	sta	shipx		       ; so shipx=0
+;	sta	SHIPXADD	       ; xadd=0
+;	bra	update_shields2	       ; go to blit
 
 check_x_over:
-	cmp	#$21		       ; are we over 33?
-	bmi	blit_ship	       ; if not, blit ship
-	lda	#$0		       ; shipxadd=0
-	sta	SHIPXADD
-	lda	#$21		       ; shipx=33
-	sta	shipx
+;	cmp	#$21		       ; are we over 33?
+;	bmi	update_shields2	       ; if not, blit ship
+;	lda	#$0		       ; shipxadd=0
+;	sta	SHIPXADD
+;	lda	#$21		       ; shipx=33
+;	sta	shipx
 
-blit_ship:
-	lda     #$10    	       ; shipy=16
-;	sta	CV
-	lda	shipx
-;	sta	CH   		       ; load shipx
-
-
-;	lda	#>ship_sprite
-;	sta	STRINGH
-;	lda	#<ship_sprite
-;	sta	STRINGL
-;	jsr	blit   		       ; blit the ship sprite
+	; Update shields
+update_shields2:
 
 ;	jsr	clear_bottom
 
@@ -2045,13 +2001,13 @@ blit_ship:
 ;	lda	#<shields_string
 ;	sta	STRINGL
 
-	clc
-	lda	#$2
+;	clc
+;	lda	#$2
 ;	adc	GR_PAGE
 ;	sta	BASH
 ;	lda	#$50
 ;	sta	BASL
-	ldy	#$0
+;	ldy	#$0
 
 shield_print_loop:
 
@@ -2059,15 +2015,14 @@ shield_print_loop:
 	; CHECK TO SEE IF GAME IS OVER
 	;=============================
 
-	lda	SHIELDS
-	bmi	done_game
+;	lda	SHIELDS
+;	bmi	done_game
 
-
-	lda	(STRINGL),Y
+;	lda	(STRINGL),Y
 ;	sta	(BASL),Y
-	iny
-	cpy	#$1E		       ; string is 30 long
-	bne	shield_print_loop
+;	iny
+;	cpy	#$1E		       ; string is 30 long
+;	bne	shield_print_loop
 
 ;	inc	BASH		       ; move to line 23
 
@@ -2076,59 +2031,76 @@ shield_print_loop:
 ;	lda	#<score_string
 ;	sta	STRINGL
 
-	ldy	#$0
+;	ldy	#$0
 
 score_print_loop:
 ;	lda	(STRINGL),Y
 ;	sta	(BASL),Y
-	iny
-	cpy	#$26		       ; string is 38 long
-	bne	score_print_loop
+;	iny
+;	cpy	#$26		       ; string is 38 long
+;	bne	score_print_loop
 
-	clc
-	lda	#$80
+;	clc
+;	lda	#$80
 ;	adc	BASL
 ;	sta	BASL		       ; move to line 24
 
-;OPTIMIZE
-
 ;	lda	#>level_string
 ;	sta	STRINGH
 ;	lda	#<level_string
 ;	sta	STRINGL
 
-	ldy	#$0
+;	ldy	#$0
 level_print_loop:
 ;	lda	(STRINGL),Y
 ;	sta	(BASL),Y
-	iny
-	cpy	#$C		       ; string is 12 long
-	bne	level_print_loop
+;	iny
+;	cpy	#$C		       ; string is 12 long
+;	bne	level_print_loop
 
 
 	;==========
-	; Flip Pages
 
-;	lda	#$4
-;	bit     GR_PAGE
-;	bne	gr_page_1
-;
-;gr_page_0:
-;	bit	PAGE1	 	       ; switch to page 0
-;	lda	#$4
-;	jmp	write_out_gr_page
-;gr_page_1:
-;	bit	PAGE0		       ; switch to page 1
-;	lda	#$8
-;write_out_gr_page:
-;	sta     GR_PAGE
+	; scroll background
+	lda	star_scroll
+	sta	$2110
+	lda	star_scroll_h
+	sta	$2110
 
-;	lda     #$8B		       ; 107 = 30080us = 30ms
-;	lda	#$65
-;	jsr	WAIT
+	rep #$20        ; A/mem=16 bit
+.a16
+	dec	star_scroll
+	sep #$20        ; A/mem=8 bit
+.a8
+
+	; handle keypress
+	lda	joypad1
+check_left:
+	bit	#$02
+	beq	check_right
+
+	dec	shipx
+
+	bpl	check_right
+	stz	shipx
+
+check_right:
+	bit	#$01
+	beq	no_keypress
+
+	inc	shipx
+
+no_keypress:
 
 
-	jmp	main_game_loop
+	; update OAM
+
+	lda	shipx
+	sta	$0200		; set sprite 0 X to shipx
+
+
+	jmp	level1_loop
+
 
 done_game:
 
@@ -2351,46 +2323,6 @@ do_hi_score:
 ;	jmp 	opener
 
 
-	; scroll background
-	lda	star_scroll
-	sta	$2110
-	lda	star_scroll_h
-	sta	$2110
-
-	rep #$20        ; A/mem=16 bit
-.a16
-	dec	star_scroll
-	sep #$20        ; A/mem=8 bit
-.a8
-
-	; handle keypress
-	lda	joypad1
-check_left:
-	bit	#$02
-	beq	check_right
-
-	dec	shipx
-
-	bpl	check_right
-	stz	shipx
-
-check_right:
-	bit	#$01
-	beq	no_keypress
-
-	inc	shipx
-
-no_keypress:
-
-
-	; update OAM
-
-	lda	shipx
-	sta	$0200		; set sprite 0 X to shipx
-
-
-	jmp	level1_loop
-
 
 ;=============================
 ; Level 1 VBLank Routine
@@ -2444,6 +2376,29 @@ done_vblank:
 	rti		; return from interrupt
 
 
+
+;==========================================================
+; "Random" Number Generator
+;==========================================================
+        ; from dlyons@Apple.COM (David A Lyons)
+        ; posting to comps.sys.apple2 24 November 1992
+        ; algorithm from Pop Science ~1980s
+        ; when seeded with non-zero, will generate all 255 values
+        ; before repeating
+
+random_number:
+        lda   RANDOM_SEED
+        bne   random_not_zero
+        lda   #$D
+random_not_zero:
+        asl   A
+        bcc   random_num_done
+        eor   #$87
+random_num_done:
+        sta   RANDOM_SEED
+        rts
+
+
 ;==========================================================
 ; Update Shields
 ;==========================================================