Abundant, deficient and perfect number classifications: Difference between revisions

m
correction comments
(Added XPL0 example.)
m (correction comments)
Line 987:
blt 2f
lsl r5,r4,#1 @ number * 2
cmp r5,r1 @ compare number ansand sum
addeq r7,r7,#1 @ perfect
addgt r6,r6,#1 @ deficient
Line 1,050:
/* r1 contains address of divisors area */
/* r0 return divisors items in table */
/* r1 return the numbersum of odd divisors */
/* r2 return the sum of divisors */
decompFact:
push {r3-r12,lr} @ save registers