Splitted the lconvert module into three smaller ones to allow for smaller

executables if not all functions are used. git-svn-id: svn://svn.cc65.org/cc65/trunk@392 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-10-25 07:06:55 +00:00
parent b0e41e487d
commit e3a8e6bbe4
5 changed files with 223 additions and 107 deletions
--- a/libsrc/runtime/tosint.s
+++ b/libsrc/runtime/tosint.s
@@ -0,0 +1,24 @@
+;
+; Ullrich von Bassewitz, 25.10.2000
+;
+; CC65 runtime: Convert tos from long to int
+;
+
+       	.export		tosint
+	.import		incsp2
+	.importzp	sp
+
+; Convert TOS from long to int by cutting of the high 16bit
+
+tosint:	pha
+	ldy    	#0
+	lda	(sp),y 	       	; sp+1
+	ldy	#2
+	sta	(sp),y
+	ldy	#1
+	lda	(sp),y
+	ldy	#3
+	sta	(sp),y
+	pla
+       	jmp    	incsp2	  	; Drop 16 bit
+