2 ; Ullrich von Bassewitz, 25.10.2000
4 ; CC65 runtime: Convert tos from int to long
7 .export tosulong, toslong
13 ; Convert TOS from int to long
17 jsr decsp2 ; Make room
20 .if (.cpu .bitand CPU_ISET_65SC02)
21 sta (sp) ; 65C02 version
43 jsr decsp2 ; Make room
46 .if (.cpu .bitand CPU_ISET_65SC02)
47 sta (sp) ; 65C02 version
55 bpl toslong1 ; Jump if positive, high word is zero
59 bne toslong2 ; Branch always