ack/mach/6500/libem/mlu.s

18 lines
227 B
ArmAsm
Raw Normal View History

1984-12-17 11:03:13 +00:00
.define Mlu2
! This subroutine multiplies two unsigned fourbyte intergers.
! For more details see mli.s
Mlu2:
stx ARTH
sta ARTH+1 ! multiplier
jsr Pop
stx ARTH+2
sta ARTH+3 ! multiplicand
ldy #0
sty UNSIGN
jmp Mul