mirror of
https://github.com/fumiama/c64-snake.git
synced 2026-06-05 00:32:39 +08:00
110 lines
2.2 KiB
NASM
110 lines
2.2 KiB
NASM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; 日期：2021-4-11
|
||
; 食物：crnd $51
|
||
; 墙：cblk $66
|
||
; 像素：csnk
|
||
; 蛇头 (shead)
|
||
; 键入方向d(8bit)->
|
||
; 宽38 高23
|
||
;;;;;;;;;;;;;;;;;;;;撞墙伪码;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; （(shead) 与 d(new)运算）的位置的内容 CMP cblk
|
||
; 忘了 = ->sec
|
||
; 忘了 = ->clc
|
||
;;;;;;;;;;;;;;;;;;;撞自己伪码;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; （(shead) 与 d(new)运算）的位置的内容 CMP csnk
|
||
; 忘了 = ->sev
|
||
; 忘了 = ->clc
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; judgeout 判断是否出界/撞到自身
|
||
; 是->sec 即进位标志置1
|
||
; 否->clc 即进位标志置0
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;;关于指令cmp：
|
||
;;相等Z=1；不等Z=0
|
||
;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
judgeout:
|
||
`judgeof cblk
|
||
bcs +
|
||
cmp #csnk
|
||
bne +
|
||
sec
|
||
* rts
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; judgefood 判断是否吃到食物
|
||
; 是->sec 即进位标志置1
|
||
; 否->clc 即进位标志置0
|
||
;;;;;;;;;;;;;;;;;;;;;;;食物伪码;;;;;;;;;;;;;;;;;;;;;;;
|
||
; （(shead) 与 d(new)运算）的位置的内容 CMP crnd
|
||
; 忘了 = ->sec
|
||
; 忘了 = ->clc
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
judgefood:
|
||
`judgeof crnd
|
||
rts
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; judgeof 两个判断的宏
|
||
; 是->sec 即进位标志置1
|
||
; 否->clc 即进位标志置0
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
.macro judgeof
|
||
lda d
|
||
ldy #0
|
||
;;方向向上
|
||
cmp #go_u
|
||
beq _gup
|
||
;;方向向下
|
||
cmp #go_d
|
||
beq _gdown
|
||
;;方向向左
|
||
cmp #go_l
|
||
beq _gleft
|
||
;;方向向右
|
||
cmp #go_r
|
||
beq _gright
|
||
jmp _End1 ;输入了一个无效字符，，，，，？
|
||
|
||
;是否撞墙；是否考虑溢出情况-不用；撞墙撞自己要不要分开写？
|
||
_gup:
|
||
`_m_ptr_minus 40
|
||
lda (_ptr),y
|
||
jmp _compare
|
||
|
||
_gdown:
|
||
ldy #40 ;地址+40
|
||
lda (shead),y
|
||
jmp _compare
|
||
|
||
_gleft:
|
||
`_m_ptr_minus 1
|
||
lda (_ptr),y
|
||
jmp _compare
|
||
|
||
_gright:
|
||
ldy #1 ;地址+1
|
||
lda (shead),y
|
||
|
||
_compare:
|
||
cmp #_1
|
||
beq _End2
|
||
|
||
;没吃到 默认情况
|
||
_End1: clc
|
||
jmp _end
|
||
;吃到了
|
||
_End2: sec
|
||
_end:
|
||
.macend
|
||
|
||
.macro _m_ptr_minus
|
||
lda shead
|
||
sec
|
||
sbc #_1
|
||
sta _ptr
|
||
lda shead+1
|
||
sbc #0
|
||
sta _ptr+1
|
||
.macend |