1
0
mirror of https://github.com/cc65/cc65.git synced 2024-10-31 04:04:49 +00:00
cc65/libsrc/runtime/mulax7.s
cuz 6d8cdae722 Runtime function improvements by Piotr Fusik
git-svn-id: svn://svn.cc65.org/cc65/trunk@2577 b7a2c559-68d2-44c3-8de9-860c34a00d81
2003-10-28 08:47:47 +00:00

34 lines
361 B
ArmAsm

;
; Piotr Fusik, 24.10.2003
; originally by Ullrich von Bassewitz
;
; CC65 runtime: Multiply the primary register by 7
;
.export mulax7
.importzp ptr1
.proc mulax7
sta ptr1
stx ptr1+1
asl a
rol ptr1+1 ; * 2
asl a
rol ptr1+1 ; * 4
asl a
rol ptr1+1 ; * 8
sec
sbc ptr1
pha
txa
eor #$ff
adc ptr1+1 ; * (8 - 1)
tax
pla
rts
.endproc