ack/mach/6500/libem/mlu4.s

26 lines
369 B
ArmAsm
Raw Normal View History

1984-12-17 11:03:13 +00:00
.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