;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; calcscore 计算分数，存储到s
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
calcscore:
.scope
	inc s
	rts
.scend