; CC65 runtime: Multiply the primary register by 10
;
- .export mulax10
- .importzp ptr1
+ .export mulax10
+ .importzp ptr1
-.proc mulax10
+.proc mulax10
- sta ptr1
- stx ptr1+1
- asl a
- rol ptr1+1
- asl a
- rol ptr1+1
- clc
- adc ptr1
- sta ptr1
- txa
- adc ptr1+1
- asl ptr1
- rol a
- tax
- lda ptr1
- rts
+ sta ptr1
+ stx ptr1+1
+ asl a
+ rol ptr1+1
+ asl a
+ rol ptr1+1
+ clc
+ adc ptr1
+ sta ptr1
+ txa
+ adc ptr1+1
+ asl ptr1
+ rol a
+ tax
+ lda ptr1
+ rts
.endproc