2 ; Ullrich von Bassewitz, 25.10.2000
4 ; CC65 runtime: Convert tos from int to long
7 .export tosulong, toslong
11 ; Convert TOS from int to long
15 jsr decsp2 ; Make room
19 sta (sp) ; 65C02 version
41 jsr decsp2 ; Make room
45 sta (sp) ; 65C02 version
53 bpl toslong1 ; Jump if positive, high word is zero
57 bne toslong2 ; Branch always