diff options
1 files changed, 3 insertions, 4 deletions
| -rw-r--r-- | catalan/math.a65 | 7 |
diff --git a/catalan/math.a65 b/catalan/math.a65 index 7bd850a..667d651 100644 --- a/catalan/math.a65 +++ b/catalan/math.a65 @@ -41,18 +41,17 @@ diva .( ora #0 ; Update flags, so they're accurate with the accumulator value beq return ; if (a == 0) return a - ldx arg ; x = arg + ldx arg ; x = arg cpx #0 ; if (x == 0) beq r_zero ; return 0 cpx #1 ; if (x == 1) beq return ; return a - stx subtrahend ; subtrahend = x ldx #0 ; x = 0 loop sec ; do carry = 1 - sbc subtrahend ; a -= addend + !carry + sbc arg ; a -= arg + !carry inx ; ++x - cmp subtrahend ; while (a >= subtrahend) + cmp arg ; while (a >= arg) bcs loop return txa |