.export tosadda0, tosaddax
.importzp sp
+ .macpack cpu
+
tosadda0:
ldx #0
tosaddax:
- ldy #0
- clc
- adc (sp),y ; lo byte
+ clc
+.if (.cpu .bitand CPU_ISET_65SC02)
+ adc (sp) ; 65SC02 version - saves 2 cycles
+ ldy #1
+.else
+ ldy #0
+ adc (sp),y ; lo byte
+ iny
+.endif
pha ; save it
- txa
- iny
- adc (sp),y ; hi byte
+ txa
+ adc (sp),y ; hi byte
tax
clc
lda sp