.segment "LIBCODE"
;
; Ullrich von Bassewitz, 25.10.2000
;
; CC65 runtime: Convert tos from long to int
;

       	.export		tosint
	.import		incsp2
	.importzp	sp

        .macpack        cpu

; Convert TOS from long to int by cutting of the high 16bit

.proc	tosint

	pha
.if (.cpu .bitand ::CPU_ISET_65SC02)
	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
