From caaead7be02c1e8cf8ca15b5e5d5d0fc7d5b7d89 Mon Sep 17 00:00:00 2001 From: fumiama Date: Sat, 3 Apr 2021 14:29:01 +0800 Subject: [PATCH] =?UTF-8?q?=E5=88=86=E6=95=B0=E6=89=93=E5=8D=B0=E5=AE=8C?= =?UTF-8?q?=E6=88=90?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- main.asm | 4 ++-- print16.asm | 21 +++++++-------------- snake.prg | Bin 505 -> 457 bytes 3 files changed, 9 insertions(+), 16 deletions(-) diff --git a/main.asm b/main.asm index 80ec4b5..b1f5618 100644 --- a/main.asm +++ b/main.asm @@ -30,9 +30,9 @@ main: .macro init lda #147 ;清屏 jsr chrout - lda #$cd + lda #$ff sta s - lda #$ab + lda #$ff sta s + 1 jsr printscore .macend diff --git a/print16.asm b/print16.asm index 5cb84e6..66a67b3 100644 --- a/print16.asm +++ b/print16.asm @@ -14,7 +14,7 @@ print16: lda #0 ldx #6 -* sta _num_dec, x +* sta _num_dec-1, x dex bne - @@ -129,31 +129,24 @@ _skip: jsr mod_3 jsr mod_2 jsr mod_1 ; 此时结果中有些位可能大于10,需要进行进位处理 - jsr chrin ldx #5 _loop: ldy #0 ; y记录进位数 - lda _num_dec, x + txa + lda _num_dec-1, x cmp #10 bcc _skip ; 小于10不进位 - jsr printbyte pha and #$f0 lsr lsr lsr lsr - tay + adc _num_dec-2, x + sta _num_dec-2, x pla and #$0f - jsr printbyte - adc _num_dec, x - sta _num_dec, x - jsr chrin - tya - adc _num_dec - 1, x - sta _num_dec - 1, x - jsr chrin + sta _num_dec-1, x _skip: dex bne _loop @@ -171,4 +164,4 @@ _up: tay .macend - .require "printbyte.asm" \ No newline at end of file +; .require "printbyte.asm" \ No newline at end of file diff --git a/snake.prg b/snake.prg index caabdeb15ad5c7739bf1ed7e41f84167a24fd277..656e92aa258cf96ae60a783c629c1c4dddefb087 100644 GIT binary patch delta 114 zcmV-&0FD3o1IYuBP#*t<1gZap1t3}oV5z2}4whk!~IV36YH_ zDf0{{R3 delta 179 zcmX@f{F8Y?fZW+umX)hpSrwu<5>_r-#IJDa|EUYVJZ5;TtX;sN@O)yP93$7nUiBbe zP6atm1#eD;E>4B>{}-_?VA#ral52v3!bwgK%@1Bcup&c~AIK}^n#u)KF{6}oDoEw2 z3s-L}V%^HgX)u-Z)P?UED?mnbEnol|{pE;0hexYGm&YQGl?H4AnG9gNzpPXM(iy8V XG!j|`TZ9%cY!v*!1{67Q;adU#julJs