the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed (pretty inconsistently used) tab chars from source code base.

Browse Source
This commit is contained in:
Oliver Schmidt
2013-05-09 13:56:54 +02:00
parent 44fd1082ae
commit 85885001b1
1773 changed files with 62864 additions and 62868 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
libsrc/runtime/mul8.s
View File

@@ -4,10 +4,10 @@
; CC65 runtime: multiplication for ints. Short versions.
;
.export tosumula0, tosmula0
.export tosumula0, tosmula0
.export mul8x16, mul8x16a
.import popsreg
.importzp sreg, ptr4
.import popsreg
.importzp sreg, ptr4
;---------------------------------------------------------------------------
@@ -15,30 +15,30 @@
tosmula0:
tosumula0:
sta ptr4
mul8x16:jsr popsreg ; Get left operand
sta ptr4
mul8x16:jsr popsreg ; Get left operand
lda #0 ; Clear byte 1
ldy #8 ; Number of bits
ldx sreg+1 ; Get into register for speed
lda #0 ; Clear byte 1
ldy #8 ; Number of bits
ldx sreg+1 ; Get into register for speed
beq mul8x8 ; Do 8x8 multiplication if high byte zero
mul8x16a:
sta ptr4+1 ; Clear byte 2
sta ptr4+1 ; Clear byte 2
lsr ptr4 ; Get first bit into carry
@L0: bcc @L1
clc
adc sreg
pha
txa ; hi byte of left op
adc ptr4+1
sta ptr4+1
pla
clc
adc sreg
pha
txa ; hi byte of left op
adc ptr4+1
sta ptr4+1
pla
@L1: ror ptr4+1
ror a
ror ptr4
@L1: ror ptr4+1
ror a
ror ptr4
dey
bne @L0
tax
@@ -58,6 +58,6 @@ mul8x8:
dey
bne @L0
tax
lda ptr4 ; Load the result
rts ; Done
lda ptr4 ; Load the result
rts ; Done