2014-05-11 05:08:27 +00:00
|
|
|
;
|
|
|
|
|
; 2010-11-02, Ullrich von Bassewitz
|
2014-09-10 23:15:07 +00:00
|
|
|
; 2014-09-10, Greg King
|
2019-11-05 19:16:21 +00:00
|
|
|
; 2019-11-05, Piotr Fusik
|
2014-05-11 05:08:27 +00:00
|
|
|
;
|
|
|
|
|
; CC65 runtime: 8x8 => 16 signed multiplication
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.export imul8x8r16, imul8x8r16m
|
|
|
|
|
.importzp ptr1, ptr3, tmp1
|
|
|
|
|
|
|
|
|
|
.macpack generic
|
|
|
|
|
|
|
|
|
|
;---------------------------------------------------------------------------
|
|
|
|
|
; 8x8 => 16 signed multiplication routine.
|
|
|
|
|
;
|
|
|
|
|
; multiplicand multiplier product
|
|
|
|
|
; LHS RHS result
|
|
|
|
|
; -------------------------------------------------------------
|
|
|
|
|
; .A (ptr3-low) ptr1-low .XA
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
imul8x8r16:
|
|
|
|
|
sta ptr3
|
|
|
|
|
|
|
|
|
|
imul8x8r16m:
|
2019-11-05 19:44:21 +00:00
|
|
|
; Extend sign of Left-Hand Side
|
|
|
|
|
lda #$7f
|
|
|
|
|
cmp ptr3
|
|
|
|
|
adc #$80
|
|
|
|
|
sta ptr3+1
|
|
|
|
|
|
|
|
|
|
; Clear .XY accumulator
|
|
|
|
|
ldy #<$0000
|
2014-09-10 23:15:07 +00:00
|
|
|
ldx #>$0000
|
2019-11-05 19:44:21 +00:00
|
|
|
|
|
|
|
|
; Check the multiplier sign.
|
2014-05-11 05:08:27 +00:00
|
|
|
lda ptr1
|
2019-11-05 19:26:02 +00:00
|
|
|
bpl PosStart
|
2014-05-11 05:08:27 +00:00
|
|
|
|
|
|
|
|
; The multiplier is negative.
|
|
|
|
|
; Therefore, make it positive; and, subtract when multiplying.
|
|
|
|
|
NegMult:
|
|
|
|
|
eor #%11111111
|
|
|
|
|
sta ptr1
|
|
|
|
|
inc ptr1
|
2019-11-05 19:26:02 +00:00
|
|
|
bnz NegStart ; Branch always
|
2014-05-11 05:08:27 +00:00
|
|
|
|
2019-11-05 19:26:02 +00:00
|
|
|
NegAdd:
|
|
|
|
|
tya ; Subtract current multiplicand
|
2019-11-05 19:16:21 +00:00
|
|
|
; sec
|
|
|
|
|
sbc ptr3
|
2014-05-11 05:08:27 +00:00
|
|
|
tay
|
|
|
|
|
txa
|
|
|
|
|
sbc ptr3+1
|
|
|
|
|
tax
|
|
|
|
|
|
2019-11-05 19:26:02 +00:00
|
|
|
NegShift:
|
|
|
|
|
asl ptr3
|
|
|
|
|
rol ptr3+1
|
|
|
|
|
NegStart:
|
|
|
|
|
lsr ptr1 ; Get next bit of Right-Hand Side into carry
|
|
|
|
|
bcs NegAdd
|
|
|
|
|
bnz NegShift ; Loop if more one-bits in multiplier
|
|
|
|
|
|
|
|
|
|
tya ; Put result into cc65's accumulator
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
; The multiplier is positive.
|
|
|
|
|
|
|
|
|
|
PosAdd:
|
|
|
|
|
tya ; Add current multiplicand
|
|
|
|
|
add ptr3
|
|
|
|
|
tay
|
|
|
|
|
txa
|
|
|
|
|
adc ptr3+1
|
|
|
|
|
tax
|
|
|
|
|
|
|
|
|
|
PosShift:
|
|
|
|
|
asl ptr3
|
2014-05-11 05:08:27 +00:00
|
|
|
rol ptr3+1
|
2019-11-05 19:26:02 +00:00
|
|
|
PosStart:
|
|
|
|
|
lsr ptr1 ; Get next bit of Right-Hand Side into carry
|
|
|
|
|
bcs PosAdd
|
|
|
|
|
bnz PosShift ; Loop if more one-bits in multiplier
|
2014-05-11 05:08:27 +00:00
|
|
|
|
|
|
|
|
tya ; Put result into cc65's accumulator
|
|
|
|
|
rts
|
