cc65/libsrc/runtime/toslong.s

;
; Ullrich von Bassewitz, 25.10.2000
;
; CC65 runtime: Convert tos from int to long
;

        .export         tosulong, toslong
        .import         decsp2
        .importzp       sp

        .macpack        cpu

; Convert TOS from int to long

tosulong:
        pha
        jsr     decsp2          ; Make room
        ldy     #2
        lda     (sp),y
.if (.cpu .bitand CPU_ISET_65SC02)
        sta     (sp)            ; 65C02 version
        iny                     ; Y = 3
.else
        ldy     #0
        sta     (sp),y
        ldy     #3
.endif
        lda     (sp),y
toslong1:
        ldy     #1
        sta     (sp),y
        lda     #0              ; Zero extend
toslong2:
        iny
        sta     (sp),y
        iny
        sta     (sp),y
        pla
        rts

toslong:
        pha
        jsr     decsp2          ; Make room
        ldy     #2
        lda     (sp),y
.if (.cpu .bitand CPU_ISET_65SC02)
        sta     (sp)            ; 65C02 version
        iny                     ; Y = 3
.else
        ldy     #0
        sta     (sp),y
        ldy     #3
.endif
        lda     (sp),y
        bpl     toslong1        ; Jump if positive, high word is zero
        ldy     #1
        sta     (sp),y
        lda     #$FF
        bne     toslong2        ; Branch always
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 int to long`
			`;`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.export tosulong, toslong`
			`.import decsp2`
			`.importzp sp`
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
Improved 65c02 support git-svn-id: svn://svn.cc65.org/cc65/trunk@2507 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-10-10 17:52:12 +00:00			`.macpack cpu`

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			`; Convert TOS from int to long`

			`tosulong:`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`pha`
			`jsr decsp2 ; Make room`
			`ldy #2`
			`lda (sp),y`
Improved 65c02 support git-svn-id: svn://svn.cc65.org/cc65/trunk@2507 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-10-10 17:52:12 +00:00			`.if (.cpu .bitand CPU_ISET_65SC02)`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`sta (sp) ; 65C02 version`
			`iny ; Y = 3`
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			`.else`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`ldy #0`
			`sta (sp),y`
			`ldy #3`
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			`.endif`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`lda (sp),y`
Fixed a bug and - while doing so - made it somewhat shorter. git-svn-id: svn://svn.cc65.org/cc65/trunk@563 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-12-06 21:11:06 +00:00			`toslong1:`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`ldy #1`
			`sta (sp),y`
			`lda #0 ; Zero extend`
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			`toslong2:`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`iny`
			`sta (sp),y`
			`iny`
			`sta (sp),y`
			`pla`
			`rts`
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
			`toslong:`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`pha`
			`jsr decsp2 ; Make room`
			`ldy #2`
			`lda (sp),y`
Improved 65c02 support git-svn-id: svn://svn.cc65.org/cc65/trunk@2507 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-10-10 17:52:12 +00:00			`.if (.cpu .bitand CPU_ISET_65SC02)`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`sta (sp) ; 65C02 version`
			`iny ; Y = 3`
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			`.else`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`ldy #0`
			`sta (sp),y`
			`ldy #3`
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			`.endif`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`lda (sp),y`
			`bpl toslong1 ; Jump if positive, high word is zero`
			`ldy #1`
			`sta (sp),y`
			`lda #$FF`
			`bne toslong2 ; Branch always`
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