mirror of
https://github.com/fumiama/c64-snake.git
synced 2026-06-05 00:32:39 +08:00
83 lines
1.6 KiB
NASM
83 lines
1.6 KiB
NASM
.outfile "snake.prg"
|
|
.require "platform/c64_0.oph"
|
|
.require "platform/c64kernal.oph"
|
|
.require "head.asm"
|
|
|
|
main:
|
|
.scope
|
|
.data
|
|
.space lopcnt 1 ; 循环次数计数
|
|
.text
|
|
`init
|
|
jsr getchar ; 等待输入任意字符开始游戏
|
|
jsr erasehint ; 游戏开始，清空提示
|
|
* jsr move ; 蛇移动一格
|
|
clc
|
|
jsr judgeout ; 判断是否出界
|
|
bcc +
|
|
jsr printfail
|
|
jsr getchar
|
|
rts
|
|
clc
|
|
* jsr judgefood ; 判断是否吃到食物
|
|
bcc +
|
|
jsr append
|
|
* jsr calcscore ; 计算得分
|
|
jsr printscore ; 打印分数
|
|
lda #32
|
|
jsr delay ; 延时期间最后一个按键位于d
|
|
lda d
|
|
beq ++
|
|
cmp #ed_g
|
|
bne +
|
|
rts
|
|
* sta d
|
|
* inc lopcnt
|
|
lda lopcnt
|
|
cmp #16
|
|
bmi -----
|
|
lda #0
|
|
sta lopcnt
|
|
jsr addfood
|
|
jmp -----
|
|
.scend
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; init 初始化界面、变量
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
.macro init
|
|
lda #147 ; 清屏
|
|
jsr chrout
|
|
lda #$00
|
|
sta s
|
|
lda #$00
|
|
sta s + 1 ; 初始化分数为0
|
|
jsr printscore ; 打印分数
|
|
lda #csnk
|
|
sta field + 11*40 + 19 ; 初始化蛇位置
|
|
sta c ; 初始化蛇长为1
|
|
jsr printfield ; 打印蛇，包括边框
|
|
jsr printhint ; 打印开始提示
|
|
lda #go_d ; 初始化方向为下
|
|
sta d
|
|
jsr srand ; 初始化随机数种子
|
|
.macend
|
|
|
|
.require "printscore.asm"
|
|
.require "print16.asm"
|
|
.require "printfield.asm"
|
|
.require "hint.asm"
|
|
.require "getchar.asm"
|
|
.require "addfood.asm"
|
|
.require "append.asm"
|
|
.require "delay.asm"
|
|
.require "judge.asm"
|
|
.require "move.asm"
|
|
.require "calcscore.asm"
|
|
.require "print.asm"
|
|
|
|
.checkpc $a000 ; text段边界
|
|
.data zp ; 零页段边界
|
|
.checkpc $80
|
|
.data
|
|
.checkpc $d000 ; data段边界 |