X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fruntime%2Fasrax4.s;h=61b6645b633c5341fe38f4969baf316c93e67c89;hb=ef4a2e667da2b1486f62bda828450b3b46772f85;hp=6365f3b3985d20b1f9816c385fb68e5219a204cd;hpb=d55c271c2a09df8844edc57a84a95f823b1a74ea;p=cc65

diff --git a/libsrc/runtime/asrax4.s b/libsrc/runtime/asrax4.s
index 6365f3b39..61b6645b6 100644
--- a/libsrc/runtime/asrax4.s
+++ b/libsrc/runtime/asrax4.s
@@ -1,28 +1,26 @@
 ;
-; Ullrich von Bassewitz, 25.07.2001
+; Piotr Fusik, 24.10.2003
+; originally by Ullrich von Bassewitz
 ;
 ; CC65 runtime: Scale the primary register by 16
 ;
 
-      	.export		asrax4
-      	.importzp	tmp1
+	.export		asrax4
+	.importzp	tmp1
 
 asrax4:	stx	tmp1
-      	cpx	#$80  		; Put bit 7 into carry
-      	ror	tmp1
-      	ror	a
+	cpx	#$80		; Put bit 7 into carry
+	ror	tmp1
+	ror	a
+	cpx	#$80
+	ror	tmp1
+	ror	a
+	cpx	#$80
+	ror	tmp1
+	ror	a
+	cpx	#$80
+	ror	tmp1
+	ror	a
 	ldx	tmp1
-      	cpx	#$80
-      	ror	tmp1
-      	ror	a
-	ldx	tmp1
-      	cpx	#$80
-      	ror	tmp1
-      	ror	a
-      	ldx	tmp1
-      	cpx	#$80
-      	ror	tmp1
-      	ror	a
-      	ldx	tmp1
-      	rts
+	rts