Added some 65C02 code.

git-svn-id: svn://svn.cc65.org/cc65/trunk@484 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-11-27 22:59:03 +00:00
parent 5be5b3763b
commit b4163d0e4e
11 changed files with 149 additions and 80 deletions
--- a/libsrc/runtime/tosint.s
+++ b/libsrc/runtime/tosint.s
@@ -10,15 +10,22 @@

 ; 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
+.proc	tosint
+
+	pha
+.ifpc02
+	lda   	(sp)
+.else
+      	ldy    	#0
+      	lda   	(sp),y 	       	; sp+1
+.endif
+	ldy   	#2
+	sta   	(sp),y
+	dey
+	lda   	(sp),y
+	ldy   	#3
+	sta   	(sp),y
 	pla
       	jmp    	incsp2	  	; Drop 16 bit

+.endproc