diff options
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 .) |