From: cpg <cpg@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Fri, 23 Jun 2000 22:05:59 +0000 (+0000)
Subject: use mul40 routine instead of doing the multiplication myself
X-Git-Tag: V2.12.0~3396
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=7b944cae112baaa1195ac466920b569d4792af75;p=cc65

use mul40 routine instead of doing the multiplication myself


git-svn-id: svn://svn.cc65.org/cc65/trunk@117 b7a2c559-68d2-44c3-8de9-860c34a00d81
---

diff --git a/libsrc/atari/cputc.s b/libsrc/atari/cputc.s
index 088e2bbf1..c7d30a460 100644
--- a/libsrc/atari/cputc.s
+++ b/libsrc/atari/cputc.s
@@ -7,7 +7,7 @@
 
     	.export	       	_cputcxy, _cputc
 	.export		plot, cputdirect, putchar
-	.import		popa, _gotoxy
+	.import		popa, _gotoxy, mul40
 
 	.include	"atari.inc"
 
@@ -70,22 +70,8 @@ plot:	ldy	COLCRS
 
 putchar:
 	pha			; save char
-	lda	#0
-	sta	tmp4
 	lda	ROWCRS
-	asl	a
-	rol	tmp4
-	asl	a
-	rol	tmp4		; row * 4
-	adc	ROWCRS
-	bcc	L1
-	inc	tmp4		; row * 5
-L1:	asl	a
-	rol	tmp4		; row * 10
-	asl	a
-	rol	tmp4
-	asl	a
-	rol	tmp4		; row * 40
+	jsr	mul40
 L3:	clc
 	adc	SAVMSC		; add start of screen memory
 	sta	ptr4