扩展data段，完成食物生成

main.asm

@@ -5,6 +5,9 @@
 
 main:
 .scope
+.data
+.space lopcnt 1		; 循环次数计数
+.text
 	`init
 	jsr getchar		; 等待输入任意字符开始游戏
 	jsr erasehint	; 游戏开始，清空提示
@@ -21,7 +24,7 @@ main:
 	jsr append
 *	jsr calcscore	; 计算得分
 	jsr printscore	; 打印分数
-	lda #60
+	lda #32
 	jsr delay		; 延时期间最后一个按键位于d
 	lda d
 	beq ++
@@ -29,7 +32,13 @@ main:
 	bne +
 	rts
 *	sta d
-*	jsr addfood
+*	inc lopcnt
+	lda lopcnt
+	cmp #16
+	bmi -----
+	lda #0
+	sta lopcnt
+	jsr addfood
 	jmp -----
 .scend
 
@@ -51,6 +60,7 @@ main:
 	jsr printhint	; 打印开始提示
 	lda #go_d		; 初始化方向为下
 	sta d
+	jsr srand		; 初始化随机数种子
 .macend
 
 .require "printscore.asm"
@@ -66,8 +76,8 @@ main:
 .require "calcscore.asm"
 .require "print.asm"
 
-.checkpc $A000	; text段边界
+.checkpc $a000	; text段边界
 .data zp		; 零页段边界
 .checkpc $80
 .data
-.checkpc $0800	; data段边界
+.checkpc $d000	; data段边界