tosint.s

;
; 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

.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

tosint.s.html; generated on Sat Oct 13 22:41:33 2001 by ca65html
uz@cc65.org