# routine to destructively negate a bignum stored in array format
# lower order stuff at higher addresses. It is assume that the
# result will be positive.
movl 4(ap),r1 #load up address.
loop: mnegl (r1),r0 #negate and take carry into account.
#decrease r1, and branch back if appropriate.