c64-snake/print16.asm

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; print16 从内存打印16位int(十进制5位),空位补0
; 以BE方式存储以便打印
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
print16:
.scope
.data zp
.space _num 4
.space _num_dec 6
.text
	pha
	txa
	pha
	
	lda #0
	ldx #6
*	sta _num_dec-1, x
	dex
	bne -

	`splitbyte s, 3
	`splitbyte s + 1, 1
	`carry
	`print _num_dec

	pla
	tax
	pla
	rts

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; mod函数处理的数据为打印方便均使用大端序存储
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

mod_4:					; 高字节低4位若大于10，则向高位进1
	lda _num + 3
	cmp #10
	bcc +
	sbc #10				; 此时c为1
	tax
	lda #1
	sta _num_dec + 3	; 进位
	txa
*	sta _num_dec + 4
	rts

mod_3:					; 高字节高4位的值相当于个位加6，十位加1
	ldx _num + 2
	bne +				; 如果为0直接返回
	rts
*	lda #6
	`carry10 4
	lda #1
	`carry10 3
	dex
	bne -
	rts

mod_2:					; 低字节低4位的值相当于个位加6，十位加5，百位加2
	ldx _num + 1
	bne +				; 如果为0直接返回
	rts
*	lda #6
	`carry10 4
	lda #5
	`carry10 3
	lda #2
	`carry10 2
	dex
	bne -
	rts

mod_1:					; 低字节低4位的值相当于个位加6，十位加9，百位加0，千位加4
	ldx _num
	bne +				; 如果为0直接返回
	rts
*	lda #6
	`carry10 4
	lda #9
	`carry10 3
	lda #4
	`carry10 1
	dex
	bne -
	rts

.scend

.macro carry10
	clc
	adc _num_dec + _1
	bcc _skip
	pha
	lda #$10				; 进位相当于100
	clc
	adc _num_dec + _1 - 1
	sta _num_dec + _1 - 1
	pla
_skip:
	sta _num_dec + _1
.macend

.macro splitbyte
	lda _1
	sta _num + _2
	lsr
	lsr
	lsr
	lsr
	sta _num + _2 - 1
	lda #$0f
	and _num + _2
	sta _num + _2
.macend

.macro carry
	tya
	pha

	sed				; 设置为bcd加减法
	jsr mod_4
	jsr mod_3
	jsr mod_2
	jsr mod_1		; 此时结果中有些位可能大于10，需要进行进位处理
	ldx #5
_loop:
	ldy #0			; y记录进位数
	txa
	lda _num_dec-1, x
	cmp #10
	bcc _skip		; 小于10不进位
	pha
	and #$f0
	lsr
	lsr
	lsr
	lsr
	adc _num_dec-2, x
	sta _num_dec-2, x
	pla
	and #$0f
	sta _num_dec-1, x
_skip:
	dex
	bne _loop

	cld				; 退出bcd模式
	ldx #5
_up:
	lda _num_dec - 1, x
	ora #$30		; 转化为可显示字符
	sta _num_dec - 1, x
	dex
	bne _up

	pla
	tay
.macend