ack/mach/6500/libem/mlu4.s
1984-12-17 11:03:13 +00:00

26 lines
369 B
ArmAsm

.define Mlu4
! This subroutine multiplies two fourbyte unsigned integers.
! For more details see mli.s
! The only difference is that zeropage locations are twice as big.
Mlu4:
ldy #0
sty UNSIGN
jsr Pop
stx ARTH
sta ARTH+1
jsr Pop
stx ARTH+2
sta ARTH+3 ! multiplier
jsr Pop
stx ARTH+4
sta ARTH+5
jsr Pop
stx ARTH+6
sta ARTH+7 ! multiplicand
jmp Mul4