diff options
| Commit | ef864ce4111fc204f74f490957bd85ec02aafc05 (patch) | |
|---|---|---|
| Author | 2025-08-03 11:14:10 +0300 | |
| Committer | 2025-08-03 11:14:10 +0300 | |
| Files | f2d0a97806f3fe4d1a0d823419b03d0bff221cae | |
| c64-programs-ef864ce4111fc204f74f490957bd85ec02aafc05.tar c64-programs-ef864ce4111fc204f74f490957bd85ec02aafc05.tar.gz c64-programs-ef864ce4111fc204f74f490957bd85ec02aafc05.zip | ||
| Parent | 8a50432af0d883ba9ff4680004c70b6dbbc7b445 (diff) | |
chore(catalan): Rename math subroutine arguments from arg1 to arg
2 files changed, 13 insertions, 13 deletions
| -rw-r--r-- | catalan/catalan.a65 | 6 | ||||
| -rw-r--r-- | catalan/math.a65 | 20 |
diff --git a/catalan/catalan.a65 b/catalan/catalan.a65 index 1a04a3e..c51f040 100644 --- a/catalan/catalan.a65 +++ b/catalan/catalan.a65 @@ -38,7 +38,7 @@ loop inx ; do ++x txa ; a = x ; a *= 4 - store_in_memory(multa_arg1, #4) + store_in_memory(multa_arg, #4) jsr multa sec ; a -= 2 sbc #2 @@ -48,10 +48,10 @@ loop inx ; do ++x dex ; --x ; a /= divisor - store_in_memory(diva_arg1, divisor) + store_in_memory(diva_arg, divisor) jsr diva ; a *= cat_n - store_in_memory(multa_arg1, cat_n) + store_in_memory(multa_arg, cat_n) jsr multa sta Cn ; Cn = a diff --git a/catalan/math.a65 b/catalan/math.a65 index ea45675..434fd8d 100644 --- a/catalan/math.a65 +++ b/catalan/math.a65 @@ -1,14 +1,14 @@ #ifndef CATALAN_MATH #define CATALAN_MATH -; a *= multa_arg1 +; a *= multa_arg multa .( ora #0 ; Update flags, so they're accurate with the accumulator value beq return ; if (a == 0) return a cmp #1 ; if (a == 1) - beq r_arg1 ; return arg1 + beq r_arg ; return arg - ldx arg1 ; x = arg1 + ldx arg ; x = arg cpx #0 ; if (x == 0) beq r_zero ; return 0 cpx #1 ; if (x == 1) @@ -28,20 +28,20 @@ return ora #0 ; Update flags, so they're accurate with the accumulator value r_zero lda #0 rts -r_arg1 lda arg1 +r_arg lda arg rts -+multa_arg1 -arg1 .byt 0 ++multa_arg +arg .byt 0 addend .byt 0 .) -; a /= diva_arg1 +; a /= diva_arg diva .( ora #0 ; Update flags, so they're accurate with the accumulator value beq return ; if (a == 0) return a - ldx arg1 ; x = arg1 + ldx arg ; x = arg cpx #0 ; if (x == 0) beq r_zero ; return 0 cpx #1 ; if (x == 1) @@ -61,8 +61,8 @@ return txa r_zero lda #0 rts -+diva_arg1 -arg1 .byt 0 ++diva_arg +arg .byt 0 subtrahend .byt 0 .) |