diff options
| Commit | 10fca1f3fb363e81a8b737a690bb2752bfe61a60 (patch) | |
|---|---|---|
| Author | 2025-08-03 11:38:10 +0300 | |
| Committer | 2025-08-03 11:38:10 +0300 | |
| Files | 60ede9d036f22a935bb2c793b37839c7b25e9925 | |
| c64-programs-10fca1f3fb363e81a8b737a690bb2752bfe61a60.tar c64-programs-10fca1f3fb363e81a8b737a690bb2752bfe61a60.tar.gz c64-programs-10fca1f3fb363e81a8b737a690bb2752bfe61a60.zip | ||
| Parent | 8dfce9012a7f28485ea9d4b2391c7352ce60a3f7 (diff) | |
fix(catalan): Replace subtrahend with arg
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 |
