2000-05-28 13:40:48 +00:00
|
|
|
;
|
|
|
|
|
; Ullrich von Bassewitz, 05.08.1998
|
2017-03-12 22:21:43 +00:00
|
|
|
; Christian Krueger, 11-Mar-2017, spend two bytes for one cycle, improved 65SC02 optimization
|
2000-05-28 13:40:48 +00:00
|
|
|
;
|
|
|
|
|
; CC65 runtime: add ints
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
; Make this as fast as possible, even if it needs more space since it's
|
|
|
|
|
; called a lot!
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export tosadda0, tosaddax
|
2017-03-12 22:21:43 +00:00
|
|
|
.importzp sp, tmp1
|
2000-05-28 13:40:48 +00:00
|
|
|
|
2003-10-10 17:52:12 +00:00
|
|
|
.macpack cpu
|
|
|
|
|
|
2000-05-28 13:40:48 +00:00
|
|
|
tosadda0:
|
2013-05-09 11:56:54 +00:00
|
|
|
ldx #0
|
2000-05-28 13:40:48 +00:00
|
|
|
tosaddax:
|
2017-03-12 22:21:43 +00:00
|
|
|
clc ; (2)
|
|
|
|
|
|
|
|
|
|
.if (.cpu .bitand ::CPU_ISET_65SC02)
|
|
|
|
|
|
|
|
|
|
adc (sp) ; (7)
|
|
|
|
|
tay ; (9)
|
|
|
|
|
inc sp ; (14)
|
|
|
|
|
bne hiadd ; (17)
|
|
|
|
|
inc sp+1 ; (-1+5)
|
|
|
|
|
hiadd: txa ; (19)
|
|
|
|
|
adc (sp) ; (24)
|
|
|
|
|
tax ; (26)
|
|
|
|
|
inc sp ; (31)
|
|
|
|
|
bne done ; (34)
|
|
|
|
|
inc sp+1 ; (-1+5)
|
|
|
|
|
done: tya ; (36)
|
2000-05-28 13:40:48 +00:00
|
|
|
|
2017-03-12 22:21:43 +00:00
|
|
|
.else
|
|
|
|
|
|
|
|
|
|
ldy #0 ; (4)
|
|
|
|
|
adc (sp),y ; (9) lo byte
|
|
|
|
|
iny ; (11)
|
|
|
|
|
sta tmp1 ; (14) save it
|
|
|
|
|
txa ; (16)
|
|
|
|
|
adc (sp),y ; (21) hi byte
|
|
|
|
|
tax ; (23)
|
|
|
|
|
clc ; (25)
|
|
|
|
|
lda sp ; (28)
|
|
|
|
|
adc #2 ; (30)
|
|
|
|
|
sta sp ; (33)
|
|
|
|
|
bcc L1 ; (36)
|
|
|
|
|
inc sp+1 ; (-1+5)
|
|
|
|
|
L1: lda tmp1 ; (39) restore low byte
|
|
|
|
|
|
|
|
|
|
.endif
|
|
|
|
|
rts ; (6502: 45 cycles, 26 bytes <-> 65SC02: 42 cycles, 22 bytes )
|
