1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-22 12:30:41 +00:00
cc65/libsrc/runtime/mulax3.s

29 lines
447 B
ArmAsm
Raw Normal View History

;
; Ullrich von Bassewitz, 04.10.2001
;
2018-03-07 20:01:29 +00:00
; CC65 runtime: Multiply the primary register by 3
;
2018-05-24 01:55:40 +00:00
; Don't touch the Y-register here, the optimizer relies on it!
.export mulax3
.importzp ptr1
2022-04-17 14:06:22 +00:00
.proc mulax3
sta ptr1
stx ptr1+1
asl a
rol ptr1+1
clc
adc ptr1
pha
txa
adc ptr1+1
tax
pla
rts
.endproc