cc65/libsrc/runtime/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
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			`;`
			`; 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`

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			`.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`
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			`pla`
			`jmp incsp2 ; Drop 16 bit`

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			`.endproc`