add score(初步)

main.asm

@@ -2,36 +2,46 @@
 .require "platform/c64_0.oph"
 .require "platform/c64kernal.oph"
 
-.alias go_u #1  ; 上
-.alias go_d #2  ; 下
-.alias go_l #4  ; 左
-.alias go_r #8  ; 右
+.alias cblk $bf
+
+.alias go_u $55	 ; 上
+.alias go_d $5f	 ; 下
+.alias go_l $1d	 ; 左
+.alias go_r $32	 ; 右
+.alias st_g $a0	 ; 开始/暂停
+.alias ed_g $20	 ; 结束
 
 .data zp
-.space d 1 ; 方向 值定义如上
-.space c 1 ; 长度 最大255 最小0
+.space d 1		; 方向 值定义如上
+.space c 1		; 🐍长度 最大255 最小0
+.space s 2		; 得分 小端序
 .text
 
 main:
 .scope
-    lda #147    ;清屏
-    jsr chrout
-    
-    rts
+	`init
+	
+	rts
 .scend
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-; getdir 返回一个方向到d
+; init 初始化界面、变量
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-getdir:
-.macro
-    jsr chrin
-    sta d
+.macro init
+	lda #147	 ;清屏
+	jsr chrout
+	lda #$aa
+	; sta s
+	sta s + 1
+	jsr printscore
 .macend
 
+.require "printscore.asm"
+.require "print16.asm"
+.require "print.asm"
 
 .checkpc $A000	; text段边界
-.data zp        ; 零页段边界
+.data zp		  ; 零页段边界
 .checkpc $80
 .data
 .checkpc $D000	; data段边界