;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; printfield 打印蛇，包括边框
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
printfield:
.scope
	ldx #23			; i代表行数，不含边框
	lda #<field		; 取地址低8位
	clc
	adc #1
	sta _ptr
	lda #>field		; 取地址高8位
	sta _ptr + 1
	jsr _print_blk_line
	;ldy #0			; 此时y一定为0
*	lda #cblk
	sta (_ptr), y	; 打印左边框
	lda #39
	jsr _addptr
	lda #cblk
	sta (_ptr), y	; 打印右边框
	lda #1
	jsr _addptr
	dex
	bne -
	jsr _print_blk_line
	rts

_addptr:
	clc
	adc _ptr
	bcc +
	inc _ptr + 1
*	sta _ptr
	rts

_print_blk_line:
	lda #cblk
	ldy #40
	dec _ptr
*	sta (_ptr), y	; 打印底边
	dey
	bne -
	rts
.scend